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