hedgewars/uGearsHandlersMess.pas
changeset 11391 bc9650ec9b20
parent 11389 c93f204a5a00
child 11468 2f6f8baa2a97
equal deleted inserted replaced
11390:36e1bbb6ecea 11391:bc9650ec9b20
  3535     oldX, oldY, oldDx, oldDy: hwFloat;
  3535     oldX, oldY, oldDx, oldDy: hwFloat;
  3536     t2: hwFloat;
  3536     t2: hwFloat;
  3537 begin
  3537 begin
  3538     AllInactive := false;
  3538     AllInactive := false;
  3539 
  3539 
  3540     if (Gear^.State and gsttmpFlag) = 0 then
  3540     if (Gear^.State and gsttmpFlag = 0) and (GameFlags and gfMoreWind = 0) then
  3541         Gear^.dX := Gear^.dX + cWindSpeed;
  3541         Gear^.dX := Gear^.dX + cWindSpeed;
  3542 
  3542 
  3543     oldDx := Gear^.dX;
  3543     oldDx := Gear^.dX;
  3544     oldDy := Gear^.dY;
  3544     oldDy := Gear^.dY;
  3545     oldX := Gear^.X;
  3545     oldX := Gear^.X;