anchor.diff:      procedure AddTurn;
       function GetRadius: Byte;
       function SaveCharacterDump(AReason: string): string;
  +    procedure Skill(ASkill: TSkillEnum; AExpValue: Byte = 10);
     end;
   
   var
  
positive.code:   end;
  end;
  
  procedure TPlayer.Wait;
  begin
    Move(0, 0);
  
negative.code:     FX := Clamp(X + AX, 0, High(Byte));
      FY := Clamp(Y + AY, 0, High(Byte));
      AddTurn;
      if (Map.GetTileEnum(FX, FY, Map.Deep) in StopTiles) and not WizardMode then Exit;
      X := FX;
      Y := FY;
    end;
  