;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@MIR3G_1]
{
#if

#say
{FCOLOR/14}<$USERNAME>{FCOLOR/12}\
Hi, I am the portable Shop!\\
<[ Use Shop ]/@takewst>\
<[ Exit ]/@exit>

[@takewst]
#say
{FCOLOR/10}<$USERNAME>{FCOLOR/12}, What would you like to buy?\\
<[ HPPotion(S) - 80 Gold ]/@buything(HPPotion(S),80)>\
<[ MPPotion(S) - 84 Gold ]/@buything(MPPotion(S),84)>\
<[ HPPotion(M) - 200 Gold ]/@buything(HPPotion(M),200)>\
<[ MPPotion(M) - 200 Gold ]/@buything(MPPotion(M),200)>\
<[ HPPotion(L) - 500 Gold ]/@buything(HPPotion(L),500)>\
<[ MPPotion(L) - 500 Gold ]/@buything(MPPotion(L),500)>\
<[ HPPotion(XL) - 1250 Gold ]/@buything(HPPotion(XL),1250)>\
<[ MPPotion(XL) - 1250 Gold ]/@buything(MPPotion(XL),1250)>\
<[ HPPotion(XXL) - 1800 Gold ]/@buything(HPPotion(XXL),1800)>\
<[ MPPotion(XXL) - 1800 Gold ]/@buything(MPPotion(XXL),1800)>\
<[ SunPotion(S) - 500 Gold ]/@buything(SunPotion(S),500)>\
<[ SunPotion(M) - 1000 Gold ]/@buything(SunPotion(M),1000)>\
<[ Ginseng - 5000 Gold ]/@buything(Ginseng,5000)>\
<[ OldGinseng - 5000 Gold ]/@buything(OldGinseng,5000)>\
<[ RandomTeleport - 100 Gold ]/@buything(RandomTeleport,100)>\
<[ TownTeleport - 1 Gold ]/@buything(TownTeleport,1)>\
<[ StormLiquor(M) - 2000 Gold ]/@buything(StormLiquor(M),2000)>\
<[ StormLiquor(L) - 3000 Gold ]/@buything(StormLiquor(L),3000)>\
<[ SpiritLiquor(M) - 2000 Gold ]/@buything(SpiritLiquor(M),2000)>\
<[ SpiritLiquor(L) - 3000 Gold ]/@buything(SpiritLiquor(L),3000)>\
<[ NatureLiquor(M) - 2000 Gold ]/@buything(NatureLiquor(M),2000)>\
<[ NatureLiquor(L) - 3000 Gold ]/@buything(NatureLiquor(L),3000)>\
<[ MagicLiquor(M) - 2000 Gold ]/@buything(MagicLiquor(M),2000)>\
<[ MagicLiquor(L) - 3000 Gold ]/@buything(MagicLiquor(L),3000)>\
<[ ImpactLiquor(M) - 2000 Gold ]/@buything(ImpactLiquor(M),2000)>\
<[ ImpactLiquor(L) - 3000 Gold ]/@buything(ImpactLiquor(L),3000)>\
<[ HealthLiquor(M) - 2000 Gold ]/@buything(HealthLiquor(M),2000)>\
<[ HealthLiquor(L) - 3000 Gold ]/@buything(HealthLiquor(L),3000)>\
<[ Talisman(L) - 7500 Gold ]/@buything(Talisman(L),7500)>\
<[ IGTalisman(M) - 600 Gold ]/@buything(IGTalisman(M),600)>\
<[ GETalisman(M) - 600 Gold ]/@buything(GETalisman(M),600)>\
<[ FUTalisman(M) - 600 Gold ]/@buything(FUTalisman(M),600)>\
<[ VETalisman(M) - 600 Gold ]/@buything(VETalisman(M),600)>\
<[ PHTalisman(M) - 500 Gold ]/@buything(PHTalisman(M),500)>\
<[ SoulTalisman(M) - 66000 Gold ]/@buything(SoulTalisman(M),66000)>\
<[ HolyTalisman(L) - 7500 Gold ]/@buything(HolyTalisman(L),7500)>\
<[ DarkTalisman(L) - 7500 Gold ]/@buything(DarkTalisman(L),7500)>\
<[ RespawnScroll - 100000 Gold ]/@buything(RespawnScroll,100000)>\
<[ RedPoison(L) - 3000 Gold ]/@buything(RedPoison(L),3000)>\
<[ TalismanBundle(Holy) - 45000 Gold ]/@buything(TalismanBundle(Holy),45000)>\
<[ TalismanBundle(Dark) - 45000 Gold ]/@buything(TalismanBundle(Dark),45000)>\
<[ GreenPoison(L) - 3000 Gold ]/@buything(GreenPoison(L),3000)>\
<[ BloodTalisman - 10000000 Gold ]/@buything(BloodTalisman,10000000)>\
<[ LifeStar - 15000000 Gold ]/@buything(LifeStar,15000000)>\
<[ Main Menu  ]/@TAKEWST>\
<[ Exit ]/@exit>\

[@buything()]
#IF
checkbaggage
#ACT
Mov     A3   %ARG(1)       ;;
Mov     D3   %ARG(2)       ;;
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}, You have selected - {FCOLOR/10}<$OUTPUT(A3)>.{FCOLOR/12}\
How many would you like to Purchase?\\
<[ Input Purchase Qty ]/@@EnterQty> (1000 Maximum)\\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\
{FCOLOR/1}Please Ensure you can carry this amount!{FCOLOR/12}\
#ELSESAY
You do not have enough room in your bag!\\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\

[@@EnterQty] 
#IF
#ACT
mov D4 %INPUTSTR
Mov S1 3
#IF 
Small D4 1 
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
You have asked for{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}?\\ 
The Quantity must be between {FCOLOR/10}1 And 1000{FCOLOR/1}!\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\
#ACT 
break 

#IF 
Large D4 1000 
#SAY 
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
You have asked for{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}?\\ 
The Quantity must be between {FCOLOR/10}1 And 1000{FCOLOR/1}!\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\
#ACT 
break 

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

#IF 
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
{FCOLOR/10}<$OUTPUT(D4)> <$OUTPUT(A3)>'s {FCOLOR/12} - This will cost{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}Gold.\
Are you Sure?\\
<[ Purchase ]/@PurchaseQty>\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\
#ACT 
break

[@PurchaseQty]
#IF
equal   S1 3
checkgold   %D2
#ACT
give   %A3 %D4
take Gold %D2
Mov   S1 0
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
You have purchased{FCOLOR/10} <$OUTPUT(D4)> <$OUTPUT(A3)>'s {FCOLOR/12} - This has cost you{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}Gold.\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
You do not have enough Gold to purchase these items\
<[ Main Menu ]/@TAKEWST>\
<[ Exit ]/@exit>\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;