anchor.diff:    I: Integer;
   begin
     for I := 0 to Count - 1 do
  -    case AQuestType of
  -      qtKillMobs:
  -        with FQuest[I] do
  -          if ((QuestType = qtKillMobs) and (QuestState = qsActive) and (Mob = TMobEnum(Value))) then
  -            Kills := Kills + 1;
  +    with FQuest[I] do
  +    begin
  +      // Killing monsters
  +      if ((QuestType = AQuestType) and (QuestState = qsActive) and
  +        (Mob = TMobEnum(Value))) then
  +        Kills := Kills + 1;
       end;
   end;
   
  
positive.code:   public
      procedure Clear;
      constructor Create;
  	  function Count: Integer;
  	  procedure Add(const QuestEnum: TQuestEnum);
      property Quest[I: Integer]: TQuest read GetQuest write SetQuest;
      procedure DoQuest(const AQuestType: TQuestType; const Value: Integer);
    end;
  
negative.code: 
  type
    TQuestType = (qtKillMobs);
  
  type
    TSetOfMobEnum = set of TMobEnum;
  
  