Was mache ich falsch?
Code: Alles auswählen
If InitSprite() = 0
MessageRequester("Fehler","Konnte dx nicht finden",0)
EndIf
If InitKeyboard()=0
MessageRequester("Fehler","Konnte dx nicht finden",0)
EndIf
If OpenScreen(600,480,16,"Vollbild") = 0
MessageRequester("Fehler","Konnte kein Vollbild erstellen ",0)
EndIf
For anim = 1 To 16
LoadSprite(anim,"files\anim_"+Str(anim)+".bmp",0)
Next
anim = 1
Repeat
ClearScreen(1,0,0)
anim + 1
If anim = 16
anim = 1
EndIf
If anim = 1
anim + 1
EndIf
DisplayTransparentSprite(anim,30,30)
FlipBuffers()
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
ForEver
gecodetagt --bobobo (1. Fehler beseitigt:) )