;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@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
<HPPotion(M)     [Price-220]/@goumaiy(HPPotion(M),550)>\
<MPPotion(M)     [Price-220]/@goumaiy(MPPotion(M),550)>\
<HPPotion(L)     [Price-550]/@goumaiy(HPPotion(L),550)>\
<MPPotion(L)     [Price-550]/@goumaiy(MPPotion(L),550)>\
<HPPotion(XL)     [Price-1375]/@goumaiy(HPPotion(XL),1375)>\
<MPPotion(XL)     [Price-1375]/@goumaiy(MPPotion(XL),1375)>\
<SunPotion(S)           [Price-550]/@goumaiy(SunPotion(S),550)>\
<SunPotion(M)       [Price-1100]/@goumaiy(SunPotion(M),1100)>\
<MagicPill(M)       [Price-660]/@goumaiy(MagicPill(M),660)>\
<LifePill(M)      [Price-660]/@goumaiy(LifePill(M),660)>\
<MagicPill(L)       [Price-1980]/@goumaiy(MagicPill(L),1980)>\
<LifePill(L)      [Price-1980]/@goumaiy(LifePill(L),1980)>\
<MagicPill(XL)       [Price-3850]/@goumaiy(MagicPill(XL),3850)>\
<LifePill(XL)       [Price-4620]/@goumaiy(LifePill(XL),4620)>\
<Ginseng	  [Price-2200]/@goumaiy(Ginseng,2200)>\
<Exit/@exit>

[@goumaiy()]
#IF
checkbaggage
#ACT
Mov  A3     %ARG(1)           ;;物品
Mov  D3     %ARG(2)           ;;金钱
#SAY 
Please inputs you wants to purchase{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}Quantity:\
<Input purchase quantity/@@数量>(One purchase more than 200)\
<Return/@allplgmyp> 

#ELSESAY
Pays attention your knapsack whether has spatially extra, otherwise  the thing falls above me not responsible.\
<Return/@allplgmyp>


[@@数量] 
#IF
#ACT
mov  D4  %INPUTSTR
Mov  S1  3
#IF 
Small D4 1 
#SAY 
Do you have to buy how many{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}?\\ 
Please inputs the value {FCOLOR/10}1 To 200{FCOLOR/1}\
<Return/@allplgmyp>\
#ACT 
break 

#IF 
Large D4 200 
#SAY 
One purchase goods greatest quantity is {FCOLOR/10} 200 {FCOLOR/12}.\\ 
<Return/@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} Price is:{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}Gold.\
Pays attention your knapsack whether has spatially extra, otherwise  the thing falls above me not responsible.\
<The determination purchases/@进行购买>\
<<Return/@allplgmyp>>\
#ACT 
break


[@进行购买]
#IF
equal   S1  3
checkgold   %D2
#ACT
give   %A3  %D4
take  Gold  %D2
Mov    S1  0
#SAY
Purchases successfully!\
You spend {FCOLOR/10}<$OUTPUT(D2)> {FCOLOR/12}gold, purchased {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12} - {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12}.\\
<<Return/@allplgmyp>\

#ELSESAY
You {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} The gold coin, I am unable to buy for you {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12} - {FCOLOR/10}<$OUTPUT(A3)> {FCOLOR/12}.\\
<Return/@allplgmyp>\
<Exit/@exit>\ \
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;