-----------------------------------

@DRI@N

Tue May 25, 2004 5:26 pm


Movie Delay Effect

-----------------------------------

This is very basic..but will give you the general idea. Then you can add it in loops or let the user type the location.

colorback(black)
for row:1..25
    for col:1..80
    put" "..
    end for
end for

color(white)


locate(22,30)
delay(100)
put"A"
locate(22,31)
delay(100)
put"C"
locate(22,32)
delay(100)
put"A"
locate(22,33)
delay(100)
put"P"
locate(22,34)
delay(100)
put"U"
locate(22,35)
delay(100)
put"L"
locate(22,36)
delay(100)
put"C"
locate(22,37)
delay(100)
put"O"
locate(22,38)
delay(100)
put","
locate(22,39)
delay(100)
put"M"
locate(22,40)
delay(100)
put"E"
locate(22,41)
delay(100)
put"X"
locate(22,42)
delay(100)
put"I"
locate(22,43)
delay(100)
put"C"
locate(22,44)
delay(100)
put"O"



-----------------------------------

guruguru

Tue May 25, 2004 6:06 pm



-----------------------------------

Source code. #4  :P


-----------------------------------

Paul

Tue May 25, 2004 6:08 pm



-----------------------------------

lol, yes, not in help
or this

var word: string:="ACAPULCO,MEXICO"
var cola: int:=30
colorback(black) 
for row:1..25 
    for col:1..80 
    put" ".. 
    end for 
end for 
color(white) 
for a: 1..length(word)
locate(22,cola)
cola+=1
put word(a)
delay (100)
end for



-----------------------------------

beard0

Fri May 28, 2004 1:38 pm



-----------------------------------

or even cleaner:
var word : string := "ACAPULCO,MEXICO"
colorback (black)
put repeat (" " + chr (10), maxrow)
color (white)
locate (22, (maxcol - length (word)) div 2)
for a : 1 .. length (word)
    put word (a)..
    delay (100)
end for



-----------------------------------

Tony

Fri May 28, 2004 1:45 pm



-----------------------------------

would it not be simpler to use cls instead of put repeat (" " + chr (10), maxrow) ? :P


-----------------------------------

beard0

Sun May 30, 2004 5:28 pm



-----------------------------------

Ouch!  Ya tony, you're right.  I deserve a swift kick to the head on that one.  With that adjustment though, i think we've cleaned up the movie char by char delay effect nicely.