hedgewars/uGearsRender.pas
changeset 13214 9c81e34f1933
parent 13213 1ac1f5a91ec0
child 13233 bb73d6d3348a
--- a/hedgewars/uGearsRender.pas	Thu Mar 15 02:08:07 2018 +0100
+++ b/hedgewars/uGearsRender.pas	Thu Mar 15 02:59:37 2018 +0100
@@ -1554,7 +1554,13 @@
             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
                     // replace with something based on dx/dy?
                     Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) ));
-            gtGenericFaller: DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF); // debug
+            gtGenericFaller: begin
+                             // DEBUG: draw gtGenericFaller
+                             if Gear^.Tag <> 0 then
+                                 DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF)
+                             else
+                                 DrawCircle(x, y, max(3, Gear^.Radius), 3, $80, $FF, $80, $8F);
+                             end;
          end;
     if Gear^.State and gstFrozen <> 0 then untint
 end;