COWbrowse

You are looking at a command called guard

guard {target}

This prevents future attacks to a living target or exit through a doorway target while you are alive.

- If the target is already in combat, you may guard them but it will only apply to further initiated attacks
- You and the target must be made of 'living' material and have some health, or the target must be an exit.
- The target must not be guarding anything
- The target must not already be guarded by anything else.
- The location must not be of material 'sanctuary'

If you want to kill a guarded object, you must kill the guard first.

Pushing a guard might allow you to then attack the target or get to the exit.

A guard at an exit does not prevent someone from entering from the other side.

When someone tries to pass through a guarded exit, the failure message includes a 'noneshallpass' reaction with target=doorway and second=guard.

Coders: click spawn then review the code for any of thje passive creature templates for a reaction example.

Created by thorn, last updated 14 Apr 2008

Code

get $target in $loc;

if $target > 0 then checkguard;

##specs:
// Criteria for allowing guard;
// room is not made of 'sanctuary';
// guardian's health > 0;
// target is player or made of 'living';
// target's health > 0;
// target is not the guardian;
// the guardian is not already guarded;

// If the above are met, then;
// The $init_obj's host,hosthow, and pose are set accordingly;
// The trigger word is 'guard' with $init_obj as the guardian and $second as the guarded.;

// The attack command will then be prevented from working on the guarded creature.;
// update: you can now attack a guarded creature but its guardian will probably attack you in return;

// Exits can be guarded and will trigger a 'noneshallpass' message with target=exit and second=guard;

##checkguard:
getgender $target;
$endtxt = "but the serenity of the room already guards $himher.";
if $loc's material = 'sanctuary' then fail else checkh;

##checkh:
$myh = $init_obj's health;
$endtxt = 'but $heshe is dead';
if $myh > 0 then findit else fail;

##findit:
getgender $target;
$endtxt = 'but $heshe is not here';
if $target > 0 then checkplay else fail;

##checkplay:
$tclass = $target's class;
if $tclass = 'player' then checkthealth else checkliv;

##checkliv:
$tmat = $target's material;
if $tmat like living then checkthealth else checkexit;

##checkexit:
$endtxt = 'but only things made of living material or exits can be guarded';
if $target's link > 0 then alreadyguard else fail;

##checkthealth:
$thealth = $target's health;
$endtxt = 'but $heshe is dead';
if $thealth > 0 then checkself else fail;

##checkself:
$endtxt = 'but that is plain silly';
if $target eq $init_obj then fail else isaguard;

##alreadyguard:
$guard is guarding before $target;
if $guard > 0 then alreadyg2 else isaguard;

##alreadyg2:
$endtxt = "but [$guard] is already guarding $himher";
if $guard's health > 0 then fail else removeg;

##removeg;
update $guard = "host=0,hosthow='',pose='dead'";
runsub isaguard;

##isaguard:
$endtxt = "but for some reason guarding a guard is not allowed.";
if $target's pose eq 'guarding' then fail else guardit;

##guardit:
say 'guard',"[$init_obj] guards [$target].";
update $actor = "host=$target,hosthow='before',pose='guarding'";
relook $loc;

##fail:
say 'noguard',"[$actor] tries to guard [$target] $endtxt";