Page 1 of 1

повтор ф-ции

Posted: 2006-07-06 22:41:36
by CONDOMchick
Хелп плз.
Есть скрипт - как сделать его повторный запуск после определенного времени.


*script*
end sub

а куда вставлять вейт там и репит. плз скажите :)

Posted: 2006-07-07 11:13:16
by Scripts Writer
ты про рекурсию?

Code: Select all

sub a()
*script*
a()
end sub


Или же через goto промышляй.

Posted: 2006-07-07 11:28:02
by CONDOMchick
ок спс - а ктонить знает через скока на дрв респится руда?)

Posted: 2006-07-07 12:02:54
by casper46
5-10 мин точно не знаю :oops:

Posted: 2006-07-07 13:59:07
by Nmy
да и ищо можно

Code: Select all

repeat
...
until


Code: Select all

while
...
wend


Code: Select all

LOL :lol: 

Posted: 2006-07-07 19:48:40
by CONDOMchick
спасибо:)
теперь мне надо точно знать сколько времени респ руды на дрв - кто знает плз скажите

Posted: 2006-07-07 20:51:02
by Nmy

Code: Select all

sub time()
uo.deletejournal()
while true
if uo.injournal('You put the') then
uo.deletejournal()
MakeTime()
else
wait(1000)
end if
wend
end sub



Code: Select all

Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub