Spacey - GameCreators Forum

Author

Message

SLAYER2

19

Years of Service

User Offline

Joined: 1st Jun 2005

Location:

Posted: 17th Dec 2005 19:06

Link

Haow would i go about making a sort of "space" effect? (like a background)Any help apreciated

Back to top

Profile PM

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 17th Dec 2005 19:53

Link

You could texture the backdrop...
if you don't want the stars to get bigger as you get closer to them

Back to top

Profile PM Email Website

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 18th Dec 2005 01:47

Link

just try it

+ Code Snippet

sync rate 0
sync on
hide mouse

n=500
dim x(n,3)

for i=1 to n
   x(i,1)=rnd(639)+1
   x(i,2)=rnd(479)+ 1
   x(i,3)=rnd(9)+1
next i

do
   cls 0

   for i=1 to n

      x(i,1)=x(i,1)-x(i,3)

      if x(i,1)<=1
         x(i,1)=640
         x(i,2)=rnd(479)+1
      endif

      col=x(i,3)*30
      ink rgb(col,col,col),1

      dot x(i,1),x(i,2)

   next i

   sync

loop

[/center]

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 18th Dec 2005 13:49

Link

Oh! I thought he meant in a 3D game.

Back to top

Profile PM Email Website

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 18th Dec 2005 14:03

Link

Or this:

+ Code Snippet

sync on
sync rate 100

`Create stars
dim Star(150, 3)

`setup stars
for i = 1 to 150
   Star(i,1) = rnd(500)
   Star(i,2) = rnd(360)
   Star(i,3) = 1 + rnd(4)
next i

`start loop
ink rgb(255,255,255),0
do

   cls

   for s = 1 to 150

      `handle stars
      if Star(s,1) < 500
         Star(s,1) = Star(s,1) + Star(s,3)
      else
         Star(s,1) = 0
         Star(s,2) = rnd(360)
         Star(s,3) = 1 + rnd(4)
      endif

      `draw lines
      line 320+(cos(Star(s,2))*Star(s,1)),240+(sin(Star(s,2))*Star(s,1)),320+(cos(Star(s,2))*(Star(s,1)+int(Star(s,1)/20))),240+(sin(Star(s,2))*(Star(s,1)+int(Star(s,1)/20)))

   next s

   `hide white point in the center
   ink 0,0
   dot 320,240

   `reset color
   ink rgb(255,255,255),0

   sync
loop

But this doesn't really fit in a sideway space-shooter

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 18th Dec 2005 14:07

Link

Or for 3D games:

sync on
sync rate 100

`turn on backdrop and color it black(space)
backdrop on
color backdrop 0

`create a cube
make object cube 1,5

`Create stars
dim Star(150, 3)

`setup stars
for i = 1 to 150
   Star(i,1) = rnd(500)
   Star(i,2) = rnd(360)
   Star(i,3) = 1 + rnd(4)
next i

`This will cause ALL 2D Render first, so the cube will be displayed 
`before the stars
draw to back

`start loop
ink rgb(255,255,255),0

do
   for s = 1 to 150

`handle stars
      if Star(s,1) < 500
         Star(s,1) = Star(s,1) + Star(s,3)
      else
         Star(s,1) = 0
         Star(s,2) = rnd(360)
         Star(s,3) = 1 + rnd(4)
      endif

`draw lines
      line 320+(cos(Star(s,2))*Star(s,1)),240+(sin(Star(s,2))*Star(s,1)),320+(cos(Star(s,2))*(Star(s,1)+int(Star(s,1)/20))),240+(sin(Star(s,2))*(Star(s,1)+int(Star(s,1)/20)))

next s

`hide white point in the center
   ink 0,0
   dot 320,240

`reset color
   ink rgb(255,255,255),0

`yrotate object
   yrotate object 1,wrapvalue(object angle y(1)-1)

sync
loop

+ Code Snippet

sync on
sync rate 100

`turn on backdrop and color it black(space)
backdrop on
color backdrop 0

`create a cube
make object cube 1,5

`Create stars
dim Star(150, 3)

`setup stars
for i = 1 to 150
   Star(i,1) = rnd(500)
   Star(i,2) = rnd(360)
   Star(i,3) = 1 + rnd(4)
next i

`This will cause ALL 2D Render first, so the cube will be displayed 
`before the stars
draw to back

`start loop
ink rgb(255,255,255),0

do
   for s = 1 to 150

      `handle stars
      if Star(s,1) < 500
         Star(s,1) = Star(s,1) + Star(s,3)
      else
         Star(s,1) = 0
         Star(s,2) = rnd(360)
         Star(s,3) = 1 + rnd(4)
      endif

      `draw lines
      line 320+(cos(Star(s,2))*Star(s,1)),240+(sin(Star(s,2))*Star(s,1)),320+(cos(Star(s,2))*(Star(s,1)+int(Star(s,1)/20))),240+(sin(Star(s,2))*(Star(s,1)+int(Star(s,1)/20)))

   next s

   `hide white point in the center
   ink 0,0
   dot 320,240

   `reset color
   ink rgb(255,255,255),0

   `yrotate object
   yrotate object 1,wrapvalue(object angle y(1)-1)

   sync
loop

Back to top

Profile PM Email

SLAYER2

19

Years of Service

User Offline

Joined: 1st Jun 2005

Location:

Posted: 20th Dec 2005 19:17

Link

thanks for the help guys, much apreciated

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Spacey