hedgewars/uGearsHedgehog.pas
changeset 15639 afeffdb4a712
parent 15627 ea189ee9394f
child 15650 85d2afe34116
--- a/hedgewars/uGearsHedgehog.pas	Thu Jun 25 22:16:11 2020 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Fri Jun 26 17:40:22 2020 +0300
@@ -400,6 +400,7 @@
                                  else
                                      newGear^.Tag:= 1;
                                  end;
+                    amSentry: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtSentry, 0, SignAs(_0_03, dX), _0, 0);
                     amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
                          amWhip: begin
                                  newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);