if target of bounce then kicked;
##tickloc:
runsub checkdead;
##tickhour('tick30',30,'%Y%m%d%H%i'):runsub ticked;

##ticked:
runsub decay;

##checkdead:
if $actor's health < 1 then dodead else end;
##dodead:
print "[$actor] crumples without a sound.";
set $actor's material to '_corpse_';
code $actor as 52819;
##decay:
$counter = $actor's counter;
$presubj = (You see,You notice,You discover,You glance over and);
$howmany = (some,a few,several);
$subj = (insects,worms,beetles,roaches,maggots);
$preverb = (begin,are,as they begin,work at,are busily);
$verb = (eating,biting,crawling,having a banquet,feasting,chewing,feeding,gorging,grazing,munching,nibbling,scarfing,snacking,wriggling,crawling);
$prep = (on,around,over,throughout,at,within);

say 'msg'," $presubj $howmany $subj $preverb $verb $prep [$actor].";
case $counter do slightly,partly,mostly,fully,byebye;
add 1 to $counter;
set $actor's counter to $counter;
set $actor's pose to $pose;
set $actor's colour to $colour;
relook $loc;

##slightly:
$pose = "slightly decayed";
$colour = "lightgrey";

##partly:
$pose = "partly decayed";
$colour = "lightseagreen";

##mostly:
$pose = "mostly decayed";
$colour = "seagreen";

##fully:
$pose = "fully decayed";
$colour = "brown";

##byebye:
print "Bugs scurry away in all directions and [$actor] is gone without a trace.";
set $actor's loc to 0;
set $actor's code to ";
relook $loc;
switch $actor off;

##kicked:
$worth = $actor's worth;
$dropped = random $worth;
if $dropped > 0 then dropcoins;

##dropcoins:
$name = 'penny';
new $name;
set $new_id's qty to $dropped;
set $new_id's worth to $dropped;
set $new_id's loc to $loc;
set $new_id's host to $actor;
set $new_id's hosthow to 'near';
take $dropped from $worth;
set $actor's worth to $worth;
say 'msg',"[$new_id] are knocked out of [$actor].";
relook $loc;