Changeset 102 for trunk/UEngine.pas

Timestamp:

Sep 28, 2022, 9:54:51 PM (20 months ago)

Author:

chronos

Message:

• Modified: More cities available in career mode.

File:

• trunk/UEngine.pas (modified) (3 diffs)

trunk/UEngine.pas

@@ -387 +387 @@
   STokyo = 'Tokyo';
   SRome = 'Rome';
+  SSeoul = 'Seoul';
+  SBeijing = 'Beijing';
 
 { TMetroCarriage }
@@ -1955 +1957 @@
       LineColors := [clRed, clGreen, clYellow];
       InitialLineCount := 1;
-      PassengersCountToUnlock := 200;
+      PassengersCountToUnlock := 300;
     end;
     with AddNew('Paris', SParis, 2138551) do begin
@@ -1961 +1963 @@
         clPurple, clOlive, clAqua, clDarkYellow, clPink];
       InitialLineCount := 1;
-      PassengersCountToUnlock := 300;
+      PassengersCountToUnlock := 500;
     end;
     with AddNew('Rome', SRome, 2872800) do begin
       LineColors := [clRed, clGreen, clYellow];
       InitialLineCount := 1;
-      PassengersCountToUnlock := 500;
+      PassengersCountToUnlock := 700;
     end;
     with AddNew('NewYork', SNewYork, 8804190) do begin
       InitialLineCount := 1;
-      PassengersCountToUnlock := 700;
+      PassengersCountToUnlock := 1000;
     end;
     with AddNew('London', SLondon, 9002488) do begin
       InitialLineCount := 3;
-      PassengersCountToUnlock := 1000;
+      PassengersCountToUnlock := 1500;
+    end;
+    with AddNew('Seoul', SSeoul, 10197604) do begin
+      InitialLineCount := 3;
+      LineColors := [clRed, clGreen, clYellow, clOrange, clGray,
+        clPink, clCyan, clMoneyGreen, clPurple, clSkyBlue];
+      PassengersCountToUnlock := 2000;
     end;
     with AddNew('Tokyo', STokyo, 13960236) do begin
       InitialLineCount := 3;
-      PassengersCountToUnlock := 2000;
+      PassengersCountToUnlock := 2500;
+    end;
+    with AddNew('Beijing', SBeijing, 21893095) do begin
+      InitialLineCount := 3;
+      LineColors := [clRed, clGreen, clYellow, clOrange, clOlive, clGray,
+        clPink, clCyan, clMoneyGreen, clPurple, clSkyBlue, clBrown];
+      PassengersCountToUnlock := 3000;
     end;
   end;