Type TGS_SinglePlayer Extends TGameState


   [color=red]Field playMap:TMapData ' HIER IST DAS PROBLEM[/color]

   Field img_Tileset:TImage = LoadAnimImage("gfx\tileset.jpg", 50, 50, 0, 3)
   Field LMapList:TList = CreateList()
   
   Method enter()
       FlushKeys
       'Erstes MenüItem focusieren
       sel_MnuItem = 1
   End Method
   
   Method process:Int()
      
      If KeyHit(KEY_N)
         Return GAMESTATE_NEW_SP
      ElseIf KeyHit(KEY_L)
         Return GAMESTATE_LOAD_SP
      ElseIf KeyHit(KEY_BACKSPACE)
         Return GAMESTATE_MENU
      ElseIf KeyHit(KEY_DOWN)
      ...
         
      ElseIf KeyHit(KEY_ENTER)
         Select sel_MnuItem
            Case 1   'neues Spiel
               Return GAMESTATE_NEW_SP
               
            Case 2   'Spiel laden
               Return GAMESTATE_LOAD_SP
         End Select
      EndIf
   
      Self.Draw()
   End Method
   
   Method leave()
...
   End Method
   
   Method Draw()
      ...
   End Method

End Type

Type TGS_NEW_SinglePlayer Extends TGS_SinglePlayer
   
   Field select_Map:Byte      'Aktuell gewählte Karte
   Field max_MAP:Byte = 1      'vom Programm erkannte Anzahl an Karten im spiel (vorsicht, variabel. Eine erkannte "x.MAP"-Datei entspicht einer Karte)
   Field select_Race:Byte
   Field pfad_Map:String[10]      'vorerst auf 10 beschränkt
   Field pfad_Mapdir:String = "Data\Maps"
   Field dir_Maps:Int = ReadDir("Data\Maps\")
   
   Method enter()
      Select_MAP = 1
      sel_MnuItem = 1
      
      'ermittle Anzahl an Karten

...      
      pfad_Map[1] = "Test.txt"
      
      'Laden der Karte aus der Datei
      Self.LoadMap(1)
   End Method
   
   Method LoadMap(mapID:Int)
      Local s_Datei:TStream = ReadFile("Data\Maps\" + pfad_Map[mapID])
      
      'erstellen eines lokalen Map-Objekts
      Local map:TMapData
      map = New TMapData
      playMap = New TMapData
      
      'Laden aus Datei
      Local lversion:String = ReadLine(s_Datei)
      'Speichern in Map
      map.version = lversion
      
      ...      
      For Local x:Byte = 0 To data_Anz_TileX - 1
         For Local y:Byte = 0 To data_Anz_TileY - 1
                                                            [size=9][size=18][size=9][color=red] playMap.data_Map[x, y, 1] = ReadByte(s_Datei)[/color][/size][/size][/size]
         Next
      Next
      
'Maps werden in einer Liste gespeichert, später wird mit der ID der Karte das dazugehörige Objekt TMapData aufgerufen
      LMapList.AddLast(map)
   End Method
   
   Method process:Int()
   
      ...      
      Self.Draw()
      
      
   End Method

   Method Draw()
      ...
      
   End Method
   
   Method leave()
       PlaySound(snd_leave)
   End Method

End Type

Type TGS_RUN_SingePlayer Extends TGS_SinglePlayer


   Field img_TilesetGAME:TImage = LoadAnimImage("gfx\tileset.jpg", 50, 50, 0, 3)
   
   Method enter()
      SetGraphics (Graphics(1366, 768, 1))
   End Method
   
   Method process:Int()
   
      'Abfragen des Spielers via Mouse (muss noch implementiert werden)
      
      If KeyHit(KEY_ESCAPE)
         Return GAMESTATE_MENU   
      End If

      Self.Draw()
   End Method
   
   Method Draw()
      
       For Local x:Int = 0 To 18
            For Local y:Int = 0 To 13
               DrawImage(img_TilesetGAME, 0 + x * 50, 50 + y * 50, [size=24][color=red]playMap.data_Map[x, y, 1])[/color][/size]
            Next
      Next
   End Method
   
   Rem
      bbdoc:Beenden des Gamestates
   End Rem
   Method leave()
       SetGraphics(Graphics(800, 600, 0))
   End Method




End Type