$d = 3;
if target of gives then switchmeon;

##tickloc:runsub makesomething;

##switchmeon: switch $actor on;
print "[$actor] starts to process the raw materials";

##switchmeoff: switch $actor off;
print "[$actor] has run our of raw materials";

##makesomething:
find $actor random not player not doorway;
if $found_id > 0 then convertit else switchmeoff;


##convertit:
var $tmp to $found_id's class;
var $tmp to "$tmp sandwich";
set $found_id's class to "$tmp";
var $mny to $found_id's worth;
add 5 to $mny;
set $found_id's worth to $mny;
set $found_id's loc to $loc;
clear $found_id,all;
say 'create',"[$actor] created [$target]";