Bot Sourcecodes kostenlos :)

[Acceus]

Auf einem P Server (infinity Legends), will mir damit eigentlich nur ein pot macro machen weil ich faul bin

[Der Fiesta Bob]

Originally Posted by Acceus

Auf einem P Server (infinity Legends), will mir damit eigentlich nur ein pot macro machen weil ich faul bin

Für solche sachen brauchste keine komplizierten Codes oder Bots....



Sollte für sovieles in fiesta reichen, steine potten, skills, crafting etc.

[pachen123321]

macro recorder sind aber nicht flexibel. wenn ich also zb erz farmen will ...

[Der Fiesta Bob]

Originally Posted by pachen123321

macro recorder sind aber nicht flexibel. wenn ich also zb erz farmen will ...

Seine Frage ging auch eher an simple bots zmb Potten usw. Das kannste mit Jitbit Viiiiel schneller machen. Sowas wie einen Mining Bot kannste mit Jitbit komplett vergessen. Hatte deshalb noch dazu geschrieben das es lediglich für simplen shiet gut ist, nicht für komplexeres (zmb einen Mining bot)

[xTerepens]

Originally Posted by pachen123321

willst du das an den offi anpassen ? oder an private server ?

Bin ziemlich neu da drin und wollte mich ma da rein fuchsen, wenn ich es auf einem P-Server nutzen wollen würde worauf muss ich denn achten?

So ein Autofarm für Erz wäre schon ganz geil hahah

[pachen123321]

Auf einem P-Server ist es meistens einfacher
Kein Schutz gegen sowas. Die gesuchten Adressen sind meist statisch

Der Weg bleibt im eigentlich der gleiche, das Auslesen ist auf einem P-Server einfacher

[xTerepens]

Hab dir mal Privat geschrieben, evlt kannst du mir helfen
Wäre da erste mal das ich sowas nutze xD

[pachen123321]

mal so einfach kurz geht das nicht

[Der Fiesta Bob]

Originally Posted by pachen123321

mal so einfach kurz geht das nicht

Meinste so rein aus theorie das es möglich wäre M2Bob in fiesta version zu machen?

[pachen123321]

was ist M2Bob ?

Hier auf Nachfrage mal ein Erzbot.

Den Farbcode anpassen ( In Fiesta ein SS machen und als !!! PNG !!! speichern.
Wenn ihr Autoit & Scite installiert habt ist dort auch ein Colorpicker mit dem ihr den passenden Farbcode vom Erz suchen könnt.

Der Rest ist ein wenig nachdenken und anpassen. Der Code funktioniert auf alle Fiesta Versionen

 Spoiler

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

[xTerepens]

Originally Posted by pachen123321

was ist M2Bob ?

Hier auf Nachfrage mal ein Erzbot.

Den Farbcode anpassen ( In Fiesta ein SS machen und als !!! PNG !!! speichern.
Wenn ihr Autoit & Scite installiert habt ist dort auch ein Colorpicker mit dem ihr den passenden Farbcode vom Erz suchen könnt.

Der Rest ist ein wenig nachdenken und anpassen. Der Code funktioniert auf alle Fiesta Versionen

 Spoiler

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

Interessant, muss ich mal rein schauen und probieren. Wäre ziemlich Interessant wenn ich das so hin kriege. Danke dafür!

Edit: Was genau meinst du mit SS? Screenshot? schätze ich mal xD

Dann Colorpicken und im Script umändern auf den Farbencode

Originally Posted by pachen123321

was ist M2Bob ?

Hier auf Nachfrage mal ein Erzbot.

Den Farbcode anpassen ( In Fiesta ein SS machen und als !!! PNG !!! speichern.
Wenn ihr Autoit & Scite installiert habt ist dort auch ein Colorpicker mit dem ihr den passenden Farbcode vom Erz suchen könnt.

Der Rest ist ein wenig nachdenken und anpassen. Der Code funktioniert auf alle Fiesta Versionen

 Spoiler

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

Ok hab mich mal versucht bisschen den Code anzuschauen, bin nur bisschen verwirrt davon. Ich schätze mal " func Farmen ()
While $i <= 1
$target = PixelGetColor( 777 , 35 ) ; auslesen - Gegner vorhanden ?
if $target = "F70000" then ; Rot im Target " bei "F70000" gehört die Farbe des erzes hin, bei Infinity gibt es jedoch 3 verschiedene Erzfarben also schätze ich kann man die mit einem Semicolon trennen die farben?

"Func BalkenSuchen ()
; $posora = PixelSearch(913, 753, 1004, 753, 0xF78a00,1)
$posora = PixelSearch(594, 716, 684, 716, 0xFF8A00,1) " Muss ich die an 1080p anpassen? oder braucht man eine andere Size?


Sorry falls ich so doof frage, versuche das zu verstehen und gleich mit zu lernen x) genau wie das mit dem "Sleep(100)"

[pachen123321]

geh mal in Scite nach tools - au3info
dort durch die reiter blättern bis mouse
wenn dann das fadenkreutz vom finder tool auf den screenshot ziehst ( muss png sein ) dann kannst du den farbcode und auch die positonen lesen .

der erzbot brauch nur 1 farbe, also einen für jedes erz oder auch pilze ....

dei dem rot im target wird nur geprüft, ob ein erz gefunden wured. ( erze sind auch gegner )

bei der funktion balken suchen müssen position und farbe angegeben werden. dient zum öffnen.

$poslila = PixelSearch(1, 1, 1279, 1023,0x8c7dff,2) ; Farbe des Erz

das ist die suche nach den erzen
pixelsearch ( x-links, y-oben, x-rechts,y-unten, farbcode, differenz)
mit den positionen gibt man die größe/position des suchfensters an


kann man aber in der wiki von autoit lesen.



sleep in milisekunden - warten

[xTerepens]

Originally Posted by pachen123321

geh mal in Scite nach tools - au3info
dort durch die reiter blättern bis mouse
wenn dann das fadenkreutz vom finder tool auf den screenshot ziehst ( muss png sein ) dann kannst du den farbcode und auch die positonen lesen .

der erzbot brauch nur 1 farbe, also einen für jedes erz oder auch pilze ....

dei dem rot im target wird nur geprüft, ob ein erz gefunden wured. ( erze sind auch gegner )

bei der funktion balken suchen müssen position und farbe angegeben werden. dient zum öffnen.

$poslila = PixelSearch(1, 1, 1279, 1023,0x8c7dff,2) ; Farbe des Erz

das ist die suche nach den erzen
pixelsearch ( x-links, y-oben, x-rechts,y-unten, farbcode, differenz)
mit den positionen gibt man die größe/position des suchfensters an


kann man aber in der wiki von autoit lesen.



sleep in milisekunden - warten

Kannst mir in Discord helfen? bevor man dieses Thread komplett voll ballert xD
Hatte falsche Verison von SCI versuche das jetzt aber weiß niht genau wohin die Farbe einführen

Edit; Hab jetzt die 3 Farben von 0x0061F6 ; 0xE1F295 ; 0xCE7D59

Problem ist das dass Ore bissn weird aussieht

Edit 2.0: Ok alsoo maus hängt nur an einer ecke fest beim executen von software XD

[pachen123321]

hat wer lust meinen hp/mana bot zu testen ?
brauche spieler auf verschiedenen servern.
ihr bekommt den sourcecode zum selber kompilieren.
über dc besprechen wir dann, was ihr wo eingeben sollt.

gruss

[Der Fiesta Bob]

Originally Posted by pachen123321

hat wer lust meinen hp/mana bot zu testen ?
brauche spieler auf verschiedenen servern.
ihr bekommt den sourcecode zum selber kompilieren.
über dc besprechen wir dann, was ihr wo eingeben sollt.

gruss

justchimp

ich geb dir dann mal richtige idee anstößte womit du dann mal richtig talent zeigen kannst