Динамическая пауза между циклами

[VanesPikines]

Добрый день!
Есть цикл:

For $Step = 1 To 100 step 1
MsgBox(4096, 'Привет.')
sleep(120000)
Next
Exit

Как сделать что бы через каждые 5 циклов пауза становилась на 10 секунд короче вплоть до 0 секунд?

Спасибо

 

[xXx]

$iSleep = 1200
For $Step = 1 To 100 Step 1
    MsgBox(4096, Default, 'Привет.')
    If Not Mod($Step, 5) Then $iSleep -= 10
    Sleep($iSleep)
Next

 

[VanesPikines]

$iSleep = 1200
For $Step = 1 To 100 Step 1
    MsgBox(4096, Default, 'Привет.')
    If Not Mod($Step, 5) Then $iSleep -= 10
    Sleep($iSleep)
Next

Спасибо! рабочий! А не подскажете как сделать так что бы например вычитание остановилось на значении $iSleep = 500

Что бы вычитало до тех пор пока пауза не укоротиться до 500 и потом всегда была 500.

 

[ra4o]

Что бы вычитало до тех пор пока пауза не укоротиться до 500 и потом всегда была 500.

$iSleep = 1200
For $Step = 1 To 100 Step 1
    MsgBox(4096, Default, 'Привет.')
    If Not Mod($Step, 5) And $iSleep>500 Then $iSleep -= 10
    Sleep($iSleep)
Next

 

[VanesPikines]

$iSleep = 1200
For $Step = 1 To 100 Step 1
    MsgBox(4096, Default, 'Привет.')
    If Not Mod($Step, 5) And $iSleep>500 Then $iSleep -= 10
    Sleep($iSleep)
Next

Спасибо!