## If including from another script
## please set %tomecon and %tomeonce
var tome1 tome
var tomecalled no
var tomeonce no
var tomecon haversack

##### tomeendium!
tome.start:
	var tomenum 1
	put get my tome
	put open my tome
	pause
goto tome.start

tome.start:
	put turn my tome to Elothean
	goto tome.study

tome.study:
	matchre tome.study ^\.\.\.wait|^Sorry, you may only type|gradually absorbing more of the knowledge|gradually absorbing the knowledge
	matchre tome.check1 sudden moment of clarity|difficult time comprehending|but believe that you have discerned all you can from it
	matchre tome.turn2 impossible
	matchre tome.end Why do you need to study this chart again?
	put study my tome
	matchwait

tome.check1:
	put exp scholar
	waitfor EXP HELP
	if $Scholarship.LearningRate > 32 then goto tome.check2
	else goto tome.turn

tome.check2:
	put exp first aid
	waitfor EXP HELP
	if $First_Aid.LearningRate > 32 then goto tome.end
	else goto tome.turn

tome.turn:
	matchre tome.turn ^\.\.\.wait|^Sorry, you may only type
	matchre tome.turn2 Lach
	match tome.study You turn to
	put turn my tome
	matchwait

tome.turn2:
	matchre tome.turn ^\.\.\.wait|^Sorry, you may only type
	match tome.study You turn to
	put turn my tome to frog
	matchwait

tome.end:
	pause
	put close my tome
	put put my tome in my %tomecon
	if "%tomecalled" = "no" then
	{
		put glance
		exit
	}
	else return