|
You last visited: Today at 19:22
Advertisement
Bot Sourcecodes kostenlos :)
Discussion on Bot Sourcecodes kostenlos :) within the Fiesta Online forum part of the MMORPGs category.
03/11/2025, 09:52
|
#16
|
elite*gold: 0 
Join Date: Mar 2011
Posts: 305
Received Thanks: 159
|
Auf einem P Server (infinity Legends), will mir damit eigentlich nur ein pot macro machen weil ich faul bin 
|
|
|
|
03/11/2025, 18:26
|
#17
|
elite*gold: 55
Join Date: Sep 2016
Posts: 200
Received Thanks: 126
|
Quote:
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.
|
|
|
|
|
03/11/2025, 20:01
|
#18
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
macro recorder sind aber nicht flexibel. wenn ich also zb erz farmen will ...
|
|
|
|
|
03/11/2025, 22:16
|
#19
|
elite*gold: 55
Join Date: Sep 2016
Posts: 200
Received Thanks: 126
|
Quote:
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)
|
|
|
|
|
03/12/2025, 00:49
|
#20
|
elite*gold: 10
Join Date: Apr 2013
Posts: 201
Received Thanks: 11
|
Quote:
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
|
|
|
|
|
03/12/2025, 08:44
|
#21
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
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
|
|
|
|
|
03/12/2025, 10:48
|
#22
|
elite*gold: 10
Join Date: Apr 2013
Posts: 201
Received Thanks: 11
|
Hab dir mal Privat geschrieben, evlt kannst du mir helfen
Wäre da erste mal das ich sowas nutze xD
|
|
|
|
|
03/12/2025, 19:28
|
#23
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
mal so einfach kurz geht das nicht
|
|
|
|
|
03/12/2025, 20:37
|
#24
|
elite*gold: 55
Join Date: Sep 2016
Posts: 200
Received Thanks: 126
|
Quote:
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?
|
|
|
|
|
03/13/2025, 18:33
|
#25
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
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
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
|
|
|
|
|
03/14/2025, 00:07
|
#26
|
elite*gold: 10
Join Date: Apr 2013
Posts: 201
Received Thanks: 11
|
Quote:
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
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
Quote:
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
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)"
|
|
|
|
|
03/14/2025, 18:06
|
#27
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
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
|
|
|
|
|
03/14/2025, 19:34
|
#28
|
elite*gold: 10
Join Date: Apr 2013
Posts: 201
Received Thanks: 11
|
Quote:
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
|
|
|
|
|
03/16/2025, 12:19
|
#29
|
elite*gold: 0
Join Date: Mar 2006
Posts: 597
Received Thanks: 178
|
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
|
|
|
|
|
03/16/2025, 19:38
|
#30
|
elite*gold: 55
Join Date: Sep 2016
Posts: 200
Received Thanks: 126
|
Quote:
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
|
|
|
|
Similar Threads
|
[Sammelthread] Alte Bot Sourcecodes
08/25/2017 - WoW Exploits, Hacks, Tools & Macros - 38 Replies
Ich release euch heute legale Sourcecodes von alten Bots welche nicht up-to-date sind und nicht mehr vertrieben oder unterstützt werden. Kein gedecompilter Stuff nur blanker SC!
2k Views sowie 200 Downloads und 33 Thanks. Das gibt Motivation :!
Neue Site für alle Downloads (auch für welche die in Elitepvpers gesperrt sind!) Danke hierfür an den Author!
Sollte jemand etwas dagegen haben bitte via PM melden und ich kontaktiere den Admin oder entferne die Seite!
DynoBot
Reiner...
|
All times are GMT +1. The time now is 19:22.
|
|
