1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

  TSokubahn = class
    GLXImageList:TGLXImageList;
    GLXFont1: TGLXFont;
    Map:array of array of TMap; // Enthält alle Karten angaben
    Tasten:array[0..6] of Byte; // Aktive Tasten
    Keys:array[0..256] of Boolean; // Enhält die gedrückten Tasten
    Undos:array of TUndo; // Für eine Rückgänig funktion
    UndoIndex:Integer; // der indx von Undo

    IniFile:String; // Konfiguierungs Datei
    StartPositionen:String; // hier stehen die verschienden start positionen drin(vom Player)
    ZielIndex:Integer;
    Player:TPlayer; // für den Spieler


    // fürs Dialog
    DialogText:String; // für das Dialog
    strCaption:String; // z.b. Hinweis.... fürs dialog
    strText:String; // der Inhalt im Dialog(text im dialog)
    DrawDialog:Boolean; // wenn True dann wir das dialog gezeichnet, anderfalnst nicht
    DialogTyp:Integer; // 0 für OK dialog und 1 für JA oder NEIN dialog
    DialogKey:Integer; // für JA bzw. NEIN
  private

    IS_FPS:Boolean; // wurde FPS anzeige aktivert oder nicht ?
    GameSound:TSound;
    // Karten Größen
    MapX:Integer;
    MapY:Integer;
    MapS:Integer;
    procedure ClearMap; // löscht die Map
    procedure SetPlayerPos(NewX, NewY:Integer); // Verändert die Player Postion
    procedure MoveKiste(NewX, NewY,OldX, OldY,DirX, dirY:Integer); // verschiebt eine Kiste
    procedure LoadKey; // lädt die Tasten definantion aus einer Extrenen Datei
    procedure KeyCheck; // prüft die Tasten
    procedure SetUndoPos; // macht einen Befehl rückgänig

    procedure DrawText(Str : string; x,y,s,i:Integer; color,color1:TColor); // Zeichen den angeben Text
    procedure setMapSize(aMapX, aMapY,aMapS: Integer); // Veränder die mapgröße

    function KisteOnZiel:Integer; // Gibt den Count der Geschaften Kisten zurück
    function GetObjektCount(Typ:Integer):Integer; // gibt die anzahl der in TYP angebene Objekt Count zurück
    function PlayerRandomPos(Pos1:String):TPoint; // ermiettelt eine Zufalls Start Postiioen
    function ShowMyDialog(aCaption, aDialogText:String; aDialogTyp:Integer):Integer;

  public
    GLXDraw:TGLXDraw;
    FPS:Integer; // enthält die FPS anzahl
    constructor create(GXLDraw:TGLXDraw;GLXDraw2:TGLXDraw); // erstellt ein "Neues Spiel"
    procedure CreateRandomMap; // Erstellt eine Zufalls Karte
    procedure DrawGame; // Zeichnet das Spiel
    procedure LoadFileMap(pFileName,PlayerName:String); // Lädt die Karte aus einer datei
    procedure InputKey(Key:Word; off:Boolean); // Übermittelt der Klasse die gedrückten Tasten
end;					

1:

procedure Map; //Lädt die Landkarte					

1:

procedure LandkarteLaden;					

1:

procedure LandkarteLaden; //Lädt die Landkarte