pause 1
if ("$charactername" = "Ghimly") then put #script abort all except cross
pause 1
send .afk1
pause 1
if ("$charactername" = "Ghimly") then send .teachfa
pause 1
if ("$charactername" = "Ghimly") then send .afk3
pause 1
if ("$charactername" = "Ghimly") then put #script abort afk1

START:
pause 1
send exp
pause 1
gosub clear
pause 1
send #goto 355
pause 6
send stop play
pause 1
send stow my mort
pause 1
send stow my pestle
pause 1
send get flower from my mort
pause 1
send put my flower in bin
pause 1
send rel spell
pause 1
send stand
pause 1
send put my grass in bin
pause 1
send put my grass in bin
pause 1
if ("$charactername" = "Ghimly") then send rem my badge
pause 1
if ("$charactername" = "Ghimly") then send pray my badge
pause
if ("$charactername" = "Ghimly") then send wear my badge
pause 1
send touch vess
pause 1
send listen to ghim
pause 1
send Hunt
pause 1
if ($Appraisal.LearningRate < 30) then {
	send app my stick
	pause
}
pause 1
if ($Appraisal.LearningRate < 30) then {
	send app my bund
	pause
}

pause 1
if ($Appraisal.LearningRate < 30) then {
	send app my pouch
	pause
}
pause 1
send pow
pause 1
goto empcheck

EMPCHECK:

pause 1
if ("$guild" = "Empath") && ($Empathy.LearningRate < 20)  then goto Empathy

pause 1
if ("$guild" = "Moon Mage") && ($Astrology.LearningRate < 15) then goto ASTRO

pause 1
if ("$guild" = "Warrior Mage") && ($Summoning.LearningRate < 15) then goto sum

pause 1
goto start2

START2:
pause 1
if ($Athletics.LearningRate < 20) then {
	gosub Climb
}

pause 1
if ($Outdoorsmanship.LearningRate < 20) then {
	gosub collect
}

pause 1
if ($Performance.LearningRate < 20) then {
	gosub play
}

pause 1
if ($Mechanical_Lore.LearningRate < 20) then {
	gosub BBRAID
}

pause 1
if ($Alchemy.LearningRate < 20) then {
	gosub Crush
}

pause 1
if ("$guild" = "Thief") then gosub Thief

pause 1
if ($Utility.LearningRate < 10) then {
    gosub research_Utility
}

pause 1
if ($Primary_Magic.LearningRate < 10) then {
    gosub research_MAGIC
}

pause 1
if ($Augmentation.LearningRate < 10) then {
    gosub research_augmentation
}

pause 1
if ($Attunement.LearningRate < 10) then {
    gosub research_Attunement
}

pause 1
if ($Warding.LearningRate < 10) then {
    gosub research_warding
}

pause 1
goto start

research_warding:
pause
put prep gauge flow 15
pause 25
send cast

RESEARCHward:
put research ward 60
     match researchward there is still more to learn
     match DONE Breakthrough!
     matchwait

research_Attunement:
pause
put prep gauge flow 15
pause 25
send cast

RESEARCHATT:
put research stream 60
     match researchATT there is still more to learn
     match DONE Breakthrough!
     matchwait

research_augmentation:
pause
put prep gauge flow 15
pause 25
send cast

RESEARCHAug:
put research aug 60
     match researchaug there is still more to learn
     match DONE Breakthrough!
     matchwait

research_MAGIC:
pause
put prep gauge flow 15
pause 25
send cast

RESEARCHM:
put research fund 60
     match researchM there is still more to learn
     match DONE Breakthrough!
     matchwait


RESEARCH_UTILITY:
pause
put prep gauge flow 15
pause 25
send cast

RESEARCHU:
put research Utility 60
     match researchU there is still more to learn
     match DONE Breakthrough!
     matchwait

COLLECT:
pause 1
send stand
pause 1
send kick pile
pause 1
put collect rock
pause 1
goto CHECK_IF_DONE

CHECK_IF_DONE:
put kick pile
match COLLECT EXP HELP
match DONE mind lock
put exp outdoorsmanship
matchwait

APP:
pause
send app my bun
pause 4
send app my gem po
pause 4
goto start

HUNT:
pause
send hunt
pause
goto start


PLAY:
pause
send rem my zill
pause
send shake my zill
pause
send get my cloth
pause
send clean my zil with my cloth
pause
send clean my zil with my cloth
pause
send stow cloth
pause
send wear my zill
pause
echo checking ranks
if ($Performance.Ranks > 200) then gosub PLAYB
if ($Performance.Ranks < 200) then gosub PLAYA
send exp
pause
echo it messed up- again

#match playb Performance:
#match palyb Performance
#match playa EXP HELP
#send exp lore 200


##  if "$zoneid" = "40" && $Athletics.Ranks >= %rossmansouth then gosub MOVE 213
##  if "$zoneid" = "40" && $Athletics.Ranks < %rossmansouth then
## "40" && $Athletics.Ranks >=
## ("$charactername" = "Ghimly")

##if ("$Performance.Ranks <= 200") then gosub PLAYA

##if ("$Performance.Ranks >= 200") then gosub PLAYB

PLAYA:
pause 1
echo playa
var topics scales|arpeggios|ditty|folk|ballad|waltz|lullaby|march|jig|lament|wedding|hymn|rumba|polka
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1

PLAYB:
pause 1
echo playb
var topics polka|battle|reel|elegy|serenade|minuet|psalm|dirge|gavotte|tango|tarantella|bolero|nocturne|requiem|fantasia|rondo|aria|sonata|concerto
     eval TopicCount count("%topics","|")
     var track 0
eval NextTopic element("%topics", %track)
goto play1

play1:
echo play1
eval NexttTopic element("%topics", %track)

send cast
pause 1
send rel spell
pause 1
put play %NextTopic
	match perfect with only the slightest hint of difficulty
	match toeasy your skill in your craft showcased
	match toeasy on your copper zills
     	matchwait

##PCHECK:
##eval NextTopic element("%topics", %track)
##goto play1


TOEASY:
pause 0.1
send stop play
pause
if %track = %TopicCount then goto done
	eval NextTopic element("%topics", %track)
	math track add 1
	goto play1

PERFECT:
pause
send gaze my sano cry
pause
send hunt
pause 15
send app my gem pouch
pause 15
send app my bundle
pause 15
send app my stick
pause 15
send app my gem pouch
pause 15
send app my bundle
pause 15
send app my stick
pause 15
pause 30
send app my bun
pause 10
goto start

SUM:
pause 1
send break my stone scim
pause 1
match DONE 34/34
match ADMIT EXP HELP
send sk sum
matchwait


ADMIT:
match SUM   increasing your proximity
match SUM   you feel that you can still gather
match DIS   You so heavily embody the Elemental Plane
match DIS   Going any further
send SUMMON ADMITTANCE
matchwait

DIS:
pause 1
send summon weapon
pause 1
send break stone scim
pause 1
send summon weapon
pause 1
send break stone scim
pause 1
goto SUM

Empathy:
pause 2
send whisper ghimly DORFS
match start2 Whisper what to who
match empstart You whisper to Ghimly
matchwait

empstart:
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
send touch Ghimly
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send take Ghimly vit
pause 1
send touch vess
pause 5
goto empDONE


empCHECK11:
if ($Empathy.LearningRate < 33) then {
    gosub TAKE
}

if ($Empathy.LearningRate > 33) then {
    gosub empDONE
}

TAKE:
pause 1

if ($health < 89) then {
	send touch Vess
}

if ($health > 90) then {
	send take Ghimly vit
}

goto empstart

empDONE:
send touch vess
pause 2
send whisper Ghimly Locked
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
send touch vess
pause 5
goto start

ASTRO:
pause
gosub clear
pause
send prep cv 5
pause 22
send cast
pause
send prep pg 5
pause 22
send cast
pause
send hunt
pause 2
send perceive moons
pause 2
send predict weather
pause 2
send obs sky
pause 2
send obs sun in the sky
pause 2
send obs moon in the sky
pause 2
send OBSERVE  Cobra
pause 2
send OBSERVE  Raccoon
pause 2
send OBSERVE  Ram
pause 2
send OBSERVE  Heart
pause 2
send OBSERVE  Raven
pause 2
send OBSERVE  Wolf
pause 2
send OBSERVE  Mongoose
pause 2
send OBSERVE  Heron
pause 2
send OBSERVE  Dove
pause 2
send OBSERVE  Magpie
pause 2
send OBSERVE  Toad
pause 2
send OBSERVE  Albatross
pause 2
send OBSERVE  Cat
pause 2
send OBSERVE  Wolverine
pause 2
send OBSERVE  Giant
pause 2
send OBSERVE  Spider
pause 2
send predict anal
pause 2
send perceive mana
pause 2
send perc xibar
pause 2
send OBSERVE xibar
pause 2
send align lore app
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send perc Katamba
pause 2
send OBSERVE katamba
pause 2
send align magic
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send perc Yavash
pause 2
send OBSERVE yavash
pause 2
send align lore app
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send perc
pause 2
send align Offense
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send align Defense
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send align Survival
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send align magic astro
pause 2
send predict future Gizban
pause 2
send predic ana
pause 2
send pow
pause 2
goto start


BBRAID:
pause 1
send rem my glove
pause 1
send stow my gloves
pause 1
var forage grass
var trash log
var loop 0

action goto EXIT when ^You survey the area and realize that any foraging efforts would be futile\.

if ("$righthand" != "Empty") then send stow right
if ("$lefthand" != "Empty") then send stow left
pause 0.1
pause 0.2

LOOP:
     math loop add 1
     if (%loop > 20) then goto DONE
     if ($Mechanical_Lore.LearningRate) > 20 then goto DONE
     if contains("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then GOSUB KICK.PILE
     if contains("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then GOSUB KICK.PILE
     pause 0.1
     if ("$righthandnoun" = "%forage") && ("$lefthandnoun" = "%forage") then goto BRAID
     if ("$righthand" != "Empty") then send empty right
     if ("$lefthand" != "Empty") then send empty left
     if ("$zoneid" = "150" && "$roomid" != "45") then gosub automove 45
     put forage %forage
     pause 2
     pause

FORAGE:
     if ("$lefthand" = "braided vines") then put swap
     if ("$lefthand" = "braided grass") then put swap
     pause 0.2
     if ("$charactername" = "Shroom") && ("$zoneid" = "150") then goto FEEDBAG
     pause 0.001
     if ("%forage" = "grass") then
          {
          if contains("$roomobjs","some grass") then
               {
               put get grass
               pause 0.5
               goto BRAID
               }
          }
     if ("%forage" = "vine") then
          {
          if contains("$roomobjs","a vine") then
               {
               put get vine
               pause 0.5
               goto BRAID
               }
          }
     put forage %forage
     pause 2
     pause
     if ("$righthand" != "Empty") && ("$lefthand" != "Empty") then goto BRAID
     goto FORAGE

FEEDBAG:
     pause 0.2
     if ("$righthand" != "Empty") && ("$lefthand" != "Empty") then goto BRAID
     matchre FEEDBAG ^You get
     matchre EMPTYBAG ^What were|^I could not
     put get grass from my feedb
     matchwait
HUM:
send stop hum
pause 0.2
BRAID:
     pause 0.1
     if ("$lefthand" = "braided vines") then put swap
     if ("$lefthand" = "braided grass") then put swap
     if ($Mechanical_Lore.LearningRate) > 31 then goto DONE
     pause 0.3
     if ("$lefthand" = "Empty") then goto FORAGE
     matchre HUM ^But that would give away your hiding
     matchre FORAGE ^You need to have more material
     matchre DUMP ^You need both hands to do that|nothing more than wasted effort
     matchre PULL ^You fumble around trying|^You are certain that you have made a|is already as long
     matchre BRAID Roundtime|^\.\.\.wait|^Sorry
     send braid my %forage
     matchwait

PULL:
     pause .5
     put pull my braided %forage
     pause

DUMP:
     pause 0.2
     pause 0.1
     if matchre("$roomobjs", "trash receptacle") then var trash receptacle
     if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket|a bucket") then var trash bucket
     if matchre("$roomobjs", "a large stone turtle") then var trash turtle
     if matchre("$roomobjs", "a tree hollow") then var trash hollow
     if matchre("$roomobjs", "an oak crate") then var trash crate
     if matchre("$roomobjs", "a driftwood log") then var trash log
     if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var trash bin
     if matchre("$roomobjs", "ivory urn") then var trash urn
     if matchre("$roomobjs", "a bottomless pit") then var trash pit
     if matchre("$roomname", "^\[Garden Rooftop, Medical Pavilion\]") then var trash gutter
     pause 0.3
     if matchre("$righthand","(grass|vine|rope)") then put put my $1 in %trash
     if matchre("$lefthand","(grass|vine|rope)") then put put my $1 in %trash
     pause 0.5
     pause 0.2
     if contains("$righthand","(grass|vine|rope)") then put drop my $righthand
     if contains("$lefthand","(grass|vine|rope)") then put drop my $lefthand
     pause 0.4
     pause 0.5
     if ("$righthand" != "Empty") then put stow right
     if ("$lefthand" != "Empty") then put stow left
     pause 0.2
     send dump junk
     pause .1
     goto LOOP

EMPTYBAG:
     echo **** FEEDBAG IS EMPTY! ATTEMPTING TO REFILL!!
     put put grass in my feed
     pause 0.5
     if ("$zoneid" = "150") && ("$roomid" != "44") then gosub automove 44
     # if ("$zoneid" = "150") && ("$roomid" = "85") then put go portal
     # pause
    # pause 0.5
     # if ("$zoneid" = "66") then gosub automove campfire
FEEDBAG.COLLECT:
     pause 0.5
     put collect grass
     pause 2
     pause
     if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.1
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto LOOP
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto LOOP
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto LOOP
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto LOOP
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     if !contains("$roomobjs","pile of grass") then goto LOOP
     put get grass
     pause 0.5
     put put grass in my feedbag
     pause 0.3
     pause 0.3
     gosub automove 45
     goto LOOP

DONE:
pause 0.5
send put my grass in bin
pause 0.5
send put my grass in bin
pause 0.5
send get my gloves
pause
send wear my gloves
pause
send pathway stop
pause 0.5
send stand
pause 0.5
send break stone scim
pause 0.5
goto start
pause 0.1
pause 0.1
EXIT:
     if matchre("$roomobjs", "trash receptacle") then var trash receptacle
     if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket|a bucket") then var trash bucket
     if matchre("$roomobjs", "a large stone turtle") then var trash turtle
     if matchre("$roomobjs", "a tree hollow") then var trash hollow
     if matchre("$roomobjs", "an oak crate") then var trash crate
     if matchre("$roomobjs", "a driftwood log") then var trash log
     if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var trash bin
     if matchre("$roomobjs", "ivory urn") then var trash urn
     if matchre("$roomobjs", "a bottomless pit") then var trash pit
     if matchre("$roomname", "^\[Garden Rooftop, Medical Pavilion\]") then var trash gutter
     pause 0.3
     if matchre("$righthand","(grass|vine|rope)") then put put my $1 in %trash
     if matchre("$lefthand","(grass|vine|rope)") then put put my $1 in %trash
     pause 0.5
     pause 0.2
     if contains("$righthand","(grass|vine|rope)") then put drop my $righthand
     if contains("$lefthand","(grass|vine|rope)") then put drop my $lefthand
     pause 0.4
     pause 0.5
send put my grass in bin
pause 0.5
send put my grass in bin
pause 0.5
if "$righthand" != "Empty" then put empty right
if "$lefthand" != "Empty" then put empty left
pause 0.5
put #parse DONE BRAIDING
put #parse BRAIDING DONE
goto start

KICK.PILE:
pause 0.1
if !matchre("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then RETURN
matchre RETURN ^I could not|^What were you
matchre KICK.PILE foot smashing down
matchre sSTAND ^You can't do that from your position
match DELAY footing at the last moment
put kick pile
matchwait 20
goto FORAGE.EXP

sSTAND:
put stand
goto KICK.PILE

DELAY:
pause 11
put stand
goto KICK.PILE

CLIMB:
pause
send .go bank
pause 8
send out
pause
move NoRTHWEST
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move EaST
move EaST
move NoRTH
move EaST
move EaST
move NoRTH
move NoRTH
move EaST
move gO stair
move SoUTH

CLIMB-001:
match PASS-001 [Outside East Wall, Footpath]
match FAIL-001 You must be standing
match FAIL-001 steepness is intimidating
match FAIL-001 can't seem to find purchase
match FAIL-001 find it hard going.
match FAIL-001 your footing is questionable
match FAIL-001 slip after a few feet
match FAIL-001 A wave of dizziness hits you
match FAIL-001 Struck by vertigo
match CLIMB-001 ...wait
put climb break
matchwait

PASS-001:
matcH pASS-001 ...wait
MATCH PASS-001x [
put NoRTH
MATCHWAIT

PASS-001x:
move gO gate
move WeST
move gO stair
move SoUTH
goto CLIMB-002

FAIL-001:
pause
goto CLIMB-002

CLIMB-002:
match PASS-002 [Northeast Wilds, Outside Northeast Gate]
match FAIL-002 You must be standing
match FAIL-002 steepness is intimidating
match FAIL-002 can't seem to find purchase
match FAIL-002 find it hard going.
match FAIL-002 your footing is questionable
match FAIL-002 slip after a few feet
match FAIL-002 A wave of dizziness hits you
match FAIL-002 Struck by vertigo
match CLIMB-002 ...wait
put ClIMB embrasure
matchwait

FAIL-002:
pause
matcH FAIL-002 ...wait
MATCH FAIL-002x [
put n
MATCHWAIT

FAIL-002x:
pause
move go stair
move e
move go gate

PASS-002:
matcH PAss-002 ...wait
MATCH PASS-002x [
put gO footpath
MATCHWAIT

PASS-002x:
goto CLIMB-01

CLIMB-01:
SAVE FAIL-01
match PASS-01 [Crossing, East Wall Battlements]
match FAIL-01 You must be standing
match FAIL-01 steepness is intimidating
match FAIL-01 can't seem to find purchase
match FAIL-01 find it hard going.
match FAIL-01 your footing is questionable
match FALLEN slip after a few feet
match FAIL-01 A wave of dizziness hits you
match FAIL-01 Struck by vertigo
match CLIMB-01 ...wait
put ClIMB town wall
matchwait

PASS-01:
matcH PASS-01 ...wait
MATCH PASS-01x [
put n
MATCHWAIT

PASS-01x:
move gO stair
move e
move gO gate
move gO footpath
goto FAIL-01

FAIL-01:
pause
matcH FAIL-01 ...wait
MATCH FAIL-01x [
put s
MATCHWAIT

FAIL-01x:
pause
move down
move s
move s
move sw
goto CLIMB-02

CLIMB-02:
SAVE FAIL-02
match PASS-02 [Crossing, East Wall Battlements]
match FAIL-02 You must be standing
match FAIL-02 steepness is intimidating
match FAIL-02 can't seem to find purchase
match FAIL-02 find it hard going.
match FAIL-02 your footing is questionable
match FALLEN slip after a few feet
match FAIL-02 A wave of dizziness hits you
match FAIL-02 Struck by vertigo
match CLIMB-02 ...wait
put ClIMB town wall
matchwait

PASS-02:
matcH PASS-02 ...wait
MATCH PASS-02x [
put s
MATCHWAIT

PASS-02x:
move gO stair
move gO gate
move gO bush
move n
goto CLIMB-03

FAIL-02:
pause
matcH FAIL-02 ...wait
MATCH FAIL-02x [
put s
MATCHWAIT

FAIL-02x:
pause
goto CLIMB-03

CLIMB-03:
SAVE FAIL-03
match PASS-03 [Crossing, East Wall Battlements]
match FAIL-03 You must be standing
match FAIL-03 steepness is intimidating
match FAIL-03 can't seem to find purchase
match FAIL-03 find it hard going.
match FAIL-03 your footing is questionable
match FALLEN slip after a few feet
match FAIL-03 A wave of dizziness hits you
match FAIL-03 Struck by vertigo
match CLIMB-03 ...wait
put ClIMB town wall
matchwait

PASS-03:
matcH PASS-03 ...wait
MATCH PASS-03x [
put s
MATCHWAIT

PASS-03x:
move gO stair
move gO gate
goto CLIMB-04

FAIL-03:
pause
matcH FAIL-03 ...wait
MATCH FAIL-03x [
put s
MATCHWAIT

FAIL-03x:
goto CLIMB-04

CLIMB-04:
SAVE FAIL-04
match PASS-03 [Crossing, East Wall Battlements]
match PASS-04 [Crossing, East Gate Battlements]
match FAIL-04 You must be standing
match FAIL-04 steepness is intimidating
match FAIL-04 can't seem to find purchase
match FAIL-04 find it hard going.
match FAIL-04 your footing is questionable
match FALLEN slip after a few feet
match FAIL-04 A wave of dizziness hits you
match FAIL-04 Struck by vertigo
match RETREAT closes to pole weapon range on you
match CLIMB-04 ...wait
put ClIMB town wall
matchwait

PASS-04:
pause
goto CLIMB-05

RETREAT:
pause
match RETREAT ...wait
match RETREAT Roundtime
match RETREAT back to pole range.
match FAIL-04 retreat from combat.
match FAIL-04 You are already as far away as you can get!
put retreat
matchwait

FAIL-04:
pause
put s
waitforre /(You go|You can't go)/
matcH FAil-04 ...wait
MATCH FAIL-04x [
put gO gate
MATCHWAIT

FAIL-04x:
pause
move gO stair
goto CLIMB-05

CLIMB-05:
SAVE FAIL-05
match PASS-05 [Eastern Tier, Outside Gate]
match FAIL-05 You must be standing
match FAIL-05 steepness is intimidating
match FAIL-05 can't seem to find purchase
match FAIL-05 find it hard going.
match FAIL-05 your footing is questionable
match FALLEN slip after a few feet
match FAIL-05 A wave of dizziness hits you
match FAIL-05 Struck by vertigo
match CLIMB-05 ...wait
put ClIMB embrasure
matchwait

PASS-05:
matcH PAss-05 ...wait
MATCH PASS-05x [
put gO gate
MATCHWAIT

PASS-05x:
move gO stair
FAIL-05:
matcH FAIL-05 ...wait
MATCH FAIL-05x [
put n
MATCHWAIT

FAIL-05x:
pause
goto CLIMB-06

CLIMB-06:
SAVE FAIL-06
match PASS-06 [Outside East Wall, Footpath]
match FAIL-06 You must be standing
match FAIL-06 steepness is intimidating
match FAIL-06 can't seem to find purchase
match FAIL-06 find it hard going.
match FAIL-06 your footing is questionable
match FALLEN slip after a few feet
match FAIL-06 A wave of dizziness hits you
match FAIL-06 Struck by vertigo
match CLIMB-06 ...wait
put ClIMB break
matchwait

PASS-06:
matcH PASS-06 ...wait
MATCH PASS-06x [
put s
MATCHWAIT

PASS-06x:
move gO gate
move gO stair
move n
goto CLIMB-07

FAIL-06:
pause
pause
goto CLIMB-07

CLIMB-07:
SAVE FAIL-07
match PASS-07 [Outside East Wall, Footpath]
match FAIL-07 You must be standing
match FAIL-07 steepness is intimidating
match FAIL-07 can't seem to find purchase
match FAIL-07 find it hard going.
match FAIL-07 your footing is questionable
match FALLEN slip after a few feet
match FAIL-07 A wave of dizziness hits you
match FAIL-07 Struck by vertigo
match CLIMB-07 ...wait
put ClIMB embrasure
matchwait

PASS-07:
matcH PASS-07 ...wait
MATCH PASS-07x [
put s
MATCHWAIT

PASS-07x:
move s
move gO gate
goto TRAVEL-08

FAIL-07:
pause
matcH FAIL-07 ...wait
MATCH FAIL-07x [
put s
MATCHWAIT

FAIL-07x:
pause
move gO stair
goto TRAVEL-08

TRAVEL-08:
move w
move w
move w
move w
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move gO bridge
move w
move w
move w
move w
move gO stair
move s

CLIMB-08:
SAVE FAIL-08
match PASS-08 [Mycthengelde, Flatlands]
match FAIL-08 You must be standing
match FAIL-08 steepness is intimidating
match FAIL-08 can't seem to find purchase
match FAIL-08 find it hard going.
match FAIL-08 your footing is questionable
match FALLEN slip after a few feet
match FAIL-08 A wave of dizziness hits you
match FAIL-08 Struck by vertigo
match CLIMB-08 ...wait
put ClIMB embrasure
matchwait

PASS-08:
pause
goto CLIMB-09

FAIL-08:
pause
matcH FAIL-08 ...wait
MATCH FAIL-08x [
put n
MATCHWAIT

FAIL-08x:
pause
move go stair
move go gate
move nw
goto CLIMB-09

CLIMB-09:
SAVE FAIL-09
match PASS-09 [Crossing, West Wall Battlements]
match FAIL-09 You must be standing
match FAIL-09 steepness is intimidating
match FAIL-09 can't seem to find purchase
match FAIL-09 find it hard going.
match FAIL-09 your footing is questionable
match FALLEN slip after a few feet
match FAIL-09 A wave of dizziness hits you
match FAIL-09 Struck by vertigo
match CLIMB-09 ...wait
put ClIMB town wall
matchwait

PASS-09:
matcH PASS-09 ...wait
MATCH PASS-09x [
put n
MATCHWAIT

PASS-09x:
goto CLIMB-10

FAIL-09:
pause
matcH fAIL-09 ...wait
MATCH FAIL-09x [
put se
MATCHWAIT

FAIL-09x:
pause
move gO gate
move gO stair
goto CLIMB-10

CLIMB-10:
SAVE FAIL-10
match PASS-10 [Mycthengelde, Flatlands]
match FAIL-10 You must be standing
match FAIL-10 steepness is intimidating
match FAIL-10 can't seem to find purchase
match FAIL-10 find it hard going.
match FAIL-10 your footing is questionable
match FALLEN slip after a few feet
match FAIL-10 A wave of dizziness hits you
match FAIL-10 Struck by vertigo
match CLIMB-10 ...wait
put ClIMB embrasure
matchwait

PASS-10:
matcH PAss-10 ...wait
MATCH PASS-10x [
put gO gate
MATCHWAIT

PASS-10x:
move gO stair

FAIL-10:
pause
matcH FAIL-10 ...wait
MATCH FAIL-10x [
put e
MATCHWAIT

FAIL-10x:
pause
goto CLIMB-11

CLIMB-11:
SAVE FAIL-11
match PASS-11 [Northwall Trail, Wooded Grove]
match FAIL-11 You must be standing
match FAIL-11 steepness is intimidating
match FAIL-11 can't seem to find purchase
match FAIL-11 find it hard going.
match FAIL-11 your footing is questionable
match FALLEN slip after a few feet
match FAIL-11 A wave of dizziness hits you
match FAIL-11 Struck by vertigo
match CLIMB-11 ...wait
put ClIMB break
matchwait

PASS-11:
matcH PASS-11 ...wait
MATCH PASS-11x [
put s
MATCHWAIT

PASS-11x:
move gO gate
move gO stair
move e
goto CLIMB-12

FAIL-11:
pause
goto CLIMB-12

CLIMB-12:
SAVE FAIL-12
match PASS-12 [Northwall Trail, Wooded Grove]
match FAIL-12 You must be standing
match FAIL-12 steepness is intimidating
match FAIL-12 can't seem to find purchase
match FAIL-12 find it hard going.
match FAIL-12 your footing is questionable
match FALLEN slip after a few feet
match FAIL-12 A wave of dizziness hits you
match FAIL-12 Struck by vertigo
match CLIMB-12 ...wait
put ClIMB embrasure
matchwait

PASS-12:
pause
goto CLIMB-13

FAIL-12:
pause
matcH FAIL-12 ...wait
MATCH FAIL-12x [
put w
MATCHWAIT

FAIL-12x:
pause
move gO stair
move gO gate
move gO trail
move ne
goto CLIMB-13

CLIMB-13:
SAVE FAIL-13
match PASS-13 [Crossing, North Wall Battlements]
match FAIL-13 You must be standing
match FAIL-13 steepness is intimidating
match FAIL-13 can't seem to find purchase
match FAIL-13 find it hard going.
match FAIL-13 your footing is questionable
match FALLEN slip after a few feet
match FAIL-13 A wave of dizziness hits you
match FAIL-13 Struck by vertigo
match CLIMB-13 ...wait
put ClIMB town wall
matchwait

PASS-13:
matcH PASS-13 ...wait
MATCH PASS-13x [
put w
MATCHWAIT

PASS-13x:
move gO stair
move gO gate
move gO trail
goto CLIMB-14

FAIL-13:
pause
matcH fAIL-13 ...wait
MATCH FAIL-13x [
put sw
MATCHWAIT

FAIL-13x:
pause
goto CLIMB-14

CLIMB-14:
SAVE FAIL-14
match PASS-14 [Crossing, North Wall Battlements]
match FAIL-14 You must be standing
match FAIL-14 steepness is intimidating
match FAIL-14 can't seem to find purchase
match FAIL-14 find it hard going.
match FAIL-14 your footing is questionable
match FALLEN slip after a few feet
match FAIL-14 A wave of dizziness hits you
match FAIL-14 Struck by vertigo
match CLIMB-14 ...wait
put ClIMB town wall
matchwait

PASS-14:
matcH PASS-14 ...wait
MATCH PASS-14x [
put w
MATCHWAIT

PASS-14x:
move gO stair
move gO gate
goto CLIMB-15

FAIL-14:
pause
matcH FAIL-14 ...wait
MATCH FAIL-14x [
put s
MATCHWAIT

FAIL-14x:
goto CLIMB-15

CLIMB-15:
SAVE FAIL-15
match PASS-15 [Crossing, West Gate Battlements]
match FAIL-15 You must be standing
match FAIL-15 steepness is intimidating
match FAIL-15 can't seem to find purchase
match FAIL-15 find it hard going.
match FAIL-15 your footing is questionable
match FALLEN slip after a few feet
match FAIL-15 A wave of dizziness hits you
match FAIL-15 Struck by vertigo
match CLIMB-15 ...wait
put ClIMB town wall
matchwait

PASS-15:
matcH PASS-15 ...wait
MATCH PASS-15x [
put gO stair
MATCHWAIT

PASS-15x:
goto TRAVEL-15

FAIL-15:
pause
matcH FAil-15 ...wait
MATCH FAIL-15x [
put gO gate
MATCHWAIT

FAIL-15x:
pause
goto TRAVEL-15

TRAVEL-15:
move e
move e
move e
move e
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
move se
pause
match climb EXP HELP
match quit mind lock
match quit nearly locked
match quit enthralled
put sk ath
matchwait

######################
FALLEN:
pause
match STOOD You stand
match STOOD You are already standing
match FALLEN cannot manage to stand.
match FALLEN The weight of all your possessions
match FALLEN ...wait
put StAND
matchwait

STOOD:
goto %s

QUIT:
pause
goto start

Thief:
send khri check
pause 1
send sit
pause 0.5
send khri delay Plunder
pause 10
send khri delay Darken
pause 10
send khri delay Hasten
pause 10
send khri delay Focus
pause 10
send khri delay Prowess
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send khri medit
pause 10
send stand
pause 1

if ($Athletics.LearningRate < 20) then {
	gosub Climb
}

pause 1
if ($Outdoorsmanship.LearningRate < 20) then {
	gosub collect
}

pause 1
if ($Mechanical_Lore.LearningRate < 18) then {
	gosub BBRAID
}

pause 1
if ($Performance.LearningRate < 20) then {
	gosub play
}

goto start

CRUSH:
pause 0.5
gosub clear
pause 0.5
send get my mort
pause 0.5
goto forage1

forage1:
pause 1
gosub clear
pause 1
#if ($Outdoorsmanship.LearningRate < 20) then {
#	gosub crush1
#}
#
#pause 1
#if ($Outdoorsmanship.LearningRate > 30) then {
#	gosub start
#}

pause 1
goto crush1


CRUSH1:
match loadmort You manage to find some blue flowers
match forage1 Roundtime
send forage blue flower
matchwait


loadmort:
send put my blue flower in my mort
pause 1
send get my pes
pause 1
goto crush2

CRUSH2:
pause 1
match unload You stop, realizing that type of plant
match unload You complete crushing
match crush2  Roundtime
send crush my blue flower with my pes
matchwait

UNLOAD:
pause 1
send stow pestle
pause 1
send get flow from my mort
pause 1
send put my flow in bin
pause 1
send drop my flower
pause 1
send dump junk
pause 1
send app my gem pouch
pause 1

if ($Alchemy.LearningRate > 30) then {
	gosub alchDone
}

pause 1
if ($Alchemy.LearningRate < 30) then {
	gosub forage1
}

alchDONE:
send get my flower from mort
pause 0.5
send put my flower in bin
pause 0.5
send stow my mort
pause 1
goto start