progress bar or something

can you insert some kind of prgressbar into this script,
with that i mean some kind of timer that show's you when script is going to loop?




; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused, $Runner
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMe")
;;;; Body of program would go here ;;;;
While 1
    Sleep(10)
WEnd
;;;;;;;;
Func TogglePause()
    $Paused = Not $Paused
    While $Paused
    Sleep(10)
    ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
Func ShowMe()
    $Runner = Not $Runner
    While $Runner

Sleep( 10 )
MouseMove( 1868, 923 , 1 )
Sleep( 100 )
MouseClick( "left" , 1868, 923, 1, 1 )
Sleep( 900 )
MouseMove( 1016, 707,1 )
Sleep( 100 )
MouseClick( "left" , 1016, 707, 1, 1 )
Sleep( 900  )
MouseMove( 1163, 707, 1 )
Sleep( 100 )
MouseClick( "left" , 1163, 707 , 1 , 1 )
Sleep( 900 )
MouseMove( 1868, 923, 1 )
Sleep( 100 )
MouseClick( "left" , 1868, 923 , 1, 1 )
Sleep( 900 )
MouseMove( 751, 501 , 1 )
Sleep( 100 )
MouseClick( "left" , 751, 501, 1, 1 )
Sleep( 900 )
MouseMove( 1185, 452 , 1 )
Sleep( 300 )
MouseClick( "left" , 1185, 452, 1, 1 )
Sleep( 900 )
MouseMove( 907, 47 , 1 )
Sleep( 300 )
MouseClick( "left" , 907, 47, 1, 1 )

Sleep( 900 )
MouseMove( 1868, 923 , 1 )
Sleep( 300 )
MouseClick( "left" , 1868, 923, 1, 1 )
Sleep( 900 )
MouseMove( 1016, 707,1 )
Sleep( 300 )
MouseClick( "left" , 1016, 707, 1, 1 )
Sleep( 900  )
MouseMove( 1163, 707, 1 )
Sleep( 300 )
MouseClick( "left" , 1163, 707 , 1 , 1 )
Sleep( 1000 )
MouseMove( 1868, 923, 1 )
Sleep( 300 )
MouseClick( "left" , 1868, 923 , 1, 1 )
Sleep( 900 )
MouseMove( 751, 501 , 1 )
Sleep( 300 )
MouseClick( "left" , 751, 501, 1, 1 )
Sleep( 900 )
MouseMove( 1185, 452 , 1 )
Sleep( 300 )
MouseClick( "left" , 1185, 452, 1, 1 )
Sleep( 900 )
MouseMove( 1117, 49 , 1 )
Sleep( 300 )
MouseClick( "left" , 1117, 49, 1, 1 )
Sleep( 900 )
MouseMove( 1868, 923 , 1 )
Sleep( 300 )
MouseClick( "left" , 1868, 923, 1, 1 )
Sleep( 900 )
MouseMove( 1016, 707,1 )
Sleep( 300 )
MouseClick( "left" , 1016, 707, 1, 1 )
Sleep( 900  )
MouseMove( 1163, 707, 1 )
Sleep( 300 )
MouseClick( "left" , 1163, 707 , 1 , 1 )
Sleep( 900 )
MouseMove( 1868, 923, 1 )
Sleep( 300 )
MouseClick( "left" , 1868, 923 , 1, 1 )
Sleep( 900 )
MouseMove( 751, 501 , 1 )
Sleep( 300 )
MouseClick( "left" , 751, 501, 1, 1 )
Sleep( 900 )
MouseMove( 1185, 452 , 1 )
Sleep( 300 )
MouseClick( "left" , 1185, 452, 1, 1 )
Sleep( 900 )
MouseMove( 690, 50 , 1 )
Sleep( 300 )
MouseClick( "left" , 690, 50, 1, 1 )
sleep (601000)
   WEnd
EndFunc   ;==>ShowMe