повтор ф-ции

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

повтор ф-ции

Post by CONDOMchick »

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


*script*
end sub

а куда вставлять вейт там и репит. плз скажите :)
Dragon World. [since 2004]
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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

Code: Select all

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


Или же через goto промышляй.
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

ок спс - а ктонить знает через скока на дрв респится руда?)
Dragon World. [since 2004]
casper46
Posts: 35
Joined: 2005-04-12 15:13:53
Location: From RuO
Contact:

Post by casper46 »

5-10 мин точно не знаю :oops:
Осенью все птицы летят на йух......
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

да и ищо можно

Code: Select all

repeat
...
until


Code: Select all

while
...
wend


Code: Select all

LOL :lol: 
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

спасибо:)
теперь мне надо точно знать сколько времени респ руды на дрв - кто знает плз скажите
Dragon World. [since 2004]
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post 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
Post Reply