[Wegox]

Вот сделал яркий пример как использовать For next и массив

Видео на YouTube

Global FL_Pitch2#,FL_Yaw2#,FL_Roll2#,FL_XSpeed2#,FL_YSpeed2#,FL_ZSpeed2#
Function FreeLook2(FL_Cam2)
		FL_Pitch2#=FL_Pitch2#-(-MouseYSpeed()*0.02) : FL_Pitch2#=FL_Pitch2#/1.2
    FL_Yaw2#=FL_Yaw2#+-(MouseXSpeed()*0.02) : FL_Yaw2#=FL_Yaw2#/1.2
    MoveMouse (GraphicsWidth()/2,GraphicsHeight()/2)
    FL_ZSpeed2#=FL_ZSpeed2#+Float(KeyDown(17)-KeyDown(31))*0.14 : FL_ZSpeed2#=FL_ZSpeed2#/1.14;  w & s
		FL_XSpeed2#=FL_XSpeed2#+Float(KeyDown(32)-KeyDown(30))*0.14 : FL_XSpeed2#=FL_XSpeed2#/1.14 ; a & d
		FL_YSpeed2#=FL_YSpeed2#+Float(KeyDown(19)-KeyDown(33))*0.14 : FL_YSpeed2#=FL_YSpeed2#/1.14 ; r & f
		FL_Roll2#=(FL_Yaw2#*1.1)-(FL_XSpeed2#*2.3)
    MoveEntity FL_Cam2,FL_XSpeed2#,FL_YSpeed2#+Abs(FL_Roll2#*FL_XSpeed2#)/50,FL_ZSpeed2#
		Local cp2#=EntityPitch(FL_Cam2,True)+FL_Pitch2#
		If cp2<-89 Then cp2=-89
		If cp2>89 Then cp2=89
		RotateEntity FL_Cam2,cp2,EntityYaw(FL_Cam2)+FL_Yaw2#,FL_Roll2#
End Function
Graphics3D 1024,768,32,2 
SetBuffer BackBuffer() 

camera=CreateCamera() 
PositionEntity camera,0,2,-10 

light=CreateLight() 
RotateEntity light,90,0,0 


Global Move#=0
Dim cubeABC(11,11,11)

For a=1 To 11
   For b=1 To 11
      For c=1 To 11

    cubeABC(a,b,c)=CreateSphere()
	
    PositionEntity cubeABC(a,b,c),a*2,b*2,c*2
    EntityColor cubeABC(a,b,c),128*a,32*b,78*c

       Next
    Next
Next

While Not KeyDown( 1 ) 
 FreeLook2(camera)

For a=2 To 11
   For b=2 To 11
      For c=2 To 11

      Move#=Sin((MilliSecs()/(50)*(a*b/c*c/a)))
	  
      EntityAlpha cubeABC(a,b,c),Move#
      ScaleEntity cubeABC(a,b,c),1*Move#,1*Move#,1*Move#

      Next
   Next
Next

RenderWorld 

Flip 

Wend 

End