WinActivate("FiestaOnline")
HotKeySet("!e", "exitkill")
Dim $posora[2], $posgruen[2], $poslila[2]
$target=""
$i=0
$aufheben="0"
While 1
Sleep(1)
; Call ("movcamera")
call ("ZielSuchen") ; Prozedur aufrufen
send("4")
Sleep (150)
WEnd
func exitkill() ; Programm beenden
Exit ; Exit
EndFunc ; Funktion beenden
Func movcamera() ; Kamera drehen
MouseMove(650,120,1) ; Maus auf diese Position
sleep(100) ;
send ( "0" )
MouseDown("right") ; Rechte Maustaste gedrückt halten
sleep(100) ;
MouseMove(651,120) ; Maus bewegen
sleep(100) ;
MouseUp("right") ; Rechte Maustaste loslassen
Sleep(100) ; Warten
send ( "0" )
EndFunc ; Ende der Funktion
Func ZielSuchen() ; Ziel suchen
$poslila = PixelSearch(1, 1, 1279, 1023,0x8c7dff,2) ; Farbe des Erz
$errlila = @
[Only registered and activated users can see links. Click Here To Register...] ; Errorlevel übergeben
If $errlila = 0 Then ; Farbe gefunden
MouseMove ($poslila[0],$poslila[1],1) ; Maus bewegeb
sleep(100)
MouseClick("left") ; Mausklick
MouseClick("left") ; Mausklick
sleep(100)
call ("Farmen")
; call ("movcamera")
EndIf ;
call ("movcamera")
EndFunc ; Ende der Funkt
func Farmen ()
While $i <= 1
$target = PixelGetColor( 777 , 35 ) ; auslesen - Gegner vorhanden ?
if $target = "F70000" then ; Rot im Target
$i=0
Else
$i=2
endif
WEnd
send("4")
send("4")
send("4")
EndFunc
Func BalkenSuchen ()
; $posora = PixelSearch(913, 753, 1004, 753, 0xF78a00,1)
$posora = PixelSearch(594, 716, 684, 716, 0xFF8A00,1)
$errora = @
[Only registered and activated users can see links. Click Here To Register...]
If $errora = 0 Then
;$posgruen = PixelSearch(684, 716, 594, 716,0x21CF52,3) $posgruen = PixelSearch(1004, 754, 913, 757,0x21CE5A,2)
$posgruen = PixelSearch(684, 716, 594, 716,0x21CF52,3)
$errgruen = @
[Only registered and activated users can see links. Click Here To Register...]
If $errgruen = 0 Then
$dif = ($posora[0] - $posgruen[0])
If $dif < 3 and $dif > -3 Then
MouseClick("left", $posora[0], $posora[1], 1,1 )
EndIf
EndIf
EndIf
EndFunc