Simple animated text for intros!

[MysticVegeta]

code:

setscreen ("offscreenonly") var font : int font := Font.New ("arial:20") loop     for x : 1 .. 510         colorback (x div 3)         cls         Font.Draw ("WOAH!! LOOK AT THIS COOL TEXT!!", x, 500 - (x + 50), font, x div 2)         Font.Draw ("WOAH!! LOOK AT THIS COOL TEXT!!", 510 - (x + 500), 500 - (x - 255), font, x div 2)         Font.Draw ("WOAH!! LOOK AT THIS COOL TEXT!!", x, 50 + (x + 50), font, x div 2)         Font.Draw ("WOAH!! LOOK AT THIS COOL TEXT!!", 50, 500 - (x + 50), font, x div 2)         delay (10)         View.Update     end for end loop

Comment: I got bored... So i decided to mess with the fonts xD

[Flikerator]

That is....something I guess. Why do people post all those crazy changing backgrounds? I never saw the glory in them really, just hurting of the eye.

[jamonathin]

you should have the text bounce off the walls, it'd make it a bit better.

[ssr]

lol yep we can c that u were bored
now here is teh hard part
make a game with this effect
I meant use it as a intro for teh game and post it
that would be cool 8)

[recyclebin123]

umm i wanna use somethin like that for a program but i dun no how to end it

[jamonathin]

it's called ..

code:

exit when hasch

easy and works

[Naveg]

thats cool, just make it bounce off the walls and a bit less flashy and you have an awesome intro...maybe set it to some crazy music too