hedgewars/uGearsHandlersMess.pas
changeset 15721 1244c64b8e28
parent 15719 08e556cad305
child 15722 498c1482dec2
equal deleted inserted replaced
15720:b743adf298d8 15721:1244c64b8e28
  7573     end;
  7573     end;
  7574 
  7574 
  7575     if (Gear^.Tag = sentry_Walking) and ((GameTicks and $1F) = 0) then
  7575     if (Gear^.Tag = sentry_Walking) and ((GameTicks and $1F) = 0) then
  7576     begin
  7576     begin
  7577         if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) = 0 then
  7577         if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) = 0 then
  7578             Gear^.X := Gear^.X + SignAs(_1, Gear^.dX)
  7578         begin
       
  7579             Gear^.dX := SignAs(_1, Gear^.dX);
       
  7580             Gear^.X := Gear^.X + Gear^.dX;
       
  7581             WorldWrap(Gear);
       
  7582         end
  7579         else
  7583         else
  7580             Gear^.Timer := 0
  7584             Gear^.Timer := 0
  7581     end;
  7585     end;
  7582 
  7586 
  7583     if ((GameTicks and $1F) = 0) and (Gear^.Tag = sentry_Aiming) then
  7587     if ((GameTicks and $1F) = 0) and (Gear^.Tag = sentry_Aiming) then