hedgewars/uGearsHandlersMess.pas
changeset 13281 36243bd726df
parent 13276 2709572ed815
child 13285 fd1017c85dd4
equal deleted inserted replaced
13280:e469de43aa67 13281:36243bd726df
  4197         Message := Message and (not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight));
  4197         Message := Message and (not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight));
  4198 
  4198 
  4199         if (dY < _0_1) and (dY > -_0_1) then
  4199         if (dY < _0_1) and (dY > -_0_1) then
  4200             begin
  4200             begin
  4201             Gear^.State := Gear^.State or gsttmpFlag;
  4201             Gear^.State := Gear^.State or gsttmpFlag;
  4202             dX := _0;
  4202             dX := SignAs(_0, dX);
  4203             dY := dY - _0_2
  4203             dY := dY - _0_2
  4204             end
  4204             end
  4205         end
  4205         end
  4206 end;
  4206 end;
  4207 
  4207