В файлах с расширением .pmn игра Пентамино для Windows 95 сохраняет игровую ситуацию. В изложении используются термины, вводимые в файле помощи игры Пентамино winpenta.hlp. Все участки кода записаны по правилам языка программирования Visual Basic.

Файл .pmn имеет следующую структуру:



Ниже объясняется назначение каждого поля этой структуры.

Игровое поле разбито на поля-клетки, причем по горизонтали в нем 27 полей, а по вертикали - 24 поля. Константы Q_NET_X и Q_NET_Y как раз и содержат эти значения:



Массив sq(1 To Q_NET_X, 1 To Q_NET_Y) As Byte описывает состояние каждого поля игрового окна. Переменная sq(i, j) принимает следующие значения:

sq(i, j)=0 - если в поле нет элемента фигуры и поле не выделено;

sq(i, j)=255 - если поле выделено (помечено темно-серым квадратом при включенном режиме Выделить) и в нем нет элемента фигуры;

sq(i, j)=1..12 - если в поле имеется элемент фигуры с соответствующим номером. Номера фигур аналогичны их номерам в окне фигур и имеют значения от 1 до 12.

Массив penta описывает состояние всех фигур пентамино. Переменная penta(i) имеет следующую структуру:



Переменная Index(i) содержит координаты i-го элемента фигуры пентамино и описывается структурой:



Index(i).x, Index(i).y - номера поля соответственно по горизонтали и вертикали в игровом окне, где расположен i-й элемент фигуры.



Знак <= означает "меньше или равно".

Этот массив действителен для фигуры, стоящей в игровом окне (имеющей статус, равный 2). Для фигуры со статусом 1 этот массив недействителен и при записи файла .pmn не заполняется. При последующем чтении файла .pmn координаты фигуры вычисляются на основании внутрипрограммной информации, а не информации из файла.

curcomb - текущая позиция фигуры (также учитывается только если фигура имеет статус, равный 2).



В окне фигур curcomb=1 всегда.

status - статус фигуры. Может принимать значения 1 (фигура в окне фигур) и 2 (фигура в игровом окне).

Возвращаемся к рассмотрению структуры tsave.

marked - переменная, указывающая, включен (marked=-1) или выключен (marked=0) режим Выделить.

name - имя поля (отображается в нижней части информационного окна).

Размер получившейся структуры равен