action send $lastcommand when \.\.\.wait
action send $lastcommand when only type ahead
action send $lastcommand when You can't do that

######################################################
#### VARIABLES - SET THESE!!
######################################################

setvariable critter gryphon

setvariable TEACHPARTNER YES
setvariable CLASS PARRY
setvariable PARTNER Gnarta

setvariable LOCKPICKBOXON YES
setvariable MAINCONTAINER WATER BAG
setvariable USEDCONTAINER THIGH BAG

setvariable TARASKILL01 Primary Magic
setvariable TARASKILL02 Outdoorsmanship
setvariable TARASKILL03 Attunement
setvariable TARASKILL04 Outdoorsmanship
setvariable TARASKILL05 Augmentation
setvariable TARASKILL06 Outdoorsmanship
setvariable TARAPICKER ONE

setvariable AugTattoo1 NO
setvariable AugSpell1 VIGOR
setvariable AugPrep1 15
setvariable AugPrepSymb1 YES
setvariable AugHarnessing1 YES
setvariable AugHarness1 45

setvariable AugTattoo2 NO
setvariable AugSpell2 VIGOR
setvariable AugPrep2 15
setvariable AugPrepSymb2 YES
setvariable AugHarnessing2 YES
setvariable AugHarness2 45

setvariable WardTattoo1 NO
setvariable WardSpell1 IC
setvariable WardPrep1 5
setvariable WardPrepSymb1 YES
setvariable WardHarnessing1 YES
setvariable WardHarness1 55

setvariable WardTattoo2 NO
setvariable WardSpell2 IC
setvariable WardPrep2 5
setvariable WardPrepSymb2 YES
setvariable WardHarnessing2 YES
setvariable WardHarness2 55

setvariable UtilTattoo1 NO
setvariable UtilSpell1 HEAL
setvariable UtilPrep1 15
setvariable UtilPrepSymb1 YES
setvariable UtilHarnessing1 YES
setvariable UtilHarness1 45

setvariable UtilTattoo2 NO
setvariable UtilSpell2 HEAL
setvariable UtilPrep2 15
setvariable UtilPrepSymb2 YES
setvariable UtilHarnessing2 YES
setvariable UtilHarness2 45

setvariable SpellChanger AUG
setvariable AugChanger ONE
setvariable WardChanger ONE
setvariable UtilChanger ONE



######################################################
#### START OF THE MAIN SCRIPT!!
######################################################


Start:
put stow left
pause
put stow right
pause
if "%LOCKPICKBOXON" = "YES" then gosub MOVINGBOXES
pause
goto MAINLOOP


MOVINGBOXES:
put get train box from my %USEDCONTAINER
match MOVINGBOXESTOMAIN You get an intricate locksmith's training box
match MOVINGTOMAIN What were you referring to
matchwait

MOVINGBOXESTOMAIN:
put put my train box in my %MAINCONTAINER
pause
goto MOVINGBOXES

MOVINGTOMAIN:
return


######################################################
#### MAIN CONTROLLING LOOP
######################################################

MAINLOOP:
if "%TEACHPARTNER" = "YES" then put teach %CLASS to %PARTNER
pause
put touch %PARTNER
pause
put take %PARTNER all
pause
if $Locksmithing.LearningRate <= 30 then gosub LOCKPICKBOXONCHECKER
pause
gosub MainMagicLoop
pause
goto MAINLOOP




######################################################
#### MAIN MAGIC TRAINER LOOP
######################################################

MainMagicLoop:
gosub SPELLPICKER
pause
gosub COLLECTROCKSLOOP
pause
gosub HARNESSPICKER
pause
gosub SPELLPICKER
pause
gosub APPLOOP
pause
gosub HARNESSPICKER
pause
return

######################################################
#### COLLECT ROCKS LOOP
######################################################

COLLECTROCKSLOOP:
put retreat
pause 0.5
put retreat
pause 0.5
put collect rock
pause 16
put kick pile
pause 2
return

######################################################
#### APP LOOP
######################################################

APPLOOP:
pause
put recall first %critter
pause
pause
put app first %critter quick
pause
pause
put skin
pause
pause
put app second %critter quick
pause
pause
put skin
pause
pause
put app third %critter quick
pause
pause
put skin
pause
pause
put app fourth %critter quick
pause
pause
put skin
pause
pause
put loot goods
pause
return

######################################################
#### SPELL SYSTEMS - DONT TOUCH!!
######################################################


SPELLPICKER:
if "%SpellChanger" = "AUG" then goto AUGSPELLPREPPING
if "%SpellChanger" = "WARD" then goto WARDSPELLPREPPING
if "%SpellChanger" = "UTIL" then goto UTILSPELLPREPPING
return

AUGSPELLPREPPING:
if "%AugChanger" = "ONE" then goto AUGSPELLPREPPING1
if "%AugChanger" = "TWO" then goto AUGSPELLPREPPING2
return

WARDSPELLPREPPING:
if "%UtilChanger" = "ONE" then goto WARDSPELLPREPPING1
if "%UtilChanger" = "TWO" then goto WARDSPELLPREPPING2
return

UTILSPELLPREPPING:
if "%UtilChanger" = "ONE" then goto UTILSPELLPREPPING1
if "%UtilChanger" = "TWO" then goto UTILSPELLPREPPING2
return

AUGSPELLPREPPING1:
if "%AugTattoo1" = "YES" then put invoke my tattoo
if "%AugTattoo1" = "NO" then put prep %AugSpell1 %AugPrep1
pause
return

AUGSPELLPREPPING2:
if "%AugTattoo2" = "YES" then put invoke my tattoo
if "%AugTattoo2" = "NO" then put prep %AugSpell2 %AugPrep2
pause
return

WARDSPELLPREPPING1:
if "%WardTattoo1" = "YES" then put invoke my tattoo
if "%WardTattoo1" = "NO" then put prep %WardSpell1 %WardPrep1
pause
return

WARDSPELLPREPPING2:
if "%WardTattoo2" = "YES" then put invoke my tattoo
if "%WardTattoo2" = "NO" then put prep %WardSpell2 %WardPrep2
pause
return

UTILSPELLPREPPING1:
if "%UtilTattoo1" = "YES" then put invoke my tattoo
if "%UtilTattoo1" = "NO" then put prep %UtilSpell1 %UtilPrep1
pause
return

UTILSPELLPREPPING2:
if "%UtilTattoo2" = "YES" then put invoke my tattoo
if "%UtilTattoo2" = "NO" then put prep %UtilSpell2 %UtilPrep2
pause
return

HARNESSPICKER:
if "%SpellChanger" = "AUG" then goto AUGSPELLCASTING
if "%SpellChanger" = "WARD" then goto WARDSPELLCASTING
if "%SpellChanger" = "UTIL" then goto UTILSPELLCASTING
return

AUGSPELLCASTING:
if "%AugChanger" = "ONE" then goto AUGSPELLCASTING1
if "%AugChanger" = "TWO" then goto AUGSPELLCASTING2
return

WARDSPELLCASTING:
if "%UtilChanger" = "ONE" then goto WARDSPELLCASTING1
if "%UtilChanger" = "TWO" then goto WARDSPELLCASTING2
return

UTILSPELLCASTING:
if "%UtilChanger" = "ONE" then goto UTILSPELLCASTING1
if "%UtilChanger" = "TWO" then goto UTILSPELLCASTING2
return


AUGSPELLCASTING1:
if "%AugPrepSymb1" = "YES" then put PREP SYMB
pause 0.5
if "%AugHarnessing1" = "YES" then put harn %AugHarness1
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable AugChanger TWO
pause
setvariable SpellChanger WARD
pause 0.5
return

AUGSPELLCASTING2:
if "%AugPrepSymb2" = "YES" then put PREP SYMB
pause 0.5
if "%AugHarnessing2" = "YES" then put harn %AugHarness2
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable AugChanger ONE
pause
setvariable SpellChanger WARD
pause 0.5
return

WARDSPELLCASTING1:
if "%WardPrepSymb1" = "YES" then put PREP SYMB
pause 0.5
if "%WardHarnessing1" = "YES" then put harn %WardHarness1
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable WardChanger TWO
pause
setvariable SpellChanger UTIL
pause 0.5
return

WARDSPELLCASTING2:
if "%WardPrepSymb2" = "YES" then put PREP SYMB
pause 0.5
if "%WardHarnessing2" = "YES" then put harn %WardHarness2
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable WardChanger ONE
pause
setvariable SpellChanger UTIL
pause 0.5
return

UTILSPELLCASTING1:
if "%UtilPrepSymb1" = "YES" then put PREP SYMB
pause 0.5
if "%UtilHarnessing1" = "YES" then put harn %UtilHarness1
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable UtilChanger TWO
pause
setvariable SpellChanger AUG
pause 0.5
return

UTILSPELLCASTING2:
if "%UtilPrepSymb2" = "YES" then put PREP SYMB
pause 0.5
if "%UtilHarnessing2" = "YES" then put harn %UtilHarness2
pause 2
put cast
pause
put rel spell
pause
put rel mana
pause
setvariable UtilChanger ONE
pause
setvariable SpellChanger AUG
pause 0.5
return

######################################################
#### TARANTULA SYSTEMS - DONT TOUCH!!
######################################################


TaraSelector:
if "%TARAPICKER" = "ONE" then goto TaraUser01
if "%TARAPICKER" = "TWO" then goto TaraUser02
if "%TARAPICKER" = "THREE" then goto TaraUser03
if "%TARAPICKER" = "FOUR" then goto TaraUser04
if "%TARAPICKER" = "FIVE" then goto TaraUser05
if "%TARAPICKER" = "SIX" then goto TaraUser06


TaraUser01:
put turn my tarantula to %TARASKILL01
pause
put rub my tarantula
matchre TaraUser01Success The tarantula comes alive in your hand
matchre TaraUser01Success You try, but it does nothing
matchre TaraUser01Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser01Success:
setvariable TARAPICKER TWO
pause
gosub AlmanacLoop
pause
return

TaraUserFail:
return


TaraUser02:
put turn my tarantula to %TARASKILL02
pause
put rub my tarantula
matchre TaraUser02Success The tarantula comes alive in your hand
matchre TaraUser02Success You try, but it does nothing
matchre TaraUser02Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser02Success:
setvariable TARAPICKER THREE
pause
gosub AlmanacLoop
pause
return


TaraUser03:
put turn my tarantula to %TARASKILL03
pause
put rub my tarantula
matchre TaraUser03Success The tarantula comes alive in your hand
matchre TaraUser03Success You try, but it does nothing
matchre TaraUser03Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser03Success:
setvariable TARAPICKER FOUR
pause
gosub AlmanacLoop
pause
return

TaraUser04:
put turn my tarantula to %TARASKILL04
pause
put rub my tarantula
matchre TaraUser04Success The tarantula comes alive in your hand
matchre TaraUser04Success You try, but it does nothing
matchre TaraUser04Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser04Success:
setvariable TARAPICKER FIVE
pause
gosub AlmanacLoop
pause
return

TaraUser05:
put turn my tarantula to %TARASKILL05
pause
put rub my tarantula
matchre TaraUser05Success The tarantula comes alive in your hand
matchre TaraUser05Success You try, but it does nothing
matchre TaraUser05Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser05Success:
setvariable TARAPICKER SIX
pause
gosub AlmanacLoop
pause
return

TaraUser06:
put turn my tarantula to %TARASKILL06
pause
put rub my tarantula
matchre TaraUser06Success The tarantula comes alive in your hand
matchre TaraUser06Success You try, but it does nothing
matchre TaraUser06Success But you currently aren't learning
matchre TaraUserFail You try, but the biomechanical tarantula is unresponsive
matchwait

TaraUser06Success:
setvariable TARAPICKER ONE
pause
gosub AlmanacLoop
pause
return


######################################################
#### LOCKPICK SYSTEMS - DONT TOUCH!!
######################################################


LOCKCHECK:
if $Locksmithing.LearningRate > 32 then goto LOCKEND
if $Locksmithing.LearningRate <= 32 then goto LOCKPICKBOXONCHECKER

LOCKPICKBOXONCHECKER:
if "%LOCKPICKBOXON" = "YES" then goto GETTRAINBOX
return

GETTRAINBOX:
put get train box from my %MAINCONTAINER
match PICKTRAINING You get an intricate locksmith's training box
match OUTOFCHARGE What were you referring to
matchwait

PICKTRAINING:
gosub SPELLPICKER
pause
put pick my train box
matchre SUCCESSFULPICKING You set about picking your training box
matchre SUCCESSFULPICKING But the training box isn't locked
matchre TRAINBOXUSEDUP The lock feels warm
matchwait

SUCCESSFULPICKING:
put lock my train box
pause
goto PICKTRAINING2

PICKTRAINING2:
put pick my train box
matchre SUCCESSFULPICKING2 You set about picking your training box
matchre SUCCESSFULPICKING2 But the training box isn't locked
matchre TRAINBOXUSEDUP The lock feels warm
matchwait

SUCCESSFULPICKING2:
put lock my train box
pause
goto LOCKEND

TRAINBOXUSEDUP:
put put my train box in my %USEDCONTAINER
pause
goto GETTRAINBOX

OUTOFCHARGE:
setvariable LOCKPICKBOXON NO
pause
PUT REL SPELL
pause
return

LOCKEND:
put put my train box in my %MAINCONTAINER
pause
gosub HARNESSPICKER
pause
return

######################################################
#### ALMANAC LOOP!!
######################################################

AlmanacLoop:
put get my almanac
pause
put study my almanac
pause
pause
put stow my almanac
pause
put put my almanac in my pack
pause
put put my almanac in my backpack
return


######################################################
#### NEEDED IN CODE - LEAVE ALONE!!
######################################################


THERETURN:
return

verb:
     var verb $0
     goto verb.a
verb.p:
     pause 0.5
verb.a:
put %verb
     matchre verb.p (type ahead|\.\.\.wait)
     matchre verb.d (You drop|You put)
     matchwait
verb.d:
     return