index 72f5fb23e726f916f937f888e9991ebd7e69bbbf..b8d0ec6c7ef4b74d3f1c54c6a7297af846029d88 100644 (file)
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
{$INCLUDE ../shared/a_modes.inc}
+{$M+}
unit g_playermodel;
interface
uses
+ mempool,
MAPDEF, g_textures, g_basic, g_weapons, e_graphics, wadreader;
const
Array [A_STAND..A_LAST] of
Array [D_LEFT..D_RIGHT] of Array of TDFPoint;
- TPlayerModel = class (TObject)
+ TPlayerModel = class(TPoolObject)
private
FName: String;
FDirection: TDirection;
procedure Update();
procedure Draw(X, Y: Integer; Alpha: Byte = 0);
+ published
property Fire: Boolean read FFire;
property Direction: TDirection read FDirection write FDirection;
property Animation: Byte read FCurrentAnimation;
property Weapon: Byte read FCurrentWeapon;
property Name: String read FName;
+
+ public
property Color: TRGB read FColor write FColor;
end;