#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#
#										#
#	THIS SCRIPT TEACHES THE FOLLOWING	#
#		- ALL ARMORS					#
#		- UTILITY						#
#		- ATTUNEMENT					#
#		- APPRAISAL						#
#		- OUTDOORSMANSHIP				#
#		- ARCANA						#
#		- SHIELD						#
#		- PARRY							#
#		- PRIMARY MAGIC					#
#		- EMPATHY						#
#		- PERCEPTION					#
#		- and more...					#
#										#
#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#

#~~~~~~~~~~~~~~~~~~~~~~~~~~#
#  ARMOR VARIABLE ACTIONS  #
#~~~~~~~~~~~~~~~~~~~~~~~~~~#
action var armor.type.exp $Brigandine.LearningRate when metal scale gloves
action var next.armor change.gloves.plate when metal scale gloves
action var armor.type.exp $Chain_Armor.LearningRate when metal chain gloves
action var next.armor change.gloves.brigandine when metal chain gloves
action var armor.type.exp $Plate_Armor.LearningRate when some plate gauntlets
action var next.armor change.gloves.brigandine when some plate gauntlets
#~~~~~~~~~~~~~~~~~~~#
#  BASIC VARIABLES  #
#~~~~~~~~~~~~~~~~~~~#
setvariable critter wolf
setvariable appraisal.critter worm
setvariable forage off
setvariable forage.item rock
setvariable evasion.num 81
setvariable stealth on
setvariable retreat.stealth off
setvariable defense.switch 15
setvariable manipulate.amount 3
setvariable kills 0
setvariable gems 0
setvariable boxes 0
setvariable armor.type.exp $Brigandine.LearningRate
setvariable next.armor change.gloves.plate
#~~~~~~~~~~~~~~~~~~~~~#
#  MAGIC INFORMATION  #
#~~~~~~~~~~~~~~~~~~~~~#
setvariable manipulation on
setvariable multi.manipulate on
setvariable spell.1 vh
setvariable spell.2 heal
setvariable spell.3 IC
setvariable spell.4 refresh
setvariable spell.1.amount 16
setvariable spell.2.amount 16
setvariable spell.3.amount 8
setvariable spell.4.amount 16
setvariable held.cambrinth orb
setvariable worn.cambrinth arm
setvariable held.cambrinth.amount 4
setvariable worn.cambrinth.amount 3
setvariable held.cambrinth.use 20
setvariable worn.cambrinth.use 8
setvariable spell.part.1
setvariable spell.part.2

##  Actual charges are 1 more than rotation  ##
setvariable held.cambrinth.rotation 4
setvariable worn.cambrinth.rotation 1
#~~~~~~~~~~~~~~~#
#  HOW TO LOOT  #
#~~~~~~~~~~~~~~~#
setvariable skin on
setvariable just.skin off
setvariable coins.gems on
#~~~~~~~~~~~~~~~~~~~~~~~#
#  ENCUMBRANCE ACTIONS  #
#~~~~~~~~~~~~~~~~~~~~~~~#
action goto leave.time when Encumbrance : Burdened
action goto leave.time when Encumbrance : Heavy Burden
#~~~~~~~~~~~~~~~~~~~~~~~#
#  DEATH CALLS ACTIONS  #
#~~~~~~~~~~~~~~~~~~~~~~~#
action goto skinning when uncoils rapidly before expiring.
action goto skinning when letting out a final groan before ceasing all movement.
action goto skinning when shuddering in pain before taking her last breath.
action goto skinning when despair before finally taking her last breath.
action goto skinning when last time and lies still.
action goto skinning when falls to the ground and lies still.
action goto skinning when it ceases all movement.
action goto skinning when the deer softly exhales its final breath.
action goto skinning when stops all movement.
action goto skinning when Begrudgingly admitting defeat,
action goto skinning when before passing into oblivion.
action goto skinning when of life flee this mortal coil.
action goto skinning when and lies still.
action goto skinning when seems to deflate slightly.
action goto skinning when threateningly one last time before collapsing.
action goto skinning when and then grows still.
action goto skinning when seconds, then lies still.
action goto skinning when then goes limp.
action goto skinning when whines briefly before closing its eyes forever.
action goto skinning when growls one last time and collapses.
action goto skinning when growls low and dies.
action goto skinning when oozing outwards as a murky puddle.
action goto skinning when spasms violently, then falls motionless.
#~~~~~~~~~~~~~~~~#
#  MISC ACTIONS  #
#~~~~~~~~~~~~~~~~#
action put dance when You should stand up first.
action put dance when You slowly tip over and fall down.
action send 3 $lastcommand when You are still stunned.
#---------------------------------------------------------------------------------------------------------------------
###############################################
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~##
#   VARIABLES/ACTIONS END AND SCRIPT STARTS   #
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~##
###############################################
#---------------------------------------------------------------------------------------------------------------------
start:
	setvariable armor.rotation 0
	gosub take.held.cambrinth
defense.parry:
	setvariable rotations 0
	gosub stance.parry
	setvariable defense parry.check
	goto manipulation
defense.shield:
	setvariable rotations 0
	gosub stance.shield
	setvariable defense shield.check
	goto manipulation
#~~~~~~~~~~~~~~~~#
#  MAIN SECTION  #
#~~~~~~~~~~~~~~~~#
manipulation:
	gosub manipulate
main.part.1:
	gosub hunt
	gosub circle
	gosub perc
	gosub pre.spell.2
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub perc.health
#	gosub circle
#	waitfor You feel fully prepared to cast your spell.
	gosub collect
	put recall %critter
	gosub cast.spell.2
	gosub hide
	gosub circle
	gosub appraise
	gosub hide
	gosub circle
	pause 10
	gosub pre.spell.1
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub hide
	gosub circle
	wait 5
	gosub cast.spell.1
	gosub perc
	gosub hide
	gosub circle
	gosub appraise
	gosub pre.spell.3
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub hide
	gosub circle
#	waitfor You feel fully prepared to cast your spell.
	gosub cast.spell.3
	gosub collect
	gosub hide
	gosub circle
	gosub manipulate
	gosub pre.spell.4
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub hide
	gosub circle
	pause 5
#	waitfor You feel fully prepared to cast your spell.
	gosub cast.spell.4
	gosub hunt
	gosub hide
	gosub circle
	gosub pre.spell.1
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub perc.health
	gosub hide
	gosub circle
	wait 5
	gosub cast.spell.1
	gosub perc
	gosub hide
	gosub circle
	gosub appraise
	gosub pre.spell.2
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub circle
#	waitfor You feel fully prepared to cast your spell.
	gosub hide
	pause 5
	gosub cast.spell.2
	gosub hunt
	gosub hide
	gosub circle
	gosub pre.spell.3
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub hide
	gosub circle
#	waitfor You feel fully prepared to cast your spell.
	gosub cast.spell.3
	gosub collect
	gosub hide
	gosub circle
	gosub manipulate
	gosub pre.spell.4
	gosub charge.held.cambrinth
	gosub invoke.held.cambrinth
	gosub hide
	gosub circle
	pause 5
#	waitfor You feel fully prepared to cast your spell.
	gosub cast.spell.4
	gosub add.rotation
	gosub add.armor.rotation
	goto %defense
parry.check:
	if %rotations > 20 then goto defense.shield
	if $Parry_Ability.LearningRate > %defense.switch then goto defense.shield
	goto manipulation
shield.check:
	if %rotations > 20 then goto defense.parry
	if $Shield_Usage.LearningRate > %defense.switch then goto defense.parry
	goto manipulation
armor.check:
	if %armor.rotation > 45 then goto %next.armor
	if %armor.type.exp > 20 then goto %next.armor
	goto manipulation
change.gloves.brigandine:
	setvariable armor.type.exp $Brigandine.LearningRate
	setvariable next.armor change.gloves.plate
	gosub remove.plate.glove
	gosub wear.scale.glove
	goto manipulation
change.gloves.plate:
	setvariable armor.type.exp $Plate_Armor.LearningRate
	setvariable next.armor change.gloves.scale
	gosub remove.scale.glove
	gosub wear.plate.glove
	goto manipulation
end.check:
	if $Tactics.LearningRate > 32 then goto to.crossing
	if $Parry_Abulty.LearningRate < 32 then goto %defense
	if $Shield_Usage.LearningRate < 32 then goto %defense
to.crossing:
	goto manipulation
	put #goto crossing
	waitfor YOU HAVE ARRIVED
	put .empathcrossing
	exit

#~~~~~~~~~~~#
#  LOOTING  #
#~~~~~~~~~~~#
skinning:
	gosub kill.count
	gosub release.spell
	if %skin = off then goto looting
	gosub arrange.skin
looting:
	gosub loot
	if %just.skin = on then goto post.kill
	gosub take.coin
	gosub stow.gem
	if %coin.gems = on then goto post.kill
	gosub stow.box
	goto post.kill
post.kill:
	gosub kill.count
	put #statusbar ==========>  %kills kills so far!  <==========
	if %just.skin = on then goto manipulation
	put #statusbar ==========>  %kills kills and %gems gems so far!  <=========
	if %coin.gems = on then goto manipulation
	put #statusbar ==========>  %kills kills, %gems gems, and %boxes boxes so far!  <==========
	goto manipulation
#-----------------------------------------------------------------------------------------------------------------
########################
##~~~~~~~~~~~~~~~~~~~~##
#   ALL GOSUBS BELOW   #
##~~~~~~~~~~~~~~~~~~~~##
########################
#------------------------------------------------------------------------------------------------------------------
#~~~~~~~~~~~~~~~~~~~~~~~~#
#  TAKE AND STOW GOSUBS  #
#~~~~~~~~~~~~~~~~~~~~~~~~#
take.held.cambrinth:
	pause .1
	put take my %held.cambrinth
	match take.held.cambrinth ...wait
	match take.held.cambrinth Sorry, you
	match return You are already holding that.
	match return You get a
#	match error.cambrinth What do you want to get?
	matchwait
#~~~~~~~~~~~~~~~~~~~~~#
#  ARMOR SWAP GOSUBS  #
#~~~~~~~~~~~~~~~~~~~~~#
remove.plate.glove:
	remove.plate:
		put remove gauntlets
		match remove.plate ...wait
		match remove.plate Sorry, you
		match stow.plate You pull off some
		match return Remove what?
		matchwait
	stow.plate:
		put stow gauntlet
		match stow.plate ...wait
		match stow.plate Sorry, you
		match return You put your
		match return Stow what?
		matchwait
wear.chain.glove:
	take.chain:
		put take chain glove
		match take.chain ...wait
		match take.chain Sorry, you
		match wear.chain You get some
		matchwait
	wear.chain:
		put wear chain glove
		match wear.chain ...wait
		match wear.chain Sorry, you
		match return You slip some
		matchwait
remove.chain.glove:
	remove.chain:
		put remove chain glove
		match remove.chain ...wait
		match remove.chain Sorry, you
		match stow.chain You pull off some
		match return Remove what?
		matchwait
	stow.chain:
		put stow glove
		match stow.chain ...wait
		match stow.chain Sorry, you
		match return You put your
		matchwait
wear.scale.glove:
	take.scale:
		put take scale glove
		match take.scale ...wait
		match take.scale Sorry, you
		match wear.scale You get some
		matchwait
	wear.scale:
	setvariable armor.rotation 0
		put wear scale glove
		match wear.scale ...wait
		match wear.scale Sorry, you
		match return You slip some
		matchwait
remove.scale.glove:
	remove.scale:
		put remove scale glove
		match remove.scale ...wait
		match remove.scale Sorry, you
		match return Remove what?
		match stow.scale You pull off
		matchwait
	stow.scale:
		put stow scale glove
		match stow.scale ...wait
		match stow.scale Sorry, you
		match return You put your
		matchwait
wear.plate.glove:
	take.plate:
		put take gauntlet
		match take.plate ...wait
		match take.plate Sorry, you
		match wear.plate You get some
		matchwait
	wear.plate:
	setvariable armor.rotation 0
		put wear gauntlet
		match wear.plate ...wait
		match wear.plate Sorry, you
		match return You slip some
		matchwait
#~~~~~~~~~~~~~~~~#
#  MAGIC GOSUBS  #
#~~~~~~~~~~~~~~~~#
manipulate.wait:
	pause 3
manipulate:
	primary.manipulate:
		if %manipulation = off then goto return
		pause .1
		if $monstercount < %manipulate.amount then goto return
		put manip friend %critter
		match primary.manipulate ...wait
		match primary.manipulate Sorry, you
		match return Manipulate what?
		match return Roundtime:
		match manipulate.wait seem to be beyond your ken.
		match secondary.manipulate You're already manipulating
		match return You strain, but cannot extend your will any further.
		matchwait
	secondary.manipulate:
		pause .1
		if %multi.manipulate = off then goto return
		if $monstercount < %manipulate.amount then goto return
		put manip friend other %critter
		match secondary.manipulate ...wait
		match secondary.manipulate Sorry, you
		match return Manipulate what?
		match return Roundtime
		match return seem to be beyond your ken.
		match return You're already manipulating
		match return You strain, but cannot extend your will any further.
		matchwait
pre.spell.1:
	pause .1
	if $mana < 25 then goto return
	put prep %spell.1 %spell.1.amount
	match pre.spell.1 ...wait
	match pre.spell.1 Sorry, you
	match return With calm movements
	match return You have already fully prepared
	match return You are already
	match return With tense movements
	matchwait
pre.spell.2:
	pause .1
	if $mana < 25 then goto return
	put prep %spell.2 %spell.2.amount
	match pre.spell.2 ...wait
	match pre.spell.2 Sorry, you
	match return With calm movements
	match return With tense movements
	match return You have already fully prepared
	match return You are already
	matchwait
pre.spell.3:
	pause .1
	if $mana < 25 then goto return
	put prep %spell.3 %spell.3.amount
	match pre.spell.3 ...wait
	match pre.spell.3 Sorry, you
	match return With calm movements
	match return You have already fully prepared
	match return You are already
	match return With tense movements
	matchwait
pre.spell.4:
	pause .1
	if $mana < 25 then goto return
	put prep %spell.4 %spell.4.amount
	match pre.spell.4 ...wait
	match pre.spell.4 Sorry, you
	match return With calm movements
	match return You have already fully prepared
	match return You are already
	match return With tense movements
	matchwait
charge.held.cambrinth:
	setvariable camb.section charge.held.1
	setvariable cambrinth.rotation 0
	if $mana < 25 then goto return
	charge.held.1:
		if %cambrinth.rotation > %held.cambrinth.rotation then goto return
		pause .1
		put charge my %held.cambrinth %held.cambrinth.amount
		match charge.held.1 ...wait
		match charge.held.1 Sorry, you
		match cambrinth.counter Roundtime:
		matchwait
invoke.held.cambrinth:
	pause .1
	put invoke my %held.cambrinth %held.cambrinth.use
	match invoke.held.cambrinth ...wait
	match invoke.held.cambrinth Sorry, you
	match return Roundtime:
	matchwait
charge.worn.cambrinth:
	setvariable camb.section charge.worn.1
	setvariable cambrinth.rotation 0
	charge.worn.1:
		if $mana < 25 then goto return
		if %cambrinth.rotation > %worn.cambrinth.rotation then goto return
		pause .1
		put charge my %worn.cambrinth %worn.cambrinth.amount
		match charge.worn.1 ...wait
		match charge.worn.1 Sorry, you
		match cambrinth.counter Roundtime:
		matchwait
invoke.worn.cambrinth:
	pause .1
	put invoke my %worn.cambrinth %worn.cambrinth.use
	match invoke.worn.cambrinth ...wait
	match invoke.worn.cambrinth Sorry, you
	match return Roundtime:
	matchwait
cast.spell.1:
	pause .1
	match cast.spell.1 ...wait
	match cast.spell.1 Sorry, you
	match return With a wave
	match return You wave your hand.
	match return You gesture.
	match return emits a loud *snap*
	match return You don't have a spell prepared!
	put cast %spell.part.1
	matchwait
cast.spell.2:
	pause .1
	match cast.spell.2 ...wait
	match cast.spell.2 Sorry, you
	match return You gesture.
	match return With a wave
	match return You wave your hand.
	match return emits a loud *snap*
	match return You don't have a spell prepared!
	put cast %spell.part.2
	matchwait
cast.spell.3:
	pause .1
	match cast.spell.3 ...wait
	match cast.spell.3 Sorry, you
	match return You gesture.
	match return With a wave
	match return You wave your hand.
	match return emits a loud *snap*
	match return You don't have a spell prepared!
	put cast %spell.part.2
	matchwait
cast.spell.4:
	pause .1
	match cast.spell.4 ...wait
	match cast.spell.4 Sorry, you
	match return You gesture.
	match return With a wave
	match return You wave your hand.
	match return emits a loud *snap*
	match return You don't have a spell prepared!
	put cast %spell.part.2
	matchwait
perc:
	pause .1
	put perc
	match perc ...wait
	match perc Sorry, you
	match return Roundtime:
	matchwait
perc.health:
	pause .1
	put perc health
	match perc.health ...wait
	match perc.health Sorry, you
	match return Roundtime:
	match return You close your eyes
	matchwait
release.spell:
	pause .5
	put release
	match release.spell ...wait
	match release.spell Sorry, you
	match return You let your concentration lapse
	match return You aren't preparing a spell.
	matchwait
#~~~~~~~~~~~~~~~#
#  MISC GOSUBS  #
#~~~~~~~~~~~~~~~#
hunt:
	pause .1
	if $Perception.LearningRate > 31 then goto return
	put hunt
	match hunt ...wait
	match hunt Sorry, you
	match return You find yourself unable to hunt in this area.
	match return Roundtime:
	matchwait
hide:
	if $Stealth.LearningRate > 31 then goto return
	hide.retreat:
		if %retreat.stealth = off then goto hide.now
		pause .1
		put retreat
		match hide.retreat ...wait
		match hide.retreat Sorry, you
		match hide.retreat You retreat
		match hide.retreat You stop
		match hide.retreat Roundtime:
		match hide.now You are already
		matchwait
	hide.now:
		pause .1
		put hide
		match hide.now ...wait
		match hide.now Sorry, you
		match return notices your attempt to hide!
		match return You melt into the background,
		match return You blend in with your surroundings
		match return Roundtime:
		matchwait
appraise:
	pause .1
	if $Appraisal.LearningRate > 31 then goto return
	put app %appraisal.critter quick
	match appraise ...wait
	match appraise Sorry, you
	match return [Roundtime:
	match return You cannot appraise that when
	match return Appraise what?
	matchwait
collect:
	collect.counter:
	counter set 0
	collect.retreat:
		counter add 1
		if %c > 4 then goto return
		pause .5
		put retreat
		match collect.retreat ...wait
		match collect.retreat Sorry, you
		match collect.retreat You retreat
		match collect.retreat You stop
		match collect.retreat Roundtime
		match collect.item You are already
		matchwait
	collect.item:
		pause .1
		put collect %forage.item
		match collect.item ...wait
		match collect.item Sorry, you
		match collect.retreat You cannot collect
		match kick.pile Roundtime:
		match junk The room is too cluttered to find anything here!
		matchwait
	junk:
		put dump junk
		goto return
	kick.pile:
		pause .1
		put kick pile
		match kick.pile ...wait
		match kick.pile Sorry, you
		match return I could not find
		match kick.pile You take a step back
		match return You lean back and kick your feet,
		match return ever do to you?
		match return You lean back and kick your feet slowly.
		matchwait
circle:
	pause .5
	match circle ...wait
	match circle Sorry, you
	match return You must be closer
	match return There is nothing else to face!
	match return Roundtime:
	match return flying far too high
	put circle
	matchwait
analyze:
	pause .1
	put analyze
	match analyze ...wait
	match analyze Sorry, you
	match return Roundtime:
	match return Analyze what?
	match return You must be closer
	match return You fail to find
	matchwait
#~~~~~~~~~~~~~~~~~~#
#  LOOTING GOSUBS  #
#~~~~~~~~~~~~~~~~~~#
arrange.skin:
	arrange:
		pause .1
		put arrange
		match arrange ...wait
		match arrange Sorry, you
		match skin You complete arranging
		match return You make a serious mistake in the arranging process
		match return Arrange what?
		match arrange Roundtime
		matchwait
	skin:
		pause .1
		put skin
		match skin ...wait
		match skin Sorry, you
		match return Roundtime:
		match return Skin what?
		matchwait
loot:
	pause .1
	put loot
	match loot ...wait
	match loot Sorry, you
	match return You search
	match return I cound not
	matchwait
take.coin:
	pause .1
	put stow coin
	match take.coin ...wait
	match take.coin Sorry, you
	match take.coin You pick up
	match return Stow what?
	matchwait
stow.gem:
	pause .1
	put stow gem
	match stow.gem ...wait
	match stow.gem Sorry, you
	match gem.count You put your
	match return Stow what?
	matchwait
stow.box:
	pause .1
	put stow box
	match stow.box ...wait
	match stow.box Sorry, you
	match return Stow what?
	match box.count You put your
	match box.bag no matter how you arrange it.
	match box.bag There isn't any more room
	matchwait
box.bag:
	pause .1
	put put $lefthand in bag
	match box.bag ...wait
	match box.bag Sorry, you
	match box.count You put your
	matchwait
#~~~~~~~~~~~~~~~~~~~~#
#  COUNTERS FOR ALL  #
#~~~~~~~~~~~~~~~~~~~~#
box.count:
	counter set %boxes
	counter add 1
	setvariable boxes %c
	return
gem.count:
	counter set %gems
	counter add 1
	setvariable gems %c
	goto stow.gem
kill.count:
	counter set %kills
	counter add 1
	setvariable kills %c
	return
cambrinth.counter:
	counter set %cambrinth.rotation
	counter add 1
	setvariable cambrinth.rotation %c
	goto %camb.section
#~~~~~~~~~~~#
#  STANCES  #
#~~~~~~~~~~~#
stance.shield:
	pause .1
	put stance shield
	match stance.shield ...wait
	match stance.shield Sorry, you
	match stance.shield.adjust You are now set
	matchwait
stance.shield.adjust:
	put stance evasion %evasion.num
	match stance.shield.adjust ...wait
	match stance.shield.adjust Sorry, you
	match return Your evasion ability
	matchwait
stance.parry:
	pause .1
	put stance parry
	match stance.parry ...wait
	match stance.parry Sorry, you
	match stance.parry.adjust You are now set
	matchwait
stance.parry.adjust:
	put stance evasion %evasion.num
	match stance.parry.adjust ...wait
	match stance.parry.adjust Sorry, you
	match return Your evasion ability
	matchwait
add.rotation:
	counter set %rotations
	counter add 1
	setvariable rotations %c
	return
add.armor.rotation:
	counter set %armor.rotation
	counter add 1
	setvariable armor.rotation %c
	return
return:
		RETURN