I wanted say, I am still alive.
Code: Select all
SCREEN 640,489,32,2
i = LoadFont("arial",34)
SetFont i
r=255: g=200: b=100: d=1
r1=r
g1=g
b1=b
While KeyDown(27)=0
ClsColor r,g,b
Cls
If d=1
If r>0 then r=r-1
If g>0 then g=g-1
If b>0 then b=b-1
If r=0 and g=0 and b=0 then d=2
EndIf
If d=2
If r<r1 then r=(r+1)
If g<g1 then g=(g+1)
If b<b1 then b=(b+1)
If r=r1 and g=g1 And b=b1 then d=1
EndIf
Color b1,g1,r1
Text 200,200,"COLOUR FADING"
DrawScreen OFF
Wend