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 WavM29-3.wav 1 4
#CALL [装备重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break
#if
CheckContainsTextListEx ..QuestDiary装备宝石名字.txt
CHECKGAMEDIAMOND > 99
CheckItemNameColor -1 244
#ACT
GAMEDIAMOND - 100
PLAYSOUND WavM29-3.wav 1 4
#CALL [装备重洗宝石鉴定.txt] @重洗宝石鉴定
UpDateBoxItem 0
UpDateBoxItem 1
break
#if
CheckContainsTextListEx ..QuestDiary装备宝石名字.txt
CHECKGAMEGOLD > 1999
CheckItemNameColor -1 251
#ACT
GAMEGOLD - 2000
PLAYSOUND WavM29-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 重洗失败!请确定你放入的是道士武器或者足够材料吗?
[/td][/tr] |