Чтение и запись карты.

[Ckomoroh]

Я создаю игру (точнее улучшаю уже). Нужно чтобы в файле было записано:
-Координата Х ячейки
-Координата Y ячейки
-Проходима ли ячейка или нет
-Название текстуры
-Название маски
И из программы читались эти данные, и если надо, при изменении сохранялись.

Можно ли сделать это наподобие двухмерного массива, где столбцы - координаты Y, а строки - Х?...Просто карта размером 40х30, и поэтому линейная запись слишком громоздкая будет...

Заранее благодарен. Жду ответа.

[Alex Cones]

TCell = Record
 CellObject : Byte;
 TexName : String[20];
 MaskName : String[20];
End;

Map : Array[0..19,0..19] of TCell;

А дальше сохранять\читать BlockWrite BlockRead.

[Ckomoroh]

А в каком файле это хранить? в txt?

Я именно про файл хочу узнать...как хранить это в программе я знаю...а вот как прочесть и сохранить?...

[Alex Cones]

Да какое хотите название придумайте! Там все зависит от того, что Вы укажете в AssignFile! Файл все равно будет содержать бинарные данные.

[Гром]

У меня в игре объекты в текстовом файле хранились приблизительно в таком виде:

TYPE=SIMPLE_OBJECT; ANIMATIONID=Wall; POSITION=620,460; SIZE=40,40;
TYPE=ENEMY; ANIMATIONID=Enemy1; POSITION=420,340; SIZE=40,40;
TYPE=DIAMOND; ANIMATIONID=Diamond; POSITION=340,60; SIZE=40,40; POINTS=50;

TYPE - тип объекта (в зависимости от него создавался объект одного из типов с нужными параметрами)
ANIMATIONID - идентификатор анимации этого объекта (анимации у меня были проиндексированы по строковым переменным)
POSITION - собственно координаты объекта (у меня - его центра)
SIZE - размер прямоугольника, занимаемого объектом (в игре проверялись пересечения прямоугольников главгероя и объектов)
POINTS - сколько очков давалось главгерою за один бриллиант

Соответственно, загружаете файл, возможно, в начале считываете данные в первой строке об игровом поле (например, его размеры). Каждую последующую строку разбираете по Фрейду на составные элементы - ищем позиции строки "TYPE=", затем позицию символа ";" - между ними заключена строка, которую и интерпретируем как строку или как число (координаты еще разбиты запятой).

Вот как-то так у меня это работало.

[Вадим Буренков]

Почитай про двоичные типизированные файлы.
Также можно использовать двоичные нетипизированные файлы, только их сложнее использовать, но можно сохранять динамические данные.

[Beermonza]

Ckomoroh, начните с конкретики, сколько байт вам нужно на каждый тип данных. Например, у вас такая таблица:

1) Координата Х ячейки - 1 байт
2) Координата Y ячейки - 1 байт
3) Проходима ли ячейка или нет - 1 байт
4) Название текстуры - 1 байт
5) Название маски - 1 байт

Считаем блок данных на одну клетку карты - 5 байт. Делаем цикл по числу клеток, цикл 2-го порядка:

Var
  MapFile: File of Byte;

...

AssignFile(MapFile, {путь});   // инициализация
Reset(MapFile);                   // режим - открыть для чтения

For Y:=0 to MaxY do
  Begin
    For X:=0 to MaxX do
      Begin
        Read(MapFile, {Координата Х});
        Read(MapFile, {Координата Y});
        Read(MapFile, {Проходимость});
        Read(MapFile, {Название текстуры});
        Read(MapFile, {Название маски});
      end;
  end;

MaxY и MaxX - размер карты, ...можно загнать эти данные первыми байтами в файле в "системной строке". Каждый оператор Read будет считывать следующий байт, отсчитав системную строку можно приступать к данным карты.

Перезапись через Write, режим Rewrite(MapFile).

[Ckomoroh]

Я сделал так.... и файл карты весит 9 кб=( :

type TMPint = packed record
  UtextureX    :array[1..30,1..40] of boolean;     //Есть ли клетка или нет
  UInteger     :array[1..30,1..40] of integer;      //№ текстуры
  UProhodimost :array[1..30,1..40] of string[1]; //Вид проходимости (b - нельзя пройти, s - магазин, k - квест и.т.д.)
end;

var
  mapint:TMPint;

в процедуре сохранения карты (программа - редактор карт для игры)

var
  F:file of TMPint;
  x,y:byte;
begin
  assignFile(F,'map1.dat');
  Rewrite(F);
  write(F,mapint);
  closefile(F);
end;

[Alex Cones]

и файл карты весит 9 кб=( :

А как Вы думаете, сколько он должен весить?

30*40*1+30*40*4+30*40*1=...

[Ckomoroh]

А ну да...точно...=)