#include <GuiConstantsEx.au3>
GUICreate("MouseMover", 400, 400)
GUISetState(@SW_SHOW)
$lb = GUICtrlCreateLabel("", 30, 10,200,20)

global $x
global $delay = 240000
global $delay2 = 0
global $begin = TimerInit()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
	
	$diff = TimerDiff($begin)
	$out = Floor(($delay - $diff) / 1000) & " " & $delay2 & " ->" & Floor((($delay - $diff) +($delay2*$delay))/1000)
	$x = $x + 1
	If $x > 100 Then
	  GUICtrlSetData($lb, $out)
	  $x=0
   EndIf
   
	If  $diff > $delay Then
	   $mousePos = MouseGetPos()
	  If $mousePos[0] > 500 Then
		 movethemouse($mousePos[0]-1, $mousePos[1]) 
	  Else
		 movethemouse($mousePos[0]+1, $mousePos[1]) 
	  EndIf
	EndIf
WEnd



Func movethemouse($x, $y)
   $begin = TimerInit()
   if $delay2 > 0 Then
	  $delay2 = $delay2 - 1
	  if $delay2 = 0 Then
		 Exit
	  EndIf
   EndIf
   MouseMove($x, $y, 0)
EndFunc