任逍遥

 找回密码
 立即注册
查看: 29185|回复: 87

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

    [复制链接]
  • TA的每日心情
    慵懒
    2021-10-18 03:30
  • 签到天数: 89 天

    连续签到: 1 天

    [LV.6]元神初具

    695

    主题

    751

    帖子

    2368

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2368
    发表于 2020-2-14 06:09:00 | 显示全部楼层 |阅读模式

    马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    [@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\ \请转换其它的卡牌。

    楼主热帖
  • TA的每日心情
    慵懒
    2019-8-30 16:16
  • 签到天数: 458 天

    连续签到: 2 天

    [LV.9]妙领天机

    1

    主题

    2908

    帖子

    2910

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2910
    发表于 2020-2-14 14:00:32 | 显示全部楼层
    珍爱生命,果断回帖。
    回复

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-8-27 20:01
  • 签到天数: 447 天

    连续签到: 5 天

    [LV.9]妙领天机

    3

    主题

    2941

    帖子

    2939

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2939
    发表于 2020-2-16 18:29:13 | 显示全部楼层
    不错 支持下
    回复

    使用道具 举报

  • TA的每日心情
    无聊
    2019-8-28 16:16
  • 签到天数: 469 天

    连续签到: 6 天

    [LV.9]妙领天机

    3

    主题

    2835

    帖子

    2836

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2836
    发表于 2020-2-23 23:11:24 | 显示全部楼层
    支持,赞一个
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-28 05:28
  • 签到天数: 467 天

    连续签到: 2 天

    [LV.9]妙领天机

    1

    主题

    2952

    帖子

    2950

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2950
    发表于 2020-3-7 04:54:06 | 显示全部楼层
    为保住菊花,这个一定得回复!
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2019-8-30 13:32
  • 签到天数: 460 天

    连续签到: 6 天

    [LV.9]妙领天机

    8

    主题

    2887

    帖子

    2893

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2893
    发表于 2020-3-14 09:44:12 | 显示全部楼层
    看帖要回,回帖才健康,在踩踩,楼主辛苦了!
    回复

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-8-30 15:02
  • 签到天数: 469 天

    连续签到: 3 天

    [LV.9]妙领天机

    5

    主题

    2943

    帖子

    2946

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2946
    发表于 2020-3-24 05:32:03 | 显示全部楼层
    回个帖子,下班咯~
    回复

    使用道具 举报

  • TA的每日心情
    难过
    2019-8-30 19:38
  • 签到天数: 468 天

    连续签到: 5 天

    [LV.9]妙领天机

    1

    主题

    2901

    帖子

    2901

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2901
    发表于 2020-3-26 07:11:15 | 显示全部楼层
    路过 帮顶 嘿嘿
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-30 13:42
  • 签到天数: 492 天

    连续签到: 8 天

    [LV.9]妙领天机

    14

    主题

    2980

    帖子

    2989

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2989
    发表于 2020-3-28 22:25:03 | 显示全部楼层
    纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2019-8-30 04:07
  • 签到天数: 472 天

    连续签到: 10 天

    [LV.9]妙领天机

    6

    主题

    2915

    帖子

    2916

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2916
    发表于 2020-4-1 08:04:51 | 显示全部楼层
    好,很好,非常好!
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|小黑屋|任逍遥

    GMT+8, 2024-5-6 01:33 , Processed in 0.075601 second(s), 46 queries .

    Powered by 任逍遥 X3.4

    Copyright © 2001-2023, Rxiaoyao Cloud.

    快速回复 返回顶部 返回列表