anchor.diff:    SkillMax = 75;
     SkillExpMax = 55;
     // Satiation
  -  SatiationCost = 4;
     StarvingMax = 500;
     SatiatedMax = 8000;
     EngorgedMax = 15000;
  
positive.code:     property ItemIsDrop: Boolean read FItemIsDrop write FItemIsDrop;
      property ItemIndex: Integer read FItemIndex write FItemIndex;
      property ItemAmount: Integer read FItemAmount write FItemAmount;
      procedure SetAmountScene(IsDrop: Boolean; Index, Amount: Integer);
      procedure Render(AX, AY: Byte);
      procedure Move(AX, AY: ShortInt);
  
negative.code:   inherited;
    Exp := 0;
    Turn := 0;
    Gold := 0;
    Score := 0;
    Kills := 0;
  