GOM引擎重洗契约脚本，传奇版本库重洗宝石鉴定命令和教程

[@main]
#IF
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
mov N99 0
mov S59 请在上面框内放入需要重洗的装备！
mov S60
mov S61
mov S62
mov N98 0
goto @zbdzao~1



[@zbdzao~1]
#IF
#ACT
OPENMERCHANTBIGDLG 22 204 1 0 1 1 1 540 0
#SAY
<Img:801:0:400:-10/@EXIT>\ \
<ITEMBOX:1:71:236:230:137:45:45:*:请放入“重洗契约”的道士武器装备>\
\ \
<                    ><蓝色道士武器装备重洗契约需求:/SCOLOR=146><1000元宝收费标准,随即鉴定/SCOLOR=108> \
<                    ><金色道士武器装备重洗契约需求:/SCOLOR=251><2000元宝收费标准,随即鉴定/SCOLOR=108> \
<                    ><紫色道士武器装备重洗契约需求:/SCOLOR=244><100炼妖币收费标准,随即鉴定/SCOLOR=108> \
<                    ><橙色道士武器装备重洗契约需求:/SCOLOR=70><200炼妖币收费标准,随即鉴定/SCOLOR=108>  \
<                    ><温馨提示:/SCOLOR=249><如果你的武器契约值+4重洗有可能变成契约值+1/SCOLOR=249>\ \
<           ><./AUTOCOLOR=0>                       <ImgEx:71:22:22:22:0:60/@kkxx>       \
\






[@kkxx]
#IF
#ACT
SetUpgradeItem 1

#IF
NOT CheckBoxItemCount 1 1
#ACT
MessageBox 请在上面框内放入需要“重洗契约”的道士武器装备！
break
#if
CheckContainsTextListEx ..\QuestDiary\装备\宝石名字.txt <$BOXITEM[1].NAME>
CHECKGAMEDIAMOND > 199
CheckItemNameColor -1 70
#ACT
GAMEDIAMOND - 200
PLAYSOUND Wav\M29-3.wav 1 4
#CALL [\装备\重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break

#if
CheckContainsTextListEx ..\QuestDiary\装备\宝石名字.txt <$BOXITEM[1].NAME>
CHECKGAMEDIAMOND > 99
CheckItemNameColor -1 244
#ACT
GAMEDIAMOND - 100
PLAYSOUND Wav\M29-3.wav 1 4
#CALL [\装备\重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break

#if
CheckContainsTextListEx ..\QuestDiary\装备\宝石名字.txt <$BOXITEM[1].NAME>
CHECKGAMEGOLD > 1999
CheckItemNameColor -1 251
#ACT
GAMEGOLD - 2000
PLAYSOUND Wav\M29-3.wav 1 4
#CALL [\装备\重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break

#if
CheckContainsTextListEx ..\QuestDiary\装备\宝石名字.txt <$BOXITEM[1].NAME>
CHECKGAMEGOLD > 999
CheckItemNameColor -1 146
#ACT
GAMEGOLD - 1000
#CALL [\装备\重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break
#ELSEACT
ReturnBoxItem 0
UpDateBoxItem 0
UpDateBoxItem 1
#ELSEACT
MESSAGEBOX 重洗失败！请确定你放入的是道士武器或者足够材料吗?