Quest persistence pass

Quest persistence pass.

_module/nss/qst_tribitz_end1.nss

@@ -0,0 +1,51 @@
+//::///////////////////////////////////////////////
+//:: qst_tribitz_end1.nss
+//:: Copyright (c) 2022 Project RATDOG
+//:://////////////////////////////////////////////
+/*
+    Finishes the "Quests of Tribitz" quest with
+    Tribitz dead & cleans up NPCs.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Tolen
+//:: Created On: 8/24/2005 9:08:28 PM
+//:://////////////////////////////////////////////
+
+#include "pqj_inc"
+#include "nw_i0_tool"
+
+void main()
+{
+//:: Declare major variables
+    object oPC = GetPCSpeaker();
+    object oTarget = OBJECT_SELF;
+    object oSpawn;
+    location lTarget;
+    int nInt = GetObjectType(oTarget);
+
+//:: Set Tribitz to destroyable.
+SetIsDestroyable( TRUE, FALSE, FALSE );
+
+//:: Flamestrike Tribitz.
+//:: Visual effects can't be applied to waypoints, so if it is a WP apply to the WP's location instead.
+    if (nInt != OBJECT_TYPE_WAYPOINT)
+        ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_FIRE), oTarget);
+
+    else ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_FIRE), GetLocation(oTarget));
+
+//:: Destroy Tribitz.
+    DestroyObject(oTarget, 3.0);
+
+//:: Change target to Herzord's waypoint & get it's location.
+    oTarget = GetWaypointByTag("herz1");
+    lTarget = GetLocation(oTarget);
+
+//:: Create new Hezord (Not sure why this is needed.  Should have just been another starting conditional in Herzord's dialog?)
+    oSpawn = CreateObject(OBJECT_TYPE_CREATURE, "herzord001", lTarget);
+
+//:: Destroy old Herzord
+    oTarget = GetObjectByTag("herzord");
+    SetIsDestroyable( TRUE, FALSE, FALSE );
+    DestroyObject(oTarget, 0.0);
+
+}