HotKeySet("{f1}", "_Start")
HotKeySet("{f2}", "_Stop")
HotKeySet("{f3}", "_End")

Dim $var=0


While Sleep(100)
        While $var = 1
                    $Aqua = PixelSearch( 332, 120, 1087, 869, 0x6CD2BA, 0, 1)   ;==> Sucht nach Aquamarin
                    $Turkis = Pixelsearch( 332, 120, 1087, 869, 0x3AFBF4, 0, 1) ;==> Sucht nach Türkis
                    $schnee = Pixelsearch( 332, 120, 1087, 869, 0xD1E4E5, 0, 1) ;==> Sucht nach Schneewehen
                    $Fehler = Pixelsearch( 332, 120, 1087, 869, 0xEAD5AA,0 , 1) ;==> Schaut ob es eine Fehlermeldung gab
    if IsArray($Fehler) = True Then
                    MouseClick("left", $Fehler[0], $Fehler[1], 1) ;==> Wenn es einen fehler gab auf abbrechen klicken
                    Sleep(5000)
                Elseif IsArray($Turkis) = True Then
                    MouseClick("left", $Turkis[0], $Turkis[1], 2) ;==> Türkis gefunden ? doppel klick draufmachen
                    Sleep(25000)
                ElseIf IsArray($Aqua) = True Then
                    MouseClick("left", $Aqua[0], $Aqua[1], 2) ;==> Aquamarin gefunden ? doppel klick draufmachen
                    sleep(25000)
                ElseIf IsArray($schnee) = True Then
                    MouseClick("left", $schnee[0], $schnee[1], 2) ;==> Schneewehen gefunden ? doppel klick draufmachen
                    sleep(20000)
                Else
                    MouseClick("left", 72, 40, 1) ;==> Nix gefunden ? seite reloaden
                    sleep(5000)
    EndIf
    WEnd
WEnd




Func _Start()
        $var = 1
EndFunc   ;==>_Start
Func _stop()
        $var = 0
EndFunc   ;==>_stop
Func _End()
        Exit
EndFunc   ;==>_End