hedgewars/uGearsHandlersMess.pas
changeset 10797 6458fd2f5636
parent 10796 f7cdca3ed697
child 10798 777084958f16
equal deleted inserted replaced
10796:f7cdca3ed697 10797:6458fd2f5636
  1822         else if (Gear^.Y > targ^.Y) and (Gear^.dY > -_0_1) then
  1822         else if (Gear^.Y > targ^.Y) and (Gear^.dY > -_0_1) then
  1823             Gear^.dY:= Gear^.dY-trackSpeed;
  1823             Gear^.dY:= Gear^.dY-trackSpeed;
  1824         end;
  1824         end;
  1825 
  1825 
  1826     if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
  1826     if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
       
  1827         begin
  1827         if ((Gear^.State and gstAttacking) = 0) then
  1828         if ((Gear^.State and gstAttacking) = 0) then
  1828             begin
  1829             begin
  1829             if ((GameTicks and $1F) = 0) then
  1830             if ((GameTicks and $1F) = 0) then
  1830                 begin
  1831                 begin
  1831                 if targ <> nil then
  1832                 if targ <> nil then
  1871                 Gear^.State:= Gear^.State and (not gstAttacking);
  1872                 Gear^.State:= Gear^.State and (not gstAttacking);
  1872                 Gear^.Timer:= Gear^.WDTimer
  1873                 Gear^.Timer:= Gear^.WDTimer
  1873                 end;
  1874                 end;
  1874             dec(Gear^.Timer);
  1875             dec(Gear^.Timer);
  1875             end
  1876             end
       
  1877         end
  1876     else // gsttmpFlag = 0
  1878     else // gsttmpFlag = 0
  1877         if (TurnTimeLeft = 0)
  1879         if (TurnTimeLeft = 0)
  1878         or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime))
  1880         or ((GameFlags and gfInfAttack <> 0) and (GameTicks > Gear^.FlightTime))
  1879         or (CurrentHedgehog^.Gear = nil) then
  1881         or (CurrentHedgehog^.Gear = nil) then
  1880         begin
  1882         begin