Auto It Problem

[.AllForOne.]

HotKeySet("{F8}", "Ende")
HotKeySet("{F7}", "Start")

Opt('PixelCoordMode', 2)
Opt('MouseCoordMode', 2)

While 1
Sleep(400)

Wend



Func Start()
While 1
Sleep(200)
Logik()

WEnd

EndFunc


Func Ende()
Exit

EndFunc


Func Logik()
$on = 0x000000
$off = 0x39565D
$pixel = PixelGetColor(793,599)


If $pixel = $off
Then
mouseclick ("left" , 348, 289)
Sleep(1000)
Send("ID")
Sleep(400)
Send("{ENTER}")
Sleep(400)
Send("PW")
Sleep(1000)
Send("{ENTER}")
Sleep(2500)
mouseclick ("left" , 170, 479)
Sleep(4000)

Else
Sleep(300)

EndIf

EndFunc


Das ist meinr Skript.
Compilierung funktioniert nur wenn ich es ausführen möchte kommt immer der Fehler: in Line 8 "" Func has no mathcing EndFunc .

Seh den Fehler einfahc nicht.

Danke

afo

PS: Soll ein lvl bot werden ich bau dannnoch eine neue Funktion oben ein in der Start Func die dann schlägt und Umhänge.

[omer36]

im func start rufst du die funktion logic auf... wozu?
führ es doch gleich im func start() auf, was du vor hast...

PHP Code:

HotKeySet("{F8}", "Ende")
HotKeySet("{F7}", "Start")

Opt('PixelCoordMode', 2)
Opt('MouseCoordMode', 2)

While 1
Sleep(400)
Wend



Func Start()
While 1
Sleep(200)
$on = 0x000000
$off = 0x39565D
$pixel = PixelGetColor(793,599)

If $pixel = $off Then
mouseclick ("left" , 348, 289)
Sleep(1000)
Send("ID")
Sleep(400)
Send("{ENTER}")
Sleep(400)
Send("PW")
Sleep(1000)
Send("{ENTER}")
Sleep(2500)
mouseclick ("left" , 170, 479)
Sleep(4000)
Else
Sleep(300)
EndIf
WEnd
EndFunc


Func Ende()
Exit
EndFunc 


[Dimension0x00]

Auch wenn die Auslagerung mit der Logik- Funktion etwas umständlich ist, sehe ich keine syntaktischen Fehler. Hab ich was vor den Augen (schon bisschen spät am Abend ) oder spackt der Compeiler mal wieder rum?

[.AllForOne.]

hm ja hat sich geklärt nur ein neues problem ist auftreten:
Func Logik()

$on = 0x000000
$off = 0x39565D
$pixel = PixelGetColor(793,599)

While 1

If $pixel = $off Then


mouseclick ("left" , 348, 289)
Sleep(1000)
Send("ID")
Sleep(400)
Send("{ENTER}")
Sleep(400)
Send("PW")
Sleep(1000)
Send("{ENTER}")
Sleep(3500)
mouseclick ("left" , 170, 479)
Sleep(4000)


Else
LvL()

EndIf

Wend
EndFunc


Func LvL()
While 1
Send("3")
Sleep(1000)
Send("{Space DOWN}")
Sleep(6000)
Send("4")
Sleep(6000)
Send("1")4
Send("1")
Send("1")
Send("1")
Sleep(400)
Send("y")
Sleep(1000)
Send("1")
Send("1")
Send("1")

Send("2")
Send("{Space UP}")

WEnd

EndFunc


Die If SChleife soll öfter aufgerufen werden, bei mir wird sie nur einmal aufgerufen, d.h. er macht kein relog nur wenn ich am anfang nicht eingelogt bin logt er sich ein und schlägt dann.