source: trunk/UnitKind.pas

unit UnitKind;

interface

uses
  Classes, SysUtils, ItemList;

type
  { TUnitKind }

  TUnitKind = class(TItem)
    PowerAttack: Integer;
    PowerDefense: Integer;
    Moves: Integer;
    Cost: Integer;
    Power: Integer;
    ViewRange: Integer;
    class function GetFields: TItemFields; override;
    procedure GetValue(Index: Integer; out Value); override;
    procedure SetValue(Index: Integer; var Value); override;
    class function GetClassSysName: string; override;
    class function GetClassName: string; override;
  end;

  { TUnitKinds }

  TUnitKinds = class(TItemList)
    constructor Create(FreeObjects: Boolean = True);
    class function GetItemClass: TItemClass; override;
  end;


implementation

resourcestring
  SStack = 'Stack';
  SCost = 'Cost';
  SMoves = 'Moves';
  SPowerAttack =  'Attack power';
  SPowerDefense = 'Defense power';
  SViewRange = 'View range';
  SUnitKind = 'Unit kind';

{ TUnitKind }

class function TUnitKind.GetFields: TItemFields;
begin
  Result := inherited;
  Result.AddField(2, 'Stack', SStack, dtInteger);
  Result.AddField(3, 'Cost', SCost, dtInteger);
  Result.AddField(4, 'Moves', SMoves, dtInteger);
  Result.AddField(5, 'PowerAttack', SPowerAttack, dtInteger);
  Result.AddField(6, 'PowerDefense', SPowerDefense, dtInteger);
  Result.AddField(7, 'ViewRange', SViewRange, dtInteger);
end;

procedure TUnitKind.GetValue(Index: Integer; out Value);
begin
  if Index = 1 then string(Value) := Name
  else if Index = 2 then Integer(Value) := Power
  else if Index = 3 then Integer(Value) := Cost
  else if Index = 4 then Integer(Value) := Moves
  else if Index = 5 then Integer(Value) := PowerAttack
  else if Index = 6 then Integer(Value) := PowerDefense
  else if Index = 7 then Integer(Value) := ViewRange
  else inherited;
end;

procedure TUnitKind.SetValue(Index: Integer; var Value);
begin
  if Index = 1 then Name := string(Value)
  else if Index = 2 then Power := Integer(Value)
  else if Index = 3 then Cost := Integer(Value)
  else if Index = 4 then Moves := Integer(Value)
  else if Index = 5 then PowerAttack := Integer(Value)
  else if Index = 6 then PowerDefense := Integer(Value)
  else if Index = 7 then ViewRange := Integer(Value)
  else inherited;
end;

class function TUnitKind.GetClassSysName: string;
begin
  Result := 'UnitKind';
end;

class function TUnitKind.GetClassName: string;
begin
  Result := SUnitKind;
end;

{ TUnitKinds }

constructor TUnitKinds.Create(FreeObjects: Boolean);
begin
  inherited;
end;

class function TUnitKinds.GetItemClass: TItemClass;
begin
  Result := TUnitKind;
end;

end.