色子验证脚本

[@main]
#IF
LARGE I99 30
#ACT
MOVR P1 6
INC P1 1
MOVR P2 6
INC P2 1
MOVR P3 6
INC P3 1
MOV I99 30
GOTO @1
GOTO @2
GOTO @3
DELAYCALL 1 @计时
GOTO @喊话
BREAK

#ELSESAY
请您稍后再试！！！

[@计时]
#IF
LARGE I99 30
#ACT
BREAK

#IF
LARGE I99 0
#ACT
DEC I99 1
SENDMSG 7 请注意您还剩余<$STR(I99)>秒回答时间！！
DELAYCALL 1 @计时
#ELSEACT
GOBACKHOME
MOV I99 31
BREAK

[@1]
#IF
LARGE P1 6
#ACT
MOV S2
INC S2
INC S2
INC S2 <COLOR=RED
INC S2
INC S2 ●>
INC S2
INC S2
MOV S1
MOV S3
FILLTEXT S1 6
FILLTEXT S3 6
BREAK

#IF
EQUAL P1 1
#ACT
MOV S2
INC S2
INC S2
INC S2 <COLOR=RED
INC S2
INC S2 ●>
INC S2
INC S2
MOV S1
MOV S3
FILLTEXT S1 6
FILLTEXT S3 6
BREAK

#IF
EQUAL P1 2
#act
MOV S1
INC S1
INC S1
INC S1 ●
MOV S3
INC S3
INC S3
INC S3 ●
MOV S2
FILLTEXT S1 6
FILLTEXT S2 6
FILLTEXT S3 6
BREAK

#IF
EQUAL P1 3
#ACT
MOV S1 ●
MOV S2
INC S2
INC S2
INC S2 ●
MOV S3
INC S3
INC S3
INC S3
INC S3
INC S3 ●
FILLTEXT S1 6
FILLTEXT S2 6
FILLTEXT S3 6

#IF
EQUAL P1 4
#ACT
MOV S1 ●
INC S1
INC S1
INC S1 ●
MOV S3 ●
INC S3
INC S3
INC S3 ●
MOV S2
FILLTEXT S1 6
FILLTEXT S2 6
FILLTEXT S3 6
BREAK

#IF
EQUAL P1 5
#ACT
MOV S1 ●
INC S1
INC S1
INC S1 ●
MOV S3 ●
INC S3
INC S3
INC S3 ●
MOV S2
INC S2
INC S2
INC S2 ●
FILLTEXT S1 6
FILLTEXT S2 6
FILLTEXT S3 6
BREAK

#IF
EQUAL P1 6
#ACT
MOV S1 ●
INC S1
INC S1
INC S1 ●
MOV S3 ●
INC S3
INC S3
INC S3 ●
MOV S2 ●
INC S2
INC S2
INC S2 ●
FILLTEXT S1 6
FILLTEXT S2 6
FILLTEXT S3 6
BREAK

[@2]
#IF
LARGE P2 6
#ACT
MOV S12
INC S12
INC S12
INC S12 <COLOR=RED
INC S12
INC S12 ●>
INC S12
INC S12
MOV S11
MOV S13
FILLTEXT S11 6
FILLTEXT S13 6
BREAK

#IF
EQUAL P2 1
#ACT
MOV S12
INC S12
INC S12
INC S12 <COLOR=RED
INC S12
INC S12 ●>
INC S12
INC S12
MOV S11
MOV S13
FILLTEXT S11 6
FILLTEXT S13 6
BREAK

#IF
EQUAL P2 2
#act
MOV S11
INC S11
INC S11
INC S11 ●
MOV S13
INC S13
INC S13
INC S13 ●
MOV S12
FILLTEXT S11 6
FILLTEXT S12 6
FILLTEXT S13 6
BREAK

#IF
EQUAL P2 3
#ACT
MOV S11 ●
MOV S12
INC S12
INC S12
INC S12 ●
MOV S13
INC S13
INC S13
INC S13
INC S13
INC S13 ●
FILLTEXT S11 6
FILLTEXT S12 6
FILLTEXT S13 6

#IF
EQUAL P2 4
#ACT
MOV S11 ●
INC S11
INC S11
INC S11 ●
MOV S13 ●
INC S13
INC S13
INC S13 ●
MOV S12
FILLTEXT S11 6
FILLTEXT S12 6
FILLTEXT S13 6
BREAK

#IF
EQUAL P2 5
#ACT
MOV S11 ●
INC S11
INC S11
INC S11 ●
MOV S13 ●
INC S13
INC S13
INC S13 ●
MOV S12
INC S12
INC S12
INC S12 ●
FILLTEXT S11 6
FILLTEXT S12 6
FILLTEXT S13 6
BREAK

[@3]
#IF
LARGE P3 6
#ACT
MOV S22
INC S22
INC S22
INC S22 <COLOR=RED
INC S22
INC S22 ●>
INC S22
INC S22
MOV S21
MOV S23
FILLTEXT S21 6
FILLTEXT S23 6
BREAK

#IF
EQUAL P3 1
#ACT
MOV S22
INC S22
INC S22
INC S22 <COLOR=RED
INC S22
INC S22 ●>
INC S22
INC S22
MOV S21
MOV S23
FILLTEXT S21 6
FILLTEXT S23 6
BREAK

#IF
EQUAL P3 2
#act
MOV S21
INC S21
INC S21
INC S21 ●
MOV S23
INC S23
INC S23
INC S23 ●
MOV S22
FILLTEXT S21 6
FILLTEXT S22 6
FILLTEXT S23 6
BREAK

#IF
EQUAL P3 3
#ACT
MOV S21 ●
MOV S22
INC S22
INC S22
INC S22 ●
MOV S23
INC S23
INC S23
INC S23
INC S23
INC S23 ●
FILLTEXT S21 6
FILLTEXT S22 6
FILLTEXT S23 6

#IF
EQUAL P3 4
#ACT
MOV S21 ●
INC S21
INC S21
INC S21 ●
MOV S23 ●
INC S23
INC S23
INC S23 ●
MOV S22
FILLTEXT S21 6
FILLTEXT S22 6
FILLTEXT S23 6
BREAK

#IF
EQUAL P3 5
#ACT
MOV S21 ●
INC S21
INC S21
INC S21 ●
MOV S23 ●
INC S23
INC S23
INC S23 ●
MOV S22
INC S22
INC S22
INC S22 ●
FILLTEXT S21 6
FILLTEXT S22 6
FILLTEXT S23 6
BREAK

[@喊话]
#SAY
<COLOR=PURPLE 传>      <COLOR=GREEN ╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗>      <COLOR=YELLOW

无>\
<COLOR=GREEN ┆> ┏━━━┓┏━━━┓┏━━━┓ <COLOR=GREEN ┆>\
<COLOR=PURPLE 奇>      <COLOR=GREEN ┆> ┃<$STR(S1)>┃┃<$STR(S11)>┃┃<$STR(S21)>┃

<COLOR=GREEN ┆>      <COLOR=YELLOW 限>\
<COLOR=GREEN ┆> ┃<$STR(S2)>┃┃<$STR(S12)>┃┃<$STR(S22)>┃ <COLOR=GREEN ┆>\
<COLOR=PURPLE 世>      <COLOR=GREEN ┆> ┃<$STR(S3)>┃┃<$STR(S13)>┃┃<$STR(S23)>┃

<COLOR=GREEN ┆>      <COLOR=YELLOW 可>\
<COLOR=GREEN ┆> ┗━━━┛┗━━━┛┗━━━┛ <COLOR=GREEN ┆>\
<COLOR=PURPLE 界>      <COLOR=GREEN ╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝>      <COLOR=YELLOW

能>\
<COLOR=RED 输入错误或者指定时间内没有输入，回城伺候~！>\
<COLOR=ORANGE 请在30秒内输入三个骰子的总点数>   <点击这里输入点数/@输入>

[@输入]
#ACT
MOV P4 $STR(P1)
INC P4 $STR(P2)
INC P4 $STR(P3)
SENDMSG 7 $STR(P4)
QueryVal 1 0 6 @点数 请输入三个骰子的总点数：
Break
[@点数]
#IF
EQUAL $STR(S1) $STR(P4)
#ACT
MOV I99 31
CLOSE
BREAK
#ELSEACT
GOBACKHOME
MOV I99 31
BREAK