##tickhour:
runsub whattodo4;
##whattodo4:
runsub justdied;
##tickloc:runsub ticked;
##ticked:
if $actor's health > 0 then alive else dead;
##alive:
$weapon is wielded by $actor;
if $weapon > 0 then keepweap else getweap;
$pose = $actor's pose;
if $pose eq 'guarding' then setguard else checkguard;
##dead:
if $actor's counter < 1 then justdied;
$cnt = $actor's counter;
add 1 to $cnt;
set $actor's counter to $cnt;
if $actor's counter > 50 then respawn;
##justdied:
say 'wins4',"[$actor] disintegrates.";
if $weapon > 0 then wipeweap;
set $actor's loc to 0;
relook $loc;
##wipeweap:
print "[$weapon] is obliterated.";
set $weapon's loc to 0;
##keepweap:
if $actor's slot2 ne $weapon then keepweap2;

##keepweap2:
set $actor's slot2 to $weapon;
say 'msg',"[$actor] looks at [$weapon] and grins wickedly";

##getweap:
$weapon = $actor's slot2;
if $weapon > 0 then getweap2;

##getweap2:
if $weapon's loc eq $actor's loc then wieldit else whereisit;

##wieldit:
call "wield $weapon";

##whereisit:
say 'msg',"[$actor] looks around the room for [$weapon] but can't see it.";
set $actor's slot2 to '';