Code:
#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