COWbrowse

You are looking at a material called healingloc

Reactions
hit, say, think, wish

and heals everything in the room by 1 point up to their healthmax

classes
none

Intended use
Give this material to an object in a location where activity happens and they get healed.. the more activity in the room, the faster the healing.

Created by wolis, last updated 04 Jan 2012

Code

if reacting to hit then healsomeone;
if reacting to say then healsomeone;
if reacting to wish then healsomeone;
if reacting to think then healsomeone;

##healsomeone:
foreach in $loc do chkmax;

##chkmax:
$hlth = $for_id's health;
if $hlth < $for_id's healthmax then healthem;

##healthem:
add 1 to $hlth;
set $for_id's health to $hlth;
$feels = (feels,seems,looks,appears);
$some = (somewhat,a little,a bit,slightly);
$better = (better,healthier,happier,relieved);
print "[$for_id] feels $some $better";