#include "rd_questinc"

void main()
{
object oPC;
object oBoss;
string sZone;
int iCamp;
int iCamps;
int iLevel;
int iLeader;
int iDifficulty;
string sCamp;

oPC=GetPCSpeaker();
iLevel = GetHitDice(oPC);
SetPartyInt(oPC,"EvilQuest",1);
SetPartyInt(oPC,"QuestStep",1);

iLevel = GetHitDice(oPC);

sZone = GetZone(oPC);

iCamps = GetMaxQuestCampSpots(sZone);
iCamp = Random(iCamps)+1;

iLevel = iLevel + Random(5)-2;

if (iLevel<7)
    sCamp = "dragon0";
else if (iLevel<13)
    sCamp = "angel";
else if (iLevel<17)
    sCamp = "dragon1";
else if (iLevel<22)
    sCamp = "dragon2";
else if (iLevel<29)
    sCamp = "dragon3";
else
    sCamp = "dragon4";

oBoss = SpawnQuestCamp(sZone,iCamp,iLevel,0,sCamp);

SetPartyInt(oPC,"QuestType",1);
SetPartyInt(oPC,"QuestCamp",iCamp);
SetPartyString(oPC,"QuestCampzone",sZone);
SetPartyString(oPC,"QuestTargetNPC",GetTag(OBJECT_SELF));
iDifficulty =1;
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);
}