#include "rd_questinc"
#include "rd_spawnzones"

void main()
{
object oPC;
object oItem;
int iRandom;
int iLevel;
int iDifficulty;
string sRandomNPC;
string sCampType;

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

iRandom = Random(3)+1;
switch (iRandom)
    {
    case 1: sRandomNPC = "xander"; break;
    case 2: sRandomNPC = "en3_Vastin"; break;
    case 3: sRandomNPC = "en3_Zach"; break;
    }

iRandom = Random(2)+1;
switch (iRandom)
    {
    case 1: sCampType = "elf"; break;
    case 2: sCampType = "dwarf"; break;
    }

if (sRandomNPC == "xander" && GetTag(OBJECT_SELF) == "xander")
    sRandomNPC = "en3_Vastin";
if (sRandomNPC == "en3_Vastin" && GetTag(OBJECT_SELF) == "en3_Vastin")
    sRandomNPC = "en3_Zach";
if (sRandomNPC == "en3_Zach" && GetTag(OBJECT_SELF) == "en3_Zach")
    sRandomNPC = "xander";

oItem = CreateItemOnObject("en3_letter",oPC);

SetPartyInt(oPC,"QuestType",2);
SetPartyString(oPC,"QuestTargetNPC",sRandomNPC);
SetPartyString(oPC,"QuestItemTag","en3_letter");
SetPartyString(oPC,"QuestAttackers",sCampType);
iDifficulty =1;
SetPartyInt(oPC,"QuestDifficulty",iDifficulty);
}