TheGameCreators - CodeBase - Text screensaver

Category: Text

Version: 1.1

Information

Uploaded: 21st Dec 2006 18:09

Modified: 1st Jan 1970 01:00

Author: Charlie

Summary

Simple color text screensaver using DIM arrays to show random text in the screen. It clears after 120 counts, and starts again.

Full Description

A simple color text screensaver with the use of DIM arrays in which you store different text and then select a random of it to display at screen, wait 120 miliseconds and show another random text again. Also it randomly chooses a color each turn to have different color text. It clears using CLS every 120 counts, and starts again until reaching the 120 counts, and starting over again. You can try modifying the text to learn if you are a beginner.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Simple color screensaver

rem Basic setting and array start

AUTOCAM OFF

HIDE MOUSE

POSITION CAMERA X,Y,Z

COUNTER AS INTEGER

DIM RNTEXT$(10)

RNTEXT$(1)="A W-GAMES PROGRAM"

RNTEXT$(2)="CREATED BY CARLOS CW"

RNTEXT$(3)="THE GAME CREATORS"

RNTEXT$(4)="DARKBASIC PRO"

RNTEXT$(5)="PROGRAMMING LANGUAGE"

RNTEXT$(6)="THE DESTINED ONE"

RNTEXT$(7)="PEACE, LOVE, AND HOPE"

RNTEXT$(8)="DARKNESS IS DEFEATED WITH FAITH"

RNTEXT$(9)="MICROSOFT WINDOWS"

RNTEXT$(10)="ADD MORE TEXT IF YOU WISH"

rem Main screensaver loop

WAIT 100

SET CURSOR RND(640),RND(480)

IF COUNTER>=120

CLS

COUNTER=0

ENDIF

SET TEXT SIZE 20

SET TEXT TO BOLDITALIC

SET TEXT TRANSPARENT

INK RGB(RND(255),RND(255),RND(255)),0

PRINT RNTEXT$(RND(10))

COUNTER=COUNTER+1

LOOP

REMSTART

Now try adding your own text and changing the dimension of the DIM array to store

more or less text pieces. Also, try now making the screensaver to show at random chances

a bold or italic text, or make it randomly change its size each turn. Remember that if you

change the RNTEXT$ dimension, also change it in the PRINT command at the main screensaver

loop. I can help you with the random text size:

SET TEXT SIZE RND(50)

You can change the random value to your choice. Now try with the bold and italic text form.

CodeBase - Text screensaver

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Charlie
CodeBase Entries:	5