index 96dfa92ec0bf190fe7253747399a1948f254b93e..1aa8c03ea32343cba822d59ca1e94f4dced078be 100644 (file)
interface
- uses g_player, r_graphics; // TPlayer, TRGB
+ uses g_player, g_base; // TPlayer, TRGB
procedure r_Player_DrawAll;
procedure r_Player_DrawDebug (p: TPlayer);
uses
SysUtils, Classes, Math,
MAPDEF, utils,
- g_basic, g_game, g_phys, g_map, g_textures, g_menu, g_language, g_weapons, g_items, g_net, g_options,
+ g_basic, g_game, g_phys, g_map, g_menu, g_language, g_weapons, g_items, g_net, g_options,
{$IFDEF ENABLE_HOLMES}
g_holmes,
{$ENDIF}
- r_playermodel
+ r_playermodel, r_graphics, r_animations, r_textures, r_items
;
procedure r_Player_DrawAll;
if p.PunchAnim <> nil then
begin
- p.PunchAnim.Draw(fX + IfThen(p.Direction = TDirection.D_LEFT, 15 - p.Obj.Rect.X, p.Obj.Rect.X - 15), fY + fSlope + p.Obj.Rect.Y - 11, Mirror);
+ r_Animation_Draw(p.PunchAnim, fX + IfThen(p.Direction = TDirection.D_LEFT, 15 - p.Obj.Rect.X, p.Obj.Rect.X - 15), fY + fSlope + p.Obj.Rect.Y - 11, Mirror);
if p.PunchAnim.played then
begin
p.PunchAnim.Free;
p.Obj.lerp(gLerpFactor, fX, fY);
if p.Animation <> nil then
- p.Animation.Draw(fX, fY, TMirrorType.None);
+ r_Animation_Draw(p.Animation, fX, fY, TMirrorType.None);
if p.AnimationMask <> nil then
begin
e_Colors := p.Color;
- p.AnimationMask.Draw(fX, fY, TMirrorType.None);
+ r_Animation_Draw(p.AnimationMask, fX, fY, TMirrorType.None);
e_Colors.R := 255;
e_Colors.G := 255;
e_Colors.B := 255;