Windows Starfield meets "The Matrix" Screensaver!!

Author

Message

Suicidal Sledder

20

Years of Service

User Offline

Joined: 17th Aug 2004

Location: Tikrit, Iraq

Posted: 26th Jun 2007 22:35

Link

Hey all!
I was changing the settings on my screen saver the other night and was watching the windows starfield screen saver and wondering how they made it (yeah yeah shut up, im just like that :-P ) and of course i had it mostly figured out after a few minutes and decided to whip up my own... took like idk 10-15 minuts and i was quite proud of myself

But then im like, hmm white dots... kind of boring, right? So i started using letters and numbers, and then im like, This needs some color! So i started using the green and then i had the brilliant idea of using different shades of green to give it more of a third dimention. Of course i started using the wierd symbols (the entire ASCII alphabet actually) and i ended up with what looks a bit like the matrix mixed with windows stars! i think its pretty neat and it only took me about an hour. theres no media so ill just give u the code so you can c/p it. If you want to use it as an actual screen saver but dont know how let me know and ill set u up

randomize timer()
set display mode 1024,768,32 : hide mouse
sync on : sync rate 200

starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   starx#(i) = (screen width()/2)`+rnd(100)-50
   stary#(i) = (screen height()/2)`+rnd(100)-50
   starangle(i) = rnd(359)
   starvalue(i) = rnd(26)+97
   starcolor(i) = rnd(100)+155
next i

for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
cls
`if scancode() <> 0 then end
`if mousemovey() <> 0 then end
`if mousemovex() <> 0 then end
angle = wrapvalue(angle+1)
ink rgb(0,200,0),0
for b = 1 to starnum
   starx#(b) = starx#(b)+sin(starangle(b))*speed
   stary#(b) = stary#(b)-cos(starangle(b))*speed
   if starx#(b) < 0 OR starx#(b) > 1024 OR stary#(b) < 0 OR stary#(b) > 768
      starx#(b) = (screen width()/2)`+rnd(100)-50
      stary#(b) = (screen height()/2)`+rnd(100)-50
      starangle(b) = rnd(359)
      starvalue(b) = rnd(26)+96
      `starvalue(b) = rnd(counter) `rnd(255)
      starcolor(b) = rnd(200)+55
   endif
   ink rgb(0,starcolor(b),0),0
   text starx#(b),stary#(b),chr$(starvalue(b))
next b
sync
loop

+ Code Snippet

randomize timer()
set display mode 1024,768,32 : hide mouse
sync on : sync rate 200


starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   starx#(i) = (screen width()/2)`+rnd(100)-50
   stary#(i) = (screen height()/2)`+rnd(100)-50
   starangle(i) = rnd(359)
   starvalue(i) = rnd(26)+97
   starcolor(i) = rnd(100)+155
next i

for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
cls
`if scancode() <> 0 then end
`if mousemovey() <> 0 then end
`if mousemovex() <> 0 then end
angle = wrapvalue(angle+1)
ink rgb(0,200,0),0
for b = 1 to starnum
   starx#(b) = starx#(b)+sin(starangle(b))*speed
   stary#(b) = stary#(b)-cos(starangle(b))*speed
   if starx#(b) < 0 OR starx#(b) > 1024 OR stary#(b) < 0 OR stary#(b) > 768
      starx#(b) = (screen width()/2)`+rnd(100)-50
      stary#(b) = (screen height()/2)`+rnd(100)-50
      starangle(b) = rnd(359)
      starvalue(b) = rnd(26)+96
      `starvalue(b) = rnd(counter) `rnd(255)
      starcolor(b) = rnd(200)+55
   endif
   ink rgb(0,starcolor(b),0),0
   text starx#(b),stary#(b),chr$(starvalue(b))
next b
sync
loop

so what ya think??

--STAR RUNNER-- Full game, arcade clone, nice graphics and music, small download!!

Back to top

Profile PM Email

PEH

18

Years of Service

User Offline

Joined: 18th Dec 2005

Location: usa

Posted: 27th Jun 2007 07:25

Link

Not bad but I think they need to speed up as they get closer to the screen.

Back to top

Profile PM

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 27th Jun 2007 12:33

Link

Edited the code a bit.. btw, I think you should rather use user defined types than multiple arrays.

randomize timer()
set display mode 1024,768,32 : hide mouse
sync on : sync rate 200

starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   starx#(i) = (screen width()/2)`+rnd(100)-50
   stary#(i) = (screen height()/2)`+rnd(100)-50
   starangle(i) = rnd(359)
   starvalue(i) = rnd(26)+97
   starcolor(i) = rnd(100)+155
next i

for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
cls
`if scancode() <> 0 then end
`if mousemovey() <> 0 then end
`if mousemovex() <> 0 then end
angle = wrapvalue(angle+1)
ink rgb(0,200,0),0
for b = 1 to starnum
   Dis = sqrt((starx#(b)-512)^2+(stary#(b)-384)^2)
   starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
   stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
   if starx#(b) < 0 OR starx#(b) > 1024 OR stary#(b) < 0 OR stary#(b) > 768
      repeat
         starx#(b) = (screen width()/2)+rnd(10)-5
         stary#(b) = (screen height()/2)+rnd(10)-5
      until starx#(b)<>512 or stary#(b)<>384
      starangle(b) = rnd(359)
      starvalue(b) = rnd(26)+96
      `starvalue(b) = rnd(counter) `rnd(255)
      starcolor(b) = rnd(200)+55
   endif
   ink rgb(0,starcolor(b),0),0
   text starx#(b),stary#(b),chr$(starvalue(b))
next b
sync
loop

+ Code Snippet

randomize timer()
set display mode 1024,768,32 : hide mouse
sync on : sync rate 200


starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   starx#(i) = (screen width()/2)`+rnd(100)-50
   stary#(i) = (screen height()/2)`+rnd(100)-50
   starangle(i) = rnd(359)
   starvalue(i) = rnd(26)+97
   starcolor(i) = rnd(100)+155
next i

for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
cls
`if scancode() <> 0 then end
`if mousemovey() <> 0 then end
`if mousemovex() <> 0 then end
angle = wrapvalue(angle+1)
ink rgb(0,200,0),0
for b = 1 to starnum
   Dis = sqrt((starx#(b)-512)^2+(stary#(b)-384)^2)
   starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
   stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
   if starx#(b) < 0 OR starx#(b) > 1024 OR stary#(b) < 0 OR stary#(b) > 768
      repeat
         starx#(b) = (screen width()/2)+rnd(10)-5
         stary#(b) = (screen height()/2)+rnd(10)-5
      until starx#(b)<>512 or stary#(b)<>384
      starangle(b) = rnd(359)
      starvalue(b) = rnd(26)+96
      `starvalue(b) = rnd(counter) `rnd(255)
      starcolor(b) = rnd(200)+55
   endif
   ink rgb(0,starcolor(b),0),0
   text starx#(b),stary#(b),chr$(starvalue(b))
next b
sync
loop

The characters get faster now, depending on their distance to the screen-center. To make it better you should make a sprite for every character, which becomes bigger while "flying" to the screen-border, that would be a good 3D-Effect...

Visit the DBPro - Speed up your game-Thread. http://forum.thegamecreators.com/?m=forum_view&t=88661&b=1

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th Jul 2007 23:20 Edited at: 13th Jul 2007 23:21

Link

Sprites are good - if you draw your letters in a pure white or pure green then GET IMAGE, you can adjust the level of green by using SET SPRITE DIFFUSE.

Another edit of the code - cleaned up a little, and now using sprites covering all characters that are displayable (unfortunate that a large proportion seem to be squares

) :

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768

sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
   if text width(chr$(i)) > 0
      cls
      text 0, 0, chr$(i)
      get image i, 0, 0, text width(chr$(i)), text height(chr$(i))
      LastValidImage = i
   endif
next

` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
   cls

for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
      endif

` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
   next b
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

` Travelling angle
   starangle(b) = rnd(359)

` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

+ Code Snippet

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768

sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
   if text width(chr$(i)) > 0
      cls
      text 0, 0, chr$(i)
      get image i, 0, 0, text width(chr$(i)), text height(chr$(i))
      LastValidImage = i
   endif
next

` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
   cls

   for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
      endif

      ` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
   next b
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

   ` Travelling angle
   starangle(b) = rnd(359)

   ` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

   ` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

[EDIT]Do you want this moved to code snippets, or left here?

For free Plug-ins and source code
http://www.matrix1.demon.co.uk
New Utility plugins collection

Back to top

Profile PM Email Website

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 13th Jul 2007 23:58

Link

Changed it a bit again, size is now also calculated.

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768

sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
   if text width(chr$(i)) > 0
      cls
      text 0, 0, chr$(i)
      get image i, 0, 0, text width(chr$(i)), text height(chr$(i))
      LastValidImage = i
   endif
next

` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
   cls

for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
         Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2) `<- Distance is needed later, so the value has to be updated
      endif

` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
      `change sprite size
      s# = sqrt(Dis)+1
      size sprite b, s#,s#
   next b
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

` Travelling angle
   starangle(b) = rnd(359)

` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

+ Code Snippet

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768

sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
   if text width(chr$(i)) > 0
      cls
      text 0, 0, chr$(i)
      get image i, 0, 0, text width(chr$(i)), text height(chr$(i))
      LastValidImage = i
   endif
next

` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

do
   cls

   for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
         Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2) `<- Distance is needed later, so the value has to be updated
      endif

      ` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
      `change sprite size
      s# = sqrt(Dis)+1
      size sprite b, s#,s#
   next b
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

   ` Travelling angle
   starangle(b) = rnd(359)

   ` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

   ` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

Visit the DBPro - Speed up your game-Thread. http://forum.thegamecreators.com/?m=forum_view&t=88661&b=1

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 18th Jul 2007 11:07

Link

Here's my variation on it.

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768
sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
	tw=text width(chr$(i))
   if tw > 0
		th=text height(chr$(i))
		box 0,0,tw,th,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
      text 0, 0, chr$(i)
      get image i, 0, 0, tw, th
      LastValidImage = i
   endif
next
cls
` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

`Create slightly transparent black box
make memblock 1,140
write memblock dword 1,0,1
write memblock dword 1,4,1
write memblock dword 1,8,32
write memblock dword 1,12,rgb(0,0,0)
write memblock byte 1,15,10
make image from memblock LastValidImage+1,1
delete memblock 1
sprite starnum+1,0,0,LastValidImage+1
set sprite starnum+1,0,1
size sprite starnum+1,SCREENWIDTH,SCREENHEIGHT

do

for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
         Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2) `<- Distance is needed later, so the value has to be updated
      endif

` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
      `change sprite size
      s# = sqrt(Dis)+1
      size sprite b, s#,s#
   next b
   
   paste sprite starnum+1,0,0
   
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

` Travelling angle
   starangle(b) = rnd(359)

` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

+ Code Snippet

#constant SCREENWIDTH   1024
#constant SCREENHEIGHT   768
sync on
sync rate 0
sync sleep 1
hide mouse
randomize timer()
set display mode SCREENWIDTH, SCREENHEIGHT, 32

` Generate images for each character that actually displays something (ish)
for i = 1 to 255
	tw=text width(chr$(i))
   if tw > 0
		th=text height(chr$(i))
		box 0,0,tw,th,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
      text 0, 0, chr$(i)
      get image i, 0, 0, tw, th
      LastValidImage = i
   endif
next
cls
` Disable backsave
sprite 1, 0, 0, LastValidImage
set sprite 1, 0, 1

` Generate initial stars
starnum = 300
speed = 1
dim starx#(starnum)
dim stary#(starnum)
dim starangle(starnum)
dim starvalue(starnum)
dim starcolor(starnum)

for i = 1 to starnum
   GenerateStar(i)
next i

` Spread the stars out a little
for f = 1 to starnum
   starx#(f) = starx#(f)+sin(starangle(f))*f*2
   stary#(f) = stary#(f)-cos(starangle(f))*f*2
next f

`Create slightly transparent black box
make memblock 1,140
write memblock dword 1,0,1
write memblock dword 1,4,1
write memblock dword 1,8,32
write memblock dword 1,12,rgb(0,0,0)
write memblock byte 1,15,10
make image from memblock LastValidImage+1,1
delete memblock 1
sprite starnum+1,0,0,LastValidImage+1
set sprite starnum+1,0,1
size sprite starnum+1,SCREENWIDTH,SCREENHEIGHT

do

   for b = 1 to starnum
      Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2)
      starx#(b) = starx#(b)+sin(starangle(b))*speed*Dis/100.0
      stary#(b) = stary#(b)-cos(starangle(b))*speed*Dis/100.0
      if starx#(b) < 0 OR starx#(b) > screen width() OR stary#(b) < 0 OR stary#(b) > screen height()
         GenerateStar(b)
         Dis = sqrt((starx#(b)-(SCREENWIDTH/2.0))^2+(stary#(b)-(SCREENHEIGHT/2.0))^2) `<- Distance is needed later, so the value has to be updated
      endif

      ` Draw the text as a sprite
      sprite b, starx#(b),stary#(b),starvalue(b)
      ` Adjust the colour from pure white to a shade of green
      set sprite diffuse b, 0, starcolor(b), 0
      `change sprite size
      s# = sqrt(Dis)+1
      size sprite b, s#,s#
   next b
   
   paste sprite starnum+1,0,0
   
   sync
loop

function GenerateStar(b)
   ` Generate a position slightly off-centre
   repeat
      starx#(b) = (screen width()/2)+rnd(10)-5
      stary#(b) = (screen height()/2)+rnd(10)-5
   until starx#(b)<>(SCREENWIDTH/2.0) or stary#(b)<>(SCREENHEIGHT/2.0)

   ` Travelling angle
   starangle(b) = rnd(359)

   ` Pick an image that actually exists
   repeat
      starvalue(b) = rnd(255)+1
   until image exist( starvalue(b) ) = 1

   ` Shade of green
   starcolor(b) = rnd(200)+55
endfunction

[center]Insanity is just a state of mind.

Back to top

Profile PM Website

Sorry your browser is not supported!

Program Announcements / Windows Starfield meets "The Matrix" Screensaver!!

Sorry your browser is not supported!

Program Announcements / Windows Starfield meets &quot;The Matrix&quot; Screensaver!!

Program Announcements / Windows Starfield meets "The Matrix" Screensaver!!