DEADSOFTWARE

put "{$MODE ...}" directive in each source file; removed trailing spaces, and convert...
[d2df-sdl.git] / src / game / g_weapons.pas
index 0e80e5846c557f7846bc1b3f04890f3ac48ee0a1..f923b2de8f174d49ba7a36e60f6ba5f970edfa01 100644 (file)
@@ -1,3 +1,4 @@
+{$MODE DELPHI}
 unit g_weapons;
 
 interface
@@ -1932,6 +1933,15 @@ begin
             else
               e_Draw(TextureID, Obj.X, Obj.Y, 0, True, False);
           end;
+
+          if g_debug_Frames then
+          begin
+            e_DrawQuad(Obj.X+Obj.Rect.X,
+                       Obj.Y+Obj.Rect.Y,
+                       Obj.X+Obj.Rect.X+Obj.Rect.Width-1,
+                       Obj.Y+Obj.Rect.Y+Obj.Rect.Height-1,
+                       0, 255, 0);
+          end;
       end;
 end;