pLoop.inc by This

/*
        this->Looper

        Sukurta 2013
*/


#if defined OnlinePlayers
        #endinput
#endif
#if defined pLoop
        #undef pLoop
#endif

/* Kintamieji */

new DidziausiasID = 0;

/* Define */


#define OnlinePlayers DidziausiasID
#define pLoop(%0) for(new %0;%0<OnlinePlayers;%0++)

/* Forward */

forward this_OnPlayerConnect(playerid);
forward this_OnPlayerDisconnect(playerid,reason);

/* Main blockas */

public OnPlayerConnect(playerid)
{
        if(playerid != DidziausiasID) return CallLocalFunction("this_OnPlayerConnect", "i", playerid);
        DidziausiasID++;
        return CallLocalFunction("this_OnPlayerConnect", "i", playerid);
}
#if defined _ALS_OnPlayerConnect
        #undef OnPlayerConnect
#else
        #define _ALS_OnPlayerConnect
#endif
#define OnPlayerConnect this_OnPlayerConnect

public OnPlayerDisconnect(playerid,reason)
{
        if(playerid != (DidziausiasID-1)) return CallLocalFunction("this_OnPlayerDisconnect", "ii", playerid, reason);
        new count,i;
        for(; i<MAX_PLAYERS; i++) if(IsPlayerConnected(i) && i!=playerid) count=i;
        if(!count) DidziausiasID = 0;
        else DidziausiasID = (count+1);
        return CallLocalFunction("this_OnPlayerDisconnect", "ii", playerid, reason);
}
#if defined _ALS_OnPlayerDisconnect
        #undef OnPlayerDisconnect
#else
        #define _ALS_OnPlayerDisconnect
#endif
#define OnPlayerDisconnect this_OnPlayerDisconnect