hedgewars/GSHandlers.inc
changeset 9277 ad1ec7212ac7
parent 9251 6c238c897213
equal deleted inserted replaced
9274:9749524d1767 9277:ad1ec7212ac7
  1924             exit
  1924             exit
  1925             end
  1925             end
  1926         end
  1926         end
  1927     else
  1927     else
  1928         begin
  1928         begin
  1929         if sticky then
  1929         if sticky and (GameTicks and $F = 0) then
  1930             begin
  1930             begin
  1931             Gear^.Radius := 7;
  1931             Gear^.Radius := 7;
  1932             tdX:= Gear^.dX;
  1932             tdX:= Gear^.dX;
  1933             tdY:= Gear^.dY;
  1933             tdY:= Gear^.dY;
  1934             Gear^.dX.QWordValue:= 214748365;
  1934             Gear^.dX.QWordValue:= 120000000;
  1935             Gear^.dY.QWordValue:= 429496730;
  1935             Gear^.dY.QWordValue:= 429496730;
  1936             Gear^.dX.isNegative:= getrandom(2)<>1;
  1936             Gear^.dX.isNegative:= getrandom(2)<>1;
  1937             Gear^.dY.isNegative:= true;
  1937             Gear^.dY.isNegative:= true;
  1938             AmmoShove(Gear, 2, 125);
  1938             AmmoShove(Gear, 2, 125);
  1939             Gear^.dX:= tdX;
  1939             Gear^.dX:= tdX;