##ticxkhour2:runsub whattodo;
##whattodo: runsub moveme;
##txickloc:runsub tooslow;
##tooslow:
find $loc, random player;
say 'msg',"[$actor] turns towards [$found_id] and hisses";
say 'msg',"You feel very afraid";
say 'msg',"[$actor] rushes at [$found_id]";
var $prey to $found_id;
runsub dragitback;
##dragitback:
say 'actn',"[$actor] leaps on [$prey]!";
var $how to (dragged, carried, pulled);
var $who to ([$actor]);
var $dest to 34847;
say 'leaves',"[$actor] slams [$prey] into a wall and they pass out! [$prey] is $how by [$who] to [$dest]";
clear $prey,all;
set $prey's loc to $dest;
var $loc to $dest;
say 'arrives',"[$prey] wakes up and finds that they are plastered to a wall by some odd substance";
say 'msg',"A C.C. employee walks up to [$prey], frees them, and apologises: 'Err, sorry about that, but our efforts to tame them aren't perfect yet, I suggest you teleport out unless you want to be put back here'";
say 'msg',"The C.C. employee vanishes";
say 'force',"force:look";
##moveme:
find $loc, random doorway;
var $nogozone to 3531;
var $noentryzeone to 34845;
say 'msg',"[$actor] looks at [$found_id]";
if $found_id eq $nogozone or $noentryzone then end else golocation;
##golocation:
call "go $found_id";