Function CreateLandscape()

  For x=-1 To 28
    temp=(temp+1) Mod 2                 
    For y=1 To 21
      If x < 3 Or x > 25 Or y < 3 Or y > 19 Then ; Wasser               
        l.landscape=New landscape
        l\X=x*18-20
        l\Y=y*24-temp*12-30
        l\Owner=-1
        l\building=0
        l\Typ=3 ; Wasser
      Else ; Wenn nicht am rand, land
        Rnd=Rnd(100)
        Select True
          Case Rnd=>0 And Rnd<=49 ; 50%
            ; Wiese
            l.landscape=New landscape
            l\X=x*18-20
            l\Y=y*24-temp*12-30
            l\Owner=-1
            l\building=0
            l\Typ=0
          Case Rnd=>50 And Rnd<=80 ; 30%
            ; Berg
            l.landscape=New landscape
            l\X=x*18-20
            l\Y=y*24-temp*12-30
            l\Owner=-1
            l\building=0
            l\Typ=1
          Case Rnd=>81 And Rnd<=91 ; 10%
            ; Moor
            l.landscape=New landscape
            l\X=x*18-20
            l\Y=y*24-temp*12-30
            l\Owner=-1
            l\building=0
            l\Typ=2
          Default
            ; Wasser
            l.landscape=New landscape
            l\X=x*18-20
            l\Y=y*24-temp*12-30
            l\Owner=-1
            l\building=0
            l\Typ=3
        End Select
      EndIf
    Next                               
  Next     

End Function