The code for Lifecutter, reaper-god Nerull's scythe.
It initially possessed a "command word", but at some point this ceased to work, so I converted it into a "use" command.
if second of hit then hurt;
##hurt: runsub whichweap;
##whichweap:
if $actor's name like "Lifecutter" then scythe else pole;
##scythe:
print "[$actor] flashes and its blade seems to grow!";
var $nom to $actor's healthmax;
var $nom3 to 2;
add $nom3 to $nom;
set $actor's healthmax to $nom;
set $actor's health to $nom;
##pole:
print "[$actor] releases a slight humming noise";
#/#say: //I'll get back to fixing this//
runsub whodunit;
##use:
runsub whodunit;
##whodunit:
if $init_obj = $actor's host then further1 else end;
##whatwords:
if $init_msg like 'soulharvest' then further2 else end;
##further1:
if $target = $actor then further2 else end;
##further2:
if $actor's class like "Lifecutter" then revert else fullpower;
##fullpower:
set $actor's class to 'Lifecutter';
set $actor's healthmax to 100;
set $actor's health to 100;
set $actor's info to 'A large scythe whose blade is crackling energy';
set $actor's colour to red;
set $actor's extra to 'crackling menacingly';
say 'msg',"The pole begins to glow and crackle with energy";
say 'msg',"A blade of energy slides out of the tip of the pole, now a deadly scythe";
set $init_obj's host to 0;
relook $loc;
##revert:
set $actor's class to 'oddly shaped pole';
set $actor's healthmax to 20;
set $actor's health to 20;
set $actor's info to 'Looks like your average, if not slightly mishapen pole.';
set $actor's extra to '';
set $actor's colour to slategray;
say 'msg',"The blade of energy vanishes, as does the aura of power around the scythe.";
set $init_obj's host to 0;
relook $loc;