#include "rd_treasure"
#include "rd_questinc"

void GetFP1Camp(object oPC,object oNPC,string sZone,int iCamp,string sTag);

void main()
{
location lLoc;
object oBoss;
object oPC;
string sTag;

oPC = GetPCSpeaker();

object oPartyMember = GetFirstFactionMember(oPC, TRUE);
while (GetIsObjectValid(oPartyMember) == TRUE)
    {
    SetLocalInt(oPartyMember,"EvilQuest",2);
    oPartyMember = GetNextFactionMember(oPC, TRUE);
    }

if (Random(3)==0)
    sTag = "elf";
else
    sTag = "angelic";

//DelayCommand(0.5f,GetSpecificCamp(oPC,OBJECT_SELF,"FP1",1,sTag));
DelayCommand(0.5f,GetFP1Camp(oPC,OBJECT_SELF,"FP1",1,sTag));
oBoss = CreateObject(OBJECT_TYPE_CREATURE,"en4_ctorm2",GetLocation(GetObjectByTag("FP1_Special1")));
CreateItemOnObject("en4_churchkey",oBoss);
oBoss = GetSpecificCamp(oPC,OBJECT_SELF,"COT",1,"torm");

SetLocalString(OBJECT_SELF,"Quest2",GetTag(oBoss));

if (Random(2)==0)
    GetMagicItem(oBoss);

}

void GetFP1Camp(object oPC,object oNPC,string sZone,int iCamp,string sTag)
{
GetSpecificCamp(oPC,oNPC,sZone,iCamp,sTag);
}