AOE REZ

sub EVENT_SPELL_EFFECT_CLIENT {
   my @corpselist = $entity_list->GetCorpseList();
   foreach $CL (@corpselist)
   {
	my $PCL = $CL->CastToCorpse();
	next unless $PCL->IsPlayerCorpse();
	next if $PCL->IsRezzed();
	my $targid = $PCL->GetID();
	my $PCLx = $PCL->GetX();
	my $PCLy = $PCL->GetY();
	my $PCLz = $PCL->GetZ();
	my $Distance = $client->CalculateDistance($PCLx, $PCLy, $PCLz);
	next if $Distance > 100;
	quest::castspell(994,$targid);
   }
   #added a shout to this spell - you can remove if you want lol
   quest::shout("Casting Mass Resurrection!");