传奇世界AFT引擎添加装备加星流程分享

[@main]

如果你拥有足够的修炼值，我可以为你用极品修炼值提升装备，
每提升一个级，属性也相应加强。你需要提升星级吗？\
武器升级属性+1 需 120万修炼值.240.360.480.
　　　　　　　　600.720.840.)
防具升级属性+1 需300万修炼值. 600.900.)\

[极品]　　　　　　\　　　   


[@兑换极品]
在我这里，你可以使用元宝直接兑换到极品修炼值：\
　　:点\
　　点\
　　购买　单价5000点=1个元宝\
　　　　

[@极品修炼值1]
#ACT
queryvalue 请输入你要用多少点积分来换取[极品修炼值]: 2 7 4446
break

[@getstring4446]
#ACT
Getstring s1
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 5000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR HUMAN SCL < 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
CHECKGAMEGOLD > $STR(s1)
#ACT
GAMEGOLD - $STR(s1)
JPPOINT + $human(SCL)
CollectPoint + $STR(s1)
CALCVAR HUMAN 消费 + $STR(s1)
SAVEVAR HUMAN 消费 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 祝福 + $STR(s1)
SAVEVAR HUMAN 祝福 ..QUESTDIARY数据文件个人变量个人变量.txt
SENDMSG 5 您使用:[个元宝]购买了:[点]极品修炼值
goto @兑换极品
#ELSEACT
MessageBox 对不起，您的元宝不足，购买失败。


;----------------------------极品加星

[@极品加星]

#ACT
checkitembox 放入你想升级的物品 1 118

[@getboxitem118]
#IF
CHECKVARLIST $CHECKBOXITEM.STDMODE ..武器类型.txt
#ACT
MOV S1 $CHECKBOXITEM.ItemExD
MOV P0 0
INC P0 $ItemEx.$STR(S1).9
GOTO @检查星级1
break
#IF
CHECKVARLIST $CHECKBOXITEM.STDMODE ..防具类型.txt
#ACT
MOV S1 $CHECKBOXITEM.ItemExD
MOV P0 0
INC P0 $ItemEx.$STR(S1).9
GOTO @检查星级2
break
#ELSEACT
messagebox 你所放入的物品不能进行极品升级！
break

;----------------------------武器部分
[@检查星级1]
#IF
SMALL p0 7
#ACT
MOV P1
INC P1 1
MUL P1 2400000
goto @检查极品值1
#ELSEACT
messagebox 极品加星已经达到最高上限，当前武器星级为：
break

[@检查极品值1]
#IF
LARGE $JPPOINT $str(p1)
#ACT
goto @检查职业1
#ELSEACT
messagebox 你的极品值不足，升级当前武器所需要的极品值为：
break

[@检查职业1]
#IF
checkjob warrior
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 0 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，攻击+1，极品修炼值-
break
#IF
checkjob wizard
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 1 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，魔法+1，极品修炼值-
break
#IF
checkjob taoist
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 2 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，道术+1极品修炼值-
break

;----------------------------防具部分

[@检查星级2]
#IF
SMALL p0 3
#ACT
MOV P1
INC p1 1
MUL P1 6000000
goto @检查极品值2
#ELSEACT
messagebox 极品加星已经达到最高上限，当前防具星级为：
break

[@检查极品值2]
#IF
LARGE $JPPOINT $str(p1)
#ACT
goto @检查职业2
#ELSEACT
messagebox 你的极品值不足，升级当前防具所需要的极品值为：
break

[@检查职业2]
#IF
checkjob warrior
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 2 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，攻击+1，极品修炼值-
break
#IF
checkjob wizard
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 3 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，魔法+1，极品修炼值-
break
#IF
checkjob taoist
#ACT
JPPOINT - $str(p1)
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 4 + 1
UpgradeUserItemEx $CHECKBOXITEM.ItemExD 9 + 1
SENDMSG 5 极品加星成功，道术+1，极品修炼值-
break