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,aCount:integer; W:TKMUnitWarrior;
  begin
    Inherited;
    LoadStream.Read(fPrivatePointerCommander, 4); //subst on syncload
    LoadStream.Read(fOrderTarget, 4); //subst on syncload
    LoadStream.Read(fFlagAnim);
    LoadStream.Read(fOrderedFood);
  
negative.code: var i:integer;
  begin
    Inherited;
    fCommander := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fCommander)));
    fOrderTarget := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fOrderTarget)));
    if fMembers<>nil then
      for i:=1 to fMembers.Count do
        fMembers.Items[i-1] := TKMUnitWarrior(fPlayers.GetUnitByID(integer(fMembers.Items[i-1])));
  