Shoot em up smooth player movement code?

Blitz3D Forums/Blitz3D Programming/Shoot em up smooth player movement code?

Stevie G
 #1
Maybe this?

Open in online IDE
Graphics 640,480,16,1
Const KEY_LEFT = 203
Const KEY_RIGHT = 205
Global Velocity#, x#=320, y#=450
Const Acceleration# = .25
Const Drag# = .95
;max speed = Acceleration / ( 1- Drag )

Global Ship = CreateImage( 32, 32 )
MidHandle Ship
SetBuffer ImageBuffer( Ship )
Color 255,255,255
Rect 8,0,16,32,1
Rect 0,16,32,16,1
SetBuffer BackBuffer()

Repeat
	Cls
	Thrust# = Acceleration * ( KeyDown( KEY_RIGHT ) - KeyDown( KEY_LEFT ) ) 
	Velocity = Velocity * Drag + Thrust
	x = x + Velocity
	DrawImage ship,x,y
	Flip
Until KeyDown(1)