Erzabbaubot? - Page 3

Quote:
Originally Posted by Stahllegierung
aber vor meiner anpassung (,waren nur die totzeiten beim einsammeln,)
lief das reibungslos. er is von allein in die goon funktion reingegangen und setzte sich dort in die schleife.
ich versuchs trotzdem mal ^^ danke dir

EDIT:
so, der compiler meint jetzt, dass am ende das WEnd fehlt xD
Code:
While 1
    Func goon()
             Sleep(1)
             Call ("movcamera")
	     call ("ZielSuchen") 		; Prozedur aufrufen
	     Sleep (150)
    EndFunc
WEnd
... der rest muss ja nicht mehr in die schleife, da er auch so aufgerufen wird, oder?

Du hast eine Func in einer Schleife, was nicht zul�sslig ist in AutoIt.
Pack das

Code:

While 1

WEnd

in die Func, damit es so aussieht:

Code:

    Func goon()
While 1
             Sleep(1)
             Call ("movcamera")
	     call ("ZielSuchen") 	
	     Sleep (150)
WEnd
    EndFunc

Quote:

Originally Posted by Stahllegierung

ich verstehe nicht ganz, im grunde hatte ich es doch so. nur, dass ich das in eine funktion gesteckt hab

h�tte der bot nach dem, was du sagst, nicht mindestens ein mal die kamera drehen und ein pixel suchen m�ssen?
(hat er nicht, h�tte ich vielleicht dazu sagen k�nnen, sry daf�r ^^)

Du kannst keine Func in einer Schleife machen. Im grunde wird eine Func erst dann aufgerufen, wenn du sagst, dass sie aufgerufen werden soll.
Sobald du nach deinen Deklarationen eine Schleife erstellst, wei� Autoit, dass er dort in eine Schleife gehen soll und auf deine Tasten warten muss.

Hier 2 Beispiele:

Code:

HotKeySet("{F5}", "test")

While 1
Sleep(50)
WEnd

Func test()
MsgBox(0, "Test", "Hallo")
EndFunc

Du weist der Taste F5 eine Funktion (in diesem fall die "test" Func) zu. Dannach geht das Programm in die Schleife
wo er 50ms nix macht. Da das While immer 1 sein wird, wiederholt er dass und st�rzt nicht ab.
Sobald du F5 dr�ckst, zeigt es dir eine MsgBox an und wenn du dort auf OK dr�ckst geht das Programm zu.

Code:

HotKeySet("{F5}", "test")

Func test()
MsgBox(0, "Test", "Hallo")
EndFunc

Hier weisen wir der Taste F5 wieder die "test" Func zu, jedoch beendet sich das Programm direkt wieder, da er
keine Schleife hat wo er "bleiben" k�nnte. Die Func wird erst aufgerufen, wenn du F5 dr�ckst oder iwo anders
im Programm die Func aufrufst. Somit startet es und beendet sich direkt wieder ohne eine MsgBox anzuzeigen.

Quote:

Originally Posted by greenryder

Ich habe versucht $i abzufragen aber es will nicht wirklich funktionieren... Wenn ich den Bot so starte sucht er ein Erz aus und visiert es an danach h�ngt sich der Bot allerdings auf und macht gar nichts mehr. Ich kann ihn pausieren und auch beenden aber er "greift nicht an" und dreht auch die Kamera nicht weiter.

Spoiler

Code:

WinActivate("FiestaOnline")
HotKeySet("{F5}", "exitkill")
HotKeySet("{F6}", "pause")

Global $paused
Dim $posora[2], $posgruen[2], $poslila[2]
$target=""
$i=0
$aufheben="0"



While 1

		If $i = 0 Then
			Call ("movcamera")
			Call ("ZielSuchen")
		Else
			Sleep(50)
		EndIf

		Sleep (150)

WEnd



func exitkill()				; Programm beenden
	Exit					; Exit
EndFunc						; Funktion beenden

func pause()				; Funktion mit Endlosschleife (wartet auf aufruf von "exit" oder "goon")
	$paused = NOT $paused
		While $paused
			Sleep(100)
			ToolTip("SCRIPT PAUSIERT F6 = WEITER F5 EXIT", 0, 0)
		WEnd
			ToolTip("")
EndFunc						; funktion beenden

Func movcamera()			; Kamera drehen
     MouseMove(100,120,1)	; Maus auf diese Position
	 sleep(100)
     MouseDown("right")		; Rechte Maustaste gedrückt halten
	 sleep(100)				;
     MouseMove(120,120)		; Maus bewegen
	 sleep(100)				;
     MouseUp("right")		; Rechte Maustaste loslassen
     Sleep(100)
 EndFunc   					; Ende der Funktion


 Func ZielSuchen()										; Ziel suchen
	$poslila = PixelSearch(1, 1, 1919, 1079,0x50FF20,2)	; Farbe des Erz | Farbe des Erzes & Aufl�sung anpassen (Interface kann abgeschaltet werden)
	$errlila = @error									; Errorlevel übergeben
	If $errlila = 0 Then								; Farbe gefunden
		MouseMove ($poslila[0],$poslila[1],1)			; Maus bewegeb
		sleep(300)
		MouseClick("left")								; Mausklick
		sleep(300)
		MouseClick("left")								; Mausklick
		sleep(300)
		call ("Farmen")
	EndIf
EndFunc   												; Ende der Funktion

func Farmen ()
	While $i <= 1
		$target = PixelGetColor(913,37)			; auslesen - Gegner vorhanden ?
		if $target = "0x818181" then						; Rot im Target
			$i=1
		Else
			$i=0
		endif
	 WEnd
sleep(300)												; kurze totzeit, damit fiesta hinterher kommt
send("0")												; aufsammeln mit taste "0"
sleep(300)												;
send("0")												;
sleep(300)												;
send("0")												;
EndFunc

Func BalkenSuchen ()
;	$posora = PixelSearch(913, 753, 1004, 753, 0xF78a00,1)
	$posora = PixelSearch(914, 753, 1005, 758, 0xFFFF90,2)
	$errora = @error
	If $errora = 0 Then
		;$posgruen = PixelSearch(684, 716, 594, 716,0x21CF52,3)		$posgruen = PixelSearch(1004, 754, 913, 757,0x21CE5A,2)
		$posgruen = PixelSearch(914, 753, 1005, 758,0xA6FFC9,2)
		$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

Du hast in der Func "Farmen" folgenden Codeteil:

Code:

	While $i <= 1
		$target = PixelGetColor(913,37)			; auslesen - Gegner vorhanden ?
		if $target = "0x818181" then						; Rot im Target
			$i=1
		Else
			$i=0
		endif
	 WEnd

Kurz gesagt: Solange $i kleiner oder gleich 1 ist, soll er sich die Farbe von 913, 37 holen und �berpr�fen.
Ist die Farbe "#818181", dann setzte $i auf 1 ansonsten auf 0.
Erkennst du das Problem?

Deine Variable $i wird IMMER kleiner oder gleich 1 sein, da du ihr keinen gr��eren Wert zuwei�t.
Deswegen bleibt er in diese Schleife stecken. Daher, �nder die Variable $i in dieser Func zu etwas h�herem
anstatt 1 oder du nimmst dort eine andere Variable.