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

type
 TFeld = class
    passierbar: boolean;
    top    : integer;
    left   : integer;
    width  : integer;
    height : integer;
    oberflaeche: integer;
  end;

var
  Spielfelder  : array [0..100,0..100] of TFeld;
  backpuffer: TBitmap;
  Landschaften: Array[1..15] of TBitmap;


function TF_main.RectinRect(rect1,rect2: Trect): boolean;
begin //für BB
  result := true;
  if (rect1.Left > rect2.BottomRight.x) then result:=false;
  if (rect1.top > rect2.BottomRight.y) then result:=false;
  if (rect2.Left > rect1.BottomRight.x) then result:=false;
  if (rect2.top > rect1.BottomRight.y) then result:=false;
end;					

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:

  For i := 1 to 15 do
  begin
    Landschaften[i] := TBitmap.Create;
  end;
  Landschaften[1].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L1 beach.bmp');
  Landschaften[2].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L2 beach.bmp');
  Landschaften[3].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L3 beach.bmp');
  Landschaften[4].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L4 beach.bmp');
  Landschaften[5].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L5 beach.bmp');
  Landschaften[6].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L6 beach.bmp');
  Landschaften[7].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L7 beach.bmp');
  Landschaften[8].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L8 beach.bmp');
  Landschaften[9].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L9 beach.bmp');
  Landschaften[10].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L10 beach.bmp');
  Landschaften[11].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L11 beach.bmp');
  Landschaften[12].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L12 beach.bmp');
  Landschaften[13].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenunpassierbar\L13 Felsen.bmp');
  Landschaften[14].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenpassierbar\L1 gras.bmp');
  Landschaften[15].LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bilder\Landschaftenpassierbar\L2 wasser.bmp');


Application.OnIdle := F_main.GameLoop;
  for x := 0 to heigh() do
  begin
    for y := 0 to heigh() do
    begin
      Spielfelder[x,y] := TFeld.create;
      Spielfelder[x,y].width := 25;
      Spielfelder[x,y].height := 25;
      Spielfelder[x,y].top := y;
      Spielfelder[x,y].left := x;
      Spielfelder[x,y].passierbar := true;
      Spielfelder[x,y].oberflaeche := 15;
    end;
  end;					

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

//onidel = Ereigniss das ausgelöst wird wenn das programm gerade nichts macht
//also ein guter zeitpunkt um zu zeichne
Procedure TF_main.GameLoop(Sender: TObject; var Done: Boolean); 
Begin
  Done := False;

  for x := 0 to heigh(Spielfelder) do
  begin
    IF ((Spielfelder[x,1].left) >= 0) and (Spielfelder[x,1].left <= (backpuffer.Width div 25)) then {nur der sichtbare bereich wird getzeichnet}
    begin
      for y := 0 to heigh(Spielfelder) do
      begin
       IF (Spielfelder[x,y].top >= 0) and (Spielfelder[x,y].top <= (backpuffer.height div 25)-5) then {nur der sichtbare bereich wird getzeichnet}
       begin //25 ist die breite der Felder
            BitBlt(backpuffer.canvas.handle, karte.Spielfelder[x,y].left*25, Spielfelder[x,y].top*25, Spielfelder[x,y].width, Spielfelder[x,y].height, Landschaften[Spielfelder[x,y].oberflaeche].Canvas.Handle, 0, 0, srccopy);
          
        end;
      end;
    end;
  end;

  BitBlt(F_main.canvas.handle, 0, 0, backpuffer.Width, backpuffer.Height, backpuffer.canvas.handle, 0, 0, srccopy);

End;					

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

   karte.Spielfelder[10,10].passierbar := false;
  karte.Spielfelder[10,10].oberflaeche := 1;
  karte.Spielfelder[9,10].passierbar := false;
  karte.Spielfelder[9,10].oberflaeche := 2;
  karte.Spielfelder[9,9].passierbar := false;
  karte.Spielfelder[9,9].oberflaeche := 3;
  karte.Spielfelder[9,8].passierbar := false;
  karte.Spielfelder[9,8].oberflaeche := 4;
  karte.Spielfelder[10,8].passierbar := false;
  karte.Spielfelder[10,8].oberflaeche := 5;
  karte.Spielfelder[10,8].passierbar := false;
  karte.Spielfelder[11,8].oberflaeche := 6;
  karte.Spielfelder[11,8].passierbar := false;
  karte.Spielfelder[11,9].oberflaeche := 7;
  karte.Spielfelder[11,9].passierbar := false;
  karte.Spielfelder[11,10].oberflaeche := 8; 
  ......					

1:
2:
3:
4:
5:
6:

Type TDaten = Record
                           begehbar:boolean;
                           untergrund:byte;
                       end; 

        TFeld  = array[1..30;1..30] of TDaten;					

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

Type TDaten = Record
                           begehbar:boolean;
                           untergrund:byte;
                       end; 

         TMonster = Record
                              Position:tpoint;
                               monsterart:byte;
                           end;

        TFeld  = record
                        feld:array[1..30;1..30] of TDaten;  
                        monsterliste:array of TMonster;
                        max_monster:integer;
                     end;