Команда /leaders

[ToHanChiK]

Дело в том, что когда вводишь команду, либо ничего не пишет, либо по 5 раз одно и тоже.

cc:leaders;
{
    new zStr[3000],zVal;
    new atext[70];
    atext = "";
    zStr = "";
    format(zStr, sizeof(zStr), "{009999}Организация - Должность - Имя - Телефон\n\n{FFFFFF}");
    for(new iter=0, i=0; iter<cvector_size(PLAYERS); iter++)
    for(new id=0;id<players;id++)
    {
        if(pData[i][pFraction] && IsALeader(i) && pTemp[i][pTempLeader] == 0)
        {
            new fractionid = pData[i][pFraction] - 1;
            new frid = GetSubfractionID(fractionid);
            new subid = pData[i][pSubfraction] - 1;
            if(pData[i][pFraction] && pData[i][pSubfraction] >= 1)
            format(atext, sizeof(atext), "%s", gSubfractionName[frid][subid]);
            else if(pData[i][pFraction] && pData[i][pSubfraction] == 0)
            format(atext, sizeof(atext), "%s", gFractionName[fractionid]);
            zVal++;
        }
        if(pData[i][pFraction] && IsALeader(i) && pTemp[i][pTempLeader] == 0)
        {
            if(pTemp[i][pAFK] > 20)
              {
                format(zStr, sizeof(zStr), "%s%s - %s - %s[%d] - %d {ffa800}[AFK: %s]{FFFFFF}\n", zStr, atext,gFractionRankName[pData[i][pFraction]-1][pData[i][pRank]-1],pData[i][pNickname], i, pData[i][pPhone], Converts(pTemp[i][pAFK]));
            }
            else format(zStr, sizeof(zStr), "%s%s - %s - %s[%d] - %d\n", zStr, atext,gFractionRankName[pData[i][pFraction]-1][pData[i][pRank]-1],pData[i][pNickname], i, pData[i][pPhone]);
        }
    }
    if(!zVal) format(zStr, sizeof(zStr), "\tЛидеров нет онлайн");
    ShowPlayerDialog(playerid, dMes, DIALOG_STYLE_MSGBOX, "{FFA500}>>> {"#cWHITE"}Лидеры онлайн", zStr, "Закрыть", "");
    return 1;
}