#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
CoordMode, Pixel, Screen
CoordMode, Mouse, Screen
say := Object()
sayCount :=0
say.Insert(":D") sayCount++
say.Insert(";-)") sayCount++
say.Insert(">(") sayCount++
say.Insert(";-]") sayCount++
say.Insert("3-)") sayCount++

loop
{
    loop,1
    {
        SoundBeep
        Sleep,1000
        if (BreakLoop)
        {
              BreakLoop:=false
              Goto, NextLoop
        }
    }
    BlockInput, MouseMove
    SoundBeep
    SoundBeep
    Sleep, 200
    WinGet, active_id, ID, A
    WinMinimize, ahk_id %active_id% ;Запомнить последнее открытое окно для разворачивания обратно
    Sleep, 800
    Run, C:\Program Files (x86)\Google\Chrome\Application\chrome.exe "странца конкурса"
    IfWinExist, ahk_exe chrome.exe
        WinActive ;Развернуть хром
    loop, 10
    {
         Sleep, 1000
         Send, {End}
         ImageSearch, , , 628, 896, 840, 947, polevvoda.jpg
         If(ErrorLevel=0)
         {
             ImageSearch, , , 644, 813, 702, 873, avatar.jpg
             If(ErrorLevel=0)
             {
             Send,{PrintScreen}
             Sleep, 500
             Run, C:\Program Files (x86)\Google\Chrome\Application\chrome.exe "страница вк"
             Sleep, 1000
             Send, Изи вин!!!
             Sleep, 1000
             Send, {Enter}
             Sleep, 2000
             Send, ^w
             }
             else
             {
             Click, 662,913
             Sleep, 300
             Random, CurrentNum, 1, sayCount
             SendRaw, % say[CurrentNum]
             Sleep, 300
             Send, {Enter}
             Sleep, 1000
             Send, ^w
             }
             Break
         }
    }
SoundBeep
SoundBeep
SoundBeep
BlockInput, MouseMoveOff
WinMaximize, ahk_id %active_id%
NextLoop:
Random, SleepTime, 102, 150
SleepTime:=SleepTime*10000
Sleep, SleepTime
}


F3::
BreakLoop=true
SoundBeep
SoundBeep
SoundBeep
SoundBeep
Return