Моя первая игра CosmoNoid (canvas)

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

Beermonza рекомендовал использовать тип юнитов record или packed record.

Я так и не понял как тут можно использовать record вместо class
Ведь в record'е можно писать только переменные , а в классе переменные, процедуры и функции.Я считаю, что в данном случае использовать record не получится и не имеет смысла.

Пример в моей теме про собственные типы есть.

Насчет примера:
Мне кажется для создание юнита нужно использовать не Reord, а class так как для каждого юнита не нужно писать собственные процедуры и функции.Такая-же система в последней версии игры(в первом релизе для каждого врага надо было писать собственный код)

[Beermonza]

Вадим Буренков, а разве для процедур собственного класса формы мало? Все объекты подчиняются определенному своему типу, но несут в себе общие возможности их манипулированием. Например, и персонаж в игре и ИИ суть - игровые объекты, могут двигаться, могут умирать, могут появляться. Какие вы знаете сверхъестественные процедуры, которые обязательно должны быть собственные для классов объектов? Рациональнее использовать одну процедуру или функцию, "подавая на вход" объект, и "получая на выходе" конкретный набор изменений.

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

а разве для процедур собственного класса формы мало?

Какие вы знаете сверхъестественные процедуры, которые обязательно должны быть собственные для классов объектов? Рациональнее использовать одну процедуру или функцию, "подавая на вход" объект, и "получая на выходе" конкретный набор изменений.

Может я не прав, но приведу пример из этой игры:

TEnemy = class {класс врага}         //OK
   Enemy: Tbitmap;  //изображение врага
   Boom: Tbitmap; // анимация взрыва
   Xpos,Ypos:integer;//позиция врага
   Xspeed, Yspeed:integer;//скорость врага
   EnemyBorn : boolean;//появился ли враг?
   Procedure LoadMem;
   Procedure FreeMem;
   Procedure CreateEnemy;
   procedure DestroyEnemy;
   procedure DrawEnemy;
end;

Этот класс включает переменные и процедуры для 'врага'
Я могу создать его

var
Enemy:Tenemy;

обращаться к его переменным

Enemy.EnemyBorn:=true;

и процедурам

Enemy.CreateEnemy;

Благодаря такому подходу я могу создать сколько угодно 'врагов', и для каждого мне не придется писать один и тот же код.

Я бегло просмотрел твой исходник последний. Beermonza рекомендовал использовать тип юнитов record или packed record.

Так зачем использовать record?Каким еще образом можно реализовать приведенный выше код не усложняя его?(если можно приведите пример)

[Алекс Ялта]

Сообщение от Вадим Буренков

Так зачем использовать record?Каким еще образом можно реализовать приведенный выше код не усложняя его?(если можно приведите пример)

Пример уже приведен в посте 154 "Уроков для новичков", а также наглядный пример и более упрощенный в моем примере в теме "собственный тип юнитов". Спорить не имеет смысла. Сначала почитай примеры.

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

Я прочитал пост 154. В нем, как я понял используется packed record для юнитов, сами юниты занесены в массив(я делал точно также),а процедура управления юнитами находится в классе формы.
Я же создаю собственный класс, и процедура управления юнитами находится в этом классе.Можно сказать что нет разницы, но для меня этот вариант лучше, поскольку ВСЁ тоносящееся к юнитам будет в этом классе.
Еще одно: в примере (пост 155) показывается перемещение всех юнитов с помощью оператора for. А что если нужно передвинуть только одного юнита? В случае использования классов для перемещения всех я буду использовать:

For n:=1 to MAXUnits do Unit[n].move (move - процедура движения)

Для перемещения одного я буду использовать:

Unit[n].move (n-номен юнита)

А каким образом реализовать движение одного юнита в примере?И самое главное, станет ли код проще от этого?

[Алекс Ялта]

Сообщение от Вадим Буренков

Еще одно: в примере (пост 155) показывается перемещение всех юнитов с помощью оператора for. А что если нужно передвинуть только одного юнита?

А каким образом реализовать движение одного юнита в примере?И самое главное, станет ли код проще от этого?

Невнимательно читал. UUses - флаг использования, Ugo - флаг перемещения

for i:=0 to 255 do
    begin
      with UnitMas[i] do
        begin
          if UUses and UGo then

Тем более, если тебе удобнее делать так, как ты делаешь, хуже от этого никому не станет. Главное, чтобы код был рабочий и ты сам в нем мог разобраться. А пример от Beermonza можно считать общепринятым правильным решением.

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

Вот еще одна версия с 5 оружиями. Переключение клавишами 1-5(после того как выбрал оружие нужно подождать когда оно перезарядится).
Есть одна проблема с ракетой, она вырисовывается с белым фоном(скорее всего из за изображения).Ты можешь исправить?

[Алекс Ялта]

Нужно при создании ракеты указать TransparentColor:=clWhite; Там проблема при создании Битмапа. Он у тебя создается с чужими параметрами. Ты где-то, видимо, прописал универсальный TransparentColor.

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

Теперь все работает.
Ты можешь сделать класс TEffects? Я в анимациях понимаю очень плохо.
Вот как я себе это представляю:

TEffects = class {класс эффектов}
Xpos,Ypos:integer;
Effect: array [1..MaxFrame] of Tbitmap; //массив кадров
//остальные переменные

procedure LoadMem(параметры, определяющие количество кадров и их файлы); //занесение кадров анимации  в массив.
procedure FreeMem; //освобождение массива
procedure CreateEffect(Xpos,Ypos:integer);//создание эффекта по координатам Xpos и Ypos.
//остальные процедуры
end;

Я начал делать коллизию.Во время столкновения пули и противника должна вызываться процедура класса CreateEffect(координаты противника).

[Алекс Ялта]

Я смогу этим заняться только с понедельника. Сегодня после работы уезжаю на выходные.