GOM钻石卡牌系统脚本，GOM传奇一条龙开区时黄金卡牌奖励脚本司徒游

admin

[@钻石系统]　　{
　　#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
　　}