help with For statements

[Big_Tom]

Is it possible to make a for statment scroll the text across the screen. I know i can do it the only cath is i want it to be font.draw, rather then just normal text...ne help would be great.

[Blade]

ok. well pretty much just run a for loop from 0 to the end of the screen, being maxx..

code:

View.Set ("offscreenonly") var font : int := Font.New ("Arial:30") for i : 0 .. maxx     Font.Draw ("Hello", i, maxx div 2, font, black)     View.Update     cls end for

[Tony]

to scroll the text, you can take a picture of the screen (0,0,maxx,maxy) and move it up one line. Problem is, it will scroll only 1 way.

[Big_Tom]

I want to make the text scroll across the screen letter by letter, for example when your declare the line as a constant and then sub it in latter in the program. What i need to be able to do is make it with fon.draw so i can make the cool matrix text.

[Tony]

we have a bunch of different source codes for matrix effect...

[Mephi]

as in text delay?

code:

procedure textDelay (word : string) for i : 1 .. length(word) Font.Draw (word (i), ....) delay (30) end for end textDelay

i think this works....i dunno if this is wut u want tho..

[Big_Tom]

No that doesn't work and, it might be what i need but i dont know yet...so if it's possible can you please help me make the text scroll across the screen letter by letter IN font.draw

[Tony]

just what Mephi posted... using Font.Draw to scroll letter by letter... You can ether do it horizontaly, or vertically... just depends which value you substitute with a loop counter.

[Big_Tom]

I Still can't get it to work it's really pissing me off to no end.

[Mephi]

i hope you didnt just copy+paste the code, cuz i wuz lazy and didnt put in a lot of stuff....newayz, heres for u lazy people:

code:

var font : int := Font.New ("Arial:12:bold") procedure textDelay (word : string) for i : 1 .. length(word) Font.Draw (word (i), 1 + (15*i), 300, font, black) delay (30) end for end textDelay textDelay ("HELLO")

[Blade]

i dunno what you really want. but this may help you... you're gonna have to modify it a bit for what you want but its just scrolls one letter a time from top to bottom... i'm not doing the whole damn project for you because as most of you will agree... thats really stupid of you to ask lol

code:

View.Set ("offscreenonly") var font : int := Font.New ("Arial:20") var x : int procedure scroll (word : string (30),del:int)     for i : 1 .. length (word)         x := Rand.Int (0, maxx)         for decreasing k : maxy .. 0             Font.Draw (word (i), x, k, font, black)             View.Update             delay (del)             cls         end for     end for end scroll scroll ("hello",3)