##evil:
$arg = $actor's colour;
cycle $arg through (red,darkred,firebrick);
set $actor's colour to "$arg";
relook $loc;
print "[$actor] glares at $init_obj contemptibly";
hehehe I are breaking roolz
-Chaotic Bob