;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@allplgmyp]
{
#if
#act
Mov  A3  0
Mov  D3  0
Mov  D4  0
Mov  D2  0
MOV  D5  0
MOV  N1  0
Mov  S1  0
MOV  D0  0
#SAY
<ҩУ     [۸220]/@goumaiy(ҩУ,550)>\
<ħҩУ     [۸220]/@goumaiy(ħҩУ,550)>\
<ҩ     [۸550]/@goumaiy(ҩ,550)>\
<ħҩ     [۸550]/@goumaiy(ħҩ,550)>\
<ҩأ     [۸1375]/@goumaiy(ҩأ,1375)>\
<ħҩأ     [۸1375]/@goumaiy(ħҩأ,1375)>\
<̫ˮ           [۸550]/@goumaiy(̫ˮ,550)>\
<ǿЧ̫ˮ       [۸1100]/@goumaiy(ǿЧ̫ˮ,1100)>\
<()       [۸660]/@goumaiy((),660)>\
<()       [۸660]/@goumaiy((),660)>\
<()       [۸1980]/@goumaiy((),1980)>\
<()       [۸1980]/@goumaiy((),1980)>\
<()       [۸3850]/@goumaiy((),3850)>\
<()       [۸4620]/@goumaiy((),4620)>\
<ѩ˪	  [۸2200]/@goumaiy(ѩ˪,2200)>\
<뿪/@exit>

[@goumaiy()]
#IF
checkbaggage
#ACT
Mov  A3     %ARG(1)           ;;Ʒ
Mov  D3     %ARG(2)           ;;Ǯ
#SAY 
Ҫ{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}\
<빺/@@>(һι200)\
</@allplgmyp> 

#ELSESAY
עıǷп࣬Ҳ.\
</@allplgmyp>


[@@] 
#IF
#ACT
mov  D4  %INPUTSTR
Mov  S1  3
#IF 
Small D4 1 
#SAY 
Ҫٸ{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}\\ 
ֵ {FCOLOR/10}1  200{FCOLOR/1}\
</@allplgmyp>\
#ACT 
break 

#IF 
Large D4 200 
#SAY 
һιƷΪ{FCOLOR/10} 200 {FCOLOR/12}\\ 
</@allplgmyp>\
#ACT 
break 

#IF
#ACT
MOV P1 %D3
MOV P2 %D4
MUL P1 P2
MOV D2 %P9

#IF 
#SAY 
_{FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}  {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} ļ۸ǣ{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}.\
עıǷп࣬Ҳ.\
<ȷ/@й>\
<</@allplgmyp>>\
#ACT 
break


[@й]
#IF
equal   S1  3
checkgold   %D2
#ACT
give   %A3  %D4
take    %D2
Mov    S1  0
#SAY
ɹ\
 {FCOLOR/10}<$OUTPUT(D2)> {FCOLOR/12}ң {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}  {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} .\\
<</@allplgmyp>\

#ELSESAY
û {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} ң޷ {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}  {FCOLOR/10}<$OUTPUT(A3)> {FCOLOR/12}.\\
</@allplgmyp>\
<뿪/@exit>\ \
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;