Computer Science Canada :: View topic - Credits Scrolling Down

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

Author:	shakin cookie [ Sun Jan 13, 2008 12:39 pm ]
Post subject:	Credits Scrolling Down
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?

Author:	Sean [ Sun Jan 13, 2008 12:54 pm ]
Post subject:	Re: Credits Scrolling Down
If your using Draw.Text then set your x, y coordinates to variables then decrease them until the disappear.

Author:	shakin cookie [ Sun Jan 13, 2008 12:55 pm ]
Post subject:	RE:Credits Scrolling Down
oh, ya, i figured it out after i submitted. guess i should think harder. Thanks, anyways, Vilament!

Author:	Shainman [ Mon Jan 14, 2008 11:25 pm ]
Post subject:	Re: Credits Scrolling Down
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

Author:	ericfourfour [ Tue Jan 15, 2008 5:04 pm ]
Post subject:	RE:Credits Scrolling Down
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.