anchor.diff:  unit uPlayer;
   
   interface
  +
  +type
  +  TSkillEnum = (skSword, skAxe, skSpear);
  +
  +const
  +  SkillName: array [TSkillEnum] of string = (
  +  'Swords', 'Axes', 'Spears'
  +  );
   
   type
     TSkill = record
  
positive.code: implementation
  
  uses Classes, SysUtils, Dialogs, Math, uCommon, uMap;
  
  { TPlayer }
  
  
negative.code:     procedure AddTurn;
      function GetRadius: Byte;
      function SaveCharacterDump(AReason: string): string;
      procedure Skill(ASkill: TSkillEnum; AExpValue: Byte = 10);
    end;
  
  var
  