COWbrowse

You are looking at a hedgehog

Created by Josh, last updated 04 Jan 2012

Code

##use:runsub isitme;

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

##patit:
say 'sound',"[$init_obj] pats [$actor]";

say 'sound',"[$init_obj] screams in pain 'AAAAAAAAAAAAAAAA'";