############################################################################
######################  Action     section       ###########################
############################################################################


action goto connect when connection lost|Socket Error
action goto connect when eval $connected = 0
action goto script.begin when ^YOU ARE IDLE


action goto exit when eval $dead = 1
action goto exit when ^DEAD>
action goto exit when ^Your death cries echo
action goto exit when eval $health < 30

action setvar LEAVE_HUNTING on when eval $health < 70

#action send listen to $1 when ^(\S+) begins to lecture you

action send #var HUM on when ^You are already performing something\.
action send #var HUM on when ^You continue to hum your
action send #var HUM on when ^You fumble slightly as you begin to hum
action send #var HUM off when ^You finish humming

action send #var KATAMBA off when ^Katamba sets, slowly dropping below the horizon
action send #echo >Moon Katamba set $gametime when ^Katamba sets, slowly dropping below the horizon
action send #var KATAMBA off when ^Katamba is below the horizon
action send #var KATAMBA on when ^Katamba is unobscured by clouds\.
action send #var KATAMBA on when ^Katamba is obscured by clouds\.
action send #var KATAMBA on when ^Clouds obscure the sky where Katamba should appear
action send #var KATAMBA on when ^Fully half of Katamba is blocked by the clouds overhead
action send #var KATAMBA on when ^Over half of Katamba is obscured by clouds
action send #var KATAMBA on when ^All but the smallest bit of Katamba is obscured by clouds

action send #var XIBAR off when ^Xibar sets, slowly dropping below the horizon
action send #echo >Moon Xibar set $gametime when ^Xibar sets, slowly dropping below the horizon
action send #var XIBAR off when ^Xibar is below the horizon
action send #var XIBAR on when ^Xibar is unobscured by clouds
action send #var XIBAR on when ^Clouds obscure the sky where Xibar should appear
action send #var XIBAR on when ^Fully half of Xibar is blocked by the clouds overhead
action send #var XIBAR on when ^All but the smallest bit of Xibar is obscured by clouds

action send #var YAVASH off when ^Yavash sets, slowly dropping below the horizon
action send #echo >Moon Yavash set $gametime when ^Yavash sets, slowly dropping below the horizon
action send #var YAVASH off when ^Yavash is below the horizon
action send #var YAVASH on when ^Yavash is unobscured by clouds
action send #var YAVASH on when ^Clouds obscure the sky where Yavash should appear
action send #var YAVASH on when ^Fully half of Yavash is blocked by the clouds overhead
action send #var YAVASH on when ^All but the smallest bit of Xibar is obscured by clouds

action send #var SOD on when ^A shifting plexus of glistening azure lines forms around you\.
action send #var SOD on when ^You sense the Seal of Deflection spell upon you
action send #var SOD on when ^The shifting plexus of glistening azure lines reforms around you\.
action send #var SOD off when ^The glistening azure lines fade away\.

action send #var SEER on when ^You feel oddly in tune with the webs of fate\.
action send #var SEER on when ^You sense the Seer's Sense spell upon you
action send #var SEER on when ^You can sense no changes\.
action send #var SEER off when ^You no longer feel as strong a connection to the webs of fate\.

action send #var EASE on when ^Pale yellow sparks begin to flicker over your body, infusing you with a sense of strength and vigor\.
action send #var EASE on when ^You sense the Ease Burden spell upon you
action send #var EASE off when ^You feel a weight settle over you, and realize the magic that has been easing your burden has faded\.

action send #var COL on when ^With a barely perceptible screech, nearby shadows thicken and ooze toward you, covering you in a protective cage of shadows made of thin, crazed lines\.
action send #var COL on when ^You sense the Cage of Light spell upon you
action send #var COL off when ^Your cage of shadows shatters, the fragments dissipating as they fall away\.

action send #var AUS on when ^Your color vision blossoms with new depth\.
action send #var AUS on when ^The auras around you remain unchanged\.
action send #var AUS on when ^You sense the Aura Sight spell upon you
action send #var AUS off when ^Your color vision returns to normal, causing the auras you see to dim and vanish\.

action send #var SHADOW on when ^There is a subtle change in the lighting around you\.  You should find it easier to skulk in the shadows now\.
action send #var SHADOW on when ^You sense the Shadows spell upon you

action send #var FAVORS when ^*Favors: (\S+)



############################################################################
######################  Variable   section       ###########################
############################################################################

var WORN_ITEMS halberd|pike

var BOXES trunk|crate|skippet|coffer|caddy|strongbox|box|casket|chest
var BAG_FULL off

var MONSTER_LIST shaman|goblin|lout
var AMMO rock

var HUM_SONG psalm
var HUM off

var SEER_LEVEL 20
var SOD_LEVEL
var EASE_LEVEL 20
var AUS_LEVEL 20
var SHADOW_LEVEL 30

put #var SEER off
put #var SOD off
put #var EASE off
put #var AUS off
put #var SHADOW off

var LEAVE_HUNTING off

var HEAL_LOCATION heal_merk

put #var last.favor $gametime



############################################################################
######################  Script Start section     ###########################
############################################################################

if "$connected" = "0" then {
	goto connect
	}


goto end.of.base


############################################################################
######################  Buff   Section           ###########################
############################################################################

buff.section:

	if $mana < 80 then return
	if "$SEER" = "off" then {
		gosub prep seer %SEER_LEVEL
		gosub charge armband 12
		gosub focus armband
		gosub cast
		}
	if $mana < 80 then return
	if "$SOD" = "off" then {
		gosub prep sod %SOD_LEVEL
		gosub charge armband 13
		gosub focus armband
		gosub cast
		}
	if $mana < 80 then return
	if "$EASE" = "off" then {
		gosub prep ease %EASE_LEVEL
		gosub charge armband 13
		gosub focus armband
		gosub cast
		}
	if $mana < 80 then return
	if "$AUS" = "off" then {
		gosub prep aus %AUS_LEVEL
		gosub charge armband 12
		gosub focus armband
		gosub cast
		}
	if $mana < 80 then return
	if "$SHADOW" = "off" then {
		gosub prep shadow %SHADOW_LEVEL
		gosub charge armband 12
		gosub charge armband 12
		gosub focus armband
		gosub cast
		}
	return








############################################################################
######################  Routine    section       ###########################
############################################################################


advance2:
if $hidden = 1 then put shiver
pause
put engage
pause 2
goto attack1

aim:

	var location aim1
	var todo $0

aim1:

	matchre return ^You begin to target
	matchre return ^You shift your target to
	matchre return ^You are already targetting that\!
	matchre return ^You need both hands in order to aim\.
	matchre return ^At what are you trying to aim\?
	matchre return ^Your .+ isn't loaded\!
	matchre return ^But the .+ in your right hand isn't a ranged weapon\!
	matchre return ^You don't have a ranged weapon to aim with\!
	put aim %todo
	goto retry


attack:
var todo $0
var location attack1
if $stamina < 85 then pause 3
pause .1
attack1:
if $stamina < 85 then pause 4
matchre advance2 ^It would help if you were closer
matchre advance2 ^You aren't close enough to attack\.
matchre return ^You are already in a position to parry
matchre return ^But you are already dodging
matchre return ^You don't have a weapon to draw with\!
matchre return ^But you don't have a ranged weapon in your hand to fire with\!
matchre return ^But your .+ isn't loaded\!
matchre return ^You need two hands to wield this weapon\!
matchre return ^I could not find what you were referring to\.
matchre return ^At what are you trying to throw
matchre return ^At what are you trying to attack\?
matchre return ^There is nothing else to face
matchre return ^How can you snipe if you are not hidden\?
matchre return ^What are you trying to throw?
matchre return ^\[Roundtime
matchre return ^Roundtime:
matchre return is already quite dead\.
put %todo
goto retry

bag.full:

	setvar BAG_FULL on
	put empty left
	return



cast:

	var location cast1
	var todo $0

cast1:

	matchre return ^You gesture
	matchre return ^You don't have a spell prepared\!
	matchre return ^Your spell pattern collapses
	matchre return ^With a wave of your hand,
	matchre return ^You wave your hand\.
	matchre return ^With a flick of your wrist,
	matchre return ^Your secondary spell pattern dissipates
	matchre return ^You can't cast .+ on yourself\!
	matchre return ^You make a holy gesture
	matchre return ^You raise your palms and face to the heavens
	matchre return ^I could not find what you were referring to\.
	matchre return ^You have difficulty manipulating the mana streams, causing the spell pattern to collapse at the last moment\.
	put cast %todo
	goto retry

charge:

	var location charge1
	var todo $0

charge1:

	matchre return ^Roundtime
	put charge my %todo
	goto retry

collect:

	var location collect1
	var todo $0

collect1:

	matchre return ^Roundtime
	matchre return ^You really need to have at least one hand free to forage properly\.
	matchre return ^You cannot collect anything while in combat\!
	matchre return ^The room is too cluttered to find anything here\!
	matchre return ^Now what did the rocks ever do to you
	put collect %todo
	goto retry

dead.critter:

	if matchre ("$roomobjs", "(%MONSTER_LIST) ((which|that) appears dead|\(dead\))") then {
		put loot $1 box
		pause 2
		gosub loot
		pause
		put face next
		}
	return

empty:

	var location empty1
	var todo $0

empty1:

	matchre return ^Your .* is already empty\.
	matchre return ^You drop
	put empty %todo
	goto retry

face.next:

	put face next
	return

fire:

	var location fire1
	var todo $0

fire1:

	matchre return ^*Roundtime
	matchre face.next ^I could not find what you were referring to\.
	put fire %todo
	goto retry

focus:

	var location focus1
	var todo $0

focus1:

	matchre return ^Roundtime
	matchre return ^Your link to the cambrinth armband is intact\.
	put focus %todo
	goto retry

gem.pouch.full:

	gosub remove gem pouch
	gosub stow gem pouch
	gosub get gem pouch from my hip pouch
	gosub wear gem pouch
	return



get:

	var location get1
	var todo $0

get1:

	matchre return ^You get
	matchre return ^You pull
	matchre return ^You pick up
	matchre return ^What were you referring to\?
	matchre return ^You are already holding that\.
	matchre stow.get ^You need a free hand to pick that up\.
	matchre return ^But that is already in your inventory\.
	matchre return ^You fade in for a moment as you pick up
	matchre return ^You are not strong enough to pick that up\!
	put get %todo
	goto retry

hum:

	var location hum1
	var todo $0

hum1:

	matchre return ^You fumble slightly as you begin to hum a
	matchre return ^You are already performing something
	put hum %todo
	goto retry

kick:

	var location kick1
	var todo $0

kick1:

	matchre kick1 ^You take a step back and run up to the
	matchre kick2 ^You can't do that from your position\.
	matchre kick2 ^You throw a glorious temper tantrum\!
	matchre return ^I could not find what you were referring to\.
	matchre return ^Now what did the rocks ever do to you
	matchre return ^Now what did the rock ever do to you
	put kick %todo
	goto retry

kick2:

	gosub stand
	goto kick

load:

	var location load1
	var todo $0

load1:

	matchre return ^You reach into your
	matchre return ^Roundtime
	matchre return ^You don't have the proper ammunition readily available for your
	matchre return ^Your .* is already loaded with a
	put load %todo
	goto retry

location1:

	gosub stop.humming1
	goto %location

location.p:

	pause

location:

	goto %location
loot:

	gosub loot.coin
	gosub loot.gem
	gosub loot.ammo
	gosub loot.box
	return

loot.ammo:

	if matchre ("$roomobjs" , "(%AMMO)" then {
		gosub get $1
		gosub stow $1
		goto loot.ammo
		}
	return

loot.box:

	var location loot.box1

loot.box1:

	matchre return ^Stow what
	matchre bag.full ^There isn't any more room in the bag for that\.
	matchre bag.full ^You just can't get the .* to fit in the duffel bag, no matter how you arrange it\.
	matchre loot.box ^You put your .* in your duffel bag\.
	matchre loot.box ^You put your
	put stow box
	goto retry

loot.coin:

	var location loot.coin1

loot.coin1:

	matchre loot.coin ^You pick up
	matchre return ^What were you referring to
	put get coin
	goto retry


loot.gem:

	var location loot.gem1

loot.gem1:

	matchre return ^Stow what
	matchre gem.pouch.full ^You think the gem pouch is too full to fit another gem into\.
	matchre loot.gem ^You open your pouch and put the
	matchre loot.gem ^You put your
	put stow gem
	goto retry

monster.wait:

	if $monstercount > 0 then return
	put perc moonlight
	pause $roundtime
	pause
	if $monstercount > 0 then return

	put perc stellar
	pause $roundtime
	pause
	if $monstercount > 0 then return

	put perc trans
	pause $roundtime
	pause
	if $monstercount > 0 then return

	put perc katamba
	pause $roundtime
	pause
	if $monstercount > 0 then return

	put perc yavash
	pause $roundtime
	pause
	if $monstercount > 0 then return
	put appr gem pouch
	pause $roundtime
	pause
	if $monstercount > 0 then return
	goto monster.wait

power.perc:

	var location power.perc1
	var todo $0

power.perc1:

	matchre return ^Roundtime
	put perc %todo
	goto retry

prep:

	var location prep1
	var todo $0

prep1:

	matchre return ^You begin chanting a prayer
	matchre return ^You close your eyes and breathe deeply,
	matchre return ^You trace an arcane sigil in the air,
	matchre return ^Heatless orange flames blaze between your fingertips
	matchre return ^Your eyes darken to black as a starless night
	matchre return ^You raise your arms skyward, chanting
	matchre return ^You are already preparing
	matchre return ^Icy blue frost crackles up your arms
	matchre return ^You make a careless gesture as you chant the words
	matchre return ^Tiny tendrils of lightning jolt between your hands
	matchre return ^The wailing of lost souls accompanies your preparations
	matchre return ^Your skin briefly withers and tightens, becoming gaunt
	matchre return ^Images of streaking stars falling from the heavens flash across your vision
	matchre return ^A nagging sense of desperation guides your hands through the motions
	matchre return ^You hastily shout the arcane phrasings needed to prepare
	matchre return ^You deftly waggle your fingers in the precise motions needed to prepare
	matchre return ^With great force, you slap your hands together before you and slowly pull them apart,
	matchre return ^With no small amount of effort, you slowly recall the teachings
	matchre return ^You struggle against your bindings to prepare
	matchre return ^You raise one hand before you and concentrate
	matchre return ^As you begin to focus on preparing
	put prepare %todo
	goto retry

remove:

	var location remove1
	var todo $0

remove1:

	matchre return ^You sling a
	matchre return ^You remove a
	matchre return ^Remove what\?
	put remove %todo
	goto retry

retreat:

	var location retreat
	matchre retreat ^You retreat from combat\.
	matchre retreat ^You retreat back to pole range\.
	matchre retreat ^You stop advancing
	matchre retreat ^You sneak back out
	matchre stand ^You must stand first\.
	matchre return ^You are already as far away as you can get\!
	matchre return ^You try to
	matchre return revealing your hiding place\!
	put retreat
	goto retry

retry:

	matchre location ^\.\.\.wait
	matchre location ^Sorry, you may
	matchre location ^Sorry, system is slow
	matchre location.p ^You don't seem to be able to move to do that
	matchre location.p ^It's all a blur
	matchre location.p ^You're unconscious\!
	matchre location.p ^You are still stunned
	matchre location.p There is no need for violence here\.
	matchre location.p ^You can't do that while entangled in a web
	matchre location.p ^You struggle against the shadowy webs to no avail\.
	matchre location.p ^You attempt that, but end up getting caught in an invisible box\.
	matchre location1 ^You should stop playing before you do that\.
	matchre location1 ^You are a bit too busy performing to do that\.
	matchre location1 ^You are concentrating too much upon your performance to do that\.
	matchwait

return:

	return

stand:

	if $standing = "1" then return
	var location stand1

stand1:

	matchre return ^You stand back up\.
	matchre return ^You swim back up
	matchre return ^You are already standing\.
	matchre stand1 ^You are so unbalanced you cannot manage to stand\.
	matchre stand1 ^You are overburdened and cannot manage to stand\.
	matchre stand1 ^The weight of all your possessions prevents you from standing\.
	matchre stand1 ^Roundtime
	put stand
	goto retry


stop.humming:

	var location stop.humming

stop.humming1:

	matchre return ^You stop playing your song\.
	matchre return ^In the name of love\?
	put stop hum
	goto retry

stow.all:


	if "$righthand" != "Empty" then gosub stow $righthand
	if "$lefthand" != "Empty" then gosub stow $lefthand
	if "$righthand" != "Empty" then gosub empty right
	if "$lefthand" != "Empty" then gosub empty left
	return


stow:

	if matchre ("$righthand" , "(%WORN_ITEMS)") then gosub wear $1
	if matchre ("$lefthand" , "(%WORN_ITEMS)") then gosub wear $1
	var location stow1
	var todo $0

stow1:

	matchre unload ^You should unload the
	matchre return ^But that is already in your inventory
	matchre return ^You put your
	matchre return ^Stow what\?
	matchre return ^You just can't get the .* to fit in the duffel bag, no matter how you arrange it\.
	put stow %todo
	goto retry


target:

	var location target1
	var todo $0

target1:

	matchre return ^I could not find what you were referring to\.
	matchre return ^You begin to weave
	matchre return ^Your target pattern is already formed
	matchre return ^You must be preparing a spell in order to target it\!
	matchre return ^You don't need to target the spell you're preparing\.
	matchre target2 ^There is no need to target
	put target %todo
	goto retry

target2:

	put face next
	goto target1

unload:

	matchre location ^You unload the
	matchre location ^Roundtime
	put unload
	matchwait 5
	goto unload

wear:

	var location wear1
	var todo $0

wear1:

	matchre return ^You attach a
	matchre return ^You sling your
	put wear %todo
	goto retry


############################################################################
######################  connecting section       ###########################
############################################################################

temp.exit:

	action remove eval $stunned = 1
	action remove eval $connected = 0
	action remove connection lost|Socket Error
	action remove eval $health < 60
	put quit
	pause 300
	put #connect
	pause 15
	action remove eval $health < 60
	gosub travel merkarch
	gosub heal.me
	goto script.begin

connect:

	action remove eval $connected = 0
	pause 0.1
	pause 0.1
	echo *** You have been disconnected.  Attempting to reconnect ***
	put #echo log *** Attempting to reconnect ***
	action goto Connected when You look around, taking a moment to get your bearings.
	goto connecting
	exit

connecting:

	pause 0.1
	pause 0.1
	put #connect
	pause 15
	if $connected = 0 then goto connecting
	goto connected

connected:

	action goto connect when eval $connected = 0
	pause 0.1
	pause 0.1
	Echo *** You have been Reconnected ***
	put #echo log *** Reconnected ***
	action remove You look around, taking a moment to get your bearings.
	goto script.begin



sristal.exit:


	put quit
	pause 2
	if $connected = 1 then goto sristal.exit
	pause 1800
	goto script.begin

exit:


	put exit
	put exit
	put exit
	exit
	exit
	exit



end.of.base: