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

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

Это версия с 2 реализованными классами TEnemy и TVeapon.(без коллизии)
Появилась возможность стрелять очередями, а система, которую я реализовал дает возможность путем конфигурирования настроек создавать новые типы оружия.(там 2 exe файла,в одном пулемет, а в другом огнемет).

[Shadow_1329]

Урра я понял принцип! Спасибо всем!

[Алекс Ялта]

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

Это версия с 2 реализованными классами TEnemy и TVeapon.(без коллизии)
Появилась возможность стрелять очередями, а система, которую я реализовал дает возможность путем конфигурирования настроек создавать новые типы оружия.(там 2 exe файла,в одном пулемет, а в другом огнемет).

Отлично выглядит стрельба очередьми)) Огнемет больше похож на меч Джедаев) Но , если картинку другую покрупнее сделать будет вообще жирно) Можно будет добавить к бонусам переключение видов оружия и оружие массового поражения, чтобы все юниты на дисплее уничтожались

Сообщение от Shadow_1329

Урра я понял принцип! Спасибо всем!

Значит не зря старались)

Кстати, коллизию в таком случае можно будет сделать тоже универсальной. Можно попробовать прописать процедуру столкновения Объекта1 и Объекта2, а в ходе выполнения программы присваивать, к примеру, пуле значение объект1, а врагу значение объекта2

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

Я сейчас делаю различные типы оружия. Ты можешь нарисовать сам или найти где-нибуть его изображения для интерфейса и выстрелов. Также не помешали бы эффекты взрывов на подобии того,что уже есть(я рисовать вообще не умею).
По поводу кода я создал еще тип TAmmo с характеристиками патронов, а тип TVeapon изменил так, что в нем хранятся параметры скорострельности и количества патронов в оружии.

Можно будет добавить к бонусам переключение видов оружия

Я уже сделал на кнопки, а бонусы буду делать в последнюю очередь.

Кстати, коллизию в таком случае можно будет сделать тоже универсальной.

Я уже делал коллизию в прошлой игре(арканойд на паскале).Там был один шар и много коробок, которые он должен сбить.Сдесь похожая система, только много коробок(врагов) и шаров(пуль)


Скоро опубликую еще одну версию.

[Алекс Ялта]

Я бегло просмотрел твой исходник последний. Beermonza рекомендовал использовать тип юнитов record или packed record. Вот тут ссылочка http://www.delphibasics.ru/Record.php из раздела "Основы Delphi" этого сайта. Record вроде как приспособлен для хранения полей данных изходя из его определения "Структурный тип данных содержащий поля данных". Потом для оптимизации игры нам нужно будет все битмапы для юнитов создать в процедуре создания формы и прописать их уничтожение в процедуре OnClose или OnDestroy. А в дальнейшем в основном таймере просто включать или выключать их. Пример в моей теме про собственные типы есть.

Здесь еще несколько видов оружия. Эти же картинки можно и в менюшку всунуть

[Манжосов Денис :)]

Пост №36.

TVeapon

Оружие на английском - Weapon, а никак не Veapon.
P.S. Простите, за флуд.

[Алекс Ялта]

Сообщение от Манжосов Денис :)

Пост №36.

Оружие на английском - Weapon, а никак не Veapon.
P.S. Простите, за флуд.

За флуд прощаем, Errare Humanum est) На ход выполнения программы не влияет, поэтому не столь важно)

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

Я бегло просмотрел твой исходник последний....про собственные типы есть.

Я использую классы, а не типы. Может быть я в чем-то и не прав, поскольку все мои знания об ООП, классах и типах от паскаля.
Насколько я знаю класс отличается от типа тем, что у него помимо переменных есть процедуры и функции, а также наследование.Ты работал раньше с классами?

Потом для оптимизации игры нам нужно будет все битмапы для юнитов создать в процедуре создания формы

Для создания и освобождения битмапа я создаю процедуры типа LoadMem и FreeMem в каждом классе и использую их в OnCreate и OnDestroy(я так и делаю как ты написал), благодаря чему у меня нет утечек памяти.

Насчет Beermonza, record и packed record я не читал, и наверное не собираюсь(времени нет + желания нет + у меня и так все работает).Я считаю что данный код работает нормально и без ошибок, так что изменять врядли что-то буду.Но если есть серьезные аргументы в пользу record и packed record готов почитать

[Алекс Ялта]

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

Я использую классы, а не типы. Может быть я в чем-то и не прав, поскольку все мои знания об ООП, классах и типах от паскаля.
Насколько я знаю класс отличается от типа тем, что у него помимо переменных есть процедуры и функции, а также наследование.Ты работал раньше с классами?

С классами мы работаем с самого начала изучения VCL, если смотрим не только на форму, но и в код. Так выглядит тип record

type
  TGUnit = record

Так тип class

type
  TForm1 = class(TForm)

То есть и то и другое относится к type. Type - Определяет новую категорию переменной или процесса. Я не критикую твой код. Если он работает без ошибок - это хорошо.

[Beermonza]

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

... Насчет Beermonza, record и packed record я не читал, и наверное не собираюсь(времени нет + желания нет + у меня и так все работает).Я считаю что данный код работает нормально и без ошибок, так что изменять врядли что-то буду.Но если есть серьезные аргументы в пользу record и packed record готов почитать

record - сохраняет записи в их исходном виде, они будут в памяти занимать ровно столько байт, сколько весят.
packed record - сохраняет записи в сжатом виде, экономя память, но при их использовании потребуется чуть больше времени. Использование того или иного в основном - компромисс. Если нужен быстрый доступ - это record, если данных много и нужно экономить - это packed record.