Quote: "Yeah i think he may have meant your post Rich."
I think Somarl is right. Also I don't know what you were reading Rich but nowhere does @Agent say Grog used alpha... just that he used a For...Next loop
Here's a simple rgba function I just posted for another thread which could be used to set the alpha of the text:
Function RGBAlpha(r,g,b,a)
c = (a*16777216)+(r*65536)+(g*256)+b
EndFunction c
Just set the RGB values to whatever colour you want and edit the alpha value to make it transparent:
set text font "Comic Sans MS"
set text size 50
` Dimensionalize an array
dim Tex$(5)
` Define the array
Tex$(0)="Somarl Games Presents"
Tex$(1)="( COOL GAME )"
Tex$(2)="Made in Darkbasic Pro"
Tex$(3)="Programmed By -- Somarl"
` Go through the array
for t=0 to 3
` Call the FadeText function (with 1 to fade to white)
FadeText(Tex$(t),1)
` Wait 10 milliseconds
wait 10
` Call the FadeText function (with 0 to fade to black)
FadeText(Tex$(t),0)
next t
` Always end before the hit of the first function
end
function FadeText(Tex$,Fade)
` Check if Fade is zero
if Fade=0
` Fade to black
for Color=255 to 0 step -1
cls
` Change the color
ink RGBAlpha(255,0,0,Color),0
` Show the text
center text screen width()/2,screen height()/2-50,Tex$
` Delay
wait 10
next Color
else
` Fade to white
for Color=0 to 255
cls
` Change the color
ink RGBAlpha(255,0,0,Color),0
` Show the text
center text screen width()/2,screen height()/2-50,Tex$
` Delay
wait 10
next Color
endif
endfunction
Function RGBAlpha(r,g,b,a)
c = (a*16777216)+(r*65536)+(g*256)+b
EndFunction c
