Custom Illusion for single pet

[Nydosa]

Made this quest for beastlord's "pepic 2.0" on my server...allows you to customize a pet's race by the existing pet races. This will keep lower level beastlord pets the same, but give some jazz to the higher level pet. Save in Global file as the ID.pl number of the pet's npc ID.

#script for Epic bst pet

sub EVENT_SPAWN
{
my $NPCRace = $npc->GetRace();
if($NPCRace == 76){quest::npcrace(439);quest::npctexture(3);quest ::npcsize(18);} #Woodelf
if($NPCRace == 163){quest::npcrace(609);quest::npctexture(1);ques t::npcsize(7);} #Dwarf
if($NPCRace == 232){quest::npcrace(482);quest::npctexture(1);ques t::npcsize(15);} #Darkelf
if($NPCRace == 50){quest::npcrace(348);quest::npctexture(1);quest ::npcsize(8);quest::npcgender(2);} #Human
if($NPCRace == 87){quest::npcrace(559);quest::npctexture(0);quest ::npcsize(10);} #Halfling
if($NPCRace == 63){quest::npcrace(390);quest::npctexture(0);quest ::npcsize(5);} #Halfelf
if($NPCRace == 83){quest::npcrace(389);quest::npctexture(0);quest ::npcsize(7);} #Troll
if($NPCRace == 41){quest::npcrace(560);quest::npctexture(0);quest ::npcsize(8);} #Ogre
if($NPCRace == 43){quest::npcrace(415);quest::npctexture(4);quest ::npcsize(32);} #Barbarian
if($NPCRace == 42){quest::npcrace(611);quest::npctexture(1);quest ::npcsize(10);quest::npcgender(2);} #Iksar
}



sub EVENT_SAY{
my $NPCRace = $npc->GetRace();
if($text=~/Hail/i){plugin::Whisper("Tell me to [change] and I will return to my normal form.");}
if($text=~/change/i){
if($NPCRace == 439){quest::npcrace(76);quest::npctexture(3);quest ::npcsize(15.3);} #Woodelf
if($NPCRace == 76){quest::npcrace(439);quest::npctexture(3);quest ::npcsize(18);} #Woodelf
if($NPCRace == 609){quest::npcrace(163);quest::npctexture(1);ques t::npcsize(9);} #Dwarf
if($NPCRace == 163){quest::npcrace(609);quest::npctexture(1);ques t::npcsize(7);} #Dwarf
if($NPCRace == 482){quest::npcrace(232);quest::npctexture(0);ques t::npcsize(7.2);} #Darkelf
if($NPCRace == 232){quest::npcrace(482);quest::npctexture(1);ques t::npcsize(15);} #Darkelf
if($NPCRace == 348){quest::npcrace(50);quest::npctexture(0);quest ::npcsize(15.3);quest::npcgender(0);} #Human
if($NPCRace == 50){quest::npcrace(348);quest::npctexture(1);quest ::npcsize(8);quest::npcgender(2);} #Human
if($NPCRace == 559){quest::npcrace(87);quest::npctexture(0);quest ::npcsize(18);} #Halfling
if($NPCRace == 87){quest::npcrace(559);quest::npctexture(0);quest ::npcsize(10);} #Halfling
if($NPCRace == 390){quest::npcrace(63);quest::npctexture(0);quest ::npcsize(7.2);} #Halfelf
if($NPCRace == 63){quest::npcrace(390);quest::npctexture(0);quest ::npcsize(5);} #Halfelf
if($NPCRace == 389){quest::npcrace(83);quest::npctexture(0);quest ::npcsize(22.5);} #Troll
if($NPCRace == 83){quest::npcrace(389);quest::npctexture(0);quest ::npcsize(7);} #Troll
if($NPCRace == 560){quest::npcrace(41);quest::npctexture(0);quest ::npcsize(12);} #Ogre
if($NPCRace == 41){quest::npcrace(560);quest::npctexture(1);quest ::npcsize(8);} #Ogre
if($NPCRace == 415){quest::npcrace(43);quest::npctexture(2);quest ::npcsize(9);} #Barbarian
if($NPCRace == 43){quest::npcrace(415);quest::npctexture(4);quest ::npcsize(32);} #Barbarian
if($NPCRace == 611){quest::npcrace(356);quest::npctexture(1);ques t::npcsize(13.5);quest::npcgender(2);quest::npcfea ture("face", 0);} #Iksar
if($NPCRace == 356){quest::npcrace(611);quest::npctexture(1);ques t::npcsize(10);quest::npcgender(2);} #Iksar
}
}