Health-Walk Leth (script)

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

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

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

Required Genie Settings

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

#var {cambrinth} {kingsnake armband}
#var {hum} {bolero}

I also recommend adding my humming triggers:

#trigger {^You finish humming} {#send hum $hum}
#trigger {^You should stop playing before you do that} {#send stop hum;#send 1 $lastcommand}

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

Changelog

• 08/05/2011: Fixed avenger-related bug.
• 03/30/2011: The script will no longer hang if you fumble while humming.

Script

setvariable gs avenger
put #class arrive off

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 shalswar-hide 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 hum $hum
waitforre ^You .+ hum|^You are already performing something

send open my shalswar-hide compendium
pause

	put #mapper load Map61_Leth_Deriel
	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 shalswar-hide compendium
	waitforre o
	put turn my shalswar-hide compendium
	waitforre o
	put study my shalswar-hide compendium
	wait
	pause .2
	goto HPERC

MAGIC:
	if ($mana < 85) then goto APPRAISE 
	else if ($Harness_Ability.LearningRate >= 34) && ($Arcana.LearningRate >= 34) && ($Primary_Magic.LearningRate >= 34) then goto COMP
	if ("$righthandnoun" = "compendium") then put stow my shalswar-hide compendium
	send stop hum
	waitforre ^You stop|^In the name
	put prep GS
	wait
	put charge my $cambrinth 11
	waitfor Roundtime
	pause .1
	pause .1
	put focus 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
	send hum $hum
	waitforre ^You .+ hum|^You are already performing something
	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
	send hum $hum
	waitforre ^You .+ hum|^You are already performing something
	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
	send hum $hum
	waitforre ^You .+ hum|^You are already performing something
	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.
		match 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 MAGIC
var ROOMID 165
var ROOMDESC Madame Orris' Perfumerie, Salon
gosub PHMOVE
gosub HPERC

PERC2:
save APPRAISE
var ROOMID 186
var ROOMDESC Arthianna's Clinic, Healing Tent
gosub PHMOVE
gosub HPERC

PERC3:
save FORAGE
var ROOMID 157
var ROOMDESC Khushi's, Back Room
gosub PHMOVE
gosub HPERC

PERC4:
save COMP
var ROOMID 170
var ROOMDESC Ongadine's Garb and Gear, Showroom
gosub PHMOVE
gosub HPERC

PERC5:
save MAGIC
var ROOMID 146
var ROOMDESC Reena's Rainbow, Salesroom
gosub PHMOVE
gosub HPERC

PERC6:
save APPRAISE
var ROOMID 148
var ROOMDESC Dove's Delightful Dwellings
gosub PHMOVE
gosub HPERC

PERC7:
save FORAGE
var ROOMID 151
var ROOMDESC Sinjian's Bardic Requisites, Sales Room
gosub PHMOVE
gosub HPERC

PERC8:
save COMP
var ROOMID 154
var ROOMDESC Blanca's Basketry and Wickerworks, Showroom
gosub PHMOVE
gosub HPERC

PERC9:
save MAGIC
var ROOMID 156
var ROOMDESC Leth Deriel, Wooden Shack
gosub PHMOVE
gosub HPERC

PERC10:
save APPRAISE
var ROOMID 160
var ROOMDESC Huyelm's Trueflight Bow and Arrow Shop, Salesroom
gosub PHMOVE
gosub HPERC

PERC11:
save FORAGE
var ROOMID 162
var ROOMDESC Morikai's, Salesroom
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 #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 shalswar-hide 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 hum $hum