##talk:runsub isitme;

##isitme:
if $target eq $actor then whattodo;

##whattodo:
var $way to (keenly,slowly,wisely,sweetly);
var $act to (gazes at,stares at,smiles at,turns away from,glares at);
var $msg to (take those prozac pills everything will be all right now, you will be fine here you know darling, take your clothes off the surgeon is waiting for you, hurry! we have a heart case here);
say 'acts',"[$actor] $way $act [$init_obj] and says '$msg'";