[@main]
#SAY
<[ Item Creation ]/@ItemCreationTest>\
<[ Exchange Cracked Gem's ]/@ExchangeCrackedGems>\
<[ Exchange Gem's ]/@ExchangeGems>\\
<[ Exit ]/@Exit>\\\

[@ItemCreationTest]
#CALL [System\ItemCreation\ItemCreation.txt] @ItemCreation

[@ExchangeCrackedGems]
#SAY
I can swap 5 Cracked Gem's for Normal Gem's\
Which CrackedGem would you like to swap>\
<[ Protection ]/@ConvertGem(ProtectionGem)>\
<[ Health ]/@ConvertGem(HealthGem)>\
<[ Bravery ]/@ConvertGem(BraveryGem)>\
<[ EvilSlayer ]/@ConvertGem(EvilSlayerGem)>\
<[ Magic ]/@ConvertGem(MagicGem)>\
<[ Mana ]/@ConvertGem(ManaGem)>\\
<[ Exit ]/@Exit>\\\

[@ConvertGem()]
#ACT
Mov A1 %ARG(1)
Mov A2 "Cracked"
AddStr A2 %A1
#IF
CheckItem %A2 5
#SAY
Are you sure you want to Convert 5 <$OUTPUT(A2)> for 1 <$OUTPUT(A1)>\\
<[ Sure Do ]/@ConvertIt>\
<[ Errr... No ]/@exit>\\\
#ELSESAY
You don't have 5 <$OUTPUT(A2)>\
<[ Exit ]/@Exit>\\\

[@ConvertIt]
#IF
CheckItem %A2 5
#ACT
Take %A2 5
Give %A1 1
#SAY
There you go.. a nice fresh <$OUTPUT(A1)>\\
<[ Exit ]/@exit>\\\
#ELSESAY
Don't try to cheat me\
<[ Exit ]/@exit>\\\


[@ExchangeGems]
#SAY
I can swap 5 Gem's for Orb's\
Which Gem would you like to swap>\
<[ Protection ]/@ConvertOrb(Protection)>\
<[ Health ]/@ConvertOrb(Health)>\
<[ Bravery ]/@ConvertOrb(Bravery)>\
<[ EvilSlayer ]/@ConvertOrb(EvilSlayer)>\
<[ Magic ]/@ConvertOrb(Magic)>\
<[ Mana ]/@ConvertOrb(Mana)>\\
<[ Exit ]/@Exit>\\\

[@ConvertOrb()]
#ACT
Mov A1 %ARG(1)
Mov A2 %ARG(1)
AddStr A2 "Gem"
AddStr A1 "Orb"
#IF
CheckItem %A2 5
#SAY
Are you sure you want to Convert 5 <$OUTPUT(A2)> for 1 <$OUTPUT(A1)>\\
<[ Sure Do ]/@ConvertItOrb>\
<[ Errr... No ]/@exit>\\\
#ELSESAY
You don't have 5 <$OUTPUT(A2)>\
<[ Exit ]/@Exit>\\\

[@ConvertItOrb]
#IF
CheckItem %A2 5
#ACT
Take %A2 5
Give %A1 1
#SAY
There you go.. a nice fresh <$OUTPUT(A1)>\\
<[ Exit ]/@exit>\\\
#ELSESAY
Don't try to cheat me\
<[ Exit ]/@exit>\\\
