hedgewars/uWorld.pas
changeset 13641 fc8c8910a281
parent 13640 571f8110957e
child 13642 28e4a9db4690
equal deleted inserted replaced
13640:571f8110957e 13641:fc8c8910a281
  1401         UnshiftWorld();
  1401         UnshiftWorld();
  1402         end;
  1402         end;
  1403 
  1403 
  1404     DrawVisualGears(3, false);
  1404     DrawVisualGears(3, false);
  1405 
  1405 
  1406 {$WARNINGS OFF}
       
  1407 // Target
  1406 // Target
  1408 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then
  1407 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then
  1409     begin
  1408     begin
  1410     with PHedgehog(CurrentHedgehog)^ do
  1409     with PHedgehog(CurrentHedgehog)^ do
  1411         begin
  1410         begin
  1412         if CurAmmoType = amBee then
  1411         if CurAmmoType = amBee then
  1413             DrawSpriteRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360)
  1412             spr:= sprTargetBee
  1414         else
  1413         else
  1415             DrawSpriteRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360)
  1414             spr:= sprTargetP;
  1416         end
  1415         if replicateToLeft then
  1417     end;
  1416             begin
  1418 {$WARNINGS ON}
  1417             ShiftWorld(-1);
       
  1418             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1419             UnshiftWorld();
       
  1420             end;
       
  1421 
       
  1422         if replicateToRight then
       
  1423             begin
       
  1424             ShiftWorld(1);
       
  1425             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1426             UnshiftWorld();
       
  1427             end;
       
  1428 
       
  1429         DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1430         end;
       
  1431     end;
  1419 
  1432 
  1420 RenderWorldEdge();
  1433 RenderWorldEdge();
  1421 
  1434 
  1422 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1435 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1423 SetScale(cDefaultZoomLevel);
  1436 SetScale(cDefaultZoomLevel);