Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
[AutoIT] Fischöffner ini [AutoIT] Fischöffner ini
You last visited: Today at 08:06

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[AutoIT] Fischöffner ini

Discussion on [AutoIT] Fischöffner ini within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 1/0/0
Join Date: Mar 2009
Posts: 502
Received Thanks: 111
[AutoIT] Fischöffner ini

moing leute ich hab mir ma nen fischöffner gemacht und wollt mir sowas mit ner ini machen die dann anzeigt wieviel zander usw er aufgemacht hat nuri-wie funzt des mit der ini noch net so ganz
Code:
#RequireAdmin
HotKeySet("{F5}", "Start")
HotKeySet("{F6}", "Ende")
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
While (1)
	Sleep(1000)
WEnd


Func START()
	While (1)

	
		$ZANDER = PixelSearch(854,408,1015,698,0xCECB94)
		If Not @error Then
			MouseClick("right", $ZANDER[0], $ZANDER[1])
			sleep (500)
			$Zanderus= $Zander+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Zanderus)
		EndIf
		$MANDERINENFISCH = PixelSearch(855, 411, 1018, 700, 0x847531)
		If Not @error Then
			MouseClick("right", $MANDERINENFISCH[0], $MANDERINENFISCH[1])
			sleep (500)
			$mandus =$Manderinenfisch+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$mandus)
		EndIf
		$GRASKARPFEN = PixelSearch(855, 411, 1018, 700,0xBDAA84)
		If Not @error Then
			MouseClick("right", $GRASKARPFEN[0], $GRASKARPFEN[1])
			$grassi =$Graskarpfen+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$grassi)
		EndIf
		$BACHFORELLE = PixelSearch(855, 411, 1018, 700, 8750458)
		If Not @error Then
			MouseClick("right", $BACHFORELLE[0], $BACHFORELLE[1])
			$Bachi=$Bachforelle+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Bachi)
		EndIf
		$LACHS = PixelSearch(855, 411, 1018, 700, 4739613)
		If Not @error Then
			MouseClick("right", $LACHS[0], $LACHS[1])
			$lachsi=$Lachs+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$lachsi)
		EndIf
		$ROTFEDER = PixelSearch(855, 411, 1018, 700, 15849652)
		If Not @error Then
			MouseClick("right", $ROTFEDER[0], $ROTFEDER[1])
			$Feder=$RotFeder+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$RotFeder)
		EndIf
		$REGENBOGENFORELLE = PixelSearch(855, 411, 1018, 700, 11775653)
		If Not @error Then
			MouseClick("right", $REGENBOGENFORELLE[0], $REGENBOGENFORELLE[1])
			$regen= $Regenbogenforelle+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$regen)
		EndIf
		$BARSCH = PixelSearch(855, 411, 1018, 700, 3751230)
		If Not @error Then
			MouseClick("right", $BARSCH[0], $BARSCH[1])
			$Arsch= $Barsch+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Arsch)
		EndIf
		$KARPFEN = PixelSearch(855, 411, 1018, 700, 0xAD7573)
		If Not @error Then
			MouseClick("right", $KARPFEN[0], $KARPFEN[1])
			$Krapfen=$Karpfen+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Krapfen)
		EndIf
		$GROSSERZANDER = PixelSearch(855, 411, 1018, 700, 8818150)
		If Not @error Then
			MouseClick("right", $GROSSERZANDER[0], $GROSSERZANDER[1])
			$fetterzander= $Grosserzander+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$fetterzander)
		EndIf
		$TENCHI = PixelSearch(855, 411, 1018, 700, 13487970)
		If Not @error Then
			MouseClick("right", $TENCHI[0], $TENCHI[1])
			$Thi=$Tenchi+1
			IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Thi)
		EndIf
		Sleep(1000)
		
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Zander,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Manderinenfisch,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Graskarpfen,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Bachforelle,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Lachs,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$RotFeder,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Regenbogenforelle,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Barsch,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Karpfen,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Grosserzander,"0")
		IniWrite(@ScriptDir &"\Fische.ini","Fische",$Tenchi,"0")

		
		
	WEnd
EndFunc


Func ENDE()
	Exit
EndFunc
SecretDead is offline  
Old   #2
 
felixli93's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
$Zanderus= $Zander+1

warum das?
$zanderus soll die zahl sein, die angibt, wie viele schon geangelt wurde, $zander ist aber eine ausgabe von pixelsearch -.-

IniWrite(@ScriptDir &"\Fische.ini","Fische",$Zander,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Manderinenfisch,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Graskarpfen,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Bachforelle,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Lachs,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$RotFeder,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Regenbogenforelle,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Barsch,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Karpfen,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Grosserzander,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Tenchi,"0")

und was bringt das?

ich glaube, du hast das ganze prinzip noch nicht so recht verstanden
felixli93 is offline  
Old   #3
 
elite*gold: 0
The Black Market: 1/0/0
Join Date: Mar 2009
Posts: 502
Received Thanks: 111
Quote:
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Zander,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Manderinenfisch,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Graskarpfen,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Bachforelle,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Lachs,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$RotFeder,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Regenbogenforelle,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Barsch,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Karpfen,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Grosserzander,"0")
IniWrite(@ScriptDir &"\Fische.ini","Fische",$Tenchi,"0")
das ist dazu da das er erstma die gesamt ini erstellt.
Quote:
$Zanderus= $Zander+1
$Zanderus soll dann der neue ausgabe wert sein der dann eingegeben wird.Und mit $Zander +1 ist gemeint das er den aktuel wert der ini +1 in dem beispiel also den zander setzten soll
SecretDead is offline  
Old   #4
 
Manlius's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jul 2008
Posts: 188
Received Thanks: 362
Probier das ganze mal so:

PHP Code:
#RequireAdmin
HotKeySet("{F5}", "Start")
HotKeySet("{F6}", "Ende")
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
While (1)
    Sleep(1000)
WEnd


Func START()
    While (1)

    
        $ZANDER = PixelSearch(854,408,1015,698,0xCECB94)
        If Not @error Then
            MouseClick("right", $ZANDER[0], $ZANDER[1])
            sleep (500)
            $Zanderus= $Zanderus+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$Zanderus)
        EndIf
        $MANDERINENFISCH = PixelSearch(855, 411, 1018, 700, 0x847531)
        If Not @error Then
            MouseClick("right", $MANDERINENFISCH[0], $MANDERINENFISCH[1])
            sleep (500)
            $mandus =$mandus+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Mandarinenfisch",$mandus)
        EndIf
        $GRASKARPFEN = PixelSearch(855, 411, 1018, 700,0xBDAA84)
        If Not @error Then
            MouseClick("right", $GRASKARPFEN[0], $GRASKARPFEN[1])
            $grassi =$grassi+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Graskarpfen",$grassi)
        EndIf
        $BACHFORELLE = PixelSearch(855, 411, 1018, 700, 8750458)
        If Not @error Then
            MouseClick("right", $BACHFORELLE[0], $BACHFORELLE[1])
            $Bachi=$Bachi+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Bachforelle",$Bachi)
        EndIf
        $LACHS = PixelSearch(855, 411, 1018, 700, 4739613)
        If Not @error Then
            MouseClick("right", $LACHS[0], $LACHS[1])
            $lachsi=$Lachs+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Zander",$lachsi)
        EndIf
        $ROTFEDER = PixelSearch(855, 411, 1018, 700, 15849652)
        If Not @error Then
            MouseClick("right", $ROTFEDER[0], $ROTFEDER[1])
            $Feder=$Feder+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Rotfeder",$Feder)
        EndIf
        $REGENBOGENFORELLE = PixelSearch(855, 411, 1018, 700, 11775653)
        If Not @error Then
            MouseClick("right", $REGENBOGENFORELLE[0], $REGENBOGENFORELLE[1])
            $regen= $regen+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Regenbogenforelle",$regen)
        EndIf
        $BARSCH = PixelSearch(855, 411, 1018, 700, 3751230)
        If Not @error Then
            MouseClick("right", $BARSCH[0], $BARSCH[1])
            $Barrsch= $Barrsch+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Barsch",$Barrsch)
        EndIf
        $KARPFEN = PixelSearch(855, 411, 1018, 700, 0xAD7573)
        If Not @error Then
            MouseClick("right", $KARPFEN[0], $KARPFEN[1])
            $Krapfen=$Krapfen+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Karpfen",$Krapfen)
        EndIf
        $GROSSERZANDER = PixelSearch(855, 411, 1018, 700, 8818150)
        If Not @error Then
            MouseClick("right", $GROSSERZANDER[0], $GROSSERZANDER[1])
            $fetterzander= $fetterzander+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","GrosserZander",$fetterzander)
        EndIf
        $TENCHI = PixelSearch(855, 411, 1018, 700, 13487970)
        If Not @error Then
            MouseClick("right", $TENCHI[0], $TENCHI[1])
            $Thi=$Thi+1
            IniWrite(@ScriptDir &"\Fische.ini","Fische","Tenchi",$Thi)
        EndIf
        Sleep(1000)
        
    WEnd
EndFunc


Func ENDE()
    Exit
EndFunc 
Manlius is offline  
Reply

« Befehl für bild in autoit3 | cheat engine / autoit »

Similar Threads Similar Threads
Fischöffner
08/15/2010 - Metin2 - 6 Replies
Ich habe mal einen ganz simplen fisch und Muschelöffner gebastelt... Ich sage ganz Simpel weil er nicht einstellbar ist was er öffner er klickt auf jedes Feld im Inventar auf Seite 1 manchmal auch 2... Er Funktioniert im Fenstermodus Hier der Link: Ich wünsch euch viel Spaß damit
autoit fischöffner
01/10/2010 - Metin2 - 0 Replies
könnt ihr mir mal vllt sagen wie ich ne funktion einbauen kann, dass der bot erkennt, ob er nun gerade wirklich den zander geöffnet hat oder so ?
Fischöffner?
12/28/2008 - Metin2 Private Server - 2 Replies
Hallo lieben User. Da ich leider nicht Fähig bin ein Fischöffner für den P server zu machen (kenne mich net mit dem scripten aus) wollte ich hier fragen ob einer einen machen könnte.



All times are GMT +2. The time now is 08:07.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.