;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Main]
#IF
#ACT
   Mov A1 ""
   Mov A0 %GUILDNAME
   LoadValue N1 "QuestDiary\System\HomeSystem\Homes.txt" [Homes] CurrentHomeLimit
   LoadValue A1 "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Home
#IF
   !Equal A1 ""
#SAY
Would you like to move to your home now?\
<[ Move to Home ]/@MoveToHomeNow>\\\
#ELSEACT
   Goto @CheckItems

[@HomeMov]
#SAY
Would you like to move to your home now?\
<[ Move to Home ]/@MoveToHomeNow>\\\

[@MoveToHomeNow]
#ACT
Mov A0 %GUILDNAME
LoadValue A1 "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Home
#IF
!Equal A1 ""
#ACT
Mov A2 "10_0"
AddStr A2 %A1
Map %A2
#ELSEACT
SysMsg "No GT Found.. "

[@CheckItems]
#ACT
   LoadValue N1 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] "Wood"
   LoadValue N2 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] "Mortar"
   LoadValue N3 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] "GlassShard"
   LoadValue N4 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] "Stone"
   LoadValue N5 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] "SpareKey"
#IF
   !IsGuildMaster
#SAY
You must be a Guild Leader to Create a Home\\
#IF
#SAY
Sting offers you the capability of owning your own Guild Home.\
To build your home I need the following..\\
{FCOLOR/10}Wood {FCOLOR/1}500{FCOLOR/12} - <$OUTPUT(N1)> in Store\
{FCOLOR/10}Mortar {FCOLOR/1}250{FCOLOR/12} - <$OUTPUT(N2)> in Store\
{FCOLOR/10}GlassShard {FCOLOR/1}1000{FCOLOR/12} - <$OUTPUT(N3)> in Store\
{FCOLOR/10}Stone {FCOLOR/1}1500{FCOLOR/12} - <$OUTPUT(N4)> in Store\
{FCOLOR/10}SpareKey {FCOLOR/1}50{FCOLOR/12} - <$OUTPUT(N5)> in Store\\
These drop of a variety of creatures around the land\
of Mir, but I will give you 1 hint... you have to \
harvest for 1 of the items!\\\
You can store these items in a Guild Store\
If you have no guild, you will lose these items!\
Which Item would you like to store?\\
#IF
  Small N1 500
#SAY
<[ Wood ]/@StoreItem(Wood)>\
#IF
  Small N2 250
#SAY
<[ Mortar ]/@StoreItem(Mortar)>\
#IF
  Small N3 1000
#SAY
<[ GlassShard ]/@StoreItem(GlassShard)>\
#IF
  Small N4 1500
#SAY
<[ Stone ]/@StoreItem(Stone)>\
#IF
  Small N5 50
#SAY
<[ SpareKey ]/@StoreItem(SpareKey)>\\
#IF
  ELarge N1 500
  ELarge N2 250
  ELarge N3 1000
  ELarge N4 1500
  Elarge N5 50
#SAY
  You have all the materials you require!\
<[ Build Home ]/@BuildHome>\
#IF
#SAY
<[ Exit ]/@exit>\\\

[@StoreItem()]
#ACT
Mov A1 %ARG(1)
#SAY
How Many of <$OUTPUT(A1)> Would you like to store?\
<[ Enter Qty ]/@@StoreItemQty>\\

[@@StoreItemQty]
#ACT
Mov D1 %INPUTNUM
#SAY
Are you sure you would like to store <$OUTPUT(D1)> <$OUTPUT(A1)>\
These will go into <$OUTPUT(A0)>'s guild store\\
<[ Yes ]/@StoreItemStore>\
<[ Exit ]/@Exit>\\\


[@StoreItemStore]
#IF
   CheckItem %A1 %D1
#ACT
   Take %A1 %D1
   LoadValue N1 "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] %A1
#ELSEACT
   Break
#ELSESAY
You do not have <$OUTPUT(D1)> <$OUTPUT(A1)>\
<[ Exit ]/@Exit>\\

#IF
   Large N1 0
#ACT
   Inc D1 %N1
#IF
#ACT
   SaveValue "QuestDiary\System\HomeSystem\ItemStore.txt" [%A0] %A1 %D1
#SAY
You now have <$OUTPUT(D1)> <$OUTPUT(A1)> in your guild store>\\
<[ Exit ]/@Exit>\\



[@BuildHome]
#IF
   IsGuildMaster
#ACT
   Mov A1 ""
   Mov A0 %GUILDNAME
   LoadValue N1 "QuestDiary\System\HomeSystem\Homes.txt" [Homes] CurrentHomeLimit
   LoadValue A1 "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Home
#ELSESAY
You have to be a Guild Leader to Create a Home\\
<[ Exit ]/@exit>\\\
#ELSEACT
   Break

#IF
   Equal A1 ""
#ACT
   Inc N1 1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Trainer %N1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [%A0] PuriScareCrow %N1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [%A0] HuntingArea %N1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Farm %N1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [%A0] Home %N1
   SaveValue "QuestDiary\System\HomeSystem\Homes.txt" [Homes] CurrentHomeLimit %N1
#SAY
You Guild Home has been made\
<[ Exit ]/@exit>\
#ELSESAY
You already Have a Guild Home!  Sell those items to\
someone else, you'll make a killing!\\
<[ Exit ]/@exit>\


[@SayHello]
#ACT
Speak "Hello Venom :P"
Break

[@SayGoodBye]
#ACT
Speak "Cya Venom :)"
Break
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;