Code tags not working again.
set display mode 640,480,16
Sync on : Sync Rate 0 : set text font "Arial" : Set text to bold : set text size 32
Text$ = " It started out as a Sin Scroller and Sin Bars and now its a simple 20 line Demo/Intro. I tried putting some stars on and tried to get the top and bottom bars to change colours but the bar colours messed up for some reason, any ideas Rich? Giff!!! I Carn`t foget the usual shouts... Hi to all of DBS, DBDN and all the other forums. "
Type Bar Y Col EndType : Dim Bars(5) as Bar
For Counter = 1 to 5 : Bars(Counter).Y = 100+Counter*50 : Bars(Counter).Col = Counter*100000 : Next Counter
Length = Len(Text$) : Poss = 1 : Offset = 0
Do
For Counter = 1 to 5
Inc Bars(Counter).Y,1
Box 0,(Sin(Bars(Counter).Y)*20)+200,640,(Sin(Bars(Counter).Y)*20)+210,Bars(Counter).Col+100,Bars(Counter).Col,Bars(Counter).Col+100,Bars(Counter).Col
Box 0,(Sin(Bars(Counter).Y)*20)+210,640,(Sin(Bars(Counter).Y)*20)+220,Bars(Counter).Col,Bars(Counter).Col+100,Bars(Counter).Col,Bars(Counter).Col+100
Next Counter
If Offset < -32
Offset = 0
If Poss < Length-25 Then Inc Poss Else Poss = 1
Endif
Box 0,0,640,50,0,RGB(255,255,255),0,RGB(255,255,255) : Box 0,430,640,480,RGB(255,255,255),0,RGB(255,255,255),0
For X = 0 to 25 : Text Offset+(x*32),200+(Sin(Offset+(X*32)))*25,Mid$(Text$,X+Poss) : Next X
Dec Offset : Sync : Cls
LoopGiff
1.4Ghz Athlon - 256 Mem - Win 98 - Geforce 2 Ti 400Mhz 64Mb
