#include "nw_i0_2q4luskan"
#include "nw_i0_generic"
/*   Script generated by
Lilac Soul's NWN Script Generator, v. 1.6

For download info, please visit:
http://www.lilacsoul.revility.com    */

//Put this OnEnter
void main()
{

object oPC = GetEnteringObject();

if (!GetIsPC(oPC)) return;

object oTarget;
object oTarget1;
object oSpawn;
location lTarget;
oTarget = GetWaypointByTag("ke_planteangreb");

oTarget1 = GetObjectByTag("ke_plantedoor");

AssignCommand(oTarget1, ActionCloseDoor(oTarget1));

// SetLocked(oTarget1, TRUE);

//  Removing the intire teleport group concept....

// object oTarget2;
// location lTarget2;
// oTarget2 = GetWaypointByTag("ke_planteteleport");

// lTarget2 = GetLocation(oTarget2);

//only do the jump if the location is valid.
//though not flawless, we just check if it is in a valid area.
//the script will stop if the location isn't valid - meaning that
//nothing put after the teleport will fire either.
//the current location won't be stored, either

// if (GetAreaFromLocation(lTarget2)==OBJECT_INVALID) return;

// oTarget2=GetFirstFactionMember(oPC, FALSE);

// while (GetIsObjectValid(oTarget2))
 //   {
//    AssignCommand(oTarget2, ClearAllActions());

//    AssignCommand(oTarget2, ActionJumpToLocation(lTarget2));
//   oTarget2=GetNextFactionMember(oPC, FALSE);
//    }
//  ANd returning to the normal spawn sequence again
lTarget = GetLocation(oTarget);

oSpawn = CreateObject(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget);

oTarget = oSpawn;

SetIsTemporaryEnemy(oPC, oTarget);

AssignCommand(oTarget, ActionAttack(oPC));

AssignCommand(oTarget, DetermineCombatRound(oPC));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(10.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(10.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangeb");

lTarget = GetLocation(oTarget);

DelayCommand(30.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(30.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(30.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(50.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(50.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);

DelayCommand(50.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy001", lTarget));

oTarget = GetWaypointByTag("ke_planteangreb");

lTarget = GetLocation(oTarget);


//

if (d100()>100)
   return;

DelayCommand(70.0, CreateObjectVoid(OBJECT_TYPE_CREATURE, "zep_vegepygmy003", lTarget));

//
}