[AFT脚本] 神龙之魂升级脚本

[@神龙背饰]
{
\
<购买神龙之魂/@神龙1> <color=0X00FFFF 5000元宝，即可购买一个神龙之魂！>\
<升级神龙之魂/@神龙2> <color=0X00FFFF 神龙之魂，分为八个品级，品级越！>\
　　　　　　 <color=0X00FFFF 高，吸血越多，也是您身份的象征！>\
　　　　　　 <color=red 神龙之魂不允许丢弃、交易，也暴不出！>\
　　　　　　 <color=red 升级时候，背包如有两个将不允许升级！>\
　　　　　　 <color=red 神龙之魂，法师魔法与道士道术是隐藏！>\
　　　　　　 <color=red 只有战士的攻击才显示在神龙魂的外观！>\

[@神龙1]
#IF
CHECKGAMEGOLD < 5000
#ACT
MESSAGEBOX 　　　　　　很抱歉，您的元宝不足5000个，无法购买神龙之魂！
BREAK
#IF
checkjob Warr
#ACT
GAMEGOLD - 5000
GIVE 神龙之魂1 1
SENDMSG 2 <$USERNAME>购买了<神龙之魂>!
MESSAGEBOX 　　　　　　　　　　恭喜，购买神龙之魂成功！
break
#IF
checkjob Wizard
#ACT
GAMEGOLD - 5000
GIVE 神龙之魂2 1
SENDMSG 2 <$USERNAME>购买了<神龙之魂>!
MESSAGEBOX 　　　　　　　　　　恭喜，购买神龙之魂成功！
break
#IF
checkjob Taos
#ACT
GAMEGOLD - 5000
GIVE 神龙之魂3 1
SENDMSG 2 <$USERNAME>购买了<神龙之魂>!
MESSAGEBOX 　　　　　　　　　　恭喜，购买神龙之魂成功！
break

[@神龙2]
#IF
CHECKGAMEGOLD < 5000
#ACT
messagebox 对不起，你没有元宝或者元宝不足，请冲值后升级！
#ELSEACT
goto @神龙大
break
[@神龙大]
#ACT
checkitembox 请放入神龙之魂： 1 201 
[@getboxitem201]
#IF
POS $CHECKBOXITEM.NAME 神龙之魂
#ACT
#ELSEACT
SENDMSG 5 您当前放入的不是神龙之魂！
break
close
#IF
checkitem 神龙之魂1 2
#ACT
SENDMSG 5 你背包中有多个神龙之魂不允许升级！
break
close
#IF
checkitem 神龙之魂2 2
#ACT
SENDMSG 5 你背包中有多个神龙之魂不允许升级！
break
close
#IF
checkitem 神龙之魂3 2
#ACT
SENDMSG 5 你背包中有多个神龙之魂不允许升级！
break
close
#IF
CHECKLEVELEX > 1
#ACT
MOV S1 $CHECKBOXITEM.ItemExD
MOV P0 $ItemEx.$STR(S1).6
#IF
SMALL P0 8
#ACT
GAMEGOLD - 5000
UPGRADEITEMSL $PARAM(0) 0 + 1
UPGRADEITEMSL $PARAM(0) 1 + 1
UPGRADEITEMSL $PARAM(0) 2 + 1
UPGRADEITEMSL $PARAM(0) 3 + 1
UPGRADEITEMSL $PARAM(0) 4 + 1
UPGRADEITEMSL $PARAM(0) 5 + 1
UPGRADEITEMSL $PARAM(0) 6 + 1
UPGRADEITEMSL $PARAM(0) 7 + 7
UPGRADEITEMSL $PARAM(0) 8 + 1
UPGRADEITEMSL $PARAM(0) 9 + 150
SENDMSG 5 恭喜您当前神龙之魂品级：<$ItemEx.$STR(S1).6>　　
break
close
#ELSEACT
SENDMSG 5 您的神龙之魂品级已达到8级,不能再升级!
close
}