##examines:runsub isitme;

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

##whatitdoes:
say 'awake',"The blu-tack dinosaur suddenly comes alive.";
msg $loc,$actor,0,0,"grrr","'Grrrr' says the [$actor] angrily";