sub EVENT_KILLED_MERIT {

    my $raid       = $entity_list->GetRaidByClient($client);
    my $grouped    = $entity_list->GetGroupByClient($client);
    my $cleankill  = $npc->GetCleanName();
    my $cleankill2 = $npc->GetCleanName() . " serverfirst";
     my $cleankill3 = $npc->GetCleanName() . " incremental";
####################################################################################################################################################################################
    if ($raid) {

        if ( !defined $qglobals{$cleankill} ) {
            $client->SetGlobal( $cleankill, 1, 5, "F" );
            $client->Message( 15, "You have executed a special kill!" );
        }

        if ( !defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3, 1, 5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }

        if ( defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3,
                $client->GetGlobal($cleankill3) + 1,
                5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }

        if ( !defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled", 1, 5, "F" );
        }

        if ( defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled",
                $client->GetGlobal("namedkilled") + 1,
                5, "F" );

        $client->SendMarqueeMessage( 15, 510, 1, 1, 3000,
            "Your raid has received credit for killing " . $cleankill . "!" );
    }
    }

####################################################################################################################################################################################
    if ($grouped) {

        if ( !defined $qglobals{$cleankill} ) {
            $client->SetGlobal( $cleankill, 1, 5, "F" );
            $client->Message( 15, "You have executed a special kill!" );
        }

        if ( !defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3, 1, 5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }

        elsif ( defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3,
                $client->GetGlobal($cleankill3) + 1,
                5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }
        if ( !defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled", 1, 5, "F" );
        }

         if ( defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled",
                $client->GetGlobal("namedkilled") + 1,
                5, "F" );

        $client->SendMarqueeMessage( 15, 510, 1, 1, 3000,
            "Your group has received credit for killing " . $cleankill . "!" );
    }
    }
####################################################################################################################################################################################
    elsif ( $raid == 0 && $grouped == 0 ) {
        if ( !defined $qglobals{$cleankill} ) {
            $client->SetGlobal( $cleankill, 1, 5, "F" );
            $client->Message( 15, "You have executed a special kill!" );
        }
        if ( !defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3, 1, 5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }

        elsif ( defined $qglobals{$cleankill3} ) {
            $client->SetGlobal( $cleankill3,
                $client->GetGlobal($cleankill3) + 1,
                5, "F" );
            $client->Message( 15,
                    "You have slain "
                  . $cleankill . " "
                  . $client->GetGlobal($cleankill3)
                  . " times!" );
        }
        if ( !defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled", 1, 5, "F" );
        }

        if ( defined $qglobals{"namedkilled"} ) {
            $client->SetGlobal( "namedkilled",
                $client->GetGlobal("namedkilled") + 1,
                5, "F" );

        }
        $client->SendMarqueeMessage( 15, 510, 1, 1, 3000,
            "You have received credit for killing " . $cleankill . "!" );
    }
}