script loop over and over

[Frost]

how would i make a script loop over and over with a terminate key?

like

HotKeySet("q", "Terminate")
Send("{F1}")
Sleep(500)
Send("{F1}")
Sleep(500)
Send("{F1}")
Sleep(500)
For $loop = 1 To 500

Edited November 23, 2005 by Frost

[SpookMeister]

HotKeySet("q", "Terminate")
While 1
   Send("{F1}")
   Sleep(500)
WEnd

Func Terminate()
  Exit
EndFunc

You might also consider doing it like this:

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Toggle")
$var = 0
While 1
   Sleep(500)
   IF $var = 1 then Send("{F1}")
WEnd

Func Terminate()
  Exit
EndFunc

Func Toggle()
   If $var = 0 Then
      $var = 1
   Else
      $var = 0
   EndIf
EndFunc

This way the program stays running for the next time you want to do it

Edited November 23, 2005 by SpookMeister

[kpu]

This should do it.

HotKeySet ( "{ENTER}", dieYouStinkingProgram );whatever key you want

$i = 0
Do
$i = $i + 1
Send("{F1}")
Sleep(500)
Send("{F1}")
Sleep(500)
Send("{F1}")
Sleep(500)
Until $i = 100000000000000000000000000000

Func dieYouStinkingProgram ()
Exit
EndFunc

[rakudave]

or use "exitloop" if the script goes on after the F1's