[AFT脚本] 炼体强化，炼体觉醒脚本

[@main]
<color=green 炼体强化:>\
<color=02cbfd 炼体强化后,可以提高血量上限.>\
铜皮铁骨—〉<color=orange 强筋通脉>—〉<color=purple 金身法相>—〉<color=red 人仙之境>.每20级升境界.\
　?<本体强化[url=]/@@bodystren[/url]> <元神强化/@@bodystrensd> <color=02cbfd 提升><炼体精华/@炼体精华> <$STR(S2)>元宝=<color=red 10点.>\\
<color=green 炼体觉醒:>\
<color=02cbfd 使用药物时,可以额外回复血量和魔法值.>\
　?<本体觉醒[url=]/@@bodyrealize[/url]> <元神觉醒/@@bodyrealizesd> <color=83fd2b 增加><气 血 值/@加气血值> <$STR(S2)>元宝=<color=red 10点.>\

[@炼体精华]
#IF
CHECKGAMEGOLD < $STR(P2)
#ACT
MESSAGEBOX 　　　　　　很抱歉，您的元宝不足，无法提升炼体精华！\　　　您可以在新人练级打元宝、在线时间领元宝、装备回收等！
BREAK
#ELSEACT
queryvalue 你需要用多少个元宝，来增加炼体精华？数量为整数,例如1000...不要1111这种数! 2 8 1823
break

[@getstring1823]
#ACT
Getstring S0
GOTO @检测元宝
BREAK

[@检测元宝]
#IF
SMALL $STR(S0) $STR(P2)
#ACT
SENDMSG 7 输入的元宝数量，不能低于<<$STR(P2)>>个！
BREAK
#IF
CHECKGAMEGOLD < $STR(S0)
#ACT
SENDMSG 7 很抱歉，您身上并没有这么多元宝！！！
BREAK
#ELSEACT
MOV P1 $STR(S0)
MOV P0 $STR(P1)
DIV P1 $STR(P2)
MUL P1 10
GAMEGOLD - $STR(P0)
SETLIANTI 1 + $STR(P1)
SENDMSG 2 ?<$USERNAME>花费<<$STR(P0)>>个元宝，提升了<<$STR(P1)>>点炼体精华!
BREAK

[@加气血值]
#IF
CHECKGAMEGOLD < $STR(P2)
#ACT
MESSAGEBOX 　　　　　　很抱歉，您的元宝不足，无法提升炼体精华！\　　　您可以在新人练级打元宝、在线时间领元宝、装备回收等！
BREAK
#ELSEACT
queryvalue 你需要用多少个元宝，来增加气血值？数量为整数,如1000...不要1111这种数! 2 8 1825
break

[@getstring1825]
#ACT
Getstring S0
GOTO @气血元宝
BREAK

[@气血元宝]
#IF
SMALL $STR(S0) $STR(P2)
#ACT
SENDMSG 7 输入的元宝数量，不能低于<<$STR(P2)>>个！
BREAK
#IF
CHECKGAMEGOLD < $STR(S0)
#ACT
SENDMSG 7 很抱歉，您身上并没有这么多元宝！！！
BREAK
#ELSEACT
MOV P1 $STR(S0)
MOV P0 $STR(P1)
DIV P1 $STR(P2)
MUL P1 10
GAMEGOLD - $STR(P0)
SETLIANTI 2 + $STR(P1)
SENDMSG 2 ?<$USERNAME>花费<<$STR(P0)>>个元宝，增加了<<$STR(P1)>>点气血值!
BREAK

以下脚本添加在 QFunction-0.txt 内

[@本体炼体强化]
#CALL [\游戏功能\炼体强化.txt] @血量显示
#CALL [\游戏功能\炼体强化.txt] @lnterhack_炼体

[@元神炼体强化]
#CALL [\游戏功能\炼体强化.txt] @血量显示
#CALL [\游戏功能\炼体强化.txt] @lnterhack_炼体

[@本体炼体觉醒]
#CALL [\游戏功能\炼体觉醒.txt] @觉醒显示
#CALL [\游戏功能\炼体觉醒.txt] @lnterhack_觉醒

[@元神炼体觉醒]
#CALL [\游戏功能\炼体觉醒.txt] @觉醒显示
#CALL [\游戏功能\炼体觉醒.txt] @lnterhack_觉醒