Auto It Problem

12/21/2010 19:07 .AllForOne.#1
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.
12/21/2010 19:38 omer36#2
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" 348289)
Sleep(1000)
Send("ID")
Sleep(400)
Send("{ENTER}")
Sleep(400)
Send("PW")
Sleep(1000)
Send("{ENTER}")
Sleep(2500)
mouseclick ("left" 170479)
Sleep(4000)
Else
Sleep(300)
EndIf
WEnd
EndFunc


Func Ende
()
Exit
EndFunc 
12/22/2010 00:45 Dimension0x00#3
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 :D) oder spackt der Compeiler mal wieder rum?
12/22/2010 15:26 .AllForOne.#4
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.