#include "x0_i0_partywide"
#include "nw_i0_generic"

void main()

{
    object oSpawn;
    object oActor;

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

    SetLocalString(oPC, "crbtmnst", "1");

    // Cutscene functions:
    BlackScreen(oPC);

    // Give 10 XP (to party) to the PC.
    GiveXPToAll(oPC, 10);

    // Spawn "wcorbitt1".
    oSpawn = CreateObject(OBJECT_TYPE_CREATURE, "wcorbitt1", GetLocation(oPC));
    AssignCommand(oSpawn, DetermineCombatRound(oPC));

    // Destroy objects (not fully effective until this script ends).
    DelayCommand(0.1, DestroyObject(GetObjectByTag("CorbittCorpse1")));

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

    // Have the PC say something.
    DelayCommand(0.5, AssignCommand(oPC, SpeakString("Insanity!")));

    // Have the PC perform a sequence of actions.
    AssignCommand(oPC, ActionWait(1.0));

    // Have the PC perform a sequence of actions.
    AssignCommand(oPC, ActionPlayAnimation(ANIMATION_FIREFORGET_SPASM));

    // Have "" cast Confusion.
    oActor = GetObjectByTag("crbtcpse1");
    DelayCommand(4.0, AssignCommand(oActor, ActionCastSpellAtObject(SPELL_CONFUSION, oPC, METAMAGIC_ANY, TRUE)));

    // Destroy objects
    DelayCommand(4.1, DestroyObject(GetObjectByTag("crbtcpse1")));

}