bowscript

#bownoskin.Cmd
if_%1 goto BowMAIN
#if_%3 goto BowMAIN
echo ========================================
echo BOW HUNTING WITHOUT SKINNING.
echo
echo USAGE IS:
echo  .BOWNOSKIN CRITTER
echo
echo   WHERE
echo     CRITTER IS LA'TAMI, GARG, SNOWB,
echo                LEUCRO, ETC.
echo ========================================
end

BowMAIN:
  pause 5
  put face first %1
  MATCH BowPREP You are already facing
  MATCH BowPREP You turn to face
  MATCH BowMAIN Face what?
  MATCH BowPREP You are too closely engaged
  MATCH BowSEARCH What's the point
MATCHWAIT

BowMAIN2:
  put face first %1
  MATCH BowPREP You are already facing
  MATCH BowPREP You turn to face
  MATCH BowMAIN Face what?
  MATCH BowPREP You are too closely engaged
  MATCH BowSEARCH What's the point
MATCHWAIT

BowLOAD:
  pause
  put remove my %2
  waitfor You sling
  put retreat
  pause
  put load
  waitfor You reach into your quiver
  pause
  put retreat
  put face first %1
  MATCH BowPREP You are already facing
  MATCH BowPREP You turn to face
  MATCH BowMAIN Face what?
  MATCH BowPREP You are too closely engaged
  MATCH BowSEARCH What's the point
  MATCH BowMAIN There is nothing else to face!
MATCHWAIT

BowLOAD2:
  pause
  put retreat
  put load
  waitfor You reach into your quiver
  pause
goto BowAIM

BowPREP:
  put retreat
  put prepare HB 15
  MATCH BowWEB You close your eyes and breathe deeply
  MATCH BowWEB Your eyes darken to black
  MATCH BowWEB You are already preparing the Harawep's Bonds spell!
  MATCH BowWEB You feel fully prepared to cast your spell.
  MATCH BowPREP ...wait
MATCHWAIT

BowWEB:
  pause
  put retreat
  pause 6
  put retreat
  pause 1
  put retreat
  pause 2
  put face first %1
  put cast
  MATCH BowPREP You have difficulty manipulating the mana streams,
  MATCH BowPREP Your spell
  MATCH BowPREP ...wait
  MATCH BowRELEASE You are already preparing
  MATCH BowHIDE there is no further effect.
  MATCH BowHIDE trapping it in a cocoon of sticky webbing.
  MATCH BowHIDE You are unable to harness sufficient energy
  MATCH BowRECAST Sorry, you may only type ahead 1 command.
  MATCH BowWEB You feel fully prepared to cast your spell.
  MATCH BowNOTARGET I could not find what you were referring to.
  MATCH BowNOTARGET Face what?
  MATCH BowSEARCH is already dead, so that's a bit pointless.
MATCHWAIT

BowRECAST:
  pause
  put retreat
  pause 1
  put face first %1
  put cast
  MATCH BowPREP You have difficulty manipulating the mana streams,
  MATCH BowPREP Your spell
  MATCH BowPREP ...wait
  MATCH BowRELEASE You are already preparing
  MATCH BowHIDE there is no further effect.
  MATCH BowHIDE trapping it in a cocoon of sticky webbing.
  MATCH BowRECAST Sorry, you may only type ahead 1 command.
  MATCH BowWEB You feel fully prepared to cast your spell.
  MATCH BowNOTARGET I could not find what you were referring to.
  MATCH BowNOTARGET Face what?
  MATCH BowSEARCH is already dead, so that's a bit pointless.
MATCHWAIT

BowNOTARGET:
  pause
  put release
goto BowMAIN

BowAIM:
  pause
  put retreat
  put aim
  MATCH BowSNIPE You begin to target
  MATCH BowSNIPE You are already targetting that!
  MATCH BowSNIPE You shift your target
  MATCH BowMAIN There is nothing else to face!
  MATCH BowSEARCH What's the point
  MATCH BowWEB You feel fully prepared to cast your spell.
  MATCH BowRECAST You feel fully prepared to cast your spell.
  MATCH BowAIM Sorry, you may only type ahead 1 command.
  MATCH BowAIM ...wait
  MATCH BowLOAD2 isn't loaded!
MATCHWAIT

BowHIDE:
  pause
  put retreat
  waitfor You
  put retreat
  put hide
  MATCH BowAIM Eh?  But you're already hidden!
  MATCH BowAIM You melt into the background,
  MATCH BowHIDE ruining your hiding attempt!
  MATCH BowHIDE Sorry, you may only type ahead 1 command.
  MATCH BowHIDE ...wait
MATCHWAIT

BowSNIPE:
  pause
  put stalk
  pause 2
  put snipe
  MATCH BowHIDE How can you snipe if you are not hidden?
  MATCH BowHIDE You must be hidden first!
  MATCH BowRELOAD opponent.]
  MATCH BowRELOAD position.]
  MATCH BowRELOAD advantage.]
  MATCH BowSEARCH balanced]
  MATCH BowSEARCH balance]
  MATCH BowMAIN At what are you trying to snipe?
  MATCH BowSNIPE ...wait
MATCHWAIT

BowRELOAD:
  pause
  put load
  pause 2
goto BowAIM

BowSKIN:
  pause 1
  put wear %2
  waitfor You sling a
  #put get %3 from my sheath
  put get skin %3 from my pack
  waitfor You draw out
  put skin %1
  waitfor Using your
  put drop %4
  waitfor You drop
  put search %1
  put retreat
  match BowSHEATH decays away.
  match BowSHEATH the body is soon consumed completely
matchwait

BowSHEATH:
  puse 1
  put retreat
  #put %3 in my sheath
  put skin %3 in my pack
  waitfor You sheathe
  put retreat
  pause
goto BowGETARROWS

BowGETARROWS:
  pause 1
  put retreat
  pause 1
  put get arrow
  MATCH BowPUTAWAY1 You pick up
  MATCH BowPUTAWAY1 You pull
  MATCH BowPUTAWAY2 You get
  MATCH BowMAIN2 You must unload
  MATCH BowGETARROWS Sorry, you may only type ahead 1 command.
MATCHWAIT

BowPUTAWAY1:
  pause 1
  put put arrow in my quiver
  waitfor You put
  pause
goto BowGETARROWS

BowPUTAWAY2:
  pause
  put put arrow in my quiver
  waitfor You put
  put prep SOP 10
  pause
  put retreat
  pause
  put cast
  put retreat
  pause
goto BowMAIN2

BowSEARCH:
  pause
  put retreat
  pause
  put search %1
  MATCH BowGETARROWS decays away
  MATCH BowGETARROWS the body is soon consumed completely
  MATCH BowGETARROWS Tufts of hair fall to the ground
  MATCH BowGetARROWS The wormwood vine withers
MATCHWAIT

BowRELEASE:
  pause
  put release
  put retreat
  pause
goto BowPREP