anchor.diff:  function TKMHandAI.GetIsNotWinnerNotLoser: Boolean;
   begin
     Result := fWonOrLost = wol_None;
  -end;
  -
  -
  -function TKMHandAI.GetWonOrLostString: UnicodeString;
  -begin
  -  Result := '';
  -  case fWonOrLost of
  -    wol_None: Result := 'Undefined';
  -    wol_Won:  Result := 'Won';
  -    wol_Lost: Result := 'Lost';
  -  end;
   end;
   
   
  
positive.code: {$I KaM_Remake.inc}
  interface
  uses
    KM_CommonClasses, KM_CommonTypes, KM_Defaults,
    KM_Houses, KM_Units, KM_Units_Warrior,
    KM_AISetup, KM_AIMayor, KM_AIGoals, KM_AIGeneral,
    KM_CityManagement, KM_ArmyManagement;
  
  
  type
    //Things that player does automatically
  
negative.code:     property HasWon: Boolean read GetHasWon;
      property HasLost: Boolean read GetHasLost;
      property IsNotWinnerNotLoser: Boolean read GetIsNotWinnerNotLoser;
      procedure OwnerUpdate(aPlayer: TKMHandIndex);
      procedure HouseAttackNotification(aHouse: TKMHouse; aAttacker: TKMUnitWarrior);
      procedure UnitHPDecreaseNotification(aUnit: TKMUnit; aAttacker: TKMUnit; aNotifyScript: Boolean = True);
  