hedgewars/uWorld.pas
changeset 7404 38a23771ee45
parent 7403 e8d0b21efa82
child 7426 55b49cc1f33a
equal deleted inserted replaced
7403:e8d0b21efa82 7404:38a23771ee45
  1112     tdx, tdy: Double;
  1112     tdx, tdy: Double;
  1113     s: shortstring;
  1113     s: shortstring;
  1114     highlight: Boolean;
  1114     highlight: Boolean;
  1115     smallScreenOffset, offsetX, offsetY, screenBottom: LongInt;
  1115     smallScreenOffset, offsetX, offsetY, screenBottom: LongInt;
  1116     VertexBuffer: array [0..3] of TVertex2f;
  1116     VertexBuffer: array [0..3] of TVertex2f;
  1117 	volume: LongInt;
       
  1118 begin
  1117 begin
  1119 if (cReducedQuality and rqNoBackground) = 0 then
  1118 if (cReducedQuality and rqNoBackground) = 0 then
  1120     begin
  1119     begin
  1121         // Offsets relative to camera - spare them to wimpier cpus, no bg or flakes for them anyway
  1120         // Offsets relative to camera - spare them to wimpier cpus, no bg or flakes for them anyway
  1122         ScreenBottom:= (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine);
  1121         ScreenBottom:= (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine);
  1532     if cVolumeDelta <> 0 then
  1531     if cVolumeDelta <> 0 then
  1533     begin
  1532     begin
  1534         str(ChangeVolume(cVolumeDelta), s);
  1533         str(ChangeVolume(cVolumeDelta), s);
  1535         AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
  1534         AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
  1536     end;
  1535     end;
  1537 	if isAudioMuted then
  1536     if isAudioMuted then
  1538 		AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
  1537         AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
  1539 	else
       
  1540         FreeTexture(Captions[capgrpVolume].Tex)
       
  1541 end;
  1538 end;
  1542 
  1539 
  1543 if GameState = gsConfirm then
  1540 if GameState = gsConfirm then
  1544     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);
  1541     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);
  1545 
  1542