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:

type
  TDir = (dNone, dLeft, dRight, dUp, dDown);
  TWayKinds = set of TDir;

const
  DirVects : array[0..4]of TPoint = ((x:0;y:0),(x:-1;y:0),(x:1;y:0),(x:0;y:-1),(x:0;y:1)); // zu ordnung der abstrkten richtungen (TDir) in vectoren
  cWayMax     = 16;
  FieldDef : array[0..cWayMax-1] of TWayKinds =
             ([],
              [dLeft ,dRight],
              [dUp   ,dDown ],
              [dRight,dDown ],
              [dDown ,dLeft ],
              [dLeft ,dUp   ],
              [dUp   ,dRight],
              [dLeft ,dRight,dDown ],
              [dUp   ,dDown ,dLeft ],
              [dLeft ,dRight,dUp   ],
              [dUp   ,dDown ,dRight],
              [dLeft ,dRight,dUp   ,dDown ],
              [dRight],
              [dDown],
              [dLeft],
              [dUp]);


Type
     TField = record
        way   : byte; // index des wegtyps, der in FieldDef definiert ist
        item  : byte;
     end;
  
     TMatrix = array of array of TField; // labyrinth map

var matrix:TMatrix; // irgendwie füllen...am besten mit einem map-editor
     pos:Tpoint = (x:1;y:1);
     inputDir:TDir = dNone;
     moveVect:TPoint;
...
// tasten eingabe auslesen...und irgendwie..zB:
// inputDir := dUp;

  moveVect := DirVects[TDir(dNone)]; 

// beim bewegen des player (pos) auf der map
 if inputDir in FieldDef [Matrix[pos.x,pos.y].way] then  // prüfen ob die richtung, in die man will, möglich ist
   moveVect := DirVects[TDir(inputDir)]; // echte richtung holen

 pos.x := pos.x + moveVect.x; // bewegen
 pos.y := pos.y + moveVect.y;

...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

// Das ist die Karte
karte : array[0..4] of array[0..3] of Boolean = 
 ( (1, 1, 1, 1),
  (1, 0, 0, 1),
  (1, 1, 0, 1),
  (1, 0, 0, 1),
  (1, 1, 1, 1) );

startPunkt: TPoint;

// startPunkt initiieren
startPunkt.x := 2; startPunkt.y := 3;

// Hier die Tastaturbehandlung
 if wennNaechstesKeineWand(startPunkt, richtung) then begin
   bewege(startPunkt, richtung);
   zeichneKarte(karte);
   zeichneSpieler(startPunkt);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

const
 mapX= 39;
 MapY=23;

type
  TMap= record
    Tex, Typ:Integer;  
  end;

var
  Map:TMap

draw:
...
create:
...