Sorry your browser is not supported!

sync on : sync rate 60
Global fps=60
set display mode 1366,768,32
set window on
maximize window

set window title "space game"


load image "ship.png",1
sprite 1,0,0,1
offset sprite 1,25,25

Global player_x = 100
Global player_y = 100
Global player_rotation = 0
Global player_velocity_x# = 0
Global player_velocity_y# = 0
Global player_xspeed# = 0
Global player_yspeed# = 0

do
cls
move_player()
sync
loop


function move_player
	sprite 1,player_x,player_y,1
	rotate sprite 1,player_rotation
	
	player_x = player_x + (player_xspeed#/fps)
	player_y = player_y + (player_yspeed#/fps)
	
	
	player_velocity_x# = sin(player_rotation)
	player_velocity_y# = -cos(player_rotation)

	
	if KEYSTATE(30)
		player_rotation = player_rotation-3
	endif
	
	if KEYSTATE(32)
		player_rotation = player_rotation+3
	endif
	
	if KEYSTATE(17)
		player_xspeed# = player_xspeed# + (player_velocity_x#*10)
		player_yspeed# = player_yspeed# + (player_velocity_y#*10)
	endif
	
	if KEYSTATE(31)
		player_xspeed# = player_xspeed# * 0.9
		player_yspeed# = player_yspeed# * 0.9
	endif 
endfunction

sync on : sync rate 60
set display mode 640, 480, 32, 1

// variables for the ship
shipnum as integer = 1 // holds sprite number
shipimage as integer = 1 // holds image number
shipx as float = 320.0 // holds x value
shipy as float = 240.0 // holds y value
shipxvel as float // x velocity
shipyvel as float // y velocity
shipangle as float = 0.0 // angle

// this is our V value when using the formulas
velocity as float = 2.0 // change this to increase/decrease speed


// load an image
set image colorkey 255,255,255
load image "spaceship.bmp", shipimage, 1

// draw the sprite once so we can offset it
// this allows for rotation point to be in the middle
sprite shipnum, shipx, shipy, shipimage
offset sprite shipnum, sprite width(shipnum) / 2, sprite height(shipnum) / 2

// Main Loop
do
    // find the x velocity to move the ship at our chosen angle 
    // using the formula x velocity = v*cos(angle)
    shipxvel = velocity * cos(shipangle - 90) 
    // there is a "-90" in there because the sprite is facing up/forward, equivalent to 90 degrees 
    // on the unit circle and not 0 degrees

    // now for the y velocity
    shipyvel = velocity * sin(shipangle - 90)
    
    // if the user hits the up arrowkey, move the ship forward at it's chosen angle
    if upkey()=1
        inc shipx, shipxvel
        inc shipy, shipyvel
    endif
    
    // use the left and right arrowkeys to increase, decrease the angle
    if rightkey()=1
       inc shipangle, 2.0 // change the second value for faster/slower rotation
       shipangle = wrapvalue(shipangle) // keeps the angle between 0 and 360
    endif
    
    // do the same for the leftkey
    if leftkey()=1
        dec shipangle, 2.0
        shipangle = wrapvalue(shipangle)
    endif
    
    // draw the sprite
    sprite shipnum, shipx, shipy, shipimage
    
    // rotate the sprite
    rotate sprite shipnum, shipangle
    
    // refresh screen
    sync
    
loop

type ship
   x
   y
   rotation
   velocity_x#
   velocity_y#
   _xspeed#
   _yspeed#
endtype
player as ship
player.x = 100

rem ECT.

dim asteroid(10) as ship `Or however many the max asteroids are.

for b = 1 to 10
   asteroid(b).x = rnd(640)
next b

rem Also you can change the type name
rem Do what you wish with this, its really helpful.

sync on : sync rate 60
set display mode 1366,768,32
set window on
maximize window


load image "ship.png",1,1
sprite 1,200,200,1
offset sprite 1,25,25

load image "flame.png",2
sprite 2,200,200,2
offset sprite 2,20,-18



type ship 
speed as float
angle as float
vx as float
vy as float
x as float
y as float
endtype

player as ship 
player.speed = 0.1
player.vx = 0.0
player.vy = 0.0
player.x = 200
player.y = 200
player.angle=0
do

set sprite alpha 2,0


if player.vx>=7 then player.vx=7
if player.vx<=-7 then player.vx=-7

if player.vy>=7 then player.vy=7
if player.vy<=-7 then player.vy=-7
if KEYSTATE(17)
	inc player.vx, cos(player.angle-90)* player.speed
	inc player.vy, sin(player.angle-90)* player.speed
	set sprite alpha 2,200
endif

if KEYSTATE(31)
	if player.vx>0 then dec player.vx,0.05
	if player.vx<0 then inc player.vx,0.05
	if player.vy>0 then dec player.vy,0.05
	if player.vy<0 then inc player.vy,0.05
endif

if KEYSTATE(32)
	inc player.angle,3
	player.angle = wrapvalue(player.angle)
endif

if KEYSTATE(30)
	dec player.angle,3
	player.angle = wrapvalue(player.angle)
endif

inc player.x,player.vx
inc player.y,player.vy

if player.y>screen height() then player.y = 0
if player.y<0 then player.y = screen height()	
if player.x>screen width() then player.x = 0
if player.x<0 then player.x = screen width()		
 	
rotate sprite 1,player.angle
sprite 1,player.x,player.y,1 


sprite 2,player.x,player.y,2
rotate sprite 2,player.angle




sync 
    
loop

type ship 
   speed as float
   angle as float
   vx as float
   vy as float
   x as float
   y as float
endtype

DIM MyShip(20) AS ship

type ship
   x
   y
   Variable(20)
endtype