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

释、怀 · 发表于 2020-2-14 06:17:24

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

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

x

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

hanyu791 · 发表于 2020-2-14 15:49:55

是爷们的娘们的都帮顶！大力支持

yijianzhongqin · 发表于 2020-2-23 05:43:19

我了个去，顶了

Camille5 · 发表于 2020-2-26 01:57:42

珍爱生命，果断回帖。

dgyuexian1 · 发表于 2020-3-3 02:26:39

呵呵，低调，低调！

为爱而就的巫婆 · 发表于 2020-3-6 02:17:53

为保住菊花，这个一定得回复！

撒旦VS盘古 · 发表于 2020-3-9 16:33:41

是爷们的娘们的都帮顶！大力支持

@Xizi_MPFUIuIP · 发表于 2020-3-17 08:20:25

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

sdfmtitw · 发表于 2020-3-19 18:52:53

佩服佩服！

rebecca0479 · 发表于 2020-3-22 08:59:27

LZ是天才，坚定完毕

		自动登录	找回密码
密码			立即注册