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