anchor.diff:      with fRequiredWeapons[WT] do
         aBalanceText := aBalanceText + WARFARE[WT] + ':   ('
                         + Format(
  -                        COLOR_GREEN+'%D'+COLOR_WHITE+'; '
  +                         COLOR_GREEN+'%D'+COLOR_WHITE+'; '
                           +COLOR_RED+'%D'+COLOR_WHITE+'; '
                           +COLOR_YELLOW+'%.2f'+COLOR_WHITE+')|', [Avaiable, Required, Fraction]
                         );
  
positive.code:   public
      constructor Create(aPlayer: TKMHandIndex; aSetup: TKMHandAISetup);
      destructor Destroy(); override;
  
      procedure AfterMissionInit();
      procedure OwnerUpdate(aPlayer: TKMHandIndex);
  
negative.code: 
      procedure UpdateState(aTick: Cardinal);
      procedure LogStatus(var aBalanceText: UnicodeString);
  
    end;
  
  