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

[@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=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张/@下一张土卡><Img:4:91:98:-140|253#　屠魔卡牌-土卡><Img:0:91:-2:-140|249#　屠魔卡牌-火卡><Img:1:91:-102:-140|254#　屠魔卡牌-水卡><Img:3:91:-202:-140|250#　屠魔卡牌-木卡><Img:<$STR(N$金卡图号)>:91:-302:-140|70#　屠魔卡牌-金卡/<$STR(S$金卡图钮)>><Img:6:91:-212:-105|250#　下一张/@下一张木卡>\
<ItemShow:<$STR(S$金卡图ID)>:1:61:-138>
[@抽金得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<屠魔卡牌分为:五张.也就是说/AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张><Img:4:91:98:-140|253#　屠魔卡牌-土卡><Img:0:91:-2:-140|249#　屠魔卡牌-火卡><Img:1:91:-102:-140|254#　屠魔卡牌-水卡><Img:3:91:-202:-140|250#　屠魔卡牌-木卡><PlayImg:91:11:3:500:-302:-140:0:1|70#　屠魔卡牌-金卡><Img:6:91:-212:-105|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$付费抽取总次 <$HUMAN(抽取次数)>
MUL N$付费抽取游戏币 100 <$STR(N$付费抽取总次)>

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


[@玩家抽取金]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$金卡物品)>
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$金卡物品)>
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt <$STR(S$金卡图ID)> <$STR(N0)>
#IF
CompareText <$STR(S$木卡图ID)> <$STR(S$金卡图ID)>
#ACT
goto @玩家抽取金
break
#IF
CompareText <$STR(S$水卡图ID)> <$STR(S$金卡图ID)>
#ACT
goto @玩家抽取金
break
#IF
CompareText <$STR(S$火卡图ID)> <$STR(S$金卡图ID)>
#ACT
goto @玩家抽取金
break
#IF
CompareText <$STR(S$土卡图ID)> <$STR(S$金卡图ID)>
#ACT
goto @玩家抽取金
break
#elseact
#IF
#ACT
set [801] 1
give <$STR(S$金卡物品)> 1
SendMsg 7 玩家：[<$USERNAME>]打开【屠魔宝箱】获得[<$STR(S$金卡物品)>]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 \　\你已经在【屠魔宝箱】抽取了[金卡牌]中的物品\　\得到[<$STR(S$金卡物品)>]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=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张/@下一张金卡><Img:2:91:98:-140|70#　屠魔卡牌-金卡><Img:4:91:-2:-140|253#　屠魔卡牌-土卡><Img:0:91:-102:-140|249#　屠魔卡牌-火卡><Img:1:91:-202:-140|254#　屠魔卡牌-水卡><Img:<$STR(N$木卡图号)>:91:-302:-140|250#　屠魔卡牌-木卡/<$STR(S$木卡图钮)>><Img:6:91:-212:-105|250#　下一张/@下一张水卡>\
<ItemShow:<$STR(S$木卡图ID)>:1:61:-138>
[@抽木得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<屠魔卡牌分为:五张.也就是说/AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张><Img:2:91:98:-140|70#　屠魔卡牌-金卡><Img:4:91:-2:-140|253#　屠魔卡牌-土卡><Img:0:91:-102:-140|249#　屠魔卡牌-火卡><Img:1:91:-202:-140|254#　屠魔卡牌-水卡><PlayImg:91:11:3:500:-302:-140:0:1|250#　屠魔卡牌-木卡><Img:6:91:-212:-105|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$付费抽取总次 <$HUMAN(抽取次数)>
MUL N$付费抽取游戏币 100 <$STR(N$付费抽取总次)>

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


[@玩家抽取木]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$木卡物品)>
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$木卡物品)>
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt <$STR(S$木卡图ID)> <$STR(N0)>
#IF
CompareText <$STR(S$金卡图ID)> <$STR(S$木卡图ID)>
#ACT
goto @玩家抽取木
break
#IF
CompareText <$STR(S$水卡图ID)> <$STR(S$木卡图ID)>
#ACT
goto @玩家抽取木
break
#IF
CompareText <$STR(S$火卡图ID)> <$STR(S$木卡图ID)>
#ACT
goto @玩家抽取木
break
#IF
CompareText <$STR(S$土卡图ID)> <$STR(S$木卡图ID)>
#ACT
goto @玩家抽取木
break
#elseact
#IF
#ACT
set [802] 1
give <$STR(S$木卡物品)> 1
SendMsg 7 玩家：[<$USERNAME>]打开【屠魔宝箱】获得[<$STR(S$木卡物品)>]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 \　\你已经在【屠魔宝箱】抽取了[木卡牌]中的物品\　\得到[<$STR(S$木卡物品)>]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=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张/@下一张木卡><Img:3:91:98:-140|250#　屠魔卡牌-木卡><Img:2:91:-2:-140|70#　屠魔卡牌-金卡><Img:4:91:-102:-140|253#　屠魔卡牌-土卡><Img:0:91:-202:-140|249#　屠魔卡牌-火卡><Img:<$STR(N$水卡图号)>:91:-302:-140|254#　屠魔卡牌-水卡/<$STR(S$水卡图钮)>><Img:6:91:-212:-105|250#　下一张/@下一张火卡>\
<ItemShow:<$STR(S$水卡图ID)>:1:61:-138>

[@抽水得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<屠魔卡牌分为:五张.也就是说/AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张><Img:3:91:98:-140|250#　屠魔卡牌-木卡><Img:2:91:-2:-140|70#　屠魔卡牌-金卡><Img:4:91:-102:-140|253#　屠魔卡牌-土卡><Img:0:91:-202:-140|249#　屠魔卡牌-火卡><PlayImg:91:11:3:500:-302:-140:0:1|254#　屠魔卡牌-水卡><Img:6:91:-212:-105|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$付费抽取总次 <$HUMAN(抽取次数)>
MUL N$付费抽取游戏币 100 <$STR(N$付费抽取总次)>

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


[@玩家抽取水]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$水卡物品)>
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$水卡物品)>
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt <$STR(S$水卡图ID)> <$STR(N0)>
#IF
CompareText <$STR(S$金卡图ID)> <$STR(S$水卡图ID)>
#ACT
goto @玩家抽取水
break
#IF
CompareText <$STR(S$木卡图ID)> <$STR(S$水卡图ID)>
#ACT
goto @玩家抽取水
break
#IF
CompareText <$STR(S$火卡图ID)> <$STR(S$水卡图ID)>
#ACT
goto @玩家抽取水
break
#IF
CompareText <$STR(S$土卡图ID)> <$STR(S$水卡图ID)>
#ACT
goto @玩家抽取水
break
#elseact
#IF
#ACT
set [803] 1
give <$STR(S$水卡物品)> 1
SendMsg 7 玩家：[<$USERNAME>]打开【屠魔宝箱】获得[<$STR(S$水卡物品)>]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 \　\你已经在【屠魔宝箱】抽取了[水卡牌]中的物品\　\得到[<$STR(S$水卡物品)>]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=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张/@下一张水卡><Img:1:91:98:-140|254#　屠魔卡牌-水卡><Img:3:91:-2:-140|250#　屠魔卡牌-木卡><Img:2:91:-102:-140|70#　屠魔卡牌-金卡><Img:4:91:-202:-140|253#　屠魔卡牌-土卡><Img:<$STR(N$火卡图号)>:91:-302:-140|249#　屠魔卡牌-火卡/<$STR(S$火卡图钮)>><Img:6:91:-212:-105|250#　下一张/@下一张土卡>\
<ItemShow:<$STR(S$火卡图ID)>:1:61:-138>

[@抽火得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<屠魔卡牌分为:五张.也就是说/AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张><Img:1:91:98:-140|254#　屠魔卡牌-水卡><Img:3:91:-2:-140|250#　屠魔卡牌-木卡><Img:2:91:-102:-140|70#　屠魔卡牌-金卡><Img:4:91:-202:-140|253#　屠魔卡牌-土卡><PlayImg:91:11:3:500:-302:-140:0:1|249#　屠魔卡牌-火卡><Img:6:91:-212:-105|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$付费抽取总次 <$HUMAN(抽取次数)>
MUL N$付费抽取游戏币 100 <$STR(N$付费抽取总次)>

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


[@玩家抽取火]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$火卡物品)>
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$火卡物品)>
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt <$STR(S$火卡图ID)> <$STR(N0)>
#IF
CompareText <$STR(S$金卡图ID)> <$STR(S$火卡图ID)>
#ACT
goto @玩家抽取火
break
#IF
CompareText <$STR(S$木卡图ID)> <$STR(S$火卡图ID)>
#ACT
goto @玩家抽取火
break
#IF
CompareText <$STR(S$水卡图ID)> <$STR(S$火卡图ID)>
#ACT
goto @玩家抽取火
break
#IF
CompareText <$STR(S$土卡图ID)> <$STR(S$火卡图ID)>
#ACT
goto @玩家抽取火
break
#elseact
#IF
#ACT
set [804] 1
give <$STR(S$火卡物品)> 1
SendMsg 7 玩家：[<$USERNAME>]打开【屠魔宝箱】获得[<$STR(S$火卡物品)>]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 \　\你已经在【屠魔宝箱】抽取了[火卡牌]中的物品\　\得到[<$STR(S$火卡物品)>]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=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张/@下一张火卡><Img:0:91:98:-140|249#　屠魔卡牌-火卡><Img:1:91:-2:-140|254#　屠魔卡牌-水卡><Img:3:91:-102:-140|250#　屠魔卡牌-木卡><Img:2:91:-202:-140|70#　屠魔卡牌-金卡><Img:<$STR(N$土卡图号)>:91:-302:-140|253#　屠魔卡牌-土卡/<$STR(S$土卡图钮)>><Img:6:91:-212:-105|250#　下一张/@下一张金卡>\
<ItemShow:<$STR(S$土卡图ID)>:1:61:-138>

[@抽土得物品]
#IF
#ACT
OPENMERCHANTBIGDLG 36 390 1 4 -30 -100 1 488 32
#SAY
　\　\　\　\　\　\　\　\　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<屠魔卡牌分为:五张.也就是说/AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<一个宝箱只能抽取五次卡牌./AUTOCOLOR=92>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第一次抽取卡牌物品是免费的./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第二次100游戏币.第三次200游戏币./AUTOCOLOR=254>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<第四次400游戏币./AUTOCOLOR=254><无限次以此类推./AUTOCOLOR=251>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　{今天抽取次数：<$HUMAN(抽取次数)>次/AUTOCOLOR=251,70,249,254,250}\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　<提示：抽取次数每隔一天清零/AUTOCOLOR=253>\ 　\
　　　　　　　　　　　　<先点击左右箭头选择不同的卡牌/AUTOCOLOR=70>       <提示：打开宝箱请尽快抽取./AUTOCOLOR=249>\
　　　　　　　　　　　　<再点击卡牌抽取卡牌中的物品/AUTOCOLOR=251>        <如果宝箱界面关闭,后果自负!/AUTOCOLOR=249>\
　　　　　　　　　<Img:5:91:8:-105|250#　上一张><Img:0:91:98:-140|249#　屠魔卡牌-火卡><Img:1:91:-2:-140|254#　屠魔卡牌-水卡><Img:3:91:-102:-140|250#　屠魔卡牌-木卡><Img:2:91:-202:-140|70#　屠魔卡牌-金卡><PlayImg:91:11:3:500:-302:-140:0:1|253#　屠魔卡牌-土卡><Img:6:91:-212:-105|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$付费抽取总次 <$HUMAN(抽取次数)>
MUL N$付费抽取游戏币 100 <$STR(N$付费抽取总次)>

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


[@玩家抽取土]
#ACT
mov N0 0
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$土卡物品)>
GetStringPos ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品.txt <$STR(S$土卡物品)>
GetRandomText ..\QuestDiary\屠魔副本\屠魔宝箱\屠魔宝箱物品ID.txt <$STR(S$土卡图ID)> <$STR(N0)>
#IF
CompareText <$STR(S$金卡图ID)> <$STR(S$土卡图ID)>
#ACT
goto @玩家抽取土
break
#IF
CompareText <$STR(S$木卡图ID)> <$STR(S$土卡图ID)>
#ACT
goto @玩家抽取土
break
#IF
CompareText <$STR(S$水卡图ID)> <$STR(S$土卡图ID)>
#ACT
goto @玩家抽取土
break
#IF
CompareText <$STR(S$火卡图ID)> <$STR(S$土卡图ID)>
#ACT
goto @玩家抽取土
break
#elseact
#IF
#ACT
set [805] 1
give <$STR(S$土卡物品)> 1
SendMsg 7 玩家：[<$USERNAME>]打开【屠魔宝箱】获得[<$STR(S$土卡物品)>]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 \　\你已经在【屠魔宝箱】抽取了[土卡牌]中的物品\　\得到[<$STR(S$土卡物品)>]x1\　\请转换其它的卡牌。