Sorry your browser is not supported!

`initialize settings
hide mouse
set image colorkey 255, 0, 255
sync on

`initialise variables
global p_x as integer = 400
global p_y as integer = 400
global p_direction as integer = 1
global p_sprite_amount as integer = 4
global p_speed as integer = 2
global level as integer = 1

`load static sprites
load image "player_tank_up.bmp", 1
load image "player_tank_right.bmp", 2
load image "player_tank_down.bmp", 3
load image "player_tank_left.bmp", 4
load image "level1-grid.bmp", 5

`initialize player sprites
for i=1 to 4
   sprite i, p_x, p_y, i
next i

`initialize background
load bitmap "asphalt.bmp", 1
copy bitmap 1, 0
set current bitmap 0

`main loop
do
   copy bitmap 1, 0
   set current bitmap 0
   clear_sprites()
   update_p()
   draw_p()
   draw_grid()
   check_p_position()
   check_arrows()
   sync
loop

end

function clear_sprites()
   `hide the sprites
   for i=1 to p_sprite_amount
      hide sprite i
   next i
endfunction

function update_p()
   for i=1 to p_sprite_amount
      sprite i, p_x, p_y, i
   next i
endfunction

function draw_p()
   show sprite p_direction
endfunction

function check_arrows()
   `check if an arrow key was pressed
   if upkey() > 0
      p_direction = 1
      p_y = p_y - p_speed
   endif
   if rightkey() > 0
      p_direction = 2
      p_x = p_x + p_speed
   endif
   if downkey() > 0
      p_direction = 3
      p_y = p_y + p_speed
   endif
   if leftkey() > 0
      p_direction = 4
      p_x = p_x - p_speed
   endif
endfunction

function draw_grid()
   sprite level + 4, 0,0, level + 4
   hide sprite level + 4
endfunction

function check_p_position()
   if sprite hit(1, 5) > 0
      if p_direction = 1 then p_y = p_y + p_speed
      if p_direction = 2 then p_x = p_x - p_speed
      if p_direction = 3 then p_y = p_y - p_speed
      if p_direction = 4 then p_x = p_x + p_speed
   endif
endfunction

sprite collision (sprite being tested, sprite its tested against)

sprite hit (sprite being tested, sprite its tested against)

sync on
sync rate 60
randomize timer()
cls rgb(rnd(255),rnd(255),rnd(255))
get image 1,0,0,49,49
sprite 1,screen width()/2,screen height()-50,1
offset sprite 1,25,25
cls rgb(rnd(255),rnd(255),rnd(255))
get image 2,0,0,49,49
sprite 2,rnd(screen width()-25),rnd(screen height()-25),2
do
sync
move sprite 1,(upkey()-downkey())*3
rotate sprite 1,sprite angle(1)+(rightkey()-leftkey())
set cursor 0,0
print "Sprite collision: "+str$(sprite collision(2,0))
print "Sprite hit: "+str$(sprite hit(2,0))
loop