Simple Scrolling Text Message

[kevin]

 Simple Scrolling Text Message

PlayBASIC Code: [Select]

; Load a new version of the arial font into font #1.. 
   loadfont  "arial",1,96,0,8


 ; This is the string that holds the scrolling message.
   Scrolltext$="This is scroll text.... Once upon a time..  PlayBASIC Scroller......"


; compute width of Scrolling Text message in pixels
; using the current output font
   ScrollSizeInPixels=GetTextWidth(ScrollText$)
   

; Set the scroller starting position
; to beyond the right hand side of screen

   ScrollX   =GetScreenWidth()

; Limit the speed of the program to 30 frames per second
   SETFPS 30


; MAIN LOOP
   do

      ; Clear the screen to Black  RGB(0,0,0)
      CLS

      ; Draw the swcroller in the current font as the current scroller position   
      Text ScrollX,100,ScrollText$   


      ; Move the scroll position to the left by 2 pixels
      ScrollX-=2


      ; check if the scroll position is lower than the messages absolute size
      ; if it is, then it's completely scrolled off the left hand side
      ; of the screen
      if ScrollX< (-ScrollSizeInPixels)
            ; reset the scroller position back to the right hand side of the screem
            ScrollX=GetScreenWidth()
         
      endif   
   
      ; flip the back buffer to the fron, so the view can see the newly drawn screen
      sync
   
   
      ; loop (jump) back to the DO statement above to keep this section of code
      ; running
   loop esckey()=true