COWbrowse

You are looking at a material called encounter

This material is placed on an encountered creature by the zone material.

read the material called zone
read the command called setzone

If you want to set up a creature for random encounters. Place them in the beastiary in the appropriate zone objects. Create a new zone object if there isn't one that matches your zone name.

Reactions:

It will attack any player who arrives in the location.

It will also attack the person the zone material tells it to (via the wakes reaction).

When dead, it will unlock and drop all items wielded, worn, carried, and in inventory, setting ownership to the player that it attacked.

Created by thorn, last updated 09 Dec 2010

Code

if reacting to arrives then encarr;
if target of wakes then encwake;

##encwake:
$suddenly = (suddenly,surprisingly,uninvited);
print "[$actor] arrives $suddenly!";
$prey = '$second';
runsub encgetprey;
##encarr:
$prey = $init_obj;
runsub encgetprey;
##encgetprey:
if $prey's class ne 'player' then continue else encarr1;
##encarr1:
if $actor ne 66871 then encarr2;
##encarr2:
if $actor's health > 0 then encattack;
##encattack:
$matvals = $actor's matvals;
manipulate $matvals get encounter to $enc by 1;
manipulate $enc set lasthit to $prey by 2;
manipulate $matvals set encounter to $enc by 1;
set $actor's matvals to $matvals;
$target = $prey;
$attackdelay = 2;
runsub whyattack;
call "attack $prey",$attackdelay;

##tickloc:runsub enchealth;
##enchealth:
if $actor's health > 0 then continue else encdied;

##encdied:
$actdead = (slumps to the floor,gasps one last breath then falls,cries out in agony then is silent);
print "[$actor] $actdead.";
$material = $actor's material;
swap $material add '_decaymeat_';
swap $material take '_encounter_';
set $actor's material to $material;
set $actor's pose to 'dead';
$matvals = $actor's matvals;
manipulate $matvals get encounter to $enc by 1;
manipulate $enc get lasthit to $lasthit by 2;
$myworth = $actor's worth;
if $myworth > 0 then encreward1;
$gotitem = 0;
foreach in $loc do encreward2;
foreach in $actor do encreward3x;
if $gotitem == 1 then encreward5;
relook $loc;
##encreward1:
$yourworth = $lasthit's worth;
add $myworth to $yourworth;
set $lasthit's worth to $yourworth;
print "[$lasthit] finds $myworth pennies on [$actor]'s body.";
##encreward2:
if $for_id's host == $actor then encreward3;
##encreward3:
$compare = ",wielded by,worn by,being carried by,";
$pose = $for_id's pose;
$hosthow = $for_id's hosthow;
$hostpose = ",$pose $hosthow,";
if $compare like $hostpose then encreward3x;
##encreward3x:
if $lasthit's loc ne $for_id's loc then encreward4;
multiset $for_id = "owner='$lasthit',pwd='',host='',hosthow='',pose='',loc='$loc'";
$gotitem = 1;
##encreward4:
print "[$lasthit] searches the body of [$actor] and finds [$for_id]!";
##encreward5:
sayto $prey,"You now own everything [$actor] was carrying.";