##use:runsub dropitem;


##dropitem:
new drop;
set $new_id's colour to $actor's colour;
set $new_id's extra to "of oil";
set $new_id's info to "Suitable for both making food and lubricating machinery";
dedupe $new_id;
var $mny to $new_id's worth;
add 1 to $mny;
set $new_id's worth to $mny;
say 'msg',"[$actor] dropped [$new_id]";
msg $loc,$actor,0,0,'force',"force:look $loc";