PoA_PRC8/_module/nss/prc_pwonspawn.nss

//:://////////////////////////////////////////////////
//:: prc_pwonspawn
/*
    PRC's OnSpawn event handler for NPCs.

 */
//:://////////////////////////////////////////////////

#include "NW_I0_GENERIC"
#include "nw_i0_plot"
#include "rd_level"
#include "inc_sqlite_time"

void ReallyEquipItemInSlot(object oNPC, object oItem, int nSlot);

void main()
{
//:: Initialize Major Variables
	effect eVFX;
	
	int nTotalPCs;
	int nTotalPCLevel;
	int nAveragePCLevel;
	int nCommoner = GetLevelByClass(CLASS_TYPE_COMMONER, OBJECT_SELF);
	
	string sCurrentDate = SQLite_GetSystemDate();
	string sMonthDay = GetSubString(sCurrentDate, 0, 5);
	
	object oArea = GetArea(OBJECT_SELF);
	object oSkelly;
	object oPC = GetFirstObjectInArea(oArea);
	
	ExecuteScript("prc_npc_spawn", OBJECT_SELF);

//: Don't spawn skeletons from skeletons or commoners	
	if (GetResRef(OBJECT_SELF) == "pa_skeleton" || nCommoner > 0)
		return;
	
//:: Get average PC level for area	
//:: Cycle through PCs in Area
        
	while (oPC != OBJECT_INVALID)
    {
		if (GetIsPC(oPC) == TRUE)
        {
            nTotalPCs++;
            nTotalPCLevel = nTotalPCLevel + GetHitDice(oPC);
        }
        		
		oPC = GetNextObjectInArea(oArea);		
	}
	
	if (nTotalPCs > 0)
	{
		nAveragePCLevel = (nTotalPCLevel / nTotalPCs) - 1;
    }
    
	else
    {
		nAveragePCLevel = 2;
    }

//:: Only active during Halloween week.
	if ((sMonthDay == "10/24") ||
            (sMonthDay == "10/25") ||
            (sMonthDay == "10/26") ||
            (sMonthDay == "10/27") ||
            (sMonthDay == "10/28") ||
            (sMonthDay == "10/29") ||
            (sMonthDay == "10/30") ||
            (sMonthDay == "10/31") ||
            (sMonthDay == "11/01"))
        {
		//:: 33% chance to spawn 
			if ( Random(100) < 33 )
			{
			//:: Spawn Skeleton.
				eVFX = EffectVisualEffect(VFX_IMP_EVIL_HELP);
				oSkelly = CreateObject(OBJECT_TYPE_CREATURE, "nw_skeleton", GetLocation(OBJECT_SELF));
				LevelMob(oSkelly, nAveragePCLevel);
		
		//:: Assign Weapon
				int nResult = d6(1);
				int nStackSize = 1; // Create 1 items;
				string sItem;

				if (nResult == 1)
					{
						sItem = "nw_wplhb001"; //:: Halberd
					}
				else if(nResult == 2)
					{
						sItem = "nw_wplsc001"; //:: Scythe
					}
				else if(nResult == 3)
					{
						sItem = "nw_wplss001"; //:: Spear
					}
				else if(nResult ==4)
					{
						sItem = "nw_wblfh001"; //:: Heavy Flail
					}
				else if(nResult == 5)
					{
						sItem = "nw_wswgs001"; //:: Greatsword
					}
				else
			
				sItem = "nw_waxgr001"; //:: Greataxe

				object oWeapon = CreateItemOnObject(sItem, oSkelly, nStackSize);
				ReallyEquipItemInSlot(oSkelly, oWeapon, INVENTORY_SLOT_RIGHTHAND);
			
				//:: Apply VFX & Attack
				AssignCommand(oSkelly, DetermineCombatRound(OBJECT_SELF));
				DelayCommand(0.3, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVFX, oSkelly));
			}
	
		}
		
}		

void ReallyEquipItemInSlot(object oNPC, object oItem, int nSlot)
{
  if (GetItemInSlot(nSlot) != oItem)
  {
    ClearAllActions();
    ActionEquipItem(oItem, nSlot);
    DelayCommand(1.0, ReallyEquipItemInSlot(oNPC, oItem, nSlot));
  }
}