#include "x0_i0_partywide"
#include "nw_i0_generic"

void main()
{
    // Get the PC who is in this conversation.
    object oPC = GetPCSpeaker();

    object oActor;

    object oTarget;

    object oSelf = OBJECT_SELF;

    FadeToBlack(oPC);

oTarget = GetObjectByTag("PLCCBLLeye");

DestroyObject(oTarget, 0.5);

// Give 500 experience (to party) to the PC.
    GiveXPToAll(oPC, 500);

    CreateItemOnObject("sklkey", oPC);

    CreateItemOnObject("eyeofthelev", oPC);

    // Destroy objects (not fully effective until this script ends).
    DelayCommand(1.0, DestroyObject(GetObjectByTag("rblsk1")));
    DelayCommand(1.1, DestroyObject(GetObjectByTag("rblsk2")));
    DelayCommand(1.2, DestroyObject(GetObjectByTag("rblsk3")));

    DelayCommand(1.7, FadeFromBlack(oPC));

    // Cutscene functions:
   DelayCommand(2.0, SetCutsceneMode(oPC, FALSE));

    // Have "skleader" perform a sequence of actions.

    oActor = GetObjectByTag("ShreekahStageIVxcb");

    DelayCommand(2.2, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


    oActor = GetObjectByTag("ShreekahStageIxc");

    DelayCommand(2.3, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


    oActor = GetObjectByTag("ShreekahStageVxc");

    DelayCommand(2.4, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


    oActor = GetObjectByTag("ShreekahStageIIxc");

    DelayCommand(2.5, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


    oActor = GetObjectByTag("ShreekahStageVIxc");

    DelayCommand(2.6, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


    oActor = GetObjectByTag("skleader");

    DelayCommand(2.7, AssignCommand(oActor, ActionJumpToObject(GetObjectByTag("Bonesskldr"))));


// Destroy an object (not fully effective until this script ends).
   DelayCommand(3.0, DestroyObject(oSelf));

}