Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

akira2012

Hallo Leute. Ich habe mir in der langen Zeit ohne Internet die Zeit was mit AutoIT vertrieben und ein kleines (nicht ganz fertiges) Mastermind spiel programmiert. Allerdings ist dieses nicht mit Farben sondern den Zahlen von 1-9. Kurze erklärung -->

grau = richtige Zahl - falsche stelle
grün = richtige Zahl - richtige stelle
rot = ratet mal

Ich habe jetzt wo ich wieder Internet habe auch gesehen das DJBasslord auch schon sowas gemacht hat aber ich denke mal das ist jetzt nicht soooo schlimm (hoffe ich zumindest). Anbei die Dateien als RAR Archiv.

Über positive und negative Kritik würde ich mich sehr freuen!

MfG

Akira2012

edit: Link funktioniert jetzt!
edit2: So die schlimmsten Fehler sind behoben hier kommt der Download:

leviathan

http://404.funpic.de/404.html

link oder ist der download ein defektes rar-paket mit der Größe 1Kb

**bernd670**

Hallo,

die Auswertung der Zahlen funktioniert noch nicht richtig, s. Anhang!

Das Ergebnis ist 5 5 5 2, also hätte in Zeile 2 schon eine und in Zeile 4 drei grüne Lampen leuchten müssen!

**GtaSpider**

Hallo!

Bei mir stimmt es ebenfalls nicht! Zeile 3 sagt er alle sind richtig nur an falscher stelle, das stimmt aber nicht!

Mfg Spider

akira2012

Oha

Ok ich schau mal ob ich den Fehler finde aber bei mir selbst habe ich das noch nie beobachtet oO

Danke euch beiden erstmal fürs feedback

akira2012

@ gtaspider Jaaaa mooooment Es stimmt schon. Das Problem ist folgendes. Jede dieser Zahlen kommt in der Lösung vor. Zu diesem Zeitpunkt wird leider (noch nicht) geprüft WIE oft eine dieser Zahlen vorhanden ist. Das heißt auf gut deutsch. Er schließt erst aus das eine Zahl doppelt vorhanden ist sobald diese einmal richtig ist. (klingt kompliziert und ist es auch). Für alle die nicht gemerkt haben das das Script auch in der gepackten Version mit dabei ist hier nochmal das ganze:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.2.0
Author: akira2012

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Mastermind.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11]
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Master=GUICreate("Mastermind", 500, 500)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
$top=$top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetBkColor($Testen[1], 0x000000)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
$msg = GUIGetMsg()

Select

;1. Reihe
case $msg = $Testen[1]
$reply=GUICtrlRead($Antwort[1])
select
case $reply = $Zahl1
$Ergebnis[1]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[1]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[1]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[1])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[1])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[1])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[1], $GUI_DISABLE)
$top=$top+40

IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort[2], 1, $behalten1)
GUICtrlSetState($Antwort[2], $GUI_DISABLE)
$Ergebnis[1]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[2], 1, $behalten2)
GUICtrlSetState($Antwort2[2], $GUI_DISABLE)
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[2], 1, $behalten3)
GUICtrlSetState($Antwort3[2], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[2], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[2], 1, $behalten4)
GUICtrlSetState($Antwort4[2], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

; 2.Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[2]
$reply=GUICtrlRead($Antwort[2])
select
case $reply = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[2])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[2])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[2])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[2], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort[3], 1, $behalten1)
GUICtrlSetState($Antwort[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[3], 1, $behalten2)
GUICtrlSetState($Antwort2[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[3], 1, $behalten3)
GUICtrlSetState($Antwort3[3], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[3], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[3], 1, $behalten4)
GUICtrlSetState($Antwort4[3], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;3. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[3]
$reply=GUICtrlRead($Antwort[3])
select
case $reply = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[3])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[3])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[3])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[3], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort[4], 1, $behalten1)
GUICtrlSetState($Antwort[4], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[4], 1, $behalten2)
GUICtrlSetState($Antwort2[4], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[4], 1, $behalten3)
GUICtrlSetState($Antwort3[4], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[4], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[4], 1, $behalten4)
GUICtrlSetState($Antwort4[4], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;4. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[4]
$reply=GUICtrlRead($Antwort[4])
select
case $reply = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[4])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[4])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[4])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[4], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort[5], 1, $behalten1)
GUICtrlSetState($Antwort[5], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[5], 1, $behalten2)
GUICtrlSetState($Antwort2[5], $GUI_DISABLE)
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[5], 1, $behalten3)
GUICtrlSetState($Antwort3[5], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[5], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[5], 1, $behalten4)
GUICtrlSetState($Antwort4[5], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;5. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[5]
$reply=GUICtrlRead($Antwort[5])
select
case $reply = $Zahl1
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[5]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[5]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[5])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[5])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[5])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[5], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort[6], 1, $behalten1)
GUICtrlSetState($Antwort[6], $GUI_DISABLE)
$Ergebnis[5]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[6], 1, $behalten2)
GUICtrlSetState($Antwort2[6], $GUI_DISABLE)
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[6], 1, $behalten3)
GUICtrlSetState($Antwort3[6], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[6], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[6], 1, $behalten4)
GUICtrlSetState($Antwort4[6], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;6. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[6]
$reply=GUICtrlRead($Antwort[6])
select
case $reply = $Zahl1
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[6]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[6]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[6])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[6])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[6])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[6], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort[7], 1, $behalten1)
GUICtrlSetState($Antwort[7], $GUI_DISABLE)
$Ergebnis[6]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[7], 1, $behalten2)
GUICtrlSetState($Antwort2[7], $GUI_DISABLE)
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[7], 1, $behalten3)
GUICtrlSetState($Antwort3[7], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[7], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[7], 1, $behalten4)
GUICtrlSetState($Antwort4[7], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;7. Reihe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[7]
$reply=GUICtrlRead($Antwort[7])
select
case $reply = $Zahl1
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[7]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[7]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[7])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[7])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[7])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[7], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort[8], 1, $behalten1)
GUICtrlSetState($Antwort[8], $GUI_DISABLE)
$Ergebnis[7]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[8], 1, $behalten2)
GUICtrlSetState($Antwort2[8], $GUI_DISABLE)
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[8], 1, $behalten3)
GUICtrlSetState($Antwort3[8], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[8], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[8], 1, $behalten4)
GUICtrlSetState($Antwort4[8], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;8. Reihe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[8]
$reply=GUICtrlRead($Antwort[8])
select
case $reply = $Zahl1
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[8]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[8]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[8])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[8])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[8])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[8], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort[9], 1, $behalten1)
GUICtrlSetState($Antwort[9], $GUI_DISABLE)
$Ergebnis[8]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[9], 1, $behalten2)
GUICtrlSetState($Antwort2[9], $GUI_DISABLE)
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[9], 1, $behalten3)
GUICtrlSetState($Antwort3[9], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[9], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[9], 1, $behalten4)
GUICtrlSetState($Antwort4[9], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;9. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[9]
$reply=GUICtrlRead($Antwort[9])
select
case $reply = $Zahl1
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[9]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[9]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[9])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[9])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[9])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[9], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort[10], 1, $behalten1)
GUICtrlSetState($Antwort[10], $GUI_DISABLE)
$Ergebnis[9]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[10], 1, $behalten2)
GUICtrlSetState($Antwort2[10], $GUI_DISABLE)
$Ergebnis[10]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[10], 1, $behalten3)
GUICtrlSetState($Antwort3[10], $GUI_DISABLE)
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[10], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[10], 1, $behalten4)
GUICtrlSetState($Antwort4[10], $GUI_DISABLE)
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf

;10. Reihe

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[10]
$reply=GUICtrlRead($Antwort[10])
select
case $reply = $Zahl1
$Ergebnis[10]=GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl3
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply = $Zahl4
$Ergebnis[10]=GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
$Ergebnis[10]=GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[10])
select
case $reply2 = $Zahl1
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl2
$Ergebnis[2]=GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl3
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 = $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
$Ergebnis[2]=GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[10])
select
case $reply3 = $Zahl1
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl2
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 = $Zahl3
$Ergebnis[3]=GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
$Ergebnis[3]=GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[10])
select
case $reply4 = $Zahl1
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl2
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl3
$Ergebnis[4]=GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 = $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
$Ergebnis[4]=GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[10], $GUI_DISABLE)
$top=$top+40

IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)

Else
GUICtrlCreateLabel("LOOOOOOOOOSER! :p", 20, 450)
SoundPlay("Lachen.wav")

EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $msg = $GUI_EVENT_CLOSE
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Bernd

Also das ist komisch. Ich sehs jetzt auch (hab den Fehler also auch gesehn) aber ich verstehe nicht wie es dazu kommt. Etwas was mir noch aufgefallen ist. Wenn man fertig ist (also gewonnen hat) Dann das Spiel minimiert und wieder maximiert sind die Farben auch TOTAL vertauscht. Ich bin irgendwie betriebsblind? Sieht wer wodran das liegt?

edit die 5.: Kann es sein (also das mit dem Minimieren) das es sich ja um eine Schleife handelt und der irgendwie bestimmte punkte einfach nochmal macht?

akira2012

Kaum zu glauben aber wahr... ich denke ich habe den Fehler gefunden!!! Die case abfragen waren ungeeignet. Wenn eine bedingung erfüllt war hat er einfach nicht mehr nach der 2. geschaut oder wie man das auch immer ausdrücken mag. Hier nun das überarbeitete Script. Ich lade die gepackte Verison morgen nochmal neu hoch - heute ist es mir zu Spät. Wer die alte Version hat muß ja einfach nur das unten stehende compilieren und los gehts ^^.

known bugs ---> Nach etlich langer überarbeitung bricht das Script nun nach der letzten abfrage (10.) ab. Kein nerv mehr mich heute noch drum zu kümmern das mache ich dann Morgen

MfG

akira2012

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.2.0
Author: akira2012

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Mastermind.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Master=GUICreate("Mastermind", 500, 500)
;GUISetBkColor(0x000000)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
$top=$top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit]

for $i = 2 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
$msg = GUIGetMsg()

Select

;1. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;2. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;3. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;4. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;5 Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;6. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;7. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
EndIf

;8. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf
;9. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

EndIf

;10. Reihe

[/autoit] [autoit][/autoit] [autoit]

case $msg = $Testen[$z]
$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
$behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
$behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)

case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect

$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
$behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)

case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect

$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
$behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)

case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)

Else
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
if $Zahl1 = "leer" Then
$Zahl1=$behalten1
EndIf
if $Zahl2 = "leer" Then
$Zahl2=$behalten2
EndIf
if $Zahl3 = "leer" Then
$Zahl3=$behalten3
EndIf
if $Zahl4 = "leer" Then
$Zahl4=$behalten4
EndIf
GUICtrlCreateLabel("LOOOOOOOOOSER! :p Die richtige Antwort wäre "&$Zahl1&$Zahl2&$Zahl3&$Zahl4, 20, 450)
SoundPlay("Lachen.wav")

EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $msg = $GUI_EVENT_CLOSE
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

EndSelect
WEnd

[/autoit]

**BugFix**

Hab jetzt nicht in dein Script geschaut, aber wahrscheinlich hätte dir "ContinueCase" geholfen.

[autoit]

$a = 7
Select
Case $a < 9
MsgBox(0, '', "< 9")
ContinueCase ; auch die kommende Bedingung wird geprüft
Case $a = 7
MsgBox(0, '', "= 7")
EndSelect

[/autoit]

akira2012

Aaaah ist ja interessant. Den Befehl kannte ich noch nicht. Danke Bugfix Wird mir in kommenden Scripten sehr helfen. Ich habe selbst nach sowas gesucht aber nichts gefunden -.-

Hast du zufällig auch nen Plan wieso mein Script seitdem ich es überarbeitet habe nach 10 immer abbricht und dann mit der Meldung:
"C:\Scripte\Spiel.au3 (181) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: " abbricht?

Ist merkwürdig weil er den Fehler dann bei 181 findet obwohl er bei Reihe 10 schon in Zeile 1000 oder so ist. Wieso loopt der einfach so weiter?

MfG

akira2012

**BugFix**

Dein Skript ist recht umfangreich, hab im Moment nicht die Zeit mich da reinzulesen.
Aufgrund der Fehlermeldung gehe ich davon aus, dass [$z] einen Wert außerhalb der definierten Arraygröße angenommen hat.
Debugge doch mal $z über die Console ( markieren und Alt+D ).

akira2012

also das mit dem ALT-D tuts nicht da passiert garnichts. Hat sonst noch wer eine Idee? Vielleicht jemand der das Script schon kennt?

P.S. der Download ist immer noch veraltet finde keinen Ordentlichen Filehoster. Aber man kann ja das Script compilieren das ich zuletzt gepostet habe...

MfG

akira2o12

**BugFix**

Achja, wenn du kein Scite benutzt hast du das Feature natürlich nicht.

akira2012

Hilfreich wäre es natürlich wenn du mir auch sagst was DU benutzt.

**BugFix**

Editor: SciTE4AutoIt
DER AutoIt-Editor. Download siehe Portal, oben rechts.

akira2012

>Running:(3.2.2.0):C:\Programme\AutoIt3\autoit3.exe "C:\Scripte\Spiel.au3"
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
@@ Debug(183) : GUICtrlSetState($Testen[$z], $GUI_ENABLE) = 1
>Error code: 0
C:\Scripte\Spiel.au3 (182) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState(^ ERROR

So jetzt sag mir mal bitte was das heißt.....

**BugFix**

Wie vorhin vermutet: $z nimmt einen zu großen Wert an.

Ich habs grad in deinem Code nicht gefunden. Aber mal als Beispiel:
Dim $array[6] heißt Array mit 6 Elementen, wärein einer Schleife
For $z = 0 To 5
;...
Next

Wenn du hier $z von 0 bis 6 laufen lassen würdest, erhältst du die gleiche Fehlermeldung.

Immer beachten: Arrays sind Null-basiert. Also das letzte Element ist immer Ubound(Array)-1

Edit
Ich glaube, das könnte es sein: $z=$z+1
Du erhöhst $z ohne zu prüfen ob $z damit Ubound(Array)-1 überschreitet.

Also brauchst du eine Abbruchbedingung, damit $z nicht erneut erhöht wird.

akira2012

ja das weiß ich ja auch alles Also die Sache ist die. Wenn das Script abbricht ist es bereits in der 10. und damit letzten Reihe. Wenn man dan´n auf Prüfen geht bricht er ab und gibt die Fehlermeldung aus. Der Fehler ist nur dann logisch bzw WÄRE logisch wenn er die Schleife nochmal durchgeht aber das wiederrum ist total schwachsinnig weil nirgens irgendwo steht das er dann alles nochmal von vorne machen soll. Er stopt also einfach nicht darum kommt es zu dem Fehler. Wie gesagt. Der Fehler wird ja in Zeile 151-159 ausgelöst aber das Script ist da schon lange an der Stelle vorbei. Einzige erklärung ist das er wirklich nicht stopt und das verstehe ich nicht

EDIT: FEHLER GEFUNDEN JUCHEIHASSA :p

Hier das "leicht" geänderte Script:

Spoiler anzeigen

[autoit]

tives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.2.0
Author: akira2012

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Mastermind.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

$Master=GUICreate("Mastermind", 440, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

[/autoit] [autoit][/autoit] [autoit]

GUISetBkColor(0x0000FF)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40

[/autoit] [autoit][/autoit] [autoit]

Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
GUICtrlSetOnEvent($Testen[$i], "check")
$top=$top+40
Next
$top=20

[/autoit] [autoit][/autoit] [autoit]

for $i = 2 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

while 1
sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func check ()

[/autoit] [autoit][/autoit] [autoit]

$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
global $behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect

$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
global $behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect
$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
global $behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect
$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
global $behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else

$z=$z+1
IF $z < 11 Then

GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)

[/autoit] [autoit][/autoit] [autoit]

if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf
EndIf
IF $z = 11 Then

if $Zahl1 = "leer" Then
$Zahl1=$behalten1
EndIf
if $Zahl2 = "leer" Then
$Zahl2=$behalten2
EndIf
if $Zahl3 = "leer" Then
$Zahl3=$behalten3
EndIf
if $Zahl4 = "leer" Then
$Zahl4=$behalten4
EndIf
GUICtrlCreateLabel("LOOOOOOOOOSER! :p Die richtige Antwort wäre gewesen: "&$Zahl1&$Zahl2&$Zahl3&$Zahl4, 20, 450)
SoundPlay("Lachen.wav")

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndFunc

Func CLOSEClicked()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Sn0opy

Eindeutig komfortabler mit einer Funktion

**BugFix**

Prima, freut mich dass du meine Anregung mit der Funktion umgesetzt hast.
Weiter so.
Du könntest sogar deine Select-Blöcke noch in eine eigene Funktion packen:
$reply_n, $$zahl_n übergeben an die Funktion und als Return $behalten_n zurückgeben.

akira2012

Öhm... Gesundheit? Ich verstehe im Moment nur Bahnhof werde mich heute abend mal wieder damit beschäftigen. Macht wirklich Spaß dazu zu lernen