Code Snippets->Space effect
P
pinkvenom Joined: 14th Jun 2003
Location:
Posted: 28th Jun 2003 16:15
This is for DBPRO and its kinda like a space effect may help someone.
P
Philip Joined: 15th Jun 2003
Location: United Kingdom
Posted: 28th Jun 2003 16:31
Yep, I'd like to use it if you don't mind. Thanks.

Phil
P
pinkvenom Joined: 14th Jun 2003
Location:
Posted: 28th Jun 2003 16:39
Thats Kool cud u just leave my rem in saying me owner or put in credits. N e way shudn't post here only for code I think
M
MrTAToad Joined: 26th Aug 2002
Location: United Kingdom
Posted: 28th Jun 2003 17:19
The following gives it a more natural feel :

+ Code Snippet
sync on
sync rate 60
hide mouse

randomize timer()
dim stars(1000,9)
for i=0 to 1000
   stars(i,0)=rnd(4000)-2000
   stars(i,1)=rnd(4000)-2000
   stars(i,2)=rnd(4000)+1000
   stars(i,7)=25+rnd(100)
next i
rem speed=25+rnd(150)
do
for i=0 to 1000
   stars(i,2)=stars(i,2)-stars(i,7):rem speed
   if stars(i,2)<=0
      stars(i,0)=rnd(4000)-2000
      stars(i,1)=rnd(4000)-2000
      stars(i,2)=rnd(4000)+1000
      stars(i,7)=25+rnd(50)
   endif
   stars(i,3)=(stars(i,0)*100)/stars(i,2)
   stars(i,4)=(stars(i,1)*100)/stars(i,2)
   stars(i,5)=(stars(i,0)*100)/stars(i,2)+(stars(i,7)*4):rem (speed*4)
   stars(i,6)=(stars(i,1)*100)/stars(i,2)+(stars(i,7)*4):rem (speed*4)
   dot 320+stars(i,3),240+stars(i,4)
next i
sync
cls
randomize timer()
loop
P
pinkvenom Joined: 14th Jun 2003
Location:
Posted: 28th Jun 2003 17:42
Well its not bad for my first attempt in the code forum I have only been learning for three weeks
M
MrTAToad Joined: 26th Aug 2002
Location: United Kingdom
Posted: 29th Jun 2003 0:10
Yes, it wasn't bad at all...
P
Philip Joined: 15th Jun 2003
Location: United Kingdom
Posted: 29th Jun 2003 13:06
Pinkvenom, I will definitely leave your Rems in and I'll also add you to the credits page. Its the least I can do.

I'll credit Nick as well as he improve it slightly.

Ta!

Phil
P
pinkvenom Joined: 14th Jun 2003
Location:
Posted: 29th Jun 2003 14:08
Kool Thanks I might alter it slightly soon
P
pinkvenom Joined: 14th Jun 2003
Location:
Posted: 29th Jun 2003 14:16
Altered version of code so they will always be in the middle of the screen regardless of the resolution
3
3dZmaster Joined: 30th Jun 2003
Location: Finland
Posted: 30th Jun 2003 17:18
Cool! This could be used as a screen saver.
M
MrTAToad Joined: 26th Aug 2002
Location: United Kingdom
Posted: 30th Jun 2003 18:07
Careful! You've got 2 for i=... lines, one without the corresponding next statement before the next for statement.