anchor.diff:      Level: Integer;
       QuestState: TQuestState;
       QuestType: TQuestType;
  -	  Mob: TMobEnum;
  -	  Amount: Integer;
  +    Mob: TMobEnum;
  +    Amount: Integer;
       Kills: Integer;
     end;
   
  
positive.code: 
  const
    QuestBase: array [TQuestEnum] of TQuestBase = (
    // Kill N bears
    (Level: 1; QuestType: qtKillMobs; Mobs: [mbBlack_Bear, mbGrizzly_Bear]; Amount: (Min: 3; Max: 5;);)
    );
  
  type
    TQuestState = (qsActive, qsDone, qsFinish);
  
negative.code:     Level := 1;
      QuestState := qsActive;
      QuestType := qtKillMobs;
      Mob := mbBlack_Bear;
      Amount := 3;
      // Counters
      Kills := 0;
    end;
    Mobs.AddGroup(deDarkWood, mbBlack_Bear, 3);
    // ShowMessage('Quests.Add');
  end;
  
  procedure TQuests.Clear;
  