Also wer sagt AutoIt 3.3.0 kann man nicht decompilen der Irrt das ist der Bot des links von turboskorp ich werde diesen Bot jedoch nicht klauen der Typ dafür bin ich nicht.
Ich werde versuchen beide Bots Irgendwie zusammen zubringen nur da gib es ein Problem einer ist mit AutoHotKey geschrieben der andere mit AutoIT ich muss meinen Bot erstmal in AutoIT bringen aber bis dahin müsst ihr euch mit der v1.2 bei der das Strahlenzonen Problem gefixt is zufriedengeben. Ich hab leider nich sehr viel zeit "Schule" naja ich opfere schon viel meiner freizeit aber davon hab ich leider nicht viel.
Code:
Global $COORD = 0
Global $PLACE = 0
HotKeySet("!s", "_START")
HotKeySet("!e", "_Ende")
While 1
Sleep(1)
WEnd
Func _START()
While 1
$COORD_BONUSBOX = PixelSearch(229, 118, 1047, 637, 8675980, 8)
If Not @error Then
MouseClick("left", $COORD_BONUSBOX[0], $COORD_BONUSBOX[1], 1, 0)
Sleep(2200)
Else
If $PLACE = 0 Then
MouseClick("left", 894, 695, 1, 0)
EndIf
If $PLACE = 1 Then
MouseClick("left", 1019, 675, 1, 0)
EndIf
If $PLACE = 2 Then
MouseClick("left", 894, 666, 1, 0)
EndIf
If $PLACE = 3 Then
MouseClick("left", 1019, 655, 1, 0)
EndIf
If $PLACE = 4 Then
MouseClick("left", 894, 636, 1, 0)
EndIf
If $PLACE = 5 Then
MouseClick("left", 1019, 614, 1, 0)
EndIf
EndIf
$COORD_TRUEMMERHAUFEN = PixelSearch(229, 118, 1047, 550, 16510015, 8)
If Not @error Then
MouseClick("left", $COORD_TRUEMMERHAUFEN[0], $COORD_TRUEMMERHAUFEN[1], 1, 0)
Sleep(2200)
Else
If $PLACE = 0 Then
MouseClick("left", 894, 695, 1, 0)
EndIf
If $PLACE = 1 Then
MouseClick("left", 1019, 675, 1, 0)
EndIf
If $PLACE = 2 Then
MouseClick("left", 894, 666, 1, 0)
EndIf
If $PLACE = 3 Then
MouseClick("left", 1019, 655, 1, 0)
EndIf
If $PLACE = 4 Then
MouseClick("left", 894, 636, 1, 0)
EndIf
If $PLACE = 5 Then
MouseClick("left", 1019, 614, 1, 0)
EndIf
EndIf
If $PLACE = 0 Then
$COORD_FLYBOTTOM = PixelSearch(884, 685, 904, 705, 3648000, 8)
If Not @error Then
$PLACE = 1
EndIf
EndIf
If $PLACE = 1 Then
$COORD_FLYTOP = PixelSearch(1009, 665, 1029, 685, 3648000, 8)
If Not @error Then
$PLACE = 2
EndIf
EndIf
If $PLACE = 2 Then
$COORD_FLYTOP = PixelSearch(884, 656, 904, 676, 3648000, 8)
If Not @error Then
$PLACE = 3
EndIf
EndIf
If $PLACE = 3 Then
$COORD_FLYTOP = PixelSearch(1009, 645, 1029, 665, 3648000, 8)
If Not @error Then
$PLACE = 4
EndIf
EndIf
If $PLACE = 4 Then
$COORD_FLYTOP = PixelSearch(884, 626, 904, 646, 3648000, 8)
If Not @error Then
$PLACE = 5
EndIf
EndIf
If $PLACE = 5 Then
$COORD_FLYTOP = PixelSearch(1009, 604, 1029, 624, 3648000, 8)
If Not @error Then
$PLACE = 0
EndIf
EndIf
WEnd
EndFunc
Func _ENDE()
Exit
EndFunc