Changeset 428
- Timestamp:
- Apr 28, 2022, 9:40:44 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Term.pas
r425 r428 2335 2335 begin 2336 2336 if Flags and CityRepMask <> 0 then 2337 ShowCityList := true 2337 ShowCityList := true; 2338 2338 end; 2339 2339 end; … … 6205 6205 end; 6206 6206 Update; // remove message box from screen 6207 end 6207 end; 6208 6208 end; 6209 6209 … … 6242 6242 Update; // remove message box from screen 6243 6243 MyUn[UnFocus].Status := MyUn[UnFocus].Status or usToldNoReturn; 6244 end 6244 end; 6245 6245 end; 6246 6246 … … 6280 6280 begin 6281 6281 Play('NOMOVE_SUBMARINE'); 6282 PaintLoc(ToLoc) 6282 PaintLoc(ToLoc); 6283 6283 end; 6284 6284 eStealthUnit: 6285 6285 begin 6286 6286 Play('NOMOVE_STEALTH'); 6287 PaintLoc(ToLoc) 6287 PaintLoc(ToLoc); 6288 6288 end; 6289 6289 eZOC_EnemySpotted: 6290 6290 begin 6291 6291 Play('NOMOVE_ZOC'); 6292 PaintLoc(ToLoc, 1) 6292 PaintLoc(ToLoc, 1); 6293 6293 end; 6294 6294 rExecuted .. maxint: … … 6408 6408 begin 6409 6409 LostArmy[i] := MyRO.EnemyModel[i].Lost - LostArmy[i]; 6410 inc(nLostArmy, LostArmy[i]) 6410 inc(nLostArmy, LostArmy[i]); 6411 6411 end; 6412 6412 if result and rUnitRemoved <> 0 then … … 6443 6443 MyRO.EnemyModel[MyRO.EnemyUn[euix].emix].Domain)); 6444 6444 ShowModal; 6445 end 6446 end 6445 end; 6446 end; 6447 6447 end; 6448 6448 if result and rUnitRemoved <> 0 then … … 6455 6455 begin 6456 6456 UpdateViews(true); 6457 Update 6458 end 6457 Update; 6458 end; 6459 6459 end; 6460 6460 … … 6582 6582 assert(result <> eMissionDone); 6583 6583 CheckTerrainBtnVisible; 6584 FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate) 6584 FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate); 6585 6585 end; 6586 6586 … … 6588 6588 then 6589 6589 ZoomToCity(ToLoc, UnFocus < 0, chCaptured); // show captured city 6590 end; // moveunit6590 end; 6591 6591 6592 6592 procedure TMainScreen.MoveOnScreen(ShowMove: TShowMove; … … 6634 6634 if xFrom < xTo then begin 6635 6635 xMin := xFrom; 6636 xRange := xTo - xFrom 6636 xRange := xTo - xFrom; 6637 6637 end else begin 6638 6638 xMin := xTo; 6639 xRange := xFrom - xTo 6639 xRange := xFrom - xTo; 6640 6640 end; 6641 6641 if yFrom < yTo then begin 6642 6642 yMin := yFrom; 6643 yRange := yTo - yFrom 6643 yRange := yTo - yFrom; 6644 6644 end else begin 6645 6645 yMin := yTo; 6646 yRange := yFrom - yTo 6646 yRange := yFrom - yTo; 6647 6647 end; 6648 6648 inc(xRange, xxt * 2); … … 6692 6692 Ticks := NowPrecise; 6693 6693 until (((Ticks - Ticks0) * 12) / OneMillisecond) >= MoveTime; 6694 Ticks0 := Ticks 6694 Ticks0 := Ticks; 6695 6695 end; 6696 6696 end;
Note:
See TracChangeset
for help on using the changeset viewer.