TheGameCreators - CodeBase - Credits/scrolling text from a *.dat file

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 21st Oct 2004 19:06

Modified: 23rd Oct 2004 22:17

Author: Northern Lights

Summary

This program takes any number of variables and scrolls them for you.

Full Description

This program takes any number of variables and scrolls them for you. All you need to do is put at the top of a *.dat file the number of lines in the file and then a blank line(the number of lines includes the line itself and the blank line). Then put your variables in one line at a time. You may include blank lines but they will show up in the program. Name the file credits.dat and you're off!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on:hide mouse

`reads the number of lines and puts it into a string, which then converts***

`to an integer so we can use it in our FOR...NEXT loops.********************

open to read 1,"credits.dat"

read string 1,a$:

a#=val(a$)+1

`**********************************************************************8

`makes the main string array*******************************************

dim string$(a#)

`**********************************************************************

`reads everything into the string array********************************

for x=1 to a#

read string 1,string$(x)

next x

`**********************************************************************

ink rgb(255,255,255),RGB(rnd(200),rnd(200),rnd(200))

`main height variable

y=600

`makes the y variable decrease and clears the screen*******************

dec y,2:cls

`**********************************************************************

`this does the main printing job, it makes the first thing to be printed***

`larger than normal(so you can put in a title like CREDITS or something).**

for x=1 to a#

if x=2

set text size 42

text 200,y,string$(x)

else

set cursor 250,y+x*15

print string$(x)

endif

next x

`**************************************************************************

`this makes the text go around indefinitely, delete it if you don`t want****

`a continuous loop.  If you don't delete it, you will most likely have******

`to modify it depending on how many credits you have.***********************

if y=-1*(a#*20)

y=600

ink rgb(255,255,255),RGB(rnd(200),rnd(200),rnd(200))

endif

`***************************************************************************

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Northern Lights
CodeBase Entries:	2

CodeBase - Credits/scrolling text from a *.dat file

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments