[@至尊骰王]
#IF
ISONMAP WX
#ACT
messagebox 对不起,微信地图无法使用此功能。
BREAK
#IF
#ACT
MOV N$至尊骰王价格1 200
MOV N$至尊骰王价格2 25000
#IF
#ACT
CloseBigDialogBox
#SAY
<-------------------------------------------------------------/AUTOCOLOR=88>\
<所有人通过扔骰子抢夺骰王封号，获得/SCOLOR=254><“至尊骰王”封号+1.1倍攻击！/SCOLOR=253>\
<-------------------------------------------------------------/AUTOCOLOR=88>\
<不可和武林、天一倍攻叠加，大退、小退或死亡都保留时间！> \
<-------------------------------------------------------------/AUTOCOLOR=88>\
<持续时间2小时，可累计，当前骰王剩余时间/SCOLOR=250>{<$STR(U44)>/SCOLOR=251}<秒！/SCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=88>\
<有钱能使鬼推磨老板只需/SCOLOR=250>{<$STR(N$至尊骰王价格2)>元宝/SCOLOR=251}<可直接扔出豹子！/SCOLOR=250>\
\ <≮扔骰子≯/@扔骰子1>
[@扔骰子1]
#IF
CHECKGAMEGOLD < 25000
#ACT
MESSAGEBOX 对不起!您的元宝不足!无法激活
break
#IF
CHECKGAMEGOLD > 24999
#ACT
GAMEGOLD - 25000
inc G82 25000
INC U35 25000
INC U44 7200
GOTO @至尊骰王
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
BREAK
[@扔骰子2]
#OR
CHECKVAR GLOBAL 至尊骰王玩家1 = <$USERNAME>
CHECKVAR GLOBAL 至尊骰王玩家2 = <$USERNAME>
CHECKVAR GLOBAL 至尊骰王玩家3 = <$USERNAME>
CHECKVAR GLOBAL 至尊骰王玩家4 = <$USERNAME>
CHECKVAR GLOBAL 至尊骰王玩家5 = <$USERNAME>
CHECKVAR GLOBAL 至尊骰王玩家6 = <$USERNAME>
#ACT
MESSAGEBOX \提示：您已经是至尊骰王了！
BREAK
#IF
CHECKGAMEGOLD < <$STR(N$至尊骰王价格1)>
#ACT
MESSAGEBOX \提示：元宝不够！
BREAK
#IF
CHECKGAMEGOLD ? <$STR(N$至尊骰王价格1)>
#ACT
GAMEGOLD - <$STR(N$至尊骰王价格1)>
MOVR D0 1 7
MOV D1 <$STR(D0)>
MOV D2 <$STR(D0)>
PlayDice 3 @至尊骰王土豪开始
BREAK
[@至尊骰王土豪开始]
#IF
EQUAL D0 1
CHECKVAR GLOBAL 至尊骰王玩家1 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家1 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家1 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「①①①」|254:0:1}，获得{[骰王①①①]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 1
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家1)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「①①①」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家1)>|255:0:1}」的{[骰王①①①]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家1 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家1 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
#IF
EQUAL D0 2
CHECKVAR GLOBAL 至尊骰王玩家2 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家2 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家2 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「②②②」|254:0:1}，获得{[骰王②②②]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 2
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家2)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「②②②」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家2)>|255:0:1}」的{[骰王②②②]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家2 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家2 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
#IF
EQUAL D0 3
CHECKVAR GLOBAL 至尊骰王玩家3 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家3 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家3 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「③③③」|254:0:1}，获得{[骰王③③③]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 3
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家3)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「③③③」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家3)>|255:0:1}」的{[骰王③③③]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家3 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家3 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
#IF
EQUAL D0 4
CHECKVAR GLOBAL 至尊骰王玩家4 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家4 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家4 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「④④④」|254:0:1}，获得{[骰王④④④]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 4
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家4)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「④④④」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家4)>|255:0:1}」的{[骰王④④④]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家4 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家4 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
#IF
EQUAL D0 5
CHECKVAR GLOBAL 至尊骰王玩家5 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家5 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家5 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「⑤⑤⑤」|254:0:1}，获得{[骰王⑤⑤⑤]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 5
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家5)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「⑤⑤⑤」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家5)>|255:0:1}」的{[骰王⑤⑤⑤]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家5 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家5 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
#IF
EQUAL D0 6
CHECKVAR GLOBAL 至尊骰王玩家6 =
#ACT
CALCVAR GLOBAL 至尊骰王玩家6 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家6 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「⑥⑥⑥」|254:0:1}，获得{[骰王⑥⑥⑥]|255:0:1}称号奖励！！！
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
GOTO @MAIN
BREAK
#IF
EQUAL D0 6
#ACT
MOV A421 <$GLOBAL(至尊骰王玩家6)>
<$STR(A421)>.POWERRATE 100 21600
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[至尊骰王]|255:0:1}处摇出了{「⑥⑥⑥」|254:0:1}，抢走了「{<$GLOBAL(至尊骰王玩家6)>|255:0:1}」的{[骰王⑥⑥⑥]|253:0:1}称号！！！
CALCVAR GLOBAL 至尊骰王玩家6 = <$USERNAME>
SAVEVAR GLOBAL 至尊骰王玩家6 ..\QuestDiary\数据文件\至尊骰王\至尊骰王变量SAVE.txt
#CALL [\系统功能\称号文件\死亡称号读取.txt] @死亡称号读取
HCALL <$STR(A421)> @至尊丢失
GOTO @MAIN
BREAK
