Hilfe für AutoIT

[bladerofdarknes]

es gibt eine goldene regel, keine hotkeys und func's in der while ... :-)

[Eddy777]

hmm
könnstet du mri bie der überarbeitung helfen ? habe ICQ und TS 2 ^^

EDIT : oder wie könns auch im Forum überarbeiten sind ja keine leechers ^^

[PenGuin :O]

Originally Posted by bladerofdarknes

es gibt eine goldene regel, keine hotkeys und func's in der while ... :-)

*hust* Bei deinem Fastwriter hast du aber auch Funcs in einer While Schleife getan Bzw. überhaupt in eine Schleife^^

[bladerofdarknes]

*** deswegen sag ich das ja du geflügel

[Eddy777]

funzt das Script bei euch ?

[Neon™]

Originally Posted by Eddy777

funzt das Script bei euch ?

Erkär doch einfach einmal in Ruhe wo dein Problem liegt....

[Eddy777]

mom ich teste ma kruz was ^^

[Eddy777]

hmm im moment weiss ich noch nich wsa mein Problem ist ^^
wenn ichs herausfinde werde ich mich wieder melden
>Gruß
Eddy

[DBShinigami]

Versuch es jetzt mal...
und noch was.. sowas interresiert hier niemanden,
vondaher brauchst du dir keine gedanken machen ob es jemand "klaut".........

 Spoiler

#include<ImageSearch.au3> ; ImageSearch-UDF brauchst du

HotKeySet("!{a}", "_Go"); Mit Alt+a startest du

Global $timer, $x, $y ; Müssen deklariert werden

Func _Go()
While 2
_Set0() ; Timer starten
Do
$var = _ImageSearch(@ScriptDir & "Data\Kiste_dunkel.bmp", 1, $x, $y, 15) ; Suche nach Kiste 1 (Bild ist 6 Pixel groß
$var = _ImageSearch(@ScriptDir & "Data\Kiste_hell.bmp", 1, $x, $y, 15) ; Kiste 2 (Mach n Screenshot und schneide 6 Pixel aus und mach daraus ne kleine .bmp!)
Until $x <> 0 And $y <> 0 Or TimerDiff($timer) > 15000 ; Wenn Kiste gefunden oder 15 Sekunden verstrichen sind, beendet sich die Suche

If $x <> 0 And $y <> 0 Then ; Wenn Kiste gefunden...
MouseClick("left", $x, $y) ; ..., wird da hin geklickt, Char läuft los
Sleep(10000) ; 10 Sekunden warten(Lautzeit)
_Set0() ; Timer auf 0 setzen
Do
Send("{LCTRL}", 0) ; Immer wieder Strg klicken, bis...
Until $timer >= 10000; ... 10 Sekunden abgelaufen sind... Hatte Probleme mit {CTRLDOWN}...
EndIf
WEnd
EndFunc ;==>_Go

Func _Set0()
$timer = TimerInit()
$x = 0
$y = 0
EndFunc ;==>_Set0

While 1
Sleep(100)
WEnd

[Eddy777]

hmm... Könnte nich jmd das Script testen und mir dann vll sagen was daran falsch ist... weil wie gesagt ich bin das Script mehrere Male durchgegangen und es passiert einfach nichts...