Cast Facing (script)

Cast Facing (script)
Category	magic
Front-end	StormFront
Author	Deke

This script determines what you are facing and casts your prepped spell on that target.

It can handle PCs as well as critters.

This script is Stormfront only.

setvariable castTarget 
save 
tPreamble:
matchre tLoopCritter /^You \(.*\) are (facing a |behind a )/
matchre tLoopPerson /^You \(.*\) are (facing |behind )/
match tNotFacing Encumbrance :
put assess
put enc
matchwait

tLoopPerson:
setvariable tokenEnd tEnd
goto tLoop

tLoopCritter:
setvariable tokenEnd tsp
goto tLoop


tLoop:
matchre tA /^A/i
matchre tB /^B/i
matchre tC /^C/i
matchre tD /^D/i
matchre tE /^E/i
matchre tF /^F/i
matchre tG /^G/i
matchre tH /^H/i
matchre tI /^I/i
matchre tJ /^J/i
matchre tK /^K/i
matchre tL /^L/i
matchre tM /^M/i
matchre tN /^N/i
matchre tO /^O/i
matchre tP /^P/i
matchre tQ /^Q/i
matchre tR /^R/i
matchre tS /^S/i
matchre tT /^T/i
matchre tU /^U/i
matchre tV /^V/i
matchre tW /^W/i
matchre tX /^X/i
matchre tY /^Y/i
matchre tZ /^Z/i
matchre %tokenEnd% /^\s/
matchre tapo /^'/
matchre tdash /^-/
matchre tparens /^\(/
matchwait

tsp:
setvariable castTarget %s%
save 
goto tLoop

tapo:
save %s%'
goto tLoop

tdash:
save %s%-
goto tLoop

tA:
save %s%a
goto tLoop

tB:
save %s%b
goto tLoop

tC:
save %s%c
goto tLoop

tD:
save %s%d
goto tLoop

tE:
save %s%e
goto tLoop

tF:
save %s%f
goto tLoop

tG:
save %s%g
goto tLoop

tH:
save %s%h
goto tLoop

tI:
save %s%i
goto tLoop

tJ:
save %s%j
goto tLoop

tK:
save %s%k
goto tLoop

tL:
save %s%l
goto tLoop

tM:
save %s%m
goto tLoop

tN:
save %s%n
goto tLoop

tO:
save %s%o
goto tLoop

tP:
save %s%p
goto tLoop

tQ:
save %s%q
goto tLoop

tR:
save %s%r
goto tLoop

tS:
save %s%s
goto tLoop

tT:
save %s%t
goto tLoop

tU:
save %s%u
goto tLoop

tV:
save %s%v
goto tLoop

tW:
save %s%w
goto tLoop

tX:
save %s%x
goto tLoop

tY:
save %s%y
goto tLoop

tZ:
save %s%z
goto tLoop

tparens:
echo %s%
matchre tTenth /^10/
matchre tNinth /^9/
matchre tEighth /^8/
matchre tSeventh /^7/
matchre tSixth /^6/
matchre tFifth /^5/
matchre tFourth /^4/
matchre tThird /^3/
matchre tSecond /^2/
matchre tFirst /^1/
matchwait

tFirst:
setvariable castTarget first %castTarget%
goto tEnd
tSecond:
setvariable castTarget second %castTarget%
goto tEnd
tThird:
setvariable castTarget third %castTarget%
goto tEnd
tFourth:
setvariable castTarget fourth %castTarget%
goto tEnd
tFifth:
setvariable castTarget fifth %castTarget%
goto tEnd
tSixth:
setvariable castTarget sixth %castTarget%
goto tEnd
tSeventh:
setvariable castTarget seventh %castTarget%
goto tEnd
tEighth:
setvariable castTarget eighth %castTarget%
goto tEnd
tNinth:
setvariable castTarget ninth %castTarget%
goto tEnd
tTenth:
setvariable castTarget tenth %castTarget%
goto tEnd
tNotFacing:
echo You are not facing anything!
exit
tEnd:
put cast %castTarget%

--Mozuzaeram 15:26, 18 March 2009 (UTC)