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:

var
  x,y,i,p,m:Integer;
begin
  GLXDraw.Clear;
//  sx:=0; sy:=0;

  if Player.Players[Player.index].x-Player.DX >= 0 then
    p:=(Player.Players[Player.index].x-Player.DX)
  else
    p:=0;


  for x:=0 to MapX  do begin
    for y:=0 to MapY do begin

      if Karte[x,y].typ > -1 then begin
        for i:=0 to High(Karte[x,y].Tex) do begin
          if x-p >0 then
            m:=x-p
          else
            m:=p-x;
          if p > 0 then
            GLXImageList.Items[Karte[x,y].typ].Draw(m * MapS,Y*MapS,Karte[x,y].Tex[i] )
          else
            GLXImageList.Items[Karte[x,y].typ].Draw( X*MapS,Y*MapS,Karte[x,y].Tex[i] )

        end;
      end;

    end;
  end;