#include "rd_questinc"
#include "rd_advzones"

void main()
{
object oPC;
object oBoss;
int iLevel;
int iAdjustedLevel;
int iQuestType;
int iZones;
int iDifficulty;
string sTokenLine;

oPC = GetPCSpeaker();

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

SetPartyInt(oPC,"QuestStep",1);
SetPartyString(oPC,"QuestGiver",GetTag(OBJECT_SELF));
SetPartyString(oPC,"QuestItemTag","en4_qrod");
SetPartyInt(oPC,"Quest",1);
SetPartyInt(oPC,"QuestType",3);
SetPartyInt(oPC,"QuestAdventureZone",1);
SetPartyString(oPC,"AZRespawn",GetTag(OBJECT_SELF));

oBoss = SetupAdventureZones(iAdjustedLevel);
CreateItemOnObject("en4_qrod",oBoss);
SetCustomToken(105, GetName(oBoss));

iZones = GetLocalInt(GetModule(),"AdvZones");
if (iZones < 3)
    iDifficulty = 2;
else if (iZones < 5)
    iDifficulty = 3;
else
    iDifficulty = 4;
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);

SetCustomToken(111, "");
SetCustomToken(112, "");
SetCustomToken(113, "");

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


sTokenLine = GetName(OBJECT_SELF) + " has sent me in search of a rod which she indicates may be guarded by a " + GetName(oBoss) + ".";
sTokenLine = FixTokenLine(sTokenLine,"REPEAT");
SetToken(oPC,OBJECT_SELF,111,sTokenLine);


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

}