##wxish:runsub chkstomach;
##tickhour:runsub chkstomach;
##chkstomach:
rem say 'msg',"[$actor] is looking in $actor for something";
find $actor,random not player not doorway;
if $found_id > 0 then chkit else showhungry;
##showhungry:
say 'msg',"[$actor] is looking very hungry.. please give it something to eat";

##chkit:
rem say 'msg',"[$actor] is thinking about [$found_id]";
if $found_id's owner eq $actor then showhungry else convertit;

##convertit:
rem say 'msg',"[$actor] is quite intent on [$found_id]";
load $actor's memory;
var $fname to $found_id's class;
loop paste "looked in [$actor] found $found_id $fname and converted it [$found_id]";
save $actor's memory;

var $tloc to $actor's loc;
set $found_id's class to "cheese";
set $found_id's pclass to "cheese";
set $found_id's qty to 25;
set $found_id's name to "";
set $found_id's extra to "";
set $found_id's worth to 8;
set $found_id's colour to "yellow";
rem set $found_id's info to "Mmmm.. yummy goats cheese";
set $found_id's loc to $tloc;
msg $tloc,$actor,0,0,'force',"force:look";
msg $tloc,$actor,0,0,'msg',"[$actor] produces [$found_id]";

##talk:runsub talkingtome;
##talkingtome:
if $actor eq $target then startplaying else end;
##startplaying:
load $actor's memory;
loop playmsg;
##playmsg:
say 'playback',"[$actor] says '$listitem '";