Changeset 99 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 25, 2018, 8:57:34 PM (7 years ago)

Author:

chronos

Message:

• Fixed: It was not possible to start revolution and change goverment.

File:

• trunk/LocalPlayer/Term.pas (modified) (5 diffs)

trunk/LocalPlayer/Term.pas

@@ -6772 +6772 @@
   i, uix, NewFocus, Loc0, OldMaster, Destination, cix, cixOldHome,
     ServerResult: integer;
-  AltGovs, Changed: boolean;
+  AltGovs, RevolutionChanged: boolean;
   QueryText: string;
 
@@ -6821 +6821 @@
     else
     begin
-      Changed := false;
+      RevolutionChanged := false;
       if MyRO.Happened and phChangeGov <> 0 then
       begin
@@ -6830 +6830 @@
           Server(sSetGovernment, me, ModalSelectDlg.result, nil^);
           CityOptimizer_BeginOfTurn;
-          Changed := true;
+          RevolutionChanged := true;
         end
       end
       else
-      // TODO with MessgExDlg do
+      with MessgExDlg do
       begin // revolution!
         MessgExDlg.MessgText := Tribe[me].TPhrase('REVOLUTION');
@@ -6845 +6845 @@
           Play('REVOLUTION');
           Server(sRevolution, me, 0, nil^);
-          Changed := true;
+          RevolutionChanged := true;
           if NatStatDlg.Visible then
             NatStatDlg.Close;
@@ -6852 +6852 @@
         end
       end;
-      if Changed then
+      if RevolutionChanged then
         UpdateViews(true);
     end