TheGameCreators - CodeBase - Credits Scrolling

Category: Text

Version: 1.0

Information

Uploaded: 15th Apr 2004 10:51

Modified: 1st Jan 1970 01:00

Author: DARKGuy

Summary

This is a credits scroller for DBC with text fading at the botton and top of the screen and smooth movement :) It also includes instructions on how to implement it in your own code :). If you're gonna use it in your games I ask that you please put my name in your credits :)

Full Description

This is a credits scroller for DBC with text fading at the botton and top of the screen and smooth movement :)<br /> <br /> It also includes instructions on how to implement it in your own code :).<br /> <br /> If you're gonna use it in your games I ask that you please put my name in your credits :)

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Credits scroller

`by DARKGuy

`With this you can do scrolling credits like DarkForge did but in a more simple and

`fast way.

`I don't mean to offend DarkForge, I'm just showing him a better way to do it, also,

`the ispiration for doing this snippet was his code :).

`Also, the lines:

`for index = 0 to 99

`  read tmp$

`  CreditsData$(index) = tmp$

`next index

`Were taken from the QuickSort function from Mighty Atom Software. Without that code,

`I wouldn't have learned to use DATA to read credits data. Credits go to him too :)

` I hope you can learned a lot with my code snippet :).

`Just be sure to put my name in your credits :) (98% of the code is mine).

`This is my first contribution to the codebase and isn't any bad, right?

`See you in the forums! ;)

`-DARKGuy

`=======================================================================================

`INSTRUCTIONS FOR USING IT IN YOUR OWN CODE

`=======================================================================================

` STEP 1: You MUST have the 2 arrays here in your code.

` dim CreditsData$(99)

` dim TY(99)

` STEP 2: You MUST HAVE the Setup_Credits subroutine and call it from somewhere

`         before your main loop.

` STEP 3: You MUST have the variable CreditsSpeed and set it BEFORE YOU RUN THE CREDITS.

` STEP 4: You MUST HAVE the Handle_Credits subroutine and call it in a loop where the

`         credits are being shown.

` SPET 5: Be sure to DO NOT USE the "a", "col" and "CreditsSpeed" variables in any other

`         place except for functions

`=======================================================================================

`We set up the auto camera, the random seed and the sync rate. If you have a fast PC,

`I advise that you put the sync rate in 30 so the text won't be scrolling too fast :).

randomize timer()

autocam off

sync on : sync rate 0

`up to 100 lines (or more if you want! :) )

dim CreditsData$(99)

`TY = Text Y

dim TY(99)

gosub Setup_Credits

gosub Setup_Background

`for the lighting effects

color backdrop 0

`we'll just print the FPS

set cursor 0,0

print screen fps()," FPS"

`we'll move the background objects :)

turn object right 1,2

pitch object down 1,1

turn object right 2,1

pitch object down 2,2

turn object right 3,2

pitch object down 3,2

gosub Handle_Credits

sync

loop

Handle_Credits:

`In this subroutine we'll fade the text near the top and the bottom of the screen to

`make a smooth aparition of the texts, and decrement their Y using CreditsSpeed.

`for every line of text...

for a=0 to 99

`...If isn't an empty line or just a return carriage...

if CreditsData$(a)<>"" and CreditsData$(a)<>" "

`...If isn't out of the top of the screen...

if TY(a)>-300

`we'll increment the Y position of the text using TY for separate Y locatios

TY(a)=TY(a)-CreditsSpeed

`white text at start

ink rgb(255,255,255),0

`if it's near the top (yeah..it's strange, but 0 isn't the real 0 in screen...)

if TY(a)>0

`If it's in the screen and isn't off the bottom of the screen...

if TY(a)<screen height() and TY(a)>screen height()-(text height("A")+(text height("A")/10))

`This is a strange formule, made by trial an error. it makes the color from 0 to 255

`depending on the Y location...

col=0-(abs(TY(a))*2.55)*2.55

`we just set the text color

ink rgb(col,col,col),0

endif

`if isn't near the top and it's near the bottom of the screen...

else

`another strange formule. This does the same as the last one, but it does it

`inverse, so from 255 to 0 depending on the Y location...

col=255-(abs(TY(a))*2.55)*2.55

`set the text color...

ink rgb(col,col,col),0

endif

`center text   X middle of the screen, the Y of the text, and the text...

center text screen width()/2,TY(a),CreditsData$(a)

endif

next a

return

___Credits:

`Here are the credits

data " "

data "DARKGuy"

data "Presents"

data " "

data "A DarkBASIC production"

data " "

data "Starring"

data "DARKGuy"

data " "

data "DARKBASIC CREDITS SCROLLING"

data " "

data "With this you can do scrolling"

data "credits like DarkForge did but"

data "in a more simple and fast way."

data " "

data "Just take a look at your FPS ;)"

data " "

data "I don't mean to offend DarkForge,"

data "I'm just showing him a better way"

data "to do it, also, the ispiration for"

data "doing this snippet was his code :)."

data " "

data "Also, the lines:"

data " "

data "for index = 0 to 99                "

data "   read tmp$                       "

data "         CreditsData$(index) = tmp$      "

data "next index                             "

data " "

data "Were taken from the QuickSort function"

data "from Mighty Atom Software. Without"

data "that code, I wouldn't have learned to"

data "use DATA to read credits data."

data " "

data "Credits go to him too :)"

data " "

data "I hope you've learned a lot with my"

data "code snippet :)."

data " "

data "This is my first contribution to the"

data "codebase and isn't any bad, right?"

data " "

data "Just be sure to put my name in your"

data "credits :) (98% of the code is mine)"

data " "

data "See you in the forums! ;)"

data " "

data "THE END"

`it's for restoring data so it doesn't need a RETURN

Setup_Credits:

`we'll set up the font and load the credits into the array

`no matter what resolution you have, it will appear the same size :)

set text size screen width()/15

set text font "Arial Black"

for t=0 to 99

`here we'll separate the lines vertically, so they don't appear all grouped up in

`a single line.

TY(t)=screen height()+((text height("A")*2.5)*t)

next t

`read data from here

restore ___Credits

`we load the data into the array

for index = 0 to 99

read tmp$

CreditsData$(index) = tmp$

next index

`in pixels

CreditsSpeed=1

return

Setup_Background:

`I'm sure you can understand all this...

make object cone 1,0.5

position camera object position x(1),object position y(1),object position z(1)-2

make object cube 2,0.5

make object sphere 3,0.5

position object 1,0,-0.5,0

position object 2,-0.8,0.5,0

position object 3,0.8,0.5,0

make light 1

make light 2

make light 3

position light 1,-2,-2,-2

position light 2,2,-2,-2

position light 3,0,2,-2

set light range 1,100

set light range 2,100

set light range 3,100

color light 0,rgb(0,0,0)

color light 1,rgb(255,0,0)

color light 2,rgb(0,255,0)

color light 3,rgb(0,0,255)

color ambient light rgb(0,0,0)

return

Download

Please login to download

Comments

No comments yet.

Author Name:	DARKGuy
CodeBase Entries:	3

CodeBase - Credits Scrolling

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments