TheGameCreators - CodeBase - Matrix Style screensaver

Category: 2D Effects

Version: 1.0

Information

Uploaded: 19th Jul 2007 07:12

Modified: 1st Jan 1970 01:00

Author: sp3ng

Summary

this code was taken from another code base entry named Binary Fall Screensaver by Luke Brown, after playing around with the values in the code, i found that changing the value of sw# from 45 to 75 gives a more matrix feel, (i dont know whether this is just my computer but i thought id share it)

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Binary Fall

Rem Created: 25/08/2006 22:42:17

Rem ***** Main Source File *****

randomize timer()

hide mouse

sync on:sync rate 0

`sw#=(screen height()/10)

sw#=75

set text font "Lucida Sans Unicode"

`set text size 17

r#=rnd(screen width())

s#=rnd(screen width())

t#=rnd(screen width())

u#=rnd(screen width())

v#=rnd(screen width())

w#=rnd(screen width())

x#=rnd(screen width())

y#=rnd(screen width())

z#=rnd(screen width())

ink rgb(0,50,0),rgb(0,0,0)

for x= 1 to sw#

a#=rnd(1)

if a#=0 then set cursor x#,(x*10):print "0"

if a#=1 then set cursor x#,(x*10):print "1"

if a#=0 then set cursor w#,(x*10):print "0"

if a#=1 then set cursor w#,(x*10):print "1"

next x

ink rgb(0,100,0),rgb(0,0,0)

for x= 1 to sw#

a#=rnd(1)

if a#=0 then set cursor z#,(x*10):print "0"

if a#=1 then set cursor z#,(x*10):print "1"

if a#=0 then set cursor v#,(x*10):print "0"

if a#=1 then set cursor v#,(x*10):print "1"

next x

ink rgb(0,75,0),rgb(0,0,0)

for x= 1 to sw#

a#=rnd(1)

if a#=0 then set cursor y#,(x*10):print "0"

if a#=1 then set cursor y#,(x*10):print "1"

if a#=0 then set cursor u#,(x*10):print "0"

if a#=1 then set cursor u#,(x*10):print "1"

next x

ink rgb(50,170,50),rgb(0,0,0)

for x= 1 to sw#

a#=rnd(1)

if a#=0 then set cursor r#,(x*10):print "0"

if a#=1 then set cursor r#,(x*10):print "1"

if a#=0 then set cursor s#,(x*10):print "0"

if a#=1 then set cursor s#,(x*10):print "1"

next x

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	sp3ng
CodeBase Entries:	2

CodeBase - Matrix Style screensaver

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments