anchor.diff:      Level := 1;
       QuestState := qsActive;
       QuestType := qtKillMobs;
  -	  Mob := mbBlack_Bear;
  -	  Amount := 3;
  +    Mob := mbBlack_Bear;
  +    Amount := 3;
       // Counters
       Kills := 0;
     end;
     Mobs.AddGroup(deDarkWood, mbBlack_Bear, 3);
  -//  ShowMessage('Quests.Add');
  +  // ShowMessage('Quests.Add');
   end;
   
   procedure TQuests.Clear;
  
positive.code:   TQuestBase = record
      Level: Integer;
      QuestType: TQuestType;
  	  Mobs: TSetOfMobEnum;
  	  Amount: TMinMax;
    end;
  
  type
  
negative.code:     Level: Integer;
      QuestState: TQuestState;
      QuestType: TQuestType;
      Mob: TMobEnum;
      Amount: Integer;
      Kills: Integer;
    end;
  
  