if second of hit then hurt;
##hurt: runsub whichweap;
##whichweap:
if $actor's name like "Living Katana" then sword else staff;
##sword:
print "[$actor] pulses and, for only a second, the world stands still and silent ";
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;
##staff:
print "from [$actor] comes a faint whisper";
#/#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 'awaken, Tenka!' then further2 end;
##further1:
if $target = $actor then further2 else end;
##further2:
if $actor's class like "Living Katana" then revert else fullpower;
##fullpower:
set $actor's class to 'Living Katana';
set $actor's name to 'Tenka';
set $actor's healthmax to 100;
set $actor's health to 100;
set $actor's info to 'A long Japanese sword, who's blade pulsates with a strange blue aura';
set $actor's colour to lightsteelblue;
set $actor's extra to 'glowing brightly';
say 'msg',"The bow staff begins to deteriorate, separating into thousands of little glowing blobs of matter";
say 'msg',"the blobs of matter pull back together, reforming into an intimidating katana";
set $init_obj's host to 0;
relook $loc;
##revert:
set $actor's class to 'regular bow staff';
set $actor's name to '';
set $actor's healthmax to 20;
set $actor's health to 20;
set $actor's info to 'the craftsmanship is excellent, but it's still a simple bow staff.';
set $actor's extra to '';
set $actor's colour to darkkhaki;
say 'msg',"the sword breaks up into thousands of little glowing blobs of matter, then pulls back into it's original form, loosing it's mysterious glow.";
set $init_obj's host to 0;
relook $loc;