#AutoIt3Wrapper_Au3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#NoTrayIcon
#include "C:\Users\Testdcaz\Documents\FunFun.au3"
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <ColorConstantS.au3>
#include "C:\Users\Testdcaz\Documents\GIFAnimation.au3"

;Opt("MustDeclareVars", 1)

FileInstall ( "C:\Users\Testdcaz\Documents\giffy.gif", @TempDir & "\giffy.gif" )
FileInstall ( "C:\Users\Testdcaz\Documents\giff2.gif", @TempDir & "\giff2.gif" )
Global $sFile = @TempDir & "\giffy.gif"
Global $sFile2 = @TempDir & "\giff2.gif"
Global $hGIF2
Global $aGIFDimension = _GIF_GetDimension($sFile)
Global $hGui
Global $hGui = GUICreate("GIF Animation", $aGIFDimension[0], $aGIFDimension[1], @DesktopWidth - 455, @DesktopHeight - 355, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST), WinGetHandle("Program Manager"))
Global $hGIF = _GUICtrlCreateGIF($sFile, "", 0, 0)
Global $flagg
Global $aProcName
Global $aProcPid
Global $nProcPid
Global $Name = "Miku"
Global $i
Global $e
Global $frase
Global $gotit
Global $ran1
Global $ran2 = 5

GUISetBkColor(345)
_WinAPI_SetLayeredWindowAttributes($hGui, 345, 255)
_WinAPI_SetParent($hGui, 0)
GUISetState()


While 1

    WinSetOnTop ("GIF Animation", "", 1)
    If GUIGetMsg() = $GUI_EVENT_PRIMARYDOWN Then
       _GIF_DeleteGIF ($hGIF, 1)
       $hGIF2 = _GUICtrlCreateGIF($sFile2, "", 0, 0)
       _WinAPI_SetLayeredWindowAttributes($hGui, 345, 255)
       _WinAPI_SetParent($hGui, 0)
       ToolTip ( "Don't touch me, you perv!", @DesktopWidth - 455, @DesktopHeight - 355, "", 0 )
       Sleep (4000)
       ToolTip ("")
       _GIF_DeleteGIF ($hGIF, 1)
       $hGIF = _GUICtrlCreateGIF($sFile, "", 0, 0)
       _WinAPI_SetLayeredWindowAttributes($hGui, 345, 255)
       _WinAPI_SetParent($hGui, 0)
       WinSetOnTop ("GIF Animation", "", 1)
    EndIf

If WinGetTitleAdvice ("scite") Then
If $gotit > 0 Then
ToolTip ("SciTE... they made me with that", @DesktopWidth - 455, @DesktopHeight - 355, "", 0)
Sleep (2000)
ToolTip ("")
$gotit = 0
EndIf
Else
$gotit = 1  >>>>>>>>>>>>>>>>>>>>>>>>>>> Il problema dovrebbe essere qui
EndIf

If WinGetTitleAdvice ("office") Then
If $gotit > 0 Then
ToolTip ("What are you writing?", @DesktopWidth - 455, @DesktopHeight - 355, "", 0)
Sleep (2000)
ToolTip ("")
$gotit = 0
EndIf
Else
$gotit = 1 >>>>>>>>>>>>>>>>>>>>>>>>>>> Il problema dovrebbe essere qui
EndIf

WEnd

Func KitKat ($frase)
       WinSetOnTop ("GIF Animation", "", 1)
       _GIF_DeleteGIF ($hGIF, 1)
       WinSetOnTop ("GIF Animation", "", 1)
       $hGIF2 = _GUICtrlCreateGIF($sFile2, "", 0, 0)
       WinSetOnTop ("GIF Animation", "", 1)
       _WinAPI_SetLayeredWindowAttributes($hGui, 345, 255)
       WinSetOnTop ("GIF Animation", "", 1)
       _WinAPI_SetParent($hGui, 0)
       WinSetOnTop ("GIF Animation", "", 1)
       ToolTip ( $frase, @DesktopWidth - 455, @DesktopHeight - 355, "", 0 )
       WinSetOnTop ("GIF Animation", "", 1)
       Sleep (4000)
       ToolTip ("")
       _GIF_DeleteGIF ($hGIF, 1)
       WinSetOnTop ("GIF Animation", "", 1)
       $hGIF = _GUICtrlCreateGIF($sFile, "", 0, 0)
       WinSetOnTop ("GIF Animation", "", 1)
       _WinAPI_SetLayeredWindowAttributes($hGui, 345, 255)
       WinSetOnTop ("GIF Animation", "", 1)
       _WinAPI_SetParent($hGui, 0)
       WinSetOnTop ("GIF Animation", "", 1)
EndFunc