fb:porticula NoPaste
Bildgame version 2
Uploader: | Bull-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