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

#if
SMALL D55 3
#ACT
GAMEGOLD - 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
GAMEGOLD + 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)>ö
GAMEGOLD + D55
MOV D55 0
GOTO @Ϸ
[@뿪]
#if
EQUAL D55 0
#ACT
close
break
#if
#ACT
SENDMSG 6 ʾȡԪ<$STR(D55)>ö
GAMEGOLD + 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
}
