#include "x0_i0_partywide"

void main()

{

    object oActor;
    object oTarget;

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

    // Give 850 gold (to party) to the PC.
    GiveGoldToAll(oPC, 350);
    GiveXPToAll(oPC, 50);

    // Have "mrcrbt1" perform a sequence of actions.
    oActor = GetObjectByTag("mrcrbt1");
    AssignCommand(oActor, ActionMoveAwayFromObject(oPC));

    // Have "mrcrbt1" say something.
    AssignCommand(GetObjectByTag("mrcrbt1"), SpeakString("Thank you for dealing with this. Here's some extra rilks. Farewell."));

    // Close and lock "crbthse1y".
    oTarget = GetObjectByTag("crbthse1y");
    AssignCommand(oTarget, ActionCloseDoor(oTarget));
    SetLocked(oTarget, TRUE);

    // Cutscene functions:
    DelayCommand(0.2, BlackScreen(oPC));

    // Destroy an object (not fully effective until this script ends).
    DelayCommand(0.2, DestroyObject(GetObjectByTag("crbttld1")));
    DelayCommand(0.3, DestroyObject(GetObjectByTag("crbttld2")));
    DelayCommand(0.3, DestroyObject(GetObjectByTag("crbttld3")));
    DelayCommand(0.4, DestroyObject(GetObjectByTag("crbttld4")));
    DelayCommand(0.5, DestroyObject(GetObjectByTag("crbthse1")));
    DelayCommand(0.6, DestroyObject(GetObjectByTag("crbthseky1")));
    DelayCommand(0.7, DestroyObject(GetObjectByTag("ktnte2")));
    DelayCommand(0.8, DestroyObject(GetObjectByTag("liberivns1")));
    DelayCommand(0.9, DestroyObject(GetObjectByTag("Horoscopect")));
    DelayCommand(1.0, DestroyObject(GetObjectByTag("crbtdries1")));
    DelayCommand(1.1, DestroyObject(GetObjectByTag("obsdindggr1")));

    // Cutscene functions:
    DelayCommand(1.2, FadeFromBlack(oPC));

    // Destroy an object
    DelayCommand(5.0, DestroyObject(GetObjectByTag("mrcrbt1")));
}