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

[@main]

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

<装备加星/@极品加星>[极品]　　　　　　\\　　　         


[@兑换极品]
在我这里，你可以使用元宝直接兑换到极品修炼值：\\
　　<color=0X9ACD32 你当前拥有的极品修炼值为:>:<$JPPOINT>点\\
　　<color=0X9ACD32 你当前拥有的元宝数量为:><$GAMEGOLD>点\\
　　购买<极品修炼值/@极品修炼值1>　单价5000点=1个元宝\\
　　　　<返回上页/@main>

[@极品修炼值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 您使用:[<$STR(S1)>个元宝]购买了:[<$human(SCL)>点]极品修炼值
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 <$STR(P0)>
INC P1 1
MUL P1 2400000
goto @检查极品值1
#ELSEACT
messagebox 极品加星已经达到最高上限，当前武器星级为：<$STR(P0)>
break

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

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

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

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

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

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