Erzabbaubot?

[Dadakraus]

Huhu wollte mal fragen ob jemand einen Erzabbau Bot für mich hätte?
Wen ja bitte Link.Suche schon ewig finde aber einfach nichts :/

[HypperKing]

Es gibt genug bots man benötigt nicht unbedingt einen für fiesta direkt sondern kann man einen von anderen games nehmen wenn du einen benötigst dann google oder pm mich in skype oder lass dir von anderen leuten von dieser section einen geben

[pachen123321]

hier hast du nen farmbot

die farbcodes und die tasten must du dir noch anpassen.

mein tipp: ändere die farben der erze auf ein grelles pink/gelb/grün um und such nach dieser farbe machts sicherer

gruss und viel spass damit :P

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

[Cry7]

Pachen der Funkt jetz wie :P?

[pachen123321]

auflösung,farbcode,tastenbelegung, ... sollten unterschiedlich sein
und $i muss noch ausgewertet werden, ist aber nur warten bis das erz tot ist

[Stahllegierung]

is das autoit?

[pachen123321]

ja autoit

hab auch nen neuen beitrag aufgemacht mit meinem neuen sammelpet unter autoit

[Stahllegierung]

Originally Posted by pachen123321

ja autoit

hab auch nen neuen beitrag aufgemacht mit meinem neuen sammelpet unter autoit

danke dir,
hab nur gefragt, weil ich in den Scriptsprachen nicht ganz so bewandert bin. Der Bot ist aber nicht an Fiesta attached, also muss ich Fiesta dabei im Vordergrund laufen haben, oder?

[pachen123321]

WinActivate
Aktiviert ein Fenster. Holt es in den Vordergrund und setzt den Fokus darauf.

WinActivate ( "title" [, "text"] )

[Stahllegierung]

Originally Posted by pachen123321

WinActivate
Aktiviert ein Fenster. Holt es in den Vordergrund und setzt den Fokus darauf.

WinActivate ( "title" [, "text"] )

das konnte ich mir denken, aber ich meine, ob der fokus dann nur für autoit zählt ^^
danke für den link ^^

[greenryder]

Hey Pachen wäre es möglich wenn du die Bedeutung deiner tasten angeben könntest ? Dami man das auch gut ändern kann ? Zb. Wofür steht 0 oder 4 ?

[『 』]

Originally Posted by Stahllegierung

das konnte ich mir denken, aber ich meine, ob der fokus dann nur für autoit zählt ^^
danke für den link ^^

Nein, zählt fürs allgemeine. Wenn du mit Autoit Bottest musst du das
Fenster, welches er braucht, im Vordergrund haben. Daher kannste
das nicht einfach minimieren.

#

Für was die Tasten 0 und 4 sind kann ich so auch nicht sagen, denke
aber dass 0 einfach fürs Aufheben ist

[greenryder]

Ich verstehe einfach nicht warum diese Tasten an diesen Positionen gedrückt werden sollen...

[『 』]

Originally Posted by greenryder

Ich verstehe einfach nicht warum diese Tastendrücke an diesen Positionen nicht...

Er hat aus dem Emotions Menü das sammeln auf die Taste "0" gelegt
und sobald das Erz abgebaut ist, hebt er damit die Drops auf.

Send("4") ist denke ich nur ein überbleibsel aus seinem Levelbot ?
Oder nen HP Trank fals er Irgendwo Sammelt, wo es Mobs gibt.

Btw - Gutes Deutsch

[Stahllegierung]

Originally Posted by ıKasu™

Nein, zählt fürs allgemeine. Wenn du mit Autoit Bottest musst du das
Fenster, welches er braucht, im Vordergrund haben. Daher kannste
das nicht einfach minimieren.

#

Für was die Tasten 0 und 4 sind kann ich so auch nicht sagen, denke
aber dass 0 einfach fürs Aufheben ist

Danke,
könntest du mir vielleicht nochmal helfen? ich hab paachen schon angeschrieben, aber er scheint es auch nicht zu wissen.
mein problem ist, dass der bot nur arbeitet, wenn fiesta nicht den fokus hat.
Wenn fiesta den fokus hat, sucht der bot zwar noch die pixel, aber er klickt nicht mehr. (kann es sein, dass der bot hinter das fenster klickt?)
im grunde habe ich das script aber genauso übernommen. (Hab lediglich eine Pause-Funktion dazugeschrieben)

lg