hedgewars/uGearsHedgehog.pas
changeset 11197 8e0e3b79efa3
parent 11046 47a8c19ecb60
child 11202 a85b0ef91685
equal deleted inserted replaced
11196:f4cf2cdea8e5 11197:8e0e3b79efa3
   449             end;
   449             end;
   450             if CurAmmoType = amCake then FollowGear:= newGear;
   450             if CurAmmoType = amCake then FollowGear:= newGear;
   451             if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil;
   451             if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil;
   452 
   452 
   453             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   453             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   454                 newGear^.FlightTime:= GameTicks + 1000
   454                 newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000)
   455             else if CurAmmoType = amDrill then
   455             else if CurAmmoType = amDrill then
   456                 newGear^.FlightTime:= GameTicks + 250;
   456                 newGear^.FlightTime:= GameTicks + 250;
   457             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   457             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   458                 begin
   458                 begin
   459                 newGear^.Target.X:= TargetPoint.X;
   459                 newGear^.Target.X:= TargetPoint.X;