if target of touch then whoisit;

##whoisit:
if $init_obj's name like ("omenofdoom,wolis,thorn,Chaotic Bob") then openup else hurtit;

##openup:
$tloc = 57116;
$d = 3;
relocate $init_obj to $tloc print "[$actor] looks down at [$init_obj] and a blinding light envelopes them" then "A bright mist gathers, and as it clears [$init_obj] comes into view";

##hurtit:
print "[$actor]'s eyes glow brightly";
print "Beams of energy shoot from [$actor]'s eyes toward [$init_obj]!";
$hlth = $init_obj's health;
$mhlth = $init_obj's healthmax;
if $hlth < 1 then deadit else continue;

##deadit:
print "[$init_obj] collapses under the intense beams!";
set $hlth = 0;
set $init_obj's health = $hlth;

##continue:
take 5 from $hlth;
print "[$init_obj] is blasted back against the wall!";
set $init_obj's health = $hlth;
print "The glow from [$actor]'s eyes fades";