if reacting to arrives then checkit;
##checkit:
$desc = $actor's extra;
if $init_obj's name = '$desc' then doit else end;
##doit:
print "[$actor] explodes in a massive fireball!";
foreach in $loc do blowup player;
##blowup:
$hlth = $for_id's health;
take 5 from $hlth;
set $for_id's health = $hlth;
print "[$for_id] is blasted by shrapnel!";
set $actor's code to '';
set $actor's info to 'This mine has already been detonated';