forum.boolean.name - Помогите:Функция скриптов запускающихся по определенному времени

Помогите закончить функцию которая вызывает скрипт с номером N через опеределенное время.
Нужно доработать:
=чтобы не выполнялся первый раз после выполнения:
если его выполнить он вначале запустит скрипт а потом будет ждать времени.
вобщем надо починить третий параметр y Timer

Код:

Graphics3D 1024,768,32,2

SeedRnd MilliSecs()

SetBuffer BackBuffer()

Global font1=LoadFont ("fixedsys")

SetFont font1

Dim timernew(999);массив с таймерами

while not(keyhit(1))

Timer(100,1,0);Timer(время повторного выполнения, номер скрипта, первый запуск)

flip

wend

end



Function Timer(retrytime,N,first);first это булевая, тоесть выполнять или нет первый запуск скрипта

;тут всё автоматическое чинить здесь

mytimer=MilliSecs()

If timernew(N)<=mytimer Then

 Script(N)

 timernew(N)=MilliSecs()+retrytime

EndIf

End Function



Function Script(N)

        ;для нового скрипта пишем: if N=<номер скрипта> <Код>

        If N=0 Then 

                Cls

                Locate 0,0

                      test="This is Test."

                Print test

                Next

                Delay 4000

        EndIf

End Function