TheGameCreators - CodeBase - Xplane starfield

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 9th Nov 2003 07:07

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Multiple parallax Xplane starfield using sprites

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Xplane Starfield using sprites

`By Jester    Contact Jester2000@btinternet.com

`tested on Amd 1.2GHz, 576Mb PC133 ram, Geforce 4 TI4200, Win XP

`Setup some variables

xsren=640                                 `Width of screen

ysren=400                                 `Height of screen

zscen=32                                  `Depth of Screen (16 or 32)

stars=500                                 `Number of stars

planes=5                                  `Number of parallax fields -1 eg 2=3 planes

`The number of planes has no real effect on FPS

dim x(stars):dim y(stars):Dim z(stars)    `setup arrays for X plane, Y plane, Z (parallax) plane

sync on:sync rate 0

set display mode xsren,ysren,zscrn

hide mouse

`Make a simple image for the stars

`remstart

dot 1,1

get image 1,0,0,2,2

cls 0

`remend

remstart

circle 10,10,10

get image 1,0,0,20,20

cls 0

remend

gosub setupstars

While mouseclick()=0

set cursor 10,10                       `Just to show the FPS

print screen fps()                     `I get 161 fps with my rig

gosub Movestars

sync

endwhile

setupstars:

for n=1 to stars                          `setup the stars with a random starting position

x(n)=rnd(xsren)                        `X positon

y(n)=rnd(ysren)                        `Y position

z(n)=rnd(planes)+1                     `Parallax position

next n

return

movestars:

for n=1 to stars

inc x(n),-z(n)                         `Move stars to the left by using there Zplane as a speed

sprite n,x(n),y(n),1

`scale sprite n,(z(n)*50)*2             `just for fun, loses 30 fps though

if x(n)<0                           `Check if star has reached the left of the screen

x(n)=xsren                          `If it has, move to far right and give a new Y and Z

y(n)=rnd(ysren)                     `position

z(n)=rnd(planes)+1

endif

next n

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	2

CodeBase - Xplane starfield