Global $nAnunturi = $aSerial[2]

        Global $intervalAnunturi = $server_delay / $nAnunturi ; in minute

        $lastRun = GetLastRun()
        $lastAnunt = $lastRun[2]
        $lTimp = $lastRun[1]
        $now = time()
        $diferenta = $now - $lTimp

        For $i = 1 to $nAnunturi

            ; cream submeniu
            Switch $i
                Case 1
                    Global $lastSub = TrayCreateMenu("Anunturi: 1-10")
                Case 11
                    Global $lastSub = TrayCreateMenu("Anunturi: 11-20")
                Case 21
                    Global $lastSub = TrayCreateMenu("Anunturi: 21-30")
                Case 31
                    Global $lastSub = TrayCreateMenu("Anunturi: 31-40")
                Case 41
                    Global $lastSub = TrayCreateMenu("Anunturi: 41-50")
                Case 51
                    Global $lastSub = TrayCreateMenu("Anunturi: 51-75")
                Case 76
                    Global $lastSub = TrayCreateMenu("Anunturi: 76-100")
                Case 101
                    Global $lastSub = TrayCreateMenu("Anunturi: 101-125")
                Case 126
                    Global $lastSub = TrayCreateMenu("Anunturi: 126-150")
                Case 151
                    Global $lastSub = TrayCreateMenu("Anunturi: 151-200")
            EndSwitch

            Assign("lab" & $i, TrayCreateItem(Eval("nume" & $i), $lastSub), 2)
            Assign("timer_" & $i, TimerInit(), 2)

            ; daca diferenta de timp dintre ultima rulare si timpul curent este mai mare de 30 de minute, atunci incepem normal
            If $diferenta > $server_delay * 60 Then
                Assign("interval_" & $i, $intervalAnunturi * ($i-1), 2)
            Else
                Assign("interval_" & $i, $intervalAnunturi * ($i-1), 2)
            EndIf

        Next


While 1

    Local $msg = TrayGetMsg()

    if Round(TimerDiff($ServerPing) / 1000) >= 1800 Then
        ServerPing()
    EndIf

    ; actualizare timp si display
    For $i = 1 to $nAnunturi
        Assign("anunt" & $i & "_interval", Round(TimerDiff(Eval("timer_" & $i)) / 1000), 2)
        $timeleft = (Eval("interval_" & $i)*60+$delay_sync) - Eval("anunt" & $i & "_interval")
        TrayItemSetText(Eval("lab" & $i), "Anunt " & $i & ": " & TimpFormat($timeleft))
    Next

    ; main timer loop
    $lastInterval = Round(TimerDiff($timer_interval) / 1000)


    For $i = 1 to $nAnunturi
        if Eval("anunt" & $i & "_interval") >= (Eval("interval_" & $i) * 60 + $delay_sync) Then
            ConsoleWrite(@CRLF & "Postam " & $i & @CRLF)
            Post($i)
        EndIf
    Next

    Sleep(1000)
WEnd

Func _PostTrue($numar)
    Assign("interval_" & $numar, $server_delay)
    Assign("timer_" & $numar, TimerInit())
EndFunc

Func _PostFalse($numar)
    local $next = $numar + 1

    If $next > $nAnunturi Then
        $next = 1
    EndIf

    Assign("interval_" & $numar, 1)
    Assign("timer_" & $numar, TimerInit())
    $errorCount = $errorCount + 1

EndFunc

Func Post($numar)
    local $return
    $return = Posteaza(Eval("email" & $numar), Eval("cod" & $numar), $numar)

    if $return = True Then
        _PostTrue($numar)
    Else
        _PostFalse($numar)
    EndIf

    ; setam ultimul anunt rulat
    LastRun($numar)
EndFunc