Trans-wounds (script)

save %1
shift

varcheck:
if_1 goto prepcast
exit

prepcast:
goto %1

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

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

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

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