##tickloc: runsub whattodo;
if reacting to wish then weedit;
if reacting to arrives then suggestit;
if reacting to newuser then suggestit;

##whattodo: runsub weedit/5 or potterme/5 or suggestit/3 or hummit/5;

##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?,That's the place to visit first.,Check out what's in there.);
$soft = (softly,quietly,gently,encouragingly);
find $loc, training shed;
print "[$actor] $act $how [$found_id] and $soft says to you '$msg'";

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