// Nom : ly_lib_s01
// Auteur : ?
// Update : lylver 07/04/2004
// Update : lylver 2004-12-19
// ne pas compiler, fichier include

int MustHaveNoneOf(object oPC, string sObjectTag){
  int iNbItem=0,i;
  object oItem = GetFirstItemInInventory(oPC);
  while (GetIsObjectValid(oItem)==TRUE ){
      if( GetTag(oItem) == sObjectTag ){
        iNbItem += GetNumStackedItems(oItem) ;
        SetPlotFlag(oItem, FALSE) ;
        DestroyObject(oItem) ;
      }
      oItem = GetNextItemInInventory(oPC);
  }
  for( i=0; i < NUM_INVENTORY_SLOTS; i++){
      oItem = GetItemInSlot(i, oPC) ;
      if( GetTag(oItem) == sObjectTag ){
        iNbItem += GetNumStackedItems(oItem) ;
        ActionUnequipItem(oItem) ;
        SetPlotFlag(oItem, FALSE) ;
        DelayCommand(2.0, DestroyObject(oItem)) ;
      }
  }
  return iNbItem;
}

//:: //
//:: Update Lylver 2005-09-27
//:: tn_mod_levelup.nss
//:: controle multiclassage
//:: //
#include "ly_lib_s01"
void main()
{
object oPC = GetPCLevellingUp();
int nLv = GetHitDice(oPC);
int nXP = (( nLv * ( nLv - 1 )) / 2 * 1000 ) - 1;;
int nXP2 = GetXP(oPC);
string sPC = GetName(oPC);
WriteTimestampedLogEntry("Passage de niveau de "+sPC+", XPs : "+IntToString(nXP2) );
int bPasseDroit = MustHaveNoneOf(oPC, "TN_LVL_MULTIPASS") ;
  // controle multiclasse
  int oL1 = GetLocalInt(oPC,"LEVEL1");
  int oC1 = GetLocalInt(oPC,"CLASS1");
  int oL2 = GetLocalInt(oPC,"LEVEL2");
  int oC2 = GetLocalInt(oPC,"CLASS2");
  int oL3 = GetLocalInt(oPC,"LEVEL3");
  int oC3 = GetLocalInt(oPC,"CLASS3");
  int nL1 = GetLevelByPosition(1,oPC);
  int nC1 = GetClassByPosition(1,oPC);
  int nL2 = GetLevelByPosition(2,oPC);
  int nC2 = GetClassByPosition(2,oPC);
  int nL3 = GetLevelByPosition(3,oPC);
  int nC3 = GetClassByPosition(3,oPC);
  int nL,nC,nP ;
  // determiner la classe changee
  if( oL1 == nL1 ){
      if( oL2 == nL2 ){
        if( oL3 == nL3 ){
            WriteTimestampedLogEntry("");
        } else {
            nL = nL3 ; nC = nC3 ; nP=3;
        }
      } else {
        nL = nL2 ; nC = nC2 ; nP=2;
      }
  } else {
      nL = nL1 ; nC = nC1 ; nP=1;
  }

// condition 1 : classe de prestige doit etre poursuivie.
int bPrestige = 0, bAlert=FALSE;
switch( nC2 ){ // examen de la 2eme classe
  case CLASS_TYPE_ARCANE_ARCHER:
  case CLASS_TYPE_ASSASSIN:
  case CLASS_TYPE_BLACKGUARD:
  case CLASS_TYPE_DIVINE_CHAMPION:
  case CLASS_TYPE_DRAGON_DISCIPLE:
  case CLASS_TYPE_DWARVEN_DEFENDER:
  case CLASS_TYPE_PALE_MASTER:
  case CLASS_TYPE_SHADOWDANCER:
  case CLASS_TYPE_SHIFTER:
  case CLASS_TYPE_WEAPON_MASTER: bPrestige = 10 ; break ;
  case CLASS_TYPE_HARPER: bPrestige = 5 ; break ;
}
// si elle est prestige verifier si incomplete et si non poursuivie
// interdit l'ouverture d'une 3eme classe tant que pas fini.
if( (bPrestige !=0) && (nL2< bPrestige) && (nP>2) ) bAlert=TRUE ;
if( bAlert ){
  SendMessageToPC(oPC, "" );
  SendMessageToAllDMs(""+GetName(oPC)+"");
  if( bPasseDroit ){
      SendMessageToPC(oPC, "" );
      SendMessageToAllDMs(GetName(oPC)+"");
  } else {
      SetXP(oPC, nXP);
      DelayCommand(5.0,SetXP(oPC, nXP2));
      return ;
  }
}

bPrestige = 0 ;
switch( nC3 ){ // examen de la 3eme classe
  case CLASS_TYPE_ARCANE_ARCHER:
  case CLASS_TYPE_ASSASSIN:
  case CLASS_TYPE_BLACKGUARD:
  case CLASS_TYPE_DIVINE_CHAMPION:
  case CLASS_TYPE_DRAGON_DISCIPLE:
  case CLASS_TYPE_DWARVEN_DEFENDER:
  case CLASS_TYPE_PALE_MASTER:
  case CLASS_TYPE_SHADOWDANCER:
  case CLASS_TYPE_SHIFTER:
  case CLASS_TYPE_WEAPON_MASTER: bPrestige = 10 ; break ;
  case CLASS_TYPE_HARPER: bPrestige = 5 ; break ;
}
// si elle est prestige verifier si incomplete et si non poursuivie
// si commencee, on doit la poursuivre.
if( (bPrestige !=0) && (nL3< bPrestige) && (nP!=3) ) bAlert=TRUE ;
if( bAlert ){
  SendMessageToPC(oPC, "" );
  SendMessageToAllDMs(""+GetName(oPC)+"");
  if( bPasseDroit ){
      SendMessageToPC(oPC, "" );
      SendMessageToAllDMs(GetName(oPC)+"");
  } else {
      SetXP(oPC, nXP);
      DelayCommand(5.0,SetXP(oPC, nXP2));
      return ;
  }
}

// condition 2 : si 3eme classe ouverte, doit avoir 4 niveaux dans les 2 autres.
if( (nP==3) && (nL1<4 || nL2<4) ) bAlert=TRUE ;
if( bAlert ){
  SendMessageToPC(oPC, "" );
  SendMessageToAllDMs(""+GetName(oPC)+"");
  if( bPasseDroit ){
      SendMessageToPC(oPC, "" );
      SendMessageToAllDMs(GetName(oPC)+"");
  } else {
      SetXP(oPC, nXP);
      DelayCommand(5.0,SetXP(oPC, nXP2));
      return ;
  }
}
// condition 3 : si 3eme classe ouverte, doit progresser de 4 niveaux avant de choisir a nouveau.
if( (nP!=3) && (nL3>0) && (nL3<4) ) bAlert=TRUE ;
if( bAlert ){
  SendMessageToPC(oPC, "" );
  SendMessageToAllDMs(""+GetName(oPC)+"");
  if( bPasseDroit ){
      SendMessageToPC(oPC, "" );
      SendMessageToAllDMs(GetName(oPC)+"");
  } else {
      SetXP(oPC, nXP);
      DelayCommand(5.0,SetXP(oPC, nXP2));
      return ;
  }
}

  object oPass = GetItemPossessedBy(oPC, "PasseNiveau");

if(nLv == 12 || nLv == 16 || nLv == 21 || nLv == 22 || nLv == 24 || nLv >= 26)
{
  if(GetIsObjectValid(oPass))
  {
      SendMessageToPC(oPC, "Vous avez eu l'accord d'un MJ pour augmenter de niveau." );
      DestroyObject(oPass);
  }
  else
  {
      SendMessageToPC(oPC, "Vous ne pouvez passer au niveau " + IntToString(nLv) + " sans l'autorisation d'un MJ." );
      SetXP(oPC, nXP);
      DelayCommand(5.0,SetXP(oPC, nXP2));
      }
  }
string sLevel = IntToString(nLv);
string sAreaName = GetName(GetArea(oPC));
SendMessageToAllDMs (sPC+" a atteint le niveau "+sLevel+" dans "+sAreaName);
// controle multiclasse : mise a jour
  SetLocalInt(oPC,"LEVEL1",GetLevelByPosition(1,oPC));
  SetLocalInt(oPC,"CLASS1",GetClassByPosition(1,oPC));
  SetLocalInt(oPC,"LEVEL2",GetLevelByPosition(2,oPC));
  SetLocalInt(oPC,"CLASS2",GetClassByPosition(2,oPC));
  SetLocalInt(oPC,"LEVEL3",GetLevelByPosition(3,oPC));
  SetLocalInt(oPC,"CLASS3",GetClassByPosition(3,oPC));
}