unit map;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Addresses;

type
  TItemRec = record
    Index: Integer;
    Volume: Integer;
    Count: Integer;
    Id: string;
  end;
  TMApRec = record
      ID: LongWord;
      Count: integer;
      Order1: integer;
      Order2: integer;
      Order3: integer;
      Order4: integer;
      Order5: integer;
      Order6: integer;
      Order7: integer;
      Order8: integer;
      Order9: integer;
      Order10: integer;
      Items: array[0..9] of TItemRec;
  end;

  TMap = class

    GameMap : array[0..8,0..14,0..$12] of TMapRec;          //it bugs because of this structure....



  public
   procedure Update;
end;

implementation

uses
  unit1;

procedure TMap.Update;
var
iD, num2,i,j,k,m,num7,num8,playerMapIndex: integer;
buffer: Tbytes;
Map:TMap;
begin
i:=0;
while i < 8 do
begin
  j:=0;
  while j < 14 do
    begin
      k:=0;
      while k < $12 do
        begin
          m:= 0;
          while m < 10 do
          begin
          showmessage('asdf');
           GameMap[i,j,k].Items[m].Id:= (inttostr(i)+' '+inttostr(j)+' '+inttostr(k)+' '+inttostr(m));
           showmessage((GameMap[i,j,k].Items[m].Id));
           inc(m);
          end;
          inc(k);
        end;
        inc(j);
    end;
    inc(i);
end;
end;
end.