Function OptimizeLandscape2()
 ; this function creates a mesh with all the remaining layers and ignores all the Tris that are
 ; fully invisible
 EntityParent layer(1),0
 EntityParent layer(2),0
 EntityParent layer(3),0
 EntityParent layer(4),0
 EntityParent layer(5),0

 ; build the optimized mesh
 landscape2=CreateMesh()
 For ch=numlayers To 2 Step -1
  child=layer(ch)
  For su=1 To CountSurfaces(child)
   surf=GetSurface(child,su)

   brush=GetSurfaceBrush(surf)
   surf2=CreateSurface(landscape2,brush)
   For tri=0 To CountTriangles(surf)-1

    v_x0#=VertexX(surf,TriangleVertex(surf,tri,0))
    v_x1#=VertexX(surf,TriangleVertex(surf,tri,1))
    v_x2#=VertexX(surf,TriangleVertex(surf,tri,2))

    v_y0#=VertexY(surf,TriangleVertex(surf,tri,0))
    v_y1#=VertexY(surf,TriangleVertex(surf,tri,1))
    v_y2#=VertexY(surf,TriangleVertex(surf,tri,2))

    v_z0#=VertexZ(surf,TriangleVertex(surf,tri,0))
    v_z1#=VertexZ(surf,TriangleVertex(surf,tri,1))
    v_z2#=VertexZ(surf,TriangleVertex(surf,tri,2))

    v_u0#=VertexU(surf,TriangleVertex(surf,tri,0))
    v_u1#=VertexU(surf,TriangleVertex(surf,tri,1))
    v_u2#=VertexU(surf,TriangleVertex(surf,tri,2))

    v_v0#=VertexV(surf,TriangleVertex(surf,tri,0))
    v_v1#=VertexV(surf,TriangleVertex(surf,tri,1))
    v_v2#=VertexV(surf,TriangleVertex(surf,tri,2))

    v_a0#=VertexAlpha(surf,TriangleVertex(surf,tri,0))
    v_a1#=VertexAlpha(surf,TriangleVertex(surf,tri,1))
    v_a2#=VertexAlpha(surf,TriangleVertex(surf,tri,2))


    If (v_a0<>0.0) Or (v_a1<>0.0) Or (v_a2<>0.0)
     v0=AddVertex(surf2,v_x0,v_y0,v_z0,v_u0,v_v0)
     VertexColor surf2, v0,255,255,255,v_a0
     v1=AddVertex(surf2,v_x1,v_y1,v_z1,v_u1,v_v1)
     VertexColor surf2, v1,255,255,255,v_a1
     v2=AddVertex(surf2,v_x2,v_y2,v_z2,v_u2,v_v2)
     VertexColor surf2, v2,255,255,255,v_a2
     AddTriangle(surf2,v0,v1,v2)
    EndIf
   Next
  Next
 Next

 Print "welding..."
 weld(landscape2)

 ScaleMesh landscape2,lscale,lscale,lscale
 UpdateNormals landscape2
 EntityFX landscape2,32
 Print "oki"
 EntityParent layer(1),layer(2)
 EntityParent layer(2),layer(3)
 EntityParent layer(3),layer(4)
 EntityParent layer(4),layer(5)
 EntityParent layer(5),layer(6)

 Return landscape2
End Function

skybox=load... ;das ding kann auch nur 2 einheiten gross sein
entityorder skybox,-1 ;damit sie immer hinter allem anderen erscheint

;und in der Hauptschleife dann die SkyBox immer auf die Koordinaten der Kamera setzten

positionentity skybox,entityx(cam),entity(cam),entityz(cam)