void SetPartyVariables(object oPC);

void main()
{
int iDifficulty;
int iGold;
int iXP;
int iChance;
int iRandom;
object oPC;

oPC = GetPCSpeaker();

if (GetLocalInt(oPC,"QuestType") == 1)
    AddJournalQuestEntry("jCamp",12,oPC);
else
    AddJournalQuestEntry("jDelivery",2,oPC);

if (GetLocalInt(oPC,"QuestAdventureZone") > 0)
    {
    SetLocalInt(GetModule(),"AdventureZone",0);
    SetLocalInt(GetModule(),"AdvZones",0);
    }

SetPartyVariables(oPC);

}

void SetPartyVariables(object oPC)
{
int iDeaths;
int iLastQuest;
int iNPCQuests;
int iIndex;
int iCount;
string sZone;
string sQuestStep;
object oGiver;

object oPartyMember = GetFirstFactionMember(oPC, TRUE);
while (GetIsObjectValid(oPartyMember) == TRUE)
{
    oGiver = GetObjectByTag(GetLocalString(oPartyMember,"QuestGiver"));

    iLastQuest =GetLocalInt(oPartyMember,"Quest");
    SetLocalInt(oPartyMember,"LastQuest",iLastQuest);

    SetLocalInt(oPartyMember,"Quest",0);
    SetLocalInt(oPartyMember,"QuestStep",0);
    SetLocalInt(oPartyMember,"QuestType",0);
    SetLocalInt(oPartyMember,"QuestDifficulty",0);
    SetLocalInt(oPartyMember,"QuestDone",0);
    SetLocalInt(oPartyMember,"QuestItemUnknown",0);
    SetLocalInt(oPartyMember,"SpecialQuestType",0);
    SetLocalInt(oPartyMember,"QuestLevel",0);
    SetLocalInt(oPartyMember,"QuestAdventureZone",0);

    iCount = GetLocalInt(oPartyMember,"QuestSteps");
    iIndex = 1;
    while (iIndex <= iCount)
        {
        sQuestStep = "QuestStep" + IntToString(iIndex);
        SetLocalInt(oPartyMember,sQuestStep,0);
        SetLocalString(oPartyMember,sQuestStep + "Mob","");
        SetLocalString(oPartyMember,sQuestStep + "Item","");
        SetLocalString(oPartyMember,sQuestStep + "Token111","");
        SetLocalString(oPartyMember,sQuestStep + "Token112","");
        SetLocalString(oPartyMember,sQuestStep + "Token113","");
        SetLocalString(oPartyMember,sQuestStep + "Response","");
        SetLocalString(oPartyMember,sQuestStep + "Reply","");
        SetLocalString(oPartyMember,sQuestStep + "Escort","");
        SetLocalInt(oPartyMember,sQuestStep + "ItemUnknown",0);
        iIndex++;
        }

    SetLocalInt(oPartyMember,"QuestSteps",0);

    SetLocalString(oPartyMember,"QuestTargetNPC","");
    SetLocalString(oPartyMember,"QuestItemTag","");
    SetLocalString(oPartyMember,"QuestAttackers","");
    SetLocalString(oPartyMember,"QuestGiver","");
    SetLocalString(oPartyMember,"QuestTargetMob","");
    SetLocalString(oPartyMember,"QuestCampType","");
    SetLocalString(oPartyMember,"QuestEscort","");

    sZone = GetLocalString(oPartyMember,"QuestZone");
    SetLocalInt(GetModule(),sZone,0);
    SetLocalString(oPartyMember,"QuestZone","");


    iNPCQuests = GetLocalInt(oGiver,"QuestsCompleted");
    iNPCQuests++;
    SetLocalInt(oGiver,"QuestsCompleted",iNPCQuests);
    SetLocalString(oGiver,"QUEST_PC" + IntToString(iNPCQuests),GetName(oPartyMember));

    oPartyMember = GetNextFactionMember(oPC, TRUE);
}

}