Infinity loop on AdlibRegister..

[MiserableLife]

I've ran into a little problem here. I wanted to understand how AdlibRegister works but some how it just loops.

The way I understand AdlibReg is like this:

Part A                              Time line        Part B 
1. AdlibRegister( Func , Sleep Time )   |
2. Continue Script                      v            Register Func And Sleep( Sleep Time )
3. Do Something                         |            Sleeping
4. Paused                               v            Pause Script after sleep and run func
5. Script Continued                     |            Sleeping

Why does it loop so many times and the script does not exit?

And another question is, in Step 4 Part B, will the script be paused UNTIL the function is finnished ?

The code to make the infinity loop happen:

Global $num
AdlibRegister('function',100)
ConsoleWrite("Start Sleep" & @CRLF )
Sleep(100)
ConsoleWrite("End Sleep" & @CRLF )

Func function()
    sleep(100)
;~  AdlibUnRegister()
    $num = $num + 1
    ConsoleWrite("test" & $num & @CRLF )
EndFunc

Edited January 3, 2010 by MiserableLife

[Melba23]

MiserableLife,

I am not sure your understanding of Adlib is correct - here is mine:

Main script                         Time line        Adlib function 
1. AdlibRegister( Func , Time )         |
2. Continue Script                      |            Inactive
3. Paused                              Time          Run
4. Continue Script                      |            Inactive
5. Paused                              Time          Run
6. Continue Script                      |            Inactive

The Adlib function interrupts the main script every Time ms and this will continue until you AdlibUnregister the function or the script ends.

I have no idea what you want to do in your script. If you want to run a count every 100ms, then one way to do it is like this:

; Give ourselves an out by pressing ESC
HotKeySet("{ESC}", "On_Exit")
Func On_Exit()
    Exit
EndFunc

; Register the Adlib function
AdlibRegister("Counter", 100)

; Set the counter
$i = 0

; Start an infinite loop - but this could be anything you wanted
While 1
    Sleep(10)
WEnd

; The Adlib function
Func Counter()
    ; Increase counter
    $i += 1
    ; Write it
    ConsoleWrite($i & @CRLF)
EndFunc

I hope that helps. Ask if anything is unclear.

M23

[MiserableLife]

The way you express is very clear..

Thanks!