TheGameCreators - CodeBase - Binary Fall Screensaver

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

Information

Uploaded: 26th May 2007 05:41

Modified: 1st Jan 1970 01:00

Author: Turtle Soup

Summary

Matrix-esque style screensaver. no media. very simply

Full Description

In the darkbasic pro editor, change "EXE filename" setting from ".exe" file tag to ".scr" and run to allow for screensaver option<br /> Change the colours, text style, size and characters to fit what you want<br /> just makes a pretty screen saver i think<br /> <br /> p.s, it scrolls down because it occationally reaches the bottom line and moves all characters up, gives a nice effect, if yours doesnt reach the bottom, change the "sw#" to a larger/smaller value

DarkBASIC Professional Source Code

` 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#=46

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:	Turtle Soup
CodeBase Entries:	3

CodeBase - Binary Fall Screensaver

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments