[dusk]

pawn Код:

if(1240 == 1)

This line of code is redudant. You don't need need the compiler to tell you that 1240 is NOT equal to 1, do you?

pawn Код:

new HeartPickup; // a global variable
new bool:IsHeartEventWinner[MAX_PLAYERS]; // a global array.

CMD:somevent(playerid,params[]) // you mentioned it should be like an event.
{
     if(IsPlayerAdmin(playerid)) // you probably don't want to let anyone create these events
     {
           SendClientMessageToAll(0xFF0000FF,"Some event has been started");
           HeartPickup = CreatePickup(1240, 1, x,y,z,-1); // change x,y,z to your positions
           IsHeartEventWinner[SelectRandomPlayer()] = true;
     }
     return 1;
} 

public OnPlayerPickUpPickup(playerid,pickupid)
{
    if(pickupid == HeartPickup) // If its the heart pickup, not some other.
    {
            if(IsHeartEventWinner[playerid] == false) 
            {
                   SendClientMessage(playerid,0xFF0000FF,"BAD");
            }
            else 
            {
                   SendClientMessage(playerid,0x00FF00FF,"Good");
                   DestroyPickup(HeartPickup);
             }
    }
}

stock SelectRandomPlayer() // I found this function in forums.
{
     new random = Random(MAX_PLAYERS);
     if(IsPlayerConnected(random))
     {
           return random;
     }
     else
     {
           SelectRandomPlayer();
     }
}