Mine

WorkScholarship:
	gosub stowAll compend
	gosub get compend
	put study compend
	pause 20
	put turn compend
	goto ScholarshipCheck

WorkMech:
	gosub stowAll stone
	gosub get stone
	put remove 8 stone
	pause 5
	put combine stone with other stone
	pause 5
	goto MechCheck


WorkAppraise:
	gosub stowAll spoons
	gosub get spoons
	put ass spoons
	pause 5
	goto AppraiseCheck


WorkPerception:
	gosub stowAll beanbags
	gosub get beanbags
	put juggle beanbags
	pause 12
	goto PerceptionCheck

ScholarshipCheck:
	gosub isLocked scholar MechCheck WorkScholarship

MechCheck:
	gosub isLocked mech AppraiseCheck WorkMech

AppraiseCheck:
	gosub isLocked apprais PerceptionCheck WorkAppraise
	
PerceptionCheck:
	gosub isLocked perc Sleep WorkPerception

Sleep:
	put sleep
	pause 15
	put awake
	goto ScholarshipCheck

##
## Global Functions
##
isLocked:
	setvariable lockedLabel $2
	setvariable notLockedLabel $3
	match %lockedLabel mind lock
	match %lockedLabel Overall state of mind: murky
	match %notLockedLabel EXP HELP
	put exp $1
	matchwait

stowAll:
	
	if !($1 contains compend) then gosub stow compend
	if !($1 contains stone) then gosub stow stone
	if !($1 contains beanbags) then gosub stow beanbags
	if !($1 contains spoon) then gosub stow spoon
	return

stow:
	gosub inHand $1
	if %inHand then put stow $1
	return

get:
	gosub inHand $1
	if !%inHand then put get $1
	return

inHand:
	setvariable inHand false
	if %lefthand contains $1 then setvariable inHand true
	if %righthand contains $1 then setvariable inHand true
	return