Changeset 277 for trunk/UUnit.pas

Timestamp:

Feb 5, 2019, 11:17:27 PM (6 years ago)

Author:

chronos

Message:

• Added: Forms for list of unit kinds and unit kind.

File:

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

trunk/UUnit.pas

@@ -19 +19 @@
     Moves: Integer;
     Cost: Integer;
-    Stack: Integer;
+    Power: Integer;
     ViewRange: Integer;
+    procedure Assign(Source: TUnitKind);
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -89 +90 @@
 { TUnitKind }
 
+procedure TUnitKind.Assign(Source: TUnitKind);
+begin
+  Id := Source.Id;
+  Name := Source.Name;
+  PowerAttack := Source.PowerAttack;
+  PowerDefense := Source.PowerDefense;
+  Moves := Source.Moves;
+  Cost := Source.Cost;
+  Power := Source.Power;
+  ViewRange := Source.ViewRange;
+end;
+
 procedure TUnitKind.LoadFromNode(Node: TDOMNode);
 begin
   Id := ReadInteger(Node, 'Id', 0);
   Name := ReadString(Node, 'Name', '');
-  Stack := ReadInteger(Node, 'Stack', 0);
+  Power := ReadInteger(Node, 'Stack', 0);
   Cost := ReadInteger(Node, 'Cost', 0);
   Moves := ReadInteger(Node, 'Moves', 0);
@@ -105 +118 @@
   WriteInteger(Node, 'Id', Id);
   WriteString(Node, 'Name', Name);
-  WriteInteger(Node, 'Stack', Stack);
+  WriteInteger(Node, 'Stack', Power);
   WriteInteger(Node, 'Cost', Cost);
   WriteInteger(Node, 'Moves', Moves);