Scrolling text - GameCreators Forum

Author

Message

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 1st Apr 2009 18:49

Link

Hi guys

I have a couple of quick questions.

Can anyone suggest a way to move text from the bottom to the top of the screen, like an end of movie screen?

Also, could you move the text up and when a line reaches the middle of the screen for example, have it dissappear?

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 1st Apr 2009 19:57

Link

Something like this would scroll the text from the bottom of the screen (centered) to the middle:

+ Code Snippet

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5) ` Round it properly
middleHeight = int((sh / 2.0) + 0.5) ` "

yOffset = sh - text height("|") ` Just because that is a long character
while (yOffset <= middleHeight)
   center text middleWidth, yOffset
   dec yOffset ` Decrease by one
   sync
endwhile

` When we get here, the text has reached the middle of the screen.

Back to top

Profile PM Email Website

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 2nd Apr 2009 13:14

Link

Thanks for your help, it is greatly appreciated.

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 2nd Apr 2009 13:23

Link

No problems. Seems I made an error there though; it should be >=, not <=.

Back to top

Profile PM Email Website

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 2nd Apr 2009 13:31

Link

I couldn't get the code example to compile.

The line below gives an error stating the parameter type could not be determined:

yOffset = sh - text height("|") ` Just because that is a long character

Could you also provide some sample text so I can get a clearer idea of how this works, thanks.

Back to top

Profile PM

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 2nd Apr 2009 14:38

Link

My apologies, the error was on my behalf, copying and pasting the code into dark basic had issues with the comments.

Thanks again.

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 2nd Apr 2009 14:47

Link

Yeah, sorry, I didn't actually test that code.
This works though:

+ Code Snippet

sync on
sync rate 30

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5) ` Round it properly
middleHeight = int((sh / 2.0) + 0.5) ` "

yOffset = sh - text height("|") ` Just because that is a long character
while (yOffset >= middleHeight)
   cls
   center text middleWidth, yOffset, "Christmas is comming up..."
   center text middleWidth, yOffset + 20, "... in about eight months."
   dec yOffset ` Decrease by one
   sync
endwhile

` When we get here, the text has reached the middle of the screen.
wait key
end

Back to top

Profile PM Email Website

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 2nd Apr 2009 16:29

Link

Great, thanks that's really helped alot.

Is it posible to have one line of text dissappear when it reaches the middle, then the next line etc. Sort of like when it reaches the top of the screen.

What I'm trying to achieve is probably better to explain with a picture. Please look at the attachement.

I want the text to appear in a door way and scroll upwards, once a line of text reaches the top door frame i want to make it dissappear and so on. Is this possible?

Forgive my crude drawing skills

Attachments

Login to view attachments

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 2nd Apr 2009 17:58 Edited at: 2nd Apr 2009 17:59

Link

Of course.
I used an udt array for clarity here; hope you still get it (otherwise I'd suggest you to start reading up on that; it's quite simple and very useful):

+ Code Snippet

type lineData
   txt            as string
   yOffset        as integer
endtype

sync on
sync rate 30

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5) ` Round it properly
middleHeight = int((sh / 2.0) + 0.5) ` "

dim lines(10) as lineData
for l = 0 to 10
   lines(l).yOffset = sh - text height("|") + (20 * l)   ` Default positions
   lines(l).txt = "Line " + str$(l) ` Replace with arbitrary text
next l

continue = 1   ` Default value; must be true for the loop to actually start
while continue
   cls
   continue = 0 ` If we shall continue it will be set to true by one of the if-clauses below
   for l = 0 to 10
      if (lines(l).yOffset >= middleHeight)
         continue = 1
         center text middleWidth, lines(l).yOffset, lines(l).txt
         dec lines(l).yOffset ` Decrease by one
      endif
   next l
   sync
endwhile

` When we get here, all the text has reached the middle of the screen (and dissappeared)
wait key
end

Back to top

Profile PM Email Website

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 2nd Apr 2009 18:22

Link

Great example!

It's exactly what I was looking for, thanks.

Back to top

Profile PM

Tattered brush

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location:

Posted: 6th Apr 2009 12:55

Link

Hi again.

I was just playing around with the example and worked out how to make it loop continuously.

+ Code Snippet

sync on
sync rate 30
type lineData
   txt            as string
   yOffset        as integer
endtype
         T =timer()

sw = screen width()
sh = screen height()
middleWidth  = int((sw / 2.0) + 0.5)
middleHeight = int((sh / 2.0) + 0.5)

dim lines(10) as lineData
for l = 0 to 10
   lines(l).yOffset = sh - text height("|") + (20 * l)
   lines(l).txt = "Line " + str$(l)
next l


while upkey() = 0
   cls

   for l = 0 to 10
      if (lines(l).yOffset >= middleHeight)

         center text middleWidth, lines(l).yOffset, lines(l).txt
         dec lines(l).yOffset
         if (lines(10).yoffset < middleheight)
            for l = 0 to 10
               lines(l).yOffset = sh - text height("|") + (20 * l)
               lines(l).txt = "Line " + str$(l)
            next l
            endif
      endif
   next l
   sync
endwhile

wait key
end

How could I make it so there was a time delay of 5 seconds for example, between the repeated loops?

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Scrolling text

Attachments