##tickloc:runsub whattodo;
##think:runsub actout;
##whattodo:
runsub actout/5;
##actout:
find $loc,random not me;
var $typ to (hit,act);
if $typ eq "hit" then hitit else actit;

rem continue processing after seting up hit or act variables;

var $how to (clumsily,angirly,quickly,brutishly,slowly);
say 'acts',"[$actor] $how $taction [$found_id] $ping";

##hitit:
var $taction to (bashes,smashes,thumps,throws,stamps on,pummles,thwacks,biffs,kicks,punches);
var $bang to (bang1,bang2,bang3,bang4);
var $ping to "_ping $found_id,$bang,2";

##actit:
var $taction to (thinks about eating,looks bemused at,towers over,growls at,looks blankly at,says 'Me Hulk' to);
var $ping to ""; rem no ping;