#include "xx_persist_quest"
#include "asg_i_dbplayer"
#include "cs_misc_function"
void main ()
{

    object oPlayer = GetEnteringObject();
    object oMOD = GetModule();
    //    string sPlayerName = GetName(oPlayer);
    //    string sPCPlayerName = GetPCPlayerName(oPlayer);
    //    string sCDKey = GetPCPublicCDKey(oPlayer);
    //    string sIP = GetPCIPAddress(oPlayer);

     int iASGPDB = GetLocalInt(GetModule(),"ASG_PLAYERDATABASE");
    if (iASGPDB==FALSE)
    {
        SetLocalInt(GetModule(),"ASG_PLAYERDATABASE",TRUE);
        PrintString("* ASG Player Database Installed.");
    }
    if (GetIsPC(oPlayer) && !GetIsDM(oPlayer))
    {

        SendMessageToPC(oPlayer,"(!) Trinity OnEnter Database Script Activated.");
        string sMod = GetTag(oMOD); // Module Tag, used as part of the Database Name;
        string sMDB = "MDB_"+sMod; // Master Player Database name
        string sPDB = GetPCPlayerName(oPlayer); // Individule Player Database Name;
        // In order to try to create a Unique Key with limited Characters
        // Use the 1st and last 4 letters Characters Name and Public CD Key.
        // this will leave use 12 characters  for varible information.
        // Why? Because we have only 32 character to play with when placing a
        // Varible into the Database.
        string sName = GetName(oPlayer);
        string CDKey = GetPCPublicCDKey(oPlayer);
        string sID = GetStringLeft(sName,20); // Indivudual Character Used inside the
        // Player Databse (sPDB) as Unique Varible name for player.
        int iPlayerNum =  GetCampaignInt(sPDB,"MDB_ID");
        if (iPlayerNum == 0)
        {
            // Checks agains the Players Persnal Dabatase and looks for the
            // Module Players ID file Start NEW player.
            PlayerDatabase("S",oPlayer);
            iPlayerNum =  GetCampaignInt(sPDB,"MDB_ID");
        }
        // Player ID has been essablished now to check to see if the
        // character he has brought to the table is part of the databse
        int iCharID = GetCampaignInt(sPDB,sID+"CharID");
        if (iCharID < 1) // Determined that this is A NEW Character
        {
            // Init new Char
            PlayerDatabase("I",oPlayer);
            // Write to Database
            PlayerDatabase("W",oPlayer);
            // Read and set varibles
            PlayerDatabase("R",oPlayer);
            DelayCommand(5.0,AssignCommand(oPlayer,JumpToLocation(GetLocation(GetWaypointByTag("wp_jano_01")))));

        }
        else
        {
            // Exsisting Character Read from Database
            PlayerDatabase("R",oPlayer);
        }
    }

                         // Check if Legal Character
    cs_DestroyStolenItems(oPlayer);                         // Destroy any stolen items
    cs_LimitGoldInBank(oPlayer, 20000000);                  // Limit gold in bank
    cs_LimitGoldOnPlayer(oPlayer, 1000000);                // Limit gold on player

    DelayCommand(3.0,cs_StripPlayerSpells(oPlayer));                          // Strip Spells
    DelayCommand(4.0,cs_StripPlayerFeats(oPlayer));                           // Strip Feats
    DelayCommand(2.0,cs_MakeAllItemsNoClean(oPlayer));            // Set items for store cleanup script

    // Rebuild Journal Entries for chr. Tab
    RebuildJournalQuestEntries(GetEnteringObject());

    cs_RemoveIllegalItem(oPlayer, "nothing");        // Remove all illegal items (None replaced)
    cs_RemoveIllegalItem(oPlayer, "nothing");

    //
    // Removed Items use the TAG, Created Items use the ResRef!
    // Tags must also be different... at least for now.
    //

    // Remove 'ArmoroftheShiningsea' and replace with 'armorofunspokenp' (Unique item, so only 1 allowed)
    if (cs_RemoveIllegalItem(oPlayer, "ArmoroftheShiningSea") > 0) { cs_CreateObjectOnPlayer("armorofunspokenp", oPlayer); }




}