sub EVENT_ATTACK {
    if ($status < 80) { ## exclude admin
        if (not defined $qglobals{"".$npc->GetCleanName()."attacked"}) {
            quest::setglobal("".$npc->GetCleanName()."attacked",1,7,"F");
        }
        else {
            quest::setglobal("".$npc->GetCleanName()."attacked",(($qglobals{$npc->GetCleanName()."attacked"}) + 1),7,"F");
        }
    }
}

sub EVENT_DEATH_COMPLETE {
    if (not defined $npc->GetGlobal("".$npc->GetCleanName()."death")) {
        $npc->SetGlobal("".$npc->GetCleanName()."death",1,7,"F");
    } else {
        $npc->SetGlobal("".$npc->GetCleanName()."kill",($npc->GetGlobal("".$npc->GetCleanName()."kill") + 1),5,"F");
    }
}

sub EVENT_KILLED_MERIT {
    my $grouped = $entity_list->GetGroupByClient($client);
    my $raid = $entity_list->GetRaidByClient($client);
    if ($raid) {
        for ($count = 0; $count < $raid->RaidCount(); $count++) {
            my $killerpc = $raid->GetMember($count);
            if ($killerpc->GetZoneID() == $zoneid) {
                if (not defined $killerpc->GetGlobal("".$npc->GetCleanName()."kill")) {
                    $killerpc->SetGlobal("".$npc->GetCleanName()."kill",1,5,"F");
                } else {
                    $killerpc->SetGlobal("".$npc->GetCleanName()."kill",($killerpc->GetGlobal("".$npc->GetCleanName()."kill") + 1),5,"F");
                }
                $killerpc->SendMarqueeMessage(15, 510, 1, 1, 3000, "Your raid received credit for killing ".$npc->GetCleanName()."!");
            }
        }
    }
    elsif ($grouped) {
        if (not defined $killerpc->GetGlobal("".$npc->GetCleanName()."kill")) {
            $killerpc->SetGlobal("".$npc->GetCleanName()."kill",1,5,"F");
        } else {
            $killerpc->SetGlobal("".$npc->GetCleanName()."kill",($killerpc->GetGlobal("".$npc->GetCleanName()."kill") + 1),5,"F");
        }
        $client->SendMarqueeMessage(15, 510, 1, 1, 3000, "Your group received credit for killing ".$npc->GetCleanName()."!");
    }
    else {
        if (not defined $killerpc->GetGlobal("".$npc->GetCleanName()."kill")) {
            $killerpc->SetGlobal("".$npc->GetCleanName()."kill",1,5,"F");
        } else {
            $killerpc->SetGlobal("".$npc->GetCleanName()."kill",($killerpc->GetGlobal("".$npc->GetCleanName()."kill") + 1),5,"F");
        }
        $client->SetGlobal("".$npc->GetCleanName()."kill",1,5,"F");
        $client->SendMarqueeMessage(15, 510, 1, 1, 3000, "You have received credit for killing "$npc->GetCleanName()"!");
    }
    if (not defined $killerpc->GetGlobal("".$npc->GetCleanName()."kill")) {
        $killerpc->SetGlobal("".$npc->GetCleanName()."kill",1,5,"F");
    } else {
        $killerpc->SetGlobal("".$npc->GetCleanName()."kill",($killerpc->GetGlobal("".$npc->GetCleanName()."kill") + 1),5,"F");
    }
}