[GUIDE] Fishing Bot selber Scripten

[andro26]

nach vielen errormeldungen geschafft.
Nochmal dickes lob marcopolo

[RapidZM]

Erstma ein dickes Lob an marcopolo =) und sorry das ich den threat wieder ausgrabe aber ich komm nicht weiter^^

Ich hab alles gemacht was zu machen war. Aber mein char wirft die angel nur rein und macht dann gar nicht mehr (er holt sie auch nicht raus).
Nach ein paar sekudnen wird die angel ja "automatisch" durch den char rausgezogen.. und dann angelt er nicht mehr weiter obwohl ich den Bot nicht beendet habe!



#cs ----------------------------------------------------------------------------

Bot Version:
Author:

Script Function:
Dieser Bot angelt automatisch für euch ohne das ihr einen Finger rühren müsst

#ce ----------------------------------------------------------------------------

HotKeySet ( "{Numpad1}" , "Start" ) ; Der Taste Numpad1 ist nun die Info Start hinzugefügt
HotKeySet ( "{Numpad9}" , "Ende" ) ; Der Taste Numpad9 ist nun die Info Ende hinzugefügt

Opt('PixelCoordMode', 2) ; falls window als option gewählt wurde
Opt('MouseCoordMode', 2) ; falls window als option gewählt wurde

While (1) ; Endlosschleife anfang und 1 für an
Sleep (1000) ; Überprüft jetzt jede Sekunde ob die oben genannten Tasten/Infos gedrückt worden sind
Wend ; Endlosschleife ende

Func Start () ; Das Zeil für die Info Start
While (1) ; die vorher vergessene while funktion sry xD
Sleep (2000) ; Wartet 2 sekunden bis er anfängt
Send ( "{F3 down}" , 0 ) ; hält die Taste F3 runter
Sleep (500) ; hält die taste 0,5 Sekunden
Send ( "{F3 up}" , 0 ) ; lässt die Taste F3 wieder los
Sleep (1000) ; Wartet 1ne Sekunde
Send ( "{F4 down}" , 0 ) ; hält die Taste F4 runter
Sleep (500) ; Hält die Taste 0,5 Sekunden
Send ( "{F4 up}" , 0 ) ; lässt die Taste F4 wieder los
Sleep (1000) ; Wartet wieder 1ne Sekunde
While (1)
$Fish1 = Pixelgetcolor ( 449, 131 )
$Fish2 = PixelgetColor ( 340, 109 )
$Fish3 = Pixelgetcolor ( 448, 133 )
$Fish4 = PixelgetColor ( 342, 108 )
$Fish5 = Pixelgetcolor ( 447, 130 )
$Fish6 = PixelgetColor ( 339, 107 )
$Fish7 = Pixelgetcolor ( 450, 134 )
$Fish8 = PixelgetColor ( 343, 110 )
$Fish9 = Pixelgetcolor ( 455, 104 )
$Fish10 = PixelgetColor ( 454, 100 )
$Fish11 = Pixelgetcolor ( 447, 132 )
$Fish12 = PixelgetColor ( 333, 104 )
$Fish13 = Pixelgetcolor ( 457, 130 )
$Fish14 = PixelgetColor ( 340, 119 )
$Fish15 = Pixelgetcolor ( 452, 100 )
If $Fish1 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFBFBFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFCFCFB Then
Sleep ( 2000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(500) ; Da der While Befehl ist muss auch ein Sleep befehl drin sein sonst überlastet das den PC unnötig
Wend
Sleep(2000) ; wartezeit , bevor er wieder von vorne anfängt
Wend ; die vorher vergessene Wend funktion sry xD
Endfunc

Func Ende ()
Exit ; Programm beendet sich
EndFunc



Was hab ich falsch gemacht? =/

[marcopolo1990]

das problem kann man jetzt so schwer erkennen am source

ich denke das er bei dir die fischblase nicht findet
überprüf die pixel und such die mal im coordmode client (fehler von mir xD)

[RapidZM]

Danke habs hinbekommen
Hab all die farbcods rausgenommen, und einen einzigen neuen genommen^^.
Funtzt alles perfekt!

Aber ich hab nochne Frage an dich per PN ^^ komm bei einem MessageBot nicht weiter!

[--EpoX--]

ja die farbcodes warn aber dafür da dass man kleine fische used und andre öfnet ^^

[RapidZM]

Das krieg ich hin!
hauptsache is das der bot seine Sache tut:

Vorher hat er nur die angel reingeworfen und dann nix mehr getan,

jetzt wirft er die angel rein zieht sie auch genau richtig raus wie ichs eingestellt hab und wirft die angel erneut rein.

Um den rest kümmer ich mich später^^

[mehmetc92]

ich finde den Au3Info.exe nicht

[mehmetc92]

kann mir jemand helfen

[banjo1]

***:\Autoit installations pfad\AutoIt3\Au3Info.exe

[mehmetc92]

habe jetzt alles fertig gekriegt und möchte es speichern als welchen dateityp sol ich es speicher.

[RapidZM]

Ganz normal als .Av3 datei speichern, dann mit dem compiler zu ner .exe machen und fertig.

[mehmetc92]

Habe das gemacht und wenn ich den bot starten wil dann kommt da ein
AutoIt Error

Line-1:

Error:''While'' statement has no matching''Wend'' statement.

dan kann man OK drücken kan mir jemand helfen?

[mehmetc92]

kann mir keiner helfen also mein geschriebener script sieht jetzt so aus.
Könnt ihr mir helfen und den fehler suchen.

#cs ----------------------------------------------------------------------------

Bot Version: v 1.04
Author: XmcX

Script Function:
Dieser Bot angelt automatisch für euch

#ce ----------------------------------------------------------------------------

HotKeySet ( "{Numpad1}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{Numpad2}" , "Ende" ) ; Der Taste Numpad8 ist nun die Info Ende hinzugefügt

While (1) ; Endlosschleife anfang und 1 für an
Sleep (1000) ; Überprüft jetzt jede Sekunde ob die oben genannten Tasten/Infos gedrückt worden sind
Wend ; Endlosschleife ende

Func Start () ; Das Zeil für die Info Start
While (1) ; Die voher vergessene While Funktion sry xD
Sleep (5000) ; Wartet 5 sekunden bis er anfängt
Send ( "{F3 down}" , 0 ) ; hält die Taste F3 runter
Sleep (500) ; hält die taste 0,5 Sekunden
Send ( "{F3 up}" , 0 ) ; lässt die Taste F3 wieder los
Sleep (1000) ; Wartet 1ne Sekunde
Send ( "{F4 down}" , 0 ) ; hält die Taste F4 runter
Sleep (500) ; Hält die Taste 0,5 Sekunden
Send ( "{F4 up}" , 0 ) ; lässt die Taste F4 wieder los
Sleep (1000) ; Wartet wieder 1ne Sekunde

While (1) ; Endloschschleife anfang
$Fish1 = Pixelgetcolor ( ) ; der Variablen wurde nun die Info hinzugefügt, das dieser Pixel (müssen wir noch einfügen) eine Farbe enthält und die Variable ihn ausliest
$Fish2 = PixelgetColor ( )
$Fish3 = Pixelgetcolor ( )
$Fish4 = PixelgetColor ( )
$Fish5 = Pixelgetcolor ( )
$Fish6 = PixelgetColor ( )
$Fish7 = Pixelgetcolor ( )
$Fish8 = PixelgetColor ( )
$Fish9 = Pixelgetcolor ( )
$Fish10 = PixelgetColor ( )
$Fish11 = Pixelgetcolor ( )
$Fish12 = PixelgetColor ( )
$Fish13 = Pixelgetcolor ( )
$Fish14 = PixelgetColor ( )
$Fish15 = Pixelgetcolor ( )
$Fish16 = PixelgetColor ( )
$Fish17 = Pixelgetcolor ( )
$Fish18 = PixelgetColor ( )
$Fish19 = Pixelgetcolor ( )
$Fish20 = PixelgetColor ( )

If $Fish1 = 0xCC6664 Then ; Wenn $Fish1 gleich 0xCC6664 ist dann mache ...
Sleep ( 3000 ) ; 3 sekunden warten bis er die angel rauszieht
Send("{F4 down}") ; taste F4 gedrückt halten zum angelrausziehen
Sleep(500) ; taste F4 0,5 sekunden gedrückt halten
Send("{F4 up}") ; Taste F4 wieder los lassen
ExitLoop ; ein Befehl, um aus der endlosscheleife wieder herrauszukommen, damit wieder unter Func Start () weitermacht
EndIf ; If Befehl Ende

If $Fish1 = 0xCC6664 Then ; Wenn $Fish1 gleich 0xFBFBFB ist dann mache ...
Sleep ( 3000 ) ; 3 sekunden warten bis er die angel rauszieht
Send("{F4 down}") ; taste F4 gedrückt halten zum angelrausziehen
Sleep(500) ; taste F4 0,5 sekunden gedrückt halten
Send("{F4 up}") ; Taste F4 wieder los lassen
ExitLoop ; ein Befehl, um aus der endlosscheleife wieder herrauszukommen, damit wieder unter Func Start () weitermacht
EndIf ; If Befehl Ende
If $Fish1 = 0xFCFCFB Then ; Wenn $Fish1 gleich 0xFCFCFB ist dann mache ...
Sleep ( 3000 ) ; 3 sekunden warten bis er die angel rauszieht
Send("{F4 down}") ; taste F4 gedrückt halten zum angelrausziehen
Sleep(500) ; taste F4 0,5 sekunden gedrückt halten
Send("{F4 up}") ; Taste F4 wieder los lassen
ExitLoop ; ein Befehl, um aus der endlosscheleife wieder herrauszukommen, damit wieder unter Func Start () weitermacht
EndIf ; If Befehl Ende

While (1) ; Endloschschleife anfang
$Fish1 = Pixelgetcolor ( ) ; der Variablen wurde nun die Info hinzugefügt, das dieser Pixel (müssen wir noch einfügen) eine Farbe enthält und die Variable ihn ausliest
$Fish2 = PixelgetColor ( )
.........................

While (1)
$Fish1 = Pixelgetcolor ( 425, 261 ) ; Dem Befehl wurde nun der Pixel zugewiesen
$Fish2 = PixelgetColor ( )
.........................

If $Fish1 = 0xFBFBFB Then ; Wenn $Fish1 gleich 0xFBFBFB ist dann mache ...
Sleep ( 3000 ) ; 3 sekunden warten bis er die angel rauszieht
Send("{F4 down}") ; taste F4 gedrückt halten zum angelrausziehen
Sleep(500) ; taste F4 0,5 sekunden gedrückt halten
Send("{F4 up}") ; Taste F4 wieder los lassen
ExitLoop ; ein Befehl, um aus der endlosscheleife wieder herrauszukommen, damit wieder unter Func Start () weitermacht
EndIf ; If Befehl Ende
If $Fish1 = 0xFCFCFB Then ; Wenn $Fish1 gleich 0xFCFCFB ist dann mache ...
Sleep ( 3000 ) ; 3 sekunden warten bis er die angel rauszieht
Send("{F4 down}") ; taste F4 gedrückt halten zum angelrausziehen
Sleep(500) ; taste F4 0,5 sekunden gedrückt halten
Send("{F4 up}") ; Taste F4 wieder los lassen
ExitLoop ; ein Befehl, um aus der endlosscheleife wieder herrauszukommen, damit wieder unter Func Start () weitermacht
EndIf ; If Befehl Ende

While (1)
$Fish1 = Pixelgetcolor ( 449, 131 )
$Fish2 = PixelgetColor ( 340, 109 )
$Fish3 = Pixelgetcolor ( 448, 133 )
$Fish4 = PixelgetColor ( 342, 108 )
$Fish5 = Pixelgetcolor ( 447, 130 )
$Fish6 = PixelgetColor ( 339, 107 )
$Fish7 = Pixelgetcolor ( 450, 134 )
$Fish8 = PixelgetColor ( 343, 110 )
$Fish9 = Pixelgetcolor ( 455, 104 )
$Fish10 = PixelgetColor ( 454, 100 )
$Fish11 = Pixelgetcolor ( 447, 132 )
$Fish12 = PixelgetColor ( 333, 104 )
$Fish13 = Pixelgetcolor ( 457, 130 )
$Fish14 = PixelgetColor ( 340, 119 )
$Fish15 = Pixelgetcolor ( 452, 100 )
If $Fish1 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(500) ; Da der While Befehl ist muss auch ein Sleep befehl drin sein sonst überlastet das den PC unnötig
Wend
Sleep(3000) ; wartezeit , bevor er wieder von vorne anfängt
EndFunc ; Func befehl zuende

Func Ende (4)
Exit ; Programm beendet sich
EndFunc



THX im vorraus!!!!!!!!!!

[marcopolo1990]

du hast den code irgendwie falsch zusammengebastelt

downloade dir aus meinem anhang den source code (1. post)

[mehmetc92]

kannst du mir helfen den bot richtig zusammen zu basteln und habe den runtergeladen und habe es gestartet aber er wirft die angel raus und ziehst es zu spät ab.