I'm no script jockie, so keep that in mind BUT:
I did read through the wiki again real quick and came up with a working filter method for rejecting (or selecting, your choice) pets based on npc id.
Code:
sub EVENT_SAY
{
my $mob = plugin::var('$mob');
my $npcid = $mob->GetNPCTypeID();
if($npcid < 1000)
{
quest::say("I am a pet!");
}
plugin::defaultSay();
}
With this, only pets (based on peq db distro) will respond.