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

START:
gosub clear
pause 0.5
send rel spell
pause 0.5
send stand
pause 0.5
send #goto 355
pause 6
send put my grass in bin
pause 0.5
send put my grass in bin
pause 0.5
if ("$charactername" = "Ghimly") then send rem my badge
pause 1
if ("$charactername" = "Ghimly") then send pray my badge
pause 1
if ("$charactername" = "Ghimly") then send wear my badge
pause 0.5
send touch vess
pause 0.5
send .heal
pause 2
send listen to ghim
pause 0.5
send hunt
pause 3
send app my stick
pause 1
send app my bund
pause 1
send app my gem po
pause 1
send pow
pause 1
goto empcheck

EMPCHECK:

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

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

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

pause
goto start2

START2:
pause
if ($Alchemy.LearningRate < 15) then {
	gosub Crush
}

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

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

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

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

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

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

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

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

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

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

pause
goto start

research_warding:
pause
put prep gauge flow 1
waitfor fully prep
send cast
waitfor You gesture
RESEARCHward:
put research ward 60
     match researchward there is still more to learn
     match DONE Breakthrough!
     matchwait

research_Attunement:
pause
put prep gauge flow 1
waitfor fully prep
send cast
waitfor You gesture
RESEARCHATT:
put research stream 60
     match researchATT there is still more to learn
     match DONE Breakthrough!
     matchwait

research_augmentation:
pause
put prep gauge flow 1
waitfor fully prep
send cast
waitfor You gesture
RESEARCHAug:
put research aug 60
     match researchaug there is still more to learn
     match DONE Breakthrough!
     matchwait

research_MAGIC:
pause
put prep gauge flow 1
waitfor fully prep
send cast
waitfor You gesture
RESEARCHM:
put research fund 60
     match researchM there is still more to learn
     match DONE Breakthrough!
     matchwait


RESEARCH_UTILITY:
pause
put prep gauge flow 1
waitfor fully prep
send cast
waitfor You gesture
RESEARCHU:
put research Utility 60
     match researchU there is still more to learn
     match DONE Breakthrough!
     matchwait

COLLECT:
pause 0.1
send stand
pause 0.1
send kick pile
pause 0.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
var topics scales|arpeggios|ditty|folk|ballad|waltz|lullaby|march|jig|lament|wedding|hymn|rumba|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

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

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

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

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 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
goto start

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


ADMIT:
send SUMMON ADMITTANCE
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
matchwait

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

Empathy:
pause
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 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
send touch Ghimly
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send take Ghimly vit
pause 0.5
send touch vess
pause 5
goto empDONE
#goto empCHECK11

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

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

TAKE:
pause 0.5

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

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

goto empstart

empDONE:
send touch vess
pause
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
send rem my glove
pause
send stow my gloves
pause
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
send #goto 355
pause 8
if ("$charactername" = "Ghimly") then send .teachfa
pause 15
goto start

Thief:
send khri check
pause
send sit
pause 0.5
##Silence
send khri delay Darken Hasten Focus Prowess
pause 14
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

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

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

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

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

pause
send .afk1
pause
send #goto 355
pause 8
goto start

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

forage1:
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 0.5
send get my pes
pause 0.5
goto crush1

CRUSH1:
pause 0.5
match unload You stop, realizing that type of plant
match unload You complete crushing
match crush1  Roundtime
send crush my blue flower with my pes
matchwait

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

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

pause
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
goto start