Namenloses Spiel

Zacharja

Hey Community
Ich hab heute morgen langeweile gehabt und hab deshalb mal ein kleines Spiel entwickelt
Es war keine richtige Arbeit, aber lustig finde ich's trotzdem
Also, wer es spielen möchte, kann das gerne tun, wer nicht, wird auch nicht dazu gezwungen

Regeln:
Die Regeln sind sehr einfach. Man muss links "in das Fenster hineingehen", also da, wo kein Schwarzer Kasten (Edit) an der Wand ist.
Danach muss man mit der Maus bis zum weißem Edit kommen, ohne dabei einen schwarzen Edit zu berühren.
Wie gesagt sehr einfach... oder?

Script (neue Version):

Spoiler anzeigen

[autoit]

Dim $Edit[21]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

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

_Start()

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

Func _Lvl1()
Local $Edit[21]
Local $Mouse
#Region ### START Koda GUI section ### Form=C:\AutoIt3\SciTE\Koda\Forms\Game1.kxf
$Form1 = GUICreate("Level 1", 378, 227, Random(4, @DesktopWidth - 100), Random(4, @DesktopHeight - 100))
GUISetBkColor(0x004E98)
GUISetCursor("3")
$Edit[0] = GUICtrlCreateEdit("", 0, 0, 41, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[1] = GUICtrlCreateEdit("", 0, 112, 41, 113, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[2] = GUICtrlCreateEdit("", 88, 80, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[3] = GUICtrlCreateEdit("", 144, 0, 57, 73, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[4] = GUICtrlCreateEdit("", 40, 144, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[5] = GUICtrlCreateEdit("", 160, 128, 17, 97, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[6] = GUICtrlCreateEdit("", 184, 72, 17, 57, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[7] = GUICtrlCreateEdit("", 176, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[8] = GUICtrlCreateEdit("", 200, 112, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[9] = GUICtrlCreateEdit("", 264, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[10] = GUICtrlCreateEdit("", 304, 64, 49, 81, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[11] = GUICtrlCreateEdit("", 216, 64, 89, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[12] = GUICtrlCreateEdit("", 256, 32, 73, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[13] = GUICtrlCreateEdit("", 200, 0, 25, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[14] = GUICtrlCreateEdit("", 224, 0, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[15] = GUICtrlCreateEdit("", 312, 0, 65, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[16] = GUICtrlCreateEdit("", 184, 168, 33, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[17] = GUICtrlCreateEdit("", 40, 0, 105, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[18] = GUICtrlCreateEdit("", 40, 208, 121, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[19] = GUICtrlCreateEdit("", 360, 16, 17, 209, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[20] = GUICtrlCreateEdit("", 176, 208, 185, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If MsgBox(4, "Der Weiße Kasten", "Spiel beenden?") = 6 Then
Exit
EndIf
EndSwitch
$Mouse = GUIGetCursorInfo()
For $i = 0 To 20
If $Mouse[4] = $Edit[$i] Then
If $Mouse[4] = $Edit[16] Then
If _Err("Du hast das Level geschafft!", 0, 1) = 1 Then
GUIDelete($Form1)
MouseMove (10,10)
_Lvl2()
EndIf
Else
_Err("Du hast einen schwarzen Kasten berührt!", 1, 0)
MouseMove (10,10)
EndIf
EndIf
Next
WEnd
EndFunc ;==>_Lvl1
Func _Start()
#Region ### START Koda GUI section ### Form=E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Schwarze Kästen\Startbildschirm.kxf
Local $Form1 = GUICreate("Der Weiße Kasten", 346, 265, 275, 248)
GUISetBkColor(0x000000)
Local $Label1 = GUICtrlCreateLabel("Willkommen zu dem Spiel:", 16, 8, 172, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label2 = GUICtrlCreateLabel("Der Weiße Kasten!", 32, 32, 121, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label3 = GUICtrlCreateLabel("Die Regeln:", 184, 80, 76, 23)
GUICtrlSetFont(-1, 10, 800, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label4 = GUICtrlCreateLabel("Berühre keinen schwarzen", 144, 104, 168, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label5 = GUICtrlCreateLabel("Kasten!", 144, 120, 48, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label6 = GUICtrlCreateLabel("Erreiche den weißen Kasten,", 144, 144, 185, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label7 = GUICtrlCreateLabel("um zu gewinnen.", 144, 160, 108, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label8 = GUICtrlCreateLabel("Spiel starten", 16, 232, 130, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Label9 = GUICtrlCreateLabel("Spiel beenden", 176, 232, 147, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Maus = GUIGetCursorInfo()
If $Maus[4] = $Label8 And $Maus[2] = 1 Then
GUIDelete($Form1)
MouseMove (10,10)
_Lvl1()
ElseIf $Maus[4] = $Label9 And $Maus[2] = 1 Then
Exit
EndIf
WEnd
EndFunc ;==>_Start

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

Func _Err($sText, $iButton1 = 0, $iButton2 = 1)
Local $WS_GROUP
#Region ### START Koda GUI section ### Form=E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Schwarze Kästen\ErrLvlUp.kxf
Local $Form2 = GUICreate("Der Weiße Kasten", 228, 113, 302, 218)
GUISetBkColor(0x000000)
Local $Label1 = GUICtrlCreateLabel($sText, 8, 8, 212, 44)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
Local $Button1 = GUICtrlCreateButton("Level wiederholen", 8, 64, 97, 33, $WS_GROUP)
If $iButton1 = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
Local $Button2 = GUICtrlCreateButton("Nächstes Level", 112, 64, 105, 33, $WS_GROUP)
If $iButton2 = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
GUIDelete($Form2)
Return 0
Case $Button2
GUIDelete($Form2)
Return 1
EndSwitch
WEnd
EndFunc ;==>_Err

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

Func _Lvl2()
Local $Edit[28]
Local $Mouse
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Level 2", 218, 395, 192, 124)
GUISetCursor(3)
GUISetBkColor(0x004E98)
$Edit[0] = GUICtrlCreateEdit("", 0, 0, 73, 97, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[1] = GUICtrlCreateEdit("", 112, 0, 105, 41, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[2] = GUICtrlCreateEdit("", 72, 64, 97, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[3] = GUICtrlCreateEdit("", 184, 40, 33, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[4] = GUICtrlCreateEdit("", 152, 112, 33, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[5] = GUICtrlCreateEdit("", 0, 96, 97, 105, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[6] = GUICtrlCreateEdit("", 104, 112, 33, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[7] = GUICtrlCreateEdit("", 128, 152, 17, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[8] = GUICtrlCreateEdit("", 104, 184, 17, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[9] = GUICtrlCreateEdit("", 72, 208, 129, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[10] = GUICtrlCreateEdit("", 192, 152, 9, 57, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[11] = GUICtrlCreateEdit("", 208, 128, 9, 265, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[12] = GUICtrlCreateEdit("", 0, 240, 129, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[13] = GUICtrlCreateEdit("", 0, 200, 49, 41, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[14] = GUICtrlCreateEdit("", 136, 248, 17, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[15] = GUICtrlCreateEdit("", 128, 272, 17, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[16] = GUICtrlCreateEdit("", 104, 264, 17, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[17] = GUICtrlCreateEdit("", 152, 240, 33, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[18] = GUICtrlCreateEdit("", 184, 264, 17, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[19] = GUICtrlCreateEdit("", 192, 240, 9, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[20] = GUICtrlCreateEdit("", 104, 280, 9, 73, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[21] = GUICtrlCreateEdit("", 112, 304, 49, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[22] = GUICtrlCreateEdit("", 168, 328, 41, 25, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[23] = GUICtrlCreateEdit("", 48, 352, 113, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[24] = GUICtrlCreateEdit("", 8, 352, 25, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[25] = GUICtrlCreateEdit("", 0, 264, 9, 129, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[26] = GUICtrlCreateEdit("", 8, 376, 201, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[27] = GUICtrlCreateEdit("", 40, 272, 41, 41, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If MsgBox(4, "Der Weiße Kasten", "Spiel beenden?") = 6 Then
Exit
EndIf
EndSwitch
$Mouse = GUIGetCursorInfo()
For $i = 0 To 27
If $Mouse[4] = $Edit[$i] Then
If $Mouse[4] = $Edit[27] Then
If _Err("Du hast das Level geschafft!", 0, 1) = 1 Then
GUIDelete($Form1)
MouseMove (10,10)
MsgBox(0, "Herzlichen Glückwunsch!", "Du hast das neue Level bestanden! Bekommst 'nen Keks!")
EndIf
Else
_Err("Du hast einen schwarzen Kasten berührt!", 1, 0)
MouseMove (10,10)
EndIf
EndIf
Next
WEnd
EndFunc ;==>_Lvl2

[/autoit]

//Update: Level wiederholen + Nächstes Level GUI hinzugefügt, Bug mit dem Neustart behoben, Startbildschirm, Level 2

Freue mich immer über Feedback !!

**Oscar**

Die Idee ist doch super!
Das kannst Du noch weiter ausbauen (zufällige Anordnung der Kästen, mehrere Level, nicht gleich beenden, sondern Fehlersound/-Anzeige, Punkte-/Zeitanzeige).

Also nur zu, das Spiel hat was.

Lololo124

Ich finde das macht echt Spaß
wär das feld ein bisschen gröser wär es besser.

Gruß Roggazzz

PrideRage

Coole Idee.
Schön wären mehr level und ein level editor
Aber sonst gute idee.

Zacharja

Erstmal danke für so viel Lob
Freut mich, das das Spiel so gut ankommt.
Hatte mir auch schon gedacht, das Spiel auszubauen...
Naja, zu dem Level-Editor.. da wüsst ich nicht wie ich das machen soll
Aber egal Ich mach mal 'nen bisschen weiter an dem Spiel (Was Oscar gesagt hat, zufällige Anordnung der Kästen, etc.)

Edit:
Waah, jetzt kommt man nicht mehr an den weißen Kasten ran
Jemand 'ne Idee, wie man das realisieren könnte

**Alina**

Schönes Game.
Nichts für unruhige Hände.

Lololo124

das mit dem Fehlerzähler kann man so machen:
Erstmal eine Variable für den COunter

[autoit]

Global $Counter=0

[/autoit]

und dann bei der If abrfrage unten:

[autoit]

If $Mouse[4] = $Edit[$i] Then
If $Mouse[4] = $Edit[16] Then
MsgBox (0,"Herzlichen Glückwunsch!","Du hast gewonnen das Spiel mit "&$Counter&" Fehler gemeistert.")
Exit
Else
$Counter=$Counter+1
Beep(800,100)
EndIf
EndIf

[/autoit]

Gruß Roggazzz

progandy

Du solltest die Maus vor Spielstart an den Anfang vom Fenster setzen. Bei mir war sie zufällig direkt neben dem weißen Kästchen, da hab ich sofort gewonnen

**Xenobiologist**

@progandy : Gib es zu, du hast enfach die rechte Maustaste gehalten, bist aufs weiße Kästchen gefahren und dann losgelassen

Greek

Cooles Spiel, das musst du unbedingt noch erweitern

Würde noch an einen Ausgang setzen, hatte ein paar Anläufe gebraucht bis ich das kapiert hab warum das Fenster ständig direkt wieder zu geht.

und Fehler mit Zählen wär auch cool, könntest das ja so ungefaire machen:

Spoiler anzeigen

[autoit]

Dim $Edit[21]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\AutoIt3\SciTE\Koda\Forms\Game1.kxf

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

Global $Fehler = 0

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

$Form1 = GUICreate("Berühre keine Schwarzen Kästen!", 378, 227, Default, Default)
GUISetBkColor(0x004E98)
GUISetCursor("3")
$Edit[0] = GUICtrlCreateEdit("", 0, 0, 41, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[1] = GUICtrlCreateEdit("", 0, 112, 41, 113, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[2] = GUICtrlCreateEdit("", 88, 80, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[3] = GUICtrlCreateEdit("", 144, 0, 57, 73, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[4] = GUICtrlCreateEdit("", 40, 144, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[5] = GUICtrlCreateEdit("", 160, 128, 17, 97, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[6] = GUICtrlCreateEdit("", 184, 72, 17, 57, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[7] = GUICtrlCreateEdit("", 176, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[8] = GUICtrlCreateEdit("", 200, 112, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[9] = GUICtrlCreateEdit("", 264, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[10] = GUICtrlCreateEdit("", 304, 64, 49, 81, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[11] = GUICtrlCreateEdit("", 216, 64, 89, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[12] = GUICtrlCreateEdit("", 256, 32, 73, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[13] = GUICtrlCreateEdit("", 200, 0, 25, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[14] = GUICtrlCreateEdit("", 224, 0, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[15] = GUICtrlCreateEdit("", 312, 0, 65, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[16] = GUICtrlCreateEdit("", 184, 168, 33, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[17] = GUICtrlCreateEdit("", 40, 0, 105, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[18] = GUICtrlCreateEdit("", 40, 208, 121, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[19] = GUICtrlCreateEdit("", 360, 16, 17, 209, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[20] = GUICtrlCreateEdit("", 176, 208, 185, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_SetzeAusgang()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Mouse = GUIGetCursorInfo()
For $i = 0 To 20
If $Mouse[4] = $Edit[$i] Then
If $Mouse[4] = $Edit[16] Then
MsgBox(0, "Herzlichen Glückwunsch!", "Du hast mit " & $Fehler & " Fehlern gewonnen! Bekommst 'nen Keks :)")
Exit
Else
$Fehler += 1
MsgBox(0, "Fehler!", "Das war Fehler Nummer: " & $Fehler & ", probieren Sie es erneut")
_SetzeAusgang()
EndIf
EndIf
Next
WEnd

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

Func _SetzeAusgang()
$pos = WinGetPos($Form1)
MouseMove($pos[0], $pos[1] + ($pos[3] / 2), 0)
EndFunc ;==>_SetzeAusgang

[/autoit]

Gruss Greek

Zacharja

//Update: Level wiederholen + Nächstes Level GUI hinzugefügt
Startbildschirm

HopFail

Suuuper toll, dickes Lob von mir!
War bestimmt harte Arbeit!
Weiter so! (Level 1 geschafft )

dph_dph

tolles game^^
nur viel zu kurz
aber sag ma bekomm ich net noch en keks von dir

dsgamer007

nach der keksmeldung ist das gekommen: autoit.de/wcf/attachment/6714/

ansonsten: superklasse!!!

SEuBo

Zitat von dsgamer007

nach der keksmeldung ist das gekommen

Einfach in der For-Next-Schleife bei Zeile 311 das hier machen:

[autoit]

If IsArray($Mouse) And IsArray($Edit) Then
;Restlicher Inhalt...
EndIf

[/autoit]

Übrigens ist das game gaanz einfach wenn du auf der Titelleiste die Rechte Maustaste gedrückt hälst, und einfach bis zum weißen kasten ziehst.

L3viathan

Noch was: Lagere die Level doch in irgendeiner Form aus, in externe Dateien.

denno

Macht richtig Spaß allerdings kann man extrem leicht schummeln indem man zb. auf beenden klickt dabei den nein button der MsgBox auf das weisse kästchen zieht und auf nein klickt dann hat mans geschaft aber trotzdem super game