graphics 1024,768,32,2
setbuffer backbuffer()
repeat
cls
clscolor 150,0,0

text 450,90, "Willkommen, bla bla bla ..."

text 20,580, "weiter mit Leertaste"
flip
until keyhit(1)
(if keyhit(32) then cls)<----die ich einfügen wollte grml
end


; hier wollt iich eine if schleife machen also wenn leertaste gedrückt wird blidschirm löschen aber es klappt net


ich hoffe ihr habt mich verstannden also ich will zuerst ein titel angezeigt werde zb mein textadventure dann weiter mit leertaste dann löscht sich alles und es entsteht ein neues bild wo wiederum was neues ist zb die story und immer so weiter

thx schon ma im voraus

repeat
cls
clscolor 150,0,0

text 450,90, "Willkommen, bla bla bla ..."

text 20,580, "weiter mit Leertaste"
flip
until keyhit(1)

Graphics 1024 ,768,32,2
SetBuffer BackBuffer ()
ClsColor 150 ,0,0

Repeat
    Cls
    vorspann (vorspannnr)
   
    If KeyHit (57) Then
       
        vorspannnr = vorspannnr + 1
       
    End If
   
    Flip
Until KeyHit (1)

End

Function vorspann (nr)
   
    Select nr
     
     Case 0 Text 450 ,90, "Willkommen, bla bla bla ..."
     
     Case 1 Text 450 ,90, "111111111111111111111111111"
     
     Case 2 Text 450 ,90, "222222222222222222222222222"
     
     Case 3 Text 450 ,90, "333333333333333333333333333"
     
     Case 4 Text 450 ,90, "Spiel Sarten"
     
     Default Text 450 ,90, "Der Code folgt....."
    End Select
   
    Text 500 ,280, "weiter mit Leertaste"
   
End Function