[DBC/DBP] A little 320x240 world of havoc

Author

Message

thenerd

15

Years of Service

User Offline

Joined: 9th Mar 2009

Location: Boston, USA

Posted: 17th Apr 2009 23:22 Edited at: 17th Apr 2009 23:23

Link

sorry, its for DBC (to late to change title!

)

+ Code Snippet

set display mode 320,240,16
sync on
sync rate 0
hide mouse

do
c=rnd(255)
ink rgb(c,c,c),0
y=rnd(240)
line 0,y,320,y
for i=1 to 500
dot rnd(320),rnd(240)
next i
ink rgb(rnd(255),rnd(255),rnd(255)),0
for i=1 to 50
dot rnd(320),rnd(240)
next i
x=rnd(320)
y=rnd(240)
ink 0,0
box x,y,x+20,y+1
sync 
loop

hi

Back to top

Profile PM Email

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 18th Apr 2009 00:01

Link

Very nice!

You're the

'th to view this signature!

Back to top

Profile PM Email

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 18th Apr 2009 01:18

Link

Nice one. Works in DBP too.

Back to top

Profile PM

Lukas W

20

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 19th Apr 2009 01:33

Link

Nice.

Add a functionality so it ends the application upon a mouse movement, rename the compiled file into .scr (not sure if you have to, though) and place it in c:\windows\system32.

Yay! I've got a new screensaver. Thanks!