;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@ItemCreationMain]
{
#IF
#ACt
   Mov D5 0
   Mov A7 ""
#SAY
Hi, I am the Crafting Merchant\
How can I help you?\\

#IF
Check [290] 0
#SAY
<[ Initialise Booty Store ]/@SetupBootyStore>\

#IF
Check [290] 1
#SAY
<[ Store Booty ]/@StoreBooty>\
<[ Withdraw Booty ]/@WithdrawBooty>\
<[ Check Booty Stock ]/@CheckBootyStock>\
<[ Auto Store ]/@NextAuto> - Takes 2 Seconds Per Item\
;#IF
;ISADMIN
;#SAY
;<[ Make Item ]/@MakeItem>\
#IF
#SAY
<[ Exit ]/@Exit>\\\

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

[@SetupBootyStore]
#SAY
Working.. 
#ACT
Set  [290]  1
Mov  A0  %USERNAME
Mov  D0  1
FormatStr "'%s',%s" %A0 %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s'" %A0
WriteValueSql "TBL_BootyStore" %A9 "FLD_CHARACTER,FLD_STAGE" %A8
Goto @SetupBootyStore1

[@SetupBootyStore1]
#SAY
Allocating Space in the Booty Store\
Please Wait......\\\\
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR1='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR2='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR3='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR4='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR5='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR6='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR7='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR8='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR9='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR10='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR11='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR12='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR13='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR14='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR15='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR16='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR17='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR18='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR19='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR20='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR21='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR22='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR23='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR24='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR25='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR26='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
FormatStr "FLD_VAR27='%s'" 1
UPDATEVALUESQL "TBL_BootyStore" %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 Booty would you like to Store?\\
<[ SpiderTooth ]/@ConvertBootyIn(SpiderTooth)>\
<[ CannibalPlantFruit ]/@ConvertBootyIn(CannibalPlantFruit)>\
<[ ScorpionTail ]/@ConvertBootyIn(ScorpionTail)>\
<[ MaggotPill ]/@ConvertBootyIn(MaggotPill)>\
<[ MissingPearl ]/@ConvertBootyIn(MissingPearl)>\
<[ PreciousJade ]/@ConvertBootyIn(PreciousJade)>\
<[ AntEgg ]/@ConvertBootyIn(AntEgg)>\
<[ SnakeBile ]/@ConvertBootyIn(SnakeBile)>\
<[ IndiaSpirit ]/@ConvertBootyIn(IndiaSpirit)>\
<[ SkeletonBone ]/@ConvertBootyIn(SkeletonBone)>\
<[ Tooth ]/@ConvertBootyIn(Tooth)>\
<[ SpiderLine ]/@ConvertBootyIn(SpiderLine)>\
<[ Skin ]/@ConvertBootyIn(Skin)>\
<[ Nail ]/@ConvertBootyIn(Nail)>\
<[ GodStatue ]/@ConvertBootyIn(GodStatue)>\
<[ CorpseBones ]/@ConvertBootyIn(CorpseBones)>\
<[ PrajnaTear ]/@ConvertBootyIn(PrajnaTear)>\
<[ LuminousPearl ]/@ConvertBootyIn(LuminousPearl)>\
<[ FrogSkin ]/@ConvertBootyIn(FrogSkin)>\
<[ Bugle ]/@ConvertBootyIn(Bugle)>\
<[ Relic ]/@ConvertBootyIn(Relic)>\
<[ Scale ]/@ConvertBootyIn(Scale)>\
<[ ForbiddenFruit ]/@ConvertBootyIn(ForbiddenFruit)>\
<[ AncientSkull ]/@ConvertBootyIn(AncientSkull)>\
<[ Crystal ]/@ConvertBootyIn(Crystal)>\
<[ NecroHeart ]/@ConvertBootyIn(NecroHeart)>\
<[ JungleRelic ]/@ConvertBootyIn(JungleRelic)>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

[@ConvertBootyIn()]
#ACT
   Mov  A0  %ARG(1)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
#IF
Equal A0 "SpiderTooth"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR1"  [@CheckStockIn]
Break
#IF
Equal A0 "CannibalPlantFruit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR2"  [@CheckStockIn]
Break
#IF
Equal A0 "ScorpionTail"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR3"  [@CheckStockIn]
Break
#IF
Equal A0 "MaggotPill"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR4"  [@CheckStockIn]
Break
#IF
Equal A0 "MissingPearl"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR5"  [@CheckStockIn]
Break
#IF
Equal A0 "PreciousJade"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR6"  [@CheckStockIn]
Break
#IF
Equal A0 "AntEgg"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR7"  [@CheckStockIn]
Break
#IF
Equal A0 "SnakeBile"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR8"  [@CheckStockIn]
Break
#IF
Equal A0 "IndiaSpirit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR9"  [@CheckStockIn]
Break
#IF
Equal A0 "SkeletonBone"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR10"  [@CheckStockIn]
Break
#IF
Equal A0 "Tooth"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR11"  [@CheckStockIn]
Break
#IF
Equal A0 "SpiderLine"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR12"  [@CheckStockIn]
Break
#IF
Equal A0 "Skin"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR13"  [@CheckStockIn]
Break
#IF
Equal A0 "Nail"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR14"  [@CheckStockIn]
Break
#IF
Equal A0 "GodStatue"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR15"  [@CheckStockIn]
Break
#IF
Equal A0 "CorpseBones"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR16"  [@CheckStockIn]
Break
#IF
Equal A0 "PrajnaTear"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR17"  [@CheckStockIn]
Break
#IF
Equal A0 "LuminousPearl"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR18"  [@CheckStockIn]
Break
#IF
Equal A0 "FrogSkin"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR19"  [@CheckStockIn]
Break
#IF
Equal A0 "Bugle"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR20"  [@CheckStockIn]
Break
#IF
Equal A0 "Relic"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR21"  [@CheckStockIn]
Break
#IF
Equal A0 "Scale"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR22"  [@CheckStockIn]
Break
#IF
Equal A0 "ForbiddenFruit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR23"  [@CheckStockIn]
Break
#IF
Equal A0 "AncientSkull"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR24"  [@CheckStockIn]
Break
#IF
Equal A0 "Crystal"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR25"  [@CheckStockIn]
Break
#IF
Equal A0 "NecroHeart"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR26"  [@CheckStockIn]
Break
#IF
Equal A0 "JungleRelic"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR27"  [@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 Username has been logged!\\
<[ Exit ]/@Exit>\
#ACT
   Mov     A7 %USERNAME
   AddStr  A7 ",,BootyFraud,"
   AddStr  A7 %D1
   Savelog "QuestDiary\System\ItemCreation\BootyStoreLog.txt" %A7
   Break

#IF
   !Equal  D1  ""
   !Equal  D1  0
#SAY
Are you Sure you want to Store <$OUTPUT(D1)> <$OUTPUT(A0)>\\
<[ Store ]/@StoreComfirm>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

[@StoreComfirm]
#IF
  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  "SpiderTooth"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR1='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "CannibalPlantFruit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR2='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "ScorpionTail"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR3='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "MaggotPill"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR4='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "MissingPearl"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR5='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "PreciousJade"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR6='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "AntEgg"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR7='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SnakeBile"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR8='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "IndiaSpirit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR9='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SkeletonBone"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR10='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Tooth"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR11='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SpiderLine"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR12='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Skin"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR13='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Nail"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR14='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "GodStatue"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR15='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "CorpseBones"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR16='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "PrajnaTear"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR17='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "LuminousPearl"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR18='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "FrogSkin"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR19='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Bugle"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR20='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Relic"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR21='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Scale"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR22='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "ForbiddenFruit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR23='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "AncientSkull"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR24='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Crystal"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR25='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "NecroHeart"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR26='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "JungleRelic"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR27='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

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



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


[@WithdrawBooty]
#SAY
Which Booty would you like to Store?\
<[ SpiderTooth ]/@ConvertBootyOut(SpiderTooth)>\
<[ CannibalPlantFruit ]/@ConvertBootyOut(CannibalPlantFruit)>\
<[ ScorpionTail ]/@ConvertBootyOut(ScorpionTail)>\
<[ MaggotPill ]/@ConvertBootyOut(MaggotPill)>\
<[ MissingPearl ]/@ConvertBootyOut(MissingPearl)>\
<[ PreciousJade ]/@ConvertBootyOut(PreciousJade)>\
<[ AntEgg ]/@ConvertBootyOut(AntEgg)>\
<[ SnakeBile ]/@ConvertBootyOut(SnakeBile)>\
<[ IndiaSpirit ]/@ConvertBootyOut(IndiaSpirit)>\
<[ SkeletonBone ]/@ConvertBootyOut(SkeletonBone)>\
<[ Tooth ]/@ConvertBootyOut(Tooth)>\
<[ SpiderLine ]/@ConvertBootyOut(SpiderLine)>\
<[ Skin ]/@ConvertBootyOut(Skin)>\
<[ Nail ]/@ConvertBootyOut(Nail)>\
<[ GodStatue ]/@ConvertBootyOut(GodStatue)>\
<[ CorpseBones ]/@ConvertBootyOut(CorpseBones)>\
<[ PrajnaTear ]/@ConvertBootyOut(PrajnaTear)>\
<[ LuminousPearl ]/@ConvertBootyOut(LuminousPearl)>\
<[ FrogSkin ]/@ConvertBootyOut(FrogSkin)>\
<[ Bugle ]/@ConvertBootyOut(Bugle)>\
<[ Relic ]/@ConvertBootyOut(Relic)>\
<[ Scale ]/@ConvertBootyOut(Scale)>\
<[ ForbiddenFruit]/@ConvertBootyOut(ForbiddenFruit)>\
<[ AncientSkull ]/@ConvertBootyOut(AncientSkull)>\
<[ Crystal ]/@ConvertBootyOut(Crystal)>\
<[ NecroHeart ]/@ConvertBootyOut(NecroHeart)>\
<[ JungleRelic ]/@ConvertBootyOut(JungleRelic)>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@ConvertBootyOut()]
#ACT
Mov A0  %ARG(1)
FormatStr "FLD_CHARACTER='%s'" %USERNAME
#IF
Equal A0 "SpiderTooth"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR1"  [@CheckStock]
Break
#IF
Equal A0 "CannibalPlantFruit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR2"  [@CheckStock]
Break
#IF
Equal A0 "ScorpionTail"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR3"  [@CheckStock]
Break
#IF
Equal A0 "MaggotPill"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR4"  [@CheckStock]
Break
#IF
Equal A0 "MissingPearl"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR5"  [@CheckStock]
Break
#IF
Equal A0 "PreciousJade"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR6"  [@CheckStock]
Break
#IF
Equal A0 "AntEgg"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR7"  [@CheckStock]
Break
#IF
Equal A0 "SnakeBile"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR8"  [@CheckStock]
Break
#IF
Equal A0 "IndiaSpirit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR9"  [@CheckStock]
Break
#IF
Equal A0 "SkeletonBone"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR10"  [@CheckStock]
Break
#IF
Equal A0 "Tooth"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR11"  [@CheckStock]
Break
#IF
Equal A0 "SpiderLine"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR12"  [@CheckStock]
Break
#IF
Equal A0 "Skin"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR13"  [@CheckStock]
Break
#IF
Equal A0 "Nail"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR14"  [@CheckStock]
Break
#IF
Equal A0 "GodStatue"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR15"  [@CheckStock]
Break
#IF
Equal A0 "CorpseBones"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR16"  [@CheckStock]
Break
#IF
Equal A0 "PrajnaTear"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR17"  [@CheckStock]
Break
#IF
Equal A0 "LuminousPearl"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR18"  [@CheckStock]
Break
#IF
Equal A0 "FrogSkin"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR19"  [@CheckStock]
Break
#IF
Equal A0 "Bugle"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR20"  [@CheckStock]
Break
#IF
Equal A0 "Relic"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR21"  [@CheckStock]
Break
#IF
Equal A0 "Scale"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR22"  [@CheckStock]
Break
#IF
Equal A0 "ForbiddenFruit"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR23"  [@CheckStock]
Break
#IF
Equal A0 "AncientSkull"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR24"  [@CheckStock]
Break
#IF
Equal A0 "Crystal"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR25"  [@CheckStock]
Break
#IF
Equal A0 "NecroHeart"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR26"  [@CheckStock]
Break
#IF
Equal A0 "JungleRelic"
#ACT
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR27"  [@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>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\

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

#IF
   !Equal  D1  ""
   !Equal  D1  0
#ACT
   Dec  D0  %D1
#SAY
Are you Sure you want to Store <$OUTPUT(D1)> <$OUTPUT(A0)>\
This will leave you with <$OUTPUT(D0)> in Store\\
<[ Withdraw ]/@WithdrawComfirm>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@WithdrawComfirm]
#ACT 
   Inc  D0  1
   Give  %A0 %D1
#IF
EQUAL  A0  "SpiderTooth"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR1='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "CannibalPlantFruit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR2='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "ScorpionTail"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR3='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "MaggotPill"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR4='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "MissingPearl"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR5='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "PreciousJade"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR6='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "AntEgg"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR7='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SnakeBile"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR8='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "IndiaSpirit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR9='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SkeletonBone"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR10='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Tooth"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR11='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "SpiderLine"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR12='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Skin"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR13='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Nail"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR14='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "GodStatue"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR15='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "CorpseBones"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR16='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "PrajnaTear"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR17='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "LuminousPearl"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR18='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "FrogSkin"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR19='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Bugle"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR20='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Relic"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR21='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Scale"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR22='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "ForbiddenFruit"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR23='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "AncientSkull"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR24='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "Crystal"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR25='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "NecroHeart"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR26='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

#IF
EQUAL  A0  "JungleRelic"
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
mov   A8     %A9
FormatStr "FLD_VAR27='%s'" %D0
UPDATEVALUESQL "TBL_BootyStore" %A8 %A9

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

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

[@CheckBootyStock]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
Mov A0 "SpiderTooth"
Mov A1 "CannibalPlantFruit"
Mov A2 "ScorpionTail"
Mov A3 "MaggotPill"
Mov A4 "MissingPearl"
Mov A5 "PreciousJade"
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR1,FLD_VAR2,FLD_VAR3,FLD_VAR4,FLD_VAR5,FLD_VAR6"  [@CheckBootyStock1]

[@CheckBootyStock1()]
#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
#SAY
<$OUTPUT(A0)> - <$OUTPUT(D0)>\
<$OUTPUT(A1)> - <$OUTPUT(D1)>\
<$OUTPUT(A2)> - <$OUTPUT(D2)>\
<$OUTPUT(A3)> - <$OUTPUT(D3)>\
<$OUTPUT(A4)> - <$OUTPUT(D4)>\
<$OUTPUT(A5)> - <$OUTPUT(D5)>\
<[ Page 2 ]/@CheckBootyStock2>\\

[@CheckBootyStock2]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
Mov A0 "AntEgg"
Mov A1 "SnakeBile"
Mov A2 "IndiaSpirit"
Mov A3 "SkeletonBone"
Mov A4 "Tooth"
Mov A5 "SpiderLine"
ReadValueSql  "TBL_BootyStore"  %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
#SAY
<$OUTPUT(A0)> - <$OUTPUT(D0)>\
<$OUTPUT(A1)> - <$OUTPUT(D1)>\
<$OUTPUT(A2)> - <$OUTPUT(D2)>\
<$OUTPUT(A3)> - <$OUTPUT(D3)>\
<$OUTPUT(A4)> - <$OUTPUT(D4)>\
<$OUTPUT(A5)> - <$OUTPUT(D5)>\
<[ Page 3 ]/@CheckBootyStock4>\\\

[@CheckBootyStock4]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
Mov A0 "Skin"
Mov A1 "Nail"
Mov A2 "GodStatue"
Mov A3 "CorpseBones"
Mov A4 "PrajnaTear"
Mov A5 "LuminousPearl"
ReadValueSql  "TBL_BootyStore"  %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
#SAY
<$OUTPUT(A0)> - <$OUTPUT(D0)>\
<$OUTPUT(A1)> - <$OUTPUT(D1)>\
<$OUTPUT(A2)> - <$OUTPUT(D2)>\
<$OUTPUT(A3)> - <$OUTPUT(D3)>\
<$OUTPUT(A4)> - <$OUTPUT(D4)>\
<$OUTPUT(A5)> - <$OUTPUT(D5)>\
<[ Page 4 ]/@CheckBootyStock6>\\

[@CheckBootyStock6]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
Mov A0 "FrogSkin"
Mov A1 "Bugle"
Mov A2 "Relic"
Mov A3 "Scale"
Mov A4 "ForbiddenFruit"
Mov A5 "AncientSkull"
ReadValueSql  "TBL_BootyStore"  %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
#SAY
<$OUTPUT(A0)> - <$OUTPUT(D0)>\
<$OUTPUT(A1)> - <$OUTPUT(D1)>\
<$OUTPUT(A2)> - <$OUTPUT(D2)>\
<$OUTPUT(A3)> - <$OUTPUT(D3)>\
<$OUTPUT(A4)> - <$OUTPUT(D4)>\
<$OUTPUT(A5)> - <$OUTPUT(D5)>\
<[ Page 5 ]/@CheckBootyStock8>\\

[@CheckBootyStock8]
#ACT
FormatStr "FLD_CHARACTER='%s'" %USERNAME
Mov A0 "Crystal"
Mov A1 "NecroHeart"
Mov A2 "JungleRelic"
ReadValueSql  "TBL_BootyStore"  %A9 "FLD_VAR25,FLD_VAR26,FLD_VAR27"  [@CheckBootyStock9]

[@CheckBootyStock9()]
#ACT
Mov  D0 %ARG(1)
Mov  D1 %ARG(2)
Mov  D2 %ARG(3)
Dec  D0 1
Dec  D1 1
Dec  D2 1
#SAY
<$OUTPUT(A0)> - <$OUTPUT(D0)>\
<$OUTPUT(A1)> - <$OUTPUT(D1)>\
<$OUTPUT(A2)> - <$OUTPUT(D2)>\\
<[ Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@NextAuto]
#IF
   Small D5 27
#ACT
   Inc D5 1
   Mov  A0  %ARG(1)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
#ELSEACT
   Goto @AutoComplete
   Break
#IF
   Equal D5 1
#ACT
   Mov A3 "FLD_VAR1"
   Mov A0 "SpiderTooth"
#IF
   Equal D5 1
#ACT
   Mov A3 "FLD_VAR1"
   Mov A0 "SpiderTooth"
#IF
   Equal D5 2
#ACT
   Mov A3 "FLD_VAR2"
   Mov A0 "CannibalPlantFruit"
#IF
   Equal D5 3
#ACT
   Mov A3 "FLD_VAR3"
   Mov A0 "ScorpionTail"
#IF
   Equal D5 4
#ACT
   Mov A3 "FLD_VAR4"
   Mov A0 "MaggotPill"
#IF
   Equal D5 5
#ACT
   Mov A3 "FLD_VAR5"
   Mov A0 "MissingPearl"
#IF
   Equal D5 6
#ACT
   Mov A3 "FLD_VAR6"
   Mov A0 "PreciousJade"
#IF
   Equal D5 7
#ACT
   Mov A3 "FLD_VAR7"
   Mov A0 "AntEgg"
#IF
   Equal D5 8
#ACT
   Mov A3 "FLD_VAR8"
   Mov A0 "SnakeBile"
#IF
   Equal D5 9
#ACT
   Mov A3 "FLD_VAR9"
   Mov A0 "IndiaSpirit"
#IF
   Equal D5 10
#ACT
   Mov A3 "FLD_VAR10"
   Mov A0 "SkeletonBone"
#IF
   Equal D5 11
#ACT
   Mov A3 "FLD_VAR11"
   Mov A0 "Tooth"
#IF
   Equal D5 12
#ACT
   Mov A3 "FLD_VAR12"
   Mov A0 "SpiderLine"
#IF
   Equal D5 13
#ACT
   Mov A3 "FLD_VAR13"
   Mov A0 "Skin"
#IF
   Equal D5 14
#ACT
   Mov A3 "FLD_VAR14"
   Mov A0 "Nail"
#IF
   Equal D5 15
#ACT
   Mov A3 "FLD_VAR15"
   Mov A0 "GodStatue"
#IF
   Equal D5 16
#ACT
   Mov A3 "FLD_VAR16"
   Mov A0 "CorpseBones"
#IF
   Equal D5 17
#ACT
   Mov A3 "FLD_VAR17"
   Mov A0 "PrajnaTear"
#IF
   Equal D5 18
#ACT
   Mov A3 "FLD_VAR18"
   Mov A0 "LuminousPearl"
#IF
   Equal D5 19
#ACT
   Mov A3 "FLD_VAR19"
   Mov A0 "FrogSkin"
#IF
   Equal D5 20
#ACT
   Mov A3 "FLD_VAR20"
   Mov A0 "Bugle"
#IF
   Equal D5 21
#ACT
   Mov A3 "FLD_VAR21"
   Mov A0 "Relic"
#IF
   Equal D5 22
#ACT
   Mov A3 "FLD_VAR22"
   Mov A0 "Scale"
#IF
   Equal D5 23
#ACT
   Mov A3 "FLD_VAR23"
   Mov A0 "ForbiddenFruit"
#IF
   Equal D5 24
#ACT
   Mov A3 "FLD_VAR24"
   Mov A0 "AncientSkull"
#IF
   Equal D5 25
#ACT
   Mov A3 "FLD_VAR25"
   Mov A0 "Crystal"
#IF
   Equal D5 26
#ACT
   Mov A3 "FLD_VAR26"
   Mov A0 "NecroHeart"
#IF
   Equal D5 27
#ACT
   Mov A3 "FLD_VAR27"
   Mov A0 "JungleRelic"
#IF
#ACT
   ReadValueSql  "TBL_BootyStore"  %A9 %A3 [@CheckAuto]

[@CheckAuto()]
#ACT
   Mov   D0   %ARG(1)
   Dec   D0   1
   Mov  D6  1
   Goto @CheckAutoBag

[@CheckAutoBag]
#IF
   CheckItem %A0 %D6
#ACT
   Inc D6 1
  Goto @CheckAutoBag
#ELSEACT
   Goto @StoreAutoItem

[@StoreAutoItem]
#IF
   !Equal D6 1
#ACT
   Dec D6 1
   Take %A0 %D6
   Inc  D0  %D6
   AddStr A7 %D6
   AddStr A7 " "
   AddStr A7 %A0
   AddStr A7 " Stored - Now "
   AddStr A7 %D0
   AddStr A7 "\"
   Inc  D0  1
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   Mov   A8     %A9
   FormatStr "%s='%s'" %A3 %D0
   UPDATEVALUESQL "TBL_BootyStore" %A8 %A9
   DelayGoto [local] 1 @NextAuto
#SAY
   <$OUTPUT(A7)>\
#ELSEACT
   AddStr A7 "No "
   AddStr A7 %A0
   AddStr A7 " Stored - Now "
   AddStr A7 %D0
   AddStr A7 "\"
   DelayGoto [local] 1 @NextAuto
#ELSESAY
   <$OUTPUT(A7)>\
[@AutoComplete]
#SAY
Auto Complete...\
<[ Main ]/@Main>\\\


}


;1 SpiderTooth
;2 CannibalPlantFruit
;3 ScorpionTail
;4 MaggotPill
;5 MissingPearl
;6 PreciousJade
;7 AntEgg
;8 SnakeBile
;9 IndiaSpirit
;10 SkeletonBone
;11 Tooth
;12 SpiderLine
;13 Skin
;14 Nail
;15 GodStatue
;16 CorpseBones
;17 PrajnaTear
;18 LuminousPearl
;19 FrogSkin
;20 Bugle
;21 Relic
;22 Scale
;23 ForbiddenFruit
;24 AncientSkull
;25 Crystal
;26 NecroHeart
;27 JungleRelic
;28 Spare
;29 Spare
;30 Spare
;31 Spare
;32 Spare
;33 Spare
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;