NWScript:

//Include File by Eair

//Email: indy37@earthlink.net

//7/18/02

//Note: currently working on a Random Encounter Generator that gets as close to

//the tables in the DMG as possible, it works at the moment but only impelmented

//Table 4-15: 1st-Level Dungeon Encounters

//If anyone creates monsters for the Tables that arn't in NWN(theres a lot)

//Pls Tell me.



//Gets the First PC in oArea

object GetFirstPCInArea(object oAreaTest)

{

    object oPCTestValid = GetFirstPC();

    while(GetArea(oPCTestValid)!=oAreaTest&&GetIsObjectValid(oPCTestValid))

        oPCTestValid = GetNextPC();

    return(oPCTestValid);

}

//Gets the Next PC in oArea

object GetNextPCInArea(object oAreaTest)

{

    object oPCTestValid = GetNextPC();

    while(GetArea(oPCTestValid)!=oAreaTest&&GetIsObjectValid(oPCTestValid))

        oPCTestValid = GetNextPC();

    return(oPCTestValid);

}

//OffSet's a location by 10 in one of 8 dirrections(random)

//And Points fFacing towards the original location

location OffSetLocation(location lPlayer)

{

  //Excerpt from...

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

//:: PnP Random Encounters

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

/*

    This Script Generates Old School Random Encounters

    like the ones from a random encounter table in a PnP

    module

*/

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

//:: Created By: LuckDragon

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

  int iDirection=d8();

  float fX;

  float fY;

  float fF;//Added by Eair

  switch(iDirection) {

    case 1:  // North

      fX=0.0; fY=10.0; fF=270.0;

      break;

    case 2:  // South

      fX=0.0; fY=-10.0; fF=90.0;

      break;

    case 3:  // East

      fX=10.0; fY=0.0; fF=180.0;

      break;

    case 4:  // West

      fX=-10.0; fY=0.0; fF=0.0;

      break;

    case 5:  // Northeast

      fX=10.0; fY=10.0; fF=225.0;

      break;

    case 6:  // Southeast

      fX=10.0; fY=-10.0; fF=135.0;

      break;

    case 7:  // Southwest

      fX=-10.0; fY=-10.0; fF=45.0;

      break;

    case 8:  // Northwest

      fX=-10.0; fY=10.0; fF=315.0;

      break;

  }

  object oTemp = GetAreaFromLocation(lPlayer);//Added by Eair

  vector vStart = GetPositionFromLocation(lPlayer);

  vector vOffset = Vector(fX,fY);

  vector vEndvector = vStart+vOffset;

  location lEndLocation = Location(oTemp,vEndvector,fF);//Added by Eair

  return(lEndLocation);

  //End of Excerpt!

}

//Gets the number of PC's in oArea

int GetAreaPCCount(object oArea)

{

    int iPCCount=0;

    object oPCTest = GetFirstPCInArea(oArea);

    while(GetIsObjectValid(oPCTest))

    {

        oPCTest = GetNextPCInArea(oArea);

        iPCCount++;

    }

    return(iPCCount);

}

//Gets a Random PC in oArea

//Will return OBJECT_INVALID if no PC's are in the Area

object GetRandomPCInArea(object oArea)

{

    int iRandomPCNumber = d100();/*This Assumes theres no more than 100 people

    in the Area, and there probly won't be in most servers. if you expect more,

    change d100() to d100(X)-X, it might not be exact... if you want better make

    your own random number generator*/

    while(iRandomPCNumber>GetAreaPCCount(oArea))

        iRandomPCNumber = d100();

    object oReturnPC = GetFirstPCInArea(oArea);

    int iCounter = 0;

    while(iCounter<iRandomPCNumber&&GetIsObjectValid(oReturnPC))

    {

        GetNextPCInArea(oArea);

        if(!GetIsObjectValid(oReturnPC))

            GetFirstPCInArea(oArea);

        iCounter++;

    }

    return(oReturnPC);

}