;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@PotStoreMain]
{
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
ReadValueSql  "TBL_PotStore"  %A9 "FLD_STAGE"  [@PotStoreMain1]

[@PotStoreMain1()]
#ACT
Mov  D0  %ARG(1)
#IF
Equal  D0 2
#SAY
Hi, I am the 'Other Item' Store\
How can I help you?\\
<[ Pots and Liquors ]/@PotsandLiquors>\
<[ Souls ]/@Souls>\
<[ Gems and Orbs ]/@GemsandOrbs>\\
<[ Exit ]/@Exit>\\\

#ELSESAY
Hi, I am the Pot & Liquor Store\
How can I help you?\\
<[ Initialise Pot & Liquor Store ]/@SetupBootyStore>\


[@PotsandLiquors]
#SAY
I deal with Pots and Liquors\\
<[ Store ]/@StoreBooty>\
<[ Withdraw ]/@WithdrawBooty>\
<[ Check Stock ]/@CheckBootyStock>\\
<[ Exit ]/@Exit>\\\


[@Souls]
#SAY
I deal with Souls\\
<[ Storage ]/@StoreSouls>\
<[ Withdraw ]/@WithdrawSouls>\
<[ Check Stock ]/@CheckSoulStock>\\
<[ Exit ]/@Exit>\\\

[@GemsandOrbs]
#SAY
I deal with Gems and Orbs\\
I will be sorted shortly!\\
<[ Exit ]/@Exit>\\\

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Setup Booty Store ;;;;;;;;;

[@SetupBootyStore]
#SAY
Working.. 
#ACT
Mov  A0  %USERID
Mov  D0  2
FormatStr "'%s',%s" %A0 %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s'" %A0
WriteValueSql "TBL_PotStore" %A9 "FLD_CHARACTER,FLD_STAGE" %A8
Goto @SetupBootyStore1

[@SetupBootyStore1]
#SAY
Allocating Space in the Pot & Liquor Store\
Please Wait......\\\\
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR1='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR2='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR3='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR4='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR5='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR6='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR7='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR8='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR9='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR10='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR11='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR12='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR13='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR14='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR15='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR16='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR17='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR18='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR19='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR20='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR21='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR22='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR23='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR24='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR25='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR26='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR27='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR28='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR29='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR30='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR31='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR32='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR33='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR34='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR35='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR36='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR37='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR38='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR39='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR40='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR41='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR42='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR43='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR44='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR45='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
FormatStr "FLD_VAR46='%s'" 1
UPDATEVALUESQL "TBL_PotStore" %A8 %A9
DelayGoto [local] 5 @SetupBootyStore2

[@SetupBootyStore2]
#SAY
I have Managed to Allocate Enough Space\\
Be with you in a second.. \\
#ACT
DelayGoto [local] 5 @Main

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Store Booty ;;;;;;;;;

[@StoreBooty]
#SAY
Which Pots or Liquors would you like to Store?\
<[ HPPotion(L) ]/@ConvertBootyIn(HPPotion(L))>\
<[ HPPotion(XL) ]/@ConvertBootyIn(HPPotion(XL))>\
<[ HPPotion(XXL) ]/@ConvertBootyIn(HPPotion(XXL))>\
<[ MPPotion(L) ]/@ConvertBootyIn(MPPotion(L))>\
<[ MPPotion(XL) ]/@ConvertBootyIn(MPPotion(XL))>\
<[ MPPotion(XXL) ]/@ConvertBootyIn(MPPotion(XXL))>\
<[ BlueDrug ]/@ConvertBootyIn(BlueDrug)>\
<[ SunPotion(M) ]/@ConvertBootyIn(SunPotion(M))>\
<[ Ginseng ]/@ConvertBootyIn(Ginseng)>\
<[ OldGinseng ]/@ConvertBootyIn(OldGinseng)>\
<[ StormLiquor(L) ]/@ConvertBootyIn(StormLiquor(L))>\
<[ StormLiquor(XL) ]/@ConvertBootyIn(StormLiquor(XL))>\
<[ StormLiquor(XXL) ]/@ConvertBootyIn(StormLiquor(XXL))>\
<[ NatureLiquor(L) ]/@ConvertBootyIn(NatureLiquor(L))>\
<[ NatureLiquor(XL) ]/@ConvertBootyIn(NatureLiquor(XL))>\
<[ NatureLiquor(XXL) ]/@ConvertBootyIn(NatureLiquor(XXL))>\
<[ MagicLiquor(L) ]/@ConvertBootyIn(MagicLiquor(L))>\
<[ MagicLiquor(XL) ]/@ConvertBootyIn(MagicLiquor(XL))>\
<[ MagicLiquor(XXL) ]/@ConvertBootyIn(MagicLiquor(XXL))>\
<[ HealthLiquor(L) ]/@ConvertBootyIn(HealthLiquor(L))>\
<[ HealthLiquor(XL) ]/@ConvertBootyIn(HealthLiquor(XL))>\
<[ HealthLiquor(XXL) ]/@ConvertBootyIn(HealthLiquor(XXL))>\
<[ ImpactLiquor(L)]/@ConvertBootyIn(ImpactLiquor(L))>\
<[ ImpactLiquor(XL) ]/@ConvertBootyIn(ImpactLiquor(XL))>\
<[ ImpactLiquor(XXL) ]/@ConvertBootyIn(ImpactLiquor(XXL))>\
<[ SpiritLiquor(L) ]/@ConvertBootyIn(SpiritLiquor(L))>\
<[ SpiritLiquor(XL) ]/@ConvertBootyIn(SpiritLiquor(XL))>\
<[ SpiritLiquor(XXL) ]/@ConvertBootyIn(SpiritLiquor(XXL))>\
<[ BenedictionOil ]/@ConvertBootyIn(BenedictionOil)>\
<[ StrengthOil ]/@ConvertBootyIn(StrengthOil)>\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Store Souls ;;;;;;;;;

[@StoreSouls]
#SAY
Which Pots or Liquors would you like to Store?\
<[ OmaKing ]/@ConvertBootyIn(OmaKingSoul)>\
<[ WoomaTaurus ]/@ConvertBootyIn(WoomaTaurusSoul)>\
<[ BoarKing ]/@ConvertBootyIn(BoarKingSoul)>\
<[ MinotaurKing ]/@ConvertBootyIn(MinotaurKingSoul)>\
<[ BlackKing ]/@ConvertBootyIn(BlackKingSoul)>\
<[ ZumaTaurus ]/@ConvertBootyIn(ZumaTaurusSoul)>\
<[ DemonicUnderlord ]/@ConvertBootyIn(DemonicUnderlordSoul)>\
<[ ForbiddenKing ]/@ConvertBootyIn(ForbiddenKingSoul)>\
<[ EvilEmperor ]/@ConvertBootyIn(EvilEmperorSoul)>\
<[ StingKing ]/@ConvertBootyIn(StingKingSoul)>\
<[ Tadanga ]/@ConvertBootyIn(TadangaSoul)>\
<[ DeadSoul ]/@ConvertBootyIn(DeadSoulSoul)>\
<[ ToxinOma ]/@ConvertBootyIn(ToxinOmaSoul)>\
<[ BoneLord ]/@ConvertBootyIn(BoneLordSoul)>\
<[ AncientSoul ]/@ConvertBootyIn(AncientSoulSoul)>\
<[ AncientEmperor ]/@ConvertBootyIn(AncientEmperorSoul)>\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

[@ConvertBootyIn()]
#ACT
   Mov  A0  %ARG(1)
   FormatStr "FLD_CHARACTER='%s'" %USERID
#IF
Equal A0 "HPPotion(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR1"  [@CheckStockIn]
Break
#IF
Equal A0 "HPPotion(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR2"  [@CheckStockIn]
Break
#IF
Equal A0 "HPPotion(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR3"  [@CheckStockIn]
Break
#IF
Equal A0 "MPPotion(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR4"  [@CheckStockIn]
Break
#IF
Equal A0 "MPPotion(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR5"  [@CheckStockIn]
Break
#IF
Equal A0 "MPPotion(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR6"  [@CheckStockIn]
Break
#IF
Equal A0 "BlueDrug"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR7"  [@CheckStockIn]
Break
#IF
Equal A0 "SunPotion(M)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR8"  [@CheckStockIn]
Break
#IF
Equal A0 "Ginseng"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR9"  [@CheckStockIn]
Break
#IF
Equal A0 "OldGinseng"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR10"  [@CheckStockIn]
Break
#IF
Equal A0 "StormLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR11"  [@CheckStockIn]
Break
#IF
Equal A0 "StormLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR12"  [@CheckStockIn]
Break
#IF
Equal A0 "StormLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR13"  [@CheckStockIn]
Break
#IF
Equal A0 "NatureLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR14"  [@CheckStockIn]
Break
#IF
Equal A0 "NatureLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR15"  [@CheckStockIn]
Break
#IF
Equal A0 "NatureLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR16"  [@CheckStockIn]
Break
#IF
Equal A0 "MagicLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR17"  [@CheckStockIn]
Break
#IF
Equal A0 "MagicLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR18"  [@CheckStockIn]
Break
#IF
Equal A0 "MagicLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR19"  [@CheckStockIn]
Break
#IF
Equal A0 "HealthLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR20"  [@CheckStockIn]
Break
#IF
Equal A0 "HealthLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR21"  [@CheckStockIn]
Break
#IF
Equal A0 "HealthLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR22"  [@CheckStockIn]
Break
#IF
Equal A0 "ImpactLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR23"  [@CheckStockIn]
Break
#IF
Equal A0 "ImpactLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR24"  [@CheckStockIn]
Break
#IF
Equal A0 "ImpactLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR25"  [@CheckStockIn]
Break
#IF
Equal A0 "SpiritLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR26"  [@CheckStockIn]
Break
#IF
Equal A0 "SpiritLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR27"  [@CheckStockIn]
Break
#IF
Equal A0 "SpiritLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR28"  [@CheckStockIn]
Break
#IF
Equal A0 "BenedictionOil"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR29"  [@CheckStockIn]
Break
#IF
Equal A0 "StrengthOil"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR30"  [@CheckStockIn]
Break

#IF
Equal A0 "OmaKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR31"  [@CheckStockIn]
Break

#IF
Equal A0 "WoomaTaurusSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR32"  [@CheckStockIn]
Break

#IF
Equal A0 "BoarKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR33"  [@CheckStockIn]
Break

#IF
Equal A0 "MinotaurKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR34"  [@CheckStockIn]
Break

#IF
Equal A0 "BlackKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR35"  [@CheckStockIn]
Break

#IF
Equal A0 "ZumaTaurusSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR36"  [@CheckStockIn]
Break

#IF
Equal A0 "DemonicUnderlordSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR37"  [@CheckStockIn]
Break

#IF
Equal A0 "ForbiddenKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR38"  [@CheckStockIn]
Break

#IF
Equal A0 "EvilEmperorSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR39"  [@CheckStockIn]
Break

#IF
Equal A0 "StingKingSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR40"  [@CheckStockIn]
Break

#IF
Equal A0 "TadangaSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR41"  [@CheckStockIn]
Break

#IF
Equal A0 "DeadSoulSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR42"  [@CheckStockIn]
Break

#IF
Equal A0 "ToxinOmaSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR43"  [@CheckStockIn]
Break

#IF
Equal A0 "BoneLordSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR44"  [@CheckStockIn]
Break

#IF
Equal A0 "AncientSoulSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR45"  [@CheckStockIn]
Break

#IF
Equal A0 "AncientEmperorSoul"
#ACT
ReadValueSql "TBL_PotStore"  %A9 "FLD_VAR46"  [@CheckStockIn]
Break


[@CheckStockIn()]
#ACT
   Mov   D0   %ARG(1)
   Dec   D0   1
#SAY
You Currently have <$OUTPUT(D0)> <$OUTPUT(A0)> in Store\
How many would you Like to Store?\\
<[ Enter Quantity to Store ]/@@StoreQty>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@@StoreQty]
#ACT
   Mov D1  %INPUTNUM
#IF
   ESmall   D1  0
#SAY
Do Not try and cheat the system, your USERID has been logged!\\
<[ Exit ]/@Exit>\
#ACT
   Mov     A7 %USERID
   AddStr  A7 ",,PotFraud,"
   AddStr  A7 %D1
   Savelog "QuestDiary\System\ItemCreation\PotStoreLog.txt" %A7
   Break

#IF
   !Equal  D1  ""
   !Equal  D1  0
   CheckItem %A0 %D1
#ACT
  Take %A0 %D1
  Inc  D0  %D1
  Inc  D0  1
#ELSESAY
  You don't have that many!!
#ELSEACT
  Break

#IF
EQUAL  A0  "HPPotion(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR1='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HPPotion(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR2='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HPPotion(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR3='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR4='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR5='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR6='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "BlueDrug"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR7='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SunPotion(M)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR8='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "Ginseng"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR9='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "OldGinseng"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR10='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR11='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR12='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR13='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR14='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR15='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR16='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR17='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR18='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR19='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR20='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR21='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR22='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR23='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR24='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR25='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(L)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR26='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(XL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR27='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(XXL)"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR28='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "BenedictionOil"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR29='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StrengthOil"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR30='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "OmaKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR31='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "WoomaTaurusSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR32='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BoarKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR33='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "MinotaurKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR34='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BlackKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR35='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ZumaTaurusSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR36='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "DemonicUnderlordSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR37='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ForbiddenKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR38='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "EvilEmperorSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR39='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "StingKingSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR40='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "TadangaSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR41='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "DeadSoulSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR42='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ToxinOmaSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR43='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BoneLordSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR44='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "AncientSoulSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR45='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "AncientEmperorSoul"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
mov   A8     %A9
FormatStr "FLD_VAR46='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
#ACT
   Mov     A7 %USERID
   AddStr  A7 ","
   AddStr  A7 %A0
   AddStr  A7 ","
   AddStr  A7 %D0
   AddStr  A7 ","
   AddStr  A7 %D1
   AddStr  A7 ",Stored"
   Savelog "QuestDiary\System\ItemCreation\PotStoreLog.txt" %A7
   Dec  D0 1
#SAY
<$OUTPUT(D1)> <$OUTPUT(A0)> Stored\
You now have <$OUTPUT(D0)> in Store\\
<[ Store Menu ]/@PotStoreMain>\
<[ Exit ]/@exit>\\\



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Withdraw Booty ;;;;;;;;;


[@WithdrawBooty]
#SAY
Which Pots would you like to Withdraw?\
<[ HPPotion(L) ]/@ConvertBootyOut(HPPotion(L))>\
<[ HPPotion(XL) ]/@ConvertBootyOut(HPPotion(XL))>\
<[ HPPotion(XXL) ]/@ConvertBootyOut(HPPotion(XXL))>\
<[ MPPotion(L) ]/@ConvertBootyOut(MPPotion(L))>\
<[ MPPotion(XL) ]/@ConvertBootyOut(MPPotion(XL))>\
<[ MPPotion(XXL) ]/@ConvertBootyOut(MPPotion(XXL))>\
<[ BlueDrug ]/@ConvertBootyOut(BlueDrug)>\
<[ SunPotion(M) ]/@ConvertBootyOut(SunPotion(M))>\
<[ Ginseng ]/@ConvertBootyOut(Ginseng)>\
<[ OldGinseng ]/@ConvertBootyOut(OldGinseng)>\
<[ StormLiquor(L) ]/@ConvertBootyOut(StormLiquor(L))>\
<[ StormLiquor(XL) ]/@ConvertBootyOut(StormLiquor(XL))>\
<[ StormLiquor(XXL) ]/@ConvertBootyOut(StormLiquor(XXL))>\
<[ NatureLiquor(L) ]/@ConvertBootyOut(NatureLiquor(L))>\
<[ NatureLiquor(XL) ]/@ConvertBootyOut(NatureLiquor(XL))>\
<[ NatureLiquor(XXL) ]/@ConvertBootyOut(NatureLiquor(XXL))>\
<[ MagicLiquor(L) ]/@ConvertBootyOut(MagicLiquor(L))>\
<[ MagicLiquor(XL) ]/@ConvertBootyOut(MagicLiquor(XL))>\
<[ MagicLiquor(XXL) ]/@ConvertBootyOut(MagicLiquor(XXL))>\
<[ HealthLiquor(L) ]/@ConvertBootyOut(HealthLiquor(L))>\
<[ HealthLiquor(XL) ]/@ConvertBootyOut(HealthLiquor(XL))>\
<[ HealthLiquor(XXL) ]/@ConvertBootyOut(HealthLiquor(XXL))>\
<[ ImpactLiquor(L)]/@ConvertBootyOut(ImpactLiquor(L))>\
<[ ImpactLiquor(XL) ]/@ConvertBootyOut(ImpactLiquor(XL))>\
<[ ImpactLiquor(XXL) ]/@ConvertBootyOut(ImpactLiquor(XXL))>\
<[ SpiritLiquor(L) ]/@ConvertBootyOut(SpiritLiquor(L))>\
<[ SpiritLiquor(XL) ]/@ConvertBootyOut(SpiritLiquor(XL))>\
<[ SpiritLiquor(XXL) ]/@ConvertBootyOut(SpiritLiquor(XXL))>\
<[ BenedictionOil ]/@ConvertBootyOut(BenedictionOil)>\
<[ StrengthOil ]/@ConvertBootyOut(StrengthOil)>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@WithdrawSouls]
#SAY
Which Booty would you like to Store?\
<[ OmaKing ]/@ConvertBootyOut(OmaKingSoul)>\
<[ WoomaTaurus ]/@ConvertBootyOut(WoomaTaurusSoul)>\
<[ BoarKing ]/@ConvertBootyOut(BoarKingSoul)>\
<[ MinotaurKing ]/@ConvertBootyOut(MinotaurKingSoul)>\
<[ BlackKing ]/@ConvertBootyOut(BlackKingSoul)>\
<[ ZumaTaurus ]/@ConvertBootyOut(ZumaTaurusSoul)>\
<[ DemonicUnderlord ]/@ConvertBootyOut(DemonicUnderlordSoul)>\
<[ ForbiddenKing ]/@ConvertBootyOut(ForbiddenKingSoul)>\
<[ EvilEmperor ]/@ConvertBootyOut(EvilEmperorSoul)>\
<[ StingKing ]/@ConvertBootyOut(StingKingSoul)>\
<[ Tadanga ]/@ConvertBootyOut(TadangaSoul)>\
<[ DeadSoul ]/@ConvertBootyOut(DeadSoulSoul)>\
<[ ToxinOma ]/@ConvertBootyOut(ToxinOmaSoul)>\
<[ BoneLord ]/@ConvertBootyOut(BoneLordSoul)>\
<[ AncientSoul ]/@ConvertBootyOut(AncientSoulSoul)>\
<[ AncientEmperor ]/@ConvertBootyOut(AncientEmperorSoul)>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@ConvertBootyOut()]
#ACT
Mov A0  %ARG(1)
FormatStr "FLD_CHARACTER='%s'" %USERID
#IF
Equal A0 "HPPotion(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR1"  [@CheckStock]
Break
#IF
Equal A0 "HPPotion(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR2"  [@CheckStock]
Break
#IF
Equal A0 "HPPotion(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR3"  [@CheckStock]
Break
#IF
Equal A0 "MPPotion(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR4"  [@CheckStock]
Break
#IF
Equal A0 "MPPotion(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR5"  [@CheckStock]
Break
#IF
Equal A0 "MPPotion(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR6"  [@CheckStock]
Break
#IF
Equal A0 "BlueDrug"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR7"  [@CheckStock]
Break
#IF
Equal A0 "SunPotion(M)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR8"  [@CheckStock]
Break
#IF
Equal A0 "Ginseng"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR9"  [@CheckStock]
Break
#IF
Equal A0 "OldGinseng"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR10"  [@CheckStock]
Break
#IF
Equal A0 "StormLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR11"  [@CheckStock]
Break
#IF
Equal A0 "StormLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR12"  [@CheckStock]
Break
#IF
Equal A0 "StormLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR13"  [@CheckStock]
Break
#IF
Equal A0 "NatureLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR14"  [@CheckStock]
Break
#IF
Equal A0 "NatureLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR15"  [@CheckStock]
Break
#IF
Equal A0 "NatureLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR16"  [@CheckStock]
Break
#IF
Equal A0 "MagicLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR17"  [@CheckStock]
Break
#IF
Equal A0 "MagicLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR18"  [@CheckStock]
Break
#IF
Equal A0 "MagicLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR19"  [@CheckStock]
Break
#IF
Equal A0 "HealthLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR20"  [@CheckStock]
Break
#IF
Equal A0 "HealthLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR21"  [@CheckStock]
Break
#IF
Equal A0 "HealthLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR22"  [@CheckStock]
Break
#IF
Equal A0 "ImpactLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR23"  [@CheckStock]
Break
#IF
Equal A0 "ImpactLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR24"  [@CheckStock]
Break
#IF
Equal A0 "ImpactLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR25"  [@CheckStock]
Break
#IF
Equal A0 "SpiritLiquor(L)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR26"  [@CheckStock]
Break
#IF
Equal A0 "SpiritLiquor(XL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR27"  [@CheckStock]
Break

#IF
Equal A0 "SpiritLiquor(XXL)"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR28"  [@CheckStock]
Break

#IF
Equal A0 "BenedictionOil"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR29"  [@CheckStock]
Break

#IF
Equal A0 "StrengthOil"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR30"  [@CheckStock]
Break

#IF
Equal A0 "OmaKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR31"  [@CheckStock]
Break

#IF
Equal A0 "WoomaTaurusSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR32"  [@CheckStock]
Break

#IF
Equal A0 "BoarKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR33"  [@CheckStock]
Break

#IF
Equal A0 "MinotaurKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR34"  [@CheckStock]
Break

#IF
Equal A0 "BlackKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR35"  [@CheckStock]
Break

#IF
Equal A0 "ZumaTaurusSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR36"  [@CheckStock]
Break

#IF
Equal A0 "DemonicUnderlordSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR37"  [@CheckStock]
Break

#IF
Equal A0 "ForbiddenKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR38"  [@CheckStock]
Break

#IF
Equal A0 "EvilEmperorSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR39"  [@CheckStock]
Break

#IF
Equal A0 "StingKingSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR40"  [@CheckStock]
Break

#IF
Equal A0 "TadangaSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR41"  [@CheckStock]
Break

#IF
Equal A0 "DeadSoulSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR42"  [@CheckStock]
Break

#IF
Equal A0 "ToxinOmaSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR43"  [@CheckStock]
Break

#IF
Equal A0 "BoneLordSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR44"  [@CheckStock]
Break

#IF
Equal A0 "AncientSoulSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR45"  [@CheckStock]
Break

#IF
Equal A0 "AncientEmperorSoul"
#ACT
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR46"  [@CheckStock]
Break

[@CheckStock()]
#ACT
   Mov   D0   %ARG(1)
   Dec   D0   1
#sAY
You have <$OUTPUT(D0)> of <$OUTPUT(A0)> in Stock\
Would you like to Withdraw some?\\
<[ Enter Quantity to Withdraw ]/@@WithdrawStock>\\
<[ Withdraw Menu ]/@PotStoreMain>\
<[ Exit ]/@exit>\\\

[@@WithdrawStock]
#ACT
   Mov   D1   %INPUTNUM
#IF
   ESmall   D1  0
   Or Large D1  %D0
#SAY
Do Not try and cheat the system, your USERID has been logged!\\
<[ Exit ]/@Exit>\
#ACT
   Mov     A7 %USERID
   AddStr  A7 ",,BootyFraud,"
   AddStr  A7 %D1
   Savelog "QuestDiary\System\ItemCreation\PotStoreLog.txt" %A7
   Break

#IF
   !Equal  D1  ""
   !Equal  D1  0
#ACT
   Dec  D0  %D1 
   Inc  D0  1
   Give  %A0 %D1
   FormatStr "FLD_CHARACTER='%s'" %USERID
   Mov   A8     %A9
#IF
EQUAL  A0  "HPPotion(L)"
#ACT
FormatStr "FLD_VAR1='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HPPotion(XL)"
#ACT
FormatStr "FLD_VAR2='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HPPotion(XXL)"
#ACT
FormatStr "FLD_VAR3='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(L)"
#ACT
FormatStr "FLD_VAR4='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(XL)"
#ACT
FormatStr "FLD_VAR5='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MPPotion(XXL)"
#ACT
FormatStr "FLD_VAR6='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "BlueDrug"
#ACT
FormatStr "FLD_VAR7='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SunPotion(M)"
#ACT
FormatStr "FLD_VAR8='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "Ginseng"
#ACT
FormatStr "FLD_VAR9='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "OldGinseng"
#ACT
FormatStr "FLD_VAR10='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(L)"
#ACT
FormatStr "FLD_VAR11='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(XL)"
#ACT
FormatStr "FLD_VAR12='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StormLiquor(XXL)"
#ACT
FormatStr "FLD_VAR13='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(L)"
#ACT
FormatStr "FLD_VAR14='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(XL)"
#ACT
FormatStr "FLD_VAR15='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "NatureLiquor(XXL)"
#ACT
FormatStr "FLD_VAR16='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(L)"
#ACT
FormatStr "FLD_VAR17='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(XL)"
#ACT
FormatStr "FLD_VAR18='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "MagicLiquor(XXL)"
#ACT
FormatStr "FLD_VAR19='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(L)"
#ACT
FormatStr "FLD_VAR20='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(XL)"
#ACT
FormatStr "FLD_VAR21='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "HealthLiquor(XXL)"
#ACT
FormatStr "FLD_VAR22='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(L)"
#ACT
FormatStr "FLD_VAR23='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(XL)"
#ACT
FormatStr "FLD_VAR24='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "ImpactLiquor(XXL)"
#ACT
FormatStr "FLD_VAR25='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(L)"
#ACT
FormatStr "FLD_VAR26='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(XL)"
#ACT
FormatStr "FLD_VAR27='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "SpiritLiquor(XXL)"
#ACT
FormatStr "FLD_VAR28='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "BenedictionOil"
#ACT
FormatStr "FLD_VAR29='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
EQUAL  A0  "StrengthOil"
#ACT
FormatStr "FLD_VAR30='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "OmaKingSoul"
#ACT
FormatStr "FLD_VAR31='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "WoomaTaurusSoul"
#ACT
FormatStr "FLD_VAR32='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BoarKingSoul"
#ACT
FormatStr "FLD_VAR33='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "MinotaurKingSoul"
#ACT
FormatStr "FLD_VAR34='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BlackKingSoul"
#ACT
FormatStr "FLD_VAR35='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ZumaTaurusSoul"
#ACT
FormatStr "FLD_VAR36='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "DemonicUnderlordSoul"
#ACT
FormatStr "FLD_VAR37='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ForbiddenKingSoul"
#ACT
FormatStr "FLD_VAR38='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "EvilEmperorSoul"
#ACT
FormatStr "FLD_VAR39='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "StingKingSoul"
#ACT
FormatStr "FLD_VAR40='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "TadangaSoul"
#ACT
FormatStr "FLD_VAR41='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "DeadSoulSoul"
#ACT
FormatStr "FLD_VAR42='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "ToxinOmaSoul"
#ACT
FormatStr "FLD_VAR43='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "BoneLordSoul"
#ACT
FormatStr "FLD_VAR44='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "AncientSoulSoul"
#ACT
FormatStr "FLD_VAR45='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
Equal A0 "AncientEmperorSoul"
#ACT
FormatStr "FLD_VAR46='%s'" %D0
UPDATEVALUESQL "TBL_PotStore" %A8 %A9

#IF
#ACT
   Mov     A7 %USERID
   AddStr  A7 ","
   AddStr  A7 %A0
   AddStr  A7 ","
   AddStr  A7 %D0
   AddStr  A7 ","
   AddStr  A7 %D1
   AddStr  A7 ",WithDraw"
   Savelog "QuestDiary\System\ItemCreation\PotStoreLog.txt" %A7
   Dec  D0  1
#SAY
<$OUTPUT(D0)> <$OUTPUT(A0)> Remaining in Store\\
<[ WithDraw Menu ]/@PotStoreMain>\
<[ Exit ]/@exit>\\\

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Check Booty Stock ;;;;;;;;;

[@CheckBootyStock]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "HPPotion(L)"
Mov A1 "HPPotion(XL)"
Mov A2 "HPPotion(XXL)"
Mov A3 "MPPotion(L)"
Mov A4 "MPPotion(XL)"
Mov A5 "MPPotion(XXL)"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR1,FLD_VAR2,FLD_VAR3,FLD_VAR4,FLD_VAR5,FLD_VAR6"  [@CheckBootyStock1]

[@CheckBootyStock1()]
#ACT
Mov  A6 ""
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "BlueDrug"
Mov A1 "SunPotion(M)"
Mov A2 "Ginseng"
Mov A3 "OldGinseng"
Mov A4 "StormLiquor(L)"
Mov A5 "StormLiquor(XL)"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR7,FLD_VAR8,FLD_VAR9,FLD_VAR10,FLD_VAR11,FLD_VAR12"  [@CheckBootyStock3]

[@CheckBootyStock3()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "StormLiquor(XXL)"
Mov A1 "NatureLiquor(L)"
Mov A2 "NatureLiquor(XL)"
Mov A3 "NatureLiquor(XXL)"
Mov A4 "MagicLiquor(L)"
Mov A5 "MagicLiquor(XL)"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR13,FLD_VAR14,FLD_VAR15,FLD_VAR16,FLD_VAR17,FLD_VAR18"  [@CheckBootyStock5]

[@CheckBootyStock5()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "MagicLiquor(XXL)"
Mov A1 "HealthLiquor(L)"
Mov A2 "HealthLiquor(XL)"
Mov A3 "HealthLiquor(XXL)"
Mov A4 "ImpactLiquor(L)"
Mov A5 "ImpactLiquor(XL)"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR19,FLD_VAR20,FLD_VAR21,FLD_VAR22,FLD_VAR23,FLD_VAR24"  [@CheckBootyStock7]

[@CheckBootyStock7()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "ImpactLiquor(XXL)"
Mov A1 "SpiritLiquor(L)"
Mov A2 "SpiritLiquor(XL)"
Mov A3 "SpiritLiquor(XXL)"
Mov A4 "BenedictionOil"
Mov A5 "StrengthOil"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR25,FLD_VAR26,FLD_VAR27,FLD_VAR28,FLD_VAR29,FLD_VAR30"  [@CheckBootyStock9]

[@CheckBootyStock9()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#SAY
<$OUTPUT(A6)>\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@CheckSoulStock]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "OmaKing"
Mov A1 "WoomaTaurus"
Mov A2 "BoarKing"
Mov A3 "MinotaurKing"
Mov A4 "BlackKing"
Mov A5 "ZumaTaurus"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR31,FLD_VAR32,FLD_VAR33,FLD_VAR34,FLD_VAR35,FLD_VAR36"  [@CheckSoulStock1]

[@CheckSoulStock1()]
#ACT
Mov  A6 ""
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "DemonicUnderlord"
Mov A1 "ForbiddenKing"
Mov A2 "EvilEmperor"
Mov A3 "StingKing"
Mov A4 "Tadanga"
Mov A5 "DeadSoul"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR37,FLD_VAR38,FLD_VAR39,FLD_VAR40,FLD_VAR41,FLD_VAR42"  [@CheckSoulStock3]

[@CheckSoulStock3()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Mov  D4 %ARG(5)
Mov  D5 %ARG(6)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
Dec  D4 1
Dec  D5 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"
#IF
!EQUAL  D4  0
#ACT
AddStr  A6  %A4
AddStr  A6  " - "
AddStr  A6  %D4
AddStr  A6  "\"
#IF
!EQUAL  D5  0
#ACT
AddStr  A6  %A5
AddStr  A6  " - "
AddStr  A6  %D5
AddStr  A6  "\"

#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERID
Mov A0 "ToxinOma"
Mov A1 "BoneLord"
Mov A2 "AncientSoul"
Mov A3 "AncientEmperor"
ReadValueSql  "TBL_PotStore"  %A9 "FLD_VAR43,FLD_VAR44,FLD_VAR45,FLD_VAR46"  [@CheckSoulStock5]

[@CheckSoulStock5()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Mov  D3 %ARG(4)
Dec  D0 1
Dec  D1 1
Dec  D2 1
Dec  D3 1
#IF
!EQUAL  D0  0
#ACT
AddStr  A6  %A0
AddStr  A6  " - "
AddStr  A6  %D0
AddStr  A6  "\"
#IF
!EQUAL  D1  0
#ACT
AddStr  A6  %A1
AddStr  A6  " - "
AddStr  A6  %D1
AddStr  A6  "\"
#IF
!EQUAL  D2  0
#ACT
AddStr  A6  %A2
AddStr  A6  " - "
AddStr  A6  %D2
AddStr  A6  "\"
#IF
!EQUAL  D3  0
#ACT
AddStr  A6  %A3
AddStr  A6  " - "
AddStr  A6  %D3
AddStr  A6  "\"


#IF
#SAY
<$OUTPUT(A6)>\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;