if target of examines then examineme;

##examineme:
$color = (purple,orange,black,red,yellow,blue,green);
$gas = (gas,steam,vapor,mist);
print "[$init_obj] stares as [$actor] gives off a $color $gas.";