Gom引擎脚本-装备重生使者

[@main]
\  \  \
　　<2017最火爆传奇私服，<$SERVERNAME>，经典制作，超级耐玩/AUTOCOLOR=253,250,254,249>\  
　　<$USERNAME>你好，,欢迎来到<$SERVERNAME>，很高兴为您服务\\
　　<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
　　<原非极品装备重生后恢复初始【未鉴定】状态，可重新穿戴属性>\
　　<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
　　　　　　　　<我已经准备好将装备重生.|^装备颜色　　元宝数量^红色装备　　　500元宝^粉色装备　　　400元宝^蓝色装备　　　300元宝^黄色装备　　　200元宝^金色装备　　　100元宝/@重生装备>  \
　　<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\



[@重生装备]
#if
#ACT
OPENUPGRADEDLG 装备重生

[@UpgradeDlgItem]


#if
CheckItemNameColor -1 251
CHECKGaMEGOLD > 199
#ACT
GaMEGOLD - 200
mov S22 <$DLGITEM.NAME>
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 6 = 0
CHANGEITEMADDVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0

SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
SetNewItemValue -1 7 = 0
SetNewItemValue -1 8 = 0
SetNewItemValue -1 9 = 0
SetNewItemValue -1 10 = 0
;ChangeItemNameColor -1 255
ChangeItemName -1 <$STR(S22)>
CHANGEITEMUPGRADECOUNT -1 = 0
GOTO @暴击
;RECLAIMITEM
;Close
SendMsg 5 你的装备已恢复到未鉴定状态
break




#if
CheckItemNameColor -1 252
CHECKGaMEGOLD > 299
#ACT
GaMEGOLD - 300
mov S22 <$DLGITEM.NAME>
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 6 = 0
CHANGEITEMADDVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0

SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
SetNewItemValue -1 7 = 0
SetNewItemValue -1 8 = 0
SetNewItemValue -1 9 = 0
SetNewItemValue -1 10 = 0
;ChangeItemNameColor -1 255
ChangeItemName -1 <$STR(S22)>
CHANGEITEMUPGRADECOUNT -1 = 0
GOTO @暴击
;RECLAIMITEM
;Close
SendMsg 5 你的装备已恢复到未鉴定状态
break


#if
CheckItemNameColor -1 253
CHECKGaMEGOLD > 399
#ACT
GaMEGOLD - 400
mov S22 <$DLGITEM.NAME>
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 6 = 0
CHANGEITEMADDVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0

SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
SetNewItemValue -1 7 = 0
SetNewItemValue -1 8 = 0
SetNewItemValue -1 9 = 0
SetNewItemValue -1 10 = 0
;ChangeItemNameColor -1 255
ChangeItemName -1 <$STR(S22)>
CHANGEITEMUPGRADECOUNT -1 = 0
GOTO @暴击
;RECLAIMITEM
;Close
SendMsg 5 你的装备已恢复到未鉴定状态
break

#if
CheckItemNameColor -1 249
CHECKGaMEGOLD > 499
#ACT
GaMEGOLD - 500
mov S22 <$DLGITEM.NAME>
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 6 = 0
CHANGEITEMADDVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0

SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
SetNewItemValue -1 7 = 0
SetNewItemValue -1 8 = 0
SetNewItemValue -1 9 = 0
SetNewItemValue -1 10 = 0
;ChangeItemNameColor -1 255
ChangeItemName -1 <$STR(S22)>
CHANGEITEMUPGRADECOUNT -1 = 0
GOTO @暴击
;RECLAIMITEM
;Close
SendMsg 5 你的装备已恢复到未鉴定状态
break

#if
CheckItemNameColor -1 243
CHECKGaMEGOLD > 99
#ACT
GaMEGOLD - 100
mov S22 <$DLGITEM.NAME>
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 6 = 0
CHANGEITEMADDVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0

SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
SetNewItemValue -1 5 = 0
SetNewItemValue -1 6 = 0
SetNewItemValue -1 7 = 0
SetNewItemValue -1 8 = 0
SetNewItemValue -1 9 = 0
SetNewItemValue -1 10 = 0
;ChangeItemNameColor -1 255
ChangeItemName -1 <$STR(S22)>
CHANGEITEMUPGRADECOUNT -1 = 0
GOTO @暴击
;RECLAIMITEM
;Close
SendMsg 5 你的装备已恢复到未鉴定状态
break

#elseact
RECLAIMITEM
MESSAGEBOX 你的元宝不足或者此装备无法重生！[所需元宝是按鉴定的装备颜色收费]



[@暴击]
#if
random 80
#act
SetNewItemValue -1 0 = 5
ChangeItemUpgradeCount 0 = 50
ChangeItemUpgradeCount -1 = 5
RECLAIMITEM
break

#if
random 60
#act
SetNewItemValue -1 0 = 4
ChangeItemUpgradeCount -1 = 4
RECLAIMITEM
break

#if
random 30
#act
SetNewItemValue -1 0 = 3
ChangeItemUpgradeCount -1 = 3
RECLAIMITEM
break

#if
random 5
#act
SetNewItemValue -1 0 = 2
ChangeItemUpgradeCount -1 = 2
RECLAIMITEM
break

#if
random 2
#act
SetNewItemValue -1 0 = 1
ChangeItemUpgradeCount -1 = 1
RECLAIMITEM
break

#if
random 1
#act
SetNewItemValue -1 0 = 0
ChangeItemUpgradeCount -1 = 0
RECLAIMITEM
break