повтор ф-ции

CONDOMchick · Post by **CONDOMchick** » 2006-07-06 22:41:36

Хелп плз.
Есть скрипт - как сделать его повторный запуск после определенного времени.

*script*
end sub

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

Scripts Writer · Post by **Scripts Writer** » 2006-07-07 11:13:16

ты про рекурсию?

Code: Select all

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

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

CONDOMchick · Post by **CONDOMchick** » 2006-07-07 11:28:02

ок спс - а ктонить знает через скока на дрв респится руда?)

casper46 · Post by **casper46** » 2006-07-07 12:02:54

5-10 мин точно не знаю

Nmy · Post by **Nmy** » 2006-07-07 13:59:07

да и ищо можно

Code: Select all

repeat
...
until

Code: Select all

while
...
wend

Code: Select all

LOL :lol:

CONDOMchick · Post by **CONDOMchick** » 2006-07-07 19:48:40

спасибо:)
теперь мне надо точно знать сколько времени респ руды на дрв - кто знает плз скажите

Nmy · Post by **Nmy** » 2006-07-07 20:51:02

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