NWScript:

// Functions for area guards

// Function declarations for sanity

int SpawnAreaGuard ( object theArea);

void CheckGuards();

void GuardDied ( object Guard);

// Make sure there are a certain number of guards around.

// If there isn't, spawn a new one at the area's guard

// spawn point.

// This function only works correctly if called by area

// objects. The area must previously have had the local

// integers NUMGUARDS and MAXGUARDS set (presumably in

// the module load script). Otherwise, both variables

// will be assumed zero, and no guards will be spawned.

void CheckGuards()

{

    // number of guards active right now in this area

    int numGuards = GetLocalInt ( OBJECT_SELF, "NUMGUARDS");

    // number of guards there *should* be in the area

    int maxGuards = GetLocalInt ( OBJECT_SELF, "MAXGUARDS");

    // if we're adequately patrolled, return

    if (numGuards >= maxGuards)

        return;

    // otherwise, check the spawn delay

    int spawnDelay = GetLocalInt ( OBJECT_SELF, "GSPDELAY");

    // are we ready to spawn a guard?

    if (spawnDelay > 0)

    {

        // nope, we aren't ready. reduce the Spawn Delay

        // by one, and return

        spawnDelay = spawnDelay - 1;

        SetLocalInt ( OBJECT_SELF, "GSPDELAY", spawnDelay);

        return;

    }

    int spawn = SpawnAreaGuard ( OBJECT_SELF);

    // if failed, don't continue!

    if (spawn == -1)

        return;

    // and increment the number of guards in area

    numGuards = numGuards + 1;

    SetLocalInt ( OBJECT_SELF, "NUMGUARDS", numGuards);

    // reset the spawn delay

    SetLocalInt ( OBJECT_SELF, "GSPDELAY", 10);

}

// Spawn a guard in an area, using a spawn point of the

// format (AreaTag) _GuardSpawnPoint.

// This function should also -only- be used on area

// objects. The area's tag should be in the format

// ARxxxx, where xxxx is a four-digit number. Also,

// two guard templates should exist with ResRef names

// of guardxxxxm and guardxxxxf, where xxxx is the same

// four digit number as per the area.

// Returns -1 on error (bad area tag or missing spawn

// point), 0 otherwise.

int SpawnAreaGuard ( object theArea)

{

    string areaNumber = GetStringRight ( GetTag(theArea), 4);

    string guardTemplate;

    string areaTag = GetTag(theArea);

    // Bad area tag

    if (areaNumber == "")

        return -1;

    // Determine sex of guard to spawn

    int FemaleRoll = Random(100) + 1;

    if (FemaleRoll <= 33)   // chance of female: 33%

    {

        guardTemplate = "guard" + areaNumber + "f";

    }

    else

    {

        guardTemplate = "guard" + areaNumber + "m";

    }

    // Get spawn spot

    object SpawnWaypoint = GetWaypointByTag (areaTag + "_GuardSpawnPoint");

    // if invalid, bail

    if (SpawnWaypoint == OBJECT_INVALID)

        return -1;

    location SpawnSpot = GetLocation (SpawnWaypoint);

    CreateObject (OBJECT_TYPE_CREATURE, guardTemplate, SpawnSpot, FALSE);

    return 0;

}



// Call this on guard death, to reduce area's guard count

void GuardDied(object Guard)

{

    object Area = GetArea(Guard);

    int GuardMax = GetLocalInt(Area, "MAXGUARDS");

    // this area does not use the auto-spawn guard

    // system

    if (GuardMax == 0)

        return;

    // otherwise, update the guard count

    int GuardCount = GetLocalInt(Area, "NUMGUARDS");

    GuardCount = GuardCount - 1;

    SetLocalInt(Area, "NUMGUARDS", GuardCount);

}