COWbrowse

You are looking at a material called decaymeat

This material causes an object to be infested with vermin and gradually decay until it erases itself and is gone forever.

Works with tickloc, so decay is arrested when no one is around to see it.

Blocks: tickloc,ticked,decay,zero,slightly,partly,mostly,fully,byebye,kicked,dropcoins

Note: if the corpse has some worth, and someone kicks it, then it will create a pennies object that is worth a random part of the original object's worth, while deducting its own worth. Even if there is no worth, it makes a disgusting squishy sound.

Coders: Note the use of matvals to keep a counter. If we do it this way instead of using the counter field then you can have multiple materials that don't walk over each other's counters.

Customizing
On the final decay phase, just before erasing the object, the block deathbydecay is called. Create this block in an object with this material on it to do something appropriate.

An example: read the material called leadquest

Created by thorn, last updated 25 Jun 2009

Code

if target of bounce then decaymeatkicked;

##tickloc:runsub decaymeatticked;

##decaymeatticked:
runsub decaymeatdecay/10;

##decaymeatdecay:
$matvals = $actor's matvals;
manipulate $matvals get decaymeat to $counter;
if $counter == '' then decaymeatzero;
$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,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);

print " $presubj $howmany $subj $preverb $verb $prep [$actor].";
case $counter do decaymeatslightly,decaymeatpartly,decaymeatmostly,decaymeatfully,decaymeatbyebye;
if $counter > 4 then decaymeatbyebye;
add 1 to $counter;
manipulate $matvals set decaymeat to $counter;
set $actor's matvals to $matvals;
set $actor's pose to $pose;
set $actor's colour to $colour;
relook $loc;

##decaymeatzero:
$counter = 0;

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

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

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

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

##decaymeatbyebye:
print "Bugs scurry away in all directions and [$actor] is gone without a trace.";
runsub deathbydecay;
multiset $actor = "loc=0,host=0";
relook $loc;

##decaymeatkicked:
print "[$actor] makes a rather disgusting squisky noise.";
$worth = $actor's worth;
$dropped = random $worth;
if $dropped > 0 then decaymeatdropcoins;

##decaymeatdropcoins:
$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;