#include "NW_I0_GENERIC"

void CreateIfNeeded(object oPC, string sTag, string sRes)
{
if(GetItemPossessedBy(oPC, sTag)==OBJECT_INVALID)
  CreateItemOnObject(sRes, oPC);
}


// S'assurer que les DMs ont tout ce qu'il faut comme ustensiles
void CreateDMTools(object oPC)
{
CreateIfNeeded(oPC, "DMsHelper", "dmshelper");
CreateIfNeeded(oPC, "EmoteWand", "emotewand");
CreateIfNeeded(oPC, "WandOfFX", "wandoffx");
CreateIfNeeded(oPC, "DMRodofAffliction", "dmrodofafflictio");
CreateIfNeeded(oPC, "levelwandNODROP", "levelwandnodrop"); //controle des niveaux
CreateIfNeeded(oPC, "setdemenottes", "setdemenottes"); //mise en geoles
}


void main()
{
object oPC = GetEnteringObject();

string sIPName = GetPCIPAddress(oPC);
string sCDKey = GetPCPublicCDKey(oPC);
string sPlayerName = GetPCPlayerName(oPC);
string sName = GetName(oPC);
int sLevel1 = GetLevelByPosition(1, oPC);
int sLevel2 = GetLevelByPosition(2, oPC);
int sLevel3 = GetLevelByPosition(3, oPC);
int totalLevels = sLevel1 + sLevel2 + sLevel3;
int nXP = GetXP(oPC);
string sLvl = IntToString(totalLevels);
string sXP = IntToString(nXP);

if(sPlayerName == "")
{
  WriteTimestampedLogEntry("[ClientEnter] Nouveau perso invalide -> BootPC");
  BootPC(oPC);
  return;
}
if(GetItemPossessedBy(oPC,"mortNODROP")!=OBJECT_INVALID)
{
  effect eDeath = EffectDeath(FALSE, FALSE);
  ApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oPC);
  DestroyObject(GetItemPossessedBy(oPC, "mortNODROP"));
}
if(GetItemPossessedBy(oPC,"menoNODROP")!=OBJECT_INVALID)
{
  object oTarget = GetWaypointByTag ("tele_prison");
  AssignCommand( oPC, JumpToObject( oTarget));
}

if(GetItemPossessedBy(oPC,"badgeNODROP")==OBJECT_INVALID)
{
  if(GetHitDice (oPC)>=15)
  {
  //desequippe le tout
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_ARMS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BELT , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOLTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOOTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_CHEST , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_CLOAK , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_HEAD , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTHAND , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTRING , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_NECK , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTRING , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_ARROWS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOLTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BULLETS , oPC)));

  SetXP (oPC, 104999); // met a niv 15 - 1xp

  SendMessageToPC(oPC,"Vous venez d'etre ramene a des proportions moins heroiques");
  SendMessageToPC(oPC,"si vous etes un lanceur de sort, veuillez demmoriser vos sort pour eviter tout probleme a la deconection");
  SendMessageToPC(oPC,"En cas de souci veuillez poster votre probleme sur le forum : [http]");
  }
  CreateItemOnObject("badgenodrop", oPC);
}

string PCKey = "(CDkey:"+sCDKey+") ";
string VarNameBAN = sName+sCDKey+"_BAN";
//SetLocalInt(oPC,"StartT ime",GetTime());

if(GetLocalInt(GetModule(), VarNameBAN)) // Banni par un DM online -> ejecte (jusqu'au prochain demarrage)
{
  WriteTimestampedLogEntry("[ClientEnter]"+sName+PCKey+" n'a pas pu entrer (BAN) !");
  BootPC(oPC);
  return;
}

if(GetIsDM(oPC))
{
  SendMessageToPC(oPC,"Bienvenu sur le serveur Mystra");
  CreateDMTools (oPC);
  WriteTimestampedLogEntry("[Entree_MD] ["+sPlayerName+"] ["+sName+"] ["+sIPName+"] ["+sCDKey+"] ["+sLvl+"] ["+sXP+"]");
}
else
{
  WriteTimestampedLogEntry("[Entree_Joueur] ["+sPlayerName+"] ["+sName+"] ["+sIPName+"] ["+sCDKey+"] ["+sLvl+"] ["+sXP+"]");
}

AddJournalQuestEntry("informations",1,oPC);


if(GetIsPC(oPC) && !GetIsDM(oPC))// si c'est un joueur et non un DM
{
  if(GetXP(oPC) == 0 )// si il est nouveau
  {
  //Donne : 10 000 po/xp + un item
  CreateItemOnObject("passniv5", oPC);
  CreateItemOnObject("pierre_univ", oPC);
  GiveGoldToCreature(oPC, 5000 - GetGold(oPC));
  GiveXPToCreature(oPC,1000);
  }
}
}

if(GetHitDice (oPC)>=15)
  {
  //desequippe le tout
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_ARMS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BELT , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOLTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOOTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_CHEST , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_CLOAK , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_HEAD , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTHAND , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTRING , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_NECK , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTRING , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_ARROWS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BOLTS , oPC)));
  AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_BULLETS , oPC)));

  SetXP (oPC, 104999); // met a niv 15 - 1xp
}