Function LoadLevel()
   Local Stream
   Local FastBuild = True
   Local FirstObj = True
   Local FirstMesh
   
   If cmd$ = "debug" Then
      Stream = ReadFile("Map\robot.txt")
   Else
      Stream = ReadFile(pak("Map\robot.txt"))
   End If
   While Not Eof(Stream)
      Level.Level = New Level
      Level\Datei$ = ReadString$(Stream)
      Level\px% = ReadInt(Stream)
      Level\py% = ReadInt(Stream)
      Level\pz% = ReadInt(Stream)
      Level\rx% = ReadInt(Stream)
      Level\ry% = ReadInt(Stream)
      Level\rz% = ReadInt(Stream)
      Level\alpha# = ReadFloat(Stream)
      
      If cmd$ = "debug" Then
         Level\ID% = LoadMesh("3D\" + Level\Datei$)
      Else
         Level\ID% = LoadMesh(pak("3D\" + Level\Datei$))
      End If
      ;EntityType Level\ID%,1
      ;EntityAlpha Level\ID%,Level\alpha#
      
      If FastBuild = True Then
         PositionMesh Level\ID%,Level\px%,Level\py%,Level\pz%
         RotateMesh Level\ID%,Level\rx%,Level\ry%,Level\rz%
         If FirstObj = True Then
            FirstMesh = Level\ID%
            FirstObj = False
         Else
            AddMesh Level\ID%,FirstMesh
            FreeEntity Level\ID%
            Delete Level
         End If   
      Else
         PositionEntity Level\ID%,Level\px%,Level\py%,Level\pz%
         RotateEntity Level\ID%,Level\rx%,Level\ry%,Level\rz%
      End If
   Wend
   CloseFile(Stream)
   EntityType FirstMesh,1
End Function

   Local Stream
   Local FastBuild = True
   Local FirstObj = True
   Local FirstMesh