if reacting to push then isitme;
if reacting to use then isuseme;

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

##wobbleme:
$wobble = (wobbles,jumps away,cowers,squeeks,blinks at you slowly);
print "[$actor] $wobble";

##isuseme:
if $target eq $actor then useme else end;

##useme:
$how = (slowly,quickly,hapily);
$doit = (slips through your fingers,jumps on your head,does nothing);
print "[$actor] $how $doit";
print "You feel a cold chill as [$init_obj] uses [$target]";