登录
×
  • 首页
  • 传奇论坛
  • 传奇版本库
  • 传奇服务端
  • 传奇三端手游
  • 传奇素材网
  • 传奇客户端
  • 引擎登录器
  • 下载排行
  • 获取邀请码
  • 搜索
    传奇素材网
    109254

    [GOM引擎] GOM钻石卡牌系统脚本,GOM传奇一条龙开区时黄金卡牌奖励脚本

     火... [复制链接]

    [GOM引擎] GOM钻石卡牌系统脚本,GOM传奇一条龙开区时黄金卡牌奖励脚本

     火... [复制链接]
    趣游论坛

    1万

    主题

    204

    回帖

    11万

    积分

    管理员

    积分
    113598

    灌水之王活跃会员突出贡献优秀版主荣誉管理论坛元老

    趣游论坛 2019-7-11 07:11:11 / 显示全部楼层 /阅读模式
    109254
    20190710133634.png

    [@钻石系统]
    {
    #act
    CALCVAR HUMAN 塔层数 + 1
    SAVEVAR HUMAN 塔层数 ..\QuestDiary\塔数据\当前层数.txt
    goto @塔更新
    goto @奖励_0a



    [@奖励_0a]
    #act
    ;goto @醉仙阁天数
    MOV S$排行奖励一 真·轩辕宝箱3个
    MOV S$排行奖励二 真·轩辕宝箱2个
    MOV S$排行奖励三 真·轩辕宝箱1个
    SendCenterMsg 245 0 醉仙阁任务完成,请选择您需要的奖励~!使用酒鬼币还可额外获得一个黄金卡牌奖励! 5 30 @不执行
    Mov S$卡牌备注 255#卡牌按编号数(1-4)号为通关奖励卡牌(免费选择一个)!
    Inc S$卡牌备注 ^151#卡牌按编号数(5-8)号为通关黄金卡牌(100酒鬼币可打开一个)!
    Inc S$卡牌备注 ^151#卡牌按编号数(9-12)号为通关钻石卡牌(1000酒鬼币可打开一个)!

    MOV S$奖励卡牌 255#卡牌类型:奖励卡牌
    INC S$奖励卡牌 ^255#[点击获得卡牌背后的奖励]
    MOV S$黄金卡牌 151#卡牌类型:奖励黄金
    INC S$黄金卡牌 ^151#奖励极品几率是奖励卡牌的两倍!
    INC S$黄金卡牌 ^151#点击获取卡牌背后的奖励,收费100酒鬼币!
    MOV S$钻石卡牌 151#卡牌类型:奖励黄金
    INC S$钻石卡牌 ^151#奖励极品几率是黄金卡牌的十倍!
    INC S$钻石卡牌 ^151#点击获取钻石卡牌背后的奖励,收费1000酒鬼币!



    Mov S$奖励卡牌显示 <Img:472:17:180:14|<$str(S$奖励卡牌)>/@卡牌奖励_0a>
    inc S$奖励卡牌显示 <Img:472:17:250:14|<$str(S$奖励卡牌)>/@卡牌奖励_0b>
    inc S$奖励卡牌显示 <Img:472:17:320:14|<$str(S$奖励卡牌)>/@卡牌奖励_0c>
    inc S$奖励卡牌显示 <Img:472:17:390:14|<$str(S$奖励卡牌)>/@卡牌奖励_0d>
    Mov S$黄金卡牌显示 <Img:474:17:180:104|<$str(S$黄金卡牌)>/@黄金奖励_0a>
    Inc S$黄金卡牌显示 <Img:474:17:250:104|<$str(S$黄金卡牌)>/@黄金奖励_0b>
    Inc S$黄金卡牌显示 <Img:474:17:320:104|<$str(S$黄金卡牌)>/@黄金奖励_0c>
    Inc S$黄金卡牌显示 <Img:474:17:390:104|<$str(S$黄金卡牌)>/@黄金奖励_0d>

    Mov S$钻石卡牌显示 <Img:474:17:180:195|<$str(S$钻石卡牌)>/@钻石奖励_01>
    Inc S$钻石卡牌显示 <Img:474:17:250:195|<$str(S$钻石卡牌)>/@钻石奖励_02>
    Inc S$钻石卡牌显示 <Img:474:17:320:195|<$str(S$钻石卡牌)>/@钻石奖励_03>
    Inc S$钻石卡牌显示 <Img:474:17:390:195|<$str(S$钻石卡牌)>/@钻石奖励_04>



    Mov S$奖励卡牌显示文字一
    Mov S$奖励卡牌显示文字二
    Mov S$奖励卡牌显示文字三
    Mov S$奖励卡牌显示文字四
    Mov S$黄金卡牌显示文字一
    Mov S$黄金卡牌显示文字二
    Mov S$黄金卡牌显示文字三
    Mov S$黄金卡牌显示文字四

    Mov S$钻石卡牌显示文字一
    Mov S$钻石卡牌显示文字二
    Mov S$钻石卡牌显示文字三
    Mov S$钻石卡牌显示文字四


    goto @奖励_aa

    [@奖励_aa]
    #act
    OPENMERCHANTBIGDLG 17 467 1 4 0 -100 0
    SetStringBlank <$STR(S$奖励卡牌显示文字一)> 12 1
    SetStringBlank <$STR(S$奖励卡牌显示文字二)> 12 1
    SetStringBlank <$STR(S$奖励卡牌显示文字三)> 12 1
    SetStringBlank <$STR(S$奖励卡牌显示文字四)> 12 1
    SetStringBlank <$STR(S$黄金卡牌显示文字一)> 12 1
    SetStringBlank <$STR(S$黄金卡牌显示文字二)> 12 1
    SetStringBlank <$STR(S$黄金卡牌显示文字三)> 12 1
    SetStringBlank <$STR(S$黄金卡牌显示文字四)> 12 1
    SetStringBlank <$STR(S$钻石卡牌显示文字一)> 12 1
    SetStringBlank <$STR(S$钻石卡牌显示文字二)> 12 1
    SetStringBlank <$STR(S$钻石卡牌显示文字三)> 12 1
    SetStringBlank <$STR(S$钻石卡牌显示文字四)> 12 1




    #say
    \ <Img:13:17:700:70/@exit>\ \ \ \ \
    \                                <卡牌奖励说明!|<$str(S$卡牌备注)>/FCOLOR=245><PlayImg:17:78:2:100:2:-5:0|<$str(S$卡牌备注)>>
    \                                <鼠标移至此处查看|<$str(S$卡牌备注)>/FCOLOR=133>
    \<$str(S$奖励卡牌显示)>
    \<$str(S$黄金卡牌显示)>
    \<$str(S$钻石卡牌显示)>\ \
    \                               {<$str(S$奖励卡牌显示文字一)>         <$str(S$奖励卡牌显示文字二)>           <$str(S$奖励卡牌显示文字三)>          <$str(S$奖励卡牌显示文字四)>/FCOLOR=222}
    \ \ \ \ \ \ \
    \                               {<$str(S$黄金卡牌显示文字一)>         <$str(S$黄金卡牌显示文字二)>           <$str(S$黄金卡牌显示文字三)>          <$str(S$黄金卡牌显示文字四)>/FCOLOR=151}
    \ \ \ \ \ \ \
    \                               {<$str(S$钻石卡牌显示文字一)>         <$str(S$钻石卡牌显示文字二)>           <$str(S$钻石卡牌显示文字三)>          <$str(S$钻石卡牌显示文字四)>/FCOLOR=151}


    [@卡牌奖励_0a]
    #act
    MOV S$奖励卡牌 249#很遗憾您没有选择此卡牌
    Mov S$奖励卡牌显示 <Img:471:17:180:14>
    inc S$奖励卡牌显示 <Img:471:17:250:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:320:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:390:14|<$str(S$奖励卡牌)>>
    Inc S$奖励卡牌显示 <Img:456:17:-70:18>
    Inc S$奖励卡牌显示 <Img:457:17:-22:31>
    Inc S$奖励卡牌显示 <Img:457:17:3:31>
    Inc S$奖励卡牌显示 <Img:457:17:30:31>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励给.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S3)>
    give <$STR(S0)> 1
    Mov S$奖励卡牌显示文字一 <$STR(S0)>
    Mov S$奖励卡牌显示文字二 <$STR(S1)>
    Mov S$奖励卡牌显示文字三 <$STR(S2)>
    Mov S$奖励卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层获得奖励:{<$STR(S0)>|245:0:1}
    goto @奖励_aa

    [@卡牌奖励_0b]
    #act
    MOV S$奖励卡牌 249#很遗憾您没有选择此卡牌
    Mov S$奖励卡牌显示 <Img:471:17:180:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:250:14>
    inc S$奖励卡牌显示 <Img:471:17:320:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:390:14|<$str(S$奖励卡牌)>>
    Inc S$奖励卡牌显示 <Img:457:17:-90:31>
    Inc S$奖励卡牌显示 <Img:456:17:-40:18>
    Inc S$奖励卡牌显示 <Img:457:17:3:31>
    Inc S$奖励卡牌显示 <Img:457:17:30:31>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励给.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S3)>
    give <$STR(S1)> 1
    Mov S$奖励卡牌显示文字一 <$STR(S0)>
    Mov S$奖励卡牌显示文字二 <$STR(S1)>
    Mov S$奖励卡牌显示文字三 <$STR(S2)>
    Mov S$奖励卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层获得奖励:{<$STR(S1)>|245:0:1}
    goto @奖励_aa

    [@卡牌奖励_0c]
    #act
    MOV S$奖励卡牌 249#很遗憾您没有选择此卡牌
    Mov S$奖励卡牌显示 <Img:471:17:180:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:250:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:320:14>
    inc S$奖励卡牌显示 <Img:471:17:390:14|<$str(S$奖励卡牌)>>
    Inc S$奖励卡牌显示 <Img:457:17:-90:31>
    Inc S$奖励卡牌显示 <Img:457:17:-70:31>
    Inc S$奖励卡牌显示 <Img:456:17:-20:18>
    Inc S$奖励卡牌显示 <Img:457:17:30:31>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励给.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S3)>
    give <$STR(S2)> 1
    Mov S$奖励卡牌显示文字一 <$STR(S0)>
    Mov S$奖励卡牌显示文字二 <$STR(S1)>
    Mov S$奖励卡牌显示文字三 <$STR(S2)>
    Mov S$奖励卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层获得奖励:{<$STR(S2)>|245:0:1}
    goto @奖励_aa

    [@卡牌奖励_0d]
    #act
    MOV S$奖励卡牌 249#很遗憾您没有选择此卡牌
    Mov S$奖励卡牌显示 <Img:471:17:180:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:250:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:320:14|<$str(S$奖励卡牌)>>
    inc S$奖励卡牌显示 <Img:471:17:390:14>
    Inc S$奖励卡牌显示 <Img:457:17:-90:31>
    Inc S$奖励卡牌显示 <Img:457:17:-65:31>
    Inc S$奖励卡牌显示 <Img:457:17:-35:31>
    Inc S$奖励卡牌显示 <Img:456:17:15:18>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励给.txt <$STR(S3)>
    give <$STR(S3)> 1
    Mov S$奖励卡牌显示文字一 <$STR(S0)>
    Mov S$奖励卡牌显示文字二 <$STR(S1)>
    Mov S$奖励卡牌显示文字三 <$STR(S2)>
    Mov S$奖励卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层获得奖励:{<$STR(S3)>|245:0:1}
    goto @奖励_aa



    [@黄金奖励_0d]
    #if
    CHECKCREDITPOINT < 100
    #act
    messagebox 您的酒鬼币不足100..请充值!
    break
    #if
    CHECKLEVELEX > 0
    #act
    MOV S$黄金卡牌 151#很遗憾您没有选择此卡牌
    Mov S$黄金卡牌显示 <Img:473:17:180:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:250:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:320:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:390:105>
    Inc S$黄金卡牌显示 <Img:457:17:-90:115>
    Inc S$黄金卡牌显示 <Img:457:17:-65:115>
    Inc S$黄金卡牌显示 <Img:457:17:-35:115>
    Inc S$黄金卡牌显示 <Img:456:17:15:115>

    #if
    CHECKLEVELEX > 0
    #act
    CREDITPOINT - 100
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金给.txt <$STR(S3)>
    give <$STR(S3)> 1
    Mov S$黄金卡牌显示文字一 <$STR(S0)>
    Mov S$黄金卡牌显示文字二 <$STR(S1)>
    Mov S$黄金卡牌显示文字三 <$STR(S2)>
    Mov S$黄金卡牌显示文字四 <$STR(S3)>
    GetListString ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt 0 N1
    inc N1 1
    AddTextListEx ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt <$STR(N1)> 0
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{黄金卡牌|151:0:1}获得奖励:{<$STR(S3)>|245:0:1}
    goto @奖励_aa


    [@黄金奖励_0c]
    #if
    CHECKCREDITPOINT < 100
    #act
    messagebox 您的酒鬼币不足100..请充值!
    break
    #if
    CHECKLEVELEX > 0
    #act
    MOV S$黄金卡牌 151#很遗憾您没有选择此卡牌
    Mov S$黄金卡牌显示 <Img:473:17:180:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:250:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:320:105>
    Inc S$黄金卡牌显示 <Img:473:17:390:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:457:17:-90:115>
    Inc S$黄金卡牌显示 <Img:457:17:-70:115>
    Inc S$黄金卡牌显示 <Img:456:17:-20:115>
    Inc S$黄金卡牌显示 <Img:457:17:30:115>


    #if
    CHECKLEVELEX > 0
    #act
    CREDITPOINT - 100
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金给.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S3)>
    give <$STR(S2)> 1
    Mov S$黄金卡牌显示文字一 <$STR(S0)>
    Mov S$黄金卡牌显示文字二 <$STR(S1)>
    Mov S$黄金卡牌显示文字三 <$STR(S2)>
    Mov S$黄金卡牌显示文字四 <$STR(S3)>
    GetListString ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt 0 N1
    inc N1 1
    AddTextListEx ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt <$STR(N1)> 0
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{黄金卡牌|151:0:1}获得奖励:{<$STR(S2)>|245:0:1}
    goto @奖励_aa




    [@黄金奖励_0b]
    #if
    CHECKCREDITPOINT < 100
    #act
    messagebox 您的酒鬼币不足100..请充值!
    break
    #if
    CHECKLEVELEX > 0
    #act
    MOV S$黄金卡牌 151#很遗憾您没有选择此卡牌
    Mov S$黄金卡牌显示 <Img:473:17:180:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:250:105>
    Inc S$黄金卡牌显示 <Img:473:17:320:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:390:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:457:17:-90:115>
    Inc S$黄金卡牌显示 <Img:456:17:-40:115>
    Inc S$黄金卡牌显示 <Img:457:17:3:115>
    Inc S$黄金卡牌显示 <Img:457:17:30:115>


    #if
    CHECKLEVELEX > 0
    #act
    CREDITPOINT - 100
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金给.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S3)>
    give <$STR(S1)> 1
    Mov S$黄金卡牌显示文字一 <$STR(S0)>
    Mov S$黄金卡牌显示文字二 <$STR(S1)>
    Mov S$黄金卡牌显示文字三 <$STR(S2)>
    Mov S$黄金卡牌显示文字四 <$STR(S3)>
    GetListString ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt 0 N1
    inc N1 1
    AddTextListEx ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt <$STR(N1)> 0
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{黄金卡牌|151:0:1}获得奖励:{<$STR(S1)>|245:0:1}
    goto @奖励_aa
    goto @p_aiming
    goto @p_qingli


    [@黄金奖励_0a]
    #if
    CHECKCREDITPOINT < 100
    #act
    messagebox 您的酒鬼币不足100..请充值!
    break
    #if
    CHECKLEVELEX > 0
    #act
    MOV S$黄金卡牌 151#很遗憾您没有选择此卡牌
    Mov S$黄金卡牌显示 <Img:473:17:180:105>
    Inc S$黄金卡牌显示 <Img:473:17:250:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:320:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:473:17:390:105|<$str(S$黄金卡牌)>>
    Inc S$黄金卡牌显示 <Img:456:17:-70:115>
    Inc S$黄金卡牌显示 <Img:457:17:-22:115>
    Inc S$黄金卡牌显示 <Img:457:17:3:115>
    Inc S$黄金卡牌显示 <Img:457:17:30:115>


    #if
    CHECKLEVELEX > 0
    #act
    CREDITPOINT - 100
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金给.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励黄金显示.txt <$STR(S3)>
    give <$STR(S0)> 1
    Mov S$黄金卡牌显示文字一 <$STR(S0)>
    Mov S$黄金卡牌显示文字二 <$STR(S1)>
    Mov S$黄金卡牌显示文字三 <$STR(S2)>
    Mov S$黄金卡牌显示文字四 <$STR(S3)>
    GetListString ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt 0 N1
    inc N1 1
    AddTextListEx ..\QuestDiary\塔数据\黄金牌子\<$USERNAME>.txt <$STR(N1)> 0
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{黄金卡牌|151:0:1}获得奖励:{<$STR(S0)>|245:0:1}
    goto @奖励_aa










    [@钻石奖励_04]
    #if
    CHECKCREDITPOINT > 1000
    #act
    CREDITPOINT - 1000
    #ELSEACT
    messagebox 你酒鬼币不足!
    BREAK

    #if
    CHECKLEVELEX > 0
    #act
    MOV S$钻石卡牌 151#很遗憾您没有选择此卡牌
    Mov S$钻石卡牌显示 <Img:475:17:180:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:475:17:250:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:475:17:320:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:475:17:390:198>
    Inc S$钻石卡牌显示 <Img:457:17:-90:205>
    Inc S$钻石卡牌显示 <Img:457:17:-65:205>
    Inc S$钻石卡牌显示 <Img:457:17:-35:205>
    Inc S$钻石卡牌显示 <Img:456:17:15:199>

    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石给.txt <$STR(S3)>
    give <$STR(S3)> 1
    Mov S$钻石卡牌显示文字一 <$STR(S0)>
    Mov S$钻石卡牌显示文字二 <$STR(S1)>
    Mov S$钻石卡牌显示文字三 <$STR(S2)>
    Mov S$钻石卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{钻石卡牌|151:0:1}获得奖励:{<$STR(S3)>|245:0:1}
    goto @奖励_aa


    [@钻石奖励_03]
    #if
    CHECKCREDITPOINT > 1000
    #act
    CREDITPOINT - 1000
    #ELSEACT
    messagebox 你酒鬼币不足!
    BREAK

    #if
    CHECKLEVELEX > 0
    #act
    MOV S$钻石卡牌 151#很遗憾您没有选择此卡牌
    Mov S$钻石卡牌显示 <Img:473:17:180:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:250:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:320:198>
    Inc S$钻石卡牌显示 <Img:473:17:390:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:457:17:-90:205>
    Inc S$钻石卡牌显示 <Img:457:17:-70:205>
    Inc S$钻石卡牌显示 <Img:456:17:-20:199>
    Inc S$钻石卡牌显示 <Img:457:17:30:205>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石给.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S3)>
    give <$STR(S2)> 1
    Mov S$钻石卡牌显示文字一 <$STR(S0)>
    Mov S$钻石卡牌显示文字二 <$STR(S1)>
    Mov S$钻石卡牌显示文字三 <$STR(S2)>
    Mov S$钻石卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{钻石卡牌|151:0:1}获得奖励:{<$STR(S2)>|245:0:1}
    goto @奖励_aa




    [@钻石奖励_02]
    #if
    CHECKCREDITPOINT > 1000
    #act
    CREDITPOINT - 1000
    #ELSEACT
    messagebox 你酒鬼币不足!
    BREAK

    #if
    CHECKLEVELEX > 0
    #act
    MOV S$钻石卡牌 151#很遗憾您没有选择此卡牌
    Mov S$钻石卡牌显示 <Img:473:17:180:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:250:198>
    Inc S$钻石卡牌显示 <Img:473:17:320:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:390:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:457:17:-90:205>
    Inc S$钻石卡牌显示 <Img:456:17:-40:199>
    Inc S$钻石卡牌显示 <Img:457:17:3:205>
    Inc S$钻石卡牌显示 <Img:457:17:30:205>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石给.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S3)>
    give <$STR(S1)> 1
    Mov S$钻石卡牌显示文字一 <$STR(S0)>
    Mov S$钻石卡牌显示文字二 <$STR(S1)>
    Mov S$钻石卡牌显示文字三 <$STR(S2)>
    Mov S$钻石卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{钻石卡牌|151:0:1}获得奖励:{<$STR(S1)>|245:0:1}
    goto @奖励_aa



    [@钻石奖励_01]
    #if
    CHECKCREDITPOINT > 1000
    #act
    CREDITPOINT - 1000
    #ELSEACT
    messagebox 你酒鬼币不足!
    BREAK

    #if
    CHECKLEVELEX > 0
    #act
    MOV S$钻石卡牌 151#很遗憾您没有选择此卡牌
    Mov S$钻石卡牌显示 <Img:473:17:180:198>
    Inc S$钻石卡牌显示 <Img:473:17:250:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:320:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:473:17:390:198|<$str(S$钻石卡牌)>>
    Inc S$钻石卡牌显示 <Img:456:17:-70:199>
    Inc S$钻石卡牌显示 <Img:457:17:-22:205>
    Inc S$钻石卡牌显示 <Img:457:17:3:205>
    Inc S$钻石卡牌显示 <Img:457:17:30:205>


    #if
    CHECKLEVELEX > 0
    #act
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石给.txt <$STR(S0)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S1)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S2)>
    GETRANDOMLINETEXT ..\QuestDiary\卡牌系统\卡牌奖励钻石显示.txt <$STR(S3)>
    give <$STR(S0)> 1
    Mov S$钻石卡牌显示文字一 <$STR(S0)>
    Mov S$钻石卡牌显示文字二 <$STR(S1)>
    Mov S$钻石卡牌显示文字三 <$STR(S2)>
    Mov S$钻石卡牌显示文字四 <$STR(S3)>
    SENDMSG 1 {<$USERNAME>|255:0:1}在战神塔第<$HUMAN(塔层数)>层开启{钻石卡牌|151:0:1}获得奖励:{<$STR(S0)>|245:0:1}
    goto @奖励_aa
    }

    回复

    使用道具 举报

    太执着

    0

    主题

    4750

    回帖

    1万

    积分

    注册用户

    积分
    11600
    太执着 2024-8-2 01:05:09 / 显示全部楼层
    回复 支持 反对

    使用道具 举报

    传奇发布网

    122

    主题

    643

    回帖

    1万

    积分

    超级版主

    积分
    12823
    传奇发布网 2024-9-14 07:56:52 / 显示全部楼层
    回复 支持 反对

    使用道具 举报

    lml11223

    0

    主题

    83

    回帖

    242

    积分

    注册用户

    积分
    242
    lml11223 2024-12-26 01:37:09 / 显示全部楼层
    回复 支持 反对

    使用道具 举报

    wss_monk

    0

    主题

    57

    回帖

    102

    积分

    注册用户

    积分
    102
    wss_monk 2025-1-11 17:37:03 / 显示全部楼层
    回复 支持 反对

    使用道具 举报

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

    本版积分规则

    扫一扫加群沟通交流

    首页 论坛 !mobpost! 最新 我的