COWbrowse

You are looking at a material called friend

This material allows players to keep a list of friends, enemies, and arch-enemies

Reactions:

wakes - if waking object is set as enemy or kos then show the appropriate warning.

sleeps - if sleeping object is set as enemy or kos then show the appropriate warning.

arrives - if arriving object is set as kos then attack it

Customizing your attack
if you want to, you can script yourself with a whyattack block, where you can say something and set a delay (in seconds) before you automatically attack someone you set as kos.

Example:

##whyattack:
print "[$actor] glares at [$init_obj] and says, 'You have angered me too many times, prepare to die!'";
$attackdelay = 10;

note: in the above code double quotes appear as " so you will have to adjust your code as needed.

Also think what would happen if I called roam within my whyattack block?...

Related:

read the command called setfriend

Created by thorn, last updated 12 May 2007

Code

if reacting to wakes then checkwaker;
if reacting to sleeps then checksleeper;
if reacting to arrives then checkarriver;

##checkwaker:
runsub getvalues;
if $type == friend then detectfriend;
if $type == enemy then detectenemy;
if $type == kos then detectkos;
##detectfriend:
print "[$actor] senses a friend in the midst";
##detectenemy:
print "[$actor] senses an enemy in the midst";
##detectkos:
print "[$actor] senses an arch-enemy in the midst";

##checksleeper:
runsub getvalues;
if $type == friend then byefriend;
if $type == enemy then byeenemy;
if $type == kos then byekos;
##byefriend:
print "[$actor] no longer senses a friend in the midst";
##byeenemy:
print "[$actor] no longer senses an enemy in the midst";
##byekos:
print "[$actor] no longer senses an arch-enemy in the midst";

##checkarriver:
runsub getvalues;
if $type == kos then attackit;
##attackit:
$attackdelay = 0;
runsub whyattack;
call "attack $init_obj",$attackdelay;

##getvalues:
$fobj = "f$init_obj";
$matvals = $actor's matvals;
manipulate $matvals get friend to $friend;
manipulate $friend get $fobj to $type by 2;