if target of use then suckit;
if target of push then spewit;

##suckit:
say 'msg',"[$actor] chuggs into action";
foreach in $loc do chkit player;
say 'force',"force:look $loc";
##chkit:
clear $for_id,all;
set $for_id's loc to $actor;
say 'msg',"[$actor] sucks up [$for_id]";
if $for_id eq $init_obj then spitout else leaveit;

##spitout:
set $for_id's loc to $actor's loc;

if target of push then spewit;

##spewit:
say 'msg',"a little door opens up at the back of [$actor]";
var $dest to $actor's loc;
foreach in $actor do dropit;
say 'force',"force:look $loc";
##dropit:
var $how to (spills,tumbles,rolls,falls,walks,plops,squeezes);
set $for_id's loc to $dest;
say 'msg',"[$for_id] $how out";