////////////////////////////////////////////
//                                        //
// Script du gantelet spectral par finipe //
//    e-mail : fibrustulette@yahoo.fr     //
//                                        //
////////////////////////////////////////////
//                                        //
// A placer dans le OnHeartBeat du module //
//   (ou de la zone selon vos besoins     //
//            de scenario)                //
//                                        //
////////////////////////////////////////////
//                                        //
//  - Creez un objet pour le gantelet     //
//  spectral dont le tag est "GANTELET"   //
//                                        //
//  - Creez une creature pour les         //
//  spectres dont le tag est "SPECTRE"    //
//                                        //
////////////////////////////////////////////
//                                        //
//    Merci a lendraste pour le script    //
//     donnant la taille de la zone.      //
//                                        //
////////////////////////////////////////////

//--> Recuperer la largeur de la zone
int GetAreaXDim(object oArea)
{
  int nX;
  int nEnd;
  location lLoc;
  vector vPos;
  nEnd = FALSE;
  while ((nX<=31) && (!nEnd))
  {
    vPos = Vector(IntToFloat(nX), 0.0, 0.0);
    lLoc = Location(oArea, vPos, 0.0);
    int nCol = GetTileSourceLight1Color(lLoc);
    if (nCol == 519)
    {
      nEnd = TRUE;
      nX--;
    }
    else
    {
      nX++;
    }
  }
  return nX+1;
}

//--> Recuperer la profondeur de la zone
int GetAreaYDim(object oArea)
{
  int nY;
  int nEnd;
  location lLoc;
  vector vPos;
  nEnd = FALSE;
  while ((nY<=31) && (!nEnd))
  {
    vPos = Vector(0.0, IntToFloat(nY), 0.0);
    lLoc = Location(oArea, vPos, 0.0);
    int nCol = GetTileSourceLight1Color(lLoc);
    if (nCol == 519)
    {
      nEnd = TRUE;
      nY--;
    }
    else
    {
      nY++;
    }
  }
  return nY+1;
}

//--> Script du gant spectral
void main()
{

//--> Definitions...
effect eVis = EffectVisualEffect(VFX_DUR_GHOSTLY_VISAGE);
effect eVis2 = EffectVisualEffect(VFX_DUR_AURA_ODD);
effect eVis3 = EffectVisualEffect(VFX_FNF_DISPEL_GREATER);
effect eVis4 = EffectVisualEffect(VFX_FNF_SMOKE_PUFF);
object oGant = GetObjectByTag("GANTELET");
object oPC = GetFirstPC();
int i;

/* La variable locale "monde_spectral" permet de verifier
si le script doit se declencher ou non */

if (GetLocalInt(oPC, "monde_spectral") != 1)
  {
  //--> Si le PC porte le gantelet spectral...
  if (GetTag(GetItemInSlot(INVENTORY_SLOT_ARMS, oPC)) == "GANTELET")
    {
    SetLocalInt(oPC, "monde_spectral", 1);

    // application de l'effet "visage spectral" sur le PC
    // et autre effet temporaire pour faire joli :-)
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVis, oPC);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVis3, oPC);

    for(i=1 ; i<=20 ; i++) // de 1 jusqu'a 20 : vous pouvez changer cette valeur pour modifier le nombre de spectre a creer
      {
      // definition d'un vecteur aleatoire sur l'area
      vector vRandomPos;
      vRandomPos.x = IntToFloat(Random(GetAreaXDim(GetArea(oPC))*10));
      vRandomPos.y = IntToFloat(Random(GetAreaYDim(GetArea(oPC))*10));
      vRandomPos.z = 0.0;
      // location correspondante au vecteur aleatoire
      location lLoc = Location(GetArea(oPC), vRandomPos, (GetFacing(oPC)-180.0));
      // creation du spectre sur le waypoint aleatoire
      CreateObject(OBJECT_TYPE_CREATURE,"SPECTRE",lLoc,TRUE);
      ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, GetObjectByTag("SPECTRE", i-1));
      }
    }
  }

if (GetLocalInt(oPC, "monde_spectral") == 1)
  {
  //--> Si le PC ne porte pas le gantelet spectral, ou s'il ne porte pas de gants du tout
  if ((GetTag(GetItemInSlot(INVENTORY_SLOT_ARMS, oPC)) != "GANTELET") || (!(GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_ARMS, oPC)))))
    {
    SetLocalInt(oPC, "monde_spectral", 0);

    // supprimer les spectres
    for(i=1 ; i<=20 ; i++)
      {
      object oSpectre = GetObjectByTag("SPECTRE", i-1);
      if(GetIsObjectValid(oSpectre))
        {
        DestroyObject(oSpectre, 0.0);
        ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis4, oSpectre);
        }
      else break;
      }

    // annuler l'effet "visage spectral" du PC
    effect eEffect = GetFirstEffect(oPC);
    RemoveEffect(oPC, eEffect);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis3, oPC);
    }
  }
}

effect eEffect = GetFirstEffect( oPC );
while( GetIsEffectValid( eEffect ) )
{
  if( GetEffectType( eEffect ) == EFFECT_TYPE_* )
  {
    RemoveEffect( eEffect );
  }

  eEffect == GetNextEffect( oPC );
}

    effect eEffect = GetFirstEffect(oPC);
    if (eEffect == EffectVisualEffect(VFX_DUR_GHOSTLY_VISAGE))
      {
      RemoveEffect(oPC, eEffect);
      }
    else
      {
      effect eEffect = GetNextEffect(oPC);
      while (eEffect != EffectVisualEffect(VFX_DUR_GHOSTLY_VISAGE))
        {
        effect eEffect = GetNextEffect(oPC);
        }
      RemoveEffect(oPC, eEffect);
      }