##txickloc:runsub whattodo;
##wxish:runsub whattodo;
##sxay:runsub talkback;
##talkback:
say 'reply',"[$actor] nods in your general direction and returns to his job of hunting spiders";


##whattodo:runsub moveme/6;
##moveme:
find $loc,nf8pnux;
if $found_id > 0 then delit else run;
##delit:
set $found_id's class to 'spider';
set $found_id's loc to 0;
set $found_id's pid to 'x';
var $mth to (spots,chases,grabs,hunts,spys,looks at,notices);
say 'xsay',"[$actor] $mth a spider.. and exterminates it";

runsub runit/3;

##runit:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
say 'leaves',"[$actor] runs off via [$found_id]";

clear $actor,all;
set $actor's loc to $tloc;
msg $tloc,$actor,$tlink,0,'arrives',"[$actor] runs in from [$tlink] looking for spiders";