#include "rd_questinc"

void main()
{
object oPC;
object oBoss;
object oVillager;
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);
SetPartyInt(oPC,"QuestType",2);
SetCustomToken(111, "");
SetCustomToken(112, "");
SetCustomToken(113, "");

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

if (iAdjustedLevel < 11)
    {
    iRandom = Random(4)+1;
    switch (iRandom)
        {
        case 1: sTag = "bandit"; break;
        case 2: sTag = "goblin"; break;
        case 3: sTag = "orc"; break;
        case 4: sTag = "slaver"; break;
        }
    }
else if (iAdjustedLevel < 21)
    {
    iRandom = Random(3)+1;
    switch (iRandom)
        {
        case 1: sTag = "merc"; break;
        case 2: sTag = "ogre"; break;
        case 3: sTag = "slaver"; break;
        }
    }
else
    {
    iRandom = Random(3)+1;
    switch (iRandom)
        {
        case 1: sTag = "drow"; break;
        case 2: sTag = "duergar"; break;
        case 3: sTag = "slaver"; break;
        }
    }

oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"P2",1,sTag);

oVillager = GetObjectByTag("p2_villager1");
DestroyObject(oVillager);
oVillager = GetObjectByTag("p2_villager2");
DestroyObject(oVillager);
oVillager = GetObjectByTag("p2_villager3");
DestroyObject(oVillager);

CreateObject(OBJECT_TYPE_CREATURE,"p2_villager1",GetLocation(GetObjectByTag("P2_1")));
CreateObject(OBJECT_TYPE_CREATURE,"p2_villager2",GetLocation(GetObjectByTag("P2_2")));
CreateObject(OBJECT_TYPE_CREATURE,"p2_villager3",GetLocation(GetObjectByTag("P2_3")));

sTokenLine = "I need to save some prisoners from some " + GetToken(101) + ".";
sTokenLine = FixTokenLine(sTokenLine,"REPEAT");
SetToken(oPC,OBJECT_SELF,111,sTokenLine);


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

}