Thanks a lot for helping!
It's basically the sample demo with "anglex#,y#, and z# = dc get light direction x(),y(), and z() :
Rem Project: DarkCLOUDSample
Rem Created: Sunday, June 28, 2009
rem Please wait
set display mode 1920,1080,32
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
cloudy#=0.3
dc set cloudy cloudy#
rem add a high-altitude cloud layer
dc set cirrus clouds 0.7
dc set cirrus image 21
rem clouds at 3 km
dc set cloud height 8
rem set sky brightness to 1
brightness#=0.5
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,0.7,0.5
rem starting at 6am
time#=13
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,0.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#+75.0/(24.0*60.0*60.0)
dc set cloudy cloudy#
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,1.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
`update light settings
if keystate(17)=1 Then Inc cloudy#,0.01
if keystate(31)=1 Then Dec cloudy#,0.01
text 0,10,"Cloud Coverage ("+Str$(cloudy#)+")"
`Get Sun Angles
anglex#=dc get light direction x()
angley#=dc get light direction y()
anglez#=dc get light direction z()
rem update screen
sync
rem end loop
loop
The Pokemon Engine is still alive.
