hedgewars/uGearsHedgehog.pas
changeset 15610 d347785fd61c
parent 15394 b7e40129dbdb
child 15627 ea189ee9394f
equal deleted inserted replaced
15609:4ae2ebe812be 15610:d347785fd61c
   527                        amPiano, amIceGun,
   527                        amPiano, amIceGun,
   528                    amAirAttack, amNapalm,
   528                    amAirAttack, amNapalm,
   529                   amMineStrike, amDrillStrike,
   529                   amMineStrike, amDrillStrike,
   530                       amRubber, amMinigun: CurAmmoGear:= newGear;
   530                       amRubber, amMinigun: CurAmmoGear:= newGear;
   531             end;
   531             end;
   532             if CurAmmoType = amCake then FollowGear:= newGear;
   532             if (CurAmmoType = amCake) or (CurAmmoType = amPiano) then
       
   533                 FollowGear:= newGear;
   533 
   534 
   534             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   535             if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then
   535                 newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000)
   536                 newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000)
   536             else if CurAmmoType = amDrill then
   537             else if CurAmmoType = amDrill then
   537                 newGear^.FlightTime:= GameTicks + 250;
   538                 newGear^.FlightTime:= GameTicks + 250;