pause $roundtime

#check for items
debug 0

## Usage ##
if ("%1" = "help") then {
	put #echo blue .sigilharvest [sigils to keep] [number(default 20)]
	put #echo blue Example:
	put #echo green put .sigilharvest "induction|rarefaction" 5
	put #echo blue requires scrolls and a burin, sigil book optional
	put #echo blue parses SIGILHARVEST END when finished
}

var forceRoomAccuracy 0

## Remove sigils you don't want
#var sigil.keep (metamorphosis|integration|metamorphis|abolition|antipode|ascension|clarification|congruence|decay|evolution|induction|nurture|paradox|permutation|rarefaction|unity)
var sigil.keep (antipode)

var maxSigils 20
counter set 0


if ("%1" <> "") then var sigil.keep (%1)
if ("%1" <> "") then var sigil.keep (%1)


Prep:
	counter set 0
	gosub get right burin
	gosub get left "blank scroll"
	gosub STATS.SETUP
	gosub BuffUp
#	action goto END when sigil book looks completely full
	action send stow left when sigil book looks completely full
	action send stow left when You need a free hand to pick that up
	action var duplicateSigil 1 when Remnants of the sigil pattern linger, allowing for additional scribing

################################# ROOMS ##############################

if ($zoneid = 1) then {
	## Update to be the room IDs to search
	if ("$guild" = "Trader") then {
		gosub gotoLocationBetween 80 120
	}
#	gosub gotoLocationBetween 10 25
	gosub gotoLocationBetween 1 250
}
if ($zoneid = 7) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 312 385
#	gosub gotoLocationBetween 60 124
}

if ($zoneid = 6) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 93 97
	gosub gotoLocationBetween 108 113
	gosub gotoLocationBetween 99 105
}
if ($zoneid = 4) then {
	## Update to be the room IDs to search
	if ("$guild" = "Trader") then {
		gosub gotoLocationBetween 407 415
	} else {
		gosub gotoLocationBetween 405 441
		gosub gotoLocationBetween 88 95
	}
}
if ($zoneid = 67) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 241 600
	gosub gotoLocationBetween 1 40
	gosub gotoLocationBetween 193 208
	gosub gotoLocationBetween 60 124
	gosub gotoLocationBetween 313 357
}
if ($zoneid = 69) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 385 395
	gosub gotoLocationBetween 2 58
	gosub gotoLocationBetween 226 234
	gosub gotoLocationBetween 243 257
	gosub gotoLocationBetween 171 209
}

if ($zoneid = 66) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 37 151
	gosub gotoLocationBetween 236 254
	gosub gotoLocationBetween 637 641
	gosub gotoLocationBetween 256 279

}


if ($zoneid = 126) then {
	## Update to be the room IDs to search
	gosub gotoLocationBetween 5 19
	put stow
	gosub gotoLocationBetween 82 102

}



EXIT:
END:

	gosub stats.report
	put #parse SIGILHARVEST END
exit

get:
	var get.hand $1
	var get.item $2
	pause .05
	if $%get.handhandnoun <> "" then {
		put stow $1
		waitforre You|What
	}
	matchre RETURN You get|You pick
		put get my %get.item
	matchwait 5
	put #echo >ScriptLog ERROR: Missing Resource in sigil harvest ($2) r:$righthand l:$lefthand
goto END



gotoLocationBetween:
	Math location_start set $1
	Math location_end set $2
	location_loop:
		gosub gotoLocation %location_start
		math location_start ADD 1

		if (%location_start > %location_end) then return
	goto location_loop
return

gotoLocation:
	var room $1
	gotoLocationSet:
		match gotoLocationVerify YOU HAVE ARRIVED
		put #goto $1
	matchwait 15

		gotoLocationVerify:
			if (%forceRoomAccuracy = 1 and $roomid <> %room) then goto gotoLocationSet

	gosub Sigil.Search

goto RETURN

Sigil.Search:
	if ("$righthandnoun" <> "burin") then put get burin
	matchre Sigil.MOVEPAUSE You try, but in the cramped confines
	matchre Sigil.ERROR You wisely decide against that
	matchre Sigil.EMPTY this area contains no traces of sigils
	matchre Sigil.Final.Found You recall having already identified the (\w+)
	matchre Sigil.Found After much scrutiny you are certain an* (\w+)
	matchre Sigil.Found you make out the details of an* (\w+)
	matchre Sigil.Found s eye you see the definition of an* (\w+)
	matchre Sigil.Found lighting you focus intently on an* lurking (\w+)
	matchre Sigil.Found surroundings reveal themselves as the origins of an* (\w+) sigil
	matchre Sigil.Found you find the designs of an* almost imperceptible (\w+) sigil
	matchre Sigil.Found reveal themselves as the origins of an* (\w+) sigil
	matchre Sigil.Search Roundtime
		put per sigil
	matchwait 15
	#ECHO blue >UNEXPECTED RESPONSE
	exit

Sigil.MOVEPAUSE:
	pause 60
goto Sigil.Search

Sigil.Found:
	var doNotReturn 0
	var foundSigil $1
	Sigil.Found.Interim:
		if (!matchre("%foundSigil","%allSigils")) then {
			put #echo >ScriptLog found a new sigil $1
			goto Sigil.Improve
		}
		if matchre("%foundSigil","%sigil.keep") then {
			put #echo Scribing %foundSigil
			goto Sigil.Improve
		} else {
			put #echo blue SKIPPING %foundSigil
			put #echo >sigillog $zoneid-$roomid-%foundSigil
		}
	if (%doNotReturn = 1) then goto RETURN
goto Sigil.Search

Sigil.Final.Found:
	var doNotReturn 1
	var foundSigil $1
goto Sigil.Found.Interim

Sigil.Improve:
	put .s improvesigil
	waitfor IMPROVE SIGIL FINISHED

goto Sigil.Scribe

Sigil.Scribe:
	var duplicateSigil 0
	pause .05
	gosub get left "blank scroll"
	if ("$righthandnoun" <> "burin") then gosub get right burin
	matchre Sigil.Scribe.Finished You carefully scribe the sigil of (\w+) onto
	matchre Sigil.Scribe.Finished You should probably seek knowledge of a sigil before trying to scribe one
		put scribe sigil
	matchwait 15
	put #echo >ScriptLog *** ERROR IN SCRIBE: Failed to mine ***
	goto END

	Sigil.Scribe.Finished:
		var Sigil.Scribe.Finished.caught $1
		if ("%Sigil.Scribe.Finished.caught" = "") then {
			var Sigil.Scribe.Finished.caught ERROR
		}
		put #echo >Sigillog Found $zoneid - $roomid - %Sigil.Scribe.Finished.caught
		math stats_%Sigil.Scribe.Finished.caught_count add 1
		#put #echo >Scriptlog After: %stats_%Sigil.Scribe.Finished.caught_count
		COUNTER add 1
		put put sigil in my sigil book
		waitforre You|What|Put
		put stow scrolls
		waitforre You|Stow
	pause 1
	if %c >= %maxSigils then goto END

	if %duplicateSigil = 1 then {
#		put #echo >Sigillog $zoneid - $roomid - duplicate found
		goto Sigil.Scribe
	}

return

Sigil.EMPTY:
	pause .05
	#put #echo >ScriptLog $roomid was searched too recently
return

Sigil.ERROR:
	put #echo >ScriptLog $roomid invalid sigil room
return

STATS.SETUP:
	pause .05
	var allSigils metamorphosis|integration|metamorphis|abolition|antipode|ascension|clarification|congruence|decay|evolution|induction|nurture|paradox|permutation|rarefaction|unity|
	eval STATS.count count("%allSigils","|")
	gosub STATS.ZERO
return

STATS.ZERO:
	pause .05
	var i 0
	STATS.ZERO.NEXT:
		var STATS.ZERO.NEXT.item %allSigils(%i)
		eval stats_%STATS.ZERO.NEXT.item_count 0
		math i add 1
		if %i < %STATS.count then goto STATS.ZERO.NEXT
return

BuffUp:
	if "$guild" = "Trader" then {
		put prep meg 25
		put prep meg 25
		pause 20
		put charge prism 20
		pause 5
		put charge prism 20
		pause 5
		put invoke prism 40 spell
		pause 4
		put cast
		pause 1
	}
	if "$guild" = "Ranger" then {
		put prep WS 49
		pause 20
		put per
		pause 5
		put hunt
		pause 10
		put cast
		pause 1
	}
return

STATS.REPORT:
	pause .05
	var i 0
	put #echo >Log *** TOTAL SIGILS FOUND ***
	STATS.REPORT.NEXT:
		var STATS.REPORT.NEXT.item %allSigils(%i)
		eval STATS.REPORT.item stats_%STATS.REPORT.NEXT.item_count
		if (%%STATS.REPORT.item > 0) then {
			put #echo >Log %%STATS.REPORT.item  %STATS.REPORT.NEXT.item
		}
		math i add 1
		if %i < %STATS.count then goto STATS.REPORT.NEXT
return

RETURN:
	return


#get sigil-scro
#put sigil-scro in book You rearrange the book and
# DON"T NEED - Match on roundtime check sigils#	matchre Sigil.Search ^You clear your mind and begin|Back and forth you walk through|The sky holds your interest|Left and right you crane your|You scour the area looking for hints|You close your eyes|Whorls of dust