- Код: Выделить всё
'Нижняя часть куба
Map(MapVertexNum).Vertex(0) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(1) = CreateVertex(X, Y, Z2, TexSizeX, 0)
Map(MapVertexNum).Vertex(2) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(3) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(4) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(5) = CreateVertex(X2, Y, Z, 0, TexSizeY)
'Верхняя часть куба
Map(MapVertexNum).Vertex(6) = CreateVertex(X, Y2, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(7) = CreateVertex(X, Y2, Z2, TexSizeX, 0)
Map(MapVertexNum).Vertex(8) = CreateVertex(X2, Y2, Z2, 0, 0)
Map(MapVertexNum).Vertex(9) = CreateVertex(X, Y2, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(10) = CreateVertex(X2, Y2, Z2, 0, 0)
Map(MapVertexNum).Vertex(11) = CreateVertex(X2, Y2, Z, 0, TexSizeY)
'Задняя часть куба
Map(MapVertexNum).Vertex(12) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(13) = CreateVertex(X, Y, Z2, TexSizeX, 0)
Map(MapVertexNum).Vertex(14) = CreateVertex(X, Y2, Z2, 0, 0)
Map(MapVertexNum).Vertex(15) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(16) = CreateVertex(X, Y2, Z2, 0, 0)
Map(MapVertexNum).Vertex(17) = CreateVertex(X, Y2, Z, 0, TexSizeY)
'Передняя часть куба
Map(MapVertexNum).Vertex(18) = CreateVertex(X2, Y2, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(19) = CreateVertex(X2, Y2, Z2, TexSizeX, 0)
Map(MapVertexNum).Vertex(20) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(21) = CreateVertex(X2, Y2, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(22) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(23) = CreateVertex(X2, Y, Z, 0, TexSizeY)
'Левая часть куба
Map(MapVertexNum).Vertex(27) = CreateVertex(X, Y2, Z2, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(28) = CreateVertex(X, Y, Z2, TexSizeX, 0)
Map(MapVertexNum).Vertex(29) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(24) = CreateVertex(X, Y2, Z2, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(25) = CreateVertex(X2, Y, Z2, 0, 0)
Map(MapVertexNum).Vertex(26) = CreateVertex(X2, Y2, Z2, 0, TexSizeY)
'Правая часть куба
Map(MapVertexNum).Vertex(30) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(31) = CreateVertex(X, Y2, Z, TexSizeX, 0)
Map(MapVertexNum).Vertex(32) = CreateVertex(X2, Y2, Z, 0, 0)
Map(MapVertexNum).Vertex(33) = CreateVertex(X, Y, Z, TexSizeX, TexSizeY)
Map(MapVertexNum).Vertex(34) = CreateVertex(X2, Y2, Z, 0, 0)
Map(MapVertexNum).Vertex(35) = CreateVertex(X2, Y, Z, 0, TexSizeY)
Уточню правильно работает только "Правая часть куба"