Aucune réponse à ce sujet

[Pstemarie]

Just something I came up with yesterday. It'll be in the new Project Q Base Module, but I thought I'd share it here. Its pretty self-explanatory when you read the script...

 

Spoiler

//::///////////////////////////////////////////////

//:: Project Q Spawn Undead Trigger OnEnter

//:: q_spwndeadtrg_oe.nss

//:: Copyright © 2001 Bioware Corp.

//:://////////////////////////////////////////////

/*

    Project Q v2.1

*/

//:://////////////////////////////////////////////

//:: Created By: Pstemarie

//:: Created On: November 8, 2015

//:://////////////////////////////////////////////

 

#include "x0_i0_position"

 

void main()

{

    object oPC = GetEnteringObject();

    //Only fire for PCs

    if (!GetIsPC(oPC))

        return;

 

    //Only trigger once

    if (GetLocalInt(OBJECT_SELF, "Q_ACTIVATED") == 0)

    {

        //Only at night - you can comment this if statement out to have the trigger active at all times of day

        if (GetIsNight())

        {

            //Get the spawn location from the trigger

            object oSpawn = GetWaypointByTag(GetLocalString(OBJECT_SELF, "Q_SPAWN_WP"));

            location lSpawn;

            string sResRef;

            //Determine the size of the loop to use based upon the value of the variable set on the trigger

            int iLoop = GetLocalInt(OBJECT_SELF, "Q_SPAWN_MULTIPLE");

            if (iLoop > 1)

            {

                int i;

                for (i = 0; i < iLoop; i++)

                {

                    //Cycle the multiple resrefs supplied by variables on the trigger

                    sResRef = GetLocalString(OBJECT_SELF, "Q_SPAWN_RESREF"+IntToString(i));

                    if (sResRef == "") //if no addition values for a multiple spawn use the default value instead

                    {

                        sResRef = GetLocalString(OBJECT_SELF, "Q_SPAWN_RESREF0");

                        if (sResRef == "") //abort on error and write to log

                        {

                            WriteTimestampedLogEntry("ERROR: " +GetTag(OBJECT_SELF)+ " - no resref value assigned to variable Q_SPAWN_RESREF0");

                            return;

                        }

                    }

                    lSpawn = GetRandomLocation(GetArea(OBJECT_SELF), oSpawn, 2.5);

                    DelayCommand(1.0, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DUST_EXPLOSION), lSpawn));

                    CreateObject(OBJECT_TYPE_CREATURE, sResRef, lSpawn, TRUE);

                }

            }

            else

            {

                lSpawn = GetLocation(oSpawn);

                sResRef = GetLocalString(OBJECT_SELF, "Q_SPAWN_RESREF0");

                if (sResRef == "") //abort on error and write to log

                {

                    WriteTimestampedLogEntry("ERROR: " +GetTag(OBJECT_SELF)+ " - no resref value assigned to variable Q_SPAWN_RESREF0");

                    return;

                }

                DelayCommand(1.0, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DUST_EXPLOSION), lSpawn));

                CreateObject(OBJECT_TYPE_CREATURE, sResRef, lSpawn, TRUE);

            }

            //Flag the trigger as actvated so it only spawns creatures once

            SetLocalInt(OBJECT_SELF, "Q_ACTIVATED", 1);

        }

    }

}