void main()
{
//DECLARATION DES VARIABLES
object oPCexiting=GetExitingObject();
object oAreaLeaved = OBJECT_SELF;
object oObjetaDetruire = GetFirstObjectInArea(oAreaLeaved);
object oFirstPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
int nNBdePC = GetLocalInt(oAreaLeaved,"nNBdePC");

//Mise a jour du Compteur
if (GetIsPC(oPCexiting))
    {
    nNBdePC = nNBdePC-1;
    SetLocalInt(oAreaLeaved,"nNBdePC",nNBdePC);
    }

//TEST POUR VERIFIER SI IL RESTE DES PC DANS L'Area

if (nNBdePC == 0)
   {

//BOUCLE DE DESTRUCTION DES CREATURES/ITEM
   while (GetIsObjectValid(oObjetaDetruire))
       {
       if (
       (GetObjectType(oObjetaDetruire)== OBJECT_TYPE_CREATURE)||
       (GetObjectType(oObjetaDetruire)== OBJECT_TYPE_ITEM)
          )
             {
             DestroyObject (oObjetaDetruire);
             }
       oObjetaDetruire=GetNextObjectInArea();
        }
    }

//LOG~DEBUG
}

//Script d'area_enter qui cree des monstres
#include "ro_createmonster"

void main()
{
//Declaration des variables
object oPCentering = GetEnteringObject();
object oAreaEntered = OBJECT_SELF;
int nNBdePC = GetLocalInt(oAreaEntered,"nNBdePC");

//Incrementation du compteur de PC dans l'area
if (GetIsPC(oPCentering))
    {
    nNBdePC = nNBdePC+1;
    SetLocalInt(oAreaEntered, "nNBdePC",nNBdePC);


//Si c'est le premier PC a entrer, generation des monstres en fonction de l'area
    if (nNBdePC==1)
        {
        CreateMonsters(oAreaEntered);
        }
    else
        {
        WriteTimestampedLogEntry(GetName(oPCentering)+GetTag(oAreaEntered)+"enter correct");
        }
//LOG~DEBUG
    }
}

void main()
{
//DECLARATION DES VARIABLES
object oPCexiting=GetExitingObject();
object oAreaLeaved = OBJECT_SELF;
object oObjetaDetruire = GetFirstObjectInArea(oAreaLeaved);
object oFirstPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
int nNBdePC = GetLocalInt(oAreaLeaved,"nNBdePC");

//Mise a jour du Compteur
if (GetIsPC(oPCexiting))
    {
    nNBdePC = nNBdePC-1;
    SetLocalInt(oAreaLeaved,"nNBdePC",nNBdePC);
    }

//TEST POUR VERIFIER SI IL RESTE DES PC DANS L'Area

if (nNBdePC == 0)
   {

//BOUCLE DE DESTRUCTION DES CREATURES/ITEM
   while (GetIsObjectValid(oObjetaDetruire))
       {
       if (
       (GetObjectType(oObjetaDetruire)== OBJECT_TYPE_CREATURE)||   // nettoyage de la zone des creatures de la zone
       (GetObjectType(oObjetaDetruire)== OBJECT_TYPE_ITEM)         // nettoyage de la zone des objets qui la jonche
          )
             {
             AssignCommand(oObjetaDetruire, ClearAllActions()); // pour initialisation des actions PNJ
             if (!GetPlotFlag(oObjetaDetruire))                 // verifie si il y a des creatures en plot
                 {
                    if (GetName(GetMaster(oObjetaDetruire))=="")  // pour eviter la mort du pet
                    DestroyObject (oObjetaDetruire);
                 }
             }
       oObjetaDetruire=GetNextObjectInArea();
        }
    }

//LOG~DEBUG
}

void main()
{
object oAreaEntered = OBJECT_SELF;
object oEntering = GetEnteringObject();
object oChecked = GetFirstObjectInArea(oAreaEntered);
if(GetIsPC(oEntering))
{
while(GetIsObjectValid(oChecked))
  {
    if(GetIsPC(oChecked) && oChecked != oEntering)
    {
        oChecked = OBJECT_INVALID;
        break;
    }
    else
    {
        oChecked = GetNextObjectInArea(oAreaEntered);
    }
  }

oChecked = GetFirstObjectInArea(oAreaEntered);

while(GetIsObjectValid(oChecked))
  {
    if(GetIsEncounterCreature(oChecked))
    {
        DestroyObject(oChecked);
        oChecked = GetNextObjectInArea(oAreaEntered);
    }
    else
    {
        oChecked = GetNextObjectInArea(oAreaEntered);
    }
  }
}
}