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
\ \
\
\ \
<                    > \
<                    > \
<                    > \
<                    >  \
<                    >\ \
<           >                              \
\






[@kkxx]
#IF
#ACT
SetUpgradeItem 1

#IF
NOT CheckBoxItemCount 1 1
#ACT
MessageBox 请在上面框内放入需要“重洗契约”的道士武器装备！
break
#if
CheckContainsTextListEx ..\QuestDiary\装备\宝石名字.txt
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
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
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
CHECKGAMEGOLD > 999
CheckItemNameColor -1 146
#ACT
GAMEGOLD - 1000
#CALL [\装备\重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break
#ELSEACT
ReturnBoxItem 0
UpDateBoxItem 0
UpDateBoxItem 1
#ELSEACT
MESSAGEBOX 重洗失败！请确定你放入的是道士武器或者足够材料吗?

向楼主学习，不错的论坛

向楼主学习，不错的论坛

前排支持下

前排顶，很好！

路过

路过 帮顶 嘿嘿

楼下的接上

我了个去，顶了

不知道这版本怎么样，先下载玩玩