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

Bildgame version 2

Uploader:MitgliedBull-T07
Datum/Zeit:05.01.2008 21:56:27

Dim schauen as string
Screen 18,32
Bload "Front.bmp"
Input "willst du nach (rechts) oder nach (links) schauen?", schauen
Select Case LCASE(schauen)
Case "rechts": Bload "rsite.bmp"
Case "links": Bload "lsite.bmp"
Case Else: Print "Du hast Unsinn eingegeben!"
End Select
Sleep 2000
CLS
Dim schauen2 as string
Screen 18, 32
Bload "Front.bmp"
Input "willst du nach (oben) oder nach (unten) schauen?", schauen2
Select Case LCASE(schauen)
Case "oben": Bload "oben.bmp"
Case "unten": Bload "unten.bmp"
Case Else: Print "Du hast Unsinn eingegeben!"
End Select
sleep