Something like this maybe?
sync on
sync rate 60
rem ship coordinates
px# = 300
py# = 200
rem acceleration of ship
acc# = 0.1
rem velocity of ship
vx# = 0
vy# = 0
rem friction
friction# = 0.05
rem maximum velocity
MAX_V# = 5.0
rem angle
a# = 2
do
cls
if upkey() = 1
vx# = vx# + fx#
vy# = vy# + fy#
endif
if rightkey() = 1 then a# = wrapvalue(a#-2)
if leftkey() = 1 then a# = wrapvalue(a#+2)
rem player direction
dx# = sin(a#)
dy# = cos(a#)
rem player's force
fx# = dx# * acc#
fy# = dy# * acc#
speed# = sqrt(vx#^2+vy#^2)
if speed# > MAX_V#
vx# = (vx#*MAX_V#) / speed#
vy# = (vy#*MAX_V#) / speed#
endif
rem update player position
px# = px#+vx#
py# = py#+vy#
circle px#,py#,20
x2# = px#+sin(a#)*20
y2# = py#+cos(a#)*20
line px#,py#,x2#,y2#
sync
loop
Could probably be written better, I just pulled bits and pieces from an existing source I had.
