[GUIDE] Fishing Bot selber Scripten

[Alego]

Hallo an alle fleißigen Schreiber!

Ich wollte ein fishbot scripten dass halt die fische fängt ^^, killt, und macnhe sache wegschmeist ... so ich hab mir dein toturial genau angeschaut und eigndlich (glaube ich zumindest) verstanden.

Ich hab dann ma nach ein paar vollgekritzelten DIN A4 seiten ma losgeschreben ... jedoch als ich den ersten test mache wollte (nur fischen und einen bestimmte fisch öfnnen) hatte der garncihts gemacht. ??? den fehler finde ich nicth

das war aerb ncoh nciht. das war nciht das was mich wirklcih gewundert hat. ich hab dann ma dein code geladen, und außgeführt ... das selbe prob ... er wirft noch nciht mal die angel raus ??? echt kein plan was cih falshc mache ... (habe acuh den code in exe gepackt, aber acuh natürlich ncihts neues)

Danke schonma für die hilfe im vorraus.

MFG | Alego

/EDIT: Dümster Fehler überhaupt, den man machen kann, fergessen auf den Knopf zu drücken (numpad7) um die func zu starten ... lol ... einfach nur oberpeinlich. sry wenne ich gestört habe ... bei bedarf kann ich mein endergebniss ma posten

[marcopolo1990]

der war gut xD

aber vom fischeöffnen ist da garnichts drinne

[Alego]

So, diesmal habe ich wirklich ein Problem ... und zwar hab ich mich gerstern Nacht so gefreut, das ich ganz vergessen habe zu gucken, ob der überhaupt die Angel richtig herauszieht und wieder vom neuen anfängt. Den nämlich genau das macht der bei mir nicht.
Meine Ahnname ist, dass die Farbcodes auf dieser weißen Blase bei mir nciht stimmen (wegen Grafikkarte oda so). Bin darauf gekommen, weil dein Code dies auch nciht macht ... hm.
Also er macht Köder drauf, wirft die Angel rein, zieht aba nicht richtig raus. Ich würde jetzt gerne von dir wissen, welche Koordinaten ich am besten nehmen soll und wie am besten die Farbcodes ermitteln (habe AutoIt Window Info benutzt, jedoch auch kein Erfolg).

Meine zweite Frage is, welshalb du so viele Koordinaten genommen hast? Um sicherzugehen, dass es auch funzt? Aba wenn ich den Bot speziell für meinen PC machen, dann sollte doch einer reichen oda?

Nochmals Danke im Vorraus und MFG | Alego

[marcopolo1990]

am besten nimmst du die koord, die vorgegeben sind
oder du benutzt einen oder zwei Pixelsearch befehl statt pixelgetcolor

...
While (1)
$PixelFish1 = Pixelsearch ( 286, 125 , 585, 298 , 0xFBFBFB , 30 , 1 )
$PixelFish2 = Pixelsearch ( 286, 125 , 585, 298 , 0xFCFCFB , 30 , 1 )
If not @Error Then
Sleep ( Zeit bis zum herrausziehen )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
Endif
Sleep(100)
Wend
...

wenn du pixelsearch nimmst und einen langsamen PC hast kann es sein dass er die Fischblase mal überlaagt , muss aber nicht

[Alego]

Coole Idee, werde es heute Abend ma ausprobieren, wusste garnciht dass es sowas gibt ... das müsste aba bestimmt diesma gehen!

/edit: So, es funzt, danke dir vielmals. War schon echt kurz davor aufzugeben. Nun komme ich aber wieder ncith weiter. Ich wollte noch eine endlosschleife schrieben, die die Fische killt. Jedoch funktioniert es bei mir nciht, so wie ich es geschribenb hab, hier kommt mein ganzer Code (Hab nur für die ersten beiden Fachergeacmht nud nur für einen Fisch, der Farbwert stimmt, 100% hab den überprüft):

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

Bot Version: v 1.00
Author: Alego

Script Function:
Angelbot

#ce ----------------------------------------------------------------------------
HotKeySet ( "{HOME}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{END}" , "Ende" ) ; Der Taste Numpad8 ist nun die Info Ende hinzugefügt
HotKeySet("{PAUSE}", "TogglePause")

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

Global $Paused
While 1
Sleep(100)
WEnd

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Der Bot wurde Pausiert',0,0)
WEnd
ToolTip("")
EndFunc

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 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)
$PixelFish1 = Pixelsearch ( 286, 125 , 585, 298 , 0xFBFBFB , 30 , 1 )
$PixelFish2 = Pixelsearch ( 286, 125 , 585, 298 , 0xFCFCFB , 30 , 1 )
If not @Error Then
Sleep ( 2650 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
Endif

While (1)
$Fisch1 = PixelGetColor ( 288, 650 )
$Fisch2 = PixelGetColor ( 288, 682 )
If $Fisch1 = 0x856433 Then
Sleep ( 500 )
MouseClick ( "right" [, 288, 650 ] )
ExitLoop
EndIf
If $Fisch2 = 0x856433 Then
Sleep ( 500 )
MouseClick ( "right" [, 288, 682 ] )
ExitLoop
EndIf

Sleep (100)
Wend
Sleep(100)
Wend
Sleep(1500) ; wartezeit , bevor er wieder von vorne anfängt
Wend ; die vorher vergessene Wend funktion sry xD
Endfunc


Func Ende ()
Exit ; Programm beendet sich
EndFunc

So, hoffe du kannst mir helfen. DEn bei diesem Code wirft er die Angel rein, zieht aber komishcer weise sofort raus, jedoch wenn ich die schleife mit dem fischeöffnen lösche, dann geht es wieder ganz normal. Und wenn ich ein script nur mit der Fischeöffnen Schleife schreibe, dann öffnet er den fisch wie geplant. kein plan was cih falsch mache, hoffe wieder auf deine hilfe!

bidde schireb bald zurück, will das teil endlcih fertig haben ^^

/edit: ich hab ma wider gegooglt und bin auf ne andere idee gekommen, als mit dem Getpixel befehl zu fischeöffnen: man kann dies doch einfacher mit PixelChecksum machen, oda? ich meine, dass man mit dieser Prüfsumme aussagenkann, dass sich etwas verändert hat. und dann mit nem IF-Satz, wenn stimm dann diesen rightclickbefehl machen. Das wäre halt noch ne idee von mir, wenn das wikrlich stimm, dan schieb ma eben auf, was und wie ich das in meinen Code einfügen kann. Wiederrum vielen Dank.

MFG | Alego

[marcopolo1990]

entfern doch einfach die while beim fischöffnen

While (1) ; die vorher vergessene while funktion sry xD
Sleep (2000) ; 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)
$PixelFish1 = Pixelsearch ( 286, 125 , 585, 298 , 0xFBFBFB , 30 , 1 )
$PixelFish2 = Pixelsearch ( 286, 125 , 585, 298 , 0xFCFCFB , 30 , 1 )

If not @Error Then
Sleep ( 2650 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
Endif
$Fisch1 = PixelGetColor ( 288, 650 )
$Fisch2 = PixelGetColor ( 288, 682 )
If $Fisch1 = 0x856433 Then
Sleep ( 500 )
MouseClick ( "right" [, 288, 650 ] )
EndIf
If $Fisch2 = 0x856433 Then
Sleep ( 500 )
MouseClick ( "right" [, 288, 682 ] )
EndIf


Sleep(100)
Wend
Sleep(1500) ; wartezeit , bevor er wieder von vorne anfängt
Wend ; die vorher vergessene Wend funktion sry xD
Endfunc


Func Ende ()
Exit ; Programm beendet sich
EndFunc

weis nicht obs in einem script geht, sonst musst du 2 nebeneinander laufen lassen

[Alego]

Hey, danke dir MarcoPolo für deine Hilfe! Wollte wie versprochen berichten, dass ich es geschafft habe, zwar habe ich eine woche gebracuht, aber immerhin funktioniert nun alles, inklusieve fische öffnen, ködernachfüllen und so weita.

MFG | Alego

[Computerfreek]

Noch ein kleiner Tipp, für die, die es nicht kennen:

Wenn ihr im Lokalen Chat (fish) eingebt, erscheint auch eine Fishblase.
Diese verschwindet etwas früher, aber man kann sie an beliebigen Plätzen "erschaffen".

Gruß Lacho

EDIT://

$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

Warum ist da immer 2 mal " If $Fish X = ......"??
Muss doch normalerweise nur ein mal da stehen oder?

[marcopolo1990]

ich hab 2 farben gewählt, weil die 2 farben am häufigsten vorkommen
daher 2 ifs

außerdem ist das ein smylie mit dem fisch
gibs noch mehr von

[Computerfreek]

Könnte man theoretisch auch das 2te If weglassn?

[°Remus°]

könnte man machen aber damit geht die zuverlässigkeit flöten
€dit: man könnte doch die 2 ifs mit "or" zu einem if zusammen fassen oder?

[Quade]

Ich denke schon.

[Computerfreek]

Bei mir kommen die Farben 0xFCF8FB und 0xFBF7FB am häufigsten vor, soll ich dann immer die 2 Da rein schreiben?

[°Remus°]

Originally Posted by Computerfreek

Bei mir kommen die Farben 0xFCF8FB und 0xFBF7FB am häufigsten vor, soll ich dann immer die 2 Da rein schreiben?

ja, hast wahrscheinlich pixelbug oder sowas

[elitemann]

ma ne frage zu punkt 2 wo muss ich rechtsklick machen für neu


vllt is des ja ne dumme frage abba ich kenn mich mit so zeug ned so aus

würd mich auf ne antwort freuen


lg