И так в этой части статьи мы рассмотрим пример создания класса персонажа.
Вообще т.к. это пример создания простой игры то можно было делать и без класса ,но  я посчитал что гораздо интересне внедрить универсальный класс нежели описывать 2х игроков.
И так нам нужен класс наследник от TGLSprite. Почему именно наследник? Просто по сути для этой игры достаточно персонажа с набором свойств и процедур, а так как у нас персонаже представлены в виде спрайтов, то использовать мы будем спрайты. Кстати для тех кто хочет 3д модели вместо спрайтов, вы сможете переделать класс под модель без особых усилий.
type
 TPlayer= class(TGLSprite)
  private
    fEndH:boolean;
    fHealth:integer;
    fMana:integer;
    fPlayerType:string;
    fCast:boolean;
... Читать дальше »