TheGameCreators - CodeBase - Random text screen saver

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

Information

Uploaded: 3rd May 2006 18:35

Modified: 7th Aug 2007 19:09

Author: m2zt

Summary

Prints texts in random positions

Full Description

To make it a screen saver save the program as .scr and put it in c:windowssystem32 for XP.

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: screen

Rem Created: 5/3/2006 6:19:58 PM

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

set display mode 800,600,16

`hides your mouse

hide mouse

`-----------------------

`is the mouse position of x and y

a = mousex()

b = mousey()

`-----------------------

`radomize the time for name will print in other places

randomize timer()

`position of x and y for the the name

x = 800

y = 600

`sets the timer

t= timer()

`size of font

m = 50

`checks for movement of the mouse

`if mouse movement is true then it will end

`might have to get rid of this to work

if mousex() <> a or mousey() <> b then

end

`for the big name in the middle which sets the color blue

ink RGB(68,136,176),0

`sets the size of the text.  Look at line 19 for size

set text size m

SET TEXT TO BOLDITALIC

set text font "Terminal"

`Position of the text

center text 400,300,"*M2ZT*"

`if the time is greater then 55 then it will clear the screen

if time > 55

cls

`adds two to m which makes font bigger

inc m,2

`updates the text

center text 400,300,"*M2ZT*"

endif

`clears the screen

if time > 58 then

cls

`timer

time = ((timer() - t)/1000)

if time > 2

randomize timer()

set text size 12

set text to bold

`changes color ever second and adds a new text every second

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

text rnd(x),rnd(y), "M2ZT"

if x < 440 and x > 390 then

x = x + 200

if y > 260 and y < 340 then

y = y + 200

endif

if time > 60

`restets the font so it wont get to big

m = 50

cls

`restets the timer so it goes back to 1

t= timer()

time = ((timer() - t)/1000)

endif

`checks for any key being pressed

for key = 1 to 220

if keystate(key) > 0 then

end

next key

loop

end

Download

Please login to download

Comments

No comments yet.

Author Name:	m2zt
CodeBase Entries:	1

CodeBase - Random text screen saver

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments