DMH-Online

NWScript:

//
// Script: Who All
//
//     jcm_whoall
//
// By: John Maffei
//     jmaffei@austin.rr.com
//     johnymutton (bioware community handle)
//
// Description:
//
//     Sends a message to the user containing all the players
//     in the module including their locations and levels
//
//     It is based on the /whoall command in Everquest
//
// Implementation
//
//     Make an item that will be your Who Stone
//     Give it a tag of "whostone"
//     Give it a blueprint of "whostone"
//     Give it a name of "Who Stone"
//     Click on the plot item checkbox
//     Give it a property of "Cast Spell: Unique power self only unlimited uses"
//
//     There are 3 scripts that must be included for the Who Stone to work
//
//     jcm_whoall           - must be included in the module
//     jcm_trig_whoall      - placed on any placeable object's OnUsed event
//                            that you want to trigger the script
//     jcm_activatemod      - placed on the OnActivateItem event of your module
//
//     in addition, depending on how you want to have the player acquire the Who Stone
//     you can add the script jcm_giv_whostone to a conversation tree.
void main()
{
    object oPC = OBJECT_SELF;
    object oSearchPC;
    object oArea;
    string sArea;
    string sMessage;
    string sName;
    string sAreaTag;
    string sLevel;
    SendMessageToPC(oPC, "---------------------------------------");
    SendMessageToPC(oPC, "Players in Who Stone Example");
    SendMessageToPC(oPC, "---------------------------------------");

    oSearchPC = GetFirstPC();
    while (oSearchPC != OBJECT_INVALID)
    {
        oArea = GetArea(oSearchPC);
        sAreaTag = GetTag(oArea);
        sName = GetName(oSearchPC);
        sArea = GetName(oArea);

        int nDruid     = GetLevelByClass(CLASS_TYPE_DRUID, oSearchPC);
        int nMonk      = GetLevelByClass(CLASS_TYPE_MONK, oSearchPC);
        int nRogue     = GetLevelByClass(CLASS_TYPE_ROGUE, oSearchPC);
        int nWizard    = GetLevelByClass(CLASS_TYPE_WIZARD, oSearchPC);
        int nSorcerer  = GetLevelByClass(CLASS_TYPE_SORCERER, oSearchPC);
        int nFighter   = GetLevelByClass(CLASS_TYPE_FIGHTER, oSearchPC);
        int nBarbarian = GetLevelByClass(CLASS_TYPE_BARBARIAN, oSearchPC);
        int nBard      = GetLevelByClass(CLASS_TYPE_BARD, oSearchPC);
        int nCleric    = GetLevelByClass(CLASS_TYPE_CLERIC, oSearchPC);
        int nPaladin   = GetLevelByClass(CLASS_TYPE_PALADIN, oSearchPC);
        int nRanger    = GetLevelByClass(CLASS_TYPE_RANGER, oSearchPC);
        string sDruidLevel      = IntToString(nDruid);
        string sMonkLevel       = IntToString(nMonk);
        string sRogueLevel      = IntToString(nRogue);
        string sWizardLevel     = IntToString(nWizard);
        string sSorcererLevel   = IntToString(nSorcerer);
        string sFighterLevel    = IntToString(nFighter);
        string sBarbarianLevel  = IntToString(nBarbarian);
        string sBardLevel       = IntToString(nBard);
        string sClericLevel     = IntToString(nCleric);
        string sPaladinLevel    = IntToString(nPaladin);
        string sRangerLevel     = IntToString(nRanger);
        if(nDruid)      sLevel = sLevel + "Druid:"      + sDruidLevel + " ";
        if(nMonk)       sLevel = sLevel + "Monk:"       + sMonkLevel + " ";
        if(nRogue)      sLevel = sLevel + "Rogue:"      + sRogueLevel + " ";
        if(nWizard)     sLevel = sLevel + "Wizard:"     + sWizardLevel + " ";
        if(nSorcerer)   sLevel = sLevel + "Sorcerer:"   + sSorcererLevel + " ";
        if(nFighter)    sLevel = sLevel + "Fighter:"    + sFighterLevel + " ";
        if(nBarbarian)  sLevel = sLevel + "Barbarian:"  + sBarbarianLevel + " ";
        if(nBard)       sLevel = sLevel + "Bard:"       + sBardLevel + " ";
        if(nCleric)     sLevel = sLevel + "Cleric:"     + sClericLevel + " ";
        if(nPaladin)    sLevel = sLevel + "Paladin:"    + sPaladinLevel + " ";
        if(nRanger)     sLevel = sLevel + "Ranger:"     + sRangerLevel + " ";

        SendMessageToPC(oPC, sName + " - " + sLevel + "- "  + sAreaTag);
        sLevel = "";

        oSearchPC = GetNextPC();
    }

    SendMessageToPC(oPC, "---------------------------------------");

}

NWScript:

//
// Script: Activate Module
//
//     jcm_activatemod
//
// By: John Maffei
//     jmaffei@austin.rr.com
//     johnymutton (bioware community handle)
//
// Description:
//
//     When the stone is useds this script triggers the Who All script
//
void main()
{
    object      oItemUsed;                      //The item used
    object      oItemUser;                      //The person who activated that item
    string      sItemTag;                       //The tag (resref) of that item
    event       eUserEvent;                     //Used for signalling a user defined event later
    oItemUsed = GetItemActivated();             //Get the item that was used
    sItemTag = GetTag(oItemUsed);               //Find out what its name is
    if (sItemTag == "whostone")
    {
        oItemUser = GetItemActivator();         //Get the person who activated our item
        ExecuteScript("jcm_whoall", oItemUser); // Execute the script
    }
}

NWScript:

//
// Script: Trigger Who All
//
//     jcm_trig_whoall
//
// By: John Maffei
//     jmaffei@austin.rr.com
//     johnymutton (bioware community handle)
//
// Description:
//
//     Triggers the Who All script
//

void main()
{
    object oPC = GetLastUsedBy();
    ExecuteScript("jcm_whoall", oPC);
}

NWScript:

//
// Script: Give Who Stone
//
//     jcm_giv_whostone
//
// By: John Maffei
//     jmaffei@austin.rr.com
//     johnymutton (bioware community handle)
//
// Description:
//
//     Gives the player the Who Stone via a conversation tree
//

void main()
{
    object      oPC;
    oPC = GetPCSpeaker();
    CreateItemOnObject("whostone", oPC);
}

_________________
Server Name: Midnight Odyssey
Genre: Action
My NWN Resource Page I Cant Find My Sheep