##gives:runsub isitme;
##tickhour:runsub processcheck1;
##wxish:runsub processcheck1;

##isitme:
if $second eq $actor then checkitem else end;

##checkitem:
if $target's class like (acorn|oil) then processit else rejectit;

##processit:
say 'msg',"[$actor] start to process [$target]";

##rejectit:
set $target's loc to $loc;
say 'msg',"[$actor] rejects [$target] with a mild ping of disgust";

##processcheck1:
find $actor,acorn;
if $found_id > 0 then processcheck2 else end;

##processcheck2:
var $jar to $found_id; rem remember this id;
find $actor,oil;
if $found_id > 0 then processall else end;

##switchmeoff:
code $actor switch off; rem stop this bject from checking each hour;

##processall:
set $found_id's loc to 0; rem remove secondary obj;
set $jar's class to "jar"; rem change its name;
set $jar's extra to "of acorn flavoured paste";
set $jar's qty to 1; rem produce only one item;
var $mny to $jar's worth;
add $mny to $mny;
set $jar's worth to $mny; rem increate its worth;
set $jar's loc to $loc; rem drop produce;
say 'msg',"[$actor] produces [$jar]";
msg $loc,$actor,0,0,'force',"force:look $loc";
runsub swicthmeoff;