GOM引擎传奇私服版本中屠魔副本脚本 开启“屠魔宝箱”的钥匙命令

admin

                               
登录/注册后可看大图

[@main]
#IF
checkitem 屠魔令牌 1
#ACT
take 屠魔令牌 1
SET [801] 0
SET [802] 0
SET [803] 0
SET [804] 0
SET [805] 0
mov S$金卡图ID -1
mov S$木卡图ID -1
mov S$水卡图ID -1
mov S$火卡图ID -1
mov S$土卡图ID -1
CALCVAR HUMAN 抽取次数 + 0
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @下一张金卡
#elseact
MessageBox \　\〖操作提示〗：你的包裹里没有开启“屠魔宝箱”的钥匙\　\无法打开此界面.
;================================================================================================================================================================================
;================================================================================================================================================================================
;================================================================================================================================================================================
[@下一张金卡]
#IF
Check [801] 0
#ACT
mov N$金卡图号 2
mov S$金卡图钮 @抽金得物品

#IF
Check [801] 1
#ACT
mov N$金卡图号 8
mov S$金卡图钮 @抽金获得物品
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\

[@抽金得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\
#IF
#ACT
goto @屠魔卡牌抽得物品金
DELAYGOTO 1500 @下一张金卡

[@屠魔卡牌抽得物品金]
#IF
CHECKVAR HUMAN 抽取次数 = 0
#ACT
goto @免费玩家抽取0游戏币金
break
#IF
CHECKVAR HUMAN 抽取次数 > 0
#ACT
goto @付费玩家抽取游戏币金
break

[@免费玩家抽取0游戏币金]
#IF
#ACT
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取金

[@付费玩家抽取游戏币金]
#ACT
mov N$付费抽取游戏币 0
mov N$付费抽取总次 1
inc N$付费抽取总次
MUL N$付费抽取游戏币 100

#IF
CHECKGAMEDIAMOND >
#ACT
GAMEDIAMOND -
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取金
#elseact
MessageBox \　\你没有足够的游戏币无法继续抽取卡牌\　\你的游戏币必须大于游戏币


[@玩家抽取金]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt  
#IF
CompareText  
#ACT
goto @玩家抽取金
break
#IF
CompareText  
#ACT
goto @玩家抽取金
break
#IF
CompareText  
#ACT
goto @玩家抽取金
break
#IF
CompareText  
#ACT
goto @玩家抽取金
break
#elseact
#IF
#ACT
set [801] 1
give  1
SendMsg 7 玩家：[]打开【屠魔宝箱】获得[]x1
#IF
Check [801] 1
Check [802] 1
Check [803] 1
Check [804] 1
Check [805] 1
#ACT
DELAYGOTO 2500 @屠魔宝箱关闭

[@屠魔宝箱关闭]
#ACT
close
SendMsg 5 你已经成功抽取了【屠魔宝箱】的五张卡牌,【屠魔宝箱】关闭.
[@抽金获得物品]
#ACT
MessageBox \　\你已经在【屠魔宝箱】抽取了[金卡牌]中的物品\　\得到[]x1\　\请转换其它的卡牌。

;================================================================================================================================================================================
;================================================================================================================================================================================
;================================================================================================================================================================================
[@下一张木卡]
#IF
Check [802] 0
#ACT
mov N$木卡图号 3
mov S$木卡图钮 @抽木得物品

#IF
Check [802] 1
#ACT
mov N$木卡图号 8
mov S$木卡图钮 @抽木获得物品
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\

[@抽木得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\
#IF
#ACT
goto @屠魔卡牌抽得物品木
DELAYGOTO 1500 @下一张木卡

[@屠魔卡牌抽得物品木]
#IF
CHECKVAR HUMAN 抽取次数 = 0
#ACT
goto @免费玩家抽取0游戏币木
break
#IF
CHECKVAR HUMAN 抽取次数 > 0
#ACT
goto @付费玩家抽取游戏币木
break

[@免费玩家抽取0游戏币木]
#IF
#ACT
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取木

[@付费玩家抽取游戏币木]
#ACT
mov N$付费抽取游戏币 0
mov N$付费抽取总次 1
inc N$付费抽取总次
MUL N$付费抽取游戏币 100

#IF
CHECKGAMEDIAMOND >
#ACT
GAMEDIAMOND -
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取木
#elseact
MessageBox \　\你没有足够的游戏币无法继续抽取卡牌\　\你的游戏币必须大于游戏币


[@玩家抽取木]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt  
#IF
CompareText  
#ACT
goto @玩家抽取木
break
#IF
CompareText  
#ACT
goto @玩家抽取木
break
#IF
CompareText  
#ACT
goto @玩家抽取木
break
#IF
CompareText  
#ACT
goto @玩家抽取木
break
#elseact
#IF
#ACT
set [802] 1
give  1
SendMsg 7 玩家：[]打开【屠魔宝箱】获得[]x1
#IF
Check [801] 1
Check [802] 1
Check [803] 1
Check [804] 1
Check [805] 1
#ACT
DELAYGOTO 2500 @屠魔宝箱关闭

[@屠魔宝箱关闭]
#ACT
close
SendMsg 5 你已经成功抽取了【屠魔宝箱】的五张卡牌,【屠魔宝箱】关闭.
[@抽木获得物品]
#ACT
MessageBox \　\你已经在【屠魔宝箱】抽取了[木卡牌]中的物品\　\得到[]x1\　\请转换其它的卡牌。

;================================================================================================================================================================================
;================================================================================================================================================================================
;================================================================================================================================================================================
[@下一张水卡]
#IF
Check [803] 0
#ACT
mov N$水卡图号 1
mov S$水卡图钮 @抽水得物品

#IF
Check [803] 1
#ACT
mov N$水卡图号 8
mov S$水卡图钮 @抽水获得物品
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\


[@抽水得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　
#IF
#ACT
goto @屠魔卡牌抽得物品水
DELAYGOTO 1500 @下一张水卡

[@屠魔卡牌抽得物品水]
#IF
CHECKVAR HUMAN 抽取次数 = 0
#ACT
goto @免费玩家抽取0游戏币水
break
#IF
CHECKVAR HUMAN 抽取次数 > 0
#ACT
goto @付费玩家抽取游戏币水
break

[@免费玩家抽取0游戏币水]
#IF
#ACT
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取水

[@付费玩家抽取游戏币水]
#ACT
mov N$付费抽取游戏币 0
mov N$付费抽取总次 1
inc N$付费抽取总次
MUL N$付费抽取游戏币 100

#IF
CHECKGAMEDIAMOND >
#ACT
GAMEDIAMOND -
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取水
#elseact
MessageBox \　\你没有足够的游戏币无法继续抽取卡牌\　\你的游戏币必须大于游戏币


[@玩家抽取水]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt  
#IF
CompareText  
#ACT
goto @玩家抽取水
break
#IF
CompareText  
#ACT
goto @玩家抽取水
break
#IF
CompareText  
#ACT
goto @玩家抽取水
break
#IF
CompareText  
#ACT
goto @玩家抽取水
break
#elseact
#IF
#ACT
set [803] 1
give  1
SendMsg 7 玩家：[]打开【屠魔宝箱】获得[]x1
#IF
Check [801] 1
Check [802] 1
Check [803] 1
Check [804] 1
Check [805] 1
#ACT
DELAYGOTO 2500 @屠魔宝箱关闭

[@屠魔宝箱关闭]
#ACT
close
SendMsg 5 你已经成功抽取了【屠魔宝箱】的五张卡牌,【屠魔宝箱】关闭.
[@抽水获得物品]
#ACT
MessageBox \　\你已经在【屠魔宝箱】抽取了[水卡牌]中的物品\　\得到[]x1\　\请转换其它的卡牌。

;================================================================================================================================================================================
;================================================================================================================================================================================
;================================================================================================================================================================================
[@下一张火卡]
#IF
Check [804] 0
#ACT
mov N$火卡图号 0
mov S$火卡图钮 @抽火得物品

#IF
Check [804] 1
#ACT
mov N$火卡图号 8
mov S$火卡图钮 @抽火获得物品
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\


[@抽火得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\
#IF
#ACT
goto @屠魔卡牌抽得物品火
DELAYGOTO 1500 @下一张火卡

[@屠魔卡牌抽得物品火]
#IF
CHECKVAR HUMAN 抽取次数 = 0
#ACT
goto @免费玩家抽取0游戏币火
break
#IF
CHECKVAR HUMAN 抽取次数 > 0
#ACT
goto @付费玩家抽取游戏币火
break

[@免费玩家抽取0游戏币火]
#IF
#ACT
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取火

[@付费玩家抽取游戏币火]
#ACT
mov N$付费抽取游戏币 0
mov N$付费抽取总次 1
inc N$付费抽取总次
MUL N$付费抽取游戏币 100

#IF
CHECKGAMEDIAMOND >
#ACT
GAMEDIAMOND -
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取火
#elseact
MessageBox \　\你没有足够的游戏币无法继续抽取卡牌\　\你的游戏币必须大于游戏币


[@玩家抽取火]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt  
#IF
CompareText  
#ACT
goto @玩家抽取火
break
#IF
CompareText  
#ACT
goto @玩家抽取火
break
#IF
CompareText  
#ACT
goto @玩家抽取火
break
#IF
CompareText  
#ACT
goto @玩家抽取火
break
#elseact
#IF
#ACT
set [804] 1
give  1
SendMsg 7 玩家：[]打开【屠魔宝箱】获得[]x1
#IF
Check [801] 1
Check [802] 1
Check [803] 1
Check [804] 1
Check [805] 1
#ACT
DELAYGOTO 2500 @屠魔宝箱关闭

[@屠魔宝箱关闭]
#ACT
close
SendMsg 5 你已经成功抽取了【屠魔宝箱】的五张卡牌,【屠魔宝箱】关闭.
[@抽火获得物品]
#ACT
MessageBox \　\你已经在【屠魔宝箱】抽取了[火卡牌]中的物品\　\得到[]x1\　\请转换其它的卡牌。

;================================================================================================================================================================================
;================================================================================================================================================================================
;================================================================================================================================================================================
[@下一张土卡]
#IF
Check [805] 0
#ACT
mov N$土卡图号 4
mov S$土卡图钮 @抽土得物品

#IF
Check [805] 1
#ACT
mov N$土卡图号 8
mov S$土卡图钮 @抽土获得物品
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\


[@抽土得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　\ 　\
　　　　　　　　　　　　       \
　　　　　　　　　　　　        \
　　　　　　　　　\
#IF
#ACT
goto @屠魔卡牌抽得物品土
DELAYGOTO 1500 @下一张土卡

[@屠魔卡牌抽得物品土]
#IF
CHECKVAR HUMAN 抽取次数 = 0
#ACT
goto @免费玩家抽取0游戏币土
break
#IF
CHECKVAR HUMAN 抽取次数 > 0
#ACT
goto @付费玩家抽取游戏币土
break

[@免费玩家抽取0游戏币土]
#IF
#ACT
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取土

[@付费玩家抽取游戏币土]
#ACT
mov N$付费抽取游戏币 0
mov N$付费抽取总次 1
inc N$付费抽取总次
MUL N$付费抽取游戏币 100

#IF
CHECKGAMEDIAMOND >
#ACT
GAMEDIAMOND -
CALCVAR HUMAN 抽取次数 + 1
SAVEVAR HUMAN 抽取次数 ..\QuestDiary\屠魔副本\抽取次数.txt
goto @玩家抽取土
#elseact
MessageBox \　\你没有足够的游戏币无法继续抽取卡牌\　\你的游戏币必须大于游戏币


[@玩家抽取土]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt  
#IF
CompareText  
#ACT
goto @玩家抽取土
break
#IF
CompareText  
#ACT
goto @玩家抽取土
break
#IF
CompareText  
#ACT
goto @玩家抽取土
break
#IF
CompareText  
#ACT
goto @玩家抽取土
break
#elseact
#IF
#ACT
set [805] 1
give  1
SendMsg 7 玩家：[]打开【屠魔宝箱】获得[]x1
#IF
Check [801] 1
Check [802] 1
Check [803] 1
Check [804] 1
Check [805] 1
#ACT
DELAYGOTO 2500 @屠魔宝箱关闭

[@屠魔宝箱关闭]
#ACT
close
SendMsg 5 你已经成功抽取了【屠魔宝箱】的五张卡牌,【屠魔宝箱】关闭.
[@抽土获得物品]
#ACT
MessageBox \　\你已经在【屠魔宝箱】抽取了[土卡牌]中的物品\　\得到[]x1\　\请转换其它的卡牌。


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！