##tickhour:runsub dropacorn;

##wxish:runsub dropacorn;

##dropacorn:
new acorn;
set $new_id's colour to "chocolate";
dedupe $new_id;
var $mny to $new_id's worth;
add 5 to $mny;
set $new_id's worth to $mny;
say 'msg',"[$actor] dropped [$new_id]";
msg $loc,$actor,0,0,'force',"force:look $loc";