//ColdBlade
//Client Enter event
//Copyright (c) 2002 by Coldblade
//V2.0.0
//-------------------------------------------------
//This is also in the Client Enter, to setup the varriables for first level untill
//the player levelup atleast onice in the game. This is for the half-dragon, as we know
//the half-dragon increase the player hitdice, aka a thief with d6 would become d8
//to a maxminum of d12. so that means barbarns are out. This version has quite a
//bit of workaround to get around the muliclass ability of the player just making
//one check and kicking him out wouldn't be fair if he's a say barbarn/wizard muliclass
//cos the wizard will still legaly deserve the hitdice increase.  Well not a lots
//of workaround but it took me a few min to think and plan the whole thing out :)
#include "_cb_core"

void main()
{
 object cbObject = GetEnteringObject();
 object oMod = GetModule();
 if(!GetIsDM(cbObject))
  {
   SetLocalInt(cbObject, "CB_ITEM", 0);
   SetLocalInt(cbObject, "CB_DRAGON", 0);
   SetLocalInt(cbObject, "CB_OLD1", 0);
   SetLocalInt(cbObject, "CB_OLD2", 0);
   SetLocalInt(cbObject, "CB_OLD3", 0);
   SetLocalInt(cbObject, "CB_CHECK", 0);
   SetLocalInt(cbObject, "CB_DAYNIGHT", 0);
   SetLocalInt(cbObject, "O3_ECL_XP_ONE_SECOND_AGO", 0);
   int ECL = core(cbObject);
   SetLocalInt(cbObject, "CB_ECL", ECL);
  }
 if(GetLocalInt(oMod, "CB_EXECUTE") != 1)
  {
   ExecuteScript("_cb_ecl", oMod);
   SetLocalInt(oMod, "CB_EXECUTE", 1);
  }
}