hedgewars/uWorld.pas
changeset 13633 35d93b1e7fef
parent 13622 358ccb060cb3
child 13634 73c2a669c1fd
equal deleted inserted replaced
13632:4c49a4944884 13633:35d93b1e7fef
  1223         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
  1223         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
  1224         if SuddenDeathDmg then
  1224         if SuddenDeathDmg then
  1225             untint;
  1225             untint;
  1226     end;
  1226     end;
  1227 
  1227 
  1228 DrawVisualGears(0);
  1228 DrawVisualGears(0, false);
  1229 ChangeDepth(RM, -cStereo_MidDistance);
  1229 ChangeDepth(RM, -cStereo_MidDistance);
  1230 DrawVisualGears(4);
  1230 DrawVisualGears(4, false);
  1231 
  1231 
  1232 if (cReducedQuality and rq2DWater) = 0 then
  1232 if (cReducedQuality and rq2DWater) = 0 then
  1233     begin
  1233     begin
  1234         // Waves
  1234         // Waves
  1235         DrawWater(255, SkyOffset, 0);
  1235         DrawWater(255, SkyOffset, 0);
  1244     end
  1244     end
  1245 else
  1245 else
  1246     DrawWaves(-1, 100, - cWaveHeight div 2, - cWaveHeight div 2, 0);
  1246     DrawWaves(-1, 100, - cWaveHeight div 2, - cWaveHeight div 2, 0);
  1247 
  1247 
  1248 ChangeDepth(RM, cStereo_Land);
  1248 ChangeDepth(RM, cStereo_Land);
  1249 DrawVisualGears(5);
  1249 DrawVisualGears(5, false);
  1250 DrawLand(WorldDx, WorldDy);
  1250 DrawLand(WorldDx, WorldDy);
  1251 
  1251 
  1252 if replicateToLeft then
  1252 if replicateToLeft then
  1253     begin
  1253     begin
  1254     ShiftWorld(-1);
  1254     ShiftWorld(-1);
  1293 bShowFinger:= false;
  1293 bShowFinger:= false;
  1294 
  1294 
  1295 if replicateToLeft then
  1295 if replicateToLeft then
  1296     begin
  1296     begin
  1297     ShiftWorld(-1);
  1297     ShiftWorld(-1);
  1298     DrawVisualGears(1);
  1298     DrawVisualGears(1, true);
  1299     DrawGears();
  1299     DrawGears();
  1300     DrawVisualGears(6);
  1300     DrawVisualGears(6, true);
  1301     UnshiftWorld();
  1301     UnshiftWorld();
  1302     end;
  1302     end;
  1303 
  1303 
  1304 if replicateToRight then
  1304 if replicateToRight then
  1305     begin
  1305     begin
  1306     ShiftWorld(1);
  1306     ShiftWorld(1);
  1307     DrawVisualGears(1);
  1307     DrawVisualGears(1, true);
  1308     DrawGears();
  1308     DrawGears();
  1309     DrawVisualGears(6);
  1309     DrawVisualGears(6, true);
  1310     UnshiftWorld();
  1310     UnshiftWorld();
  1311     end;
  1311     end;
  1312 
  1312 
  1313 bShowFinger:= tmp;
  1313 bShowFinger:= tmp;
  1314 
  1314 
  1315 DrawVisualGears(1);
  1315 DrawVisualGears(1, false);
  1316 DrawGears;
  1316 DrawGears;
  1317 DrawVisualGears(6);
  1317 DrawVisualGears(6, false);
  1318 
  1318 
  1319 
  1319 
  1320 if SuddenDeathDmg then
  1320 if SuddenDeathDmg then
  1321     DrawWater(SDWaterOpacity, 0, 0)
  1321     DrawWater(SDWaterOpacity, 0, 0)
  1322 else
  1322 else
  1354     ChangeDepth(RM, cStereo_Outside);
  1354     ChangeDepth(RM, cStereo_Outside);
  1355 
  1355 
  1356     if replicateToLeft then
  1356     if replicateToLeft then
  1357         begin
  1357         begin
  1358         ShiftWorld(-1);
  1358         ShiftWorld(-1);
  1359         DrawVisualGears(2);
  1359         DrawVisualGears(2, true);
  1360         UnshiftWorld();
  1360         UnshiftWorld();
  1361         end;
  1361         end;
  1362 
  1362 
  1363     if replicateToRight then
  1363     if replicateToRight then
  1364         begin
  1364         begin
  1365         ShiftWorld(1);
  1365         ShiftWorld(1);
  1366         DrawVisualGears(2);
  1366         DrawVisualGears(2, true);
  1367         UnshiftWorld();
  1367         UnshiftWorld();
  1368         end;
  1368         end;
  1369 
  1369 
  1370     DrawVisualGears(2);
  1370     DrawVisualGears(2, false);
  1371 
  1371 
  1372 // everything after this ResetDepth will be drawn at screen level (depth = 0)
  1372 // everything after this ResetDepth will be drawn at screen level (depth = 0)
  1373 // note: everything that needs to be readable should be on this level
  1373 // note: everything that needs to be readable should be on this level
  1374     ResetDepth(RM);
  1374     ResetDepth(RM);
  1375 
  1375 
  1376     if replicateToLeft then
  1376     if replicateToLeft then
  1377         begin
  1377         begin
  1378         ShiftWorld(-1);
  1378         ShiftWorld(-1);
  1379         DrawVisualGears(3);
  1379         DrawVisualGears(3, true);
  1380         UnshiftWorld();
  1380         UnshiftWorld();
  1381         end;
  1381         end;
  1382 
  1382 
  1383     if replicateToRight then
  1383     if replicateToRight then
  1384         begin
  1384         begin
  1385         ShiftWorld(1);
  1385         ShiftWorld(1);
  1386         DrawVisualGears(3);
  1386         DrawVisualGears(3, true);
  1387         UnshiftWorld();
  1387         UnshiftWorld();
  1388         end;
  1388         end;
  1389 
  1389 
  1390     DrawVisualGears(3);
  1390     DrawVisualGears(3, false);
  1391 
  1391 
  1392 {$WARNINGS OFF}
  1392 {$WARNINGS OFF}
  1393 // Target
  1393 // Target
  1394 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then
  1394 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then
  1395     begin
  1395     begin