#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         HoPollo

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ScrollBarsConstants.au3>
#include <ImageSearch.au3>
#include <GuiEdit.au3>

Global $targetImage[3] = ["1.png","2.png","3.png"]

Global $sadiColor = 0x689B00
Global $enemyColor = 0x808090
Global $popupColor = 0x2E2D28

Global $barTurnState = 0xFFE348
Global $spellAvailableState = 0x5F3921

Global $crossPopupColor = 0x4B5C07
Global $fullHp = 0xDA6D62

Global $mapMaxLeft = 71
Global $mapMaxTop = 36
Global $mapMaxRight = 1155
Global $mapMaxBottom = 737

Global $nbrDeRelance = 2
Global $nbrDePm = 3
Global $nbrDePo = 8

Global $reason = "Thanks for using this program, see you next time."

HotKeySet ("{ESC}","ExitScript")

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Init", 197, 268, 192, 124)
WinSetOnTop($Form1, "", 1)
Global $journal = GUICtrlCreateEdit("", 0, 0, 196, 209, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetCursor (-1, 2)
$XpBar = GUICtrlCreateProgress(24, 216, 166, 17)
$XP = GUICtrlCreateLabel("XP", 8, 218, 18, 17)
$GUI_EVENT_START = GUICtrlCreateButton("Button1", 56, 240, 75, 25)
GUISetCoord(1152, 245)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         ExitScript()
      Case $GUI_EVENT_START
         Start()
   EndSwitch
WEnd

Func info($messageJournal, $autresInfos = "")
   GUICtrlSetData($journal, GUICtrlRead($journal) & @CRLF & $messageJournal)
   Local $end = StringLen(GUICtrlRead($journal))
   _GUICtrlEdit_SetSel($journal, $end, $end)
   _GUICtrlEdit_Scroll($journal, $SB_SCROLLCARET)
EndFunc

Func Start()
   While 1
      info("Recherche...")

      Global $1 = PixelSearch($mapMaxLeft, $mapMaxTop, $mapMaxRight, $mapMaxBottom, $enemyColor)
      Global $2 = PixelSearch($mapMaxLeft, $mapMaxTop, $mapMaxRight, $mapMaxBottom, $sadiColor)

      Local $randomImageOfTarget = Random(0, UBound($targetImage)-1, 1)
      info("Choosen Img: " & $targetImage[$randomImageOfTarget])
      Sleep(1000)
      Global $3 = _ImageSearch($targetImage[$randomImageOfTarget], 100, 0)
      info($3)

;~    Global $4 = PixelSearch(71, 36, 1155, 737, $healthColor)
;~    Global $5 = PixelSearch(71, 36, 1155, 737, $spellColor)
;~    Global $6 = PixelSearch(71, 36, 1155, 737, $readyButtonColor)
      Global $7 = PixelSearch(282, 141, 1128, 647, $popupColor) ;Zone centre du jeu
      Global $8 = PixelGetColor(1356, 586) ;Barre tours

      If IsArray($1) And IsArray($2) Then
         Placement()
      ElseIf IsArray($3) Then
         info("Image trouvée")
         Aggro()
      ElseIf IsArray($7) Then
         ClosePopup()
      ElseIf $8 = 0x1FDDDD Then
         info("BarreXP détectée")
         Start()
      EndIf
   WEnd
EndFunc

Func Aggro()
   info("Aggro en cours...")
   Sleep(3000)

   $times = 0

   Do
      MouseClick("", $3[0], $3[1])
      Sleep(1000)
      $times = $times + 1
   Until $times = 2

   Start()
EndFunc

Func Placement()
   info("Combat détecté")
   Sleep(2000)

   Local $readyBtn = _ImageSearch("pret.png")
   Local $passerBtn = _ImageSearch("passer.png")

   If IsArray($readyBtn) Then
      info("Btn Ready trouvé")
      Sleep(1000)
      MouseClick("", $readyBtn[0], $readyBtn[1])
   ElseIf IsArray($passerBtn) Then
      RechercheCoord()
   EndIf

   RechercheCoord()
EndFunc

Func RechercheCoord()
   info("RechecheCoord")
   Sleep(2000)

   $foundedMob = False
   $foundedMe = False
   $maxTry = 5

   Do
      info("Cherche pixel Mob + Sadi(Creature)")
      Sleep(1000)

      $mobCreature = PixelSearch($mapMaxLeft, $mapMaxTop, $mapMaxRight, $mapMaxBottom, $enemyColor)
      $meCreature = PixelSearch($mapMaxLeft, $mapMaxTop, $mapMaxRight, $mapMaxBottom, $sadiColor)

      If IsArray($meCreature) Then
         info("Sadi(Creature) trouvé")
         $foundedMe = True
      Else
         info("Sadi Introuvable")
      EndIf

      If IsArray($mobCreature) Then
         info("Mob(Creature) trouvé")
         Sleep(1000)
         $foundedMob = True
      Else
         $maxTry = $maxTry - 1
         info("Mob Introuvable : "& $maxTry)
         Sleep(1000)
         If $maxTry = 0 Then ;repart de Zero au cas ou
            Start()
         EndIf
      EndIf
   Until $foundedMob And $foundedMe

   info("Mob et Sadi trouvés, suite...")
   Sleep(2000)

   $bar = PixelGetColor(1358, 584) ;check si c'est son tour de joeur
   $spellState = PixelGetColor(1183, 186) ;check si ronces est dispo

   If $bar = $barTurnState And $spellState = $spellAvailableState Then
      info("Tour + Spell dispo")

      info("Pos : Mob "&$mobCreature[0]&","&$mobCreature[1]&" | Sadi : "&$meCreature[0]&","&$meCreature[1])

      Global $calcX = $mobCreature[0] - $meCreature[0]
      Global $calcY = $mobCreature[1] - $meCreature[1]

      info("Calc : X:"& Abs($calcX)&" Y:"& Abs($calcY))

      If Abs($calcX) > 30 Or Abs($calcY) > 30 Then
         Avancer()
      EndIf

      $relances = $nbrDeRelance

      Do
         MouseClick("", 1183, 186) ;clic sur ronces
         MouseClick("", $mobCreature[0], $mobCreature[1] + 15) ; Tendence a cliquer léger trop haut, on redescend donc le Y
         Sleep(200)
         $relances = $relances - 1
         info("nbrDeRelance : " & $relances &"/"& $nbrDeRelance)
      Until $relances = 0
   EndIf

   Passer()
EndFunc

Func Avancer()
   info("Avancer...")
   Sleep(1000)

   RechercheCoord()
EndFunc

Func Passer()
   info("Passer...")
   Sleep(2000)

   $passerBtn = _ImageSearch("passer.png")

   If IsArray($passerBtn) Then
      MouseClick("",$passerBtn[0], $passerBtn[1])
   EndIf
EndFunc

Func ClosePopup()
   info("Popup détectée")

   $cross = PixelSearch(71, 36, 1155, 737, $crossPopupColor)

   If Not @error Then
      MouseClick("", $cross[0], $cross[1])
   EndIf

   Start()
EndFunc

Func ExitScript()
   info("Fermeture du programme.")
   Sleep(2000)
   Exit
EndFunc