Changeset 428


Ignore:
Timestamp:
Apr 28, 2022, 9:40:44 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.pas

    r425 r428  
    23352335              begin
    23362336                if Flags and CityRepMask <> 0 then
    2337                   ShowCityList := true
     2337                  ShowCityList := true;
    23382338              end;
    23392339            end;
     
    62056205      end;
    62066206      Update; // remove message box from screen
    6207     end
     6207    end;
    62086208  end;
    62096209
     
    62426242      Update; // remove message box from screen
    62436243      MyUn[UnFocus].Status := MyUn[UnFocus].Status or usToldNoReturn;
    6244     end
     6244    end;
    62456245  end;
    62466246
     
    62806280          begin
    62816281            Play('NOMOVE_SUBMARINE');
    6282             PaintLoc(ToLoc)
     6282            PaintLoc(ToLoc);
    62836283          end;
    62846284        eStealthUnit:
    62856285          begin
    62866286            Play('NOMOVE_STEALTH');
    6287             PaintLoc(ToLoc)
     6287            PaintLoc(ToLoc);
    62886288          end;
    62896289        eZOC_EnemySpotted:
    62906290          begin
    62916291            Play('NOMOVE_ZOC');
    6292             PaintLoc(ToLoc, 1)
     6292            PaintLoc(ToLoc, 1);
    62936293          end;
    62946294        rExecuted .. maxint:
     
    64086408      begin
    64096409        LostArmy[i] := MyRO.EnemyModel[i].Lost - LostArmy[i];
    6410         inc(nLostArmy, LostArmy[i])
     6410        inc(nLostArmy, LostArmy[i]);
    64116411      end;
    64126412      if result and rUnitRemoved <> 0 then
     
    64436443            MyRO.EnemyModel[MyRO.EnemyUn[euix].emix].Domain));
    64446444          ShowModal;
    6445         end
    6446       end
     6445        end;
     6446      end;
    64476447    end;
    64486448    if result and rUnitRemoved <> 0 then
     
    64556455    begin
    64566456      UpdateViews(true);
    6457       Update
    6458     end
     6457      Update;
     6458    end;
    64596459  end;
    64606460
     
    65826582      assert(result <> eMissionDone);
    65836583      CheckTerrainBtnVisible;
    6584       FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate)
     6584      FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate);
    65856585    end;
    65866586
     
    65886588  then
    65896589    ZoomToCity(ToLoc, UnFocus < 0, chCaptured); // show captured city
    6590 end; // moveunit
     6590end;
    65916591
    65926592procedure TMainScreen.MoveOnScreen(ShowMove: TShowMove;
     
    66346634      if xFrom < xTo then begin
    66356635        xMin := xFrom;
    6636         xRange := xTo - xFrom
     6636        xRange := xTo - xFrom;
    66376637      end else begin
    66386638        xMin := xTo;
    6639         xRange := xFrom - xTo
     6639        xRange := xFrom - xTo;
    66406640      end;
    66416641      if yFrom < yTo then begin
    66426642        yMin := yFrom;
    6643         yRange := yTo - yFrom
     6643        yRange := yTo - yFrom;
    66446644      end else begin
    66456645        yMin := yTo;
    6646         yRange := yFrom - yTo
     6646        yRange := yFrom - yTo;
    66476647      end;
    66486648      inc(xRange, xxt * 2);
     
    66926692        Ticks := NowPrecise;
    66936693      until (((Ticks - Ticks0) * 12) / OneMillisecond) >= MoveTime;
    6694       Ticks0 := Ticks
     6694      Ticks0 := Ticks;
    66956695    end;
    66966696  end;
Note: See TracChangeset for help on using the changeset viewer.