Wie vermutet, hab ich schon wieder ein problem. Habe jetzt mal alles überflüssige an dem sprite mit "transparentsprite" entfernt. Ich wollt jetzt einen untergrund einfügen, auf dem sich die figur bewegt, aber dieser wird nicht angezeigt.
Code
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(800,600,32,"Vollbild") = 0
MessageRequester("Fehler","Konnte kein Vollbild erstellen ",0)
EndIf
If LoadSprite(0,"Fighter.bmp",0)=0
EndIf
If LoadSprite(1,"Fighter1.bmp",0)=0
EndIf
If LoadSprite(2,"Fighter2.bmp",0)=0
EndIf
If LoadSprite(3,"Fighter3.bmp",0)=0
EndIf
If LoadSprite(4,"Fighter4.bmp",0)=0
EndIf
If LoadSprite(5,"Boden.bmp",0)=0
EndIf
TransparentSpriteColor(0, 255, 255, 0)
TransparentSpriteColor(1, 255, 255, 0)
TransparentSpriteColor(2, 255, 255, 0)
TransparentSpriteColor(3, 255, 255, 0)
TransparentSpriteColor(4, 255, 255, 0)
TransparentSpriteColor(5, 255, 255, 0)
position_x = 0
position_y = 0
Repeat
If IsScreenActive()
ClearScreen(0,0,0)
DisplayTransparentSprite(AniFrame, position_x, position_y)
FlipBuffers()
ExamineKeyboard()
If delay<50
If KeyboardPushed(#PB_Key_Right)
AniFrame+1
If AniFrame >4
AniFrame=0
EndIf
delay=60
EndIf
Else
delay-1
EndIf
If KeyboardPushed(#PB_Key_Right)
position_x + 3
If position_x > 700
position_x = 700
EndIf
EndIf
If KeyboardPushed(#PB_Key_Left)
position_x - 3
If position_x < 0
position_x = 0
EndIf
EndIf
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
Else
Delay(20)
EndIf
ForEver
Danke im Vorraus,
Janiboy