Im ordner sind die dateien richtig herum!
Wo liegt der Fehler oder was muss ich dagegen tun?
Code: Alles auswählen
InitSprite()
InitKeyboard()
OpenScreen(640,480,16,"Figuren")
For X = 1 To 9
LoadSprite(10+x,"Figuren\Male Smith\MS_000"+Str(x) + ".bmp",0)
TransparentSpriteColor(10+x,RGB(0,0,128))
Next
For X = 10 To 72
LoadSprite(10+x,"Figuren\Male Smith\MS_00"+Str(x) + ".bmp",0)
TransparentSpriteColor(10+x,RGB(0,0,128))
Next
Anim=0
x=1
Repeat
ExamineKeyboard()
ClearScreen(RGB(0,0,0))
Anim+1
If Anim>10
Anim=1
x=x+1
If x>72
x=1
EndIf
EndIf
DisplayTransparentSprite(10+x,300,300)
FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape)
End