雷霆骰王

一一素材

[@main]
#IF
#ACT
CloseBigDialogBox
#SAY
<┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>  <★★★★★/SCOLOR=249>本尊只奖励服务器<唯一/SCOLOR=250>的玩家<★★★★★/SCOLOR=249>　 　请 <┃/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>  <获得此封号的玩家可享受在线1.2倍攻击的,其他玩家可通/SCOLOR=243> 勿 <┃/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>  <过骰子抢夺封号,不限制任何条件,只要你觉得你运气好/SCOLOR=243> 　开 <┃/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>  <你获得1.2倍攻击的时候!心动吧!快来摇骰字吧!/SCOLOR=253> 　　　　挂 <┃/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>      　<摇骰字纯属运气,没事的玩家可以来试试手气/SCOLOR=243>     　　<┃/AUTOCOLOR=250,253,254,241>\
<┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫/AUTOCOLOR=250,253,254,241>\
<┃/AUTOCOLOR=250,253,254,241>　　　　　　　　　◆◇◆<我要摇骰王/@独霸天下>◆◇◆　　　　　　　　<┃/AUTOCOLOR=250,253,254,241>\
<┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛/AUTOCOLOR=250,253,254,241>\



[@独霸天下]
<当前骰王玩家/SCOLOR=254>：<[/SCOLOR=249><$STR(A46)><]/SCOLOR=249>\
<骰王当选时间/SCOLOR=254>：<[/SCOLOR=249><$STR(A47)><]/SCOLOR=249>\
<骰王当前等级/SCOLOR=254>：<[/SCOLOR=249><$STR(A48)><]/SCOLOR=249>\ \


　  ○<●/SCOLOR=253>○<●/SCOLOR=253>○<●/SCOLOR=253><普通摇骰子/@开始扔骰子去>：50元宝一次<●/SCOLOR=253>○<●/SCOLOR=253>○<●/SCOLOR=253>○\
　  ○<●/SCOLOR=253>○<●/SCOLOR=253>○<●/SCOLOR=253><老板摇骰子/@开始扔骰子去A>：3000元宝100%出豹子！<●/SCOLOR=253>○<●/SCOLOR=253>○<●/SCOLOR=253>○\

\

<一、/SCOLOR=249><五十元宝/SCOLOR=250>可以扔一次骰子，扔到<豹子/SCOLOR=250>也就是三个数字一样就可\
　  以<获得封号/SCOLOR=250>，之前的封号玩家就会<失去/SCOLOR=250>1.2倍攻击！\
<二、/SCOLOR=249><目前此封号下线后效果保存/SCOLOR=254>\


[@开始扔骰子去A]
#IF
CheckGameGold > 2999
#ACT
GameGold - 3000
GOTO @骰子活动A
break
#ElseAct
MESSAGEBOX 元宝不足3000个，无法扔骰子！
break


[@骰子活动A]
#IF
#ACT
MOVR N20 1 7
MOV D0 <$STR(N20)>
MOV D1 <$STR(N20)>
MOV D2 <$STR(N20)>
MOV N21 <$STR(N20)>
MOV N22 <$STR(N20)>
playdice 3 @检测点数
break


[@开始扔骰子去]
#IF
CheckGameGold > 49
#ACT
GameGold - 50
MOV S99 <$USERNAME>
GOTO @骰子活动
break
#ElseAct
MESSAGEBOX 元宝不足50个，无法扔骰子！
break


[@骰子活动]
#IF
#ACT
MOVR N20 1 7
MOVR N21 1 7
MOVR N22 1 7
MOV D0 <$STR(N20)>
MOV D1 <$STR(N21)>
MOV D2 <$STR(N22)>
playdice 3 @检测点数
break


[@检测点数]
#IF
EQUAL S99 654123
#ACT
SendCenterMsg 251 233 ◆◇◆玩家<$USERNAME>弹劾[<$STR(A46)>]成为新的骰王，获得1.2倍攻击的奖励◆◇◆
GuildNoticeMsg 251 233 ◆◇◆玩家<$USERNAME>弹劾[<$STR(A46)>]成为新的骰王，获得1.2倍攻击的奖励◆◇◆
MOV A46 <$USERNAME>
MOV A47 <$DATETIME>
MOV A48 <$LEVEL>
MOV G49 0
INC G49 <$MC>
INC G49 <$MAXMC>
INC G49 <$SC>
#CALL [\登陆脚本\封号脚本.txt] @封号设置
#CALL [\登陆脚本\封号检测.txt] @封号奖励
BREAK


#IF
EQUAL N20 <$STR(N21)>
EQUAL N20 <$STR(N22)>
#ACT
SendCenterMsg 251 233 ◆◇◆玩家[%s]弹劾[<$STR(A46)>]成为新的骰王，获得1.2倍攻击的奖励◆◇◆
GuildNoticeMsg 251 233 ◆◇◆玩家[%s]弹劾[<$STR(A46)>]成为新的骰王，获得1.2倍攻击的奖励◆◇◆
CLEARNAMELIST ..\QuestDiary\登陆脚本\弹劾名单.txt
AddTextListEx ..\QuestDiary\登陆脚本\弹劾名单.txt <$USERNAME> 0
MOV A46 <$USERNAME>
MOV A47 <$DATETIME>
MOV A48 <$LEVEL>
MOV G49 0
INC G49 <$MC>
INC G49 <$MAXMC>
INC G49 <$SC>
#CALL [\登陆脚本\封号脚本.txt] @封号设置
#CALL [\登陆脚本\封号检测.txt] @封号奖励
BREAK
CLOSE