##gives:runsub isitme;

##isitme: if $actor eq $second then checkitem else end;
##checkitem: if $target's slot1 like "full" then giveyes else giveno;

##giveyes: say 'say',"[$actor] thanks you with a whinny and leaves you a present";
new some manure;
set $new_id's colour to 'brown';
set $new_id's slot1 to 'good';
set $new_id's worth to 15;
msg $loc,$actor,0,0,'force',"force:look $loc";

##giveno: say 'say',"[$actor] looks sadly at [$target]. it was probably not exactly what [$actor] wanted.";
set $target's loc to $loc;