##tickloc:runsub whattodo;
##hit:runsub mad;
##zap:runsub mad;

##whattodo:runsub transmove/3 or moveme/3 or doit;
##pets:runsub heehee;
##transmove:

##transmoveme:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
var $how to (sidles,runs,jumps,sneaks);
var $does to (jumps into something,looks around,stamps it's foot);
say 'leaves',"[$actor] $does and $how away via [$found_id]";
clear $actor,all;
say 'force',"force:look";
set $actor's loc to $tloc;
var $loc to $tloc;
say 'arrives',"[$actor] $how in from [$tlink] and $does";
say 'force',"force:look";

##moveme:
find $loc,random doorway;
call "go $found_id";

##doit:
var $words to (howls, bays at the moon, nips at you, lies down, growls)";
say 'msg',"[$actor] $words";

##mad:if $actor eq $target then madder else end;
##madder:if $init_obj's name like "superblah" then submissit else naughty;
##naughty:
call "bite $init_obj";
##submissit:
say 'msg',"[$actor] lowers its head in submission";