hedgewars/uAmmos.pas
changeset 4807 180dbfb13903
parent 4403 0dfe26f48ec1
child 4808 7c3e5b52344a
equal deleted inserted replaced
4806:48c1a395f0a7 4807:180dbfb13903
   318 
   318 
   319     ApplyAngleBounds(Hedgehog, CurWeapon^.AmmoType);
   319     ApplyAngleBounds(Hedgehog, CurWeapon^.AmmoType);
   320 
   320 
   321     with CurWeapon^ do
   321     with CurWeapon^ do
   322         begin
   322         begin
   323         if AmmoType <> amNothing then
   323         s:= trammo[Ammoz[AmmoType].NameId];
   324             begin
   324         if (Count <> AMMO_INFINITE) and not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0)) then
   325             s:= trammo[Ammoz[AmmoType].NameId];
   325             s:= s + ' (' + IntToStr(Count) + ')';
   326             if (Count <> AMMO_INFINITE) and not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0)) then
   326         if (Propz and ammoprop_Timerable) <> 0 then
   327                 s:= s + ' (' + IntToStr(Count) + ')';
   327             s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds];
   328             if (Propz and ammoprop_Timerable) <> 0 then
   328         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
   329                 s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds];
       
   330             AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
       
   331             end;
       
   332         if (Propz and ammoprop_NeedTarget) <> 0
   329         if (Propz and ammoprop_NeedTarget) <> 0
   333             then begin
   330             then begin
   334             Gear^.State:= Gear^.State or      gstHHChooseTarget;
   331             Gear^.State:= Gear^.State or      gstHHChooseTarget;
   335             isCursorVisible:= true
   332             isCursorVisible:= true
   336             end else begin
   333             end else begin