Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsRender.pas
changeset 15640 8416b08ffdbb
parent 15639 afeffdb4a712
child 15658 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
hedgewars