##tickloc:runsub whattodo;
##wish:runsub run;

##think:runsub store;
##store:
set $actor's pocket to "A nice fresh brazil nut";
say 'msg',"[$actor] saved a nut in its pocket. look to see what it was";

##talk:runsub isitme;

##isitme: if $target eq $actor then showit else ignore;

##showit:
var $content to $actor's pocket;
say 'msg',"[$actor] shows it has '$content' in its pocket";

##whattodo:runsub run/10;

##run:
find $loc,random doorway not me;
var $dest to $found_id;

find $loc,random not doorway not me not player;
var $final to $found_id;

find $loc,random not me;
var $plyer to $found_id;

say 'act',"[$actor] heads towards [$dest]";
rem - runsub donothing - shows that this codes runs after the if reagardless of tru/falseness;


say 'act',"[$actor] runs around [$plyer], gets distracted and bumps into [$final]";

##donothing:
say 'nothing',"noting happens for a while";