fb:porticula NoPaste
Mein Spiel
Uploader: | Bull-T07 |
Datum/Zeit: | 06.01.2008 01:11:50 |
Cls
Color 4
Screen 18,32
Bload "TITEL.bmp"
Sleep 5000
Print "Press Enter to start the Game"
Sleep
Screen 18,32
Bload "Level1Logo.bmp"
Sleep 2000
Cls
Print "Erate die Loesung und gebe sie in das Feld unten am Bild ein!"
Sleep 6000
Cls
Dim loesungl1 as String
Screen 18,32
Bload "Level1.bmp"
Input "Loesung", loesungl1
Select Case LCASE(loesungl1)
Case "keiner": BLoad "richtig.bmp"
Case "kein": BLoad "rischtig.bmp"
Case Else: BLoad "falsch.bmp"
End Select
Sleep