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:
runsub whodunit;
##whodunit:
if $init_obj = $actor's host then whatwords else end;
##whatwords:
if $init_msg like 'soulharvest' then further else end;
##further:
if $actor's name like "Lifecutter" then revert else fullpower;
##fullpower:
set $actor's name 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";
relook $loc;
##revert:
set $actor's name 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.";
relook $loc;