hedgewars/uWorld.pas
changeset 6982 8d41d22a291d
parent 6963 0c181b88daff
child 6986 409dd3851309
equal deleted inserted replaced
6981:045e8162c9cd 6982:8d41d22a291d
  1184 DrawVisualGears(1);
  1184 DrawVisualGears(1);
  1185 DrawGears;
  1185 DrawGears;
  1186 DrawVisualGears(6);
  1186 DrawVisualGears(6);
  1187 
  1187 
  1188 if SuddenDeathDmg then
  1188 if SuddenDeathDmg then
  1189     DrawWater(cSDWaterOpacity, 0)
  1189     DrawWater(SDWaterOpacity, 0)
  1190 else
  1190 else
  1191     DrawWater(cWaterOpacity, 0);
  1191     DrawWater(WaterOpacity, 0);
  1192 
  1192 
  1193     // Waves
  1193     // Waves
  1194 ChangeDepth(RM, cStereo_Water_near);
  1194 ChangeDepth(RM, cStereo_Water_near);
  1195 DrawWaves( 1, 25 - WorldDx div 9, - cWaveHeight, 12);
  1195 DrawWaves( 1, 25 - WorldDx div 9, - cWaveHeight, 12);
  1196 
  1196 
  1197 if (cReducedQuality and rq2DWater) = 0 then
  1197 if (cReducedQuality and rq2DWater) = 0 then
  1198     begin
  1198     begin
  1199     //DrawWater(cWaterOpacity, - offsetY div 40);
  1199     //DrawWater(WaterOpacity, - offsetY div 40);
  1200     ChangeDepth(RM, cStereo_Water_near);
  1200     ChangeDepth(RM, cStereo_Water_near);
  1201     DrawWaves(-1, 50 + WorldDx div 6, - cWaveHeight - offsetY div 40, 8);
  1201     DrawWaves(-1, 50 + WorldDx div 6, - cWaveHeight - offsetY div 40, 8);
  1202     if SuddenDeathDmg then
  1202     if SuddenDeathDmg then
  1203         DrawWater(cSDWaterOpacity, - offsetY div 20)
  1203         DrawWater(SDWaterOpacity, - offsetY div 20)
  1204     else
  1204     else
  1205         DrawWater(cWaterOpacity, - offsetY div 20);
  1205         DrawWater(WaterOpacity, - offsetY div 20);
  1206     ChangeDepth(RM, cStereo_Water_near);
  1206     ChangeDepth(RM, cStereo_Water_near);
  1207     DrawWaves( 1, 75 - WorldDx div 4, - cWaveHeight - offsetY div 20, 2);
  1207     DrawWaves( 1, 75 - WorldDx div 4, - cWaveHeight - offsetY div 20, 2);
  1208         if SuddenDeathDmg then
  1208         if SuddenDeathDmg then
  1209             DrawWater(cSDWaterOpacity, - offsetY div 10)
  1209             DrawWater(SDWaterOpacity, - offsetY div 10)
  1210         else
  1210         else
  1211             DrawWater(cWaterOpacity, - offsetY div 10);
  1211             DrawWater(WaterOpacity, - offsetY div 10);
  1212         ChangeDepth(RM, cStereo_Water_near);
  1212         ChangeDepth(RM, cStereo_Water_near);
  1213         DrawWaves( -1, 25 + WorldDx div 3, - cWaveHeight - offsetY div 10, 0);
  1213         DrawWaves( -1, 25 + WorldDx div 3, - cWaveHeight - offsetY div 10, 0);
  1214         end
  1214         end
  1215     else
  1215     else
  1216         DrawWaves(-1, 50, - (cWaveHeight shr 1), 0);
  1216         DrawWaves(-1, 50, - (cWaveHeight shr 1), 0);