Trans-is (script)

save %1
shift

varcheck:
if_1 goto prepcast
exit

prepcast:
goto %1

head:
neck:
back:
skin:
nerves:
nerve:
chest:
abd:
abdomen:
tail:
put take %s sc int %1 quick
shift
goto varcheck

r:
ri:
rig:
righ:
right:
shift
put take %s sc int right %1 quick
shift
goto varcheck

l:
le:
lef:
left:
shift
put take %s sc int left %1 quick
shift
goto varcheck

v:
vi:
vit:
vita:
vitali:
vitalit:
vitality:
put transfer %s vitality quick
shift
goto varcheck