Particles Screensaver - GameCreators Forum

Author

Message

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 26th Jan 2008 22:35 Edited at: 27th Jun 2008 02:32

Link

Here, I made this cool looking screensaver using particles

This is compressed into 7 lines whic runs superfast when you remove the sync command or put SYNC RATE 0

HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 60 : LOAD IMAGE "Spark.bmp",1 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0
t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT
IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF : IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF
IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1 : INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF
COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t
IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF : IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF
UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

+ Code Snippet

HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 60 : LOAD IMAGE "Spark.bmp",1 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0
t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT
IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF : IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF
IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1 : INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF
COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t
IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF : IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF
UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

Hope you like it... Tell me if there's something wrong with it please

Oh, and this is the code totally uncompressed, much easier to read!

Rem Created by: Sinisterstuf (sinisterstuf@yahoo.com) using Dark Basic pro and Paint Shop pro 4

Rem ***** Particle Effects Screen Saver *****

Rem Load Resources & Setup
HIDE MOUSE : BACKDROP OFF
LOAD IMAGE "Spark.bmp",1
MAKE PARTICLES 1,1,10,20
POSITION PARTICLES 1,0,0,-20
ROTATE PARTICLES 1,90,0,0
SET PARTICLE VELOCITY 1,10
SET PARTICLE GRAVITY 1,20
SET PARTICLE EMISSIONS 1,1
ROTATE CAMERA 12,0,0
t=1
colour1=255
colour2=1
colour3=1
xchange=1
xmove=1
ymove=1
xmax=15
xpos#=0
ypos#=0

Rem Main Loop
REPEAT

Rem Defines the particles' colour
IF colour1=255 AND colour2<255 AND colour3=1
   INC colour2,1
ENDIF : Rem Turns particles Yellow
IF colour1>1 AND colour2=255 AND colour3=1
   DEC colour1,1
ENDIF : Rem Turns particles Green
IF colour1=1 AND colour2=255 AND colour3<255
   INC colour3,1
ENDIF : Rem Turns particles Light Blue
IF colour1=1 AND colour2=>1 AND colour3=255
   DEC colour2,1
ENDIF : Rem Turns particles Dark Blue
IF colour1<255 AND colour2=1 AND colour3=255
   INC colour1,1
ENDIF : Rem Turns particles Pink
IF colour1=255 AND colour2=1 AND colour3>1
   DEC colour3,1
ENDIF : Rem Turns particles Red

Rem Makes the particles bounce back into the screen
IF xpos#<(-xmax) THEN xmove=1
IF xpos#>xmax THEN xmove=2
IF ypos#<(-10) THEN ymove=1
IF ypos#>10 THEN ymove=2

Rem Sets the new position for the particles
IF xmove=1 THEN INC xpos#,0.125
IF xmove=2 THEN DEC xpos#,0.125
IF ymove=1 THEN INC ypos#,0.125
IF ymove=2 THEN DEC ypos#,0.125

Rem Sets the particle colour and position
COlOR PARTICLES 1,colour1,colour2,colour3
POSITION PARTICLES 1,xpos#,ypos#,-2
POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0

Rem Clears the screen and changes the pattern
Rem This Makes the effect appear less repetitive
INC t
IF t=2000
   CLS
   IF xchange=1 AND xmax=20 THEN xchange=2
   IF xchange=2 AND xmax=10 THEN xchange=1
   IF xchange=1 AND xmax<20 THEN INC xmax
   IF xchange=2 AND xmax>10 THEN DEC xmax
   t=1
ENDIF

Rem End Condition
UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0

Rem Clearup
DELETE IMAGE 1
DELETE PARTICLES 1

+ Code Snippet

Rem Created by: Sinisterstuf (sinisterstuf@yahoo.com) using Dark Basic pro and Paint Shop pro 4

Rem ***** Particle Effects Screen Saver *****

Rem Load Resources & Setup
HIDE MOUSE : BACKDROP OFF
LOAD IMAGE "Spark.bmp",1
MAKE PARTICLES 1,1,10,20
POSITION PARTICLES 1,0,0,-20
ROTATE PARTICLES 1,90,0,0
SET PARTICLE VELOCITY 1,10
SET PARTICLE GRAVITY 1,20
SET PARTICLE EMISSIONS 1,1
ROTATE CAMERA 12,0,0
t=1
colour1=255
colour2=1
colour3=1
xchange=1
xmove=1
ymove=1
xmax=15
xpos#=0
ypos#=0

Rem Main Loop
REPEAT

Rem Defines the particles' colour
IF colour1=255 AND colour2<255 AND colour3=1
   INC colour2,1
ENDIF : Rem Turns particles Yellow
IF colour1>1 AND colour2=255 AND colour3=1
   DEC colour1,1
ENDIF : Rem Turns particles Green
IF colour1=1 AND colour2=255 AND colour3<255
   INC colour3,1
ENDIF : Rem Turns particles Light Blue
IF colour1=1 AND colour2=>1 AND colour3=255
   DEC colour2,1
ENDIF : Rem Turns particles Dark Blue
IF colour1<255 AND colour2=1 AND colour3=255
   INC colour1,1
ENDIF : Rem Turns particles Pink
IF colour1=255 AND colour2=1 AND colour3>1
   DEC colour3,1
ENDIF : Rem Turns particles Red

Rem Makes the particles bounce back into the screen
IF xpos#<(-xmax) THEN xmove=1
IF xpos#>xmax THEN xmove=2
IF ypos#<(-10) THEN ymove=1
IF ypos#>10 THEN ymove=2

Rem Sets the new position for the particles
IF xmove=1 THEN INC xpos#,0.125
IF xmove=2 THEN DEC xpos#,0.125
IF ymove=1 THEN INC ypos#,0.125
IF ymove=2 THEN DEC ypos#,0.125

Rem Sets the particle colour and position
COlOR PARTICLES 1,colour1,colour2,colour3
POSITION PARTICLES 1,xpos#,ypos#,-2
POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0

Rem Clears the screen and changes the pattern
Rem This Makes the effect appear less repetitive
INC t
IF t=2000
   CLS
   IF xchange=1 AND xmax=20 THEN xchange=2
   IF xchange=2 AND xmax=10 THEN xchange=1
   IF xchange=1 AND xmax<20 THEN INC xmax
   IF xchange=2 AND xmax>10 THEN DEC xmax
   t=1
ENDIF

Rem End Condition
UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0

Rem Clearup
DELETE IMAGE 1
DELETE PARTICLES 1

if you check the bottom of the page there is a newer version that generates it's own media, so no no need to download stuff, scroll down, check it out

When the going get stuf,
the stuf get's sinister

Attachments

Login to view attachments

Back to top

Profile PM Website

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 1st Feb 2008 12:51

Link

HELOOO! Does nobody have anything to say about my program? Does it suck THAT bad?!?

And if it does then please tell me what kind of thing I need to be trying to make that will atleast get some kind of comment albeit a negative one!

Happy, always happy!

Back to top

Profile PM Website

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 3rd Feb 2008 04:15

Link

i wold comment, but cant download.

alus.portbb.com go there.
Quote: A book. I hate books. book is stupid. I know that I need codes but I dont know the codes -zenicanin14 the 2nd stupidest user in the world

Back to top

Profile PM Email Website

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 4th Feb 2008 13:10

Link

Why not?!?

You can't download the media or what?

If that's the case then you can just make your own.
In PSP or photoshop or something I made a 64x64 black picture then I took a huge paintbrush with faded edges and put a big white circle in the middle. That's the spark for the partricles effect.
Alternatively you can copy one from the examples that come with DBpro, except those ones aren't white.

...

Also, if you want to use it as your screensaver you set the screensaize to the same as your desktop and fullscreen and choose to make exe with attached media and attach the spark.bmp and save the exe as particles.scr or whatever so long as it is *.scr not .exe then if you have windowsXP then I think you copy the "particles.scr" to "C:\WINDOWS\system32\" 'C' being your default drive. I don't think the folder where the screensavers reside is the same for every version of windows.

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 12th Feb 2008 14:41

Link

Still no comment?

Happy, always happy!

Back to top

Profile PM Website

Tri Alliance

19

Years of Service

User Offline

Joined: 2nd Mar 2005

Location:

Posted: 24th Mar 2008 19:02 Edited at: 24th Mar 2008 19:03

Link

I think it's very cool! It looks as if the particles were being painted on the screen.

But the only thing I dislike about it is that it makes a big white blob on your screen.

Maybe next time you go for the 20 line challenge, could you please try the 'Randomize' command, along with the 'RGB()' command to get like a really nice rainbow effect.

Thankyou, and I hope this helps you!

Back to top

Profile PM

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 11th May 2008 22:54

Link

@sinister stuff
It is too many work to put the spark.bmp in a folder and let DBP open it. Sorry...

You're the

'th to view this signature!

Back to top

Profile PM Email

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 13th May 2008 16:30

Link

@Tri Alliance
Thanks.

I don't know what you mean about the white blob on the screen though, I don't remember that ever happening. The idea is that it looks kind of like slowmotion action peainting... hehe.
thanks for the tips

@jeffhuys
hey, you're the guy who made that explosion thing in the challange forum!! Ok, tell you what, what if I gace you an exe? I'm not the good at programming but what if I gave an install file that you just double-click then you can use the screen saver on your computer?

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 21st May 2008 10:42

Link

I have been busy, now I'm not... Well actually I am. So, without further ado, I present to you my improved particles screensaver that DOESN'T REQUIRE ANY MEDIA DOWNLOAD!!! here is the code which I have now reduced to 5 lines:

SET DISPLAY MODE 1024,768,32 : HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 60 : CREATE BITMAP 1,16,16 : x1=7 : x2=8 : REPEAT : LINE 0,y,15,y : INC y : IF x1=0 : flag=1 : ENDIF : IF flag=0 : DEC x1 : INC x2 : ENDIF : IF flag=1 : INC x1 : DEC x2 : ENDIF : UNTIL y=15 : GET IMAGE 1,0,0,15,15 : CLS
SET CURRENT BITMAP 0 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0 : t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT : IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF
IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF : IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1
INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF : COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t : IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF
IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF : UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

+ Code Snippet

SET DISPLAY MODE 1024,768,32 : HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 60 : CREATE BITMAP 1,16,16 : x1=7 : x2=8 : REPEAT : LINE 0,y,15,y : INC y : IF x1=0 : flag=1 : ENDIF : IF flag=0 : DEC x1 : INC x2 : ENDIF : IF flag=1 : INC x1 : DEC x2 : ENDIF : UNTIL y=15 : GET IMAGE 1,0,0,15,15 : CLS
SET CURRENT BITMAP 0 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0 : t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT : IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF
IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF : IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1
INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF : COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t : IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF
IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF : UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

and if you are lazy then here is a faster version. By the way, my brother and I watched this for a long time and we never saw it repeat itself. Anyway, here is the fast version:

SET DISPLAY MODE 1024,768,32 : HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 0 : CREATE BITMAP 1,16,16 : x1=7 : x2=8 : REPEAT : LINE 0,y,15,y : INC y : IF x1=0 : flag=1 : ENDIF : IF flag=0 : DEC x1 : INC x2 : ENDIF : IF flag=1 : INC x1 : DEC x2 : ENDIF : UNTIL y=15 : GET IMAGE 1,0,0,15,15 : CLS
SET CURRENT BITMAP 0 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0 : t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT : IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF
IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF : IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1
INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF : COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t : IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF
IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF : UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

+ Code Snippet

SET DISPLAY MODE 1024,768,32 : HIDE MOUSE : BACKDROP OFF : SYNC ON : SYNC RATE 0 : CREATE BITMAP 1,16,16 : x1=7 : x2=8 : REPEAT : LINE 0,y,15,y : INC y : IF x1=0 : flag=1 : ENDIF : IF flag=0 : DEC x1 : INC x2 : ENDIF : IF flag=1 : INC x1 : DEC x2 : ENDIF : UNTIL y=15 : GET IMAGE 1,0,0,15,15 : CLS
SET CURRENT BITMAP 0 : MAKE PARTICLES 1,1,10,20 : POSITION PARTICLES 1,0,0,-20 : ROTATE PARTICLES 1,90,0,0 : SET PARTICLE VELOCITY 1,10 : SET PARTICLE GRAVITY 1,20 : SET PARTICLE EMISSIONS 1,1 : ROTATE CAMERA 12,0,0 : t=1 : colour1=255 : colour2=1 : colour3=1 : xchange=1 : xmove=1 : ymove=1 : xmax=15 : xpos#=0 : ypos#=0 : REPEAT : IF colour1=255 AND colour2<255 AND colour3=1 : INC colour2,1 : ENDIF : IF colour1>1 AND colour2=255 AND colour3=1 : DEC colour1,1 : ENDIF
IF colour1=1 AND colour2=255 AND colour3<255 : INC colour3,1 : ENDIF : IF colour1=1 AND colour2=>1 AND colour3=255 : DEC colour2,1 : ENDIF : IF colour1<255 AND colour2=1 AND colour3=255 : INC colour1,1 : ENDIF : IF colour1=255 AND colour2=1 AND colour3>1 : DEC colour3,1 : ENDIF : IF xpos#<(-xmax) : xmove=1 : ENDIF : IF xpos#>xmax : xmove=2 : ENDIF : IF ypos#<(-10) : ymove=1 : ENDIF : IF ypos#>10 : ymove=2 : ENDIF : IF xmove=1
INC xpos#,0.125 : ENDIF : IF xmove=2 : DEC xpos#,0.125 : ENDIF : IF ymove=1 : INC ypos#,0.125 : ENDIF : IF ymove=2 : DEC ypos#,0.125 : ENDIF : COlOR PARTICLES 1,colour1,colour2,colour3 : POSITION PARTICLES 1,xpos#,ypos#,-2 : POSITION PARTICLE EMISSIONS 1,xpos#,ypos#,0 : SYNC : INC t : IF t=2000 : CLS : t=1 : IF xchange=1 AND xmax=20 : xchange=2 : ENDIF : IF xchange=2 AND xmax=10 : xchange=1 : ENDIF
IF xchange=1 AND xmax<20 : INC xmax : ENDIF : IF xchange=2 AND xmax>10 : DEC xmax : ENDIF : ENDIF : UNTIL MOUSEMOVEX()=1 OR MOUSEMOVEX()=-1 OR MOUSEMOVEY()=1 OR MOUSEMOVEY()=-1 OR MOUSECLICK()>0 : DELETE IMAGE 1 : DELETE PARTICLES 1

yes, I know all I changed was the sync rate!

and if you want the uncompressed, readable code you can find it at the top of this thread. The code that I added for the media is:

+ Code Snippet

CREATE BITMAP 1,16,16
x1=7
x2=8
REPEAT
   LINE 0,y,15,y
   INC y
   IF x1=0 THEN flag=1
   IF flag=0 THEN DEC x1 : INC x2
   IF flag=1 THEN INC x1 : DEC x2
UNTIL y=15
GET IMAGE 1,0,0,15,15
CLS
SET CURRENT BITMAP 0

and there you have it! Now I realise that not many people like to comment on what they see here... For example I have over 600 views for this but I only have 1 proper comment!!! The rest is either by me or by people complaining that they don't want to download or something lame like that. Please comment becuase I want to know your opinions on this. Even if you think it's stupid, say so!

In the unlikely event that you find yourself thinking "hmm... This is a really cool screen saver, I wish I could have it on MY computer" I will attach, to this thread, an install file which I quickly created which will do just that! However, it only works for windows xp which is what I have at home and is what I assume to be pretty standard. The reason is because on other versions, the screensaver folder is located elsewhere on the harddisk. Extract the install file to your desktop and run it from there, not from the zip file. Hope you enjoy this and please... DROP ME A COMMENT!!!

Happy, always happy!

Back to top

Profile PM Website

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 28th May 2008 10:30

Link

Ok. So I now have 50 more views and NO COMMENTS.
So I'll make a game, because people seem to like games here, then maybe someone will comment.

When the going get stuf, the stuf get's sinister

Back to top

Profile PM Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 26th Jun 2008 05:46

Link

Woah this is really cool. It's great that you posted a no-media version

. You should make note of that in your first post using the EDIT POST button written under your avatar on that post... maybe you'd get more comments then?

Metal Runner
Snow Demo

Back to top

Profile PM Email

sinisterstuf

17

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 27th Jun 2008 02:29

Link

Thanks. =D And thanks for commenting.
Will do, thanks.
Unfortunately I can't upload the screensaver installer, it's really weird.

When the going get stuf,
the stuf get's sinister

Back to top

Profile PM Website

paint color

15

Years of Service

User Offline

Joined: 15th Sep 2008

Location:

Posted: 27th Sep 2008 01:49

Link

that was a pretty cool program, and sinisterstuf, ive seen some other things youve made and i must say they are pretty impressive. with your skill you should probably make a big project instead of all these cool, but small ones

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Particles Screensaver

Attachments