hedgewars/GSHandlers.inc
changeset 5355 9e0c51a882aa
parent 5340 6963e37f2dd2
child 5358 e2201f71beac
equal deleted inserted replaced
5352:7f57d0c7816a 5355:9e0c51a882aa
   603     end
   603     end
   604 else if GameTicks and $7 = 0 then
   604 else if GameTicks and $7 = 0 then
   605     begin
   605     begin
   606     with Gear^ do
   606     with Gear^ do
   607         begin
   607         begin
   608         X:= X + cWindSpeed * 1600 + dX;
   608         X:= X + cWindSpeed * 3200 + dX;
   609         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results
   609         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results
   610         xx:= hwRound(X);
   610         xx:= hwRound(X);
   611         yy:= hwRound(Y);
   611         yy:= hwRound(Y);
   612         if vobVelocity <> 0 then
   612         if vobVelocity <> 0 then
   613             begin
   613             begin