sub EVENT_SPAWN {
quest::settimer(5, 10);
}
sub EVENT_TIMER {
if ($timer == 5) {
my @nlist = $entity_list->GetMobList();
my @badpets = (29, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 500, 501, 502, 503, 504, 505, 506, 507, 508, 509, 510, 511, 512, 513, 514,
515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 629, 630, 631, 632, 633, 634, 635, 636, 637, 638, 643, 652, 682, 683, 684, 685, 686, 687,
688, 689, 690, 691, 692, 693, 694, 695, 696, 812, 813, 814, 815, 816, 2701755, 2701756, 2701874, 2701879, 2701897, 2701957, 2702054, 2702096, 2702138, 2702383, 2702428, 2702441, 2702455, 2702456, 2702457, 2702458,
2702687, 2703111, 2703152, 2703190);
foreach my $n (@nlist){
#  if ($n->GetPetID() > 0) {
#      my $pet = $entity_list->GetMobByID($n->GetPetID());
#      for (my $i = 1; $i < 9; $i++) {
#          if ($pet->GetEquipment($i) > 0) {
#              if ($n->IsClient()) {
#                  $n->Message(15, "Your minion crumbles under the burden of the temporal anomaly in its possession.");
#              }
#              $pet->Kill();
#              last;
#          }
#      }
#      #make sure pet is still alive before continuing
#      if ($n->GetPetID() > 0) {
#          foreach my $badpetid (@badpets) {
#              if ($pet->GetNPCTypeID() == $badpetid) {
#                  $pet->Kill();
#                  last;
#              }
#          }
#      }
#  }
if($n->GetCleanName()=~/Knight/i || $n->GetCleanName()=~/Monk/i || $n->GetCleanName()=~/Fighter/i || $n->GetCleanName()=~/Savior/i || $n->GetCleanName()=~/Archer/i || $n->GetCleanName()=~/Caster/i || $n->GetCleanName()=~/Ranger/i || $n->GetCleanName()=~/Wizard/i || $n->GetCleanName()=~/Muse/i){
if ($n->IsClient()) {
#doNothing
} else {
$n->CastToNPC()->Kill();
}
}
}
}
}