[@main]
(ÿҶս3)\
˵:㿪ʼս󽫻ˢ,뽫!\
˵:ɺ,ȡý!!\
˵:ʼսҡӡȡɻس\
\
<ս/@ս>      <ҡ/@ҡ>\
ʾ:ҡӻþֵ,ԽԽ\
Ҫʾ:ڵͼе߻ʧ.


[@ս]
#IF
check [300] 0
#ACT
MONGENEX FB 15 15   1   1   10
set [300] 1
#ELSEACT
SENDMSG 4 Ѿʼս.!

[@ҡ]
#if
check [300] 1
#elseact
messagebox Բ,ûнս.
break

#if
CHECKRANGEMONCOUNT FB 15 15 20 > 0
#act
messagebox ҪսĹ.
break
#elseact
MOVR D0 6
INC D0 1
mov M55 30000000
mul M55 <$STR(D0)>
PLAYDICE 1 @ս
break

[@ս]
#if
check [300] 1
#SAY
˵:㿪ʼս󽫻ˢ,뽫!\
˵:ɺ,ȡý!!\
˵:ʼսҡӡȡɻس\
οԻ30000000 * <$STR(D0)> = <$STR(M55)>\
\
<ȡ/@getexp>  <500Ԫҡһ/@ҡ>\
ʾ:ҡӻþֵ,ԽԽ\
Ҫʾ:ڵͼе߻ʧ.

[@getexp]
#if
check [300] 1
#act
set [300] 0
changeexp + <$STR(M55)>
sendmsg 0 ϲ%sս<$STR(M55)>!
mapmove 3 330 330
break
#elseact
messagebox Բ,ûнս.
break

[@ҡ]
#if
check [300] 1
#elseact
messagebox Բ,ûнս.
break

#if
CHECKRANGEMONCOUNT FB 15 15 20 > 0
#act
messagebox Ҫս.
break

#if
checkgamegold < 500
#act
messagebox û㹻Ԫ.
break
#elseact
gamegold - 500
MOVR D0 6
INC D0 1
mov M55 30000000
mul M55 <$STR(D0)>
PLAYDICE 1 @ս
break