Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Let's spawn some ants! Dynamic ant spawning encounter.

Author

orshad2048

Submitted / Updated

03-20-2005 / 11-22-2006

Category

Area

Expansions

NWN-1.65

View Code

Area varables

ANTS_IN_BURROW		120
ANTS_ON_FIELD		0
ANT_COMBAT_STARTED	0
COMBAT_ROUND		0
IDLE_ROUNDS		0
NUM_PC_IN_AREA		0


//:://////////////////////////////////////////////////////////
//::
//::                  W O R L D - 1
//::
//::   D E S E R T   A N T   E N C O U N T E R   T R I G G E R
//::
//::                 O N   H E A R T B E A T
//::
//::
//:: Created By: orshad2048
//:: Created On: 2005-01-03
//:: Modified By:
//:: Modified On:
//::
//:://////////////////////////////////////////////////////////

void  StartAntSpawnLogic(int AntBurrow);
void  RemoveAntsFromField();



//::////////////////////////////////////////////////////////////////////////////
//::
//::                           M  A  I  N
//::
//::////////////////////////////////////////////////////////////////////////////
#include "NW_I0_GENERIC"

void main()
{
int iNumPCInArea        =  GetLocalInt( OBJECT_SELF, "NUM_PC_IN_AREA");
int iNumAntsInBurrow    =  GetLocalInt( OBJECT_SELF, "ANTS_IN_BURROW" );
int iAntCombatStarted   =  GetLocalInt( OBJECT_SELF, "ANT_COMBAT_STARTED" );
int iCombatRound        =  GetLocalInt ( OBJECT_SELF, "COMBAT_ROUND" );
int iNumIdleRounds      =  GetLocalInt ( OBJECT_SELF, "IDLE_ROUNDS" );

//SpawnScriptDebugger();
    //:: if there are no PC's in the area and the encounter has been idle bail out
    if (iNumPCInArea <=  0)
    {

        if ( iAntCombatStarted  >=  1 )
        {
            iNumIdleRounds ++;
            SetLocalInt( OBJECT_SELF, "IDLE_ROUNDS", iNumIdleRounds);
            if  ( iNumIdleRounds  >=  6 )
            {
                RemoveAntsFromField();
                SetLocalInt(OBJECT_SELF, "ANT_COMBAT_STARTED", 0 );
            } //end-if

        } // end-if

        return;
    }
    else
    {
        //:: if we're out of ants bail out
        if  ( iNumAntsInBurrow <= 0 )
        {
            return;
        }
        else
        {
            if ( iAntCombatStarted  >=  1 )
            {

                iCombatRound ++;
                SetLocalInt(OBJECT_SELF, "COMBAT_ROUND", iCombatRound);

                if ( iCombatRound % 3  ==  0 )
                {
                    int Ab;
                    for (Ab = 1; Ab < 5; Ab++)
                    {
                        StartAntSpawnLogic(Ab);
                    } // end-for
                } //end-if
            } //end-if
        } //end-if

    } //end-if

} //end main line

//::////////////////////////////////////////////////////////////////////////////
//::
//::                   E N D       M  A  I  N
//::
//::////////////////////////////////////////////////////////////////////////////




//::////////////////////////////////////////////////////////////////////////////
//::
//::
//::                 G E N E R I C   F U N C T I O N S
//::
//::
//::////////////////////////////////////////////////////////////////////////////




//::////////////////////////////////////////////////////////////
//::                    StartAntSpawnLogic
//::
//::    This function controls the spawning of the ants
//::
//::                    StartAntSpawnLogic
//::////////////////////////////////////////////////////////////
void  StartAntSpawnLogic(int AntBurrow)
{

int iNumAntsOnField     =  GetLocalInt( GetArea(OBJECT_SELF), "ANTS_ON_FIELD" );
int iNumAntsToSpawn     =  0;
int iNumAntsInBurrow    =  GetLocalInt( OBJECT_SELF, "ANTS_IN_BURROW" );
int iAntBurrowToSpawn   =  AntBurrow;
int     nObjectType     =  OBJECT_TYPE_CREATURE;
string  strTemplate;
location lAntSpawnPoint;


    iNumAntsToSpawn  =  24 - iNumAntsOnField;

    if  ( iNumAntsToSpawn  >  0 )
    {
        if ( iNumAntsToSpawn  >  3 )
        {
            iNumAntsToSpawn  =  3;
        } //end-if

        if ( iNumAntsInBurrow  <  iNumAntsToSpawn )
        {
            iNumAntsToSpawn  =  iNumAntsInBurrow;
        } //end-if

        iNumAntsInBurrow  =  iNumAntsInBurrow  -  iNumAntsToSpawn;
        SetLocalInt( OBJECT_SELF, "ANTS_IN_BURROW", iNumAntsInBurrow);
        iNumAntsOnField  =  iNumAntsOnField  +  iNumAntsToSpawn;
        SetLocalInt( GetArea(OBJECT_SELF), "ANTS_ON_FIELD", iNumAntsOnField);

        int i = 1;
        while (i  <=  iNumAntsToSpawn)
        {
            int iPercent;
            iPercent  =  d100();
            if ( iPercent <= 70 )
            {
                strTemplate  =  "cw1_giant_solder";
            }
            else
            {
                if  ( iPercent >  70  &&  iPercent < 90)
                {
                    strTemplate  =  "cw1_ant_g_guard";
                }
                else
                {
                    strTemplate  =  "cw1_ant_queen";
                } //end-if
            } //end-if

            lAntSpawnPoint  =  GetLocation( GetObjectByTag("ANT_BURROW_"+IntToString(iAntBurrowToSpawn)+"_"+IntToString(i)) );
            CreateObject(nObjectType, strTemplate, lAntSpawnPoint, TRUE);
            i++;

        } // end-while

    } // end-if

} // end function StartAntSpawnLogic








//::////////////////////////////////////////////////////////////
//::                    RemoveAntsFromField
//::
//::    If the PC's leave the field for long enough put the
//::    ants back in the burrow.  Spawn one more to get the
//::    combat started again.
//::
//::                    RemoveAntsFromField
//::////////////////////////////////////////////////////////////
void  RemoveAntsFromField()
{
int iNumAntsOnField   =  GetLocalInt( GetArea(OBJECT_SELF), "ANTS_ON_FIELD" );
int iNumAntsInBurrow  =  GetLocalInt( OBJECT_SELF, "ANTS_IN_BURROW" );
object      oAnt;
location    lAntSpawnPoint;
string      sAntTag;


    iNumAntsInBurrow  =  iNumAntsOnField  +  iNumAntsInBurrow;
    iNumAntsInBurrow --;
    SetLocalInt(OBJECT_SELF, "ANTS_ON_FIELD", 0);
    SetLocalInt(OBJECT_SELF, "ANTS_IN_BURROW", iNumAntsInBurrow);

    oAnt  =  GetFirstObjectInArea(OBJECT_SELF);
    while( GetIsObjectValid(oAnt) )
    {
        sAntTag  =  GetTag(oAnt);

        if ( sAntTag  ==  "CW1_ANT_G_GUARD"  ||
             sAntTag  ==  "CW1_ANT_QUEEN"    ||
             sAntTag  ==  "CW1_GIANT_SOLDER_ANT")
        {
            DestroyObject(oAnt);
        } // end-if
         oAnt  =  GetNextObjectInArea(OBJECT_SELF);

    } // end-while

    lAntSpawnPoint  =  GetLocation(GetObjectByTag("ANT_BURROW_1_1"));
    CreateObject(OBJECT_TYPE_CREATURE, "cw1_giant_solder", lAntSpawnPoint, TRUE);

} //end function RemoveAntsFromField













//:://////////////////////////////////////////////////////////
//::
//::                      W O R L D - 1
//::
//::              D E S E R T   A N T   O N   D E A T H
//::
//::
//:: Created By: orshad2048
//:: Created On: 2005-01-03
//:: Modified By:
//:: Modified On:
//::
//:://////////////////////////////////////////////////////////


//::////////////////////////////////////////////////////////////////////////////
//::
//::                           M  A  I  N
//::
//::////////////////////////////////////////////////////////////////////////////
void main()
{
//SpawnScriptDebugger();
object  oArea;
string  sAreaTag;
int     oAreaLocalInt;
int     iNumAntsOnField;
int     iAntCombatStarted;

    oArea     =  GetArea(OBJECT_SELF);
    sAreaTag  =  GetTag(oArea);

    if  (sAreaTag  ==  "desertantencounter" )
    {
        iNumAntsOnField  =  GetLocalInt( oArea, "ANTS_ON_FIELD" );
        if (iNumAntsOnField  >  0 )
        {
            iNumAntsOnField --;
        }
        else
        {
            iNumAntsOnField  =  0;
        } //end-if

        SetLocalInt( oArea, "ANTS_ON_FIELD", iNumAntsOnField);

        iAntCombatStarted  =  GetLocalInt(oArea, "ANT_COMBAT_STARTED");
        if (iAntCombatStarted  ==  0)
        {
            iAntCombatStarted ++;
            SetLocalInt(oArea, "ANT_COMBAT_STARTED", iAntCombatStarted);
        } //end-if

    } // end-if

} // end main














//:://////////////////////////////////////////////////////////
//::
//::                  W O R L D - 1
//::
//::   D E S E R T   A N T   E N C O U N T E R   T R I G G E R
//::
//::                 O N   E N T E R
//::
//::
//:: Created By: orshad2048
//:: Created On: 2005-01-03
//:: Modified By:
//:: Modified On:
//::
//:://////////////////////////////////////////////////////////
void main()
{
//SpawnScriptDebugger();

int     iNumPCInArea;

    if ( GetIsPC( GetEnteringObject() ) )
    {
        iNumPCInArea  = GetLocalInt( OBJECT_SELF, "NUM_PC_IN_AREA");
        iNumPCInArea ++;
        SetLocalInt(OBJECT_SELF, "NUM_PC_IN_AREA", iNumPCInArea);
    } //end-if

} //end main














//:://////////////////////////////////////////////////////////
//::
//::                  W O R L D - 1
//::
//::   D E S E R T   A N T   E N C O U N T E R   T R I G G E R
//::
//::                 O N   E X I T
//::
//::
//:: Created By: orshad2048
//:: Created On: 2005-01-03
//:: Modified By:
//:: Modified On:
//::
//:://////////////////////////////////////////////////////////
void main()
{
//SpawnScriptDebugger();

int  iNumPCInArea;

    if ( GetIsPC(GetExitingObject()) )
    {
        iNumPCInArea  =  GetLocalInt(OBJECT_SELF, "NUM_PC_IN_AREA");
        iNumPCInArea --;
        SetLocalInt(OBJECT_SELF, "NUM_PC_IN_AREA", iNumPCInArea);
    } //end-if

} // end main

















//:://////////////////////////////////////////////////////////
//::
//::                  W O R L D - 1
//::
//::           M O D U L E    O N    D E A T H 
//::
//::
//:: Created By: orshad2048
//:: Created On: 2005-01-03
//:: Modified By:
//:: Modified On:
//::
//:://////////////////////////////////////////////////////////
string  sAreaTag;
object  oObjThatJustDied;
object  oArea;
int     iNumPCInArea;

//SpawnScriptDebugger();
    oObjThatJustDied    =  GetLastPlayerDied();
    oArea               =  GetArea(oObjThatJustDied);
    sAreaTag            =  GetTag(oArea);


    //::///////////////////////////////////////////////
    //::      D E S E R T    A N T   E N C O U N T E R
    //::
    //::  if PC dies while they are fighting the
    //::  desert ant encounter decrement the counter
    //::  controling the number of PC's on the battle
    //::  field
    //::
    //::      D E S E R T    A N T   E N C O U N T E R
    //::///////////////////////////////////////////////

    if  (sAreaTag  ==  "desertantencounter")
    {
        iNumPCInArea  =  GetLocalInt(oArea, "NUM_PC_IN_AREA");
        iNumPCInArea --;
        SetLocalInt(oArea, "NUM_PC_IN_AREA", iNumPCInArea);
    } //end-if

Select All Text | View Code in separate window

Format

Module and Code

Type

Type - Combat

Includes

BioWare Standard

Description

This relativly simple set of scripts spawns in 120 ant's over the course of a combat. There are several scripts associated with this as well as some variables set on the area. Here are the variables that are set on the area and there values: ANTS_IN_BURROW 120 ANTS_ON_FIELD 0 ANT_COMBAT_STARTED 0 COMBAT_ROUND 0 IDLE_ROUNDS 0 NUM_PC_IN_AREA 0 There are five scripts associated to this combat. Three of them are dedicated to the area. One is for the Ant's on death event. Finally a small snippet of code for the Module on Death event. All of the variables set on the area control the flow of the combat. While several of the values are hard coded in the script if you wanted to make it a bit more dynamic substituting more variables in the area and feeding those into the scripts would be you're best option. Enjoy! orshad2048

Files

Name	Type	Size	Downloads
orshad20481111378627234spawnsomeants.ziporshad20481111378627234spawnsomeants.zip Submitted: 03-20-2005 / Last Updated: 03-20-2005	zip	15.35Kb	200
--

SCORE OUT OF 10

10
1 votes
View Stats
Cast Your Vote!

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

You Must Be Logged In to Participate.

Comments (4):

Posted by harkker at 2005-12-03 22:14:30 Voted 10.00 on 12/03/05

awesome!
_________________________
The World of Karador Rocks!
Link

Posted by orshad2048 at 2005-03-28 19:06:00

black_feather1
The variable strTemplate located in the function StartAntSpawnLogic. This function is inside of the larger script placed in the Area OnHeartBeat event. The StartAntSpawnLogic function generates the ants by rolling a percentiles and assigning the resref to the variable strTemplate. Here is the snippet of code that controls this:

int iPercent;
iPercent = d100();
if ( iPercent 70 && iPercent < 90)
{
strTemplate = "cw1_ant_g_guard";
}
else
{
strTemplate = "cw1_ant_queen";
} //end-if
} //end-if

01 - 70 ant solder
71 - 89 ant guard
90 - 100 ant queen

Just substitute the resref of you're choosing here and you're off and running. Also you can change this section in as many ways as you're imagination takes you. if you just want 1 creature then drop the percentile roll and assign the resref to the variable when it is initialized at the start of the sub-function. Or change the IF logic to alter the percentage. The choice ultimately up to you. I attached a .erf to this post so you can down load it and import it into a module of you're own. Please let me know if it breaks and I'll try to rectify any mistakes.
Also keep in mind there is a 2 tiered loop that controls the 12 way-points set up to spawn in at most 12 ants and as little as 0 depending on how many ants are on the field of battle. Good luck orshad2048

Posted by orshad2048 at 2005-03-27 18:59:00

The ant's are from the CEP. I made copies of them to attach the new on death script. Also I beefed up the ant's stats from the CEP so that the encounter is for 5 to 7th level characters.

Posted by Lexx ( 60.229.xxx.xxx ) at 2005-03-27 18:28:00

Are the ants in the picture from a hack? And if so which one?

You must be Logged In to post comments in this section.