'End credits'-style Text Scroller (DBP)

Author

Message

Codelike

20

Years of Service

User Offline

Joined: 13th Dec 2005

Location: DBP - Scouseland

Posted: 21st Dec 2005 14:20

Link

Here's the scroller wot I woz planning...
EZPZ & useful for everyone's games!

+ Code Snippet

rem end-credits scroller
px=16
cls
for x=(screen height()) to (-(px*7)-px) step -1
cls
ink rgb(255,255,255),0

   CENTER TEXT (screen width()/2),x,"SIMPLE TEXT SCROLLER"
   CENTER TEXT (screen width()/2),(x+(px*1)),""
   CENTER TEXT (screen width()/2),(x+(px*2)),"starring"
   CENTER TEXT (screen width()/2),(x+(px*3)),"DARKBASIC"
   CENTER TEXT (screen width()/2),(x+(px*4)),"PRO"
   CENTER TEXT (screen width()/2),(x+(px*5)),""
   CENTER TEXT (screen width()/2),(x+(px*6)),"by"
   CENTER TEXT (screen width()/2),(x+(px*7)),"Codelike"

   wait 50
next x
wait key

I have an XP3000+, 1.5gb DDR333, a 6600GT and I'm programming 3k text-based exe's?!

Back to top

Profile PM

Codelike

20

Years of Service

User Offline

Joined: 13th Dec 2005

Location: DBP - Scouseland

Posted: 21st Dec 2005 21:07

Link

And the same thing using an array...

+ Code Snippet

rem arrayed scroller

dim text$(7)
text$(0)="SIMPLE TEXT SCROLLER"
text$(1)=""
text$(2)="starring"
text$(3)="DARKBASIC"
text$(4)="PRO"
text$(5)=""
text$(6)="by"
text$(7)="Codelike"

px=16
cls
ink rgb(255,255,255),0

for x=(screen height()) to (-(px*7)-px) step -1
cls
for t=0 to 7
CENTER TEXT (screen width()/2),(x+(px*t)),text$(t)
next t

wait 50
next x
wait key

I have an XP3000+, 1.5gb DDR333, a 6600GT and I'm programming 3k text-based exe's?!

Back to top

Profile PM

Codelike

20

Years of Service

User Offline

Joined: 13th Dec 2005

Location: DBP - Scouseland

Posted: 22nd Dec 2005 14:11

Link

Hold on a minute! I don't want to have to change loads of 7's if I wish to add another line to the array. Let's make it a little more dynamic & put the 7's all in one place.

+ Code Snippet

rem dynamically arrayed scroller

size=7
px=16

dim text$(size)
text$(0)="SIMPLE TEXT SCROLLER"
text$(1)=""
text$(2)="starring"
text$(3)="DARKBASIC"
text$(4)="PRO"
text$(5)=""
text$(6)="by"
text$(7)="Codelike"

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

for x=(screen height()) to (-(px*size)-px) step -1
cls
for t=0 to size
CENTER TEXT (screen width()/2),(x+(px*t)),text$(t)
next t

wait 50
next x
wait key

Ok. So now the array can be expanded easily & with just the 'size=' needing to be altered.

I have an XP3000+, 1.5gb DDR333, a 6600GT and I'm programming 3k text-based exe's?!

Back to top

Profile PM

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Dec 2005 14:20

Link

Why do you use the sizevar. You can use DBP command "array count()" to get the number of elements in an array.

Back to top

Profile PM Email

Codelike

20

Years of Service

User Offline

Joined: 13th Dec 2005

Location: DBP - Scouseland

Posted: 22nd Dec 2005 20:10

Link

A good point there Sven! I missed that command.

I could do the same thing with the 'px=' & change it to...
px=text height(text$(t))

I'm also going to tidy up the 'for x=' line as well.
I hope it's much easier to quickly edit the output now!

It's very interesting how these things develop & take on a life of their own. There's also the point of how several different codes can produce exactly the same thing, but can work clumsily or in a more refined manner!

+ Code Snippet

rem dynamically arrayed scroller
dim text$(7)
text$(0)="SIMPLE TEXT SCROLLER"
text$(1)=""
text$(2)="starring"
text$(3)="DARKBASIC"
text$(4)="PRO"
text$(5)=""
text$(6)="by"
text$(7)="Codelike"

size=array count(text$(0))
px=text height(text$(t))

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

for x=(screen height()) to (-px*(size+1)) step -1
cls
for t=0 to size
CENTER TEXT (screen width()/2),(x+(px*t)),text$(t)
next t

wait 50
next x
wait key

I have an XP3000+, 1.5gb DDR333, a 6600GT and I'm programming 3k text-based exe's?!

Back to top

Profile PM

Element

23

Years of Service

User Offline

Joined: 14th Dec 2002

Location: United States

Posted: 9th Feb 2006 10:06

Link

This is a great snippet.

If you have a problem with the snippet bunching up all your text into one line, I found a bug withen the code, but I have a pseudo solution for it. You'll have to put some kind of entry in the first array to prevent this from happening.

bug example: text$(0)=""

will bunch up all lines of text into just 1 line that scrolls

solution example: text$(0)=" "

just add a space or whatever you want if you don't want any text in the first array and this will fix the problem you are having.

Hope this helps a bit.

Thanks for the snippet, Codelike.

TLoK=The Legend of Kilpatrick
http://www.thelegendofkilpatrick.com
New RPG game coming to you from GP Interactive

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / 'End credits'-style Text Scroller (DBP)