TheGameCreators - CodeBase - Falling Text Like Matrix Movies

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 28th Aug 2007 10:01

Modified: 1st Jan 1970 01:00

Author: Angry kreyon

Summary

a simple screen saver with the effect of text falling like the Matrix Movies

Full Description

Wow! Falling Text as seen in the Matrix Movies! this code will take random charactors from the windows system and stream them down screen like in the movies and then as it loops throough will start to fade and blur the last sets of lines to give a 3-D effect! this is a nice screen saver!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem *******************************

rem * Created by Jon Ericson      *

rem *  AKA the Angry Kreyon       *

rem *******************************

rem *     August 27,2007          *

rem *******************************

sync on : sync rate 0

hide mouse : sH=screen height() : sW=screen width() : set cursor sW /2,sH /2

set text font "symbol" : set text to bold : set text size 18

dim x(20)

dim y(20)

for i = 1 to 20

y(i) = 0

x(i) = rnd(screen width())

next i

randomize 255

drop(rnd(2),800/rnd(66))

loop

function drop(H,W)

ink rgb(0,255,0),rgb(0,0,0)

`center text sW /2,10,"unlock code Set." : sync

x(i) = rnd(screen width() )

for i = 1 to 20

for c = 1 to 35

ink rgb(0,255-(c*5),0),rgb(0,0,0)

center text x(i),y(i),chr$(192+rnd(61)):sync

center text x(i),y(i),chr$(rnd(255)):sync

center text x(i)*0.2,y(i),chr$(192+rnd(21)):sync

center text x(i)*0.6,y(i),chr$(rnd(61)):sync

center text x(i)/0.2,y(i),chr$(rnd(200)):sync

center text x(i)/0.6,y(i),chr$(192+rnd(161)):sync

if y(i) > screen height()

x(i) = rnd(screen width() )

y(i) = 0 - rnd(screen height() )

else

`x(i) = rnd(screen width() )

y(i) = y(i) + 18

endif

if scancode() = 25

`cls

drop(1,rnd(W))

endif

if scancode()=1 then exit

next c

fade bitmap 0,98

`flip bitmap 0

`mirror bitmap 0

next i

flip bitmap 0

mirror bitmap 0

`blur bitmap 0,3

ink rgb(0,255,0),rgb(0,0,0)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Angry kreyon
CodeBase Entries:	2

CodeBase - Falling Text Like Matrix Movies

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments