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