COWbrowse

You are looking at a command called cpr

cpr {object}

If the object's material is not 'living' then this sets the material to 'living'.

If a living object's health is gone, then this restores it to 1.

For healing above 1 health, consider cast heal and there is some treasure dropped by living creatures in cow that may help you to gain health.

Reactions:
This triggers the cpr reaction. Here's an example of something you can script into an object to react:

if target of cpr then thankyou;
##thankyou:
getgender $actor;
print "[$actor] stands up, dusts $him self off, and smiles towards [$init_obj], 'Thanks mate!'";

Note: When examining, double quotes appear as " so please adjust the above code accordingly in your script.

Created by thorn, last updated 25 Dec 2010

Code

get $target in $loc;

if $target > 0 then checkmat else nosuchthing;

##checkmat:
if $target's material like _living_ then checkh else alive;
if $target's material like _decaymeat_ then stopdecay;

##nosuchthing:
sayto $init_obj,"No such thing in your location.";

##checkh:
if $target's health > 0 then notdead else reviveit;

##alive:
say 'cpr',"[$init_obj] transforms [$target] to living material";
$mat = $target's material;
swap $mat add "_living_";
set $target's material to $mat;

##notdead:
$heal = 48749;
sayto $init_obj,"[$target] is already alive. Try casting [$heal].";

##reviveit:
print "[$init_obj] performs CPR on [$target]";
set $target's health to 1;
say 'cpr',"[$target] is brought back to life.";
clear $target,all;relook $loc;

##stopdecay:
print "[$target] stops decaying.";
$material = $actor's material;
swap $material take '_decaymeat_';
set $actor's material to $material;