hedgewars/uGearsRender.pas
changeset 15662 8416b08ffdbb
parent 15661 afeffdb4a712
child 15680 d23ebe7c88f8
--- a/hedgewars/uGearsRender.pas	Fri Jun 26 17:40:22 2020 +0300
+++ b/hedgewars/uGearsRender.pas	Fri Jun 26 19:35:16 2020 +0300
@@ -1743,7 +1743,10 @@
             gtCreeper: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
                          DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.Hedgehog^.Gear^.X-Gear^.X)), 0)
                     else DrawSpriteRotatedF(sprCreeper, x, y, 1, hwRound(SignAs(_1,Gear^.dX)), 0);
-            gtSentry: DrawSprite(sprSentry, x, y, 0, 0);
+            gtSentry: begin
+                DrawSprite(sprSentry, x - 16, y - 16, 0, 0);
+                DrawCircle(x, y, Gear^.Radius, 1, 255, 0, 0, 255);
+            end;
             gtGenericFaller: begin
                              // DEBUG: draw gtGenericFaller
                              if Gear^.Tag <> 0 then