##tickloc:runsub whattodo;
##whattodo:runsub makeacracher/10;

##makeacracker:
new "a peanutbutter cracker";
set $new_id's colour to $actor's colour;
set $new_id's worth to 5;
$falls = (falls,tumbles,arrives,appears,materialises,decends);
print "[$new_id] $falls from [$actor]";
relook $loc;