OK this is my spin script. It works for spinning things with the distaff or the spinning wheel in the society building. Simply copy the info below, save it as a .txt file so you have a backup. Then you can open it with notepad and save it as spin.cmd. This you can import into stormfront or genie or you can copy it to the wizard script directory. It needs no modifications to work in all three and will also work in the web front end as well.



#Spin
# Parameters - .spin <wheel or distaff> <type fiber> <thread weight> <container>
# Example - .spin distaff jute average bag
# Make sure your distaff is in hand before you start but if you use the spinning wheel,
# you dont need to be holding it.
#

put get %2 fiber from my %4
pause 1
match End1 unable to wrap that much fiber
match End2 referring
match Begin You carefully wrap some
put put my fiber on %1

Begin:
# pause 1
# put look my %1
#waitfor appears adjusted to produce
pause 1
put ADJUST %1 to %3
waitfor Roundtime:

Spin:
pause 1
match End You need a free hand
match End fibers placed
match Turn A counter-twist in the fiber
match Turn Individual strands of the fiber
match Push One half of the fiber bundle begins
match Push Slowly the fiber bundle
match Clean a dull shade from grime
match Spin Roundtime
put spin %1
matchwait

Turn:
pause 1
match End You need a free hand
match End fibers placed
match Turn A counter-twist in the fiber
match Turn Individual strands of the fiber
match Push One half of the fiber bundle begins
match Push Slowly the fiber bundle
match Clean a dull shade from grime
match Spin Roundtime
put turn %1
matchwait

Push:
pause 1
match End You need a free hand
match End fibers placed
match Turn A counter-twist in the fiber
match Turn Individual strands of the fiber
match Push One half of the fiber bundle begins
match Push Slowly the fiber bundle
match Clean a dull shade from grime
match Spin Roundtime
put push %1
matchwait

Clean:
pause 1
match End You need a free hand
match End fibers placed
match Turn A counter-twist in the fiber
match Turn Individual strands of the fiber
match Push One half of the fiber bundle begins
match Push Slowly the fiber bundle
match Clean a dull shade from grime
match Spin Roundtime
put clean %1
matchwait

End:
pause 1
ECHO
ECHO You have completed making thread
ECHO
exit

End1:
pause 1
ECHO
ECHO Can only use 100 Yd fiber on distaff, 400 on wheel.
ECHO Cut your fiber and try again.
ECHO
exit

End2:
pause 1
ECHO
ECHO You dont appear to have any fiber to use.
ECHO
exit