#include "rd_questinc"

void ClearArea(string sArea);

void main()
{
object oPC;
object oBoss;
int iVariance;
int iLevel;
int iAdjustedLevel;
int iRandom;
string sTokenLine;
string sTag;

oPC = GetPCSpeaker();
iLevel = GetHitDice(oPC);
iAdjustedLevel = GetAdjustedLevel(oPC);
iAdjustedLevel = ZoneLevel(GetArea(oPC),iAdjustedLevel);

SetPartyInt(oPC,"QuestStep",1);
SetPartyString(oPC,"QuestGiver",GetTag(OBJECT_SELF));
SetPartyInt(oPC,"Quest",1);
SetCustomToken(111, "");
SetCustomToken(112, "");
SetCustomToken(113, "");

SetToken(oPC,OBJECT_SELF,103,GetName(OBJECT_SELF));

if (iAdjustedLevel < 11)
    {
    iRandom = Random(3)+1;
    switch (iRandom)
        {
        case 1: sTag = "bandit"; break;
        case 2: sTag = "goblin"; break;
        case 3: sTag = "orc"; break;
        }
    }
else if (iAdjustedLevel < 21)
    {
    iRandom = Random(2)+1;
    switch (iRandom)
        {
        case 1: sTag = "merc"; break;
        case 2: sTag = "ogre"; break;
        }
    }
else
    {
    iRandom = Random(2)+1;
    switch (iRandom)
        {
        case 1: sTag = "drow"; break;
        case 2: sTag = "duergar"; break;
        }
    }
if (iAdjustedLevel < 12)
    oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"P1",1,sTag);
else
    oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"P1",2,sTag);

CreateObject(OBJECT_TYPE_CREATURE,"en4_p1_militia2",GetLocation(GetObjectByTag("P1_1")));
sTokenLine = "I need to eliminate some " + GetToken(101) + ".";
sTokenLine = FixTokenLine(sTokenLine,"REPEAT");
SetToken(oPC,OBJECT_SELF,111,sTokenLine);


RemoveJournalQuestEntry("jDelivery",oPC);
RemoveJournalQuestEntry("jCamp",oPC);
AddJournalQuestEntry("jCamp",1,oPC);

}