Function levelladen(datname$,name.map,cam1.camera,cam2.camera)
;
;file laden
file=ReadFile(datname)
;mapname
name\name=ReadLine(file)
;terrain laden
name\h=LoadTerrain(ReadLine(file))
;texturieren
tex=LoadTexture(ReadLine$(file))
EntityTexture name\h,tex
;camera einstellungen
Select cmode=ReadLine(file)
   Case 0
      cam1.camera=New camera
      cam1\h=CreateCamera()
      If cam1\h=0 Then RuntimeError "´Camera1 nichtg geladen"
      EntityParent kugel,cam1\h
      
      cam2.camera=New camera
      cam2\h=CreateCamera()
      If cam2\h=0 Then RuntimeError "´Camera2 nichtg geladen"
;      CameraProjMode cam2\h,0
DebugLog "1 "+cam1\h
DebugLog "2 "+cam2\h
   Case 1
      cam1.camera=New camera
      cam1\h=CreateCamera()
      EntityParent kugel,cam1\h
   Case 2
      cam2.camera=New camera
      cam2\h=CreateCamera()
      EntityParent kugel,cam2\h
End Select
;strecken
name\sfx=Int(ReadLine(file))
name\sfy=Int(ReadLine(file))
name\sfz=Int(ReadLine(file))
ScaleEntity name\h,name\sfx,name\sfy,name\sfz
;positionieren
name\x=Int(ReadLine(file))
name\y=Int(ReadLine(file))
name\z=Int(ReadLine(file))
PositionEntity name\h,name\x,name\y,name\z
;ambientlight
AmbientLight 0,0,Int(ReadLine(file))
;fog
If ReadLine(file)=1 Then
fmin=ReadLine(file)
fmax=ReadLine(file)
fcolor$=ReadLine(file)
Select cmode
   Case 0
      CameraFogMode cam1\h,cam1\fogtype=1
      CameraFogMode cam2\h,cam2\fogtype=1
      CameraFogRange cam1\h,cam1\fograngemin=fmin,cam1\fograngemax=fmax
      CameraFogRange cam2\h,cam2\fograngemin=fmin,cam2\fograngemax=fmax
      CameraFogColor cam1\h,0,0,cam1\fogcolor=fcolor
      CameraFogColor cam2\h,0,0,cam2\fogcolor=fcolor
   Case 1
      CameraFogMode cam1\h,cam1\fogtype=1
      CameraFogRange cam1\h,cam1\fograngemin=fmin,cam1\fograngemax=fmax
      CameraFogColor cam1\h,0,0,cam1\fogcolor=fcolor
   Case 2
      CameraFogMode cam2\h,cam2\fogtype=1
      CameraFogRange cam2\h,cam2\fograngemin=fmin,cam2\fograngemax=fmax
      CameraFogColor cam2\h,0,0,cam2\fogcolor=fcolor
End Select
Else
ReadLine(file)
ReadLine(file)
ReadLine(file)
EndIf

;
End Function

Global cam_1p.camera=New camera
Global cam_3p.camera=New camera
Global level.map=New map
levelladen("gamedata\data\ego_map_1.map",level,cam_1p,cam_3p)

test     ;name der map
gamedata\graphics\hmap_1024.bmp    ;position der highmap
gamedata\texturen\gras.jpg                ;position der highmaptextur
0                  ;0=1person und 3person 1=1person, 2=3.person view
1                  ;scalierungsfaktor x
50                ;          "      y
1                   ;                z
0                  ;position x y z
-2
0
FFFFFF           ;ambientlight als hex
1                  ;fog an/aus
400               ;fog min/max
600
5F5F5F          ;fogcolor
0                  ;keine ahung mehr :-)
1                  ;plane dazu??? 1/0
gamedata\texturen\water05.jpg   ,planetexture und plane x,y,z
0
0
0