Health-Walk Shard (script)

From Elanthipedia
Revision as of 13:46, 14 January 2011 by ISHARON (talk | contribs) (Created page with 'Run this Genie3 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 …')
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Run this Genie3 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.

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

action send 1 $lastcommand when ^(\.\.\.wait|Sorry\,)
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 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 ($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 227
var ROOMDESC Stormwill Tower, Entrance Hall
gosub PHMOVE
gosub HPERC

PERC2:
save MAGIC
var ROOMID 209
var ROOMDESC Zerek's General Store
gosub PHMOVE
gosub HPERC

PERC3:
save APPRAISE
var ROOMID 345
var ROOMDESC Painted Ladies Design
gosub PHMOVE
gosub HPERC

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

PERC5:
save COMP
var ROOMID 341
var ROOMDESC Sister Imadrail's Emporium
gosub PHMOVE
gosub HPERC

PERC6:
save MAGIC
var ROOMID 281
var ROOMDESC Province of Ilithi, Citizenship Office
gosub PHMOVE
gosub HPERC

PERC7:
save APPRAISE
var ROOMID 569
var ROOMDESC Budd's Barber Shop
gosub PHMOVE
gosub HPERC

PERC8:
save FORAGE
var ROOMID 567
var ROOMDESC Bettin' Birdies, The Casino
gosub PHMOVE
gosub HPERC

PERC9:
save COMP
var ROOMID 549
var ROOMDESC The Heraldry Shop
gosub PHMOVE
gosub HPERC

PERC10:
save MAGIC
var ROOMID 550
var ROOMDESC Blazons and Banners
gosub PHMOVE
gosub HPERC

PERC11:
save APPRAISE
var ROOMID 553
var ROOMDESC Coin of the Realm
gosub PHMOVE
gosub HPERC

PERC12:
save FORAGE
var ROOMID 153
var ROOMDESC Aelik's Pawn
gosub PHMOVE
gosub HPERC

PERC13:
save COMP
var ROOMID 152
var ROOMDESC Balint's Tiles
gosub PHMOVE
gosub HPERC

PERC14:
save MAGIC
var ROOMID 150
var ROOMDESC Mirrors by Noelle
gosub PHMOVE
gosub HPERC

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

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

PERC17:
save COMP
var ROOMID 175
var ROOMDESC A Grand Entrance
gosub PHMOVE
gosub HPERC

PERC18:
save MAGIC
var ROOMID 176
var ROOMDESC Seats of Plenty
gosub PHMOVE
gosub HPERC

PERC19:
save APPRAISE
var ROOMID 177
var ROOMDESC Golden Phoenix, Front Desk
gosub PHMOVE
gosub HPERC

PERC20:
save FORAGE
var ROOMID 178
var ROOMDESC Golden Phoenix, Tavern Room
gosub PHMOVE
gosub HPERC

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

PERC22:
save MAGIC
var ROOMID 206
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 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 .idle