Changeset 301 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Mar 8, 2021, 10:11:47 PM (3 years ago)

Author:

chronos

Message:

• Modified: CevoTribeExt string defined on single place.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Tribes.pas (modified) (10 diffs)

trunk/LocalPlayer/Tribes.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, LazFileUtils, Classes, Graphics, SysUtils;
+  Protocol, ScreenTools, LazFileUtils, Classes, Graphics, SysUtils, Global;
 
 type
@@ -49 +49 @@
 {$IFNDEF SCR} function TString(Template: string): string;
     function TPhrase(Item: string): string; {$ENDIF}
-    procedure SetModelPicture(const Info: TModelPictureInfo; IsNew: boolean);
+    procedure SetModelPicture(const Info: TModelPictureInfo; IsNew: Boolean);
     function ChooseModelPicture(var Picture: TModelPictureInfo;
-      Code, Turn: Integer; ForceNew: boolean): boolean;
+      Code, Turn: Integer; ForceNew: Boolean): Boolean;
     procedure InitAge(Age: Integer);
   protected
@@ -68 +68 @@
 function CityName(Founder: Integer): string;
 function ModelCode(const ModelInfo: TModelInfo): Integer;
-procedure FindStdModelPicture(code: Integer; var pix: Integer; var Name: string);
-function GetTribeInfo(FileName: string; var Name: string; var Color: TColor): boolean;
+procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
+function GetTribeInfo(FileName: string; var Name: string; var Color: TColor): Boolean;
 procedure FindPosition(HGr, x, y, xmax, ymax: Integer; Mark: TColor;
   var xp, yp: Integer);
@@ -231 +231 @@
 end;
 
-procedure FindStdModelPicture(code: Integer; var pix: Integer; var Name: string);
+procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
 var
   i: Integer;
@@ -239 +239 @@
     Input := StdUnitScript[i];
     pix := GetNum;
-    if code = GetNum then
+    if Code = GetNum then
     begin
       Name := Get;
@@ -249 +249 @@
 
 function GetTribeInfo(FileName: string; var Name: string;
-  var Color: TColor): boolean;
+  var Color: TColor): Boolean;
 var
   Found: Integer;
@@ -258 +258 @@
   Found := 0;
   AssignFile(TribeScript, LocalizedFilePath('Tribes' + DirectorySeparator +
-    FileName + '.tribe.txt'));
+    FileName + CevoTribeExt));
   Reset(TribeScript);
   while not EOF(TribeScript) do
@@ -285 +285 @@
 var
   Line: Integer;
-  Variant: char;
+  Variant: Char;
   Item: string;
 begin
@@ -292 +292 @@
     Name[Variant] := '';
   Script := TStringList.Create;
-  Script.LoadFromFile(LocalizedFilePath('Tribes' + DirectorySeparator +
-    FileName + '.tribe.txt'));
+  Script.LoadFromFile(FileName);
   CityLine0 := 0;
   nCityLines := 0;
@@ -476 +475 @@
 end;
 
-procedure TTribe.SetModelPicture(const Info: TModelPictureInfo; IsNew: boolean);
+procedure TTribe.SetModelPicture(const Info: TModelPictureInfo; IsNew: Boolean);
 var
   i: Integer;