Changeset 401 for trunk/LocalPlayer


Ignore:
Timestamp:
Nov 2, 2021, 9:25:33 AM (3 years ago)
Author:
chronos
Message:
  • Modified: Use LXD for snap creation.
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/IsoEngine.pas

    r348 r401  
    10071007  end;
    10081008
    1009   if ShowObjects then
    1010   begin
    1011     if (Tile and fCanal <> 0) or (Tile and fCity <> 0) then
    1012     begin // paint canal connections
     1009  if ShowObjects then begin
     1010    // Paint canal connections
     1011    if (Tile and fCanal <> 0) or (Tile and fCity <> 0) then begin
    10131012      Conn := Connection8(Loc, fCanal or fCity);
    10141013      if Tile and fCanal <> 0 then
    10151014        Conn := Conn or ($FF - OceanConnection(Loc));
    1016       if Conn = 0 then
    1017       begin
     1015      if Conn = 0 then begin
    10181016        if Tile and fCanal <> 0 then
    1019           TSprite(x, y, spCanal)
     1017          TSprite(x, y, spCanal);
    10201018      end
    10211019      else
     
    10241022            TSprite(x, y, spCanal + 1 + Dir);
    10251023    end;
     1024
    10261025    if Tile and (fRR or fCity) <> 0 then
    10271026      RRConn := Connection8(Loc, fRR or fCity)
    10281027    else
    10291028      RRConn := 0;
    1030     if Tile and (fRoad or fRR or fCity) <> 0 then
    1031     begin // paint road connections
     1029
     1030    // Paint road connections
     1031    if Tile and (fRoad or fRR or fCity) <> 0 then begin
    10321032      Conn := Connection8(Loc, fRoad or fRR or fCity) and not RRConn;
    10331033      if (Conn = 0) and (Tile and (fRR or fCity) = 0) then
     
    10381038            TSprite(x, y, spRoad + 1 + Dir);
    10391039    end;
    1040     // paint railroad connections
     1040
     1041    // Paint railroad connections
    10411042    if (Tile and fRR <> 0) and (RRConn = 0) then
    10421043      TSprite(x, y, spRailRoad)
    1043     else if RRConn > 0 then
     1044    else if RRConn > 0 then begin
    10441045      for Dir := 0 to 7 do
    10451046        if (1 shl Dir) and RRConn <> 0 then
    10461047          TSprite(x, y, spRailRoad + 1 + Dir);
     1048    end;
    10471049  end;
    10481050end;
Note: See TracChangeset for help on using the changeset viewer.