[DeeJex]

Вот тебе из одного моего недоделаного проджекта:
Делаешь сферу(небо):

Global skysph=CreateSphere(8)
FlipMesh skysph
EntityOrder skysph,3

Солнце:

Global sunmesh = CreateSphere(8,skysph)
EntityOrder sunmesh,3
ScaleEntity sunmesh,.05,.05,.05
Global sunlight = CreateLight(2,sunmesh)
PositionEntity sunmesh,0,.9,0
EntityColor sunmesh,255,255,0

Время:

Global hournow# ;От 0 до 24

Обновление:

Function UpdateSky()

hournow = hournow + .001

If hournow>24 Then hournow=hournow-24
If hournow<0 Then hournow=hournow+24

PositionEntity skysph,EntityX(cam),EntityY(cam),EntityZ(cam)

RotateEntity skysph,hournow*(360/24)+180-45,0,0

If hournow>0 And hournow<7 Then EntityColor skysph,0,0,50 : LightColor sunlight,0,0,0
If hournow>7 And hournow<8 Then EntityColor skysph,0+250*(hournow-7),0+220*(hournow-7),50+50*(hournow-7) : LightColor sunlight,.35*(hournow-7),.35*(hournow-7),.35*(hournow-7) ; 0,0,50 to 250,220,100
If hournow>8 And hournow<10 Then EntityColor skysph,250-100*(hournow*.5-4),220+35*(hournow*.5-4),100+155*(hournow*.5-4) : LightColor sunlight,.35-.2*(hournow*.5-4),.35-.2*(hournow*.5-4),.35-.2*(hournow*.5-4) ; 250,220,100 to 150,255,255
If hournow>10 And hournow<19 Then EntityColor skysph,150,255,255 : LightColor sunlight,.15,.15,.15
If hournow>19 And hournow<21 Then EntityColor skysph,150+120*(hournow/3-6.25),255-45*(hournow/3-6.25),255-195*(hournow/3-6.25) : LightColor sunlight,.15-.135*(hournow/3-6.25),.15-.135*(hournow/3-6.25),.15-.135*(hournow/3-6.25) ;150,255,255 to 250,220,100
If hournow>21 And hournow<24 Then EntityColor skysph,250-250*(hournow/3-7),220-220*(hournow/3-7),100-50*(hournow/3-7) : LightColor sunlight,.05-.05*(hournow/3-7),.05-.05*(hournow/3-7),.05-.05*(hournow/3-7) ;250,220,100 to 0,0,50

End Function