get $target in $loc;
if $init_obj == 51288 then demolish;

##demolish:
if $target > 0 then demolish2;
##demolish2:
print "[$init_obj] glares at [$target].";
$ray = (ray,beam,flash,gleam,shaft,sparkle,strak,stream);
$intense = (intense,burning,concentrated,extreme,exquisite,extraordinary,fierce,harsh,piercing,powerful,vehement,vivid);
$light = (light,brightness,brilliance,flare,irradiation,luminosity,radience,radiation);
$shoots = (shoots,emits,explodes,fires,launches,projects,propels,zaps);
$eyes = (eyes,eyeballs,oculars,optics,orbs);
print "Suddenly, a $ray of $intense $light $shoots from [$init_obj]'s $eyes at [$target]!";
delete $target to 0 internals $loc;
set $target's loc to 0;
set $target's code to '';
set $target's material to '';
$vanishes = (vanishes,dematerializes,dissolves,evaporates,fades out,fades away,melts away,disappears,crumbles,decays,deteriorates,fizzles out,rots away,wilts away);
$puff = (puff,flurry,gust,waft,blast);
$smoke = (smoke,brume,fog,haze,mist,murk,nebula,smog,steam);
print "[$target] $vanishes in a $puff of $smoke!";
relook $loc;