if target of pets then purrr;##purrr:$sound = (purrs,growls,numbles something,blinks,laughs);print "[$actor] silently $sound";