For some reason I am unable to move through these clouds. I have experimented with other Darkclouds code, I have found in the forum.
Rem Project: DarkCLOUDSample
Rem Created: Sunday, June 28, 2009
rem Please wait
set text font "verdana" : s$="generating clouds...please wait"
center text screen width()/2,screen height()/2,s$ : sync
rem init app at 60fps
sync on : sync rate 0
rem half-fill the sky with clouds
dc set cloudy 0.4
rem clouds at 3 km
dc set cloud height 1
rem dc set rain 0.4,0.01
rem set sky brightness to 1
brightness#=0.2
dc set brightness brightness#
rem adjust brightness based on time of day
dc set auto brightness 0
rem set wind to 30 mph at 270 degrees (heading west)
dc set wind 10,270
rem init with texture number 1, and number of keyframes per day
dc init 1,10
rem put clouds at 3km altitude
dc set cloud height 5.0
rem starting at 7am
time#=5.0
rem the update command creates the cloud texture
dc update time#
rem show texture 1 as the backdrop
texture backdrop 1
rem place camera for best view
position camera 0,10000,-200
load dll "Kernel32.dll",1
rem Main loop
do
Set cursor 0,0
Print screen FPS()
rem step through the day
time#=time#+100.0/(60.0*60.0*60.0)
rem update clouds
dc update time#
rem use mouselook on camera
mx#=mousemovex()/10.0;
my#=mousemovey()/10.0;
if MOUSECLICK()<>0
rotate camera camera angle x()+my#,camera angle y()+mx#,0
endif
if upkey()=1 then move camera 0,6.0
if downkey()=1 then move camera 0,-6.0
call dll 1,"Sleep",5
sync
rem end loop
loop
I get the same thing each time: A still image of clouds and no movement, no matter what.
What am I doing wrong?
