NPC
[@main]
#if
not EQUAL A111 
#act
MOV s$骰王名字 {<$str(A111)>/SCOLOR=253}
#elseact
MOV s$骰王名字 <暂无/SCOLOR=253>



#if
#act
setstringblank s$骰王名字 20 1

#say

\ \ \
<>      <┈┈┈┈┈┈骰王属性可与天下第一属性叠加,最高1.2倍┈┈┈┈┈┈/SCOLOR=251>\ \

<>            <骰王(1.1倍攻击)/SCOLOR=250>              <当前骰王:/SCOLOR=254>[  <$str(s$骰王名字)>  ]\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=239>\
<>    <所有人都可以通过扔骰子抢夺骰王封号,不限职业,等级,装备!/SCOLOR=254>\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=228>\
<>    只要人品够好.就可以发起挑战,每次需要<10000>元宝!          <扔骰王|250#扔到豹子(111,222,333,444,555,666)即可以获得对应的骰王称号^250#之前对应的骰王玩家就会被弹劾,失去骰王称号和倍攻属性^250#每个人只能获得一个骰王称号,骰王属性可与天下第一属性叠加,最高1.2倍/@throw>\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=242>\
<>    有钱能使鬼推磨老板只需<18.8W>元宝直接扔出豹子           <老板扔骰子|250#扔到豹子(111,222,333,444,555,666)即可以获得对应的骰王称号^250#之前对应的骰王玩家就会被弹劾,失去骰王称号和倍攻属性^250#每个人只能获得一个骰王称号,骰王属性可与天下第一属性叠加,最高1.2倍/@bossthrow>



[@throw]
#IF
EQUAL A111 <$USERNAME>
#ACT
MESSAGEBOX \提示：您已经是五岳骰王了！
BREAK

#if
checkgamegold < 10000
#act
MESSAGEBOX \提示：你没有1W元宝！
BREAK

#IF
CHECKGAMEGOLD ? 10000
#ACT
GAMEGOLD - 10000
MOVR D0 1 7
MOVR D1 1 7
MOVR D2 1 7
PlayDice 3 @五岳骰王随机开始
BREAK

[@五岳骰王随机开始]
#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
#ELSEACT
MESSAGEBOX \提示：很遗憾！骰子点数为：<$STR(D0)>、<$STR(D1)>、<$STR(D2)>！
goto @main
BREAK

#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
EQUAL A111 
#ACT
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
; CONFERTITLE 骰王
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
BREAK

#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
NOT EQUAL A111 
#ACT
MOV S$上届骰王 <$STR(A111)>
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
; CONFERTITLE 骰王
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
GOTO @上届骰王清空
BREAK



[@bossthrow]
#if
checkgamegold < 188000
#act
MESSAGEBOX \提示：你没有18.8W元宝！
BREAK

#IF
EQUAL A111 <$USERNAME>
#ACT
MESSAGEBOX \提示：您已经是五岳骰王了！
BREAK


#IF
CHECKGAMEGOLD ? 188000
not EQUAL A111 <$USERNAME>
#ACT
GAMEGOLD - 188000
MOVR D0 1 7
MOV D1 <$STR(D0)>
MOV D2 <$STR(D0)>
PlayDice 3 @土豪骰王随机开始
BREAK

[@土豪骰王随机开始]
#IF
EQUAL A111 
#ACT
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
BREAK

#IF
NOT EQUAL A111 
#ACT
MOV S$上届骰王 <$STR(A111)>
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
GOTO @上届骰王清空
BREAK

[@上届骰王清空]
#IF
S$上届骰王.CHECKONLINE
#ACT
HCALL <$STR(S$上届骰王)> @骰王清空
S$上届骰王.MESSAGEBOX 你的骰王称号已经被玩家<$STR(A111)>顶替,骰王封号已经消失
BREAK