gl: free player model textures

diff --git a/src/game/renders/opengl/r_map.pas b/src/game/renders/opengl/r_map.pas
index 695195d3548efc03e6bc15818aeabd39007fd4bf..063c36b91e628b048502af9c5d2116116eaa3db6 100644 (file)
--- a/src/game/renders/opengl/r_map.pas
+++ b/src/game/renders/opengl/r_map.pas
@@ -276,7 +276,7 @@ implementation
   end;
 
   procedure r_Map_Free;
-    var i, j, k: Integer; d: TDirection;
+    var i, j, k, a: Integer; d: TDirection;
   begin
     for i := 1 to WP_LAST do
     begin
@@ -290,6 +290,18 @@ implementation
         end;
       end;
     end;
+    for d := TDirection.D_LEFT to TDirection.D_RIGHT do
+    begin
+      for a := A_STAND to A_LAST do
+      begin
+        if Models[i].anim[d, a].base <> nil then
+          Models[i].anim[d, a].base.Free;
+        if Models[i].anim[d, a].mask <> nil then
+          Models[i].anim[d, a].mask.Free;
+        Models[i].anim[d, a].base := nil;
+        Models[i].anim[d, a].mask := nil;
+      end;
+    end;
     for i := MONSTER_DEMON to MONSTER_MAN do
     begin
       for j := 0 to ANIM_LAST do