##examines:runsub isitme;
##push:runsub isitme;
##use:runsub isitme;
##tickhour:runsub zapit;


##isitme:
if $actor eq $target then zapit else end;

##zapit:
var $noise to (humms,buzzes,clicks,whirrs,jiggles,jumps,expands,shinks,spins,clunks);
var $how to (loudly,ominously,strangely,quietly,silently,faintly,for your amusement);
say "msg","[$actor] humms $how";
find $loc, random player;
call "zap $found_id";