communequest.cmd

debug 10
var tamsine 0
var eluned1 0
var eluned2 0
var kertigen 0
var hodierna 0
var meraud 0
var glythtide 0
var truffenyi 0

action (communehelp) var Circle $1 when Circle\: (\d+)
action (communehelp) var Guild $1 when Guild\: (.*)$ 
action (communehelp) var tamsine 1 when ^ - Tamsine -
action (communehelp) var eluned1 1 when ^The Blessing of Water
action (communehelp) var eluned2 1 when ^The Blessing of Buoyancy
action (communehelp) var kertigen 1 when ^ - Kertigen -
action (communehelp) var hodierna 1 when ^ - Hodierna -
action (communehelp) var meraud 1 when ^ - Meraud -
action (communehelp) var glythtide 1 when ^ - Glythtide -
action (communehelp) var truffenyi 1 when ^ - Truffenyi -

put commune help
pause 2
put info
pause 2
action (communehelp) off
if_1 then goto %1
if "%Guild" != "Cleric" then goto nocleric
if ((%Circle >= 2) && (!%tamsine)) then gosub tamsine
if ((%Circle >= 3) && (!%eluned1)) then gosub eluned1
if ((%Circle >= 8) && (!%kertigen)) then gosub kertigen
if ((%Circle >= 12) && (!%hodierna)) then gosub hodierna
if ((%Circle >= 15) && (!%eluned2)) then gosub eluned2
if ((%Circle >= 20) && (!%meraud)) then gosub meraud
if ((%Circle >= 35) && (!%glythtide)) then gosub glythtide
if ((%Circle >= 60) && (!%truffenyi)) then gosub truffenyi
echo You have no available commune quests
exit

nocleric:
Echo You're not a cleric, this won't work for you
exit

tamsine:
echo Starting Tamsine
gosub getquest
gosub coincheck
if %coin < 25 then
	{
	gosub automove teller
	put withd 25 copper
	}
gosub EMPTY_HANDS
gosub automove durantine
put order sirese flower
put offer 25
gosub automove tamsine
put put sirese flower on flat rock
echo Be patient, this will take awhile
put offer flower on flat rock
waitfor When it fades away, you find you are back where you started
echo Tamsine Complete
return

eluned1:
echo starting Eluned 1
gosub getquest
gosub automove ne gate|eluned
echo DO NOT DO ANYTHING AFTER MEDITATING
put meditate
waitfor once again changing and reforming
eluned1_1:
matchre swimdown You take a deep breath
matchre elunedwait you find that you cannot move yourself to go in
put dive deeper water
matchwait

swimdown:
echo Be patient, this will take awhile
put swim down
waitfor There is a rush as sweet air fills your lungs
echo DO NOT DO ANYTHING AFTER MEDITATING
put meditate
waitfor once again changing and reforming
send stand
pause 0.5
pause 0.2
move out
gosub automove crossing
ECHO Eluned 1 Complete
return

elunedwait:
Echo Completed another commune quest too recently, pausing 60 seconds and trying again
pause 60
goto eluned1_1

kertigen:
echo Starting Kertigen
gosub getquest
gosub automove NE gate|stone|63
pause 8
if !$standing then put stand
gosub kertigenmove
echo Be patient, this will take awhile
put pray
waitfor It is the last sight you see as the world dissolves about you
gosub automove NTR|Crossing
Echo Kertigen Complete
return

kertigenmove:
pause 3
pause 2
put look n torch
move n
put look northeast torch
move ne
put look floor
move w
put look northwest torch
move nw
put look floor
move nw
put look east torch
move e
put look floor
move se
put look east torch
move e
put look floor
move e
put look north torch
move n
put look floor
move ne
put look northwest torch
move nw
put look floor
move w
put look northwest torch
move nw
put look floor
move w
put look southwest torch
move sw
return

hodierna:
echo Starting Hodierna
gosub coincheck
if %coin < 70 then
	{
	gosub automove teller
	put withd 1 silver
	}
gosub automove .travel leth|crossing|hodierna
put open book
send read book
waitfor Upon concluding your reading, you carefully close the fragile book|What were you
pause 0.5
pause 0.5
gosub automove 41
pause 0.5
put get flame
waitfor The silver unicorn shakes its mane and then turns and leaps down from the platform
echo Hodierna Complete
gosub automove .travel crossing
return

eluned2:
Echo Starting Eluned 2
gosub getquest
gosub automove e gate|Bartling
put ask bartling about eluned
pause 1
put ask bartling about sea
waitfor go forth less weary, Beloved of the Waters
gosub automove 98
put dive cliff
echo Be patient this will take a bit
put dive cliff
waitfor once again your will is your own
if !$standing then put stand
put climb indentation
pause 2
put #mapper reset
gosub automove crossing
echo Eluned 2 Complete
return

meraud:
echo Starting Meraud
gosub getquest
gosub automove w gate|246
echo Be patient this will take awhile
put scratch wolf
waitfor you realize you are flesh once more
gosub automove crossing
echo Meraud Complete
return

glythtide:
echo Starting Glythtide
gosub getquest
gosub coincheck
if %coin < 70 then
	{
	gosub automove teller
	put withd 1 silver
	}
gosub automove .travel leth|102
put look bough
gosub automove 233
echo Be patient, this will take a bit
put drink wine
waitfor Your vision grows darker again
gosub EMPTY_HANDS
gosub automove 234
gosub getherb petal
gosub automove 235
RUE:
gosub getherb rue
gosub automove 233
trapdoor:
matchre founddoor You see the faint outline of a trapdoor
put search floor
matchwait 2
goto trapdoor

founddoor:
put go trapdoor
waitfor He opens the trap door
pause 2
put #mapper reset
pause 0.5
gosub automove .travel Crossing
echo Glythtide Complete
return

getherb:
var herb $1
matchre return ^You gather
matchre return ^You break off a sprig of rue
matchre glythfail ^You decide to leave
put get %herb
matchwait

trufffail:
echo You have gotten %herb too recently, retry the quest again in two hours
gosub automove .travel crossing
return

truffenyi:
gosub getquest
action (altar) var neutral $1 when ^A carving along the front of the miniature altar depicts .*(?i)(raven|unicorn|wolf|panther|boar|ox|cobra|dolphin|ram|cat|wren|lion|scorpion).*
pause 5
put look altar
pause 1

if matchre("%neutral", "(?i)raven") then 
	{
	var light welkin
	var dark raccoon
	var NeutralGod Kertigen
	var NeutralOffering 101
	var LightGod Divyaush
	var LightOffering 201
	var DarkGod Zachriedek
	var DarkOffering 301
	var LightAltar iron altar
	var NeutralAltar altar
	var DarkAltar rusty altar
	}
if matchre("%neutral", "(?i)unicorn") then 
	{
	var light cow
	var dark adder
	var NeutralGod Hodierna
	var NeutralOffering 102
	var LightGod Berengaria
	var LightOffering 202
	var DarkGod Asketi
	var DarkOffering 302
	var DarkAltar heavy altar
	var LightAltar low altar
	var NeutralAltar altar
	}
if matchre("%neutral", "(?i)wolf") then 
	{
	var light owl
	var dark shrew
	var NeutralGod Meraud
	var NeutralOffering 103
	var LightGod Firulf
	var LightOffering 203
	var DarkGod Kerenhappuch
	var DarkOffering 303
	var NeutralAltar altar
	var LightAltar marble altar
	var DarkAltar lacquered altar
	}
if matchre("%neutral", "(?i)panther") then 
	{
	var light nightingale
	var dark shrike
	var NeutralGod Damaris
	var NeutralOffering 104
	var LightGod Phelim
	var LightOffering 204
	var DarkGod Dergati
	var DarkOffering 304
	var NeutralAltar altar
	var LightAltar marble altar
	var DarkAltar alabaster altar
	}
if matchre("%neutral", "(?i)boar") then
	{
	var light wolverine
	var dark centuar
	var NeutralGod Everild
	var NeutralOffering 105
	var LightGod Kuniyo
	var LightOffering 205
	var DarkGodTrothfang
	var DarkOffering 305
	var NeutralAltar altar
	var LightAltar walnut altar
	var DarkAltar iron altar
	}
if matchre("%neutral", "(?i)ox") then 
	{
	var light magpie
	var dark weasel
	var NeutralGod Truffenyi
	var NeutralOffering 106
	var LightGod Alamhif
	var LightOffering 206
	var DarkGod Huldah
	var DarkOffering 306
	var NeutralAltar altar
	var LightAltar marble altar
	var DarkAltar mistwood altar
	}
if matchre("%neutral", "(?i)cobra") then 
	{
	var light king snake
	var dark viper
	var NeutralGod Hav'roth
	var NeutralOffering 107
	var LightGod Peri'el
	var LightOffering 207
	var DarkGod Ushnish
	var DarkOffering 307
	var NeutralAltar altar
	var LightAltar sandalwood altar
	var DarkAltar basalt altar
	}
if matchre("%neutral", "(?i)dolphin") then
	{
	var light albatross
	var dark shark
	var NeutralGod Eluned
	var NeutralOffering 108
	var LightGod Lemicus
	var LightOffering 208
	var DarkGod Drogor
	var DarkOffering 308
	var NeutralAltar altar
	var LightAltar driftwood altar
	var DarkAltar crude altar
	}
if matchre("%neutral", "(?i)ram") then 
	{
	var light donkey
	var dark coyote
	var NeutralGod Glythtide
	var NeutralOffering 109
	var LightGod Saemaus
	var LightOffering 209
	var DarkGod Be'ort
	var DarkOffering 309
	var NeutralAltar altar
	var LightAltar small altar
	var DarkAltar metal altar
	}
if matchre("%neutral", "(?i)cat") then 
	{
	var light dove
	var dark spider
	var NeutralGod Tamsine
	var NeutralOffering 110
	var LightGod Albreda
	var LightOffering 210
	var DarkGod Harawep
	var DarkOffering 310
	var NeutralAltar altar
	var LightAltar modest altar
	var DarkAltar bloodwood altar
	}
if matchre("%neutral", "(?i)wren") then 
	{
	var light phoenix
	var dark heron
	var NeutralGod Faenella
	var NeutralOffering 111
	var LightGod Murrula
	var LightOffering 211
	var DarkGod Idon
	var DarkOffering 311
	var NeutralAltar altar
	var LightAltar ash altar
	var DarkAltar marble altar
	}
if matchre("%neutral", "(?i)lion") then 
	{
	var light nightingale
	var dark goshawk
	var NeutralGod Chadatru
	var NeutralOffering 112
	var LightGod Phelim
	var LightOffering 204
	var DarkGod Botolf
	var DarkOffering 312
	var NeutralAltar altar
	var LightAltar marble altar
	var DarkAltar basalt altar
	}
if matchre("%neutral", "(?i)scorpion") then 
	{
	var light jackal
	var dark vulture
	var NeutralGod Urrem'tier
	var NeutralOffering 113
	var LightGod Eylhaar
	var LightOffering 213
	var DarkGod Aldauth
	var DarkOffering 313
	var NeutralAltar altar
	var LightAltar lacewood altar
	var DarkAltar ironwood altar
	}
action (altar) off
getprimers:
gosub EMPTY_HANDS
gosub coincheck
if %coin < 1500 then
	{
	evalmath needcoin (1500-%coin)
	gosub automove teller
	put withd %needcoin copper
	}
gosub automove ne gate|dirge|44
gosub find.shaman
gosub order %NeutralOffering
pause 0.3
gosub stow %neutral primer
if !matchre("$roomobjs", "somber shaman") then gosub find.shaman
gosub order %LightOffering
gosub stow %light primer
pause 0.3
if matchre("$roomobjs", "somber shaman") then gosub find.shaman
gosub order %DarkOffering
gosub stow %dark primer
pause 0.3
gosub automove ntr|crossing|temple|%NeutralGod
gosub clean %NeutralAltar
gosub get %neutral primer
gosub PUT_IT %neutral primer on %NeutralAltar
put pray
waitfor orb
gosub get %NeutralGod orb from %NeutralAltar
gosub GET my altar
gosub PUT_IT %NeutralGod orb in my altar
gosub STOW my altar
gosub automove %LightGod
gosub clean %LightAltar
gosub get %light primer
gosub PUT_IT %light primer on %LightAltar
put pray
waitfor orb
gosub get %LightGod orb from %LightAltar
gosub GET my altar
gosub PUT_IT %LightGod orb in my altar
gosub STOW my altar
gosub clean %DarkAltar
gosub get %dark primer
gosub PUT_IT %dark primer on %DarkAltar
put pray
waitfor orb
gosub get %DarkGod orb from %DarkAltar
gosub GET my altar
gosub PUT_IT %DarkGod orb in my altar
put close my altar
pause 0.5
exit
pause 0.5
pause 0.5
gosub GET vial
gosub heal
gosub automove 347
put drink vial
put drink vial
gosub empty hands
goto vial
vialend:
action (pray) off
gosub automove .theren
echo This is all I have messaging for, you'll have to do it on your own from here
exit

clean:
var altar $0
gosub get $watercontainer 
put clean %altar with water
waitforre (^You finish your job|^But the altar)
gosub stow $watercontainer
return


heal:
if "$game" = "DRF" then goto healtf
gosub automove crossing|healer
goto auto


healtf:
action (healing) goto reset when (\w+) (nods to you\.|grins like an idiot|stretches out a hand|grins bravely at you) 
action (healing) goto reset when \w+ whispers, "(?:[\s,]+)?(?:All clean|I should be finished|Your wounds are healed|There ya go|You are healed|There now|There ya go|Ok $charactername, you are)
action (healingtouched) goto get_healing.getting_healed when You have a brief sensation that leaves your wounds tingling. 
action (healingtouched) goto get_healing.lean.done when (\w+) whispers, "(?:[\s,]+)?(?:I am working|I am still|I am healing \w+ right now\. Please wait\.|Dadgummit|Dagnabbit|My apologies|I'm currently healing)
gosub automove crossing|portal
move go meeting portal
gosub automove 45
1:
	if "%healed" = "no" then gosub get_healing.lean Gator
2:
 	if "%healed" = "no" then gosub get_healing.lean Bedlam
3:
	if "%healed" = "no" then gosub get_healing.lean Odium
4:
	if "%healed" = "no" then gosub get_healing.lean Bayndayd
5:
	if "%healed" = "no" then gosub get_healing.lean Kristen
6:
 	if "%healed" = "no" then goto roomcheck
	
roomcheck:
	if $roomid = 45 then 
		{
		gosub automove 85
		goto arch
		}
	if $roomid = 85 then
		{
		gosub automove healer
		goto auto
		}


get_healing.done_leaning: 
 	echo *** get_healing.done_leaning *** 
 	if "%healed" = "no" then if $health < 30 then goto exit.temp.short 
 	if "%healed" = "no" then goto get_healing 
 	goto leave.arch 

get_healing.lean: 
 	echo *** get_healing.lean $0 *** 
 	echo *** giving 30 seconds for them to touch me, or I'm moving on *** 
 	if contains("$roomplayers", "$1") then put lean $1
	else goto get_healing.lean.done
	pause 30
	goto get_healing.lean.done
 	matchwait 

get_healing.lean.done: 
 	echo *** get_healing.lean.done *** 
 	echo *** they didn't touch me, returning and trying next person *** 
	counter add 1
	goto %c

get_healing.getting_healed:
 	echo *** get_healing.getting_healed *** 
 	echo *** They touched me! Waiting 2 minutes or until they tell me they're done. *** 
	action remove bleeding
	action (healing) on
	action (healingtouched) on
	pause 300
	goto reset

reset:
#gosub get_healing.inactivate
action (healingtouched) off
action (healing) off
return

Auto:
	setvariable current.label auto
	action remove eval prone = 1
	put fall
	pause 0.1
	put join list
	matchre stand.auto (You sit up|\"You're healthy|crosses (?:your|$charactername's) name (?:off|from) the( waiting)? list)
	matchwait 300
	goto stand.auto

stand.auto:
return


order:
var order $1
put order %order from shaman
return


find.shaman:
	 var shaman.room 38|39|40|42|43|46|47|45|41|44|48|49|50
	 var Shaman.Found 0
	 var temp 0
	 eval temp.max count("%shaman.room","|")
	 #pause 1
	 #send look %master
	 #pause 1
	 #if %Master.Found = 1 then
      pause 0.1
      pause 0.1
         if matchre("$roomobjs", "somber shaman") then
	 {
	 unvar temp
	 unvar temp.max
	 return
	 }
find.shaman2:
	pause 1
	gosub automove %shaman.room(%temp)
	#send look %master
	#pause 1
	#if %Master.Found = 1 then
     if matchre("$roomobjs", "somber shaman") then
		{
		unvar temp
		unvar temp.max
		return
		}
	math temp add 1
	if %temp > %temp.max then
	{
	goto find.shaman
	echo %master not found in any room specified. Check your master room list for this society!
	exit
	}
	gosub find.shaman2
	return

vial:
action (pray) goto vialend when ^A stern voice surrounds you, "$charactername, you have my attention, though really you are never far from my sight
action (pray) var pray Divyaush;goto pray when ^Your vision fades and you suddenly see yourself working in front of a glowing forge
action (pray) var pray Berengaria;goto pray when^Your vision fades and you see yourself toiling in a dusty field
action (pray) var pray Kuniyo;goto pray when ^Your vision fades and you see yourself huddled in front of a fire in an icy cavern
action (pray) var pray Peri'el;goto pray when ^Your vision fades and you see yourself surrounded by occupied cots
action (pray) var pray Lemicus;goto pray when ^Your vision fades and you see yourself alone on a raft
action (pray) var pray Albreda;goto pray when ^Your vision fades and you see yourself as a young child sitting in the corner
action (pray) var pray Murrula;goto pray when ^Your vision fades and you find yourself travelling the desert
action (pray) var pray Rutilor;goto pray when ^Your vision fades and you see yourself tired and sore after a long day of harvesting crops
action (pray) var pray saemaus;goto pray when ^Your vision fades and you see yourself sitting on a bar stool
action (pray) var pray asketi;goto pray when ^Your vision fades and you see yourself walking through one of your grain fields
action (pray) var pray be'ort;goto pray when ^Your vision fades and you see yourself sitting amongst a group gathered at an outdoor wedding
action (pray) var pray dergati;goto pray when ^Your vision fades and you see yourself sitting on a grassy hilltop
action (pray) var pray drogor;goto pray when ^In your vision the waters pull away from the shore
action (pray) var pray drogor;goto pray when ^Your vision fades and you see yourself facing a crackling fire next to the shore
action (pray) var pray idon;goto pray when ^Your vision fades and you see yourself seated in the front row of a concert hall
action (pray) var pray kerenhappuch;goto pray when ^Your vision fades and you see yourself entertaining a neighboring farmer at your house
action (pray) var pray trothfang;goto pray when ^Your vision fades and you see yourself battling a small peccary
action (pray) var pray zachriedek;goto pray when ^Your vision fades and you see yourself standing in the snow peering into the window of a rival
action (pray) goto dropit when ^Your stomach grumbles and you realize that you're holding a
vial_1:
	pause  300
	put fatigue
	goto vial_1

dropit:
	if "$righthand" != "Empty" then put empty right
	if "$lefthand" != "Empty" then put empty left
	goto vial_1
	
	
EMPTY_HANDS:
     pause 0.0001
     if ("$righthand" != "Empty") then gosub STOW $righthandnoun
     if ("$lefthand" != "Empty") then gosub STOW $lefthandnoun
     return
	 
#### STOW SUB
STOW:
     var Stow $0
     var LOCATION STOW_1
     pause 0.0001
     STOW_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre WEAR_CHECK ^.* is too long to fit in .*\.
     matchre RETURN ^You put .*\.
     matchre RETURN already in your inventory
     matchre RETURN ^You open your pouch and put .* inside\, closing it once more\.
     matchre RETURN ^What were you referring to\?
     matchre RETURN ^Stow what\?  Type 'STOW HELP' for details\.
	 matchre STOW_LEFT You need a free hand
     matchre STOW.UNLOAD ^You should unload
     send stow %Stow
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW! (utility.inc) ***
     put #echo >$Log Crimson $datetime Stow = %Stow
     put #log $datetime MISSING MATCH IN STOW (utility.inc)
     return
	 
STOW_LEFT:
	var LOCATION STOW_LEFT
	 matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre WEAR_CHECK ^.* is too long to fit in .*\.
     matchre STOW_LEFT1 ^You put .*\.
     matchre STOW_LEFT1 already in your inventory
     matchre STOW_LEFT1 ^You open your pouch and put .* inside\, closing it once more\.
     matchre STOW_LEFT1 ^What were you referring to\?
     matchre STOW_LEFT1 ^Stow what\?  Type 'STOW HELP' for details\.
     matchre STOW.UNLOAD ^You should unload
     send stow LEFT
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW! (utility.inc) ***
     put #echo >$Log Crimson $datetime Stow = %Stow
     put #log $datetime MISSING MATCH IN STOW (utility.inc)
     goto STOW_LEFT1
	 
STOW_LEFT1:
	var LOCATION STOW_1
	goto STOW_1
	

STOW.UNLOAD:
    pause 0.0001
    gosub UNLOAD
    gosub STOW $righthandnoun
    gosub STOW $lefthandnoun
    return
 
#### WEAR SUB
WEAR_CHECK:
	 	 if matchre("$righthand", "stone quarterstaff|stone lance") then 
		{
		put drop $righthand
		return
		}
		goto WEAR_1
WEAR:
     var Stow $0
     var LOCATION WEAR_1
     pause 0.0001
     WEAR_1:

     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre STOW_1 ^You can't wear that\!
     matchre STOW_1 ^You can't wear any more items like that\.
     matchre STOW_1 ^This .* can't fit over the .* you are already wearing which also covers and protects your .*\.
     matchre RETURN ^You (?:sling|put|slide|slip|attach|work|strap) .*\.
     matchre RETURN ^You are already wearing that\.
     matchre RETURN ^What were you referring to\?
     matchre RETURN ^Wear what\?
     send wear %Stow
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN WEAR! (utility.inc) ***
     put #echo >$Log Crimson $datetime Stow = %Stow
     put #log $datetime MISSING MATCH IN WEAR (utility.inc)
     return
 
#### DOUBLE PUT SUB
PUT_IT:
     var PutIt $0
     var LOCATION PUT_IT_1
     pause 0.0001
     PUT_IT_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre RETURN ^You (?:put|drop) .*\.
     matchre RETURN ^Please rephrase that command\.
	 matchre RETURN ^You reverently place
     matchre RETURN ^.* what\?
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^What were you referring to\?
     send put %PutIt
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PUT_IT! (utility.inc) ***
     put #echo >$Log Crimson $datetime PutIt = %PutIt
     put #log $datetime MISSING MATCH IN PUT_IT (utility.inc)
     return
	 
 #### GET SUB
GET:
     var Get $0
     var LOCATION GET_1
     pause 0.0001
     GET_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre WAIT ^You struggle with .* great weight but can't quite lift it\!
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre HOLD_1 ^But that is already in your inventory\.
     matchre RETURN ^You get .*\.
     matchre RETURN ^You pick up .*\.
     matchre RETURN ^You carefully remove .* from the bundle\.
     matchre RETURN ^You are already holding that\.
     matchre RETURN ^Get what\?
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^What were you referring to\?
     matchre RETURN ^You grab .*(?:\.|\!|\?)
     matchre RETURN ^As best it can\, .* moves in your direction\.
     send get %Get
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN GET! (utility.inc) ***
     put #echo >$Log Crimson $datetime Get = %Get
     put #log $datetime MISSING MATCH IN GET (utility.inc)
     return
 
#### HOLD SUB
HOLD:
     var Get $0
     var LOCATION HOLD_1
     pause 0.0001
     HOLD_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre WAIT ^You struggle with .* great weight but can't quite lift it\!
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre RETURN ^You sling .*\.
     matchre RETURN ^You get .*\.
     matchre RETURN ^You take .*\.
     matchre RETURN ^You pull .*\.
	 matchre RETURN ^You remove .*\.
	 matchre RETURN ^You loosen .*\.
     matchre RETURN ^You remove .* from your belt\.
     matchre RETURN ^You are already holding that\.
     matchre RETURN ^Get what\?
	 matchre RETURN ^Hold hands with whom
	 matchre RETURN ^You work your way out of
	 matchre RETURN ^You aren't
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^What were you referring to\?
     send hold %Get
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN HOLD! (utility.inc) ***
     put #echo >$Log Crimson $datetime Get = %Get
     put #log $datetime MISSING MATCH IN HOLD (utility.inc)
     return

getquest:
gosub automove GL Cleric
send ask Esuin for quest
pause 2
return

coincheck:
var coin 0
action var coin $1 when \((\d+) copper Kronars\)\.$
pause 0.5
put wealth
pause 1
return

 
#### RETURNS
RETURN_CLEAR:
     pause 0.0001
     put #queue clear
     pause 0.0001
     return
RETURN:
     pause 0.0001
     return

automove:
#put #mapper reset
var movement $0
eval mcount count("%movement", "|")
var ccount 0
#if contains("Cleric|Warrior Mage|Moon Mage|Bard|Empath|Paladin", "$Guild") then put #var powerwalk 1

automove_1:
pause 1
if matchre("%movement(%ccount)", "travel") then goto travelmove
match automove_1 YOU HAVE FAILED
match automove_1 You can't go there
match automove_1 MOVE FAILED
matchre autoreturn YOU HAVE ARRIVED
else put #goto %movement(%ccount)
matchwait 90
put #mapper reset
goto automove_1

travelmove:
put %movement(%ccount)
waitfor REACHED YOUR DESTINATION
goto autoreturn

autoreturn:
if (matchre("%movement(%ccount)", "\d+") && (!matchre("$roomid", "\b%movement(%ccount)\b")) then goto automove_1
if %ccount = %mcount then return
math ccount add 1
goto automove_1