#cs -----------------------------------------------------------------------------
     Kindred Bot versão 2.1.0   ││ Feitor por: Vitor "Boog" ││ Apoio: João "Clyde"

 Ultima atualização: 14/03/2017 ││ #MakeClyoogGreatAgain
#ce -----------------------------------------------------------------------------

HotKeySet ("{ESC}", "Sair")
HotKeySet ("{f1}", "Pause")

Global $Pocoes = 0
Global $Mortes = 0

Func Sair ()
   MsgBox (1, "Bot Fechado", "Poções gastas: " & $Pocoes)
   MsgBox (1, "Bot Fechado", "Você morreu: " & $Mortes)
   Exit 1
EndFunc
Func Pause ()
   MsgBox (1, "Bot Pausado!", "O bot está pausado.")
EndFunc
WinActivate ("Pets | Battle | Gaia Online - Nightly") ;colocar o title da pagina de onde o kindred ta aberto

MsgBox (1, "Kindred BOT 2.0","Esc fechará o bot, F1 o pausará.")

While 1
   $morte = PixelGetColor (697, 355) ;parte azul, colocar mause na parte azul da poção e copiar a cor do pixel e colocar aqui em baixo v
   If $morte = "0x59DDE3" Then ;Se, morrer, reviver (entre aspas deve ser a cor do pixel correspondendo a cordenadas de cima ^
      Sleep (1350)
      MouseClick ("left", 763, 447,1,2) ; botão para voltar batalha
      Sleep(1000)

      $Mortes += 1
   EndIf

   $semStamina = PixelGetColor (414, 370) ;mesmo esquema do pixelgetcolor do de cima, colocar mouse na posição que você quer que de quando chegar de stamina ele usar a poção
   If $semStamina = "0x5F4326" Then ;Se, chegar a pouca stamina, usar poção // a cor deve ser a parte marrom,  a parte "sem stamina"
      Sleep (1350)
      MouseClick ("left",300, 374,1,2) ;kindred aleatorio
      MouseClick ("left",296, 267,1,2) ;kindred aleatorio 2 (nao me pergunte apenas faça isso)
        Sleep (10000)
      MouseClick ("left",891, 556 ,1,2) ;fugir
          Sleep (5000)
      MouseClick ("left",769, 174 ,1,2) ;"ITEMS"
          Sleep (5000)
      MouseClick ("left",504, 356 ,1,2) ;poção de stamnia
          Sleep (5000)
      MouseClick ("left",968, 417 ,1,2) ;use
          Sleep (5000)
      MouseClick ("left",419, 344 ,1,2) ;sakura
          Sleep (5000)
      MouseClick ("left",589, 393 ,1,2) ;use²
          Sleep (5000)
      MouseClick ("left",1048,146 ,1,2) ;botão de voltar para voltar ao mapa (não é o X é uma bolotinha maior atraz dele)
      Sleep (1000)
      $Pocoes += 1
      EndIf

      $verify = PixelGetColor (880,381) ;esquema padrão do pixelgetcolor, o local exato pode ser a letra preta
   If $verify = "0xBC5D17" Then ;Se, aparecer CAPTCHA, dar 3 cliques aleatorios nos itens // a cor correspondente as cordenadas acima
      Sleep (500)
      MouseClick ("left" ,Random (661,801), Random (319,376),1,10) ;no primeiro random colocar o aonde ( na vertical) clicar, no segundo random colocar o min e o max ( na horizontal)
      Sleep (500)
      MouseClick ("left" ,Random (661,801), Random (319,376),1,10) ;só repete o de cima
   EndIf

   $sycamorteOn = PixelGetColor (1054, 199) ;setar a codernada na parte rosa do olho da syca
   If $sycamorteOn = "0xFF9ED0" Then ;Se, sycamorte aparecer vivo, usar skills e pegar recompensa // já sabe, a cor correspondente nas cord acima
      MouseClick ("left", 465, 380,1,2) ;sakura
      MouseClick ("left", 474, 557,1,2) ;"SKILLS"
      MouseClick ("left", 527, 358,1,2) ;"CLOUD RAIN"
Sleep(500)
ElseIf $sycamorteOn <> "0xFF9ED0" Then ;E se, não for sycamorte, sair do combate e entrar em outro
      MouseClick ("left", 747, 527,1,2) ;uma parte muito especifica do "PLAY AGAIN", tem que ser no maximo da altura do botão
      MouseClick ("left", 465, 380,1,2) ;sakura
      MouseClick ("left", 909, 552,1,2) ;fugir
      MouseClick ("left", 928, 266,1,2) ;fase da syca
      MouseClick ("left", 677, 441,1,2);start battle
      Sleep(500)

EndIf
WEnd

While 1
   Sleep(500)
   WEnd