NecroJoin

var escort no

start:
if "%escort" = "yes" then goto start2
if "%escort" = "no" then goto start3
else goto guildend

start3:
pause 1
match wait_job You don't need to wait
match grape_move prepare some bunches of grapes by pulling them off
match plant_move tend to some vegetables
match wood_move you need to chop some
match herb_move gather some herbs from the forest
match water_move draw some water from the pond
match rug_move get the dirt out of a rug from one
match apple_move and just pick some apples from the trees
match sweep_move need to clean the cobblestone
match clean_move wash some soiled clothing outside
match Bean_move open a number of bean pods

match clean_steps clean off the steps leading into
match repair_tiles cracked stone tiles in the
match clean_equipment need to clean some of the
match clean_window wash some dusty windows
match grave_move pull weeds and clean out the private
match paint_move paint the siding of our new winepress
match library_move transcribe a few texts in the library
match wall_move repair the wall separating the cow pasture

put ask adano about job
matchwait

checkbook:
	match checkbook ...wait
	match guildend Zamidren Book
	match return the way out
	put look
	matchwait

return:
	return

clean_steps:
	var escort yes
	pause 1
	put go gate
	pause 0.5
	put peer key
	pause 0.5
	gosub checkbook
	counter set 0
	goto steps_check

steps_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

steps:
	pause 1
	put clean step
	pause 0.5
	pause 0.5
	counter add 1
	goto steps_check

clean_equipment:
	var escort yes
	pause 1
	put go gate
	pause 0.5
	put open cabinet
	pause 0.5
	gosub checkbook
	goto infirmary_check

infirmary_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

infirmary:
	pause 1
	put clean step
	pause 0.5
	pause 0.5
	counter add 1
	goto infirmary_check

repair_tiles:
	var escort yes
	pause 1
	put go gate
	pause 0.5
	put pull curtain
	pause 0.5
	gosub checkbook
	goto tile_check

tile_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

tile:
	pause 1
	put clean equipment
	pause 0.5
	pause 0.5
	counter add 1
	goto tile_check


clean_window:
	var escort yes
	pause 1
	put go gate
	pause 0.5
	put peer window
	pause 0.5
	gosub checkbook
	goto windows_check

windows_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

windows:
	pause 1
	put clean window
	pause 0.5
	pause 0.5
	counter add 1
	goto window_check

wall_move:
	var escort yes
	pause 1
	put go gate
	pause .5
	put peer dirt
	gosub checkbook
	goto wall_check


wall_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

wall_do:
	pause 1
	put repair wall
	pause 0.5
	pause 0.5
	counter add 1
	goto wall_check

library_move:
	var escort yes
	put go gate
	pause 0.5
	put l tome
	put read tome
	gosub checkbook
	goto library_check


library_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

library_do:
	pause 1
	put scribe tome
	pause 0.5
	pause 0.5
	counter add 1
	goto library_check

bean_move:
	pause 1
	put go gate
	pause .5
	move w
	pause .5
	put open gate
	pause .5
	goto bean_do

bean_do:
	pause 1
	match bean_adano You think that you should go back to talk to Abbot Adano for your
	match bean_do Roundtime
	put open bean
	matchwait

bean_adano:
	pause 1
	put open gate
	pause .5
	move e
	pause .5
	put go gate
	pause .5
	put ask adano about job
	goto wait_job

paint_move:
	var escort yes
	pause 1
	put go gate
	pause .5
	put peer crack
	pause 0.5
	gosub checkbook
	goto paint_check


paint_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

paint_do:
	pause 1
	put get paint
	pause 0.5
	pause 0.5
	counter add 1
	goto paint_check
	match reset Abbot Adano
	put go out
	matchwait


grave_move:
	var escort yes
	pause 1
	put go gate
	pause 0.5
	put look headstone
	pause .5
	put peer headstone
	pause .5
	gosub checkbook
	goto grave_check

grave_check:
	if %c = 4 then
	{
	ask adano about job
	goto wait_job
	}

grave_do:
	pause 1
	put pull weed
	pause 0.5
	pause 0.5
	counter add 1
	goto grave_check

clean_move:
	pause 1
	put go gate
	pause .5
	move w
	pause .5
	goto clean_do

clean_do:
	pause 1
	match clean_adano You think that you should go back to talk to Abbot Adano for your
	match clean_do Roundtime
	put wash clothe
	matchwait

clean_adano:
	pause 1
	move e
	pause .5
	put open gate
	pause .5
	put ask adano about job
	goto wait_job

sweep_move:
	pause 1
	put go gate
	goto sweep_do

sweep_do:
	pause 1
	match sweep_adano You think that you should go back to talk to Abbot Adano for your
	match sweep_do Roundtime
	put clean path
	matchwait

sweep_adano:
	pause 1
	put open gate
	pause .5
	put ask adano about job
	goto wait_job


apple_move:
	pause 1
	put s
	pause .5
	put e
	pause 5
	goto apple_do

apple_do:
	pause 1
	match apple_adano You think that you should go back to talk to Abbot Adano for your
	match apple_do Roundtime
	put get apple
	matchwait

apple_adano:
	pause 1
	put w
	pause .5
	put n
	pause .5
	put ask adano about job
	goto wait_job

rug_move:
	pause 1
	put go gate
	pause .5
	put e
	pause .5
	put e
	pause .5
	goto rug_do

rug_do:
	pause 1
	match rug_adano You think that you should go back to talk to Abbot Adano for your
	match rug_do Roundtime
	put clean rug
	matchwait

rug_adano:
	pause 1
	move w
	pause .5
	move w
	pause .5
	put open gate
	put ask adano about job
	goto wait_job



water_move:
	put s
	pause .5
	put e
	pause .5
	put sw
	pause .5
	goto water_do

water_do:
	pause 1
	match water_adano You think that you should go back to talk to Abbot Adano for your
	match water_do Roundtime
	put get water
	matchwait

water_adano:
	pause 1
	put ne
	pause .5
	put w
	pause .5
	put n
	pause .5
	put ask adano about job
	goto wait_job


herb_move:
	put s
	pause .5
	put sw
	pause 5
	goto herb_do

herb_do:
	pause 1
	match herb_adano You think that you should go back to talk to Abbot Adano for your
	match herb_do Roundtime
	put get herb
	matchwait

herb_adano:
	put ne
	pause .5
	put n
	pause .5
	put ask adano about job
	goto wait_job

wood_move:
	put south
	pause .5
	goto wood_do

wood_do:
	pause 1
	match wood_adano You think that you should go back to talk to Abbot Adano for your
	match wood_do Roundtime
	put cut fire
	matchwait

wood_adano:
	pause 1
	put n
	put ask adano about job
	goto wait_job

plant_move:
	put go gate
	pause .5
	put w
	pause .5
	put open gate
	goto plant_do

plant_do:
	pause 1
	match plant_adano You think that you should go back to talk to Abbot Adano for your
	match plant_do Roundtime
	put turn plant
	matchwait

plant_adano:
	pause 1
	put open gate
	pause .5
	put east
	pause .5
	put open gate
	put ask adano about job
	goto wait_job


grape_move:
	pause 1
	put go gate
	goto grape_do

grape_do:
	pause 1
	match grape_adano You think that you should go back to talk to Abbot Adano for your
	match grape_do Roundtime
	put pull grapes
	matchwait

grape_adano:
	pause 1
	put open gate
	put ask adano about job
	goto wait_job

wait_job:
	pause 1
	move s
	move sw
	put exp
	put ask ty about lecture
	pause 305
	put exp
	pause 305
	move ne
	move n
	goto start



reset:
	pause 1
	move s
	move e
	move sw
	move s
	move go path
	pause 2

look:
	match east You also see a vast crater
	match cont Obvious paths:
	put look
	matchwait

east:
	move e

cont:
	pause 0.5
	put #goto 3
	waitfor mark the start of a small gully
	pause 0.5
	put ask monk about job
	pause 0.5
	put ask monk about job
	pause 0.5
	move n
	move ne
	move w
	move n
	goto start



start2:
pause 1
match wait_job You don't need to wait
match reset prepare some bunches of grapes by pulling them off
match reset tend to some vegetables
match reset you need to chop some
match reset gather some herbs from the forest
match reset draw some water from the pond
match reset get the dirt out of a rug from one
match reset and just pick some apples from the trees
match reset need to clean the cobblestone
match reset wash some soiled clothing outside
match reset open a number of bean pods

match repair_tiles cracked stone tiles in the
match clean_equipment need to clean some of the
match clean_window wash some dusty windows
match grave_move pull weeds and clean out the private
match paint_move paint the siding of our new winepress
match library_move transcribe a few texts in the library
match wall_move repair the wall separating the cow pasture

put ask adano about job
matchwait


guildend:

echo ****************************************************************
echo **** Here you are, your in.
echo ****************************************************************
	exit