gl: fix player model unload

[d2df-sdl.git] / src / game / renders / opengl / r_render.pas

diff --git a/src/game/renders/opengl/r_render.pas b/src/game/renders/opengl/r_render.pas
index 568b8b893e6c0b27a22445d5f19a5bdd18f08fc2..c5b2c30497fe751895fbbc245c6f257fadc90a5d 100644 (file)
--- a/src/game/renders/opengl/r_render.pas
+++ b/src/game/renders/opengl/r_render.pas
@@ -170,7 +170,7 @@ implementation
 
     glColor4ub(255, 255, 255, 255);
 
-    e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
+    //e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
 
     if gGameOn or (gState = STATE_FOLD) then
     begin
@@ -251,16 +251,14 @@ implementation
 {$IFDEF ENABLE_GIBS}
   function r_Render_GetGibRect (m, id: Integer): TRectWH;
   begin
-    Result.X := 16;
-    Result.Y := 16;
-    Result.Width := 16;
-    Result.Height := 16;
+    result := r_Map_GetGibSize(m, id);
   end;
 {$ENDIF}
 
 {$IFDEF ENABLE_GFX}
   procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
   begin
+    r_Map_NewGFX(AnimType, X, Y);
   end;
 {$ENDIF}