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
Dim $Edit[21]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
_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 ###
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 ###
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
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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
GUIDelete($Form2)
Return 0
Case $Button2
GUIDelete($Form2)
Return 1
EndSwitch
WEnd
EndFunc ;==>_Err
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 ###
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
//Update: Level wiederholen + Nächstes Level GUI hinzugefügt, Bug mit dem Neustart behoben, Startbildschirm, Level 2
Freue mich immer über Feedback !!