TheGameCreators - CodeBase - Scrolling Text with Animation

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 11th Jan 2006 03:07

Modified: 5th Dec 2007 17:23

Author: BillR

Summary

Scrolling Text with Animation

Full Description

Scrolling Text with Animation capability You can create your own text animation routines, place them in the CASE statement area, and call them. Kind of threw this together, but I think it came out kind of cool. Hope you like it, and that it helps someone wanting this kind of code.

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: scrolling text

Rem Created: 09/01/2006 19:51:24

rem Modified by: Bill Robinson, San Francisco.

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

MAXWORDS=1000                 :`stores up to 1000 words in array, increase if needed

dim wordarray$(MAXWORDS)      :`array used for word storage

dim wordxy(MAXWORDS,5)        :`1=x, 2=y location, 3=word length, 4=animation type, 5=anim data

dim wordcolor(MAXWORDS)       :`word color

global wordptr

global spacewidth

global sw

global beginwordptr

global endwordptr

global beginx

global lastx

global arrayindex

sync on

hide mouse

sync rate 60

set text font "impact"

set text size 30

color=rgb(0,100,200)

ink color,0

data "Once upon a time,  there was a boy named Ant,  who thought "

data "he would like to try his hand at programming, the only "

data "problem was, he wasn't very good at it,  and had to keep annoying "

data "other members of the Darkbasic community,  to try and help him out "

data "with his code, but he was always extremely grateful !!!!   "

data "               Thanks guys, and a Happy New Year to everyone "

data " in the Darkbasic community !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"

rem ----- parse words into string array -----

arrayindex=0

for i=1 to 7

read s$                 :`reads in 1 data line of text

word$=""

for j=1 to len(s$)

c$=mid$(s$,j)

if c$<>" "

word$=word$+c$    :`builds a word with each character

else

if len(word$)>0

gosub _store_word

rem -------- these lines aren't needed, just here to set some special text settings for testing --------

:`animation type (set wordxy(ai,4)=  0=normal, 1=color change, 2=hopping, 3=snake

ai=arrayindex             :`just a shorter variable name for use here

if ai=3 or ai=6           :`3rd and 6th words are GREEN

wordcolor(ai)=rgb(0,255,0)

endif

if ai=13 or ai=19         :`13rd and 19th words are YELLOW

wordcolor(ai)=rgb(255,255,0)

endif

if ai=1 or ai=10          :`1st and 10th words Flashing colors

wordxy(ai,4)=1

endif

if ai=8 or ai=15          :`8th and 15th words hop

wordxy(ai,4)=2

endif

if ai=2 or ai=21          :`2nd words snake, not working yet

wordxy(ai,4)=3

endif

q=rnd(5)                   :`have random words after word 21, use random animations

if rnd(4)>1

if ai>21

wordxy(ai,4)=rnd(3)+1

endif

else

wordcolor(ai)=rgb(rnd(255),rnd(255),rnd(255))   :`or random colors, yeah I know this is too much

endif

rem ---------------------------------------------------------------------------------------------

word$=""

endif

next j

next i

if word$<>"" then gosub _store_word :`store the last word in array

numwords = arrayindex

`I wanted the last 3 words to Snake

wordxy(numwords-2,4)=3

wordxy(numwords-1,4)=3

wordxy(numwords,4)=3

gosub _init_variables

curx=beginx

while lastx<sw

_text_animation(wordptr)

`      ink wordcolor(wordptr),0

`      text lastx,430-wordxy(wordptr,2),wordarray$(wordptr)

lastx=lastx+wordxy(wordptr,3)+spacewidth

inc wordptr

endwhile

wordlen=wordxy(beginwordptr,3)

if beginx < -wordlen

beginx = beginx + wordlen + spacewidth

inc beginwordptr

if beginwordptr > endwordptr then gosub _init_variables

endif

dec beginx,2

wordptr=beginwordptr

lastx=beginx

sync

cls

loop

rem --- stores each word in string array ---

_store_word:

inc arrayindex

wordarray$(arrayindex)=word$     :`store word in array

wordxy(arrayindex,1)=0           :`x  you can set value here, or later in program

wordxy(arrayindex,2)=0           :`y

wordxy(arrayindex,3)=text width(word$)           :`length

wordxy(arrayindex,4)=0           :`animation type 0=normal, 1=color change, 2=hopping, 3=snake

wordcolor(arrayindex)=color      :`setting text color

return

`You can add any type of animation you want, just by adding another case statement

`and writing the code for the animation you want to happen

`ANIMATION TYPES

`0=normal, 1=color change, 2=hopping, 3=snake

`If you want a different color AND animation

`then set the color seperately like this: wordcolor(word number here)=rgb(0,255,255) whatever rgb color you want

function _text_animation(ptr)

animtype=wordxy(ptr,4)

select animtype

` --- color chaging word animation

case 1

zcount=wordxy(ptr,5)

rem --- every 20 times thru loop change color

if zcount>20

wordcolor(ptr)=rgb(rnd(255),rnd(255),rnd(255))

wordxy(ptr,5)=0

else

inc wordxy(ptr,5)    :`count each time thru loop

endif

ink wordcolor(wordptr),0

text lastx,430-wordxy(wordptr,2),wordarray$(wordptr)

endcase

` --- hopping word animation

case 2

zcount=wordxy(ptr,5)

if zcount>5

wordxy(ptr,5)=0

inc wordxy(ptr,2)

if wordxy(ptr,2)>10 then wordxy(ptr,2)=0

else

inc wordxy(ptr,5)    :`count each time thru loop

endif

ink wordcolor(wordptr),0

text lastx,430-wordxy(wordptr,2),wordarray$(wordptr)

endcase

` --- snaking word animation

case 3

zcount=wordxy(ptr,5)

if zcount>5

wordxy(ptr,5)=0

inc wordxy(ptr,2)

if wordxy(ptr,2)>10 then wordxy(ptr,2)=0

else

inc wordxy(ptr,5)    :`count each time thru loop

endif

savlastx=lastx

for qx=1 to len(wordarray$(wordptr))   :`Each character will be output seperately

wordcolor(wordptr)=rgb(0,255,255)

ink wordcolor(wordptr),0

c$=mid$((wordarray$(wordptr)),qx)

y=430-sin(lastx)*10                 :`*10 is for the height of the snaking wave, increase for a higher wave

text lastx,y,c$

inc lastx,text width(c$)

next qx

lastx=savlastx

endcase

case default

ink wordcolor(wordptr),0

text lastx,430-wordxy(wordptr,2),wordarray$(wordptr)

endcase

endselect

endfunction

rem --- inits variables, used each time string is restarted ---

_init_variables:

spacewidth=text width(" ")

sw=screen width()

beginwordptr=1

endwordptr=numwords

beginx=sw

lastx=beginx

return

end

Download

Please login to download

Comments

No comments yet.

Author Name:	BillR
CodeBase Entries:	1

CodeBase - Scrolling Text with Animation

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments