[Tutorial] Angelbot mit AutoIt

Page 1 of 2

08/07/2009 23:28 atze19#1

Ich schreib hier mal ein Tutorial f�r einen Angelbot mit vielen optionalen Funktionen. Ich wei�, es gibt schon n paar Tuts dazu, aber die gefallen mir nicht so (ist meine Meinung).

Vorraussetzungen:

- sehr sinnvoll w�ren AutoIt Kenntnisse, ganz ohne wirds schwer werden
- AutoIt installiert haben (am besten noch einen Editor)
- Nat�rlich Lust auf das Tutorial
- Viel Zeit
- Und am besten etwas zum Essen und Trinken

Bemerkung:

Dieses Tutorial ist nicht dazu da, einfach ein Script abzukopieren und nicht viel dabei zu lernen. Ihr solltet dabei ja auch was lernen. Also wer sagt, "gib doch mal das gesamte Script", der soll sich erstmal (mehr) mit AutoIt besch�ftigen und dann nochmal dieses Tutorial versuchen. Denn wenn ihr das Script nur kopieren solltet, dann wurde ich auch nur das Script posten und nicht ein Tutorial schreiben.
Falls ihr Befehle, usw. nicht kennt, schlagt diese am Besten in der AutoIt Hilfe nach oder fragt Google.

Das Grundscript:

So nun endlich zum Script.
Zuerst erstellt ihr euer Script und nennt es wie ihr wollt.
Wie man ein AutoIt Script erstellt werde ich wohl hier nicht mehr erkl�ren m�ssen.
Wir k�nnen jetzt mit den ersten Zeilen beginnen. Wir beginnen gleich mit unserer ersten Funktion. Die Hauptfunktion. Ich nenne sie einfach mal _Main. Diese lassen wir erstmal leer.

[Only registered and activated users can see links. Click Here To Register...]

In dieser Funktion werden dann sp�ter alle anderen Funktionen f�r den Bot aufgerufen. Damit die Funktion auch aufgerufen wird f�gen wir noch

[Only registered and activated users can see links. Click Here To Register...]

in unser Script ein. Wenn wir unser Script jetzt Compilen und ausf�hren passiert genau: Nichts. Das m�ssen wir nat�rlich �ndern. Wir f�llen uns unsere Hauptfunktion aber erstmal mit den Nebenfunktionen. Daf�r sollte man sich Gedanken �ber den Ablauf des Bots machen. Mein Ablauf sieht wie folgt aus:
- K�dersuche
- K�der benutzen
- Angel hineinwerfen
- Auf die Blase warten
- Die Angel herausziehen

Nat�rlich k�nnten da noch ein paar Abl�ufe mehr dazukommen, aber jetzt erstmal der Grundablauf. Am besten erstellen wir f�r jeden Ablaufspunkt eine Funktion und f�gen einen Aufruf der jeweiligen Funktion in der Hauptfunktion (_Main) ein. So in etwa:

[Only registered and activated users can see links. Click Here To Register...]

Das macht ihr mit jeder Ablauffunktion. W�hlt sinnvolle und gut beschreibende Namen.

Wenn ihr fertig seid gehts schon an die erste Nebenfunktion. Ich habe sie _KoederSuche genannt und sie soll, wer h�tte es gedacht, nach K�dern suchen. Ich bevorzuge daf�r die Leiste unten. Wenn wir das Angelsymbol auf ein Feld machen, dann bleiben noch 7 Felder � 200 K�der, wer jetzt gut rechnen kann wei�, wieviele das dann insgesamt sind.
OK, Spa� beiseite, also 1400 K�der sollten eigentlich reichen. Um die K�der auch zu erkennen kann man zur einfachsten Methode, die Pixel Methode greifen. Das werden wir auch tun. Daf�r m�ssen wir erstmal die Koordinaten der Slots herausfinden. Zum Gl�ck hat AutoIt daf�r ein schlaues Tool namens "AutoIt Window Info". Ihr findet es im AutoIt Ordner als "Au3Info.exe". Wenn ihr es offen habt, solltet ihr zun�chst die Optionen ver�ndern.

[Only registered and activated users can see links. Click Here To Register...]

Stellt wie bei 1. Zu sehen die Option Coord Mode auf -> Client und wie bei 2. zu sehen macht ihr einen Haken bei Magnify. Damit die Koordinaten dann von AutoIt auch im Client Modus benutz werden, f�gt ihr am Anfang des Scripts noch diese beiden Zeilen ein:

[Only registered and activated users can see links. Click Here To Register...]

Diese bewirken, dass AutoIt den Clientmodus (daf�r steht die 2) f�r die Pixel und die Mausfunktionen verwendet.
Nun aber zu unseren Coords f�r die K�der. Dazu setzen wir uns einen K�der auf unserer Leiste unten auf die 1. Dann geht ihr mit eurer Maus ungef�hr auf die Mitte des Symbols (am besten w�hlt ihr eine Farbe die sich stark von der Hintergrundfarbe (also wenn der Slot leer ist) unterscheidet) und dr�ckt, w�hrend das Window Info Tool offen ist: STRG + ALT + F um die aktuellen Werte zu freezen. Jetzt geht ihr im Window Info auf den Tab Mouse und k�nnt dort die gefreezte Mausposition und die sich darunter befindende Farbe sehen. Notiert euch diese. Dann setzt ihr auf den 2. Slot die gleiche K�derart und dr�ckt nocheinmal STRG + ALT + F um wieder zu entfreezen. Jetzt geht ihr mit der Maus �ber den K�der auf dem 2. Slot und bewegt die Maus solange ein bisschen rum bis im Window Info Tool bei Color die EXAKT gleiche Farbe wie zuvor aufgeschrieben erscheint. Dann dr�ckt ihr erneut STRG + ALT + F und schreibt euch nun aber nur die Werte bei Position auf. Die 2. Zahl (die nach dem Komma) sollte gleich wie beim 2. Scan sein. Falls das nicht so sein sollte, dann versucht einfach nochmal zu Scannen. Nun habt ihr die ersten 2 Positionen f�r die K�der. Die f�r die Tasten 3 und 4 m�sst ihr jetzt nicht mehr Scannen (wer will kanns machen), sondern k�nnt ihr ganz "einfach" ausrechnen.
Zuerst noch etwas zur Verst�ndnis:
Die Position, die ihr im Window Info sehen k�nnt, sieht ja folgenderma�en aus: 123, 456
Dabei ist die Zahl vor dem Komma (123) die X-Koordinate und die nach dem Komma (456) die Y-Koordinate.

Nun unsere Rechnung:
2. X-Koordinate (die vom 2. Slot) - 1. X-Koordinate (die vom 1. Slot) = ???

Beispiel:
130 - 120 = 10

Das Ergebnis ist unser Abstand zwischen den Slots. Also ist die X-Coord vom 3. Slot: Die X vom 2. + unser errechneter Abstand. Genau so dann beim 4. Slot mit X vom 3. + Abstand. Die Y-Koordinate bleibt bei allen Werten gleich.

Jetzt haben wir die Koordinaten von den ersten 4 Slots. Fehlen noch die 3 letzen (F1-F3, F4 habe ich f�r die Angelfertigkeit vorgesehen). Dabei geht ihr einfach wie zuvor auch vor. Sollte nicht allzuschwer sein.

Wenn ihr alle Koordinaten habt, k�nnen wir sie zun�chst im Script einf�gen. Dazu ist ein Array sehr praktisch. Wer nicht wei� was einen Array ist, der schaut in der "AutoIt3.chm" im AutoIt Ordner nach.
Zun�chst deklarieren wir unsere Array so:

[Only registered and activated users can see links. Click Here To Register...]

Es gibt 2 Dimensionen. Die erste ist f�r die Anzahl unserer Koordinaten und die 2. f�r X und Y. Wer sich nun fr�gt, warum denn 8 bei der Anzahl, wir haben doch nur 7 Slots, der liegt eigentlich richtig. Da aber die Dimensionen bei Array immer bei 0 beginnen verwende ich eins mehr und benutze 0 dann bei der Anzahl nicht (es gibt ja auch kein 0. Slot). Bei X und Y ist aber X 0 und Y 1.
Der erste Slot wird so deklariert:

[Only registered and activated users can see links. Click Here To Register...]

Beim 2. Slot ist dann die erste Zahl nicht 1 sondern 2. usw.
Also so:

[Only registered and activated users can see links. Click Here To Register...]

Es fehlt noch unsere notierte Farbe. Diese deklarieren wir mit einer Variable:

[Only registered and activated users can see links. Click Here To Register...]

Statt den "?" setzt ihr nat�rlich euren gefundenen Farbwert ein.

Da wir unsere Koordinaten und die Farbe des K�ders jetzt deklariert haben, k�nnen wir sie in unserer Funktion _KoederSuche jetzt verwenden.
Um alle Slots darauf zu �berpr�fen, ob ein K�der vorhanden ist, verwenden wir eine For-Schleife.

[Only registered and activated users can see links. Click Here To Register...]

Die 1. Zeile der Schleife. $i wird bei jedem Durchlauf um 1 erh�ht bis einschlie�lich 7. Ubound gibt die Anzahl der Indexes zur�ck, also bei uns 8 und das - 1 ist 7

[Only registered and activated users can see links. Click Here To Register...]

Hier wird �berpr�ft, ob die Pixelfarbe von dem Slot gleich ist, wie die zuvor deklarierte Variable (dann ist also ein K�der auf dem Slot und er kann verwendet werden)

[Only registered and activated users can see links. Click Here To Register...]

Wenn also die If-Bedingung von oben zutrifft, wird $i (also die Slot Nummer) zur�ckgegeben.

[Only registered and activated users can see links. Click Here To Register...]

Dann noch If und die For-Schleife beenden.

[Only registered and activated users can see links. Click Here To Register...]

Und wenn die For-Schleife durchgelaufen ist (also kein K�der mehr da ist) dann wird 0 zur�ckgegeben.

Somit ist unsere _KoederSuche Funktion schon fertig. Was wir noch �ndern m�ssen ist, dass der R�ckgabewert von der Funktion auch gespeichert wird. Also schreiben wir "$KoederSlot = " vor den Aufruf von der _KoederSuche Funktion in der Funktion _Main.

[Only registered and activated users can see links. Click Here To Register...]

Jetzt zur n�chsten Funktion. _NimmKoeder habe ich sie genannt. In ihr wird der zuvor gefundene K�der benutzt. Um diese Variable auch benutzen zu k�nnen f�gen wir der Funktion einen Parameter hinzu.

[Only registered and activated users can see links. Click Here To Register...]

Diesen m�ssen wir auch noch in der _Main Funktion angeben. Also:

[Only registered and activated users can see links. Click Here To Register...]

So kann dann der von _KoederSuche zur�ckgegebene Wert in _NimmKoeder verwendet werden.
Jetzt zum Inhalt der Funktion _NimmKoeder:

[Only registered and activated users can see links. Click Here To Register...]

Wenn die SlotNr h�her als 4 ist (also mind. 5) dann muss die jeweilige F-Taste verwendet werden.
Wenn die SlotNr = 0 ist (also kein K�der gefunden wurde kommt eine MessageBox und der Bot beendet sich.

Jetzt muss auch noch der K�der genommen werden. Das geschieht so:

[Only registered and activated users can see links. Click Here To Register...]

Die Taste wird f�r 500 ms gedr�ckt.

Der K�der wird nun genommen. Jetzt muss noch die Angel rein. Eine sehr einfache Funktion. Ich nenn sie _AngelHinein.

[Only registered and activated users can see links. Click Here To Register...]

Ist eigentlich nichts dazu zu sagen.

Nun m�ssen wir auf die Angelblase warten.
Dazu ist die Funktion _BlaseWarten (bei mir, ihr k�nnt die Funktionen auch anderst nennen).
Dazu m�ssen wir die Farbe der Blase mit AutoIt Window Info suchen und freezen. Es sollte ein wei�er Farbwert der Blase sein. Diesen deklarieren wir oben im Script bei den anderen Variablen

[Only registered and activated users can see links. Click Here To Register...]

F�r die "?" wieder den Wert eintragen.

Die Funktion _BlaseWarten sieht so aus:

[Only registered and activated users can see links. Click Here To Register...]

Ihr m�sst aber noch einen Bereich im Fenster, in dem ein Teil der Blase ist festlegen. Dazu nehmt ihr wieder das Window Info Tool und freezt euch einmal die linke obere Ecke eines gedachten Rechteckes und dann noch die rechte untere Ecke. Nat�rlich die Werte notieren. Das Rechteck sollte nicht zu gro� sein und es muss ein wei�er Teil der Blase darin sein, wenn die Blase erscheint. (Wer das mit der PixelSearch Funktion und den Parametern nicht versteht, der schaut sich erstmal die Funktion in Ruhe an). Das "If Not @error" bedeutet soviel wie "wenn kein Fehler ist", also wenn ein Wei�er Pixel gefunden wurde, dann wird die While Schleife verlassen und es geht weiter in der _Main Funktion.

Jetzt kommt die letzte Funktion. Das Herausziehen der Angel. Bei mir: _Rausziehen()
Auch so wie das Reinwerfen sehr simpel:

[Only registered and activated users can see links. Click Here To Register...]

Das etwas besondere ist die zuf�llige Zeit f�r das Herausziehen. Den Min- und Maxwert m�ssen wir noch oben im Script deklarieren. Der Wert ist in ms anzugeben (1000 ms = 1s). W�hlt irgendwelche Zeiten (z.B Min= 2000 und Max=3000). Ihr k�nnt sie ja sp�ter noch �ndern.

Nun sind alle Grunfunktionen fertig. Wenn ihr das Script nun testet sollte alles gut laufen. Nur eine Sache nicht. Es wird nur einmal geangelt. Um aber unendlich lange (bzw. solange K�der da sind) zu angeln k�nnen wir einfach eine While Schleife verwenden. Macht "While 1" (ohne "") ganz an den Anfang der Funktion _Main und "WEnd" (ohne "") ganz an das Ende der Funktion _Main. So wird alles dazwischen immer wiederholt. Damit eine Pause zwischen jedem Angelvorgang gemacht wird, schreibt ihr noch Sleep(3000) ans Ende der While 1 Schleife (also �ber das WEnd). Ihr k�nnt auch weniger oder mehr als 3s nehmen, aber 3s sind meiner Meinung ganz gut.

Somit w�ren wir mit den Grundfunktionen fertig.

08/08/2009 12:18 atze19#2

Zus�tzliche Funktionen

Zu den Grundfunktionen kann man jetzt noch zus�tzliche Sachen einbauen.

Fischkiller

Der Fischkiller soll die Fische, die geangelt wurden sofort t�ten, sodass mehr Platz im Inventar bleibt und es so gut wie nie voll werden kann.
Dazu brauchen wir wieder unser Window Info Tool. Wir m�ssen f�r jeden Fisch den wir killen wollen eine Farbe scanen. Dazu geht ihr mit eurer Maus auf die Mitte eines lebendigen Fisches und freezt den Wert. Dann den Wert notieren und weiter mit dem n�chsten Fisch. Es darf keine Farbe doppelt vorkommen! Wenn ihr alle Fische habt (oder nur einen Teil, ihr k�nnt weitere auch nachtr�glich hinzuf�gen) dann m�ssen wir diese Farbwerte noch deklarieren. Wieder so wie bei den Slots mit einem Array.

[Only registered and activated users can see links. Click Here To Register...]

Statt dem "?" gebt ihr die Anzahl der verschiedenen Fische + 1 ein. Warum + 1? Weil ja ein Array bei 0 beginnt, wir aber der Einfachheit halber mit 1 anfangen.
Dann k�nnt ihr eure Farbwerte eintragen:

[Only registered and activated users can see links. Click Here To Register...]

Statt den ? wieder den Farbwert eintragen und dahinter am Besten als Kommentar den Name des Fisches (z.B Zander).
Wenn ihr das bei allen Fischen habt, m�ssen wir nurnoch die Funktion schreiben. Die sieht folgenderma�en aus:

[Only registered and activated users can see links. Click Here To Register...]

Die Koordinaten f�r den Pixelsearch m�sst ihr noch suchen. Nehmt einfach die obere linke und die untere rechte Ecke des Itembereichs im Inventar.

Wenn ein Pixel mit der Farbe eines Fischs gefunden wird, dann klickt der Bot mit der rechten Maustaste drauf. Nun muss die Funktion nurnoch in der _Main Funktion aufgerufen werden. Setzt einfach _FischeToeten() zwischen _Rausziehen() und unser Sleep am ende der While 1 Schleife.
Jetzt werden die Fische auch gleich get�tet und das Inventar wird so gut wie nicht voll.

Weitere Funktionen folgen noch!

Falls ihr Fehler findet oder etwas nicht funktioniert, bitte hier sagen, damit ichs �ndern kann.

Feedback ist erw�nscht :bandit:

08/08/2009 12:24 InelienCewq#3

sieht ganz gut aus
bekommst thx f�r die arbeit

08/09/2009 20:41 atze19#4

*PUSH*

Schade, dass so wenige hier posten.

08/19/2009 13:20 Rayser9119#5

ich find das auch eingelungenes Tut. ich kann aber schon ganz gut mit autoit wei� also was da f�r m�hen hinter stecken! von mir gibts ein THX

10/03/2009 12:47 S-youth#6

danke mein erster angel bot (:

thx

12/17/2009 18:59 DraaaKe#7

k�nnte man das nicht k�rzer fassen? Also eigentlich muss der ja nur F3 dr�cken dann ZB F4 f�r das angelsymbol oder enter^^ Dann nach dem farbwert der blase scannen und sobald dieser kommt 2000millisekunden warten und dann enter dann 3sek warten und von vorne beginnen?

12/18/2009 21:57 Cheat-Penner#8

Quote:

Originally Posted by atze19

in unser Script ein. Wenn wir unser Script jetzt Compilen und ausf�hren passiert genau: Nichts. Das m�ssen wir nat�rlich �ndern. Wir f�llen uns unsere Hauptfunktion aber erstmal mit den Nebenfunktionen. Daf�r sollte man sich Gedanken �ber den Ablauf des Bots machen. Mein Ablauf sieht wie folgt aus:
- K�dersuche
- K�der benutzen
- Angel hineinwerfen
- Auf die Blase warten
- Die Angel herausziehen

Nat�rlich k�nnten da noch ein paar Abl�ufe mehr dazukommen, aber jetzt erstmal der Grundablauf. Am besten erstellen wir f�r jeden Ablaufspunkt eine Funktion und f�gen einen Aufruf der jeweiligen Funktion in der Hauptfunktion (_Main) ein. So in etwa:

Das macht ihr mit jeder Ablauffunktion. W�hlt sinnvolle und gut beschreibende Namen.

Wenn ihr fertig seid gehts...

Quote:

Originally Posted by atze19

Es fehlt noch unsere notierte Farbe. Diese deklarieren wir mit einer Variable:

Statt den "?" setzt ihr nat�rlich euren gefundenen Farbwert ein.

1. Solln wir jetzt alles machen wie Angel werfen oder so?

2. Wir sollten 2 Farbwerte messen welcher kommt rein?

12/19/2009 01:38 eXcalibur93#9

Also ich find den bot auch gut, w�re aber nicht schlecht, wenn du den gesamten code noch reinstellen w�rdest, damitr man seinen abgleichen kann.

12/19/2009 11:56 Cheat-Penner#10

ich habe es genau so gemacht wie du und das hier kam raus (nur zur h�flte):

Code:

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

 Angelbot by Cheat-Penner
 Author: Cheat-Penner

 Script Function:
	Dieser Bot angelt f�r euch!

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

; Script Start - Add your code below here
Opt("MouseCoordMode",2)
Opt("PixelCoordMode",2)

Func __Main()
EndFunc
_Main()

Func _Main()
	$KoederSlot = _KoederSuche()

EndFunc

Func _KoederSuche()
EndFunc

Func _Main()
	_Koeder benutzen()
	_NimmKoeder($KoederSlot)


EndFunc

Func _Koeder benutzen()
EndFunc

Func _Main()
	_Angel werfen()
EndFunc

Func _Angel werfen()
EndFunc

Func _Main()
	_Auf Blase warten()
EndFunc

Func _Auf Blase warten()
EndFunc

Func _Main()
	_Angel herausziehen()
EndFunc

Func _Angel herausziehen()
EndFunc

Func _Main()
	_Fisch toeten()
EndFunc

Func _Fisch toeten()
EndFunc

#include <Array.au3>
Global $Slot[8][2]
$Slot[1][0] = X
$Slot[1][1] = Y
$Slot[2][0] = X
$Slot[2][1] = Y
$Slot[3][0] = X
$Slot[3][1] = Y
$Slot[4][0] = X
$Slot[4][1] = Y
$Slot[5][0] = X
$Slot[5][1] = Y
$Slot[6][0] = X
$Slot[6][1] = Y
$Slot[7][0] = X
$Slot[7][1] = Y
$Slot[8][0] = X
$Slot[8][1] = Y
_ArrayDisplay($Array, $Angelbot) 

$Koeder = 0x32,108

For $i = 1 to UBound($Slot) - 1

	For $i = 2 to UBound($Slot) - 1
		For $i = 3 to UBound($Slot) - 1
			For $i = 4 to UBound($Slot) - 1
				For $i = 5 to UBound($Slot) - 1
					For $i = 6 to UBound($Slot) - 1
						For $i = 7 to UBound($Slot) - 1
							If PixelGetColor($Slot[$i][0],$Slot[$i[1]) = $Koeder Then
								Return $1
							EndIf
						Next
						Return 0

12/27/2009 23:51 eXcalibur93#11

Also hallo, ich hab den Bot auch einmal nach diesem TuT geschieben, jetzt hab ich das problem, dass ich immer eine errormeldung bekomme. Ich weis nicht warum Scite da ein Error sendet:

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(61 ,20) : ERROR: syntax error
ElseIf $Slotnr = 0
~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(67 ,31) : ERROR: syntax error
Send ("{" & $Taste & " DOWN}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(69 ,29) : ERROR: syntax error
Send ("{" & $Taste & " UP}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(80 ,60) : ERROR: syntax error
$Coord = PixelSearch ( 336, 52, 400, 95, $Fischblase, 5 )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(82 ,12) : ERROR: 'ExitLoop' not allowed outside loop.
ExitLoop
~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(85 ,2) : ERROR: syntax error
WEnd
^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3 - 6 error(s), 0 warning(s)

Alos z.B. warum kommt ein Error bei exitloop?, da darf kein Error kommen.
W�rde mich �ber etwas Hilfe freuen, kenn mich mit AutoIt nicht so sehr aus.

12/30/2009 01:03 Quade#12

Quote:

Originally Posted by eXcalibur93

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(61 ,20) : ERROR: syntax error
ElseIf $Slotnr = 0 Then

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(67 ,31) : ERROR: syntax error
Send ("{" & $Taste & " DOWN}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(69 ,29) : ERROR: syntax error
Send ("{" & $Taste & " UP}")

Klappt bei mir... $Taste nicht definiert?

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(80 ,60) : ERROR: syntax error
$Coord = PixelSearch ( 336, 52, 400, 95, $Fischblase, 5 )

Bin mir nicht sicher, aber wahrscheinlich hast du Fischblase nicht definiert.

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(82 ,12) : ERROR: 'ExitLoop' not allowed outside loop.
ExitLoop

Wahrscheinlich ein Exitloop au�erhalb einer Schleife angebracht? :D

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(85 ,2) : ERROR: syntax error
WEnd

WEnd ohne While? :D

Vllt??:D

01/05/2010 12:38 eXcalibur93#13

Naja hier der Bot, hab noch den Fischkiller reingemacht. Also das mit dem Then hab ich vergessen mein fehler.
Aber die $taste is ja mit

PHP Code:


			
$Taste = "F" & ( $Slotnr - 4 )

eigentlich definiert oder?
Fischblase is au definiert, und Exitloop is in einer While 1 schleife.....
Und naja das WEnd steht au mit einem While...

PHP Code:


			
Opt ( "MouseCoordMode", 2 )
Opt ( "PixelCoordMode", 2 )
WinActivate ( "METIN2" )
WinWaitActive ( "METIN2" )
Global $Slot[8][2]
$Slot[1][0] = 443
$Slot[1][1] = 751
$Slot[2][0] = 475
$Slot[2][1] = 751
$Slot[3][0] = 507
$Slot[3][1] = 751
$Slot[4][0] = 539
$Slot[4][1] = 751
$Slot[5][0] = 585
$Slot[5][1] = 751
$Slot[6][0] = 617
$Slot[6][1] = 751
$Slot[7][0] = 649
$Slot[7][1] = 751
$Slot[8][0] = 0
$Slot[8][1] = 0
Global $Fisch[21]
;$Fisch[1] = 0 ;Aal
;$Fisch[2] = 0 ;Ayu
$Fisch[3] = 0x212018 ;Bachforelle
;$Fisch[4] = 0 ;Barsch
;$Fisch[5] = 0 ;Flussforelle
;$Fisch[6] = 0 ;Goldfisch
$Fisch[7] = 0x8C8673 ;Graskarpfen
$Fisch[8] = 0xFFFFFF ;Grosserzander
$Fisch[9] = 0xB58A84 ;Karpfen
;$Fisch[10] = 0 ;Katzenfisch
$Fisch[11] = 0x9C9A84 ;Lachs
;$Fisch[12] = 0 ;Lotusfisch
$Fisch[13] = 0x4A3418 ;Mandarinfisch
$Fisch[14] = 0x5A5142 ;Regenbogenforelle
$Fisch[15] = 0xFFFFF7 ;Rotfeder
;$Fisch[16] = 0 ;Schmerle
;$Fisch[17] = 0 ;Shiri
;$Fisch[18] = 0 ;Spiegelkarpfen
;$Fisch[19] = 0 ;Stint
;$Fisch[20] = 0 ;Tenchi
$Fisch[21] = 0xF7EBAD ;Zander
$Koeder = 0x422415
$Fischblase = 0xFcF8Fc
$Min = InputBox ( "Angelbot", "Minimale Zeit in ms?" )
$Max = InputBox ( "Angelbot", "Maximale Zeit in ms?" )

_Main()

Func _Main()
    $Koederslot = _Koedersuche()
    _Nimmkoeder($Koederslot)
    _Angelhinein()
    _Blasewarten()
    _Fischtoeten()
    _Rausziehen()
EndFunc

    Func _Koedersuche()
        For $i = 1 to UBound ( $Slot ) - 1
            If PixelGetColor ( $Slot[$i][0], $Slot[$i][1] ) = $Koeder Then
                Return $i
            EndIf
        Next
        Return 0
    EndFunc

Func _Nimmkoeder($Slotnr)
    If $Slotnr > 4 Then
        $Taste = "F" & ( $Slotnr - 4 )
    ElseIf $Slotnr = 0 Then
        MsgBox ( 0, "Angelbot", "Keine K�der mehr!" )
        Exit
    Else
        $Taste = $Slotnr
    EndIf
    Send ("{" & $Taste & " DOWN}")
    Sleep ( 500 )
    Send ("{" & $Taste & " UP}")
EndFunc

Func _Angelhinein()
    Send ( "{F4 DOWN}" )
    Sleep ( 500 )
    Send ( "{F4 UP}" )
EndFunc

Func _Blasewarten()
    While 1
        $Coord = PixelSearch ( 336, 52, 400, 95, $Fischblase, 5 )
        If Not @error Then
            ExitLoop
        EndIf
        Sleep ( 100 )
    WEnd ; @@@@@@@@@ dieses WEnd war gemeint, da is aber nen While!
EndFunc

Func _Rausziehen()
    $Wartezeit = Random ( $Min, $Max, 1 )
    Sleep ( $Wartezeit )
    Send ( "{F4 DOWN}" )
    Sleep ( 500 )
    Send ( "{F4 UP}" )
EndFunc

Func _Fischtoeten()
    For $e = 1 To UBound ( $Fisch ) -1
        $Coord2 = PixelSearch ( 877, 450, 1005, 578, $Fisch[$e], 0, 32 )
        If Not @error Then
            MouseClick ( "right", $Coord2[0], $Coord2[1], 1, 2 )
        EndIf
    Next
EndFunc

01/09/2010 16:32 Loveskill#14

Danke hat mir geholfen THX kriegste ;)

01/09/2010 16:38 freddy2001#15

Quote:

Originally Posted by eXcalibur93

Also hallo, ich hab den Bot auch einmal nach diesem TuT geschieben, jetzt hab ich das problem, dass ich immer eine errormeldung bekomme. Ich weis nicht warum Scite da ein Error sendet:

C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(61 ,20) : ERROR: syntax error
ElseIf $Slotnr = 0
~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(67 ,31) : ERROR: syntax error
Send ("{" & $Taste & " DOWN}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(69 ,29) : ERROR: syntax error
Send ("{" & $Taste & " UP}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(80 ,60) : ERROR: syntax error
$Coord = PixelSearch ( 336, 52, 400, 95, $Fischblase, 5 )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(82 ,12) : ERROR: 'ExitLoop' not allowed outside loop.
ExitLoop
~~~~~~~~^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3(85 ,2) : ERROR: syntax error
WEnd
^
C:\Dokumente und Einstellungen\Konrad\Desktop\AutoIt\epvpbot.au3 - 6 error(s), 0 warning(s)

Alos z.B. warum kommt ein Error bei exitloop?, da darf kein Error kommen.
W�rde mich �ber etwas Hilfe freuen, kenn mich mit AutoIt nicht so sehr aus.

W�rde mich wundern wenn das alle fehler w�ren :o

Ich hab im Anhand mal eine Datei hochgeladen die eure AutiIT scripts �berpr�ft, nach Fehlern absucht und die Zeile und den Fehler im Script makiert. Es werden immer BackUp's von eurem Script erstellt ;)

So ist die Fehlersuche einfacher :)

[Only registered and activated users can see links. Click Here To Register...]

Page 1 of 2