this code works with this installation version
DarkCLOUDS_150610.exe
its example should also contain the required media
as well as this code but I will add it here anyway...
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
load image "sunFlare.png",10
load image "Moon.png",11
load image "Rain.jpg",15
load image "Cirrus.jpg",21
rem init app at 60fps
sync on : sync rate 60
rem half-fill the sky with clouds
dc set cloudy 0.5
rem add a high-altitude cloud layer
dc set cirrus clouds .5
dc set cirrus image 21
rem clouds at 3 km
dc set cloud height 8
rem set sky brightness to 1
brightness#=1.0
dc set brightness brightness#
rem adjust brightness based on time of day
dc set auto brightness 1
rem set wind to 30 mph at 270 degrees (heading west)
dc set wind 30,270
rem init with texture number 1, and number of keyframes per hour
dc init 1,5
rem modify rayleigh scattering(optional) default: 7,11,24
dc set scattering 7,11,24
rem a slightly yellow sun:
dc set sun color 1.0,1.0,0.9
rem starting at 6am
time#=6
rem the update command creates the cloud texture
dc update time#
rem show texture 1 as the backdrop
texture backdrop 1
rem draw the sun
dc set sun image 10,.2
rem draw the moon - three times!
dc set planet image 1,11,.2,1
dc set planet direction 1,0.0,0.2,1.0
dc set planet image 2,11,.15,1
dc set planet direction 2,0.9,0.4,-0.5
dc set planet image 3,11,.05,1
dc set planet direction 3,0.9,0.4,0.5
rem create rain (rain will only appear when clouds are heavy)
dc set rain 1,1
dc set rain image 15
rem create a 3D object in the scene
load object "pelican.dbo",1
scale object 1,1000,1000,1000
set normalization on
rem place camera for best view
position camera 0,50,-200
rem Main loop
do
rem step through the day at 20 times speed; 24 hours, 60 minutes, 60 seconds.
time#=time#+20.0/(24.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,100.0
if downkey()=1 then move camera 0,-1.0
if leftkey()=1 then move camera 0,-1.0
if rightkey()=1 then move camera 0,1.0
rem rotate the object
yrotate object 1,a# : inc a#,0.1
rem apply a real-time clouds as a cube map on the object
dc make cubemap 128,2,3,4,5,6,7
set cube mapping on 1,2,3,4,5,6,7
rem update screen
sync
rem end loop
loop
and a beauty shot
I am certain you could work out how to use the cirrus.jpg as a stars layout
hope this helps...
EDIT
I had a go at setting the time to 7 [19] pm and it dissapeared... so experimenting time I guess...
the above image was set at 6am and also notice some of the code includes my adjustments like height as 8 instead of 3 and speed movement at 100 as i got bored of waiting to go above the clouds lol
