hedgewars/uGearsHedgehog.pas
changeset 13755 885404cdf07a
parent 13749 52959f686082
child 13770 9fdb13633bcb
equal deleted inserted replaced
13754:f1c66a34f2fe 13755:885404cdf07a
   636             OnUsedAmmo(CurrentHedgehog^);
   636             OnUsedAmmo(CurrentHedgehog^);
   637             if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then
   637             if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then
   638                 begin
   638                 begin
   639                 if TagTurnTimeLeft = 0 then
   639                 if TagTurnTimeLeft = 0 then
   640                     TagTurnTimeLeft:= TurnTimeLeft;
   640                     TagTurnTimeLeft:= TurnTimeLeft;
   641                 if (HHGear^.State and gstHHDriven) <> 0 then
   641                 if (HHGear <> nil) and ((HHGear^.State and gstHHDriven) <> 0) then
   642                     begin
   642                     begin
   643                     if (CurAmmoGear <> nil) and (CurAmmoGear^.State and gstSubmersible <> 0) and CheckCoordInWater(hwRound(CurAmmoGear^.X), hwRound(CurAmmoGear^.Y)) then
   643                     if (CurAmmoGear <> nil) and (CurAmmoGear^.State and gstSubmersible <> 0) and CheckCoordInWater(hwRound(CurAmmoGear^.X), hwRound(CurAmmoGear^.Y)) then
   644                          TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 25
   644                          TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 25
   645                     else TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;
   645                     else TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;
   646                     IsGetAwayTime := true;
   646                     IsGetAwayTime := true;