COWbrowse

You are looking at a remote mine

to set the mine:
say {keyword} to {mine's obj_id}
replace {keyword} with what you want the mine to react to
replace {mine's obj_id} with this remote mine's object id
say or shout your word again to cause the mine to explode

Created by omenofdoom, last updated 09 Mar 2008

Code

##say:
runsub remember;
if reacting to shout then whatisit;

##remember:
set $actor's keyword to $init_msg;
print "[$actor] beeps, a red light flashing to show that it is armed.";

##whatisit:
if $init_msg = $actor's keyword 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]";