Enabling Antialias causes the DarkClouds texture to be all black.
flush video memory
sync on : sync rate 0
autocam off
` With AA OFF
set display mode 800, 600, 32, 0, 0, 0
` With AA ON
`set display mode 800, 600, 32, 0, 4, 0
set window position screen width()/2-400, 0
backdrop on
set normalization on
set camera range 1, 60000
center text Screen width()/2, screen height()/2, "Generating Weather, please wait.."
global Sky as integer
global start as float
global time# as float = 6.00
global ltime# as float = time#
dc set cloudy 0.2
dc set cloud height 6
dc set wind 100, 165
dc set brightness 0.3
dc set sun color 0.8, 0.8, 0.5
dc set scattering 6.95, 11.8, 24.4
Sky = 101
dc init Sky, 10
dc update time#
texture backdrop Sky
global Flast# as float
global factor# as float
set ambient light 10
position camera 0, 1200, 100, 1200
point camera 0, 0, 100, 0
hide mouse
start = hitimer()
time# = 6.0
global ltime as integer
ltime = start
lframe = hitimer()
while not escapekey()
if hitimer() - lframe => 17
tbmupdate()
text 10, 10, "FPS : "+str$(Screen FPS())+" Time : "+str$(time#,4)
if hitimer() - start > 100
time# = time# + 0.00001
if time# > 23.99 then time# = 0.0
start = hitimer()
endif
cx#=camera angle x()+mousemovey()/4.0
if cx#>90.0 then cx#=90.0
if cx#<-90.0 then cx#=-90.0
rotate camera cx#,camera angle y()+mousemovex()/4.0,0.0
speed# = 10.0
if keystate(42) then speed# = 50.0
if keystate(17)
move camera 0, speed# * factor#
endif
if keystate(30)
move camera left 0, speed# * factor#
endif
if keystate(31)
move camera 0, -speed# * factor#
endif
if keystate(32)
move camera right 0, speed# * factor#
endif
if hitimer() - ltime => 50
dc update time#
ltime = hitimer()
endif
sync
lframe = hitimer()
endif
endwhile
end
function tbmupdate()
ht = hitimer()
Diff# = ht - Flast#
Flast# = ht
factor# = Diff# / 1000.0
endfunction
function FreeObj()
res = 0
for fx = 1 to 100
if object exist(fx) = 0
res = fx
exit
endif
next fx
endfunction res