RATDOG/_module/nss/otres_plainsrand.nss

/*  This script is put in the OnEnter of a random encounter map.  The map will
    have all the encounters below already in place where the PCs will arrive,
    but they will be inactive.  This script will randomly choose which encounter
    to activate.  For undead, the script checks to see if it is day with a
    GetIsDay() function, and if it is, will re-run the function to try to get
    a non-undead encounter.  Theoretically, this could be an infinite loop,
    but with the number of encounters here, it won't happen.
--------------------------------------------------------------------------------
Plains - no undead possible, and thus no RandomEncounter function as in
the forestencount script
--------------------------------------------------------------------------------
*/

void main()
{
int iDieRoll;
int iDieRoll2;
object oEncounter;
object oPC=GetPCSpeaker();
object oWay=OBJECT_SELF;//added to fix "no enemies" issue

//Randomizer
int iSeed=FloatToInt(100*log(IntToFloat(GetTimeMillisecond()+GetCalendarDay()+GetTimeHour())));
int i;
for (i=0;i!=iSeed;i++)
    {
    iDieRoll=d100();
    }  //This number should match iDieRoll below

//Roll random encounter or encounter type
iDieRoll=d100();  //change this to match the max if you add encounters i.e. =Random(69)+1
//Follows is the list of possible encounters or encounter types
//See the end on how to add an enounter
if (iDieRoll==1)
    {oEncounter=GetNearestObjectByTag("BrownBear",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==2)
    {oEncounter=GetNearestObjectByTag("Boar",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==3)
    {oEncounter=GetNearestObjectByTag("Bugbear",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>3)&&(iDieRoll<8))
    {oEncounter=GetNearestObjectByTag("WildOx",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>7)&&(iDieRoll<10))
    {oEncounter=GetNearestObjectByTag("Dog",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>9)&&(iDieRoll<11)) //Encounter type dragon
    {iDieRoll2=Random(5)+1;
    switch (iDieRoll2)
        {
        case 1:
            oEncounter=GetNearestObjectByTag("BlackDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        case 2:
            oEncounter=GetNearestObjectByTag("BlueDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        case 3:
            oEncounter=GetNearestObjectByTag("GreenDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        case 4:
            oEncounter=GetNearestObjectByTag("RedDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        case 5:
            oEncounter=GetNearestObjectByTag("WhiteDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        default:
            oEncounter=GetNearestObjectByTag("GreenDragon",oWay);
            SetEncounterActive(TRUE,oEncounter);
            break;
        }
    return;
    }
else if ((iDieRoll>10)&&(iDieRoll<14)) //Encounter type giant
    {iDieRoll2=d100();
    if ((iDieRoll2>0)&&(iDieRoll2<4))
        {oEncounter=GetNearestObjectByTag("Ettin",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>3)&&(iDieRoll2<7))
        {oEncounter=GetNearestObjectByTag("FireGiant",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>6)&&(iDieRoll2<10))
        {oEncounter=GetNearestObjectByTag("FrostGiant",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>9)&&(iDieRoll2<97))
        {oEncounter=GetNearestObjectByTag("HillGiant",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>96)&&(iDieRoll2<101))
        {oEncounter=GetNearestObjectByTag("StoneGiant",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    }
else if ((iDieRoll>13)&&(iDieRoll<17)) //Encounter type humanoid
    {iDieRoll2=d100();
    if ((iDieRoll2>0)&&(iDieRoll2<6))
        {oEncounter=GetNearestObjectByTag("Goblin",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>5)&&(iDieRoll2<101))
        {oEncounter=GetNearestObjectByTag("Orc",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    }
else if ((iDieRoll>16)&&(iDieRoll<37))
    {oEncounter=GetNearestObjectByTag("Lion",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>28)&&(iDieRoll<33)) //Encounter type lycanthrope
    {iDieRoll2=Random(75)+1;
    if ((iDieRoll2>0)&&(iDieRoll2<6))
        {oEncounter=GetNearestObjectByTag("Wererat",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>5)&&(iDieRoll2<16))
        {oEncounter=GetNearestObjectByTag("Weretiger",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>15)&&(iDieRoll2<76))
        {oEncounter=GetNearestObjectByTag("Werewolf",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    }
else if ((iDieRoll>36)&&(iDieRoll<59)) //Encounter type men
    {iDieRoll2=d20();
    if ((iDieRoll2>0)&&(iDieRoll2<11))
        {oEncounter=GetNearestObjectByTag("Bandit",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    else if ((iDieRoll2>10)&&(iDieRoll2<21))
        {oEncounter=GetNearestObjectByTag("Character",oWay);
        SetEncounterActive(TRUE,oEncounter);
        return;}
    }
else if ((iDieRoll>58)&&(iDieRoll<63))
    {oEncounter=GetNearestObjectByTag("Ogre",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>62)&&(iDieRoll<65))
    {oEncounter=GetNearestObjectByTag("Spider",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>64)&&(iDieRoll<67))
    {oEncounter=GetNearestObjectByTag("Troll",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>66)&&(iDieRoll<78))
    {oEncounter=GetNearestObjectByTag("Wolf",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>77)&&(iDieRoll<81))
    {oEncounter=GetNearestObjectByTag("Worg",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>80)&&(iDieRoll<83))
    {oEncounter=GetNearestObjectByTag("DireTiger",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>82)&&(iDieRoll<88))
    {oEncounter=GetNearestObjectByTag("Cougar",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>87)&&(iDieRoll<93))
    {oEncounter=GetNearestObjectByTag("DireWolf",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==93) //Skeleton Re-animator
    {oEncounter=GetNearestObjectByTag("Skeleton",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==94) //Zombie Re-animator
    {oEncounter=GetNearestObjectByTag("Zombie",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==95)
    {oEncounter=GetNearestObjectByTag("Malar",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==96)
    {oEncounter=GetNearestObjectByTag("Badger",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==97)
    {oEncounter=GetNearestObjectByTag("Rat",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if (iDieRoll==98)
    {oEncounter=GetNearestObjectByTag("GreyRender",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}
else if ((iDieRoll>98)&&(iDieRoll<101))
    {oEncounter=GetNearestObjectByTag("Krenshar",oWay);
    SetEncounterActive(TRUE,oEncounter);
    return;}

//add new encounters here by copying the "else if" above that matches what you
//want to do (i.e. ==, range, or sub-table) then change the iRoll statement
//and Randomizer back at the beginning
else FloatingTextStringOnCreature(IntToString(iDieRoll),oPC);//catch all debug - if it fires, you are missing that number in the else ifs above
}