##tickloc:runsub whattodo;
##whattodo:
runsub actit/3;
##actit:
find $loc,random not me;
var $how to (quickly,slyly,rapidly,methodically,carfully,astonishingly);
var $this_action to (jumps over,jumps on,hides behind,spins a web on,looks at,tries to punch,takes a picture of,laughs at);
var $ring to (ring1,ring2,ring3);
say 'acts',"[$actor] $how $this_action [$found_id] _ping $found_id,$ring,2";