Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Mein spiel case else: end

Uploader:MitgliedBull-T07
Datum/Zeit:06.01.2008 19:28:32

Cls
Color 4
Screen 18,32
Bload "TITEL.bmp"
Sleep 5000
Print "Druecke ENTER um das Spiel zu starten!"
Sleep
Screen 18,32
Bload "Level1Logo.bmp"
Sleep 2000
Cls
Locate 12, 6
Print "Erate die Loesung und gebe sie in das dafuer vorhergesehene Feld ein!"
Sleep 6000
Cls
Dim loesungl1 as String
Screen 18,32
Bload "Level1.bmp"
while inkey <> "": wend
Input "Loesung  :", loesungl1
Select Case LCASE(loesungl1)
Case "keiner": BLoad "richtig.bmp"
while inkey <> "": Wend
Case Else: BLoad "falsch.bmp"
Case Else: end
while inkey <> "": wend
End Select
Sleep