if target of whisper then remember else end;
if reacting to shout then whatisit;
if target of say then whatisit;
if reacting to say then whatisit;
##remember:
$init_cmd = $first;
print "[$actor] beeps, a red light flashing to show that it is armed.";
##whatisit:
if $init_cmd = $first then blowup else end;
##blowup:
foreach in $loc do checkif;
##checkif:
if $for_id's material like '_living_' then finishup else end;
##finishup:
$hlth = $for_id's health;
$hlthm = $for_id's healthmax;
take 7 from $hlth;
if $hlth < 1 then killit else continue;
##killit:
set $for_id's health = 0;
print "[$for_id] is obliterated!";
call "erase $actor";
##continue:
set $for_id's health = $hlth;
print "[$actor] explodes, sending out a massive shockwave!";
$what = (is flung against the wall, is slammed to the ground, is pelted with shrapnel, is torched by flames);
print "[$for_id] $what!";
call "erase $actor";