Erzabbaubot?

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 = @error									; 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 = @error
	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 = @error
		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