Changeset 17 for trunk/UCore.pas

Timestamp:

Oct 5, 2019, 12:17:17 PM (5 years ago)

Author:

chronos

Message:

• Modified: Tiles matrix moved to separate class called TBoard.

File:

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

trunk/UCore.pas

@@ -53 +53 @@
   Randomize;
   Game := TGame.Create;
-  Game.Size := Point(4, 4);
+  Game.Board.Size := Point(4, 4);
   Game.OnChange := GameChange;
   LoadConfig;
@@ -116 +116 @@
 
     Game.TopScore := ReadIntegerWithDefault('TopScore', 0);
-    Game.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
+    Game.Board.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
     Game.AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
     if ValueExists('LanguageCode') then
@@ -133 +133 @@
 
     WriteInteger('TopScore', Game.TopScore);
-    WriteInteger('SizeX', Game.Size.X);
-    WriteInteger('SizeY', Game.Size.Y);
+    WriteInteger('SizeX', Game.Board.Size.X);
+    WriteInteger('SizeY', Game.Board.Size.Y);
     WriteInteger('AnimationDuration', Game.AnimationDuration);
     if Assigned(Translator1.Language) and (Translator1.Language.Code <> '') then