Moin Leute!
Heute gibt es ein neues Spiel von mir.
Name: Pixel Finder
Aktuelle Version: 0.1
Screenshots
Spoiler anzeigen
[Blockierte Grafik: http://bbs07.spacequadrat.de/PixelFinder/a.JPG]
[Blockierte Grafik: http://bbs07.spacequadrat.de/PixelFinder/b.JPG]
[Blockierte Grafik: http://bbs07.spacequadrat.de/PixelFinder/c.JPG]
Quellcode
Spoiler anzeigen
;------------------------------------------------
;
; PIXEL FINDER
;
; Author: Jautois
; Date: 22.06.09
; Version: 1.0
; Genere: Game
;
; Bugs: -
;
;------------------------------------------------
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
$iTempPicCode = Random(100, 999, 1)
[/autoit] [autoit][/autoit] [autoit]Global $sPicPath = @ScriptDir & "\preview" & $iTempPicCode & ".jpg"
Global $aColor[7] = [0x808080, 0x000000, 0x3399FF, 0xFFFFFF, 0xFB1203, 0x4DFC02, 0xFFFF00]
Global $aGraphico[100][100][100]
Global $aGraphicu[400][400][3][3]
Global $iGameTime[3] = [150, 100, 80]
Global $iTempTime = 0
Global $iFormNumber[6][6]
Global $hWindow
Global $hWindow_Info
Global $iPoints = 0
Global $iTimeAll = 0
Global $iRKlicks = 0
Global $iWKlicks = 0
Global $iTotal = 1
Global $iTotalKlicks = 0
Global $iTimeLeft = 10
Global $iWindowH = 546
Global $iWindowW = 426
Global $iAllRKlicks = 0
Global $iBounsTime = 0
Global $aGameVar[3] = ["Leicht", "Mittel", "Schwer"]
Global $aDifColor[3] = [$aColor[5], 0xE8AD16, $aColor[4]]
InetGet("http://bbs07.spacequadrat.de/PixelFinder/preview.jpg", $sPicPath, 0, 0)
[/autoit] [autoit][/autoit] [autoit]$hWindow_Info = GUICreate("", 632, 546, Default, Default, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUISetBkColor($aColor[0])
$pInputPlayername = GUICtrlCreateInput("", 390, 400, 217, 30)
GUICtrlSetBkColor(-1, $aColor[1])
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, $aColor[2])
$pComboS = GUICtrlCreateCombo("", 390, 350, 217, 30, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Leicht|Mittel|Schwer")
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schwierigkeit:", 258, 352, 128, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Spielername:", 260, 402, 128, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Pixel Finder v.0.1", 150, 16, 500, 50)
GUICtrlSetFont(-1, 30, 800, 0, "Arial")
GUICtrlCreateLabel("... ein Spiel gegen die Zeit und deine Nerven! Du musst so schnell wie möglich die in den oberen 3 Feldern gezeigten Formen finden und mit einem Klick entfernen. Hast du alle 36 Felder geschafft, bist Du im nächsten Level.", 16, 80, 600, 100)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, $aColor[6])
GUICtrlCreatePic($sPicPath, 16, 224, 225, 313, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlCreateLabel("Für jeden richtigen Klick gibts 10 Punkte. Ein Klick auf ein nicht passendes Muster kostet 5 Minus-Punkte", 260, 220, 273, 100)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, $aColor[5])
GUICtrlCreateLabel("© Jautois - 2009", 510, 520, 373, 220)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, $aColor[5])
$pButtonStart = GUICtrlCreateButton("START", 388, 450, 89, 41, $BS_DEFPUSHBUTTON)
GUISetState(@SW_SHOW, $hWindow_Info)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GameExit()
Case $pButtonStart
If GUICtrlRead($pInputPlayername) = "" Then
GUICtrlSetData($pInputPlayername, "Name eingeben!")
ElseIf GUICtrlRead($pInputPlayername) <> "" And GUICtrlRead($pComboS) <> "" Then
$sChS = GUICtrlRead($pComboS)
If $sChS = "Leicht" Then
$iChoosenDif = 0
ElseIf $sChS = "Mittel" Then
$iChoosenDif = 1
ElseIf $sChS = "Schwer" Then
$iChoosenDif = 2
EndIf
$sPlayername = GUICtrlRead($pInputPlayername)
GUISetState(@SW_HIDE, $hWindow_Info)
ExitLoop
EndIf
EndSwitch
WEnd
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$hWindow = GUICreate("Pixel Finder - by Jautois - Spieler: " & $sPlayername, $iWindowW, $iWindowH, Default, Default, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST))
GUISetOnEvent($GUI_EVENT_CLOSE, "_GameExit")
GUISetBkColor($aColor[0])
GUICtrlCreateLabel("Punkte", 16, 16, 54, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[2])
$pLabelTotal = GUICtrlCreateLabel($iTotal, 192, 16, 31, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[5])
GUICtrlCreateLabel("Level", 152, 16, 40, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[2])
$pLabelPunkte = GUICtrlCreateLabel($iPoints, 72, 16, 80, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 12, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[5])
GUICtrlCreateLabel("Zeit", 288, 8, 39, 29)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 15, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[3])
$pLabelZeit = GUICtrlCreateLabel($iGameTime[$iChoosenDif], 328, 8, 200, 29)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 15, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[5])
$pLabelChoosenDif = GUICtrlCreateLabel($aGameVar[$iChoosenDif], 288, 32, 200, 29)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 15, 800, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aDifColor[$iChoosenDif])
Dim $aGameForm[10][3][3] = [[[3, 4, 3],[4, 3, 3],[3, 3, 4]],[[3, 3, 4],[3, 4, 3],[4, 3, 3]],[[3, 3, 4],[4, 3, 3],[3, 4, 3]],[[4, 3, 3],[3, 4, 3],[3, 3, 4]],[[4, 3, 4],[3, 4, 3],[3, 3, 3]],[[4, 3, 3],[3, 3, 4],[3, 4, 3]],[[4, 3, 3],[4, 3, 4],[3, 3, 3]],[[3, 4, 3],[4, 3, 3],[3, 4, 3]],[[3, 4, 3],[3, 3, 3],[4, 3, 4]],[[3, 4, 3],[3, 3, 4],[4, 3, 3]]]
[/autoit] [autoit][/autoit] [autoit]Dim $aGamePresent[3] = [Random(0, 9, 1), Random(0, 9, 1), Random(0, 9, 1)]
[/autoit] [autoit][/autoit] [autoit]Dim $aStartup_x[6] = [16, 152, 288, 16, 152, 288]
[/autoit] [autoit][/autoit] [autoit]$iStartup_y = 64
[/autoit] [autoit][/autoit] [autoit]For $k = 0 To 2
For $i = 0 To 2
For $j = 0 To 2
$aGraphico[$k][$j][$i] = GUICtrlCreateGraphic($aStartup_x[$k], $iStartup_y, 41, 41)
GUICtrlSetBkColor(-1, $aColor[$aGameForm[$aGamePresent[$k]][$i][$j]])
$aStartup_x[$k] = $aStartup_x[$k] + 41
Next
$iStartup_y = $iStartup_y + 41
$aStartup_x[$k] = $aStartup_x[$k + 3]
Next
$iStartup_y = 64
GUICtrlCreateGraphic($aStartup_x[$k], $iStartup_y, 41, 41)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $aColor[5])
GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 5)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, 124, 124)
Next
Dim $aStartup_x[12] = [16, 88, 152, 224, 288, 360, 16, 88, 152, 224, 288, 360]
[/autoit] [autoit][/autoit] [autoit]Dim $aStartup_y[12] = [200, 256, 312, 368, 424, 480, 200, 256, 312, 368, 424, 480]
[/autoit] [autoit][/autoit] [autoit]For $l = 0 To 5
For $k = 0 To 5
$iFormNumber[$l][$k] = Random(0, 9, 1)
For $i = 0 To 2
For $j = 0 To 2
$aGraphicu[$l][$k][$j][$i] = GUICtrlCreateGraphic($aStartup_x[$k], $aStartup_y[$l], 17, 17)
GUICtrlSetOnEvent($aGraphicu[$l][$k][$j][$i], "_lQKlick")
GUICtrlSetBkColor(-1, $aColor[$aGameForm[$iFormNumber[$l][$k]][$i][$j]])
$aStartup_x[$k] = $aStartup_x[$k] + 17
Next
$aStartup_y[$l] = $aStartup_y[$l] + 17
$aStartup_x[$k] = $aStartup_x[$k + 6]
Next
$aStartup_x[$k] = $aStartup_x[$k + 6]
$aStartup_y[$l] = $aStartup_y[$l + 6]
Next
Next
GUISetState(@SW_SHOW, $hWindow)
[/autoit] [autoit][/autoit] [autoit]$hWindow_Results = GUICreate("", 250, 370, Default, Default, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST))
GUICtrlCreateLabel("Auswertung", 24, 8, 194, 48)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetBkColor($aColor[0])
GUICtrlSetFont(-1, 28, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Muster:", 24, 72, 63, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Richtige", 56, 104, 69, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Falsche", 56, 128, 64, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Zeit insgesamt:", 24, 168, 126, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Levels:", 24, 208, 58, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Punkte:", 24, 248, 64, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
$pLabelRight = GUICtrlCreateLabel("", 168, 104, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aDifColor[0])
$pLabelWrong = GUICtrlCreateLabel("", 168, 128, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aDifColor[2])
$pLabelTime = GUICtrlCreateLabel("", 168, 168, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[2])
$pLabelLevel = GUICtrlCreateLabel("", 168, 208, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[3])
$pLabelPoints = GUICtrlCreateLabel("", 168, 248, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
$pLabelPlayerSet = GUICtrlCreateLabel("für: " & $sPlayername, 24, 48, 200, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Myriad Pro")
GUICtrlCreateLabel("Schwierigkeit:", 24, 288, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
$pLabelDif = GUICtrlCreateLabel($aGameVar[$iChoosenDif], 168, 288, 100, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aDifColor[$iChoosenDif])
$pButtonRestart = GUICtrlCreateButton("Nochmal", 8, 328, 145, 33, $BS_DEFPUSHBUTTON)
$pButtonBeenden = GUICtrlCreateButton("Beenden", 152, 328, 89, 33, 0)
GUISetState(@SW_HIDE, $hWindow_Results)
$hWindow_DifAgain = GUICreate("Pixel Finder ", 380, 90, Default, Default, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOOLWINDOW))
GUICtrlCreateLabel("Schwierigkeit:", 10, 15, 140, 27)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$pComboDif = GUICtrlCreateCombo("", 150, 12, 217, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Leicht|Mittel|Schwer")
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$pButtonOK = GUICtrlCreateButton("Ok", 150, 50, 89, 33, 0)
GUISetState(@SW_HIDE, $hWindow_DifAgain)
$iTimer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
_Timer()
WEnd
Func _Timer()
[/autoit] [autoit][/autoit] [autoit]$iTimerDiff = TimerDiff($iTimer)
[/autoit] [autoit][/autoit] [autoit]$iActTime = Int(Round($iTimerDiff) / 1000)
[/autoit] [autoit][/autoit] [autoit]If $iActTime <> $iTempTime Then
If $iTimeLeft = 0 Then
_ShowResults()
Else
$iTimeLeft = ($iBounsTime + $iGameTime[$iChoosenDif]) - $iActTime
GUICtrlSetData($pLabelZeit, $iTimeLeft)
$iTimeAll = $iTimeAll + 1
EndIf
EndIf
If Mod($iTimeLeft, 5) = 0 And $iActTime <> $iTempTime Then
_GenerateNewPresenters()
EndIf
_GameCheckForWin()
[/autoit] [autoit][/autoit] [autoit]$iTempTime = $iActTime
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_Timer
[/autoit] [autoit][/autoit] [autoit]Func _GameExit()
SplashTextOn("Pixel Finder", "Lösche Spieldaten" & @CRLF & "Einen Moment bitte ..." & @CRLF & @CRLF & "by Jautois", 200, 110)
FileDelete($sPicPath)
SplashOff()
Exit
EndFunc ;==>_GameExit
Func _GenerateNewPresenters()
Local $iPresenterNumber
$iPresenterNumber = Random(0, 2, 1)
$iRandomFormNumber = Random(0, 9, 1)
$aGamePresent[$iPresenterNumber] = $iRandomFormNumber
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To 2
For $j = 0 To 2
GUICtrlSetBkColor($aGraphico[$iPresenterNumber][$j][$i], $aColor[$aGameForm[$iRandomFormNumber][$i][$j]])
Next
Next
EndFunc ;==>_GenerateNewPresenters
Func _lQKlick()
Local $iCountAcc = 0, $bNoPoints = False
$iColumnKlick = Int(Mod(((@GUI_CtrlId - 50) / 9), 6)) + 1
$iRowKlick = Int(((Int((@GUI_CtrlId - 50) / 9) + 1) - 0.1) / 6) + 1
$iTotalKlicks = $iTotalKlicks + 1
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To 2
If $iFormNumber[$iRowKlick - 1][$iColumnKlick - 1] = -1 Then
$bNoPoints = True
Else
If $iFormNumber[$iRowKlick - 1][$iColumnKlick - 1] = $aGamePresent[$i] Then
$iCountAcc = $iCountAcc + 1
$iRKlicks = $iRKlicks + 1
$iFormNumber[$iRowKlick - 1][$iColumnKlick - 1] = -1
$bNoPoints = False
ExitLoop
EndIf
EndIf
Next
If $bNoPoints = True Then
;-
Else
If $iCountAcc > 0 Then
$iPoints = $iPoints + 10
For $i = 0 To 2
For $j = 0 To 2
GUICtrlSetBkColor($aGraphicu[$iRowKlick - 1][$iColumnKlick - 1][$j][$i], $aColor[3])
Next
Next
Else
$iPoints = $iPoints - 5
EndIf
EndIf
GUICtrlSetData($pLabelPunkte, $iPoints)
EndFunc ;==>_lQKlick
Func _ShowResults()
Opt("GUIOnEventMode", 0)
$iWKlicks = $iTotalKlicks - $iRKlicks
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($pLabelRight, $iRKlicks)
GUICtrlSetData($pLabelWrong, $iWKlicks)
GUICtrlSetData($pLabelTime, $iTimeAll & " Sek.")
GUICtrlSetData($pLabelLevel, $iTotal)
GUICtrlSetData($pLabelPoints, $iPoints)
GUISetState(@SW_SHOW, $hWindow_Results)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GameExit()
Case $pButtonRestart
_GameRestart()
ExitLoop
Case $pButtonBeenden
_GameExit()
EndSwitch
WEnd
EndFunc ;==>_ShowResults
[/autoit] [autoit][/autoit] [autoit]Func _GameRestart()
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_HIDE, $hWindow_Results)
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 0)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW, $hWindow_DifAgain)
WinSetOnTop("Pixel Finder ","",1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GameExit()
Case $pButtonOK
$sChS = GUICtrlRead($pComboDif)
If $sChS = "Leicht" Then
$iChoosenDif = 0
ElseIf $sChS = "Mittel" Then
$iChoosenDif = 1
ElseIf $sChS = "Schwer" Then
$iChoosenDif = 2
EndIf
ExitLoop
Case $pButtonBeenden
_GameExit()
EndSwitch
WEnd
GUISetState(@SW_HIDE, $hWindow_DifAgain)
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$iPoints = 0
$iTotal = 1
$iTimeAll = 0
$iRKlicks = 0
$iWKlicks = 0
$iTimeLeft = 10
$iAllRKlicks = 0
$iTotalKlicks = 0
GUISwitch($hWindow)
[/autoit] [autoit][/autoit] [autoit]$pBlackGraphic = GUICtrlCreateGraphic(0, 0, $iWindowW, $iWindowH)
GUICtrlSetBkColor(-1, $aColor[1])
$pLabelCountDown = GUICtrlCreateLabel("Erstelle Spielfeld ...", 104, 253, 205, 40)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[2])
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Sleep(100)
For $i = 0 To 2
_GenerateNewPresenters()
Next
For $l = 0 To 5
For $k = 0 To 5
$iFormNumber[$l][$k] = Random(0, 9, 1)
For $i = 0 To 2
For $j = 0 To 2
GUICtrlSetBkColor($aGraphicu[$l][$k][$j][$i], $aColor[$aGameForm[$iFormNumber[$l][$k]][$i][$j]])
Next
Next
Next
Next
GUICtrlDelete($pLabelCountDown)
GUICtrlDelete($pBlackGraphic)
GUICtrlSetData($pLabelPunkte, $iPoints)
GUICtrlSetData($pLabelZeit, $iGameTime)
GUICtrlSetData($pLabelTotal, $iTotal)
GUICtrlSetData($pLabelChoosenDif, $aGameVar[$iChoosenDif])
GUICtrlSetColor($pLabelChoosenDif, $aDifColor[$iChoosenDif])
GUISetState(@SW_SHOW, $hWindow)
[/autoit] [autoit][/autoit] [autoit]$iTimer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_GameRestart
[/autoit] [autoit][/autoit] [autoit]Func _GameCheckForWin()
[/autoit] [autoit][/autoit] [autoit]If $iRKlicks = 36 And $iTimeLeft > 0 Then
_GameNextLevel()
EndIf
EndFunc ;==>_GameCheckForWin
[/autoit] [autoit][/autoit] [autoit]Func _GameNextLevel()
[/autoit] [autoit][/autoit] [autoit]$iBounsTime = $iTimeLeft
[/autoit] [autoit][/autoit] [autoit]$iTotal = $iTotal + 1
$iAllRKlicks = $iAllRKlicks + $iRKlicks
$iRKlicks = 0
GUICtrlSetData($pLabelTotal, $iTotal)
GUISwitch($hWindow)
[/autoit] [autoit][/autoit] [autoit]$pBlackGraphic = GUICtrlCreateGraphic(0, 0, $iWindowW, $iWindowH)
GUICtrlSetBkColor(-1, $aColor[1])
$pLabelCountDown = GUICtrlCreateLabel("Erstelle Spielfeld ...", 104, 253, 205, 40)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad Pro")
GUICtrlSetColor(-1, $aColor[2])
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Sleep(100)
For $l = 0 To 5
For $k = 0 To 5
$iFormNumber[$l][$k] = Random(0, 9, 1)
For $i = 0 To 2
For $j = 0 To 2
GUICtrlSetBkColor($aGraphicu[$l][$k][$j][$i], $aColor[$aGameForm[$iFormNumber[$l][$k]][$i][$j]])
Next
Next
Next
Next
GUICtrlDelete($pLabelCountDown)
GUICtrlDelete($pBlackGraphic)
$iTimer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_GameNextLevel
[/autoit]Die Spielerklärung bekommt ihr direkt, wie oben auf dem Screenshot zusehen, am Anfang gezeigt.
Ich wünsche Euch viel Spaß damit und Bugs bitte sofort melden
Mfg Jautois