if target of touch then makeacracker;

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

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