Sorry your browser is not supported!

randomize timer()
sync on : sync rate 60
set display mode 1024, 768, 16
set window size desktop width(), desktop height()
maximize window
set window off
#constant false 0
#constant true 1

global currsprite, currimage

type entity
    x as integer
    y as integer
    w as integer
    h as integer
    energy as integer
    health as integer
    state as boolean
    spr as integer
    img as integer
endtype
player as entity

gosub loadmedia
gosub setupplayer
gosub setupenemies
gosub setupbackground

do
    `playerinput() `Functions are for later.
    `enemyengine()
    `checks()
    `background()
    sprite player.spr, player.x, player.y, player.img
loop

setupplayer:
    player.state = true
    player.spr = GetFreeSprite()
    player.health = 100
    player.energy = 100
    sprite player.spr, 0, 0, player.img
    player.w = sprite width(player.spr)
    player.h = sprite height(player.spr)
    player.x = 0 + player.w
    player.y = 0 + screen height()
    offset sprite player.spr, player.w, player.h
    rotate sprite player.spr, 90
return

setupenemies:
    
return

setupbackground:
    dim star(1000) as entity
    dot 0, 0, rgb(255, 255, 255)
    OK = false
    for i = 1 to 1000
    for a = 1 to 1000
    star(i).img = GetFreeImage()
    get image star(i).img, 0, 0, 1, 1
    cls
        repeat
            star(i).x = rnd(1024) : star(a).x = rnd(1024)
            star(i).y = rnd(768) : star(a).y = rnd(768)
            if star(i).x <> star(a).x and star(i).y <> star(a).y then OK = true
        until OK = true
    next i
    next a
return
 
loadmedia:
        player.img = GetFreeImage()
    load image "media\spaceship.png", player.img
return

function background()
    
endfunction

function GetFreeSprite()
    repeat
        inc currsprite
    until sprite exist(currsprite) = false
endfunction currsprite

function GetFreeImage()
    repeat
        inc currimage
    until image exist(currimage) = false
endfunction currimage

loadmedia:
    player.img = GetFreeImage()
    load bitmap "media\spaceships.bmp", 1
    set current bitmap 1
    get image player.img, 90, 121, 21, 97
return

`Setup arrays for coords.
DIM starx(1000): FOR i = 1 TO 1000: starx(i) = 100 + i: NEXT i
DIM stary(1000): FOR i = 1 TO 1000: stary(i) = 100 + i: NEXT i

`Make an image for star sprite and grab it
DOT 1, 1
GET IMAGE 99, 0, 0, 2, 2, 1

`Assign coordinate values
FOR i = 1 TO 1000
      starx(i) = RND(SCREEN WIDTH())
      stary(i) = RND(SCREEN HEIGHT())
NEXT i

`Use a REPEAT as the cycle has to run at least once
REPEAT
      `Set collided flag to 0
      collided = 0
      FOR a = 1 TO 1000
            FOR b = 1 TO 1000
                  IF a <> b
                        `Check only if two coords are on the same x-line
                        IF starx(a) = starx(b)
                              `Now check to see if their y-axis matches
                              IF stary(a) = stary(b)
                                    `If so, set the collided flag to 1 so that process repeats
                                    collided = 1
                                    `Re-Randomize value
                                    starx(a) = RND(SCREEN WIDTH())
                                    stary(a) = RND(SCREEN HEIGHT())
                              ENDIF
                        ENDIF
                  ENDIF
            NEXT b
      NEXT a
UNTIL collided = 0

`Now we have coords, we paste the image at each one
FOR i = 1 TO 1000
      PASTE IMAGE 99, starx(i), stary(i)
NEXT i

`Cull the image as we don't need it anymore
DELETE IMAGE 99
`Cull the redundant arrays
UNDIM stary()
UNDIM starx()

`Now grab the image from the background we made (I recycled the image no, lol)
`You can use this image as an image or sprite or whatever from your background
GET IMAGE 99, 0, 0, SCREEN WIDTH(), SCREEN HEIGHT(), 1

WAIT KEY
END

`Use #CONSTANTS for single entities as they are substituted at precompile.
`This means no performance loss on your actual program and is faster than
`calling a function (eg GetFreeImageNo()) and afford you more control.
#CONSTANT ship 1
#CONSTANT princess 2
#CONSTANT meterfg 11
#CONSTANT meterbg 12

`You can do quick array assignments for the multiple repeat entities
DIM stars(100)
FOR i = 1 TO 100: stars(i) = 100 + i: NEXT i

remstart

It's a good idea to track your entities in ranges using comments above
your code. For example:
001 - 010   Main Characters
011 - 020   Bars, meters, windows.
100 - 200   Stars
201 - 300   Comets, planets, ateroids

It's more work but it doesn't leave any opening for "glitches".
remend

energycore = 2

    for i = 1 to player.energy
        paste image energycore, (image width(energycore)+5) * i, 200
    next i

loadmedia:
    player.img = GetFreeImage()
    global energycore = GetFreeImage()
    global healthbar = GetFreeImage()
    global healthbarsprite = GetFreeSprite()
    global healthbarframe = GetFreeImage()
    box 0,0,3,6, rgb(255,0,0), rgb(255,0,0), rgb(255,0,0), rgb(255,0,0)
    get image healthbar, 0, 0, 4, 7
    box 0,0,4,7
    get image healthbarframe, 0, 0, 5, 8
    load image "media\spaceship.png", player.img
    load image "media\Energy_Core.bmp", energycore
    cls
return

do
    cls
    `playerinput() Functions are for later.
    `enemyengine()
    `checks()
    background()
    GUI()
    sprite player.spr, player.x, player.y, player.img
    sync
loop

setupplayer:
    player.state = true
    player.spr = GetFreeSprite()
    player.health = 100
    player.energy = 10
    sprite player.spr, 0, 0, player.img
    player.w = sprite width(player.spr)
    player.h = sprite height(player.spr)
    player.x = 0 + player.w/2
    player.y = 0 + screen height()/2
    offset sprite player.spr, player.w, player.h
    mirror sprite player.spr
    
return

setupbackground:
dim star(1000) as entity

global starimg = GetFreeImage()
dot 1, 1
get image starimg, 0, 0, 2, 2, 1

for i = 1 to 1000
      star(i).x = rnd(screen width())
      star(i).y = rnd(screen height())
next i

repeat
      collided = false
      for a = 1 to 1000
            for b = 1 to 1000
                  if a <> b
                        if star(a).x = star(b).x
                              if star(a).y = star(b).y
                                    collided = true
                                    star(a).x = rnd(screen width())
                                    star(a).y = rnd(screen height())
                              endif
                        endif
                  endif
            next b
      next a
until collided = false

for i = 1 to 1000
      paste image starimg, star(i).x, star(i).y
next i
wait key

return

CREATE BITMAP n, SCREEN WIDTH(), SCREEN HEIGHT(): SET CURRENT BITMAP n 
draw stuff
grab stuff
DELETE BITMAP n

    player.x = SCREEN WIDTH() / 2
    player.y = SCREEN HEIGHT() / 2
    SET SPRITE PRIORITY player.spr, 99
    SPRITE player.spr, player.x, player.y, player.img

function background()
    for i = 1 to 1000
        
        paste image starimg, star(i).x, star(i).y
        movetickdest = 10
        
        if movetick > movetickdest
            inc star(i).x
            movetick = 0
        else
            inc movetick
        endif
        
        if star(i).x > screen width()+2
            star(i).x = 0
        endif
            
    next i
endfunction

rem assuming you have 2 backdrops and they match the screen's height
   FOR i = 1 TO 2
         SPRITE bg(i), SPRITE X(bg(i)), SPRITE Y(bg(i)) + 1, bg(i)
         IF SPRITE Y(bg(i)) => SCREEN HEIGHT()
                  SPRITE bg(i), SPRITE X(bg(i)), 0 - SPRITE HEIGHT(bg(i)), bg(i)
         ENDIF
   NEXT i
rem You can easily add a timer using IF, TIMER() and MOD

rem Move stars inside the timer
rem using MOD and TIMER(), you can create a simple clock-based timer. In this example, stars move every 100ms
IF TIMER() MOD 100 = 0
      FOR i = 1 TO 1000
            INC star(i).x
            IF star(i).x > SCREEN WIDTH() + 1
                  star(i).x = -1
                  rem May be better to do y too
                  star(i).y = RND(SCREEN HEIGHT())
            ENDIF
      NEXT i
ENDIF

if movetick < movetickdest

if movetick > movetickdest

`If you reduce "numstars" to 100 or less, it works at a better speed

#CONSTANT numstars   1000

TYPE startype
   x
   y
   img
ENDTYPE
DIM star(numstars) AS startype


SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32
INK RGB(255,255,255), RGB(0,0,0)
DOT 1, 1
FOR i = 1 TO numstars
      star(i).img = 100 + i
      GET IMAGE star(i).img, 0, 0, 2, 2, 1
NEXT i
BACKDROP ON: COLOR BACKDROP RGB(0,0,0)
PositionStars()
Refresh()
DO
      ScrollStars()           `<------------------ Function from previous post
      Refresh()
LOOP



END


Function ScrollStars()
rem Move stars inside the timer
rem using MOD and TIMER(), you can create a simple clock-based timer. In this example, stars move every 100ms
      IF TIMER() MOD 10 = 0
            FOR i = 1 TO numstars
                  INC star(i).x
                  IF star(i).x > SCREEN WIDTH() + 1
                        star(i).x = -1
                        rem May be better to do y too
                        star(i).y = RND(SCREEN HEIGHT())
                  ENDIF
            NEXT i
      ENDIF
EndFunction



Function PositionStars()
      REPEAT
            `Set collided flag to 0
            collided = 0
            FOR a = 1 TO numstars
                  FOR b = 1 TO numstars
                        IF a <> b
                              `Check only if two coords are on the same x-line
                              IF star(a).x = star(b).x
                                    `Now check to see if their y-axis matches
                                    IF star(a).y = star(b).y
                                          `If so, set the collided flag to 1 so that process repeats
                                          collided = 1
                                          `Re-Randomize value
                                          star(a).x = RND(SCREEN WIDTH())
                                          star(a).y = RND(SCREEN HEIGHT())
                                    ENDIF
                              ENDIF
                        ENDIF
                  NEXT b
            NEXT a
      UNTIL collided = 0
EndFunction

Function Refresh()
      FOR i = 1 TO numstars
            SPRITE star(i).img, star(i).x, star(i).y, star(i).img
      NEXT i
EndFunction

#CONSTANT numstars      1000
#CONSTANT srate         60                `<--   Sync Rate

TYPE startype
   x
   y
ENDTYPE
DIM star(numstars) AS startype
DIM bg(2): FOR i = 1 TO 2: bg(i) = 99 + i: NEXT i

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32
FOR j = 1 TO 2
      PositionStars()
      INK RGB(255,255,255), RGB(0,0,0)
      FOR i = 1 TO numstars
            DOT star(i).x, star(i).y
      NEXT i
      GET IMAGE bg(j), 0, 0, SCREEN WIDTH(), SCREEN HEIGHT(), 1
      CLS
NEXT j
BACKDROP ON: COLOR BACKDROP RGB(0,0,0)
UNDIM star()
SPRITE bg(1), 0, 0, bg(1)
SPRITE bg(2), SCREEN WIDTH(), 0, bg(2)
SYNC RATE srate
DO
      `All we need
      ScrollBg()
LOOP


END


Function PositionStars()
      REPEAT
            `Set collided flag to 0
            collided = 0
            FOR a = 1 TO numstars
                  FOR b = 1 TO numstars
                        IF a <> b
                              `Check only if two coords are on the same x-line
                              IF star(a).x = star(b).x
                                    `Now check to see if their y-axis matches
                                    IF star(a).y = star(b).y
                                          `If so, set the collided flag to 1 so that process repeats
                                          collided = 1
                                          `Re-Randomize value
                                          star(a).x = RND(SCREEN WIDTH())
                                          star(a).y = RND(SCREEN HEIGHT())
                                    ENDIF
                              ENDIF
                        ENDIF
                  NEXT b
            NEXT a
      UNTIL collided = 0
EndFunction

Function ScrollBg()
      SPRITE bg(1), SPRITE X(bg(1)) - 1, 0, bg(1)
      SPRITE bg(2), SPRITE X(bg(2)) - 1, 0, bg(2)
      IF SPRITE X(bg(1)) < 0 - SCREEN WIDTH(): SPRITE bg(1), SCREEN WIDTH(), 0, bg(1): ENDIF
      IF SPRITE X(bg(2)) < 0 - SCREEN WIDTH(): SPRITE bg(2), SCREEN WIDTH(), 0, bg(2): ENDIF
EndFunction