Global $var= 1

HotKeySet("p","parar") ;registramos la key P para la funcion parar
AdlibRegister("check",1000) ;registramos ke se ejecute la funcion check cada 1 segundo

    While 1 ;bucle infinito
        ;tu codigo
    WEnd

Func parar()            ;cuando esta funcion es llamada por P, var valdra 0 si antes
                ;valia 1 y valdra 1 si antes valia 0
    If $var = 1 Then
        $var=0
    Else
        $var = 1
    EndIf
EndFunc

Func check()
    While $var = 0      ;y como cada segundo se comprueba el valor de var, y si este vale 0
                ;el programa entre en un bucle ke asta
                ;ke no kambie el valor de var a 1 (solo se puede cambiar volviendole
                ;a dar a p) no saldra de este
                ;una vez k alla salido vovlera donde estaba antes de k llamras a parar()
    WEnd
EndFunc