Changeset 100 for trunk/UCity.pas

Timestamp:

Sep 28, 2022, 7:14:22 PM (20 months ago)

Author:

chronos

Message:

• Added: New game mode carrier where user needs to play existing cities and gradually unlock them by reaching exprected transported number of passengers.

File:

• trunk/UCity.pas (modified) (2 diffs)

trunk/UCity.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections;
+  Classes, SysUtils, Graphics, Generics.Collections, URegistry;
 
 type
+
+  { TCity }
+
   TCity = class
+    SysName: string;
     Name: string;
+    Population: Integer;
     Locked: Boolean;
+    LineColors: array of TColor;
+    InitialLineCount: Integer;
     PassengersCountToUnlock: Integer;
+    HighestServedPassengerCount: Integer;
+    HighestServedDaysCount: Integer;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
+    constructor Create;
   end;
 
@@ -16 +28 @@
 
   TCities = class(TObjectList<TCity>)
-    function AddNew(Name: string): TCity;
+    function AddNew(SysName, Name: string; Population: Integer): TCity;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
+
+const
+  clDarkYellow = TColor($00dede);
+  clOrange = TColor($0080ff);
+  clBrown = TColor($003090);
+  clCyan = TColor($FFFF00);
+  clPink = TColor($ff69b4);
 
 
 implementation
 
+{ TCity }
+
+procedure TCity.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+    Locked := ReadBoolWithDefault('Locked', Locked);
+    HighestServedPassengerCount := ReadIntegerWithDefault('HighestServedPassengerCount', HighestServedPassengerCount);
+    HighestServedDaysCount := ReadIntegerWithDefault('HighestServedDaysCount', HighestServedDaysCount);
+  finally
+    Free;
+  end;
+end;
+
+procedure TCity.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+    WriteBool('Locked', Locked);
+    WriteInteger('HighestServedPassengerCount', HighestServedPassengerCount);
+    WriteInteger('HighestServedDaysCount', HighestServedDaysCount);
+  finally
+    Free;
+  end;
+end;
+
+constructor TCity.Create;
+begin
+  PassengersCountToUnlock := 500;
+  InitialLineCount := 1;
+  LineColors := [clBlue, clRed, clDarkYellow, clGreen,
+     clPurple, clGray, clOrange, clBrown, clCyan];
+end;
+
 { TCities }
 
-function TCities.AddNew(Name: string): TCity;
+function TCities.AddNew(SysName, Name: string; Population: Integer): TCity;
 begin
   Result := TCity.Create;
+  Result.SysName := SysName;
   Result.Name := Name;
+  Result.Population := Population;
   Add(Result);
+end;
+
+procedure TCities.LoadFromRegistry(Context: TRegistryContext);
+var
+  City: TCity;
+begin
+  for City in Self do begin
+    City.LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '/' + City.SysName));
+  end;
+end;
+
+procedure TCities.SaveToRegistry(Context: TRegistryContext);
+var
+  City: TCity;
+begin
+  for City in Self do begin
+    City.SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '/' + City.SysName));
+  end;
 end;