Posted: Wed Dec 05, 2001 9:14 pm
Restored from previous forum. Originally posted by blue-speed.
hi!
want to ask why it didnt screen the picture
code]
;--------- INITIIALISIERUNG ------------------
If InitSprite() = 0
MessageRequester("Fehler","Fehler: Dx7 oder hoehernicht nicht verfuegbar",0) ; sprite initialisierung
EndIf
If InitKeyboard() = 0
MessageRequester("Fehler","Fehler: Dx7 oder hoehernicht nicht verfuegbar",0) ; keyboard initialisierung
EndIf
;---------------------------------------------
;------------ FULSCREEN ----------------------
If OpenScreen(800,600,32,"SCROLLER") = 0
MessageRequester("Fehler","Fehler: konnte keine fullscreen oeffnen",0) ; Naja is ja klar wir setzen eine fullscreen
EndIf
;---------------------------------------------
;------------ sprite laden -------------------
hgrund = LoadSprite(0,"hgrund.bmp",0)
text =LoadSprite(0,"text.bmp ",0)
;--------------------------------------------
Repeat
FlipBuffers()
ClearScreen(0,0,0)
DisplaySprite(hgrund,0,0)
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
ForEver[/code]
WOOOOOOW!
hi!
want to ask why it didnt screen the picture
code]
;--------- INITIIALISIERUNG ------------------
If InitSprite() = 0
MessageRequester("Fehler","Fehler: Dx7 oder hoehernicht nicht verfuegbar",0) ; sprite initialisierung
EndIf
If InitKeyboard() = 0
MessageRequester("Fehler","Fehler: Dx7 oder hoehernicht nicht verfuegbar",0) ; keyboard initialisierung
EndIf
;---------------------------------------------
;------------ FULSCREEN ----------------------
If OpenScreen(800,600,32,"SCROLLER") = 0
MessageRequester("Fehler","Fehler: konnte keine fullscreen oeffnen",0) ; Naja is ja klar wir setzen eine fullscreen
EndIf
;---------------------------------------------
;------------ sprite laden -------------------
hgrund = LoadSprite(0,"hgrund.bmp",0)
text =LoadSprite(0,"text.bmp ",0)
;--------------------------------------------
Repeat
FlipBuffers()
ClearScreen(0,0,0)
DisplaySprite(hgrund,0,0)
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
ForEver[/code]
WOOOOOOW!