[Morganolla]

Вот текст: управление wasd и стрелки , 1,2,3 - скорость полета...

SeedRnd MilliSecs()
Graphics3D 1024,768,32,1

SetBuffer BackBuffer()
lit=CreateLight(2)

 LightColor lit,255,200,50
LightRange lit,300000
Dim sp(99)
 
k=1
center=CreateSphere(32) ;---------это солнце!!!!!!!!!!!!!!!!!

EntityFX center,1
 EntityColor center,255,255,100
c=20;             -------------      размер солнца..........
ScaleEntity  center,c,c,c
PositionEntity center,0,0,100 
;EntityAlpha center,1


;tex=LoadTexture("Picture.bmp")
AmbientLight 0,0,0

 For i=0 To 99     ; Это планеты 

 sp(i)=CreateSphere(32,center)
sc#=Rnd(100,300)

 ScaleEntity sp(i),sc#,sc#,sc#
EntityColor sp(i),Rnd(0,200),Rnd(0,200),Rnd(0,200)
EntityShininess  sp(i), .2
 PositionEntity sp(i),Rnd(-20000,20000),Rnd(-2000,2000),Rnd(-20000,20000)
;EntityTexture sp(i),tex
Next
cam=CreateCamera()

PositionEntity cam,0,0,-40
CameraRange cam,0.1,1000000

 time=MilliSecs()
Repeat

;Print time2

 ;TurnEntity center,.0,.003,.0

 If KeyDown(2) k=1
 If KeyDown(3) k=30
 If KeyDown(4) k=1000


  If KeyDown(200) MoveEntity cam,0,0,1000/k

 If KeyDown(208) MoveEntity cam,0,0,-1000/k

 If KeyDown(203) TurnEntity cam,0,0,1

 If KeyDown(205) TurnEntity cam,0,0,-1


 If KeyDown(17) TurnEntity cam,-1,0,0

 If KeyDown(31) TurnEntity cam,1,0,0


 If KeyDown(30) TurnEntity cam,0,1,0

 If KeyDown(32) TurnEntity cam,0,-1,0

time2=MilliSecs()-time
time=time +time2

 UpdateWorld
 RenderWorld
Text 50,50,k
  Flip
Until KeyHit(1)

 FreeFont f

End