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

[PackegerX]

Помогите закончить функцию которая вызывает скрипт с номером 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

[dsd]

flag_not_first_execution=False
...
Function Timer(retrytime,N)
If flag_not_first_execution=True Then
	mytimer=MilliSecs()
		If timernew(N)<=mytimer Then
 		Script(N)
		 timernew(N)=MilliSecs()+retrytime
		EndIf
Else

flag_not_first_execution=True
EndIf
End Function

а First это из другой оперы. Это для типов и перебора объектов из коллекции.