|
You last visited: Today at 05:15
Advertisement
[GUIDE] Fishing Bot selber Scripten
Discussion on [GUIDE] Fishing Bot selber Scripten within the Metin2 Guides & Templates forum part of the Metin2 category.
07/12/2008, 22:24
|
#61
|
elite*gold: 0 
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Hoffe es ist jetzt richtig.
#cs ----------------------------------------------------------------------------
Bot Version: v 1.04
Author: XmcM
Script Function:
Dieser Bot angelt automatisch für euch
#ce ----------------------------------------------------------------------------
HotKeySet ( "{Numpad7}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{Numpad8}" , "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 vorher vergessene while funktion sry xD
Sleep (2500) ; 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 (1800) ; 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 ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(1800) ; 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
Wend ; die vorher vergessene Wend funktion sry xD
Endfunc
Func Ende ()
Exit ; Programm beendet sich
EndFunc
Der zieht es abber zu spät raus kannst du mir helfen
|
|
|
|
07/12/2008, 22:47
|
#62
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
klappt immernoch nicht also er wirft die angel raus und zieht es nicht wieder raus pls helft mir
|
|
|
|
|
07/12/2008, 23:00
|
#63
|
elite*gold: 1371
Join Date: Dec 2007
Posts: 14,903
Received Thanks: 19,354
|
Füg mal :
Quote:
('PixelCoordMode', 2)
Opt('MouseCoordMode', 2)
|
dazu
ersetz mal 0xFCFCFB durch deine Farbe
|
|
|
|
|
07/13/2008, 00:20
|
#64
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Ne, geht immer noch nicht er wirf es raus aber zieht es nicht wieder raus.
Er benutzt nur einmal also er angelt einmal dann nicht mehr. helft mir pls
|
|
|
|
|
07/13/2008, 09:20
|
#65
|
elite*gold: 20
Join Date: Jan 2008
Posts: 2,632
Received Thanks: 8,492
|
er zieht die angel nicht raus weil er die fischblase nicht findet
du musst die farbwerte und pixel überprüfen und mit deinen ersetzten
|
|
|
|
|
07/13/2008, 10:02
|
#66
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Was ist wenn ich z.B 4 Farben nehmen will kannst du mir mal ein beispiel machen.
|
|
|
|
|
07/13/2008, 10:06
|
#67
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Und kannst du mir mal sagen wie ich den script von marcopolos bot sehen kann ich will ihn mal überarbeiten.
|
|
|
|
|
07/13/2008, 10:52
|
#68
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Hab es gemahct er wirft es jetzt raus und nimmt es sofort wieder aus dem wasser könnt ihr mal schauen wo der fehler ist also ich will das er nach der blase 1,8 sec warten und dann zieht wo muss ich was ändern?
#cs ----------------------------------------------------------------------------
Bot Version: v 1.04
Author: XmcM
Script Function:
Dieser Bot angelt automatisch für euch
#ce ----------------------------------------------------------------------------
HotKeySet ( "{Numpad7}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{Numpad8}" , "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 vorher vergessene while funktion sry xD
Sleep (2500) ; 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 (1800) ; 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 ( 799, 0 )
$Fish2 = PixelgetColor ( 539,230 )
$Fish3 = Pixelgetcolor ( 790, 0 )
$Fish4 = PixelgetColor ( 399,300 )
$Fish5 = Pixelgetcolor ( 797,0 )
$Fish6 = PixelgetColor ( 794,0 )
$Fish7 = Pixelgetcolor ( 512,384 )
$Fish8 = PixelgetColor ( 512,385 )
$Fish9 = Pixelgetcolor ( 797,2 )
$Fish10 = PixelgetColor ( 784,1 )
If $Fish1 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0x947953 Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0x8D734C Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(1800)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(1800) ; 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
Wend ; die vorher vergessene Wend funktion sry xD
Endfunc
Func Ende ()
Exit ; Programm beendet sich
EndFunc
|
|
|
|
|
07/13/2008, 14:58
|
#69
|
elite*gold: 0
Join Date: Jan 2008
Posts: 25
Received Thanks: 3
|
Kann mir bitte jemand weiter helfen
|
|
|
|
|
07/13/2008, 19:19
|
#70
|
elite*gold: 20
Join Date: Jan 2008
Posts: 2,632
Received Thanks: 8,492
|
haste auf die auflösung geachtet?
800x600 16bpp gamma3 fenstermodus
|
|
|
|
|
07/25/2008, 18:24
|
#71
|
elite*gold: 0
Join Date: Apr 2008
Posts: 239
Received Thanks: 56
|
So hab jetzt alles gemacht nur noch eine frage wie mache ich das jetzt so das es so wird wie hier auf dem bild :
oder:
aussieht also ein vollschtändiges programm ist mit Icon und so.
|
|
|
|
|
08/03/2008, 00:51
|
#72
|
elite*gold: 0
Join Date: Dec 2007
Posts: 105
Received Thanks: 24
|
Hi sehr nice der Guide, hab in Info bisher zwar nur VB geproggt, aber ich hab hier alles verstanden GANZ DICKES LOB
mit hilfe hiervon werd ich mir wenn ich zeit hab au nen fishtöter einbaun, ^^ ,sag mal pls den command für nen rightklick auf ne bestimmt posi
THX von mir
|
|
|
|
|
08/04/2008, 18:40
|
#73
|
elite*gold: 2
Join Date: Mar 2008
Posts: 8,541
Received Thanks: 4,539
|
Quote:
Originally Posted by WokfhackerShino
So hab jetzt alles gemacht nur noch eine frage wie mache ich das jetzt so das es so wird wie hier auf dem bild :
oder:
aussieht also ein vollschtändiges programm ist mit Icon und so. |
google und brain.exe
is sowas von simpel
oder du findest jemanden der so nett ist und es dir erklärt^^
such am besten mal im autoit forum nach koda
|
|
|
|
|
08/05/2008, 10:50
|
#74
|
elite*gold: 0
Join Date: Apr 2008
Posts: 451
Received Thanks: 114
|
wollt ich auch fragen und noch was: wieviel entspricht jetzt das angeln herausziehen? so wie es marco geschrieben hat?
3,5 sec nach symbol ?
|
|
|
|
|
08/06/2008, 13:37
|
#75
|
elite*gold: 0
Join Date: Oct 2007
Posts: 48
Received Thanks: 25
|
Hallo Fishingbotscripter
Ein Tip von mir.
Beschäftigt euch frühzeitig mit Arrays. Alleine mit euren ewigen IF-Abfragen und While-Schleifen killt ihr ja jeden Hausverstand.
Euer Script umfasst ja mit Ködernachfüllen, Fischen und Schlachten Schätzungsweise 2000-2500 Zeilen.
Lauter Potentiale um Fehler in Sripte einzubauen, zum Hängenbleiben und zum Verlangsamen durch die unzäligen eingefügten Sleep-Befehle.
Wenn ihr euch mit Array und Switch nur etwas auskennt, schreibt ihr das ganze mit maximal 150 Zeilen und habt einen wesentlich stabileren und schnelleren Bot.
Gruß
Powercharade
|
|
|
|
 |
|
Similar Threads
|
[GUIDE] Farmbot selber scripten
01/04/2011 - Metin2 Guides & Templates - 39 Replies
hi^^hab mir letzte woche nen farmbot mit pickup,relogin,potten und natürlich schlagen+fertigkeiten gemacht und wollte jetzt mal nen guide dazu reinstellen
1.Download+Installation
alles zur installation+download findet ihr hier:
http://www.elitepvpers.com/forum/metin2-guides-tem plates/121943-guide-fishing-bot-selber-scripten.ht ml
2.reloger+schlager+fertigkeiten und pickup (potter ist sepperat)
Als erstes brauchen wir Hotkeys, mit denen wir den Bot starten und beendet können
Die...
|
[GUIDE] PickUpBot selber Scripten
08/13/2010 - Metin2 Guides & Templates - 48 Replies
Hallo
Da es einige gibt, die mich immer fragen wie machste das.Habe ich mal dieses Tutorial erstellt, wie man sich selber seinen PickUpBot erstellt.
1. Einleitung
Zuerst braucht ihr AutoIt3 (das Scriptprogramm)
erhältlich hier mit den extras dazu HIER:
Kostenloser AutoIt (3.2.12.0) Download - netzwelt.de
|
[Guide]Pickupbot selber scripten (mit potter)
06/16/2009 - AutoIt - 3 Replies
Hallo,
ich habe mal mit der Sufu paar Pickupbots angeguckt
und nix besonderes gefunden wie z.B: pause scripten und
nur picken wenn metin2 aktiv ist. Also habe ich beschlossen
selber eine Guide dazu zu erstellen.
Download von Autoit: AutoIt v3 - Downloads
Zuerst kommt die Signatur die ich aber immer weglasse =)
|
[GUIDE] AntiGM (Antworte)Bot selber scripten
01/04/2009 - Metin2 Guides & Templates - 16 Replies
Also... in diesem Thread möchte ich erklären wie man sich den oben genannten Bot selbst scriptet :)
Ich hoffe der Guide kommt annährend an was gutes ran xD
Funktion:
Dieser Bot erkennt eine Nachricht, öffnet sie, schreibt einen gewissen Text, und loggt sich aus...
Dies weil ein simpler AntworteBot sicherlich nicht ganz einem GM standhalten kann der gnadenlos Fragen auf euch einrieseln lässt.
Materialien:
|
All times are GMT +1. The time now is 05:22.
|
|
![[GUIDE] Fishing Bot selber Scripten](https://www.elitepvpers.com/forum/iconimages/metin2-guides-templates/guide-fishing-bot-selber-scripten_ltr.gif){kind=small}
