This simply shows yet another way to have the scroll text effect. This truly does work and is very simple!

This simply shows yet another way to have the scroll text effect. This truly does work and is very simple! Go to AzhPro.com to get the full version that (will) contain sound effects!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REMSTART
This is my DB example for DarkBasic.Com!!!

By reading this you should learn how to do a 'Scrolling Text'
effect which everyone makes a big deal over! It does take
more coding than some more effecient ways but it works and it
is easy. To dload the full version that includes sound goto...
!!!AzhPro.com!!!

By Azh
REMEND

hide mouse

`Sets the var to 0
var = 0
`Sets the var2 to 5
var2 = 5

REPEAT
   `Starts the loading scroll. It just shows test, clears the screen, then shows another text
   PRINT "Loading"

   `Waits 500 miliseconds
   Wait 500

   `Clears screen
   CLS
   PRINT "Loading."
   WAIT 500
   CLS
   PRINT "Loading.."
   WAIT 500
   CLS
   PRINT "Loading..."
   WAIT 500
   CLS
   PRINT "Loading.."
   WAIT 500
   CLS
   PRINT "Loading."
   WAIT 500
   CLS
   PRINT "Loading"
   WAIT 500
   CLS

   `Adds 1 to var so the scroll can stop after 1 time
   var=var+1
UNTIL var = 1

PRINT "Press Space to Continue, press Exit to END"

repeat
   `If spacebar is pressed then var2 = 0
   If SpaceKey() = 1 then var2=0
   `If enterkey is pressed then var2 = 1
   if returnkey() = 1 then var2=1
`Repeat until var2 = 0 or 1
until var2 = 0 or var2 = 1

`If var2 = 0 then scroll Hello and end
if var2=0
   `Basically does the same as the loading scroll
   CLS
   PRINT "H"
   Wait 500
   CLS
   PRINT "He"
   Wait 500
   CLS
   PRINT "Hel"
   Wait 500
   CLS
   PRINT "Hell"
   Wait 500
   CLS
   PRINT "Hello"
   `Wait an extra 5000 miliseconds to let the user see the Hello text
   Wait 5000
   END
`else end
else
   end
endif