Health-Walk Shard (script)

Health-Walk Shard (script)
Category	training
Front-end	Genie
Author	Isharon

Run this script anywhere in Shard to start health-walking. I've avoided popular destinations such as the bazaar tent and gem-selling room, because health-walking tends to annoy the occupants.

This script trains the following skills: appraisal, arcana, empathy, first aid, outdoorsmanship, attunement, life magic, mechanical lore, perception, and scholarship. You probably won't lock all of these skills while running this script, but it will keep them draining.

Required Genie Settings

The script uses cambrinth. You need to open your character's variables file and define variables for cambrinth. For example:

#var {cambrinth} {kingsnake armband}

You must be using the official Genie maps to run this script.

Changelog

• 2/22/2013: Partial 3.0 compliance update. (Still needs work.)
• 7/21/2011: Fixed room numbers to work with the current map of Crossing.
• 12/13/2011: Fixed room numbers to work with the current map of Crossing.
• 11/12/2011: Added sound effect for mind locked empathy.
• 8/27/2011: Fixed a problem that caused the script to hang on appraisal training.
• 8/14/2011: Removed the Permits Office from the script. (The room moved.)
• 8/5/2011: Fixed avenger-related bug.
• 4/25/2011: Removed Sand Spit Tavern from the loop. (Automapper sometimes tried to use inaccessible Thief-only passages.)
• 3/30/2011: The script will no longer hang if you fumble while humming.

Script

setvariable gs avenger
put #class arrive off
put #class combat off
put #class rp on

put avoid !drag
waitforre ^You're now avoiding

put avoid !hold
waitforre ^You're now avoiding

put avoid !join
waitforre ^You're now avoiding

send ask %gs for leave
waitforre ^With a sad look, (a|an) .+ (avenger|colepexy|dirnel|guardian|narmorbreth|woodwisp)|^To whom are you speaking

send close my compendium
waitforre ^You close|^That is already|^What were

send stow right
waitforre ^You put|^Stow what

send stow left
waitforre ^You put|^Stow what


send open my compendium
pause

put #mapper load Map67_Shard
put look
action put #queue clear;send $lastcommand when ^(\.\.\.wait|Sorry,)

goto PERC1

COMP:
if ($Scholarship.LearningRate >= 34) && ($First_Aid.LearningRate >= 34) || ($First_Aid.LearningRate >= 34) then goto MAGIC
if ("$righthandnoun" = "$cambrinth") then put stow my $cambrinth
put get my compendium
waitforre o
put turn my compendium
waitforre o
put study my compendium
wait
pause .2
goto HPERC

MAGIC:
if ($mana < 85) then goto APPRAISE
else if ($Attunement.LearningRate >= 34) && ($Arcana.LearningRate >= 34) && ($Primary_Magic.LearningRate >= 34) then goto COMP
if ("$righthandnoun" = "compendium") then put stow my compendium
send stop play
waitforre ^You stop|^In the name
put prep GS
wait
put charge my $cambrinth 11
waitfor Roundtime
pause .1
pause .1
send invoke my $cambrinth
gs1:
pause 2
match gs2 not understanding your question.
match castgs1 ^With a sad look
put ask %gs for leave
castgs1:
matchwait 1.5
put cast %gs
waitforre ^With a warrior's calm|^With a gracious smile|^A spotted fungus colepexy gracefully flitters into the area^Howling, a hairy dog-faced dirnel bounds in^A salty bulbous-eyed narmorbreth swims in|^Your heart skips a beat, but you are unable
goto HPERC
gs2:
pause 2
match gs3 not understanding your question.
match castgs2 ^With a sad look
put ask second %gs for leave
castgs2:
matchwait 1.5
put cast %gs
waitforre ^With a warrior's calm|^With a gracious smile|^A spotted fungus colepexy gracefully flitters into the area^Howling, a hairy dog-faced dirnel bounds in^A salty bulbous-eyed narmorbreth swims in|^Your heart skips a beat, but you are unable
goto HPERC

gs3:
pause 2
match gs1 not understanding your question.
match castgs3 ^With a sad look
put ask second %gs for leave
castgs3:
matchwait 1.5
put cast %gs
waitforre ^With a warrior's calm|^With a gracious smile|^A spotted fungus colepexy gracefully flitters into the area^Howling, a hairy dog-faced dirnel bounds in^A salty bulbous-eyed narmorbreth swims in|^Your heart skips a beat, but you are unable
goto HPERC

APPRAISE:
if ($Appraisal.LearningRate >= 34) then goto FORAGE
if matchre ("$monsterlist", "(%gs)") then goto APPRAISE2
waitforre ^With a warrior's calm|^With a gracious smile|^A spotted fungus colepexy gracefully flitters into the area^Howling, a hairy dog-faced dirnel bounds in^A salty bulbous-eyed narmorbreth swims in
APPRAISE2:
send appraise %gs quick
wait
pause
return
goto HPERC

FORAGE:
if ($Perception.LearningRate >= 34) then goto OTHER
send collect torn cloth
wait
pause
send collect torn cloth
wait
pause
KICK:
send kick pile
waitforre Assuming you mean a pile|^I could not find what you were referring to
send kick pile
waitforre Assuming you mean a pile|^I could not find what you were referring to
goto HPERC

OTHER:
pause 5
goto HPERC

HPERC:
pause .5
match %s You're not ready to do that again, yet.
matchre RETURN You close your eyes, drawing all your thoughts inward,
put perceive health
matchwait

PHMOVE:
pause .5
put #mapper walk %ROOMID
waitfor %ROOMDESC
pause .5
return

RETURN:
pause .5
return

PERC1:
save FORAGE
var ROOMID 488
var ROOMDESC Stormwill Tower, Entrance Hall
gosub PHMOVE
gosub HPERC

PERC2:
save COMP
var ROOMID 452
var ROOMDESC Zerek's General Store
gosub PHMOVE
gosub HPERC

PERC3:
save MAGIC
var ROOMID 574
var ROOMDESC Painted Ladies Design
gosub PHMOVE
gosub HPERC

PERC4:
save APPRAISE
var ROOMID 508
var ROOMDESC Brickwell Tower, Guildmaster's Office
gosub PHMOVE
gosub HPERC

PERC5:
save FORAGE
var ROOMID 436
var ROOMDESC Sister Imadrail's Emporium
gosub PHMOVE
gosub HPERC

PERC6:
save COMP
var ROOMID 548
var ROOMDESC Province of Ilithi, Citizenship Office
gosub PHMOVE
gosub HPERC

PERC7:
save MAGIC
var ROOMID 215
var ROOMDESC Budd's Barber Shop
gosub PHMOVE
gosub HPERC

PERC8:
save APPRAISE
var ROOMID 225
var ROOMDESC Bettin' Birdies, The Casino
gosub PHMOVE
gosub HPERC

PERC9:
save FORAGE
var ROOMID 221
var ROOMDESC The Heraldry Shop
gosub PHMOVE
gosub HPERC

PERC10:
save COMP
var ROOMID 220
var ROOMDESC Blazons and Banners
gosub PHMOVE
gosub HPERC

PERC11:
save MAGIC
var ROOMID 208
var ROOMDESC Coin of the Realm
gosub PHMOVE
gosub HPERC

PERC12:
save APPRAISE
var ROOMID 158
var ROOMDESC Aelik's Pawn
gosub PHMOVE
gosub HPERC

PERC13:
save FORAGE
var ROOMID 164
var ROOMDESC Balint's Tiles
gosub PHMOVE
gosub HPERC

PERC14:
save COMP
var ROOMID 181
var ROOMDESC Mirrors by Noelle
gosub PHMOVE
gosub HPERC

PERC15:
save MAGIC
var ROOMID 249
var ROOMDESC Liani's Heaven, Private Table
gosub PHMOVE
gosub HPERC

PERC16:
save APPRAISE
var ROOMID 243
var ROOMDESC Tower of Honor, Guildleader's Office
gosub PHMOVE
gosub HPERC

PERC17:
save FORAGE
var ROOMID 487
var ROOMDESC A Grand Entrance
gosub PHMOVE
gosub HPERC

PERC18:
save COMP
var ROOMID 483
var ROOMDESC Seats of Plenty
gosub PHMOVE
gosub HPERC

PERC19:
save MAGIC
var ROOMID 462
var ROOMDESC Golden Phoenix, Front Desk
gosub PHMOVE
gosub HPERC

PERC20:
save APPRAISE
var ROOMID 463
var ROOMDESC Golden Phoenix, Tavern Room
gosub PHMOVE
gosub HPERC

PERC21:
save FORAGE
var ROOMID 395
var ROOMDESC Temple of Darkness, Glassus' Shop
gosub PHMOVE
gosub HPERC

PERC22:
save COMP
var ROOMID 385
var ROOMDESC Shard's Osut'vie
gosub PHMOVE
gosub HPERC

gosub skill.check
goto PERC1

skill.check:
if $Empathy.LearningRate > 33 then
goto end
else
return

end:
send echo YOU ARE MIND LOCKED IN EMPATHY.
put #play MindLocked
put #class arrive on
put avoid all
waitforre ^All AVOID options cleared
send ask %gs for leave
waitforre ^With a sad look, (a|an) .+ (avenger|colepexy|dirnel|guardian|narmorbreth|woodwisp)|^To whom are you speaking
send close my compendium
waitforre ^You close|^That is already|^What were
send stow right
waitforre ^You put|^Stow what
send stow left
waitforre ^You put|^Stow what
put #mapper walk Waiting Room
waitfor Empath's Guild, Waiting Room