;~ Početna verzija Akt Relog Alarma (ARA)
;~ Podržana rezolucija: 1980x1020
;~ Podržani preglednik: Google Chrome
;~ Ukoliko je napad detektiran pokreće se alarm i program prestaje s radom
;~ Zahtjeva AntiGame Addon za OGame
;~ Funkcija programa: konstantna aktivnost na svim planetama i mjesecima, auto-relog, alarm



$aTitleUni=0
$aTitlePoc=0




Func aktplanet() ;~ Osvježava aktivnost na svim planetama, daje stranici 2.5s da se ucita
   MouseClick("primary", 1325, 275, 1, 0) ;~ //Klik na prvi planet u nizu, ujedno i reset stranice i pozicije piksela
$countpl=0
  While ($countpl<10)
   MouseClick("primary", 1314, 214, 1, 0)
   $countpl=$countpl+1
   Sleep(2500)
WEnd

EndFunc


Func aktmoon()   ;~ Osvježava aktivnost na svim mjesecima, daje stranici 2.5s da se ucita
   MouseClick("primary", 1325, 275, 1, 0) ;~ //Klik na prvi planet u nizu, ujedno i reset stranice i pozicije piksela
   $countmoon=0
   While ($countmoon<10)
   MouseClick("primary", 1438, 214, 1, 0)
   sleep(1000)
   $countmoon=$countmoon+1
   Sleep(2500)
   WEnd

EndFunc

Func aktivnost() ;~ Aktivnost moonova i planeta u jednoj funkciji
   WinActivate("HR")
   aktplanet()
   Sleep(2500)
   aktmoon()
   Sleep(2500)
   EndFunc

Func  konstakt()
$petlja=0
While($petlja<18)

   aktivnost()
   $petlja=$petlja+1
   sleep(6000)
WEnd
EndFunc

Func getcolor() ;Funkcija koja ocitava boju ekrana sa koordinata 1236, 218
   $sTitle=WinGetTitle("[ACTIVE]")
   $pocetna="OGame početna stranica - Google Chrome"
   $color=PixelGetColor(1236, 218)
   If ($sTitle==$pocetna)  Then
      MouseClick("primary", 1189, 325, 1, 0)
      sleep(5000)
   Else
   EndIf
   Return($color)
   EndFunc



Func provjera()
   WinActivate("HR")
   WinActivate("OGame")
   Sleep(10000)

   getcolor()
   sleep(1000)

    If (getcolor()==0x2E3545) Then
         aktmoon()
      Else
         ShellExecute("https://www.youtube.com/watch?v=0xUuvj4GH5Q")
         sleep(1000)
         Exit
      EndIf
   sleep(1500)

   getcolor()
   sleep(1000)

   If (getcolor()==0x2E3545)  Then
         aktplanet()
      Else
         ShellExecute("https://www.youtube.com/watch?v=0xUuvj4GH5Q")
         sleep(1000)
         Exit
      EndIf

EndFunc


Func relog()
   $sTitle=WinGetTitle("[ACTIVE]")
   $pocetna="OGame početna stranica - Google Chrome"
   If ($sTitle==$pocetna)  Then
      MouseClick("primary", 1189, 325, 1, 0)
      Sleep(5000)
   Else
      provjera()
   EndIf
EndFunc

While 1
   relog()
WEnd