Fletching script.

[Skaster]

Might've been from Insomniac's site, but here it is.

#Fletching Arrows

Checks:

if_7 Goto CheckTooMany
if_6 Goto Start
if_5 Goto ChecksNotEnough
if_4 Goto ChecksNotEnough
if_3 Goto ChecksNotEnough
if_2 Goto ChecksNotEnough
if_1 Goto ChecksNotEnough

echo
echo Usage is .fletch <type of bolt> <type of wood for shafts> <Either yes/no for painting or not> <weapon name in FULL> <weapon to do cuts with> <weapon to make shafts with>
echo
echo Type of bolt is either:
echo 1. Arrow
echo 2. Heavy Bolt
echo 3. Light Bolt
echo
echo Use numerical reference for type of arrow/bolt.
echo
echo Eg.
echo .fletch 1 stick yes "a heavy crossbow" dagger handaxe
echo Or
echo .fletch 3 lance no "a light crossbow" knife axe
echo
echo Enclose the full weapon description in quotes.
echo
echo The weapon and container variables should also be filled in.
echo
echo The container should hold ALL the equipment needed for fletching.
exit

ChecksTooMany:
echo
echo Too many command line variables listed. Please restart the script with no variables to see the usage.
echo
exit

ChecksNotEnough:
echo
echo Not enough command line variables listed. Please restart the script with no variables to see the usage.
echo
exit

Start:
put glance
Match AllDone bolt
Match Alldone arrow in your
Match PaintGotPaint paint
Match GlueGotGlue Glue
Match Fletchings fletching
Match Measure3 %4
Match WhatToDo shaft
Match GetShaft nothing in your left hand.
Match GetDagger You glance down at your empty hands
Matchwait

GetDagger:
put get %5 from my %container
Match GetShaft You remove
Match NoDagger I could not find
Matchwait

NoDagger:
echo
echo No %5 to make the Arrows/Bolts with!!!
echo
exit

GetShaft:
pause 1
put get 1 shaft from my %container
Match GotShaft You remove
Match NoShaft I could not find
Matchwait

NoShaft:
pause 1
put get %2 from my %container
Match NoShaftMakeShaft You remove
Match NoShaftNoWood I could not find
Matchwait

NoShaftMakeShaft:
pause 1
put put my %5 in my %container
pause 1
put get my %6 from my %container
Match NoShaftMakeShaft%1 You remove
Match NoShaftMakeShaftNoHandaxe I could not find
Matchwait

NoShaftMakeShaftNoHandaxe:
echo
echo No %6 to make the shafts with!!!
echo
exit

NoShaftMakeShaft1:
pause 1
put cut arrow shaft
Goto DoneShaft

NoShaftMakeShaft2:
pause 1
put cut heavy bolt shaft
Goto DoneShaft

NoShaftMakeShaft3:
pause 1
put cut light bolt shaft

DoneShaft:
pause 1
put put my %6 in my %container
pause 1
put put my shafts in my %container
pause 1
put get %5 from my %container
goto GetShaft

NoShaftNoWood:
echo
echo Out of wood to make shafts with!
echo
exit

GotShaft:
pause 1
put cut my shaft with my %5
Match Start Realizing it would never fly straight, you discard
Match GoodShaft You pare away the excess
Match GoodShaft Generally, you should paint or crest
Matchwait

GoodShaft:

PaintOrNot:
goto Paint%3

PaintNo:
pause 1
put cut my shaft with my %5
pause 1
goto Measure2%1

PaintYes:

Paint:
pause 1
put put my %5 in my %container
pause 1
put get paint from my %container
Match PaintGotPaint You remove
Match PaintNoPaint I could not find
Matchwait

PaintNoPaint:
echo
echo No Paint to paint the shafts with!!!
echo
exit

PaintGotPaint:
pause 1
put paint my shaft
pause 1

Measure:
put put my paint in my %container
waitfor has dried.
Goto Measure2%1

Measure21:
put get %5 from my %container
pause 1
put cut nock in my shaft with my %5
match Measure22a You carefully cut a nock
match Start might as well toss it.
MatchWait

Measure22a:
Measure22:
Measure23:
put put my %5 in my %container
pause 1
put get %weapon from my %container
pause 1

Measure2a:
put swap

Measure3:
pause 1
put measure my shaft
Match MeasureNeedCock Better cock
Match MeasureDone and mark the desired length with a tiny cut on the shaft before removing it.
Match MeasureDone you can make a tiny cut on the shaft.
Match Measure2a Try holding
Matchwait

MeasureNeedCock:
pause 1
put put my shaft in my %container
pause 1
put cock my %weapon
pause 2
put get shaft from my %container
goto Measure3

MeasureDone:
pause 1
put put my %weapon in my %container

CutShaft:
pause 1
put get %5 from my %container
put swap
pause 1
put cut my shaft with my %5
pause 2

Glue:
pause 1
put put my %5 in my %container
Glue2:
pause 1
put get glue from %container
Match GlueGotGlue You remove
Match GlueNoGlue I could not find
Matchwait

GlueNoGlue:
echo
echo Out of glue!!!
echo
exit

GlueGotGlue:
pause 1
put put glue on my shaft
pause 1
put put glue in my %container
pause 1
put get fletching from my %container
Match Fletchings You remove
Match FletchingsNoFletchings I could not find
Matchwait

FletchingsNoFletchings:
echo
echo Out of Fletchings!!!
echo
exit

Fletchings:
pause 1
put put my fletching on my shaft
Match TryAgainFletchings Luckily, you are able to salvage the shaft.
Match BadFletchings so you discard the fletchings and shaft.
Match GoodFletchings holding them in place until you feel they are securely glued.
Match TryAgainFletchings if you want those fletchings to stay on.
Match GoodFletchings so you know where to attach the fletchings.
Match NotEnoughFletchings Each shaft requires three fletchings.
Match BadFletchings You'll need to be holding
Matchwait

TryAgainFletchings:
pause 1
put put my fletching in my %container
Goto Glue2

NotEnoughFletchings:
pause 1
put put my fletching in my %container
pause 1
put get other fletching from my %container
Match Fletchings You Remove
Match FletchingsNoFletchings I could not find
Matchwait

BadFletchings:
put put my fletching in my %container
pause 1
goto Start

GoodFletchings:
pause 1
put put my fletching in my %container
pause 1
put get my %5 from my %container

GoodFletchings2:
pause 1
put cut my shaft with my %5
Match Start so you discard it.
Match AllDone With a few quick cuts, you whittle the end
Match GoodFletchingsPause You'd better wait 'til that glue dries.
Matchwait

GoodFletchingsPause:
waitfor has dried.
goto GoodFletchings2

AllDone:
pause 1
put put my %5 in my %container
Goto AllDone%1

AllDone1:
pause 1
put put my arrow in my %container
Goto AllDoneEcho

AllDone2:
AllDone3:
pause 1
put put my bolt in my %container

AllDoneEcho:
pause 1
echo
Goto AllDoneEcho%1

AllDoneEcho1:
echo Arrow done!!!
goto AllDoneEchoEnd

AllDoneEcho2:
AllDoneEcho3:
echo Bolt done!!!

AllDoneEchoEnd:
echo
goto Start

WhatToDo:
pause 1
put look at my shaft
Match GoodFletchings has been pared down, smoothed, cut to length, and fletched.
Match GoodFletchings has been pared down, smoothed, nocked, cut to length, and fletched.
Match Measure22a has been pared down, smoothed, and cut with nocks.
Match Glue has been pared down, smoothed, and cut to length.
Match WhatToDo2 has been pared down and smoothed.
Match WhatToDo3 You see a single
MatchWait

WhatToDo2:
pause 1
put look at my shaft
Match Measure It looks like someone
Match PaintOrNot has been pared down and smoothed.
Matchwait

WhatToDo3:
pause 1
put glance
Match GotShaft %5
Match GetDagger shaft
Matchwait

LabelError:
echo
echo Error Detected. Please start the script again, and check your command line variables.
echo
echo If the problem still persists, goto www.gemstonescripts.com and log it.
echo Or contact me at tias_dp@hotmail.com
echo
exit