Hyper Screen Fader

This code has been declared by its author to be Public Domain code.

Hyper Screen Fader by n8r2k

2005

I will get to posting this on http://n8r2k.deviousbytes.com/ soon. And after that I will comment this. Basically, it fades the srceen very smoothly and can do multiple colors.

Graphics 1024,768,0,1
n =0
n2 = 0
n1 = 0
While Not KeyHit(1)
Cls
n = n + 3

If n1 = 0
	ClsColor n,0,0
	n2 = 0
ElseIf n1 = 1
	ClsColor 0,n,0
	n2 = 0
ElseIf n1 = 2
	ClsColor 0,0,n
	n2 = 0
ElseIf n1 = 3
	ClsColor n,0,n
	n2 = 0
ElseIf n1 = 4
	ClsColor n,n,0
	n2 = 0
ElseIf n1 = 5
	ClsColor 0,n,n
	n2 = 0
EndIf

If n > 250
	n= 0
	n1 = n1 + 1
EndIf

If n1 = 6
	n1 = 0
EndIf

Flip
Wend

Comments

None.

Code Archives Forum