TheGameCreators - CodeBase - Rainbow Starfield

Return to the CodeBase listing

Category: 2D Effects

Version: 1.1

Information

Uploaded: 10th Feb 2011 22:06

Modified: 9th Sep 2011 23:31

Author: Webber

Summary

A very colorful star field screen saver.

Full Description

Just having fun with the box command. The boxes start in the center, and increase in size as they move off of the screen. Very colorful rainbow like effects, could make you sick if you look at it for too long. Could be used to make all kinds of cool rainbow effects for 2D and 3D games, or just to make somebody sick. Credit to The Game Guy would be appreciated, but is not required.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Project: Rainbow Starfield

`Author: The Game Guy

Initialise_1024()

Stars = 200

MW = screen width()/2

MH = screen height()/2

MR = sqrt(MW*MW+MH*MH)

dim SA#(Stars)

dim SR#(Stars)

dim SZ#(Stars)

dim SC(Stars)

for i = 1 to Stars

SC(i) = rnd(1535)

SA#(i) = rnd(360)

SR#(i) = rnd(600)

RX# = sin(SA#(i))*SR#(i)

RY# = cos(SA#(i))*SR#(i)

SX# = MW+RX#

SY# = MH+RY#

SZ#(i) = 1

for j = 1 to 3

Box SX#,SY#,SX#+SZ#,SY#+SZ#

next j

next i

for i = 1 to Stars

if SR#(i) > MR

SA#(i) = rnd(360)

SR#(i) = rnd(MR)

SZ#(i) = .5

endif

r = 255

g = 0

b = 0

c = 0

SC(i) = SC(i) + 40

if SC(i) > 1535 then SC(i) = SC(i) - 1535

for j = 1 to SC(i)

if g = 255 and c = 0 then c = 1

if r = 0 and c = 1 then c = 2

if b = 255 and c = 2 then c = 3

if g = 0 and c = 3 then c = 4

if r = 255 and c = 4 then c = 5

if b = 0 and c = 5 then c = 0

if c = 0 then g = g + 1

if c = 1 then r = r - 1

if c = 2 then b = b + 1

if c = 3 then g = g - 1

if c = 4 then r = r + 1

if c = 5 then b = b - 1

next j

ink rgb(r,g,b),0

SZ#(i) = SZ#(i) + 0.02+SR#(i)/500+SZ#(i)/90

wavey# = .4

W = W + 1

if W = 6 then W = 0

if W = 0 then SA#(i) = SA#(i) + 1*wavey#

if W = 1 then SA#(i) = SA#(i) - 1*wavey#

if W = 2 then SA#(i) = SA#(i) + .5*wavey#

if W = 3 then SA#(i) = SA#(i) - .5*wavey#

if W = 4 then SA#(i) = SA#(i) + .25*wavey#

if W = 5 then SA#(i) = SA#(i) - .25*wavey#

SR#(i) = SR#(i) +SZ#(i)+SR#(i)/150

RX# = sin(SA#(i))*SR#(i)

RY# = cos(SA#(i))*SR#(i)

SX# = MW+RX#

SY# = MH+RY#

Box SX#,SY#,SX#+SZ#(i),SY#+SZ#(i)

next i

if JO = 0 and YO# >= 1 then JO = 1

if JO = 1 and YO# <= -1 then JO = 0

if JO = 0 then YO# = YO# + .01

if JO = 1 then YO# = YO# - .01

if inkey$() <> "" then exit

sync

cls rgb(r/20,g/20,b/20)

loop

end

Rem Sets up the higher res display settings, lighing and sync

Function Initialise_1024()

hide mouse

autocam off

sync on : sync rate 40 `set window layout 3,3,0

if check display mode(1024,768,32)=1 then set display mode 1024,768,16

if check display mode(1024,768,32)=0

while inkey$() = ""

set cursor 100,100

Print " ERROR Display Value 1024,768,32 Not Available"

Print " Press a Key to Exit"

sync

endwhile

endif

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Webber
CodeBase Entries:	14

CodeBase - Rainbow Starfield