##gives:runsub giveme;

##giveme:if $actor eq $second then takeit else end;

##takeit:
var $how to (hungrily,quickly,greedily,slowly,happily,bewilderingly,facinatingly,amazingly);
say 'gets',"[$actor] $how eats [$target]";
var $stomach to $actor's stomach;
add 1 to $stomach;
set $actor's stomach to $stomach;
if $actor's stomach > 3 then throwup else end;

##throwup:
set $actor's stomach to 0;
say 'acts',"[$actor] looks rather bloated and sick";
foreach in $actor do throwit;

##throwit:
if $for_id's owner > 0 then dropit else end;

##dropit:
set $for_id's loc to $actor's loc;
var $how to (slightly,mostly,moderately,completely,shockingly,only just,recently);
var $chewed to (chewed,mauled,digested,covered in bite marks,mastercated,disintegrated,mushed);
set $for_id's extra to "which is $how $chewed";
say 'drops',"[$actor] throws up [$for_id]";