if target of examines then lesshealth;

##lesshealth:
$hth = $init_obj's health;
take 1 from $hth;
set $init_obj's health = $hth;
print "[$init_obj] is feeling a little queezy now";
print "[$init_obj] . o 0 ( Maybe that was not a good idea)";