Problem - on/off function?

[AzGuL^]

How can I change the function below, so that I am able to turn it on/off by pressing a button. Like "Pause" button for instance.

  Quote

Func clicker ()

MouseMove ( 66, 404 )

MouseClick( "left", 66, 404 )

Sleep ( 200 )

MouseMove ( 339, 404 )

MouseClick( "left", 339, 404 )

Sleep ( 200 )

MouseMove ( 613, 404 )

MouseClick( "left", 613, 404 )

Sleep ( 200 )

MouseMove ( 896, 404 )

MouseClick( "left", 896, 404 )

Sleep ( 200 )

MouseMove ( 1188, 404 )

MouseClick( "left", 118, 404 )

Sleep ( 200 )

Return

EndFunc

while (1)

clicker()

wend

[Matrix112]

Try this

expandcollapse popup

Global $t = 0
While 1;keeps it alive
HotKeySet("^{PAUSE}", "start");crtl + pause
HotKeySet("{PAUSE}", "stop");pause
sleep(35)
Wend



Func start ()
Do
clicker()
Until $t = 1
$t = 0
EndFunc

Func stop()
$t=1
EndFunc

Func clicker ()

MouseMove ( 66, 404 )
MouseClick( "left", 66, 404 )
Sleep ( 200 )

MouseMove ( 339, 404 )
MouseClick( "left", 339, 404 )
Sleep ( 200 )

MouseMove ( 613, 404 )
MouseClick( "left", 613, 404 )
Sleep ( 200 )

MouseMove ( 896, 404 )
MouseClick( "left", 896, 404 )
Sleep ( 200 )

MouseMove ( 1188, 404 )
MouseClick( "left", 118, 404 )
Sleep ( 200 )

EndFunc

Edited September 30, 2005 by Matrix112

[AzGuL^]

Thanks, but where to place it? I placed it at the bottom, but didn't work

[ligenza]

  AzGuL^ said:

Thanks, but where to place it? I placed it at the bottom, but didn't work

At the top!

And that code won't work anyway. You need an actual pause script. Unless you just want it to run when you press Pause, if that's the cause then remove the function call in the while loop.

Edited September 30, 2005 by ligenza

[AzGuL^]

  ligenza said:

At the top!

And that code won't work anyway. You need an actual pause script. Unless you just want it to run when you press Pause, if that's the cause then remove the function call in the while loop.

  Quote

HotKeySet("{PAUSE}", "clicker")

Func clicker ()

... rest ofc ....

Like this? If yes, it do not work

EDIT; How to make it then?

Edited September 30, 2005 by AzGuL^

[Matrix112]

Look in my edited post

[AzGuL^]

  Matrix112 said:

Try this

expandcollapse popup

$t = 0
While 1;keeps it alive
HotKeySet("^{PAUSE}", "start");crtl + pause
HotKeySet("{PAUSE}", "stop");pause
sleep(35)
Wend
Func start ()
Do
clicker()
Until $t = 1
$t = 0
EndFunc

Func stop()
$t=1
EndFunc

Func clicker ()

MouseMove ( 66, 404 )
MouseClick( "left", 66, 404 )
Sleep ( 200 )

MouseMove ( 339, 404 )
MouseClick( "left", 339, 404 )
Sleep ( 200 )

MouseMove ( 613, 404 )
MouseClick( "left", 613, 404 )
Sleep ( 200 )

MouseMove ( 896, 404 )
MouseClick( "left", 896, 404 )
Sleep ( 200 )

MouseMove ( 1188, 404 )
MouseClick( "left", 118, 404 )
Sleep ( 200 )

EndFunc

I don't understand I tried it, and now it doesn't even start

[Matrix112]

I edited my first post again. I wrote this in the board so there are some errors in.

This should now work.

Use "Crtl + pause" to start it and "Pause" to stop it.

[AzGuL^]

It does not

[CWW256]

F1 to Pause

F2 to Exit

expandcollapse popup

HotKeySet("{F1}", "ScriptPause")
HotKeySet("{F2}", "KillScript")
Global $Paused = 0

while 1
Clicker()
wend

Func clicker ()
    MouseMove ( 66, 404 )
    MouseClick( "left", 66, 404 )
    Sleep ( 200 )
    
    MouseMove ( 339, 404 )
    MouseClick( "left", 339, 404 )
    Sleep ( 200 )
    
    MouseMove ( 613, 404 )
    MouseClick( "left", 613, 404 )
    Sleep ( 200 )
    
    MouseMove ( 896, 404 )
    MouseClick( "left", 896, 404 )
    Sleep ( 200 )
    
    MouseMove ( 1188, 404 )
    MouseClick( "left", 118, 404 )
    Sleep ( 200 )
EndFunc

Func ScriptPause()
    $Paused = NOT $Paused
    While $Paused = 1
        Sleep(1000)
    WEnd
EndFunc

Func KillScript()
    Exit
EndFunc

[AzGuL^]

  CWW256 said:

F1 to Pause

F2 to Exit

expandcollapse popup

HotKeySet("{F1}", "ScriptPause")
HotKeySet("{F2}", "KillScript")
Global $Paused = 0

while 1
Clicker()
wend

Func clicker ()
    MouseMove ( 66, 404 )
    MouseClick( "left", 66, 404 )
    Sleep ( 200 )
    
    MouseMove ( 339, 404 )
    MouseClick( "left", 339, 404 )
    Sleep ( 200 )
    
    MouseMove ( 613, 404 )
    MouseClick( "left", 613, 404 )
    Sleep ( 200 )
    
    MouseMove ( 896, 404 )
    MouseClick( "left", 896, 404 )
    Sleep ( 200 )
    
    MouseMove ( 1188, 404 )
    MouseClick( "left", 118, 404 )
    Sleep ( 200 )
EndFunc

Func ScriptPause()
    $Paused = NOT $Paused
    While $Paused = 1
        Sleep(1000)
    WEnd
EndFunc

Func KillScript()
    Exit
EndFunc

Working one, thank you very much!

[Matrix112]

This should work too. Now i testet it.

expandcollapse popup

Global $t = 0
HotKeySet("!{PAUSE}", "clicker");Alt + pause
HotKeySet("{PAUSE}", "stop");pause
HotKeySet("!{ESC}", "End");Alt + esc  
While 1;keeps it alive
sleep(100)
Wend

Func stop()
$t=1
EndFunc

Func clicker()
Do
MouseMove ( 66, 404 )
MouseClick( "left", 66, 404 )
Sleep ( 200 )

MouseMove ( 339, 404 )
MouseClick( "left", 339, 404 )
Sleep ( 200 )

MouseMove ( 613, 404 )
MouseClick( "left", 613, 404 )
Sleep ( 200 )

MouseMove ( 896, 404 )
MouseClick( "left", 896, 404 )
Sleep ( 200 )

MouseMove ( 1188, 404 )
MouseClick( "left", 118, 404 )
Sleep ( 200 )
Sleep(20)
Until $t = 1
$t = 0
EndFunc

Func End ()
    Exit
EndFunc

Edited September 30, 2005 by Matrix112