For x = 0 To 40
      For y = 0 To 40
         map(x,y) = CreateMesh()
         ;maptex(x,y) = LoadTexture("world\ground1.jpg")
         tmpbrush = CreateBrush()
         BrushTexture tmpbrush,m\tex1
         tmpsurface= CreateSurface(map(x,y),tmpbrush)
         v0 = AddVertex(tmpsurface,0,0,0,0,0)
          v1 = AddVertex(tmpsurface,0,0,1,0,0.5)
         v2 = AddVertex(tmpsurface,1,0,0,0.5,0)
         tri = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,0,0,1,0,0.5)
         v1 = AddVertex(tmpsurface,1,0,1,0.5,0.5)
         v2 = AddVertex(tmpsurface,1,0,0,0.5,0)
         tri2 = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,1,0,1,0.5,0.5)
         v1 = AddVertex(tmpsurface,0,0,1,0,0.5)
         v2 = AddVertex(tmpsurface,0,0,2,0,1)
         tri3 = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,0,0,2,0,1)
         v1 = AddVertex(tmpsurface,1,0,2,0.5,1)
         v2 = AddVertex(tmpsurface,1,0,1,0.5,0.5)
         tri4 = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,1,0,2,0.5,1)
         v1 = AddVertex(tmpsurface,2,0,2,1,1)
         v2 = AddVertex(tmpsurface,2,0,1,1,0.5)
         tri5 = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,2,0,1,1,0.5)
         v1 = AddVertex(tmpsurface,1,0,1,0.5,0.5)
         v2 = AddVertex(tmpsurface,1,0,2,0.5,1)
         tri6 = AddTriangle(tmpsurface,v0,v1,v2)
         
         v0 = AddVertex(tmpsurface,2,0,0,1,0)
         v1 = AddVertex(tmpsurface,1,0,1,0.5,0.5)
         v2 = AddVertex(tmpsurface,2,0,1,1,0.5)
         tri7 = AddTriangle(tmpsurface,v0,v1,v2)
         ;...........
                                  ;und noch ein paar dazu
         
         PaintMesh map(x,y),tmpbrush
         UpdateNormals map(x,y)
         ScaleEntity map(x,y),0.5,0.5,0.5
         PositionEntity map(x,y),x*1.5,0,y*1.5
         EntityPickMode map(x,y),2
         EntityType map(x,y), 1
         tmpBrush = 0
         ;tmpsurface = 0
         
      Next
   Next

If MouseDown(2) Then
      ent = CameraPick(m\camera,MouseX(),MouseY())
         For x = 0 To 40
            For y = 0 To 40
               If map(x,y) = ent Then
                  cSurf = PickedSurface()
                  eX = EntityX(map(x,y))
                  eZ = EntityZ(map(x,y))
                  For i = 0 To CountVertices(cSurf)-1
                     vX = VertexX(cSurf, i)
                     vZ = VertexZ(cSurf, i)
                     If PickedX() > (eX+vX)-0.1 And PickedX() < (eX+vX)+0.1 Then
                        If PickedZ() > (eZ+vZ)-0.1 And PickedZ() < (eZ+vZ)+0.1 Then
                           VertexCoords cSurf, i, vX,VertexY(cSurf, i)+0.1,vZ
               
                        End If

                     End If
                  Next
               End If
            Next
         Next

   End If

Function high_terrain(picked_entity)
 picked_surface = PickedSurface()
 For vertex = 0 To CountVertices(picked_surface)-1
  vertex_x = VertexX(picked_surface,vertex)
  vertex_z = VertexZ(picked_surface,vertex)
  vertex_y = VertexY(picked_surface,vertex)
   If PickedX() > (vertex_x+EntityX(picked_entity)-0.5) And PickedX() < (vertex_x+EntityX(picked_entity)+0.5) Then
    If PickedZ() > (vertex_z+EntityZ(picked_entity)-0.5) And PickedZ() < (vertex_z+EntityZ(picked_entity)+0.5) Then
     VertexCoords picked_surface,vertex,vertex_x,VertexY(picked_surface,vertex)+0.01,vertex_z
   
     
      For check_surface = 0 To CountSurfaces()-1
       For check_vertex = 0 To CountVertices(picked_surface)-1
        If VertexX(check_surface,check_vertex) = vertex_x And VertexZ(check_surface,check_vertex) = vertex_z Then
         VertexCoords check_surface,check_vertex,vertex_x,VertexY(picked_surface,vertex)+0.01,vertex_z
        End If
       Next
      Next


    End If
   End If
 Next
End Function