Barber Shop Scroller

[kevin]

Barber Shop Scroller

PlayBASIC Code: [Select]

Size=16

For lp=0 to 800 step size
   if flag=0
      c=rgb(255,255,255)
   else
      c=rgb(255,155,55)
   endif
   boxc lp,0,lp+size,1,true,c
   flag=1-flag
next

GetImage 1,0,0,500,1

setfps 60

sw=getscreenwidth()
sh=getscreenHeight()

loadfont "Arial",1,45,0
Do
      c1=rgb(200,30,200)
      c2=rgb(70,30,70)
      c3=rgb(70,0,0)
      shadebox 0,0,sw,sh,c2,c1,c2,c1
      
      baseX=mod(basex+1,size*2)      
      For ylp=100 to 100+Size
         X=mod(BaseX+ylp,Size*2)
         drawimage 1,-x,ylp,false      
         drawimage 1,400+size-x,ylp,false      
      next
   
      copyrect  0,0,100,sw,120,0,0,sh-ylp      

      centertext 400,300,"Loading Stuff....%"+digits$(Percent,3)
      percent=mod(percent+1,100)

   Sync
loop