fala galera, então estou com um problema de uma func não funcionar junto com a outra tipo quando uma funciona a outra para de funcionar

[Alan Vettoraci]

#include<Cores.au3>
#include <BlockInputEx.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <Array.au3>
Local $hDLL = DllOpen("user32.dll")
AdlibRegister("clock",1000)
HotKeySet("{ESC}", "End")
HotKeySet("{F1}", "AIM")

$creditos = 1
$segundos = 0

GUICreate("Timer", 100, 30, 0, 0, 0x80000000)
GUISetBkColor($COR_PRETO)
GUICtrlCreateLabel("00:00:00",0,0,100,30)
GUICtrlSetBkColor(-1, $COR_PRETO)
GUICtrlSetColor(-1, $COR_BRANCO)
GUICtrlSetFont(-1,15,600,-1, "arial")
GUISetState(@SW_SHOW)

While (1)

    $segundos += $creditos * 60
    $creditos = 0
    $minutos = Mod($segundos/60, 60)
    $horas   =$segundos/3600
    $display = StringFormat("%02i:%02i:%02i",$horas,$minutos, Mod($segundos,60))
   WinSetOnTop("Timer", "", 1)

WEnd

 Func clock()

    If $segundos > 0 Then
       $segundos -= 1
    Else
       ;Bloqueia Todas as Teclas Menos (ESC, 2)
       _BlockInputEx(3, "{ESC}")
    EndIf
    GUICtrlSetData(-1, $display)

 EndFunc

While 1

WEnd

Func AIM()

$AIM = PixelSearch(0,0,1900,900,0xF24A17)
If IsArray($AIM) Then
MouseMove($AIM [0],$AIM[1], 0)
        EndIf

MouseClick("Left")

EndFunc

  Func End()
     _BlockInputEx(0)
     Exit
  EndFunc