Health-Walk Crossing (script)

From Elanthipedia
Revision as of 13:45, 14 January 2011 by ISHARON (talk | contribs)
Jump to navigation Jump to search

Run this Genie3 script anywhere in Crossing 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.

The script 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 my map to run this script.

Script

setvariable gs avenger
put arrive2

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 hum $hum
waitforre ^You begin to hum|^You are already performing something

send open my compendium
pause

	put #mapper load Map1_Crossing
	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 ($Harness_Ability.LearningRate >= 34) && ($Arcana.LearningRate >= 34) && ($Primary_Magic.LearningRate >= 34) then goto COMP
	if ("$righthandnoun" = "compendium") then put stow my 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 begin to 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 begin to 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 begin to 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 COMP
var ROOMID 734
var ROOMDESC Half Pint, Main Saloon
gosub PHMOVE
gosub HPERC

PERC2:
save MAGIC
var ROOMID 773
var ROOMDESC Sand Spit Tavern, Barroom
gosub PHMOVE
gosub HPERC

PERC3:
save APPRAISE
var ROOMID 218
var ROOMDESC Ragge's Locksmithing, Salesroom
gosub PHMOVE
gosub HPERC

PERC4:
save FORAGE
var ROOMID 426
var ROOMDESC The True Bard D'Or, Fine Instruments
gosub PHMOVE
gosub HPERC

PERC5:
save COMP
var ROOMID 23
var ROOMDESC The Crossing, Town Green Southwest
gosub PHMOVE
gosub HPERC

PERC6:
save MAGIC
var ROOMID 192
var ROOMDESC Tembeg's Armory, Salesroom
gosub PHMOVE
gosub HPERC

PERC7:
save APPRAISE
var ROOMID 14
var ROOMDESC The Crossing, Town Green North
gosub PHMOVE
gosub HPERC

PERC8:
save FORAGE
var ROOMID 191
var ROOMDESC Milgrym's Weapons, Showroom
gosub PHMOVE
gosub HPERC

PERC9:
save COMP
var ROOMID 15
var ROOMDESC The Crossing, Town Green Southeast
gosub PHMOVE
gosub HPERC

PERC10:
save MAGIC
var ROOMID 189
var ROOMDESC Berolt's Dry Goods, Showroom
gosub PHMOVE
gosub HPERC

PERC11:
save APPRAISE
var ROOMID 331
var ROOMDESC Town Hall, Permits Office
gosub PHMOVE
gosub HPERC

PERC12:
save FORAGE
var ROOMID 330
var ROOMDESC Town Hall, Citizenship Registration Office
gosub PHMOVE
gosub HPERC

PERC13:
save COMP
var ROOMID 341
var ROOMDESC Town Hall, Lottery Office
gosub PHMOVE
gosub HPERC

PERC14:
save MAGIC
var ROOMID 342
var ROOMDESC Town Hall, Genealogy Office
gosub PHMOVE
gosub HPERC

PERC15:
save APPRAISE
var ROOMID 394
var ROOMDESC Grisgonda's Gems and Jewels
gosub PHMOVE
gosub HPERC

PERC16:
save FORAGE
var ROOMID 622
var ROOMDESC MAMAS Company, Main Office
gosub PHMOVE
gosub HPERC

PERC17:
save COMP
var ROOMID 228
var ROOMDESC Catrox's Forge, Entryway
gosub PHMOVE
gosub HPERC

PERC18:
save MAGIC
var ROOMID 461
var ROOMDESC Marcipur's Stitchery, Workshop
gosub PHMOVE
gosub HPERC

PERC19:
save APPRAISE
var ROOMID 462
var ROOMDESC Talmai's Cobblery, Salesroom
gosub PHMOVE
gosub HPERC

PERC20:
save FORAGE
var ROOMID 810
var ROOMDESC The Bottom Line
gosub PHMOVE
gosub HPERC

PERC21:
save COMP
var ROOMID 908
var ROOMDESC Paladins' Guild, Stable
gosub PHMOVE
gosub HPERC

PERC22:
save MAGIC
var ROOMID 669
var ROOMDESC Hameel's Carpet Emporium
gosub PHMOVE
gosub HPERC

PERC23:
save APPRAISE
var ROOMID 809
var ROOMDESC Elite Architecture
gosub PHMOVE
gosub HPERC

PERC24:
save FORAGE
var ROOMID 226
var ROOMDESC Chizili's Alchemical Goods, Salesroom
gosub PHMOVE
gosub HPERC

PERC25:
save COMP
var ROOMID 219
var ROOMDESC Mauriga's Botanicals, Salesroom
gosub PHMOVE
gosub HPERC

PERC26:
save MAGIC
var ROOMID 405
var ROOMDESC The Crossing, Mongers' Square
gosub PHMOVE
gosub HPERC

PERC27:
save APPRAISE
var ROOMID 493
var ROOMDESC Taelbert's Inn, Tack Storage
gosub PHMOVE
gosub HPERC

PERC28:
save FORAGE
var ROOMID 125
var ROOMDESC The Crossing, Fostra Square
gosub PHMOVE
gosub HPERC

PERC29:
save COMP
var ROOMID 220
var ROOMDESC Falken's Tannery, Workshop
gosub PHMOVE
gosub HPERC

PERC30:
save MAGIC
var ROOMID 222
var ROOMDESC Falken's Tannery, Supply Room
gosub PHMOVE
gosub HPERC

PERC31:
save APPRAISE
var ROOMID 495
var ROOMDESC Bards' Guild, Commons
gosub PHMOVE
gosub HPERC

PERC32:
save FORAGE
var ROOMID 459
var ROOMDESC Cormyn's House of Heirlooms
gosub PHMOVE
gosub HPERC

PERC33:
save COMP
var ROOMID 356
var ROOMDESC Exterior Motives
gosub PHMOVE
gosub HPERC

PERC34:
save MAGIC
var ROOMID 784
var ROOMDESC Viper's Nest, The Pit
gosub PHMOVE
gosub HPERC

PERC35:
save APPRAISE
var ROOMID 223
var ROOMDESC Herilo's Artifacts, Showroom
gosub PHMOVE
gosub HPERC

PERC36:
save FORAGE
var ROOMID 357
var ROOMDESC Traders' Guild, Main Hall
gosub PHMOVE
gosub HPERC

PERC37:
save COMP
var ROOMID 576
var ROOMDESC The Raven's Court, Membership Desk
gosub PHMOVE
gosub HPERC

PERC38:
save MAGIC
var ROOMID 776
var ROOMDESC Ulven's Warehouse, Storage
gosub PHMOVE
gosub HPERC

PERC39:
save APPRAISE
var ROOMID 766
var ROOMDESC Windows to the Universe
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 arrive1
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 Empaths' Guild
waitfor Empaths' Guild, Main Room

send hum $hum
Retrieved from "https://elanthipedia.play.net/index.php?title=Health-Walk_Crossing_(script)&oldid=171939"