#thief dance and bow - dobeks v 1.1 by RepopularizeQualude

timer start
setvariable lastcombat jab
setvariable exp 1
setvariable wieldbriq false
setvariable range none
setvariable arrowsout true
setvariable mourup false
setvariable hiding false
setvariable speed false
setvariable stanceattack true
setvariable dstat evasion
setvariable humming false
setvariable evas_ml false
setvariable parry_ml false
setvariable cooldown 181


ACTION setvariable humming true when You are already performing something.
ACTION setvariable humming true when You begin to hum
ACTION setvariable humming false when You finish humming
ACTION setvariable humming false when You stop playing your song.

ACTION put hide when discovers your hiding place

ACTION setvariable hiding false when discovers your hiding place
ACTION setvariable hiding false when You come out of hiding.
ACTION setvariable hiding true when You melt

ACTION setvariable mourup true when The dobek moruryn flounders about on the ground.
ACTION setvariable mourup true when The dobek moruryn begins to stir.
ACTION setvariable mourup true when The dobek moruryn stands back up.
ACTION setvariable mourup true when The dobek moruryn climbs to its feet.
ACTION setvariable mourup true when The dobek moruryn leaps to its feet.

ACTION goto reset2 when The dobek moruryn stands back up.
ACTION goto reset2 when The dobek moruryn flounders about on the ground.
ACTION goto reset2 when The dobek moruryn begins to stir.
ACTION goto reset2 when The dobek moruryn stands back up.
ACTION goto reset2 when The dobek moruryn climbs to its feet.
ACTION goto reset2 when The dobek moruryn leaps to its feet.

ACTION setvariable range melee when at melee range.
ACTION setvariable range melee when closes to melee
ACTION setvariable range melee when you close to melee
ACTION setvariable range pole when You retreat back to pole
ACTION setvariable range pole when You sneak back out to pole
ACTION setvariable range missile when You sneak back out of
ACTION setvariable range missile when You retreat from combat
ACTION setvariable range melee when You are already at melee with a dobek moruryn.


ACTION goto skinandsearch when A bristle-backed peccary flops in a porky heap, squealing one last time before passing into oblivion.
ACTION goto skinandsearch when The dobek moruryn slumps into a heap.
ACTION goto skinandsearch when The dobek moruryn trembles violently before finally collapsing.


ACTION setvariable eorp evasion when You are currently using 100% of your evasion skill.
ACTION setvariable eorp parry when You are currently using 100% of your weapon parry skill.
ACTION setvariable eorp parry when Parry  :  100%
ACTION setvariable eorp evasion when Evade  :  100%

ACTION setvariable stanceattack true when You are attacking with 100% of your offensive skill.
ACTION setvariable stanceattack false when You are attacking with 40% of your offensive skill.
ACTION setvariable stanceattack false when Attack :  50%
ACTION setvariable stanceattack false when Attack :  40%
ACTION setvariable stanceattack false when You are attacking with 40% of your offensive skill.
ACTION setvariable stanceattack true when Attack :  100%
Action setvariable stanceattack true when You are now set to use your attack
action setvariable stanceattack false when You are now set to use your evasion

ACTION setvariable wieldbriq true when You're already holding an etched steel briquet!
ACTION setvariable wieldbriq true when You draw out your briquet from the traveler's backpack.
ACTION setvariable wieldbriq true when You glance down to see an etched steel briquet in your right hand and nothing in your left hand.
action setvariable wieldbriq false when You sheathe the briquet in your traveler's backpack.
ACTION setvariable wieldbriq true when You draw out your briquet from the greatsword sheath.
ACTION setvariable wieldbriq false when You sheathe the briquet in your greatsword sheath.
ACTION setvariable wieldbriq false when You sheathe the briquet in your weapons harness.
ACTION setvariable wieldbriq true when You draw out your briquet from the weapons harness.

ACTION setvariable speed false when Your augmented reaction times slow as one of your mental pillars supporting it ceases.
ACTION put khri stop when Your augmented reaction times slow as one of your mental pillars supporting it ceases.
ACTION setvariable speed true when You feel preternaturally quick, which will vanish when any pillar supporting it does.
ACTION setvariable speed false when You are not currently under the influence of any meditations.
ACTION setvariable speed false when You feel mentally fatigued as your heightened paranoia ceases to enhance your knowledge of nearby escape routes.
ACTION setvariable speed true when Your mind focused in all the proper patterns, you feel your body adjust to the new speed, further augmenting your reactions.

ACTION setvariable lastcombat lunge when Last Combat Maneuver: Lunge
ACTION setvariable lastcombat parry when Last Combat Maneuver: Jab
ACTION setvariable lastcombat draw when Last Combat Maneuver: Draw
ACTION setvariable lastcombat feint when Last Combat Maneuver: Feint
ACTION setvariable lastcombat thrust when Last Combat Maneuver: Thrust
ACTION setvariable lastcombat parry when Last Combat Maneuver: Parry
ACTION setvariable lastcombat lunge when You lunge
ACTION setvariable lastcombat jab when You jab
ACTION setvariable lastcombat draw when You step backward and then jab
ACTION setvariable lastcombat feint when You feint
ACTION setvariable lastcombat thrust when You thrust
ACTION setvariable lastcombat parry when You move into a position to parry.

ACTION put look when YOU HAVE BEEN IDLE
action put awake when Overall state of mind: clear
action put sleep when Overall state of mind: fluid
action put sleep when Overall state of mind: murky
action put sleep when Overall state of mind: very
action put sleep when Overall state of mind: dense
action put sleep when Overall state of mind: thick
action put sleep when Overall state of mind: stagnant
action put sleep when Overall state of mind: frozen

initcheck:
put stance
put khri check 
waitfor you
pause
put ass
pause
put glance



khridowncheck:
put info
match khridowncheck You may only have
match startingkhri Concentration: 230
match startingkhri Concentration: 231
match startingkhri Concentration: 232
match danceloop Encumbrance:
matchwait

startingkhri:
put retre
match startingkhri ...wait
match startingkhri You stop advancing on a dobek moruryn.
match startingkhri You may only have
match gokhri You are already as far away as you can get!
match startingkhri You retreat back to pole range.
match startingkhri You attempt to retreat
match standup You must stand first.
match gokhri You sneak back out to pole range.
match gokhri You sneak back out of combat.
match gokhri You retreat from combat.
match gokhri You are already as far away as you can get!
matchwait

gokhri:
if %monstercount > 0 then setvariable range missile
put kh start focus
waitfor you
put kh start speed
waitfor you
match gokhri Sorry, you may only type ahead 1 command.
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 0 then goto danceloop
if %monstercount = 0 then goto holdingpatterns

standup:
put dance
match standup You may only have
match standup ...wait
match standup You are so unbalanced
match standup You attempt
match startingkhri You leap to
matchwait

getarrows:
if %range = "melee" then goto getarrowsretreat

getarrows2:
put stow arrow
match getarrows You pick up a
match donearrow for details.
match getarrows2 ...wait
match getarrows2 Sorry,
matchwait

donearrow:
setvariable arrowsout false
goto danceloop

getarrowsretreat:
if %range = "missile" then goto getarrows2
if %range != "missile" then put retreat
if %range = "melee" then setvariable range pole
if %range = "pole" then setvariable range missile
match getarrows2 You are already as far away
match getarrowsretreat you retreat 
match getarrowsretreat You stop advancing on a dobek moruryn.
match getarrowsretreat ...wait
match getarrows retreat Sorry,
matchwait

Danceloop:
if %monstercount = 0 then goto holdingpatterns
if %monstercount > 2 and %speed then put stance attack
if %monstercount > 1 and !%speed then put stance attack
if %monstercount < 3 and %speed then put stance %dstat 
if %monstercount < 2 and !%speed then put stance %dstat
if %monstercount > 2 and %speed then gosub crowdcontrol
if %monstercount > 1 and !%speed then gosub crowdcontrol
if !%wieldbriq then put wield my briq
if !%wieldbriq then setvariable wieldbriq true
if %stanceattack then setvariable stanceattack false
if %range != "melee" then goto advance
if %arrowsout then goto getarrows
if !%mourup then setvariable mourup true
goto danceloop_%lastcombat

danceloop_jab:
if %monstercount > 2 and %speed then gosub crowdcontrol
if %monstercount > 1 and !%speed then gosub crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%wieldbriq then setvariable wieldbriq true
if %range != "melee" then goto advance
if !%mourup then setvariable mourup true
put exp sk %dstat
match swapstat mind lock
match parry EXP HELP
match recycle You need atleast two
match danceloop_jab ...wait
match danceloop_jab Sorry,
matchwait

swapstat:
if %cooldown < "180" then goto parry
put exp sk evas
match setevas1 mind lock
match swapstat ...wait
match swapstat Sorry,
match setevas2 EXP HELP
matchwait

setevas1:
setvariable evas_ml true
goto swapstat2

setevas2:
setvariable evas_ml false

swapstat2:
put exp sk parry
match setpar1 mind lock
match swapstat2 ...wait
match swapstat2 Sorry,
match setpar2 EXP HELP
matchwait

setpar1:
setvariable parry_ml true
goto setstat3

setpar2:
setvariable parry_ml false

setstat3:
if %parry_ml and %evas_ml then setvariable dstat evasion
if %parry_ml and %evas_ml then put stance evasion
if %parry_ml and %evas_ml then deletevariable cooldown
if %parry_ml and %evas_ml then timer start cooldown
if !%parry_ml and %evas_ml then setvariable dstat parry
if !%parry_ml and %evas_ml then put stance parry
if %parry_ml and !%evas_ml then setvariable dstat evasion
if %parry_ml and !%evas_ml then put stance evasion
if !%evas_ml and !%parry_ml then setvariable dstat evasion
if !%evas_ml and !%parry_ml then put stance evasion
if %stanceattack then setvariable stanceattack false
goto parry

parry:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then gosub crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%wieldbriq then setvariable wieldbriq true
if !%mourup then setvariable mourup true
if %range != "melee" then goto advance
put parry
match briqtrue You're already holding an etched steel briquet!
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match danceloop_parry You move into a position
match parry ...wait
match parry Sorry, you may only type ahead 1 command.
matchwait

danceloop_parry:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then gosub crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%mourup then setvariable mourup true
if !%wieldbriq then setvariable wieldbriq true
if %range != "melee" then goto advance
put feint
match recycle You need two hands
match wieldweapon You don't have a weapon to 
match advance You aren't close enough to attack.
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match danceloop_parry ...wait
match danceloop_parry Sorry,
match danceloop_feint [Roundtime
matchwait

danceloop_lunge:
danceloop_feint:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then gosub crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%wieldbriq then setvariable wieldbriq true
if !%mourup then setvariable mourup true
if %range != "melee" then goto advance
put mark all mo
match danceloop_lunge2 sec.
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match danceloop_feint ...wait
match danceloop_feint Sorry,
matchwait

danceloop_lunge2:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then gosub crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%mourup then setvariable mourup true
if !%wieldbriq then setvariable wieldbriq true
if %range != "melee" then goto advance
put draw
match recycle You need two hands
match advance You aren't close enough to attack.
match wieldweapon You don't have a weapon to 
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match lunge ...wait
match lunge Sorry,
match danceloop_draw [Roundtime
matchwait 

danceloop_draw:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then goto crowdcontrol
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%mourup then setvariable mourup true
if !%wieldbriq then setvariable wieldbriq true
if %range != "melee" then goto advance
put thrust
match recycle You need two hands
match wieldweapon You don't have a weapon to 
match advance You aren't close enough to attack.
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match danceloop_draw ...wait
match danceloop_draw Sorry,
match danceloop_thrust [Roundtime
matchwait

danceloop_thrust:
if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then goto ccforceadvance
if %monstercount = 0 then goto holdingpatterns
if !%wieldbriq then put wield my briq
if !%mourup then setvariable mourup true
if !%wieldbriq then setvariable wieldbriq true
if %range != "melee" then goto advance
put jab
match recycle You need two hands
match wieldweapon You don't have a weapon to 
match advance You aren't close enough to attack.
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match lastcheck [Roundtime
match danceloop_thrust ...wait
match danceloop_thrust Sorry,
matchwait

recycle:
put sheath briq
goto unload

lastcheck:
if !%speed then goto khridowncheck 
goto danceloop_jab

wieldweapon:
put wield bri
if !%wieldbriq then setvariable wieldbriq true
goto danceloop_%lastcombat

advance:
put eng mo
match advance ...wait
match advance The dobek moruryn retreats from you.
match danceloop You have lost sight of your target, so you stop advancing.
match danceloop_%lastcombat you spin around to face
match settingrange1 You are already at melee with a dobek moruryn.
match danceloop_%lastcombat melee
match advance Sorry,
matchwait

settingrange1:
if %range != "melee" then setvariable range melee
goto danceloop_%lastcombat

skinandsearch:
#math exp add 1
if %exp = "4" then setvariable exp 1

put sheath
match sns2 You sheath
match skinandsearch ...wait
matchwait

sns2:
put wield skin knife
match sns3 You draw out you
match sns2 ...wait
match sns2 Sorry,
matchwait

sns3:
put skin
put search mo
match snss It carried nothing of interest.
match snss2 star
matchwait

snss:
put drop sting
put she
waitfor you sheath
if !%wieldbriq then put wield briq
if !%wieldbriq then setvariable wieldbriq true

goto waitingcrumble

snss2:
put drop sting
match snss3 But you aren't holding that.
match snss3 You drop a
match snss2 ...wait
match snss2 Sorry,
matchwait

snss3:
put she
match snss4 you sheath
match snss3 ...wait
match snss3 Sorry,
matchwait

snss4:
put stow ruby
match snss4 You Stow what?
match snss4 ...wait
match snss4 Sorry,
match snss5 you pick up a
matchwait

snss5:
put wield briq
if !%wieldbriq then setvariable wieldbriq true
waitfor you
goto waitingcrumble


waitingcrumble:
waitfor crumbles apart.
if !%mourup then setvariable mourup true

if %monstercount > 2 and %speed then goto ccforceadvance
if %monstercount > 1 and !%speed then goto ccforceadvance
if %monstercount = 0 then goto holdingpatterns
goto danceloop

crowdcontrol:
put exp
if %exp = 1 then setvariable killweapon short bow
if %exp = 2 then setvariable killweapon longbow
if %exp = 3 then setvariable killweapon composite bow

crowdhide:
put hide
match clout You melt
match crowdhide ruining your hiding place!
match crowdhide ...wait
match clout Eh?  But you're already hidden!
match crowdhide Sorry,
matchwait

ccadvance:
put eng mo
match ccadvance The dobek moruryn retreats from you.
match ccadvance ...wait
match setrange2 you are already at melee
match crowdcontrol melee
match clouting Eh?
match danceloop You have lost sight
match clout you spin around to face
match ccadvance Sorry,
matchwait

setrange2:
if %range != "melee" then setvariable range melee
goto clouting

clout:
if %range != "melee" then goto ccadvance
if !%stanceattack then put stance attack
if %mourup then goto clouting
if !%mourup then goto shooting

clouting:
put ambush clout
match clout2 but you clip the side of its neck!
if %mourup then setvariable mourup false
match clouting ...wait
match crowdhide You need to be
match crowdhide Although your attack lands, it is deflected by the dobek moruryn's armor!
match crowdhide You must be hidden or invisible to ambush!
match shooting They're already impaired, you don't think doing this is going to help further.
match clouting Sorry,
match ccforceadvance You aren't close
match ccforceadvance You reach into your backpack to load
match shooting clout its neck with a single precise stroke!
matchwait

clout2:
setvariable range melee 
put stance attack
if !% stanceattack then setvariable stanceattack tru
goto clouting

ccforceadvance:
put advance
match ccforceadvance You snipe
match clouting You are already at melee
match ccforceadvance You begin to target
match ccforceadvance stalk
match clouting You close to melee
match ccforceadvance The dobek moruryn retreats from you.
match danceloop You have lost sight of your target, so you stop advancing.
match ccforceadvance ...wait
match ccforceadvance Sorry,
matchwait

shooting:
if %wieldbriq then goto killweaponswitch
if %range = "melee" then put ret
if %range != "melee" then goto shoothiding

shoothiding:
put hide
match shooting2 you melt into
match shooting2 Eh?  But you're already hidden!
match shoothiding ...wait
match shoothiding notices your attempt to hide
matchwait

shooting2:
if %mourup then goto ccforceadvance
if %range = "melee" then put retreat
put load
match swap What weapon are you trying to load?
match getarrows You don't have the proper ammunition
match killweaponswitch What weapon
match shooting2 ...wait
match shooting2 Sorry,
match shooting3 is already loaded
match sheathingbriq with an etched steel briquet in your left hand!
match shooting3 You reach into your
matchwait

swap:
put swap
match shoothiding you move
match killweaponswitch You have nothing
match swap ...wait
match swap Sorry,
matchwait

sheathingbriq:
put sheath briq
if %wieldbriq then setvariable wieldbriq false
goto shoothiding
 
shooting3:
if %mourup then goto ccforceadvance
if %range = "melee" then put retreat
put aim
match 
match unload I could not find what you were referring to.
match stalkcheck You begin to target
match shooting3 ...wait
match stalkcheck  You are already targetting that!
match shooting3 Sorry,
matchwait

stalkcheck:
put exp sk stalk
match stalkcheck Sorry,
match shooting4 mind lock
match shooting4 dazed
match shooting4 bewildered
match shooting4 bewildering
match stalker EXP HELP
matchwait

stalker:
put stalk
match danceloop Stalk what?
match stalker ...wait
match stalker Sorry,
match shooting4 You are already stalking a dobek moruryn.
match shooting4 You move into position to stalk
match shoothiding notices
matchwait

shooting4:
if %mourup then goto ccforceadvance
if %range = "melee" then put retreat
if %range = "melee" then setvariable range pole
put snipe
match danceloop I could not find what you were referring to.
match reset hits a wall and falls to the floor!
if !%arrowsout then setvariable arrowsout true
match skinandsearch The dobek moruryn slumps into a heap.
match skinandsearch The dobek moruryn trembles violently before finally collapsing.
match snipehide The dobek moruryn notices your attempt to remain hidden while firing
match ccforceadvance How can you snipe?
match shooting2 You fire 
match shooting2 [Roundtime
match shooting4 ...wait
match shooting4 Sorry,
matchwait

snipehide:
if %range != "melee" then setvariable range melee
if %mourup then goto ccforceadvance
put hide
match shooting2 You melt
match snipehide ruining your hiding place!
match snipehide ...wait
match snipehide Sorry,
matchwait

killweaponswitch:
if %range = "melee" then put retreat
put she
if %wieldbriq then setvariable wieldbriq false
match kws2 You sheath
match kws2 Sheathe what?
match killweaponswitch ...wait
match killweaponswitch Sorry,
matchwait

reset:
setvariable mourup true
goto ccforceadvance

reset2:
setvariable mourup true
goto ccforceadvance

 	
kws2:
put wield %killweapon
goto shooting

unload:
put unload
match unload2 You remain concealed by your surroundings
match unload2 You unload
match unload ...wait
match unload Sorry,
match danceloop But your
matchwait

sdanceloop:
put sheath left
put sheath right
goto danceloop

unload2:
put stow l
match unload3 You put
match unload2 ...wait
match unload2 Sorry,
matchwait

unload3:
put she
match danceloop You put
mmatch unload3 ...wait
match unload3 Sorry,
matchwait

holdingpatterns:
if %monstercount = 0 then setvariable range none
if %arrowsout then goto getarrows
if %cooldown != 181 then setvariable cooldown 181
holdingpatterns2:
if %t >= 1200 then gosub pattern3a

pattern1a:
put she
waitfor you
if %wieldbriq then setvariable wieldbriq false
put get lobs
match pattern1a ...wait
match pattern1b You get
match pattern1b You are already holding that.
matchwait

pattern1b:
if !%humming then put hum rumba
if %monstercount > 0 then goto packup1
put exp sk percept
match pattern2a mind lock
match pattern2a dazed
match pattern2a  bewildering
match pattern2a bewildered
match pattern1c Time
matchwait

pattern1c: 
if %monstercount > 0 then goto packup1
put juggle my lobs
match pattern1b Roundtime:
match packup1 You cannot juggle in combat.
match pattern1c Sorry,
match pattern1c ...wait
matchwait

packup1:
pause
put stow
put stop hum
goto danceloop

pattern2a:
pause 5
goto pattern1a

pattern3a:
timer clear
timer start
if %monstercount > 0 then goto packup1
put get comp
waitfor you

studycomp:
if %monstercount > 0 then goto packup1
put study my comp
match studycomp ...wait
match studycomp gradually absorbing
match expchecksch With a sudden moment of clarity
match expchecksch in a sudden moment of clarity
match donecomp why do you need to
matchwait

expchecksch:
if %monstercount > 0 then goto packup1
put exp sk first aid
match expchecksch2 mind lock
match turncomp Time
matchwait

expchecksch2:
if %monstercount > 0 then goto packup1
put exp sk schol
match donecomp mind lock
match turncomp Time
matchwait

turncomp:
if %monstercount > 0 then goto packup1
put turn my comp
goto studycomp

donecomp:
if %monstercount > 0 then goto packup1
put turn my comp
put put comp in my sat
if %monstercount > 0 then goto packup1
put exp sk first aid
match holdingpatterns mind lock
match secondcomp Time
matchwait



secondcomp:
if %monstercount > 0 then goto packup1
put get second comp
waitfor you

studycomp2:
if %monstercount > 0 then goto packup1
put study my comp
match studycomp2 ...wait
match studycomp2 gradually absorbing
match expchecksch23 With a sudden moment of clarity
match expchecksch23 in a sudden moment of clarity
match donecomp2 why do you need to
matchwait

expchecksch23:
if %monstercount > 0 then goto packup1
put exp sk first aid
match expchecksch22 mind lock
match turncomp2 Time
matchwait

expchecksch22:	
if %monstercount > 0 then goto packup1
put exp sk schol
match donecomp2 mind lock
match turncomp2 Time
matchwait

turncomp2:
if %monstercount > 0 then goto packup1
put turn my comp
goto studycomp2

donecomp2:
if %monstercount > 0 then goto packup1
put turn my comp
put put my comp in my sat
goto holdingpatterns