[@Ĳ]
{
#IF
EQUAL D60 0
#ACT
MOV D60 1
MOV S60 
MOV S61 
MOV S62 
#SAY
X[<Ϸϻ>\
<Ϥ/@Ϥ><$CREDITPOINT>\
<  /@>Ͷ<$STR(D55)>\
< Ͷ   /@Ͷ>ʤ<$STR(D60)>\
< ȡ   /@ȡ>ܳأ<$STR(G93)>\
<    /@˱>\
<ʼת/@ʼת>       <$STR(S60)>           <$STR(S61)>           <$STR(S62)>\
<    /@main>\
^a<Ĳз            Ͷע>\
#ELSESAY
X[<Ϸϻ>\
<Ϥ/@Ϥ><$CREDITPOINT>\
<  /@>Ͷ<$STR(D55)>\
< Ͷ   /@Ͷ>ʤ<$STR(D60)>\
< ȡ   /@ȡ>ܳأ<$STR(G93)>\
<    /@˱>\
<ʼת/@ʼת>       <$STR(S60)>           <$STR(S61)>           <$STR(S62)>\
<    /@main>\
^a<Ĳз            Ͷע>\
[@Ϥ]
ͶͶ.ɶͶ.Ͷ3!Ͷ\
ɵȡ.ʼתҡ..ϳͬ\
ͼ.ҿԻ൱Ͷ<5>Ľ.ͼһ!!\
ͶҲ.һʤѡ˱ҼȡǰĽ\
߼ʼתһϷ.ΪͶע!!\
ʤ5..߽Ϊ1500\ \
Ϸ<˳Ϸ>.Ͷע!     <ҳ/@Ĳ>\
[@Ϸ]
X[<Ϸϻ>\
<Ϥ/@Ϥ><$CREDITPOINT>\
<  /@>Ͷ<$STR(D55)>\
< Ͷ   /@Ͷ>ʤ<$STR(D60)>\
< ȡ   /@ȡ>ܳأ<$STR(G93)>\
<    /@˱>\
<ʼת/@ʼת>       <$STR(S60)>           <$STR(S61)>           <$STR(S62)>\
<    /@main>\
^a<Ĳз            Ͷע>\
[@Ͷ]
#if
checkCREDITPOINT > 1
#act
#elseact
messagebox 㣬޷Ϸ
break

#if
SMALL D55 3
#ACT
CREDITPOINT - 1
INC D55 1
SENDMSG 6 ʾͶ1ö
GOTO @Ϸ
#ELSEACT
messagebox ֻͶ3ö
break
[@ȡ]
#if
EQUAL D55 0
#ACT
messagebox 㻹δͶ
break
#if
SMALL D55 4
#ACT
DEC D55 1
CREDITPOINT + 1
SENDMSG 6 ʾȡ1ö
GOTO @Ϸ
break
#if
LARGE D55 3
#ACT
messagebox Ϸʤȡͨ˱ҡȡ
[@˱]
#if
EQUAL D55 0
#ACT
messagebox û
break
#if
#ACT
MOV D60 1
SENDMSG 6 ʾȡ<$STR(D55)>ö
CREDITPOINT + D55
MOV D55 0
GOTO @Ϸ
[@뿪]
#if
EQUAL D55 0
#ACT
close
break
#if
#ACT
SENDMSG 6 ʾȡ<$STR(D55)>ö
CREDITPOINT + D55
MOV D55 0
close
[@]
ÿӮһϷ.ýʮ֮һ۵.\
ӮϷ.൱Ͷע100.\
ûнֺ.    <;˳Ϸ˱>\ \
Ͷ1߿ɻ<100>ֺ\ \
Ͷ2߿ɻ<200>ֺ\ \
Ͷ3߿ɻ<500>ֺ                <ҳ/@Ĳ>\
[@ʼת]
#if
EQUAL D55 0
#ACT
messagebox ͶڽϷ
break
#if
EQUAL D60 4
#ACT
messagebox Ѿʤ֣˱ҺٽϷ
break

#if
EQUAL D60 1
#ACT
INC D60 1
MOVR N33 8
MOVR N43 8
MOVR N53 8
GOTO @ת
break
#if
EQUAL D60 2
#ACT
INC D60 1
MOVR N33 8
MOVR N43 8
MOVR N53 8
GOTO @ת
break
#if
EQUAL D60 3
#ACT
INC D60 1
MOVR N33 8
MOVR N43 8
MOVR N53 8
GOTO @ת
break
[@ת]
#if
EQUAL N33 0
#ACT
MOV S60 
#if
EQUAL N33 1
#ACT
MOV S60 
#if
EQUAL N33 2
#ACT
MOV S60 
#if
EQUAL N33 3
#ACT
MOV S60 
#if
EQUAL N33 4
#ACT
MOV S60 
#if
EQUAL N33 5
#ACT
MOV S60 
#if
EQUAL N33 6
#ACT
MOV S60 
#if
EQUAL N33 7
#ACT
MOV S60 
#if
EQUAL N33 8
#ACT
MOV S60 
#if
EQUAL N43 0
#ACT
MOV S61 
#if
EQUAL N43 1
#ACT
MOV S61 
#if
EQUAL N43 2
#ACT
MOV S61 
#if
EQUAL N43 3
#ACT
MOV S61 
#if
EQUAL N43 4
#ACT
MOV S61 
#if
EQUAL N43 5
#ACT
MOV S61 
#if
EQUAL N43 6
#ACT
MOV S61 
#if
EQUAL N43 7
#ACT
MOV S61 
#if
EQUAL N43 8
#ACT
MOV S61 
#if
EQUAL N53 0
#ACT
MOV S62 
#if
EQUAL N53 1
#ACT
MOV S62 
#if
EQUAL N53 2
#ACT
MOV S62 
#if
EQUAL N53 3
#ACT
MOV S62 
#if
EQUAL N53 4
#ACT
MOV S62 
#if
EQUAL N53 5
#ACT
MOV S62 
#if
EQUAL N53 6
#ACT
MOV S62 
#if
EQUAL N53 7
#ACT
MOV S62 
#if
EQUAL N53 8
#ACT
MOV S62 

#if
EQUAL N53 N33
EQUAL N53 N43
#ACT
INC G93 D55
GOTO @ֹͣ
break
#if
#ACT
MOV D60 1
MOV D55 0
SENDMSG 7 ʾź..ٽ
GOTO @Ϸ
break
[@ֹͣ]
#if
EQUAL D55 1
#ACT
MOV D55 5
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break
#if
EQUAL D55 2
#ACT
MOV D55 10
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break
#if
EQUAL D55 3
#ACT
MOV D55 15
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break
#if
EQUAL D55 10
#ACT
MOV D55 50
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break
#if
EQUAL D55 20
#ACT
MOV D55 100
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>0
GOTO @Ϸ
break
#if
EQUAL D55 30
#ACT
MOV D55 150
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break

#if
EQUAL D55 10
SMALL G93 1001
#ACT
MOV D55 500
INC D55 G93
MOV G93 0
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break

#if
EQUAL D55 10
LARGE G93 500
#ACT
MOV D55 50
INC D55 50
DEC G93 50
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break

#if
EQUAL D55 20
SMALL G93 2001
#ACT
MOV D55 1000
INC D55 G93
MOV G93 0
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break

#if
EQUAL D55 20
LARGE G93 1000
#ACT
MOV D55 1000
INC D55 1000
DEC G93 1000
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break

#if
EQUAL D55 30
SMALL G93 5001
#ACT
MOV D55 1500
INC D55 1500
DEC G93 1500
SENDCOLORMSG 0 251 249 [%s]ӮһĲϷ,ý<$STR(D55)>
GOTO @Ϸ
break
}
