GOM引擎传奇装备提真脚本，传奇一条龙开区时增加属性的教程

[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 1 546 1 4 0 -80 0 543 16
#SAY
<><IMGEx:1:540:541:542:280:35/@EXIT>\
\ \ \ \
<>                    <PlayImg:32:800:10:100:-10:0:0:0>\ \ \
<>            <[攻击增加]：/SCOLOR=70>   <[40000-40000]/SCOLOR=250>  \
<>            <[魔法增加]：/SCOLOR=70>   <[40000-40000]/SCOLOR=250>  \
<>            <[道术增加]：/SCOLOR=70>   <[40000-40000]/SCOLOR=250>  \
<>            <[防御增加]：/SCOLOR=254>   <[20000-20000]/SCOLOR=250>  \
<>            <[魔御增加]：/SCOLOR=254>   <[20000-20000]/SCOLOR=250>  \
<>            <[暴击增加]：/SCOLOR=253>   <[        40%]/SCOLOR=250>  \
<>            <[伤害增加]：/SCOLOR=253>   <[        80%]/SCOLOR=250>  \
<>            <[忽视增加]：/SCOLOR=253>   <[        40%]/SCOLOR=250>  \
<>            <[爆率增加]：/SCOLOR=249>   <[      3.0倍]/SCOLOR=250>  \
<>            <[几率切割]：/SCOLOR=251>   <[  200000000]/SCOLOR=250>  \
<>            <[晋升消耗]：/SCOLOR=242>   <[  4000RMB点]/SCOLOR=250>  \ \
<>    <[极度虚弱]：/SCOLOR=128> <[攻击敌人有一定的几率使敌人陷入]/SCOLOR=249>  \
<>                 <[极度虚弱状态,攻击降为0持续5秒.]/SCOLOR=249>  \ \ \
<>                     <[晋升称号]/@1>





[@洗脸]
#act
SetUpgradeItem 1

#IF
CHECKITEM 秘银铁锤
CHECKGAMEGOLD > 4999999
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 > 0
CHECKCUSTOMITEMVALUE -1 9 > 0
#ACT
GAMEGOLD - 5000000
TAKE 秘银铁锤
MOVR M37 1 1000001
MOVR M36 6 8
MOVR M35 1 1000001
MOVR M34 6 8
MOVR M33 1 1000001
MOVR M32 6 8
MOVR M31 1 1000001
MOVR M30 6 8
MOVR M29 1 1000001
MOVR M28 6 8
MOVR M27 1 1000001
MOVR M26 6 8
MOVR M25 1 2000001
MOVR M24 6 8
MOVR M23 1 2000001
MOVR M22 6 8
MOVR M21 1 2000001
MOVR M20 6 8
CHANGECUSTOMITEMVALUE -1 0 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 0 0 224
CHANGECUSTOMITEMABIL -1 0 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 0 3 0
CHANGECUSTOMITEMVALUE -1 1 = <$STR(M35)>
CHANGECUSTOMITEMABIL -1 1 0 253
CHANGECUSTOMITEMABIL -1 1 1 <$STR(M34)>
CHANGECUSTOMITEMABIL -1 1 2 0
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMVALUE -1 2 = <$STR(M33)>
CHANGECUSTOMITEMABIL -1 2 0 251
CHANGECUSTOMITEMABIL -1 2 1 <$STR(M32)>
CHANGECUSTOMITEMABIL -1 2 2 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMVALUE -1 4 = <$STR(M31)>
CHANGECUSTOMITEMABIL -1 4 0 254
CHANGECUSTOMITEMABIL -1 4 1 <$STR(M30)>
CHANGECUSTOMITEMABIL -1 4 2 1
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMVALUE -1 5 = <$STR(M29)>
CHANGECUSTOMITEMABIL -1 5 0 242
CHANGECUSTOMITEMABIL -1 5 1 <$STR(M28)>
CHANGECUSTOMITEMABIL -1 5 2 1
CHANGECUSTOMITEMABIL -1 5 3 0
CHANGECUSTOMITEMVALUE -1 6 = <$STR(M27)>
CHANGECUSTOMITEMABIL -1 6 0 243
CHANGECUSTOMITEMABIL -1 6 1 <$STR(M26)>
CHANGECUSTOMITEMABIL -1 6 2 1
CHANGECUSTOMITEMABIL -1 6 3 0
CHANGECUSTOMITEMVALUE -1 7 = <$STR(M25)>
CHANGECUSTOMITEMABIL -1 7 0 241
CHANGECUSTOMITEMABIL -1 7 1 <$STR(M24)>
CHANGECUSTOMITEMABIL -1 7 2 2
CHANGECUSTOMITEMABIL -1 7 3 0
CHANGECUSTOMITEMVALUE -1 8 = <$STR(M23)>
CHANGECUSTOMITEMABIL -1 8 0 249
CHANGECUSTOMITEMABIL -1 8 1 <$STR(M22)>
CHANGECUSTOMITEMABIL -1 8 2 3
CHANGECUSTOMITEMABIL -1 8 3 0
CHANGECUSTOMITEMVALUE -1 9 = <$STR(M21)>
CHANGECUSTOMITEMABIL -1 9 0 246
CHANGECUSTOMITEMABIL -1 9 1 <$STR(M20)>
CHANGECUSTOMITEMABIL -1 9 2 4
CHANGECUSTOMITEMABIL -1 9 3 0
UpDateBoxItem 1
ReturnBoxItem 1
SENDMSG 6 装备洗炼成功,请查看装备属性.
#elseact
messagebox 您的装备尚未达到九次提真,或者元宝材料不足。
BREAK


[@晋阶]
#if
NOT CheckBoxItemCount 1 1
#act
messagebox 　　\\提示:\\　　　　　想啥呢？装备框没有装备你点个JB。
break

#IF
CHECKGAMEGOLD < 5000000
#act
messagebox 　　\\提示:\\　　　　　元宝不足500万。
break


#IF
#ACT
GAMEGOLD - 5000000
GOTO @提真
break




[@提真]
#act
SetUpgradeItem 1

#if
CHECKCUSTOMITEMVALUE -1 0 = 0
#act
MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 0 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 0 0 224
CHANGECUSTOMITEMABIL -1 0 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 0 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.
break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 = 0
#act
MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 1 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 1 0 253
CHANGECUSTOMITEMABIL -1 1 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 1 2 0
CHANGECUSTOMITEMABIL -1 1 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.
break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 = 0

#act

MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 2 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 2 0 251
CHANGECUSTOMITEMABIL -1 2 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 2 2 0
CHANGECUSTOMITEMABIL -1 2 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break


#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 = 0

#act

MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 4 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 4 0 254
CHANGECUSTOMITEMABIL -1 4 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 4 2 1
CHANGECUSTOMITEMABIL -1 4 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 = 0

#act

MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 5 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 5 0 242
CHANGECUSTOMITEMABIL -1 5 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 5 2 1
CHANGECUSTOMITEMABIL -1 5 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break


#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 = 0

#act

MOVR M37 1 1000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 6 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 6 0 243
CHANGECUSTOMITEMABIL -1 6 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 6 2 1
CHANGECUSTOMITEMABIL -1 6 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 = 0

#act

MOVR M37 1 2000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 7 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 7 0 241
CHANGECUSTOMITEMABIL -1 7 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 7 2 2
CHANGECUSTOMITEMABIL -1 7 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break


#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 = 0

#act

MOVR M37 1 2000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 8 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 8 0 249
CHANGECUSTOMITEMABIL -1 8 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 8 2 3
CHANGECUSTOMITEMABIL -1 8 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 > 0
CHECKCUSTOMITEMVALUE -1 9 = 0

#act

MOVR M37 1 2000001
MOVR M36 6 8
CHANGECUSTOMITEMVALUE -1 9 = <$STR(M37)>
CHANGECUSTOMITEMABIL -1 9 0 246
CHANGECUSTOMITEMABIL -1 9 1 <$STR(M36)>
CHANGECUSTOMITEMABIL -1 9 2 4
CHANGECUSTOMITEMABIL -1 9 3 0
UpDateBoxItem 1
ReturnBoxItem 1

SENDMSG 6 装备提真成功,请查看装备属性.

break

#if
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 > 0
CHECKCUSTOMITEMVALUE -1 9 > 0
#act
MESSAGEBOX 你的装备已经提真9次,无需再提真.
BREAK