anchor.diff: -unit uQuest;
  +﻿unit uQuest;
   
   interface
   
  
positive.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;
  
negative.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);
  