Физика

Химия

Биология

Техника и    технологии

Загрузить исходник

global a,L1,L2,L3,L4,NNx,NNy,N,NNt

global L21,L22,L23,L24,L25,NNx2,NNy2

global L31,L32,L33,L34 ,NNx3,NNy3

global L41,L42,L43,L44 ,NNx4,NNy4

global L51,L52,L53,L54 ,NNx5,NNy5

global L61,L62,L63,L64 ,NNx6,NNy6

global L71,L72,L73,L74 ,NNx7,NNy7

on beginsprite me

  my = sprite(me.spriteNum).member

  my.resetWorld()

  a=0

  L1 =0

  L2 =0

  L3 =0

  L4 =0

  L24 =0

  L25 =0

  NNx =3 --число элементов по оси x

  NNy =10 --число элементов по оси z

  NNx2=NNx

  NNy2=NNy

  NNx3 =4

  N=0

  NNt =100--за держка по времени

  L21 =0

  -----------------------------------------------------

  L31 =0

  L32 =0

  L33 =0

  L34 =0

  -------------

  NNx3 =3 ---y

  NNy3 =NNy --z

  -------------

  -----------------------------------------------------

  L41 =0

  L42 =0

  L43 =0

  L44 =0

  -------------

  NNx4 =15 ---y

  NNy4 =NNy --z

  -------------

  -----------------------------------------------------

  L51 =0

  L52 =0

  L53 =0

  L54 =0

  -------------

  NNx5 =20 ---y

  NNy5 =NNy --z

  -------------

  -------------------------------------------------------------------

  L61 =0

  L62 =0

  L63 =0

  L64 =0

  ---------------------------------------------------------------------

  -------------

  NNx6 =18 ---y

  NNy6 =NNy --z

  -------------------------------------------------------------------

  L71 =0

  L72 =0

  L73 =0

  L74 =0

  ---------------------------------------------------------------------

  -------------

  NNx7 =20 ---y

  NNy7 =NNy --z

  my.newTexture("backdrop", #fromCastmember, member("sky"))

  my.camera(1).insertBackdrop(1,my.texture("backdrop"), point(0,0), 0)

end

on exitFrame me

  --

  if (a=1) then

    --Алгорим обработки

    --Шаг за шагом

    --1 Cоздания первой стены

    --1 шаг

    --Определяем количество шаров по кординате и кланируем

    myobrabotka1

    --2 шаг

    --Перемещения клонированных элементов в нужную точку

    myobrabotka2

    --3 шаг

    --распределяем  по оси элементы

    myobrabotka3

    N=N+1

    --put N

    --4 шаг

    myobrabotka4  --кланирования для вертикальной z оси

    --5 шаг

    myobrabotka5  --результат

    --21 Cоздания второй  стены

    --2.1 шаг

    --Определяем количество шаров по кординате и кланируем

    myobrabotka21

    --2.2 шаг

    --Перемещения клонированных элементов в нужную точку

    myobrabotka22

    --распределяем  по оси элементы

    --2.3 шаг

    myobrabotka23

    --кланирования для вертикальной z оси

    --2.4 шаг

    myobrabotka24

    --5 шаг

    myobrabotka25  --результат

    ------------------------------------------------------------------

    -- Cоздания третей   стены

    --Определяем количество шаров по кординате и кланируем

    --1 шаг

    myobrabotka31

    --2 шаг

    --Перемещения клонированных элементов в нужную точку

    myobrabotka32

    myobrabotka33

    myobrabotka34

    myobrabotka35

    ------------------------------------------------------------------------------------

    myobrabotka41

    myobrabotka42

    myobrabotka43

    myobrabotka44

    myobrabotka45

    ------------------------------------------------------------------------------------

    myobrabotka51

    myobrabotka52

    myobrabotka53

    myobrabotka54

    myobrabotka55

    -------------------

    myobrabotka61

    myobrabotka62

    myobrabotka63

    myobrabotka64

    myobrabotka65

    -------------------

    myobrabotka71

    myobrabotka72

    myobrabotka73

    myobrabotka74

    myobrabotka75

  end if

  go the frame

end

-- создания обработки данных

--Определяем количество шаров по кординате и кланируем

on myobrabotka1

  If L1 =0 Then

    repeat with x=1 to NNx

      N1 =x

      member("my").model("Sphere01").clone("Sphere"&N1)

    end repeat

    L1 =1

  end if--fff =1

end  --myobrabotka11

--Перемещения клонированных элементов в нужную точку

on myobrabotka2

  If L1 =1 Then

    repeat with x=1 to NNx

      N1 =x

      if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518, 0.2417, 10.9603 ) then

        member("my").model("Sphere"&N1).translate(1,0,0,#world)

      end if--

    end repeat

    L2 =1

  end if--L1 =1  

end  --myobrabotka2

--распределяем  по оси элементы

on myobrabotka3                    

  If L2 =1 Then

    repeat with x = 1 to NNx

      vectorx  = -26.2518  +21*(x-1)

      if  member("my").model("Sphere"&x).transform.position <= vector(vectorx,0.2417,10.9603     ) then

        member("my").model("Sphere"&x).translate(1,0,0,#world)

      end if

    end repeat--x

    L3=1

  end if--L3 =1

end  --myobrabotka3

--кланирования для вертикальной z оси

on myobrabotka4

  If L3 =1 AND L4 =0 AND  N =NNt Then

    --2

    N3 =NNx--Количество шаров созданных

    repeat with x = 1 to NNx --x --количество шаров по x

      repeat with z = 1+1 to NNy --z--количество строк

        N3 = N3 +1

        member("my").model("Sphere"&x).clone("Sphere"&(N3))

      end repeat--z

    end repeat--x

    L4 =1

  end if--L3 =1

end  --myobrabotka4  

on myobrabotka5  -- результат

  If L4 =1   Then

    N5 =NNx  --Количество шаров созданных

    repeat with x = 1 to NNx --x --количество шаров по x

      repeat with z = 1+1 to NNy --z--количество строк

        vectorx  = -25.2518  +21*(x-1)

        vectorz  = 10.9603  +21*(z-1)

        N5 = N5 +1

        if  member("my").model("Sphere"&N5).transform.position <= vector(vectorx,0.2417,vectorz ) then

          member("my").model("Sphere"&N5).translate(0,0,1,#world)

        end if--N3

      end repeat--z

    end repeat--x

  end if--L4 =1

end  --myobrabotka5

----------------------------------------------------------------------------------------------------

--Создания второй  стены

--Определяем количество шаров по кординате и кланируем

on myobrabotka21

  If L21 =0 Then

    repeat with x= NNx2*NNy2+1  to NNx2*NNy2+NNx2

      N1 =x

      member("my").model("Sphere01").clone("Sphere"&N1)

    end repeat

    L21 =1

  end if-- L21 =1

end  --myobrabotka21

----Перемещения клонированных элементов в нужную точку

on myobrabotka22

  If L21 =1    Then  

    repeat with y= NNx2*NNy2+1   to  NNx2*NNy2+NNx2

      N1 =y

      if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518, 0.2417 +21*3, 10.9603 ) then

        member("my").model("Sphere"&N1).translate(0,1,0,#world)

      end if

    end repeat

    L22 =1  

  end if-- L21 =1

end  --myobrabotka21

--распределяем  по оси элементы

on myobrabotka23

  y= NNx2*NNy2+1

  If   L22 =1  AND member("my").model("Sphere"&y).transform.position >= vector( -26.2518, 0.2417 +21*3, 10.9603 ) Then

    x1=0

    repeat with x = NNx2*NNy2+1    to   NNx2*NNy2+NNx2

      x1=x1+1

      vectorx  = -26.2518  +21*(x1-1)

      if  member("my").model("Sphere"&x).transform.position <= vector(vectorx, 0.2417 +21*3 ,10.9603     ) then

        member("my").model("Sphere"&x).translate(1,0,0,#world)

      end if

    end repeat--x

    L23 =1

  end if-- L22 =1

end  --myobrabotka23

--кланирования для вертикальной z оси

on  myobrabotka24

  vectorx2  = -26.2518  +21*(NNx2-1)

  If  L23 =1  AND  L24 =0 AND    member("my").model("Sphere"&NNx2*NNy2+NNx2).transform.position > vector(vectorx2, 0.2417 +21*3, 10.9603 ) Then

    --2

    N3 =NNx2*NNy2+NNx2 --Количество шаров созданных

    repeat with x = NNx2*NNy2+1 to NNx2*NNy2+NNx2   --x --количество шаров по x

      repeat with z = 1+1 to NNy2  --z--количество строк

        N3 = N3 +1

        member("my").model("Sphere"&x).clone("Sphere"&(N3))

      end repeat--z

    end repeat--x

    L24 =1

  end if--L3 =1

end if -- L23 =1

end  --myobrabotka23

on  myobrabotka25

--3-число уже созданных обектов например плоскость

If  L24 =1   Then

x2 =0

N5 = NNx2*NNy2+NNx2   --Количество шаров созданных

N5=N5

repeat with x = NNx2*NNy2+1   to NNx2*NNy2+NNx2    --x --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy2   --z--количество строк

vectorx3  = -25.2518  +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(vectorx3,63.2417,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L25 =1

end if -- L24 =1

end  --myobrabotka25

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

--Создания третей   стены

--Определяем количество шаров по кординате и кланируем

on myobrabotka31

P=2*(NNx*NNy)

If L31 =0   AND N =150  Then

--If L31 =0   AND L25 =1   Then

repeat with y=P +1  to  P + NNx3

--repeat with y=sum +1  to sum + NNx3

N2 =y

member("my").model("Sphere01").clone("Sphere"&N2)

end repeat

L31 =1

end if-- L31 =1

end  --myobrabotka21

--2 шаг

--Перемещения клонированных элементов в нужную точку

on myobrabotka32

P=2*(NNx*NNy)

If     L31 =1 AND  L32 =0    Then  

repeat with y=P +1 to P+NNx3

N1 =y

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518, 0.2417, 10.9603 ) then

member("my").model("Sphere"&N1).translate(0,1,0,#world)

end if

end repeat

L32 =1  

end if-- L21 =1

end  --myobrabotka21

--3 шаг

--распределяем  по оси элементы

on myobrabotka33

P=2*(NNx*NNy)

--y= 2*(NNx*NNy)+1

If   L32 =1  Then

x1=0

repeat with x =P +1 to  P +NNx3

x1=x1+1

vectorx  = 0.2417  +21*(x1-1)

if  member("my").model("Sphere"&x).transform.position <= vector(-26.2518 , vectorx  ,10.9603     ) then

member("my").model("Sphere"&x).translate(0,1,0,#world)

end if

end repeat--x

L33 =1

end if-- L22 =1

end  --myobrabotka23

--кланирования для вертикальной z оси

--3.4 шаг

--кланирования для вертикальной z оси

on  myobrabotka34

P=2*(NNx*NNy)

If  L33 =1  AND L34 =0 AND N =250  Then

--2

N3 =2*(NNx*NNy)+NNx3 --Количество шаров созданных

repeat with x =P +1 to P+ NNx3   --x --количество шаров по x

repeat with z = 1+1 to NNy3  --z--количество строк

N3 = N3 +1

member("my").model("Sphere"&x).clone("Sphere"&(N3))

end repeat--z

end repeat--x

L34 =1

end if--L3 =1

end if -- L23 =1

end  --myobrabotka34

on  myobrabotka35

P=2*(NNx*NNy)

--3-число уже созданных обектов например плоскость

If    L34 =1     Then

x2 =0

N5 =P + NNx3    --Количество шаров созданных

N5=N5

repeat with x = P +1   to P +NNx3     --y --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy3   --z--количество строк

vectorx3  = 1.2417  +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(-26.2518,vectorx3 ,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L35 =1

end if -- L24 =1

end  --myobrabotka25

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

--Создания четвертой   стены

--Определяем количество шаров по кординате и кланируем

on myobrabotka41

P=2*(NNx*NNy)+NNx3*NNy3

If L41 =0   AND N =200  Then

repeat with y=P +1  to  P + NNx4

N2 =y

member("my").model("Sphere01").clone("Sphere"&N2)

end repeat

L41 =1

end if-- L31 =1

end  --myobrabotka41

--2 шаг

--Перемещения клонированных элементов в нужную точку

on myobrabotka42

P=2*(NNx*NNy)+NNx3*NNy3

If     L41 =1     Then  

repeat with y=P +1 to P+NNx4

N1 =y

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518, 0.2417+4*21, 10.9603 ) then

member("my").model("Sphere"&N1).translate(0,1,0,#world)

end if

end repeat

repeat with y=P +1 to P+NNx4

N1 =y

if  member("my").model("Sphere"&N1).transform.position >= vector( -26.2518, 0.2417+4*21, 10.9603 ) then

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518+2*21 , 0.2417+4*21, 10.9603 ) then

member("my").model("Sphere"&N1).translate(1,0,0,#world)

end if

end if

end repeat

L42 =1  

end if-- L21 =1

end  --myobrabotka21

--3 шаг

--распределяем  по оси элементы

on myobrabotka43

P=2*(NNx*NNy)+NNx3*NNy3

If   L42 =1 AND N >=324 Then

x1=0

repeat with x =P +1 to  P +NNx4

x1=x1+1

vectorx  = 0.2417+4*21  +21*(x1-1)

if  member("my").model("Sphere"&x).transform.position <= vector( -26.2518+2*21  , vectorx  ,10.9603     ) then

member("my").model("Sphere"&x).translate(0,1,0,#world)

end if

end repeat--x

L43 =1

end if-- L22 =1

end  --myobrabotka23

--кланирования для вертикальной z оси

--3.4 шаг

--кланирования для вертикальной z оси

on  myobrabotka44

P=2*(NNx*NNy)+NNx3*NNy3

If  L43 =1  AND L44 =0 AND N =650  Then ----увечивает число шаров

--2

N3 =P + NNx4   --Количество шаров созданных

repeat with x =P +1 to P +NNx4     --x --количество шаров по x

repeat with z = 1+1 to NNy4  --z--количество строк

N3 = N3 +1

member("my").model("Sphere"&x).clone("Sphere"&(N3))

end repeat--z

end repeat--x

L44 =1

end if--L3 =1

end if -- L23 =1

end  --myobrabotka34

on  myobrabotka45

P= 2*(NNx*NNy)+NNx3*NNy3

--3-число уже созданных обектов например плоскость

If    L44 =1     Then

x2 =0

N5 =P + NNx4    --Количество шаров созданных

N5=N5

repeat with x = P +1   to P +NNx4     --y --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy4   --z--количество строк

vectorx3  = 85.2417   +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(15.7482,vectorx3 ,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L35 =1

end if -- L24 =1

end  --myobrabotka25

------------------------------------------------------------------

-- Cоздания пятой   стены

--Определяем количество шаров по кординате и кланируем

--1 шаг

on myobrabotka51

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4

If L51 =0   AND N =350  Then

repeat with y=P +1  to  P + NNx5

N2 =y

member("my").model("Sphere01").clone("Sphere"&N2)

end repeat

L51 =1

end if-- L31 =1

end  --myobrabotka41

--2 шаг

--Перемещения клонированных элементов в нужную точку

on myobrabotka52

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4

If     L51 =1     Then  

repeat with y=P +1 to P+NNx5

N1 =y

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518, 0.2417+19*21, 10.9603 ) then

member("my").model("Sphere"&N1).translate(0,1,0,#world)

end if

end repeat

repeat with y=P +1 to P+NNx5

--repeat with y= sum +1   to  sum  +NNx3

N1 =y

if  member("my").model("Sphere"&N1).transform.position >= vector( -26.2518, 0.2417+19*21, 15.9603 ) then

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518+2*21 , 0.2417+19*21, 10.9603 ) then

member("my").model("Sphere"&N1).translate(1,0,0,#world)---для перемещения

end if

end if

end repeat

L52 =1  

end if-- L21 =1

end  --myobrabotka21

--3 шаг

--распределяем  по оси элементы

on myobrabotka53

Ps=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4

If   (L52 =1)  AND (member("my").model.count-3) = Ps +NNx5   then

If  member("my").model("Sphere"&(Ps +NNx5)).transform.position >= vector(15.7482 , 400.2417, 10.9603 )   then

x1=0

repeat with x =Ps +1 to  Ps +NNx5

--

x1=x1+1

vectorx  = 15.7482   +21*(x1-1)

if  member("my").model("Sphere"&x).transform.position <= vector(vectorx ,400.2417  ,10.9603) then

member("my").model("Sphere"&x).translate(1,0,0,#world)

end if

end repeat--x

end if

L53 =1

end if-- L52 =1

end  --myobrabotka23

--кланирования для вертикальной z оси

on  myobrabotka54

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4

If  L53 =1  AND L54 =0 AND N =1300  Then ----увечивает число шаров

--2

N3 =P + NNx5   --Количество шаров созданных

repeat with x =P +1 to P +NNx5     --x --количество шаров по x

repeat with z = 1+1 to NNy5  --z--количество строк

N3 = N3 +1

member("my").model("Sphere"&x).clone("Sphere"&(N3))

end repeat--z

end repeat--x

L54 =1

end if--L3 =1

end if -- L23 =1

end  --myobrabotka54

on  myobrabotka55

Pr= 2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4

--3-число уже созданных обектов например плоскость

If    L54 =1     Then

x2 =0

N5 =Pr + NNx5    --Количество шаров созданных

--N5=N5

repeat with x = Pr +1   to Pr +NNx5     --y --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy5   --z--количество строк

vectorx3  = 16.7482   +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(vectorx3,400.2417  ,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L35 =1

end if -- L24 =1

end  --myobrabotka55

--Создания второй  стены

--Определяем количество шаров по кординате и кланируем

--Определяем количество шаров по кординате и кланируем

--1 шаг

on myobrabotka61

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5

If L61 =0   AND N =1300  Then

repeat with y=P +1  to  P + NNx6

N2 =y

member("my").model("Sphere01").clone("Sphere"&N2)

end repeat

L61 =1

end if-- L31 =1

end  --myobrabotka41

--2 шаг

--Перемещения клонированных элементов в нужную точку

on myobrabotka62

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5

If     L61 =1    Then  

repeat with y=P +1 to P+NNx6

---26.2518   +21*(4-1)

N1 =y

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518 +21*(4-1) , 0.2417, 10.9603 ) then

member("my").model("Sphere"&N1).translate(1,0,0,#world)

end if

end repeat

L62 =1  

end if-- L21 =1

end  --myobrabotka21

--3 шаг

--распределяем  по оси элементы

on myobrabotka63

Ps=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5

If   (L52 =1)  AND (member("my").model.count-3) = Ps +NNx6   then

If  member("my").model("Sphere"&(Ps +NNx6)).transform.position >= vector(-26.2518 +21*(4-1) ,0.2417 , 10.9603 )   then

x1=0

repeat with x =Ps +1 to  Ps +NNx6

--

x1=x1+1

vectorx  = -26.2518 +21*(4-1)   +21*(x1-1)

if  member("my").model("Sphere"&x).transform.position <= vector(vectorx ,0.2417  ,10.9603) then

member("my").model("Sphere"&x).translate(1,0,0,#world)

end if

end repeat--x

--end if-- L52 =1

end if

L63 =1

end if-- L52 =1

end  --myobrabotka23

--кланирования для вертикальной z оси

on  myobrabotka64

P= 2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5

If  L63 =1  AND L64 =0 AND N =1800  Then ----увечивает число шаров

--2

N3 =P + NNx6   --Количество шаров созданных

repeat with x =P +1 to P +NNx6     --x --количество шаров по x

repeat with z = 1+1 to NNy6  --z--количество строк

N3 = N3 +1

member("my").model("Sphere"&x).clone("Sphere"&(N3))

end repeat--z

end repeat--x

L64 =1

end if--L3 =1

end if -- L23 =1

end  --myobrabotka54

on  myobrabotka65

Pr= 2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5

--3-число уже созданных обектов например плоскость

If    L64 =1     Then

x2 =0

N5 =Pr + NNx6    --Количество шаров созданных

--N5=N5

repeat with x = Pr +1   to Pr +NNx6     --y --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy6   --z--количество строк

vectorx3  = -25.2518 +21*(4-1) +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(vectorx3,0.2417  ,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L65 =1

end if -- L24 =1

end  --myobrabotka55

--Создания cедьмой   стены

--Определяем количество шаров по кординате и кланируем

on myobrabotka71

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5+ NNx6*NNy6

If L71 =0   AND N =2000  Then

repeat with y=P +1  to  P + NNx7

N2 =y

member("my").model("Sphere01").clone("Sphere"&N2)

end repeat

L71 =1

end if-- L31 =1

end  --myobrabotka41

--2 шаг

--Перемещения клонированных элементов в нужную точку

on myobrabotka72

P=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5+ NNx6*NNy6

If     L71 =1    Then  

repeat with y=P +1 to P+NNx7

N1 =y

if  member("my").model("Sphere"&N1).transform.position <= vector( -26.2518 +21*(22-1) , 0.2417, 10.9603 ) then

member("my").model("Sphere"&N1).translate(3,0,0,#world)

end if

end repeat

L72 =1  

end if-- L21 =1

end  --myobrabotka21

--3 шаг

--распределяем  по оси элементы

on myobrabotka73

Ps=2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5+ NNx6*NNy6

If   (L72 =1)  AND (member("my").model.count-3) = Ps +NNx7   then

If  member("my").model("Sphere"&(Ps +NNx7)).transform.position >= vector(-26.2518 +21*(22-1) ,0.2417, 10.9603 )   then

x1=0

repeat with x =Ps +1 to  Ps +NNx7

--

x1=x1+1

vectory  = 0.2417   +21*(x1-1)

if  member("my").model("Sphere"&x).transform.position <= vector(-26.2518 +21*(22-1),vectory,10.9603) then

member("my").model("Sphere"&x).translate(0,1,0,#world)

end if

end repeat--x

end if

L73 =1

end if-- L52 =1

end  --myobrabotka23

on  myobrabotka74

P= 2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5 +NNx6*NNy6

If  L73 =1  AND L74 =0 AND N =2600  Then ----увечивает число шаров

--2

N3 =P + NNx7   --Количество шаров созданных

repeat with x =P +1 to P +NNx7     --x --количество шаров по x

repeat with z = 1+1 to NNy7  --z--количество строк

N3 = N3 +1

member("my").model("Sphere"&x).clone("Sphere"&(N3))

end repeat--z

end repeat--x

L74 =1

end if--L3 =1

end if -- L23 =1

end  --myobrabotka54

on  myobrabotka75

Pr= 2*(NNx*NNy)+NNx3*NNy3+ NNx4*NNy4 + NNx5*NNy5 +  NNx6*NNy6

--3-число уже созданных обектов например плоскость

If    L74 =1     Then

x2 =0

N5 =Pr + NNx7    --Количество шаров созданных

--N5=N5

repeat with x = Pr +1   to Pr +NNx7     --y --количество шаров по x

x2 =x2+1

repeat with z = 1+1 to NNy7   --z--количество строк

vectory3  = 1.2417   +21*(x2-1)

vectorz3  = 10.9603  +21*(z-1)

N5 = N5 +1

if  member("my").model("Sphere"&N5).transform.position <=vector(-26.2518 +21*(22-1),vectory3  ,vectorz3 ) then

member("my").model("Sphere"&N5).translate(0,0,1,#world)

end if--N3

end repeat--z

end repeat--x

L75 =1

end if -- L24 =1

end  --myobrabotka55