X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fgame%2Fg_playermodel.pas;h=b8d0ec6c7ef4b74d3f1c54c6a7297af846029d88;hb=31d174a428ef1235e1708b0738804b47e006cf5c;hp=9e42436ec5a4440f619ec289298c2cf20444f451;hpb=a4f25c41dfd783a925aa2dab4b9b84753d5c3f18;p=d2df-sdl.git

diff --git a/src/game/g_playermodel.pas b/src/game/g_playermodel.pas
index 9e42436..b8d0ec6 100644
--- a/src/game/g_playermodel.pas
+++ b/src/game/g_playermodel.pas
@@ -20,6 +20,7 @@ unit g_playermodel;
 interface
 
 uses
+  mempool,
   MAPDEF, g_textures, g_basic, g_weapons, e_graphics, wadreader;
 
 const
@@ -81,7 +82,7 @@ type
                   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;