##drop: runsub sniffit;
##sniffit:
say 'msg',"[$actor] sniffs [$target]";
var $dest to $actor's loc;
if $target's name like "cheese" then eatit else ignoreit;

##eatit:
say 'msg',"[$actor wants to eat [$target]";


##use:runsub isitme;

##isitme:
if $actor eq $target then purrit else end;

##purrit:
var $how to (loudly,quetly,softly,satanicly,saintly);
var $ting to (bites you,purrrrrs,meows,screetches);
say 'actn',"[$actor] $ting very $how";