##tickloc: runsub whattodo;
if reacting to wish then fidgit;
if reacting to arrives then fidgit;
if reacting to pets then petme;

##whattodo: runsub fidgit/5 or hummit/5;

##fidgit:
find $loc, random not me;
$verb to '(shrugs,squeaks,jumps,sings,sits,stands,flies,stares,purrs)';
$how to (pleasantly,playfully,roughly,annoyingly,bobbingly);
$owner = $actor's host;
print "[$actor] $verb $how at [$found_id] then returns to [$owner]";

##petme:
var $verb to (shrugs,squeaks,jumps,growls,paws,flies,stares,purrs);
var $how to (pleasantly,playfully,roughly,annoyingly,bobbingly);
print "[$actor] $verb $how at [$init_obj]";

// gardener code below that may be useful;

##weedit:
runsub gethow;
runsub getact;
find $loc, random not me;
$weedmsg = "$how $act [$found_id]";

print "[$actor] $weedmsg";


##getact:
$act = (weeds around,prunes,examines,waters,cleans up around,sweeps,adjusts,taps,squints at,examines,prods);

##gethow:
$how = (gently,methodically,carefully,gingerly,confidently,amusingly,
quietly,happily,whimsically,distractedly);

##potterme:
runsub gethow;
$move = (looks at,walks towards,ambles over to,potters around,contemplates,glances at,considers);
find $loc, random not me;
runsub getact;
getgender $found_id;
$potterit = "$how $move [$found_id] and $act $himher";

print "[$actor] $potterit";

##suggestit:
$act = (points,gestures,nods,motions,hints);
$how = (towards,at,in the direction of,to);
$msg = (Worth a try,Why not learn something?,In you go now,Thats the place to visit first,Go check it out);
$soft = (softly,quietly,gently,encouragingly);
find $loc, training shed;
print "[$actor] $act $how [$found_id] and $soft says to you '$msg'";

##hummit:
$hum = (humms,whistles,sings,ponders the weather,looks at the sky,blinks,crouches, meditates);
runsub gethow;
print "[$actor] $hum $how";