#include-once
Func ChercheBmp($findImage,$resultPosition,ByRef $x, ByRef $y,$tolerance)
return ChercheBmpZone($findImage,$resultPosition,0,0,@DesktopWidth,@DesktopHeight,$x,$y,$tolerance)
EndFunc
Func ChercheBmpZone($findImage, $resultPosition,$x1, $y1, $right,$bottom, ByRef $x, ByRef $y, $tolerance)
if $tolerance>0 then $findImage = "*" & $tolerance & " " & $findImage
$result = DllCall("BitxBMP.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)
if $result[0]="0" then return 0
$array = StringSplit($result[0],"|")
If IsArray($array) Then
$x=Int(Number($array[2]))
$y=Int(Number($array[3]))
if $resultPosition=1 then
$x=$x + Int(Number($array[4])/2)
$y=$y + Int(Number($array[5])/2)
endif
return 1
EndIf
EndFunc
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$GUI1 = GUICreate("GUI1", 250, 150, -1, -1) ; Création de la GUI1
$Lb1 = GUICtrlCreateLabel("Tofu", 85, 10, 120, 24) ; Création du label1
$b1 = GUICtrlCreateButton("Va chercher medor", 55, 45)
GUISetState(@SW_SHOW)
Global $A[4] = [ 181, 23, 895, 521]
Global $bip = 0
Global $c[4] = [511, 579, 546, 589]
Global $move = 0
Global $B[4] = [ 177, 894, 518, 521]
Global $xpos
Global $ypos
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $b1
search()
EndSwitch
WEnd
Func search()
GUISetState(@SW_HIDE, $GUI1)
While 1
$result = ChercheBmpZone("tofu",1,$B[0],$B[1],$B[2],$B[3] , $xpos, $ypos, 0)
If $result= 1 Then
MouseClick('left',$xpos,$ypos,1)
EndIf
battle()
$result = ChercheBmpZone("tofu3",1,$B[0],$B[1],$B[2],$B[3] , $xpos, $ypos, 0)
If $result= 1 Then
MouseClick('left',$xpos,$ypos,1)
EndIf
battle()
Sleep(300)
WEnd
EndFunc
Func battle()
$aim = PixelSearch( $c[0], $c[1], $c[2], $c[3], 0xDB4302)
if not @error Then
Combat()
Return 1
EndIf
EndFunc
Func Combat()
While 1
MouseClick("", 531, 586)
Sleep(2000)
If $bip < 1 Then
MouseClick("", 491, 528)
MouseClick("", 481, 541)
Local $bip = 2
EndIf
MouseClick("", 697, 538)
$combatc = PixelSearch( $A[0], $A[1], $A[2], $A[3], 0x0000FF)
If Not @error Then
MouseClick("left", $combatc[0], $combatc[1])
MouseClick("", 697, 538)
EndIf
$combatc = PixelSearch( $A[0], $A[1], $A[2], $A[3], 0x0000FF)
If Not @error Then
MouseClick("left", $combatc[0], $combatc[1])
MouseClick("", 697, 538)
EndIf
$combatc = PixelSearch( $A[0], $A[1], $A[2], $A[3], 0x0000FF)
If Not @error Then
MouseClick("left", $combatc[0], $combatc[1])
MouseClick("", 697, 538)
EndIf
$combatc = PixelSearch( $A[0], $A[1], $A[2], $A[3], 0x0000FF)
If Not @error Then
MouseClick("left", $combatc[0], $combatc[1])
Sleep(3000)
EndIf
If $move < 1 Then
MouseClick("", 401, 379)
$move = 1
EndIf
If $move < 2 Then
MouseClick("", 471, 344)
$move = 2
EndIf
$combatc = PixelSearch( $A[0], $A[1], $A[2], $A[3], 0x0000FF)
If @error Then
Return
EndIf
WEnd
EndFunc