hedgewars/uGearsHedgehog.pas
changeset 14769 2ad6f0555e61
parent 14756 2d859d34e6f6
child 14947 60340c8a6fae
equal deleted inserted replaced
14768:7dfc6ed13337 14769:2ad6f0555e61
   533                    amAirAttack, amNapalm,
   533                    amAirAttack, amNapalm,
   534                   amMineStrike, amDrillStrike,
   534                   amMineStrike, amDrillStrike,
   535                       amRubber, amMinigun: CurAmmoGear:= newGear;
   535                       amRubber, amMinigun: CurAmmoGear:= newGear;
   536             end;
   536             end;
   537             if CurAmmoType = amCake then FollowGear:= newGear;
   537             if CurAmmoType = amCake then FollowGear:= newGear;
   538             if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil;
       
   539 
   538 
   540             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   539             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   541                 newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000)
   540                 newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000)
   542             else if CurAmmoType = amDrill then
   541             else if CurAmmoType = amDrill then
   543                 newGear^.FlightTime:= GameTicks + 250;
   542                 newGear^.FlightTime:= GameTicks + 250;