Credits Scrolling Down

[shakin cookie]

alright, i am almost finished my ISP, and for my good bye i would like to have credits that scroll down...

i cannot figure out how to do this, as i have about ten words, not just one.

is there a tutorial for this?

or, can someone suggest how this can be done?

[Sean]

If your using Draw.Text then set your x, y coordinates to variables then decrease them until the disappear.

[shakin cookie]

oh, ya, i figured it out after i submitted.

guess i should think harder.

Thanks, anyways, Vilament!

[shakin cookie]

oh, and i have music playing in the credits, and i want the credits to roll off the screen, then a line asking the user to press any key, then the music stops. i can't figure it out...

Turing:

setscreen ("offscreenonly") %Program Title proc title     cls     locate (1, 20)     var font : int     font := Font.New ("neurochrome:25")     Draw.Text ("PIMP MY RIDE", 110, 370, font, green) end title %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %User Inputs, Buttons and direct procs(displays) process music2     Music.PlayFile ("Oasis-Wonderwall.mp3") end music2 proc goodBye     title     fork music2     drawfill (0, 399, yellow, yellow)     var font : int := Font.New ("jokewood:25")     for x : 0 .. 1000         Draw.Text ("PROGRAMMER - AKIVA REIKEN", 50, x, font, blue)         Draw.Text ("PROGRAMMER - AKIVA REIKEN", 50, x - 2, font, yellow)         delay (50)         Draw.Text ("CONCEPT - AKIVA REIKEN", 50, x - 100, font, blue)         Draw.Text ("CONCEPT - AKIVA REIKEN", 50, x - 102, font, yellow)         Draw.Text ("PROGRAM DESIGN - AKIVA REIKEN", 10, x - 200, font, blue)         Draw.Text ("PROGRAM DESIGN - AKIVA REIKEN", 10, x - 202, font, yellow)         Draw.Text ("JUST ABOUT EVERYTHING ELSE:", 30, x - 300, font, blue)         Draw.Text ("JUST ABOUT EVERYTHING ELSE:", 30, x - 302, font, yellow)         Draw.Text ("AKIVA REIKEN", 60, x - 350, font, blue)         Draw.Text ("AKIVA REIKEN", 60, x - 352, font, yellow)         View.Update     end for     loop         put "Press Any Key To Continue: " ..         exit when hasch     end loop     delay (1000)     var button : int := GUI.CreateButton (200, 300, 0, "Main Menu", mainMenu)     loop         exit when GUI.ProcessEvent     end loop end goodBye goodBye

[Shainman]

Akiva its Ariel, what you can do is put Music.PlayFileStop where you want your music to stop, that way it finishes thats what i did

[ericfourfour]

Another idea. If you have all lines go one after the other, you can make a procedure that takes a string and scrolls it down the screen in a specified colour. Then call that procedure for every line. To improve it further, you can make it read the credits from a text file.

Also, if you use that "press any key to continue" loop often, you can make it a procedure so it only takes up one line instead of four.

Instead of making a separate process for your music, you should use Music.PlayFileReturn("music file name") and Music.PlayFileStop to stop it.

Make sure you call Font.Free when you are done with a font, otherwise your program will have memory leaks.