Screen and text fade

Full screen fade uses sprites and the sprites alpha value. The text fade just uses the text colour.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    remstart
ScreenFade routine by Nicholas Kingsley
remend

#constant FADE_DOWN  1
#constant FADE_UP    0

function screenFade(dirx as integer,spr as integer,bmp as integer,_
                     background as integer)
l as integer

   sprite spr,0,0,bmp:sync
   select dirx
      case  FADE_UP     :  for l=0 to 255
                              cls background
                              set sprite alpha spr,l
                              sync
                           next l
                           endcase
      case  FADE_DOWN   :  for l=255 to 0 step -1
                              cls background
                              set sprite alpha spr,l
                              sync
                           next l
                           endcase
   endselect
endfunction

function textFade(text$ as string,x as integer,y as integer,dirx as integer,_
                  tr as integer,tb as integer,tg as integer,_
                  br as integer,bb as integer,bg as integer)
l as integer

   select dirx
      case  FADE_DOWN  :   Rem fade down
                           for l=255 to 0 step -1
                              ink rgb(l,l,l),rgb(br,bb,bg)
                              text x,y,text$
                              sync
                           next l
                           endcase
      case  FADE_UP     :  Rem fade up
                           for l=0 to 255
                              ink rgb(l,l,l),rgb(br,bb,bg)
                              text x,y,text$
                              sync
                           next l
                           ink rgb(tr,tg,tb),rgb(br,bb,bg)
                           text x,y,text$
                           sync
                           endcase
   endselect
  endfunction