Verfasst: 01.06.2006 12:38
Falls dich's interessiert....
Hier was, wo du vielleicht was rauskopieren kannst:
Hier was, wo du vielleicht was rauskopieren kannst:
Code: Alles auswählen
InitSprite()
InitSprite3D()
InitKeyboard()
OpenScreen(1024,768,16,"Test")
CreateSprite(0,32,32,#pb_sprite_texture)
StartDrawing(SpriteOutput(0))
Box(0,0,32,32,$FFFFFF) ; Der weiße Hintergrund
Box(8,0,16,16,$808080) ; Die graue Box
StopDrawing()
CreateSprite3D(0,0)
pi.f = 3.14159265
direction.f= 0
Speed = 2
x.f = 512
y.f = 384
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
If KeyboardPushed(#pb_key_right)
direction + 2 ; Die Richtung wird gedreht
EndIf
If KeyboardPushed(#pb_key_left)
direction - 2 ; Die Richtung wird gedreht
EndIf
If KeyboardPushed(#pb_key_up)
x + Cos(direction*2*pi/360)*Speed ; Bewegung
y + Sin(direction*2*pi/360)*Speed ; Bewegung
EndIf
If KeyboardPushed(#pb_key_down)
x - Cos(direction*2*pi/360)*Speed ; Bewegung
y - Sin(direction*2*pi/360)*Speed ; Bewegung
EndIf
Start3D()
DisplaySprite3D(0,x,y)
RotateSprite3D(0,direction,0)
Stop3D()
FlipBuffers()
Until KeyboardReleased(#pb_key_escape)
End