anchor.diff:    //Possibly melee warrior class? with Archer class separate?
     TKMUnitWarrior = class(TKMUnit)
     private
  -    fPrivatePointerCommander:TKMUnitWarrior; //NOT to be used! Use fCommander instead!
       fFlagAnim:cardinal;
       fOrderedFood:boolean;
       fTimeSinceHungryReminder: integer;
  
positive.code: var i:integer;
  begin
    Inherited;
    fCommander := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fPrivatePointerCommander))); //Using public access will update pointer usage
    OrderTarget := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fOrderTarget))); //Using public access will update pointer usage
    if fMembers<>nil then
      for i:=1 to fMembers.Count do
        fMembers.Items[i-1] := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fMembers.Items[i-1])));
  
negative.code:     procedure UpdateHungerMessage();
      procedure ClearOrderTarget;
    public
      fCommander:TKMUnitWarrior; //ID of commander unit, if nil then unit is commander itself and has a shtandart
      constructor Create(const aOwner: TPlayerID; PosX, PosY:integer; aUnitType:TUnitType);
      constructor Load(LoadStream:TKMemoryStream); override;
      destructor Destroy; override;
  