Code: Alles auswählen
InitSprite()
InitKeyboard()
Global playerX.f
Global playery.f
#g=9.84
height=3
playerX=500
OpenScreen(1024,768,16,"schräg")
CreateSprite(1,10,10)
StartDrawing(SpriteOutput(1))
Box(0,0,10,10,RGB(0,0,255))
StopDrawing()
CreateSprite(0,1024,768)
StartDrawing(SpriteOutput(0))
LineXY(100,768,1024,0,RGB(255,0,0))
DrawingMode(4)
Box(600,200,100,300,RGB(255,0,0))
FillArea(200,700,RGB(255,0,0),RGB(0,255,0))
StopDrawing()
Repeat
ClearScreen(10,10,10)
DisplayTransparentSprite(0,0,0)
DisplaySprite(1,playerX,playery)
FlipBuffers()
ExamineKeyboard()
If SpritePixelCollision(1,playerX,playery+speedy,0,0,0)=0
speedy=#g/2*Pow(t,2)
playery+speedy
t+1
Else
t=0
speedy=2
EndIf
If SpritePixelCollision(1,playerX,playery,0,0,0)
Repeat
playery-1
Until SpritePixelCollision(1,playerX,playery,0,0,0)=0
speedy=2
EndIf
MoveX=0
If KeyboardPushed(#PB_Key_Right)
MoveX+1
ElseIf KeyboardPushed(#PB_Key_Left)
MoveX-1
EndIf
If SpritePixelCollision(1,playerX+MoveX,playery-height,0,0,0)=0
playerX+MoveX
EndIf
Until KeyboardPushed(#PB_Key_Escape)
End