[AutoIT] Fischöffner ini

04/09/2009 16:25 SecretDead#1
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
04/09/2009 20:43 felixli93#2
$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
04/09/2009 22:30 SecretDead#3
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
04/10/2009 10:29 Manlius#4
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