Ok ich habe die Anzahl der Bilder auf 17 runtergesetzt trotzdem erscheint diese Tabelle allerdings geht die nun bis 17???
#include <ImageSearch.au3>
#include <Array.au3>
$x = 0
$y = 0
_okey()
Func _okey()
Sleep(1000)
MouseClick("left",1086,716,2,0) ;Klick auf Würfel
Sleep(2000) ;2 Sekunden warten, bis Okey geladen ist
$ok = _imagesearcharea('okey.bmp',1,640,560,771,620,$x,$y,100) ;Suche nach dem "Okey.Bild" in der Mitte
If $ok = 1 Then ;Wenn das Bild gefunden wird dann
MouseClick("left",$x,$y,3,0) ;Klick aufs "Okey.Bild" und das Programm startet von neuem
_okey()
Else ;WICHTIG Wenn Nein dann läuft das Programm weiter
_losbild()
EndIf ;Ende der Bedingung
EndFunc
Func _losbild()
$los = _imagesearch('los.bmp',1,$x,$y,100) ;Suche nach dem "Los.Bild"
If $los = 1 Then ; ;Wenn das "Los.Bild" gefunden wird läuft das Programm weiter
_losfragee()
Else ;Wenn das "Los.Bild" nicht gefunden wird, dann klicke auf die vorgegebenen Koordinaten
MouseClick("left",840,442,2,0)
MouseClick("left",840,464,2,0) ;Klickkoordinate für Frage
MouseClick("left",840,450,2,0) ;Klickkoordinate für Frage
MouseClick("left",840,505,2,0) ;Klickkoordinate für Frage
MouseClick("left",840,521,2,0) ;Klickkoordinate für Frage
MouseClick("left",840,609,2,0)
MouseClick("left",840,480,2,0) ;Klickkoordinate für Frage
MouseClick("left",1060,716,2,0) ;Klickkoordinate für Okey
_okey()
EndIf
EndFunc
Func _losfragee()
$max = 18 ;Anzahl der Bilder
Dim $myPics[$max + 1]
For $i = 0 To $max
If $i == 0 Then
$myPics[$i] = $max
Else
$myPics[$i] = $i & ".bmp"
EndIf
Next
Dim $x, $y
$res = _WaitForImagesSearch($myPics, $max, 1, $x, $y, 100) ;maximal x Sekunden für x Bilder [B][COLOR="Red"]HIER BRAUCHT DER FAST EINE MINUTE UM DAS RICHTIGE BILD ZU ERKENNEN[/COLOR][/B]
If $res > 0 Then
If $res == 1 Then
MsgBox(0,'Los','Los ist nicht vorhanden')
Exit
ElseIf $res == 12 Then
MouseClick("left", 840, 550, 1, 0)
_losrichtig()
Else
MouseClick("left", $x, $y, 1, 0)
_losrichtig()
EndIf
EndIf
EndFunc
Func _losrichtig()
MouseClick("left",1060,716,1,0) ;Klickkoordinate für Okey
Sleep(1000) ;Wartet eine Sekunde
MouseClick("left",629,571,1,0) ;Klickkoordinate für Ich-Will-Gewinnen
Sleep(1000) ;Wartet eine Sekunde
MouseClick("left",951,638,1,0) ;Klickkoordinate für Teilnehmen
Sleep(1000) ;Wartet eine Sekunde
MouseClick("left",717,610,1,0) ;Klickkoordinate für WeiterGehts
Sleep(1000) ;Wartet eine Sekunde
_okey() ;Das Unterprogramm _okey wird gestartet
EndFunc