hedgewars/uWorld.pas
changeset 7442 9bb6abdb5675
parent 7392 bc3306c59a08
parent 7426 55b49cc1f33a
child 7503 deaeac102355
equal deleted inserted replaced
7392:bc3306c59a08 7442:9bb6abdb5675
  1331         inc(r.x, cTeamHealthWidth + 2);
  1331         inc(r.x, cTeamHealthWidth + 2);
  1332         if TeamHealth = 0 then inc(r.x);
  1332         if TeamHealth = 0 then inc(r.x);
  1333         r.w:= 3;
  1333         r.w:= 3;
  1334         DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
  1334         DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
  1335 
  1335 
  1336         if not highlight and not hasGone and (TeamHealth > 1) then
  1336         if not highlight and (not hasGone) and (TeamHealth > 1) then
  1337             for i:= 0 to cMaxHHIndex do
  1337             for i:= 0 to cMaxHHIndex do
  1338                 if Hedgehogs[i].Gear <> nil then
  1338                 if Hedgehogs[i].Gear <> nil then
  1339                     begin
  1339                     begin
  1340                     inc(h,Hedgehogs[i].Gear^.Health);
  1340                     inc(h,Hedgehogs[i].Gear^.Health);
  1341                     if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
  1341                     if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
  1528     // lag warning (?)
  1528     // lag warning (?)
  1529     inc(SoundTimerTicks, Lag);
  1529     inc(SoundTimerTicks, Lag);
  1530 end;
  1530 end;
  1531 
  1531 
  1532 if SoundTimerTicks >= 50 then
  1532 if SoundTimerTicks >= 50 then
  1533    begin
  1533 begin
  1534    SoundTimerTicks:= 0;
  1534     SoundTimerTicks:= 0;
  1535    if cVolumeDelta <> 0 then
  1535     if cVolumeDelta <> 0 then
  1536       begin
  1536     begin
  1537       str(ChangeVolume(cVolumeDelta), s);
  1537         str(ChangeVolume(cVolumeDelta), s);
  1538       AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
  1538         AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
  1539       end
  1539     end;
  1540    end;
  1540     if isAudioMuted then
       
  1541         AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
       
  1542 end;
  1541 
  1543 
  1542 if GameState = gsConfirm then
  1544 if GameState = gsConfirm then
  1543     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);
  1545     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);
  1544 
  1546 
  1545 if ScreenFade <> sfNone then
  1547 if ScreenFade <> sfNone then