public PayDay()

public PayDay()
{
    new Conta,interest;
    new rent = 0;
    for(new i = 0; i < MAX_PLAYERS; i++)
    {
        if(IsPlayerConnected(i) && !IsPlayerNPC(i))
        {
            if(PlayerInfo[i][pLevel] > 0)
            {
                if(MoneyMessage[i]==1)
                {
                    SendClientMessage(i, COLOR_LIGHTRED, "Vocк nгo pagou a sua dнvida e foi preso.");
                    GameTextForPlayer(i, "~r~Preso!", 2000, 1);
                    SetPlayerInterior(i, 6);
                    SetPlayerPos(i, 264.6288,77.5742,1001.0391);
                    PlayerInfo[i][pJailed] = 1;
                    ResetPlayerWeaponsEx(i);
                    WantedPoints[i] = 0;
                    SetPlayerWantedLevel(i, 0);
                    PlayerInfo[i][pJailTime] = 600;
                    format(gstring, sizeof(gstring), "Vocк foi preso por %d segundos.", PlayerInfo[i][pJailTime]);
                    SendClientMessage(i, COLOR_LIGHTBLUE, gstring);
                }
                new playername2[MAX_PLAYER_NAME];
                GetPlayerName(i, playername2, sizeof(playername2));
                Conta = PlayerInfo[i][pConta];
                new key = PlayerInfo[i][pPHousekey];
                if(key != 255)
                {
                    rent = HouseInfo[key][hRent];
                    if(strcmp(playername2, HouseInfo[key][hOwner], true) == 0)
                    {
                        rent = 0;
                    }
                    else if(rent > GetPlayerMoney(i))
                    {
                        PlayerInfo[i][pPHousekey] = 255;
                        SendClientMessage(i, COLOR_WHITE, "Vocк foi expulso(a).");
                        rent = 0;
                    }
                    HouseInfo[key][hTakings] = HouseInfo[key][hTakings]+rent;
                }
                new tmpintrate;
                if(PlayerInfo[i][pVIP] == 1) { tmpintrate = 3; }
                else if(PlayerInfo[i][pVIP] == 2) { tmpintrate = 4; }
                else { tmpintrate = 1; }
                if(PlayerInfo[i][pPayDay] >= 3)
                {
                    Tax += TaxValue;//Shorld work for every player online
                    PlayerInfo[i][pConta] -= TaxValue;
                    new checks = PlayerInfo[i][pSalario];
                    new ebill = (PlayerInfo[i][pConta]/30000)*(PlayerInfo[i][pLevel]);
                    ConsumingMoney[i] = 1;
                    GivePlayerMoney(i, checks);
                    if(PlayerInfo[i][pConta] > 0)
                    {
                        PlayerInfo[i][pConta] -= ebill;
                        SBizzInfo[4][sbTill] += ebill;
                    }
                    else
                    {
                        ebill = 0;
                    }
                    interest = (PlayerInfo[i][pConta]/1000)*(tmpintrate);
                    PlayerInfo[i][pExp]++;
                    PlayerPlayMusic(i);
                    PlayerInfo[i][pConta] = Conta+interest;
                    SendClientMessage(i, COLOR_WHITE, "|______________ Pagamento ______________|");
                    format(gstring, sizeof(gstring), "  Salбrio: R$%d   Imposto: -R$%d", checks, TaxValue);
                    SendClientMessage(i, COLOR_GRAD1, gstring);
                    SendClientMessage(i, COLOR_GRAD1, "  Mйdico: R$300");
                    if(PlayerInfo[i][pPHousekey] != 255 || PlayerInfo[i][pPbiskey] != 255)
                    {
                        format(gstring, sizeof(gstring), "  Energia: -R$%d", ebill);
                        SendClientMessage(i, COLOR_GRAD1, gstring);
                    }
                    format(gstring, sizeof(gstring), "  Banco: R$%d", Conta);
                    SendClientMessage(i, COLOR_GRAD1, gstring);
                    format(gstring, sizeof(gstring), "  Juros: 0.%d  por cento",tmpintrate);
                    SendClientMessage(i, COLOR_GRAD2, gstring);
                    SendClientMessage(i, COLOR_GRAD4, "|_______________________________________|");
                    format(gstring, sizeof(gstring), "  Novo extrato: R$%d", PlayerInfo[i][pConta]);
                    SendClientMessage(i, COLOR_GRAD5, gstring);
                    format(gstring, sizeof(gstring), "  Aluguel: -R$%d", rent);
                    SendClientMessage(i, COLOR_GRAD5, gstring);
                    PlayerPlaySound(i, 1185, 0.0, 0.0, 0.0);
                    format(gstring, sizeof(gstring), "~y~-==- ~g~ BPC Salario ~y~ -==-");
                    GameTextForPlayer(i, gstring, 5000, 1);
                    GivePlayerMoney(i,- 300);
                    rent = 0;
                    PlayerInfo[i][pPayDay] = 0;
                    PlayerInfo[i][pSalario] = 0;
                    PlayerInfo[i][pConnectTime] += 1;
                    pban[i] = 0;
                    if(PlayerInfo[i][pEmprego] > 0)
                    {
                        if(PlayerInfo[i][pContractTime] < 25)
                        {
                            PlayerInfo[i][pContractTime] ++;
                        }
                    }
                }
                else
                {
                    SendClientMessage(i, COLOR_LIGHTRED, "* Vocк nгo jogou tempo suficiente para receber salбrio!.");
                }
            }
        }
        new lolbagui;
        lolbagui = PlayerInfo[i][pExp];
        new nxtlevel = PlayerInfo[i][pLevel]+1;
        if(lolbagui >= nxtlevel*levelexp)
        {
            GameTextForPlayer(i, "~g~Respeito Adquirido!~n~~r~Digite /comprarnivel!", 5000, 1);
        }
    }
    OOCNews(COLOR_WHITE, "Loteria: Ja comecou a loteria.");
    new rand = random(80);
    if(rand < 77) { rand += 3; }
    Lotto(rand);
    Checkprop();
    //return 1;
}

stock strtok(const string[], &index)
{
    new length = strlen(string);
    while ((index < length) && (string[index] <= ' '))
    {
        index++;
    }
    new offset = index;
    new result[20];
    while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
    {
        result[index - offset] = string[index];
        index++;
    }
    result[index - offset] = EOS;
    return result;
}
stock strtokEx(const string[], &index)
{
    new length = strlen(string);
    while ((index < length) && (string[index] <= ' '))
    {
        index++;
    }
    new offset = index;
    new result[64];
    while ((index < length) && ((index - offset) < (sizeof(result) - 1)))
    {
        result[index - offset] = string[index];
        index++;
    }
    result[index - offset] = EOS;
    return result;
}
public split(const strsrc[], strdest[][], delimiter)
{
    new i, li;
    new aNum;
    new len;
    while(i <= strlen(strsrc)){
        if(strsrc[i]==delimiter || i==strlen(strsrc)){
            len = strmid(strdest[aNum], strsrc, li, i, 128);
            strdest[aNum][len] = 0;
            li = i+1;
            aNum++;
        }
        i++;
    }
    return 1;
}
public OnPlayerRegister(playerid, password[])
{
    if(IsPlayerConnected(playerid))
    {
            new string3[64];
            new playername3[MAX_PLAYER_NAME];
            GetPlayerName(playerid, playername3, sizeof(playername3));
            format(string3, sizeof(string3), "Players/%s.ini", playername3);
            new File: hFile = fopen(string3, io_write);
            if (hFile)
            {
                strmid(PlayerInfo[playerid][pKey], password, 0, strlen(password), 255);
                new var[32];
                format(var, 32, "Key=%s\n", PlayerInfo[playerid][pKey]);fwrite(hFile, var);
                PlayerInfo[playerid][pCash] = GetPlayerMoney(playerid);
                format(var, 32, "Level=%d\n",PlayerInfo[playerid][pLevel]);fwrite(hFile, var);
                format(var, 32, "AdminLevel=%d\n",PlayerInfo[playerid][pAdmin]);fwrite(hFile, var);
                format(var, 32, "DonateRank=%d\n",PlayerInfo[playerid][pVIP]);fwrite(hFile, var);
                format(var, 32, "UpgradePoints=%d\n",PlayerInfo[playerid][gPupgrade]);fwrite(hFile, var);
                format(var, 32, "ConnectedTime=%d\n",PlayerInfo[playerid][pConnectTime]);fwrite(hFile, var);
                format(var, 32, "Registered=%d\n",PlayerInfo[playerid][pReg]);fwrite(hFile, var);
                format(var, 32, "Sex=%d\n",PlayerInfo[playerid][pSex]);fwrite(hFile, var);
                format(var, 32, "Muted=%d\n",PlayerInfo[playerid][pMuted]);fwrite(hFile, var);
                format(var, 32, "Respect=%d\n",PlayerInfo[playerid][pExp]);fwrite(hFile, var);
                format(var, 32, "Money=%d\n",PlayerInfo[playerid][pCash]);fwrite(hFile, var);
                format(var, 32, "Bank=%d\n",PlayerInfo[playerid][pConta]);fwrite(hFile, var);
                format(var, 32, "Crimes=%d\n",PlayerInfo[playerid][pCrimes]);fwrite(hFile, var);
                format(var, 32, "Kills=%d\n",PlayerInfo[playerid][pKills]);fwrite(hFile, var);
                format(var, 32, "Deaths=%d\n",PlayerInfo[playerid][pDeaths]);fwrite(hFile, var);
                format(var, 32, "Phonebook=%d\n",PlayerInfo[playerid][pPhoneBook]);fwrite(hFile, var);
                format(var, 32, "LottoNr=%d\n",PlayerInfo[playerid][pLottoNr]);fwrite(hFile, var);
                format(var, 32, "Fishes=%d\n",PlayerInfo[playerid][pFishes]);fwrite(hFile, var);
                format(var, 32, "BiggestFish=%d\n",PlayerInfo[playerid][pBiggestFish]);fwrite(hFile, var);
                format(var, 32, "Emprego=%d\n",PlayerInfo[playerid][pEmprego]);fwrite(hFile, var);
                format(var, 32, "Paycheck=%d\n",PlayerInfo[playerid][pSalario]);fwrite(hFile, var);
                format(var, 32, "HeadValue=%d\n",PlayerInfo[playerid][pHeadValue]);fwrite(hFile, var);
                format(var, 32, "Jailed=%d\n",PlayerInfo[playerid][pJailed]);fwrite(hFile, var);
                format(var, 32, "JailTime=%d\n",PlayerInfo[playerid][pJailTime]);fwrite(hFile, var);
                format(var, 32, "Materiais=%d\n",PlayerInfo[playerid][pMats]);fwrite(hFile, var);
                format(var, 32, "Maconha=%d\n",PlayerInfo[playerid][pDrogas]);fwrite(hFile, var);
                format(var, 32, "Cocaina=%d\n",PlayerInfo[playerid][pDrogas2]);fwrite(hFile, var);
                format(var, 32, "Crack=%d\n",PlayerInfo[playerid][pDrogas3]);fwrite(hFile, var);
                format(var, 32, "Lider=%d\n",PlayerInfo[playerid][pLider]);fwrite(hFile, var);
                format(var, 32, "Member=%d\n",PlayerInfo[playerid][pMembro]);fwrite(hFile, var);
                format(var, 32, "Rank=%d\n",PlayerInfo[playerid][pCargo]);fwrite(hFile, var);
                format(var, 32, "Char=%d\n",PlayerInfo[playerid][pSkin]);fwrite(hFile, var);
                format(var, 32, "ContractTime=%d\n",PlayerInfo[playerid][pContractTime]);fwrite(hFile, var);
                format(var, 32, "DetSkill=%d\n",PlayerInfo[playerid][pDetSkill]);fwrite(hFile, var);
                format(var, 32, "SexSkill=%d\n",PlayerInfo[playerid][pSexSkill]);fwrite(hFile, var);
                format(var, 32, "BoxSkill=%d\n",PlayerInfo[playerid][pBoxSkill]);fwrite(hFile, var);
                format(var, 32, "LawSkill=%d\n",PlayerInfo[playerid][pLawSkill]);fwrite(hFile, var);
                format(var, 32, "MechSkill=%d\n",PlayerInfo[playerid][pMechSkill]);fwrite(hFile, var);
                format(var, 32, "NewsSkill=%d\n",PlayerInfo[playerid][pNewsSkill]);fwrite(hFile, var);
                format(var, 32, "DrogasSkill=%d\n",PlayerInfo[playerid][pDrogasSkill]);fwrite(hFile, var);
                format(var, 32, "CookSkill=%d\n",PlayerInfo[playerid][pCookSkill]);fwrite(hFile, var);
                format(var, 32, "FishSkill=%d\n",PlayerInfo[playerid][pFishSkill]);fwrite(hFile, var);
                format(var, 32, "pSHealth=%.1f\n",PlayerInfo[playerid][pSHealth]);fwrite(hFile, var);
                format(var, 32, "Team=%d\n",PlayerInfo[playerid][pTeam]);fwrite(hFile, var);
                format(var, 32, "PhoneNr=%d\n",PlayerInfo[playerid][pPnumber]);fwrite(hFile, var);
                format(var, 32, "House=%d\n",PlayerInfo[playerid][pPHousekey]);fwrite(hFile, var);
                format(var, 32, "Bizz=%d\n",PlayerInfo[playerid][pPbiskey]);fwrite(hFile, var);
                format(var, 32, "Spawn=%d\n",PlayerInfo[playerid][pSpawn]);fwrite(hFile, var);
                format(var, 32, "SafeMaconha=%d\n",PlayerInfo[playerid][pSafeDrogas]);fwrite(hFile, var);
                format(var, 32, "SafeCocaina=%d\n",PlayerInfo[playerid][pSafeDrogas2]);fwrite(hFile, var);
                format(var, 32, "SafeCrack=%d\n",PlayerInfo[playerid][pSafeDrogas3]);fwrite(hFile, var);
                format(var, 32, "NivelProcurado=%d\n",WantedPoints[playerid]);fwrite(hFile, var);
                format(var, 32, "SafeMateriais=%d\n",PlayerInfo[playerid][psMats]);fwrite(hFile, var);
                if ((PlayerInfo[playerid][pPos_x]==0.0 && PlayerInfo[playerid][pPos_y]==0.0 && PlayerInfo[playerid][pPos_z]==0.0))
                {
                    PlayerInfo[playerid][pPos_x] = 1684.9;
                    PlayerInfo[playerid][pPos_y] = -2244.5;
                    PlayerInfo[playerid][pPos_z] = 13.5;
                }
                if(Spectate[playerid] != 255)
                {
                    PlayerInfo[playerid][pPos_x] = Unspec[playerid][sPx];
                    PlayerInfo[playerid][pPos_y] = Unspec[playerid][sPy];
                    PlayerInfo[playerid][pPos_z] = Unspec[playerid][sPz];
                    PlayerInfo[playerid][pInt] = Unspec[playerid][sPint];
                    PlayerInfo[playerid][pLocal] = Unspec[playerid][sLocal];
                }
                format(var, 32, "Pos_x=%.1f\n",PlayerInfo[playerid][pPos_x]);fwrite(hFile, var);
                format(var, 32, "Pos_y=%.1f\n",PlayerInfo[playerid][pPos_y]);fwrite(hFile, var);
                format(var, 32, "Pos_z=%.1f\n",PlayerInfo[playerid][pPos_z]);fwrite(hFile, var);
                format(var, 32, "CarLic=%d\n",PlayerInfo[playerid][pCarLic]);fwrite(hFile, var);
                format(var, 32, "FlyLic=%d\n",PlayerInfo[playerid][pFlyLic]);fwrite(hFile, var);
                format(var, 32, "BoatLic=%d\n",PlayerInfo[playerid][pBoatLic]);fwrite(hFile, var);
                format(var, 32, "FishLic=%d\n",PlayerInfo[playerid][pFishLic]);fwrite(hFile, var);
                format(var, 32, "GunLic=%d\n",PlayerInfo[playerid][pGunLic]);fwrite(hFile, var);
                format(var, 32, "PayDay=%d\n",PlayerInfo[playerid][pPayDay]);fwrite(hFile, var);
                format(var, 32, "CDPlayer=%d\n",PlayerInfo[playerid][pCDPlayer]);fwrite(hFile, var);
                format(var, 32, "Wins=%d\n",PlayerInfo[playerid][pWins]);fwrite(hFile, var);
                format(var, 32, "Loses=%d\n",PlayerInfo[playerid][pLoses]);fwrite(hFile, var);
                format(var, 32, "AlcoholPerk=%d\n",PlayerInfo[playerid][pAlcoholPerk]);fwrite(hFile, var);
                format(var, 32, "DrugPerk=%d\n",PlayerInfo[playerid][pDrugPerk]);fwrite(hFile, var);
                format(var, 32, "MiserPerk=%d\n",PlayerInfo[playerid][pMiserPerk]);fwrite(hFile, var);
                format(var, 32, "PainPerk=%d\n",PlayerInfo[playerid][pPainPerk]);fwrite(hFile, var);
                format(var, 32, "TraderPerk=%d\n",PlayerInfo[playerid][pTraderPerk]);fwrite(hFile, var);
                format(var, 32, "Tutorial=%d\n",PlayerInfo[playerid][pTut]);fwrite(hFile, var);
                format(var, 32, "Avisos=%d\n",PlayerInfo[playerid][pWarns]);fwrite(hFile, var);
                format(var, 32, "Married=%d\n",PlayerInfo[playerid][pMarried]);fwrite(hFile, var);
                format(var, 32, "MarriedTo=%s\n",PlayerInfo[playerid][pMarriedTo]);fwrite(hFile, var);
                format(var, 32, "Luta=%d\n",PlayerInfo[playerid][pLuta]);fwrite(hFile, var);
                format(var, 32, "Dorgado=%d\n",PlayerInfo[playerid][pDorgado]);fwrite(hFile, var);
                format(var, 32, "Dorgado2=%d\n",PlayerInfo[playerid][pDorgado2]);fwrite(hFile, var);
                format(var, 32, "Doenca=%d\n",PlayerInfo[playerid][pDoenca]);fwrite(hFile, var);
                format(var, 32, "Creditos=%d\n",PlayerInfo[playerid][pCreditos]);fwrite(hFile, var);
                format(var, 32, "LU=%s\n",PlayerInfo[playerid][pLastLogin]);fwrite(hFile, var);
                format(var, 32, "Gun1=%d\n", PlayerInfo[playerid][pGun1]);fwrite(hFile, var);
                format(var, 32, "Gun2=%d\n", PlayerInfo[playerid][pGun2]);fwrite(hFile, var);
                format(var, 32, "Gun3=%d\n", PlayerInfo[playerid][pGun3]);fwrite(hFile, var);
                format(var, 32, "Gun4=%d\n", PlayerInfo[playerid][pGun4]);fwrite(hFile, var);
                format(var, 32, "Gun5=%d\n", PlayerInfo[playerid][pGun5]);fwrite(hFile, var);
                format(var, 32, "Gun6=%d\n", PlayerInfo[playerid][pGun6]);fwrite(hFile, var);
                format(var, 32, "Gun7=%d\n", PlayerInfo[playerid][pGun7]);fwrite(hFile, var);
                format(var, 32, "Gun8=%d\n", PlayerInfo[playerid][pGun8]);fwrite(hFile, var);
                format(var, 32, "Gun9=%d\n", PlayerInfo[playerid][pGun9]);fwrite(hFile, var);
                format(var, 32, "Gun10=%d\n", PlayerInfo[playerid][pGun10]);fwrite(hFile, var);
                format(var, 32, "Gun11=%d\n", PlayerInfo[playerid][pGun11]);fwrite(hFile, var);
                format(var, 32, "Gun12=%d\n", PlayerInfo[playerid][pGun12]);fwrite(hFile, var);
                format(var, 32, "Ammo1=%d\n", PlayerInfo[playerid][pAmmo1]);fwrite(hFile, var);
                format(var, 32, "Ammo2=%d\n", PlayerInfo[playerid][pAmmo2]);fwrite(hFile, var);
                format(var, 32, "Ammo3=%d\n", PlayerInfo[playerid][pAmmo3]);fwrite(hFile, var);
                format(var, 32, "Ammo4=%d\n", PlayerInfo[playerid][pAmmo4]);fwrite(hFile, var);
                format(var, 32, "Ammo5=%d\n", PlayerInfo[playerid][pAmmo5]);fwrite(hFile, var);
                format(var, 32, "Ammo6=%d\n", PlayerInfo[playerid][pAmmo6]);fwrite(hFile, var);
                format(var, 32, "Ammo7=%d\n", PlayerInfo[playerid][pAmmo7]);fwrite(hFile, var);
                format(var, 32, "Ammo8=%d\n", PlayerInfo[playerid][pAmmo8]);fwrite(hFile, var);
                format(var, 32, "Ammo9=%d\n", PlayerInfo[playerid][pAmmo9]);fwrite(hFile, var);
                format(var, 32, "Ammo10=%d\n", PlayerInfo[playerid][pAmmo10]);fwrite(hFile, var);
                format(var, 32, "Ammo11=%d\n", PlayerInfo[playerid][pAmmo11]);fwrite(hFile, var);
                format(var, 32, "Ammo12=%d\n", PlayerInfo[playerid][pAmmo12]);fwrite(hFile, var);
                fclose(hFile);
            }
            SendClientMessage(playerid, 0x33FF00FF, "[BPC]: Vocк agora pode digitar /logar <senha>");
            ShowPlayerDialog(playerid, 1, DIALOG_STYLE_INPUT, "Brasil Play Cryme v1.0", "Bem Vindo ao Brasil Play Cryme\nDigite sua Senha para Logar!!!", "Logar", "Esperar");
    }
    return 1;
}

SetTimer("PayDay", 5000, true); //Troque o 5000 pelo tempo que passarб atй que vocк rebeceba o prуximo PayDay. Nota:  1000 = 1 segundo.