BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Wavy Horizontal Text Scroller ", by specis

Eh scrolls the text from right to left in a wavey motion.
You need to have the Txt file or it wont work

Code

resX = 800
resY = 600
Dept = 16

Graphics resX,resY,Dept
SetBuffer BackBuffer()

; Load in the First Line add it the the main string and continue on till all is done
ScrollerText$ = "" ; Makes sure there is no text in the string
startingCords = resX + 50

file = OpenFile("cha.txt") ; opens the file (PUT YOUR OWN TXT FILE IN HERE!!!!!!!!)
Repeat 
Scrollertext = Scrollertext + " " + ReadLine(file) ; add the next line onto the end of the last line
Until Eof(file)
maxchars = Len(ScrollerText)
Dim Pics(maxChars)
Dim chars$(maxChars)
Color 247,201,89 
For x = 1 To maxchars
    chars(x) = Mid(scrollertext,x,1)
    pics(x) = CreateImage(StringWidth(chars(x)),15,1)
    SetBuffer ImageBuffer(pics(x))
    Text 0,0,chars(x)
    SetBuffer BackBuffer()
Next 
size = StringWidth(Scrollertext)

FinishingCords = (0 - (size + 50))
While Not KeyHit(1)
Cls
temp = 0 
For x = 1 To maxchars
temp = temp + StringWidth(chars(x - 1))
DrawImage pics(x),(StartingCords + temp),(resy - 200 + ((Sin(100+(startingCords + temp))*100)))
Next
Flip
startingCords = StartingCords - 1
If StartingCords < FinishingCords
   StartingCords = (ResX + 50)
EndIf
Wend

Code software created by Krylar's Kreations