GOM引擎剑甲洗练脚本，传奇GM版本库用专属之力洗练教程

[@main]
　\
　\
<剑甲洗练第一次免费，后面每次收取2专属之力/FCOLOR=116>\
<武器随机增加1-5点暴击几率，攻击伤害，忽视防御元素。随机1-10点攻击速度/FCOLOR=116>\
<衣服随机增加1-10点物理伤害减少，魔法伤害减少元素/FCOLOR=116>\
<ITEMBOX:0:19:1768:180:130:0:0:5,10,11:放入剑甲装备>\　\　\　\　\　\
　　　　　　　　　　　  　<开始洗练/@xl>


[@xl]
#IF
equal <$BOXITEM[0].STDMODE> 5
#ACT
GOTO @武器洗练
#IF
equal <$BOXITEM[0].STDMODE> 10
#ACT
GOTO @衣服洗练

[@武器洗练]
#IF
#ACT
CHANGEITEMADDVALUE boxitem0 0 = 0
CHANGEITEMADDVALUE boxitem0 1 = 0
CHANGEITEMADDVALUE boxitem0 2 = 0
MOVR N$随机附加1 30 100
MOVR N$随机附加2 20 60
MOVR N$随机附加3 20 60
MUL N$随机附加1 <$BOXITEM[0].HDC>
MUL N$随机附加2 <$BOXITEM[0].HMC>
MUL N$随机附加3 <$BOXITEM[0].HSC>
DIV N$随机附加1 100
DIV N$随机附加2 100
DIV N$随机附加3 100

#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 0
#ACT
MOVR S$暴击 0 5
MOVR S$速度 0 10
ChangeItemUpgradeCount boxitem0 = 9
SetNewItemValue boxitem0 0 = <$STR(S$暴击)>
SetNewItemValue boxitem0 1 = <$STR(S$暴击)>
SetNewItemValue boxitem0 4 = <$STR(S$暴击)>
CHANGEITEMADDVALUE boxitem0 6 = <$STR(S$速度)>
CHANGEITEMADDVALUE boxitem0 0 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 1 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 2 = <$STR(N$随机附加3)>
ReturnBoxItem 0
SENDMSG 6 装备洗练成功，快看看新属性吧！！！
BREAK

#IF
LARGE <$BOXITEM[0].UPGRADECOUNT> 0
LARGE U1 0
#ACT
MOVR S$暴击 0 5
MOVR S$速度 0 10
DEC U1 1
ChangeItemUpgradeCount boxitem0 = 9
SetNewItemValue boxitem0 0 = <$STR(S$暴击)>
SetNewItemValue boxitem0 1 = <$STR(S$暴击)>
SetNewItemValue boxitem0 4 = <$STR(S$暴击)>
CHANGEITEMADDVALUE boxitem0 6 = <$STR(S$速度)>
CHANGEITEMADDVALUE boxitem0 0 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 1 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 2 = <$STR(N$随机附加3)>
ReturnBoxItem 0
SENDMSG 6 装备洗练成功，快看看新属性吧！！！
#ELSEACT
SENDMSG 6 重复洗练需要一个专属之力！！！
BREAK


[@衣服洗练]
#IF
#ACT
CHANGEITEMADDVALUE boxitem0 0 = 0
CHANGEITEMADDVALUE boxitem0 1 = 0
CHANGEITEMADDVALUE boxitem0 2 = 0
CHANGEITEMADDVALUE boxitem0 3 = 0
CHANGEITEMADDVALUE boxitem0 4 = 0
MOVR N$随机附加1 30 100
MOVR N$随机附加2 5 30
MUL N$随机附加1 <$BOXITEM[0].HAC>
MUL N$随机附加2 <$BOXITEM[0].HDC>
DIV N$随机附加1 100
DIV N$随机附加2 100

#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 0
#ACT
MOVR S$减免 2 10
ChangeItemUpgradeCount boxitem0 = 9
SetNewItemValue boxitem0 2 = <$STR(S$减免)>
SetNewItemValue boxitem0 3 = <$STR(S$减免)>
CHANGEITEMADDVALUE boxitem0 0 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 1 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 2 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 3 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 4 = <$STR(N$随机附加2)>
ReturnBoxItem 0
SENDMSG 6 装备洗练成功，快看看新属性吧！！！
BREAK

#IF
LARGE <$BOXITEM[0].UPGRADECOUNT> 0
LARGE U1 0
#ACT
MOVR S$减免 2 10
DEC U1 1
ChangeItemUpgradeCount boxitem0 = 9
SetNewItemValue boxitem0 2 = <$STR(S$减免)>
SetNewItemValue boxitem0 3 = <$STR(S$减免)>
CHANGEITEMADDVALUE boxitem0 0 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 1 = <$STR(N$随机附加1)>
CHANGEITEMADDVALUE boxitem0 2 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 3 = <$STR(N$随机附加2)>
CHANGEITEMADDVALUE boxitem0 4 = <$STR(N$随机附加2)>
ReturnBoxItem 0
SENDMSG 6 装备洗练成功，快看看新属性吧！！！
#ELSEACT
SENDMSG 6 重复洗练需要一个专属之力！！！
BREAK