Untitled

pause $roundtime

#check for items
debug 0

#season spring, summer, fall, winter, auto
var season auto

var forceRoomAccuracy 0

# set to anything other than 0 to report error messages in logs when you blow up a sigil.  Set to 0 to keep the log clean.
var reporterrors 0

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

var maxSigils 20
counter set 0
var sigilError 0

####################################### DO NOT CHANGE BELOW THIS LINE ###############################

## Usage ##
if ("%1" = "help") then {
	put #echo blue Usage..............................................................................................................
	put #echo blue Use this command to harvest all sigils in the sigil.keep variable - up to a total sigil limit in maxSigils variable
	put #echo green .s sigilharvest
	put #echo blue Use this command to harvest number sigils of each type specified
	put #echo green .sigilharvest [sigils to keep] [number]
	put #echo blue Example............................................................................................................
	put #echo green put .sigilharvest "induction|rarefaction" 5
	put #echo green put .sigilharvest "rarefaction" 5
	put #echo blue ...................................................................................................................
	put #echo blue requires scrolls and a burin, sigil book optional
	put #echo blue parses SIGILHARVEST END when finished
}

gosub setSeason

var searchForSpecificSigils 0
if ("%1" <> "") then {
	var sigil.keep %1|any
	if ("%2" <> "") then {
		var maxSigils %2
	}
	var searchForSpecificSigils 1
}


Prep:
	counter set 0
	gosub get right burin
	gosub get left "blank scroll"
	gosub STATS.SETUP
#	gosub BuffUp
	#REMOVED: Collect more than a book allows -- #	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


	if ("%searchForSpecificSigils" = "0") then goto SearchAllRooms

############################# PARSE OUT ROOMS PER SIGIL #############

SpecificRoomSearch:
	#setup the variables for the outer while loop
	eval SpecificRoomSearch.sigilcount count("%sigil.keep","|")
	var SpecificRoomSearch.sigilPos 0

	#search rooms for each sigil specified
	SpecificRoomSearch.Loop:
		# setup initial variables for inner while loop
		var SearchRooms 0
		var SpecificRoomSearch.roomPos 0
		eval SpecificRoomSearch.Loop.sigilName %sigil.keep(%SpecificRoomSearch.sigilPos)

		# get the rooms to search for this zone - populates SearchRooms with return val - array of room IDs to search
		put #echo yellow SearchFor.%SpecificRoomSearch.Loop.sigilName
		gosub SearchFor.%SpecificRoomSearch.Loop.sigilName
		eval SpecificRoomSearch.roomCount count("%SearchRooms","|")
		put #echo count (%SpecificRoomSearch.roomCount) for rooms: %SearchRooms

		if ((%SpecificRoomSearch.roomCount < 5) && ("%SearchRooms" <> "0")) then {
			put #echo yellow *** warning: low number of recorded rooms to search for sigil (%SpecificRoomSearch.Loop.sigilName) in this zone ($zoneid).
			put #echo yellow *** This may take a while.  You may want to consider trying a different zone ***
		}

		SpecificRoomSearch.search:
			if ("%SearchRooms" = "0") then {
				put #echo red ** NO ROOMS FOR ** %SpecificRoomSearch.Loop.sigilName in zone $zoneid
				goto SpecificRoomSearch.continue
			}
			if (%SpecificRoomSearch.roomPos <= %SpecificRoomSearch.roomCount) then {
				gosub gotoLocation %SearchRooms(%SpecificRoomSearch.roomPos)
				math SpecificRoomSearch.roomPos add 1
				goto SpecificRoomSearch.search
			} else {
				var SpecificRoomSearch.roomPos 0
			}

		SpecificRoomSearch.continue:
			debug 0
			if ((%stats_%SpecificRoomSearch.Loop.sigilName_count < %maxSigils) && ("%SearchRooms" <> "0")) then {
				put #echo >Log red *********** RESTARTING SEARCH - Found %stats_%SpecificRoomSearch.Loop.sigilName_count of %maxSigils ********
				put app pou quick
				pause 1
				put per mana
				put per
				pause 1
				pause 1
			} else {
				math SpecificRoomSearch.sigilPos add 1
			}
			if (%SpecificRoomSearch.sigilPos < %SpecificRoomSearch.sigilcount) then goto SpecificRoomSearch.Loop


	goto END


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


SearchAllRooms:
	put #echo >ScriptLog searching all rooms in sigilharvest - no specific sigils defined
	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 205
		gosub gotoLocationBetween 1 7
		gosub gotoLocationBetween 64 116
		gosub gotoLocationBetween 168 175
		gosub gotoLocationBetween 146 175
		gosub gotoLocationBetween 130 145
		gosub gotoLocationBetween 535 555
		gosub gotoLocationBetween 270 278
		gosub gotoLocationBetween 482 499
		gosub gotoLocationBetween 388 393
		gosub gotoLocationBetween 645 667
		gosub gotoLocationBetween 774 780
		gosub gotoLocationBetween 774 786
		gosub gotoLocationBetween 209 215
	}

	if ($zoneid = 123) then {
		## Update to be the room IDs to search
		gosub gotoLocationBetween 1 45
		gosub gotoLocationBetween 257 263
		gosub gotoLocationBetween 158 173
		gosub gotoLocationBetween 46 64
		gosub gotoLocationBetween 83 89
		gosub gotoLocationBetween 125 145

	}

	if ($zoneid = 116) then {
		## Update to be the room IDs to search
		gosub gotoLocationBetween 1 2
		gosub gotoLocationBetween 4 216
		gosub gotoLocationBetween 218 283
	}

	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 1 140
	}

	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

	}

	if ("$zoneid" = "34a") then {
		## Update to be the room IDs to search
		gosub gotoLocationBetween 1 46
		gosub gotoLocationBetween 63 133
	}

exit
################################# ROOMS - SPECIFIC SEARCH ##############################


SearchFor.abolition:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 46
		if ($zoneid = 4) then gosub SearchFor.noRoomsForSigil rarefaction "crossing or shard"
		if ($zoneid = 67) then var SearchRooms 105|111|112|113|117|152|153|161|197|202|203|21|231|24|27|302|32|33|39|46|49|57|60|61|62|69|71|72|82|84|87|8|92|93|9
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 103|108|113|122|124|126|128|133|139|141|145|148|160|162|167|169|172|174|175|179|180|181|184|200|204|208|209|226|231|232|233|234|235|240|252|257|258|260|92|95
		if ($zoneid = 1) then var SearchRooms 1|2|3|4|5|7|19|20|25|26|29|30|31|37|40|41|42|44|45|47|50|52|54|58|59|60|61|62|65|69|78|79|80|81|82|83|84|86|87|89|90|91|92|93|98|99|100|102|103|107|108|109|110|111|117|118|119|121|126|127|128|129|131|132|134|135|136|137|138|139|142|144|146|150|153|155|156|157|159|162|164|166|168|169
		if ($zoneid = 4) then var SearchRooms 91|173
		if ($zoneid = 7) then var SearchRooms 4|6|64|66|67|75|78|79|81|92|93|95|97|100|104|105|106|112|146|337|341|344|345|346
		if ($zoneid = 13) then var SearchRooms 2|20|70
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 27|35|46|56|57|72|75
	}
return

SearchFor.antipode:
	if ("%season" = "spring") then {
		gosub SearchFor.noRoomsForSigil ascension "NO KNOWN SIGILS: ANTIPODE (Spring-before fix)"
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 100|102|104|105|106|107|109|111|115|117|118|119|123|132|134|137|138|143|147|149|150|151|152|154|155|158|159|164|166|206|210|213|220|221|224|228|250|251|93|94|96|99
		if ($zoneid = 1) then var SearchRooms 27|35|46|51|56|57|72|75|77|95|112|114|123|124|147
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 6|11|12|13|16|22|32|48|53|55|64|66|73
	}

return

SearchFor.ascension:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 10|49|9
		if ($zoneid = 4) then gosub SearchFor.noRoomsForSigil rarefaction "crossing or shard"
		if ($zoneid = 67) then var SearchRooms 122|138|156|165|174|183|210|213|220|222|229|233|235|236|241|249
	}
	if ("%season" = "summer") then {
		if ($zoneid = 7) then var SearchRooms 65|68|69|70|72|73|74|76|80|82|83|84|85|88|94|99|108|110|170|175|336|338|339|340|343
		if ($zoneid = 4) then var SearchRooms 1|89|94|405|408|413|425|430
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 9|10|49
	}
return


SearchFor.clarification:
	if ("%season" = "spring") then {
		if ($zoneid = 4) then var SearchRooms 91|93
		if ($zoneid = 67) then var SearchRooms 104|141|166|172|176|187|211|223|224|225|226|247|248
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 112|113|121|122|141|146|157|162|163|165|185|201|208|209|225|226|236|238|240|249|252|256|259|92
		if ($zoneid = 1) then var SearchRooms 8|14|15|17|21|23|24|28|30|33|34|36|38|39|40|43|63|67|68|70|71|74|76|85|97|99|104|105|106|113|115|117|125|138|140|142|148|149|151|154|158|160|161|165|166
		if ($zoneid = 7) then var SearchRooms 116|337|341|346
	}
	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 91|93
	}
return

SearchFor.congruence:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 10|18|49|9
		if ($zoneid = 4) then var SearchRooms 405|406|408|409|412|413|417|420|422|425|427|430|434|435|437|440|88|89|90|92|93|94|95
		if ($zoneid = 67) then var SearchRooms 104|122|141|151|156|165|166|167|172|174|176|183|187|210|211|220|221|223|224|225|226|232|233|235|236|247|248|304|34
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 102|106|109|111|119|132|137|147|150|151|152|158|178|206|210|213|220|221|224|250|251|93|94|99
		if ($zoneid = 1) then var SearchRooms 27|35|46|56|57|72|75|95|112|114|123|124|147
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 9|10|18|49
		if ($zoneid = 4) then var SearchRooms 88|89|90|92|93|94|95|405|406|408|409|412|413|417|420|422|425|427|430|434|435|437|440

	}
return

SearchFor.decay:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then gosub SearchFor.noRoomsForSigil decay "shard"
		if ($zoneid = 4) then gosub SearchFor.noRoomsForSigil decay "shard"
		if ($zoneid = 67) then var SearchRooms 105|111|112|113|117|13|152|153|161|169|192|193|195|197|19|1|200|202|203|206|207|21|231|24|27|302|31|32|33|36|37|39|41|46|49|56|57|60|61|62|66|67|69|6|71|72|73|74|82|83|84|86|87|8|92|93|9
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 110|114|116|120|125|127|129|130|135|136|140|142|144|153|156|178|182|202|207|211|214|215|218|222|223|227|229|230|239|253|254|255|97|98
		if ($zoneid = 1) then var SearchRooms 6|11|12|13|16|22|32|48|53|55|64|66|73|88|94|96|101|116|120|130|133|143|152|163|167
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 27|35|46|51|56|57|72|75|77
	}
return

SearchFor.evolution:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 10|18|49|9
		if ($zoneid = 4) then var SearchRooms 406|409|412|417|420|422|427|434|435|437|440|88|90|92|95
		if ($zoneid = 67) then var SearchRooms 180|181|184
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then gosub SearchFor.noRoomsForSigil evolution "NO KNOWN SIGILS: EVOLUTION (SUMMER)"
		if ($zoneid = 7) then var SearchRooms 77
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|421|423|424|426|428|429|431|432|433|436|438|439|441
	}

	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 88|90|92|95|406|409|412|417|420|422|427|434|435|437|440
	}
return

SearchFor.induction:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 91
		if ($zoneid = 4) then var SearchRooms 19|1|20|25|26|29|2|30|31|37|3|40|41|42|44|45|47|4|50|5|7|80|81|82|83|84|86|87
		if ($zoneid = 67) then var SearchRooms 100|103|106|107|108|109|110|116|118|121|125|128|137|138|154|155|157|158|159|170|171|173|175|185|186|188|18|194|196|199|205|209|20|213|216|217|218|219|222|227|228|229|240|241|242|243|245|246|249|250|251|25|26|28|305|306|30
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 168|173
		if ($zoneid = 7) then var SearchRooms 77|96|102|109|114|168|173|342
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 1|2|3|4|5|7|19|20|25|26|29|30|31|37|40|41|42|44|45|47|50|52|54|58|59|60|61|62|65|69|78
		if ($zoneid = 4) then var SearchRooms 91

	}
return

SearchFor.integration:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then gosub SearchFor.noRoomsForSigil integration "shard"
		if ($zoneid = 4) then var SearchRooms 18|19|29|3|45|47|50
		if ($zoneid = 67) then var SearchRooms 100|103|109|137|151|155|171|175|185|188|205|209|216|217|218|219|242|243|245|246|251|304|34|95|97|98
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 103|108|124|126|128|133|139|160|171|180|181|184|200|203|232|233|234|257|258|262|95
		if ($zoneid = 1) then var SearchRooms 1|2|4|5|7|20|25|26|31|37|41|42|44|52|54|58|59|60|61|69|78|79|80|81|82|83|84|86|87|92|98|100|103|108|109|110|111|118|119|126|128|131|132|134|139|146|153|155|156|157|162
		if ($zoneid = 7) then var SearchRooms 81|172
		if ($zoneid = 13) then var SearchRooms 70
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 3|18|19|29|45|47|50|62|65
	}

return


SearchFor.metamorphosis:
	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 1|20|25|26|2|31|37|41|42|44|4|5|7|80|81|82|83|84|86|87
		if ($zoneid = 4) then gosub SearchFor.noRoomsForSigil metamorphosis "crossing or shard"
		if ($zoneid = 67) then var SearchRooms 106|107|108|110|116|121|125|128|154|157|158|159|170|173|178|182|186|194|196|199|208|20|212|214|215|240|250|30|45|48|51|52|58|59|80|88|89|91
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 131|145|148|161|167|174|175|179|197|204|212|231|235
		if ($zoneid = 1) then var SearchRooms 3|18|19|29|45|47|50|62|65|89|90|91|93|102|107|121|127|129|135|136|137|141|144|145|150|159|164|168|169
		if ($zoneid = 7) then var SearchRooms 4|95|97|100|112
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 1|2|4|5|7|20|25|26|31|37|41|42|44|52|54|58|59|60|61|69
	}

return

SearchFor.nurture:

	if ("%season" = "spring") then {
		if ($zoneid = 1) then gosub SearchFor.noRoomsForSigil nurture "west gate"
		if ($zoneid = 4) then var SearchRooms 405|408|413|425|430|89|94
		if ($zoneid = 67) then var SearchRooms 167|221|232|239|34
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 119|169|172|199|205
		if ($zoneid = 1) then var SearchRooms 9|10|49|122
		if ($zoneid = 7) then var SearchRooms 6|64|66|67|75|78|79|92|93|104|105|106
	}
	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 89|94|405|408|413|425|430
	}

return

SearchFor.paradox:

	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms 11|12|13|14|15|16|17|21|22|23|24|33|32|34|36|38
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
		if ($zoneid = 67) then var SearchRooms 101|102|10|114|115|118|119|11|120|123|124|126|127|12|14|15|164|168|16|177|17|189|18|190|191|198|201|204|227|228|22|234|237|238|23|25|26|28|29|2|303|305|35|38|3|40|42|43|44|47|4|50|53|54|55|5|63
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 176|177|183|198|237|263
		if ($zoneid = 7) then var SearchRooms 2|3|5|7|71|86|87|89|90|91|98|101|103|107|111|113|115|146|171|174
		if ($zoneid = 4) then var SearchRooms 91|93
	}
	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 8|14|15|17|21|23|24|28|30|33|34|36|38|39|40|43|63|67|68|70|71|74|76
	}

return

SearchFor.permutation:

	if ("%season" = "spring") then {
		if ($zoneid = 1) then var SearchRooms  11|12|13|14|15|16|17|21|22|23|24|28|32|33|34|36|38|39|43|48|6|85|88|8
		if ($zoneid = 4) then gosub SearchFor.noRoomsForSigil permutation "crossing"
		if ($zoneid = 67) then var SearchRooms 101|102|10|114|115|119|11|120|123|124|126|127|12|13|14|15|164|168|169|16|177|178|17|182|189|190|191|192|193|195|198|19|1|200|201|204|206|207|208|212|214|215|22|234|237|238|23|29|2|303|31|35|36|37|38|40|41|43|44|4
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 101|131|161|176|177|183|198|199|205|212|237|263
		if ($zoneid = 1) then var SearchRooms 9|10|18|49|122|141|145
		if ($zoneid = 7) then var SearchRooms 2|3|5|7|65|68|69|70|71|72|73|74|76|80|82|83|84|85|86|87|88|89|90|91|94|98|99|101|103|107|108|110|111|113|115|170|171|174|175|336|338|339|340|343
		if ($zoneid = 13) then var SearchRooms 138|140|147
		if ($zoneid = 4) then var SearchRooms 1|88|89|90|92|93|94|95|405|406|408|409|412|413|417|420|422|425|427|430|434|435|437|440
	}
	if ("%season" = "fall") then {
		if ($zoneid = 1) then var SearchRooms 6|8|11|12|13|14|15|16|17|21|22|23|24|28|32|33|34|36|38|39|43|48|51|53|55|63|64|66|67|68|70|71|73|74|76|77
	}
return


SearchFor.rarefaction:

	if ("%season" = "spring") then {
		if ($zoneid = 1) then gosub SearchFor.noRoomsForSigil rarefaction "west gate"
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
		if ($zoneid = 67) then var SearchRooms 180|181|184|239
	}
	if ("%season" = "summer") then {
		if ($zoneid = 1) then var SearchRooms 6|8|11|12|13|14|15|16|17|21|22|23|24|28|32|33|34|36|38|39|43|48|51|53|55|63|64|66|67|68|70|71|73|74|76|77|85|88|94|96|97|101|104|105|106|113|115|116|120|125|130|133|140|143|148|149|151|152|154|158|160|161|163|165|167
		if ($zoneid = 7) then var SearchRooms 116|172
		if ($zoneid = 116) then var SearchRooms 100|104|105|107|110|112|114|115|116|117|118|120|121|123|125|127|129|130|134|135|136|138|140|142|143|144|146|149|153|154|155|156|157|159|163|164|165|166|171|182|185|201|202|203|207|211|214|215|218|219|222|223|225|227|228|229|230|236|238|239|241|249|253|254|255|256|259|262|96|97|98
	}
	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
	}
return

SearchFor.unity:

	if ("%season" = "spring") then {
		if ($zoneid = 1) then gosub SearchFor.noRoomsForSigil unity "west gate"
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
		if ($zoneid = 67) then gosub SearchFor.noRoomsForSigil unity "west gate"
		if ($zoneid = 69) then var SearchRooms 130|131|134|364|364|364|364|392|392|3|3
	}
	if ("%season" = "summer") then {
		if ($zoneid = 116) then var SearchRooms 101|168|173
		if ($zoneid = 7) then var SearchRooms 96|102|109|114|168|173|342|344|345
		if ($zoneid = 13) then var SearchRooms 138|140|147
		if ($zoneid = 4) then var SearchRooms 88|90|92|95|406|409|412|417|420|422|427|434|435|437|440
	}
	if ("%season" = "fall") then {
		if ($zoneid = 4) then var SearchRooms 407|410|411|414|415|416|418|419|421|423|424|426|428|429|431|432|433|436|438|439|441
	}

return


SearchFor.noRoomsForSigil:
	put #echo red *** No rooms for $1 sigil. Try the $2
return


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|You are alrea|Your
		put get my %get.item
	matchwait 5
	put #echo >Log ERROR: Missing Resource in sigil harvest ($2) - left :$lefthand  Right:$righthand
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
	MATH STATS.ROOMS ADD 1
	gotoLocationSet:
		match gotoLocationVerify YOU HAVE ARRIVED
		put #goto %room
	matchwait 15
	gotoLocationVerify:
		if (%forceRoomAccuracy = 1 and $roomid <> %room) then goto gotoLocationSet

	var distort 0
	gosub Sigil.Search

goto RETURN

Sigil.SearchFailSafe:
	math sigilError add 1
	if (%sigilError > 5) then {
		put #echo >log red *** ERROR 5 errors in search - unexpected responses
		goto exit
	}
Sigil.Search:
	pause 0.5
	if ("$righthandnoun" <> "burin") then put get burin
	matchre Sigil.Search \.\.\.wait
	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.ERROR Something about the magic in the area stops you from
	matchre Sigil.ERROR The inky blankness
	matchre Sigil.Search Roundtime
		put per sigil
	matchwait 15
	#ECHO blue >UNEXPECTED RESPONSE
goto Sigil.SearchFailSafe

Sigil.MOVEPAUSE:
	pause 60
goto Sigil.Search

Sigil.Found:
	var doNotKeepLooking 0
	var foundSigil $1
	Sigil.Found.Interim:
		if ( (%stats_%foundSigil_count >= %maxSigils) && (%searchForSpecificSigils = 1) ) then {
			put #echo >ScriptLog skipping %foundSigil because already found %stats_%foundSigil.item_count of %maxSigils
		} else {
			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 (%doNotKeepLooking = 1) then return
goto Sigil.Search

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

Sigil.Improve:
	MATH STATS.IMPROVEATTEMPTS ADD 1
	put .s improvesigil %foundSigil
	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 >tLog *** ERROR IN SCRIBE: Failed to scribe - valid response ***
goto END

	Sigil.Scribe.Finished:
		var Sigil.Scribe.Finished.caught $1
		if ("%Sigil.Scribe.Finished.caught" = "") then {
			var Sigil.Scribe.Finished.caught ERROR
		} else {
			COUNTER add 1
		}

		if ("%reporterrors" <> "0" or "%Sigil.Scribe.Finished.caught" <> "ERROR") then {
			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
		put put sigil in my sigil book
		waitforre You|What|Put
		put stow scroll
		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|abolition|antipode|ascension|clarification|congruence|decay|evolution|induction|nurture|paradox|permutation|rarefaction|unity|
	eval STATS.count count("%allSigils","|")
	gosub STATS.ZERO
	var STATS.ROOMS 0
	var STATS.IMPROVEATTEMPTS 0
	var STATS.TIME.START $gametime
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
	put #echo >Log *** Rooms: %STATS.ROOMS
	put #echo >Log *** Improve Attempts: %STATS.IMPROVEATTEMPTS

	var STATS.REPORT.ENDTIME $gametime
	math STATS.REPORT.ENDTIME SUBTRACT %STATS.TIME.START
	math STATS.REPORT.ENDTIME DIVIDE 60
	put #echo >Log *** TOTAL Time (m): %STATS.REPORT.ENDTIME
	put #echo >Log ****************************************
return

RETURN:
	return


### Season Check ###

setSeason:
	pause .05
	if ("%season" <> "auto") then return
	put #echo green *** setting season.  If this hangs, manually set the season variable or update the match table ***

	matchre setSeason.Internal It is currently (\w+) and
		put time
	matchwait

	setSeason.Internal:
		var season $1
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