hedgewars/uAmmos.pas
changeset 7426 55b49cc1f33a
parent 7341 d70478d265ec
child 7754 e81dc9bef8b8
equal deleted inserted replaced
7423:ec8f690f3e0f 7426:55b49cc1f33a
   372     ApplyAngleBounds(Hedgehog, CurWeapon^.AmmoType);
   372     ApplyAngleBounds(Hedgehog, CurWeapon^.AmmoType);
   373 
   373 
   374     with CurWeapon^ do
   374     with CurWeapon^ do
   375         begin
   375         begin
   376         s:= trammo[Ammoz[AmmoType].NameId];
   376         s:= trammo[Ammoz[AmmoType].NameId];
   377         if (Count <> AMMO_INFINITE) and not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0)) then
   377         if (Count <> AMMO_INFINITE) and (not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0))) then
   378             s:= s + ' (' + IntToStr(Count) + ')';
   378             s:= s + ' (' + IntToStr(Count) + ')';
   379         if (Propz and ammoprop_Timerable) <> 0 then
   379         if (Propz and ammoprop_Timerable) <> 0 then
   380             s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds];
   380             s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds];
   381         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
   381         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
   382         if (Propz and ammoprop_NeedTarget) <> 0 then
   382         if (Propz and ammoprop_NeedTarget) <> 0 then
   384             if Gear <> nil then Gear^.State:= Gear^.State or      gstHHChooseTarget;
   384             if Gear <> nil then Gear^.State:= Gear^.State or      gstHHChooseTarget;
   385             isCursorVisible:= true
   385             isCursorVisible:= true
   386             end
   386             end
   387         else
   387         else
   388             begin
   388             begin
   389             if Gear <> nil then Gear^.State:= Gear^.State and not gstHHChooseTarget;
   389             if Gear <> nil then Gear^.State:= Gear^.State and (not gstHHChooseTarget);
   390             isCursorVisible:= false
   390             isCursorVisible:= false
   391             end;
   391             end;
   392         end
   392         end
   393     end;
   393     end;
   394 end;
   394 end;