get $target in $actor;
if $target's loc eq $actor then dropit else fail;
##dropit:
set $target's loc to $actor's loc;
clear $target,all;
say 'drop',"[$actor] burps up [$target]. Ew yuk!";
msg $actor,$target,$target,$second,'leaves',"[$target] dissapears";
msg $loc,$actor,0,0,'force',"force:look $loc";
msg $actor,$actor,0,0,'force',"force:look $loc";

##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'burp';
var $desc_intro to 'Click on the object you want to burp up:

';
look $actor,list;
msg $loc,$actor,$actor,0,'force',"force:look $actor,list";