Graphics3D 800,600,0,2
SetBuffer BackBuffer()

Local Timer=CreateTimer(60)
Local Camera=CreateCamera()
CameraClsColor Camera,64,64,64

Include "Includes\Draw3D.bb"
DrawInit3D(Camera)
Origin3D(800,600)

Local Main=LoadImage3D("Panzer.png",2,2,0)
Local Angle#=0
Local Speed#=0
Local XP#=0
Local YP#=0




While Not KeyHit(1)
   
   If KeyDown(203) Then Angle=Angle-2
   If KeyDown(205) Then Angle=Angle+2
   If KeyDown(200) Then Speed=Speed+0.2
   If KeyDown(208) Then Speed=Speed-0.2
   
   Speed=Speed*0.9
   XP=XP+Sin(Angle)*Speed
   YP=YP+Cos(Angle)*Speed
   DrawImage3D(Main,XP,YP,0,Angle)
   
   WaitTimer(Timer)
   RenderWorld
   Clear3D()
   Flip 0
Wend
End