貊桔错 发表于 4 天前

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 重洗失败！请确定你放入的是道士武器或者足够材料吗?

虎克合击 发表于 4 天前

向楼主学习，不错的论坛

仙剑伏魔传 发表于 4 天前

向楼主学习，不错的论坛

傅大哥 发表于 4 天前

前排支持下

勇者大陆 发表于 4 天前

前排顶，很好！

wololn 发表于 4 天前

路过

最强浪剑专属 发表于 4 天前

路过 帮顶 嘿嘿

云隐之城 发表于 4 天前

楼下的接上

情缘迷失 发表于 4 天前

我了个去，顶了

正版烈斩 发表于 4 天前

不知道这版本怎么样，先下载玩玩
页: [1] 2 3 4
查看完整版本: GOM引擎重洗契约脚本，传奇版本库重洗宝石鉴定命令和教程