map_hoch = 100
map_breit = 100

Graphics3D 640,480,16,2
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera,10,-10,-5
RotateEntity camera , -25, 0, 0
licht=CreateLight()
RotateEntity licht,90,0,0
Dim mapvertex(map_breit,map_hoch,1,1)
Dim mapsurface(map_breit,map_hoch)

brush=LoadBrush("textur.PNG")
brush2=LoadBrush("textur2.PNG")
map=CreateMesh()
EntityPickMode map, 2

For x = 0 To map_breit - 1
   For y = 0 To map_hoch - 1
      mapsurface(x, y) = CreateSurface(map, brush)
      mapvertex(x, y, 1, 0) = AddVertex(mapsurface(x, y),1+x,0-y,0, 1, 0)
      mapvertex(x, y, 1, 1) = AddVertex(mapsurface(x, y),1+x,-1-y,0, 1, 1)
      mapvertex(x, y, 0, 1) = AddVertex(mapsurface(x, y),0+x,-1-y,0, 0, 1)
      mapvertex(x, y, 0, 0) = AddVertex(mapsurface(x, y),0+x,0-y,0, 0, 0)
      AddTriangle(mapsurface(x, y),mapvertex(x, y, 1, 0),mapvertex(x, y, 1, 1),mapvertex(x, y, 0, 1))
      AddTriangle(mapsurface(x, y),mapvertex(x, y, 0, 0),mapvertex(x, y, 1, 0),mapvertex(x, y, 0, 1))   
      PaintSurface mapsurface(x, y), brush
Next
Next
UpdateNormals map

While Not KeyHit(1)
maus_x = MouseX()
maus_y = MouseY()
tileauswahl=CameraPick(camera,maus_x, maus_y)
If tileauswahl <> 0 And MouseDown(1) Then
   tileauswahlsurface = PickedSurface()
   PaintSurface tileauswahlsurface, brush2
EndIf
RenderWorld
Flip
Wend
End