TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 12th Sep 2003 19:01

Modified: 1st Jan 1970 01:00

Author: OSX Using Happy Dude

Summary

Screen and text fade

Full Description

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

DarkBASIC Professional Source Code

` 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

Download

Please login to download

Comments

No comments yet.

CodeBase - Fade Routines

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	OSX Using Happy Dude
CodeBase Entries:	12