forum.boolean.name - Lib_YALJ :: "Объекты"

В нескольких словах, эта библиотека реализует динамические массивы объектов с свободным количеством переменных разных типов. Она предназначена для использования в играх, но может быть использована и просто как хранилище динамических массивов.

Мотивация:

Принцип работы:

Документация (или что-то подозрительно похожее на нее):

Код:

{

  Lib yalj (YellowAfterlife's objects)

    Эта библиотека реализует систему динамически расширяемых типов объектов.

    Структура: Тип -> Объект -> Переменные

    Тип обьединяет объекты одного рода, так же используется для последуего

    быстрого доступа к ним и манипуляций.

    Объект - основная единица системы, содержащая любое количество переменных.

    Переменная - значение одного из типов, содержащихся в объекте. Одно и то же

    поле переменной может содержать разные типы переменных в двух разных

    объектах, но при этом, для того чтобы получить значение, ее тип должен быть

    известен.

        Типы

  AddType(Variables: Integer, Count: Integer, Boost: Integer): Integer

    Добавляет новый тип. Variables указывает на начальное количество переменных

    в объектах этого типа. Count указывает начальное макс. количество объектов

    этого типа. Boost указывает значение, на которое при надобности расширяется

    макс. количество (за раз). Возращает индекс созданного типа.

  MakeTypes(Number: Integer): Integer

    Ре-инициализирует систему на указанное потенциальное количество типов.

    Рекомендуется использовать эту функцию в начале работы программы, чтобы

    задать потенциальное количество типов объектов. При вызове этой процедуры

    все текущие типы удаляются.

  RemoveType(Type: Integer)

    Удаляет указанный тип объекта, и все принадлежащие ему объекты. После этого

    этот индекс типа может занять другой тип объекта.

  ResizeType(Type: Integer, Count: Integer)

    Меняет максимальный размер типа, удаляя объекты за диапазоном, если размер

    меньше текущего.

  TypeLength(Type: Integer)

    Возращает длину (макс. количество) обьъектов указанного типа.

  TypeCount(Type: Integer)

    Подсчитывает количество существующих (созданных) объектов указанного типа.

        Объекты

  AddObject(Type: Integer): Integer

    Добавляет новый объект указанного типа, или 0 если тип не существует.

  RemoveObject(Type: Integer, Object: Integer)

    Удаляет указанный объект, освобождая занятую им память.

  ObjectFirst(Type: Integer): Integer

    Возращает первый существующий объект указанного типа либо 0 (нет объекта).

  ObjectNext(Type: Integer, Object: Integer): Integer

    Возращает следующий после указанного существующий объект, или 0 если

    объект был последний в списке. Вместе с предыдущей функцией позволяет

    делать что-то подобное For each(...).

  ObjectExists(Type: Integer, Object: Integer): Integer

    Возращает, существует ли объект с указанным индексом.

  ResizeObject(Type: Integer, Object: Integer, Variables: Integer)

    Меняет макс. количество переменных в объекте, стирая часть из них, если

    размер меньше текущего.

        Переменные

  ObjectVarExists(Type: Integer, Object: Integer, Var: Integer): Integer

    Возращает, установлено ли значение переменной в указанном объекте (1\0)

  ObjectVarDelete(Type: Integer, Object: Integer, Var: Integer)

    Удаляет значение переменной из указанного объекта

  ObjectSet*(Type: Integer, Object: Integer, Var: Integer, Value: &)

    Устанавливает переменную указанного типа.

  ObjectGet*(Type: Integer, Object: Integer, Var: Integer): &

    Возращает значение переменной указанного типа, или нулевое значение если

    переменная имеет другой тип или не существует.

  Поддерживаемые типы переменных

  *Хранимый тип &Передаваемый тип %Описание

  Bool          Integer (1\0)    Логический тип [True\False]

  Int          Integer          Обычный целочисленный тип.

  Byte          Integer (0..255)  Короткий целочисленный тип [0..255]

  Char          Char\String      Один символ ASCII

  String        Char\String      Строка

  Image        Image            Изображение

  Пример: ObjectSetInt(MyType, MyObject, MyVar, Value)

  или ObjectSetImage(MyType, MyObject, 0, LoadImage('/icon.png'))

  или X := ObjectGetInt(MyType, MyObject, 1)

}

Пример использования:

PHP код:




program YaljTest; 
uses yalj; 
const 
  // Индексы переменных 
  x = 0; 
  y = 1; 
  hspeed = 2; 
  vspeed = 3; 
var 
  icon: integer; 
  i, j, t: integer; 
  img: image; 
procedure AddRandomIcon; 
begin 
  j := AddObject(icon); 
  ObjectSetInt(icon, j, x, Random(GetWidth)); 
  ObjectSetInt(icon, j, y, Random(GetHeight)); 
  ObjectSetInt(icon, j, hspeed, Random(5)-2); 
  ObjectSetInt(icon, j, vspeed, Random(5)-2) 
end; 
begin 
  img := LoadImage('/icon.png'); 
  icon := AddType(4, 16, 1); // 4 переменных, 16 объектов изначально, +1 прирост 
  t := GetRelativeTimeMs; 
  for i := 1 to 16 do AddRandomIcon; 
  repeat 
    SetColor(0, 0, 0); 
    FillRect(0, 0, GetWidth, GetHeight); 
    if GetKeyPressed <> 0 then AddRandomIcon; 
    i := ObjectFirst(icon); 
    repeat 
      DrawImage(img, ObjectGetInt(icon, i, x)-8, ObjectGetInt(icon, i, y)-8); 
      // Передвигаем по X, цикл вокруг экрана 
      j := ObjectGetInt(icon, i, x); 
      j := j + ObjectGetInt(icon, i, hspeed); 
      while j < -8 do j := j + GetWidth + 16; 
      while j > GetWidth + 8 do j := j - GetWidth - 16; 
      ObjectSetInt(icon, i, x, j); 
      // Аналогично для Y: 
      j := ObjectGetInt(icon, i, y); 
      j := j + ObjectGetInt(icon, i, vspeed); 
      while j < -8 do j := j + GetHeight + 16; 
      while j > GetHeight + 8 do j := j - GetHeight - 16; 
      ObjectSetInt(icon, i, y, j); 
      // След. объект: 
      i := ObjectNext(icon, i); 
    until i = 0; 
    SetColor(255, 0, 0); 
    DrawText('Time: ' + (GetRelativeTimeMs - t) + 'ms', 0, 0); 
    t := GetRelativeTimeMs; 
    RePaint; 
  until false; 
end.

В общем, удачной разработки :)
Если есть какие-то вопросы, спрашивайте.