fb:porticula NoPaste
jetz aba
Uploader: | ytwinky |
Datum/Zeit: | 06.01.2008 19:48:29 |
Cls
Color 4
Screen 18,32
Bload "TITEL.bmp"
Sleep 5000
Print "Drcke ENTER, um das Spiel zu starten!"
Sleep
Screen 18,32
Bload "Level1Logo.bmp"
Sleep 2000
Cls
Locate 12, 6
Print "Errate die Lsung und gib sie in das dafr vorhergesehene Feld ein!"
Sleep 6000
Cls
Dim loesungl1 as String
Screen 18,32
Bload "Level1.bmp"
While Inkey <> "": Wend
Input "Lsung :", loesungl1
Select Case lcase(loesungl1)
Case "keiner"
BLoad "richtig.bmp"
While Inkey <> "": Wend
Case Else
BLoad "falsch.bmp"
Sleep
End
End Select
Sleep