DMH-Online

NWScript:

///////////////////////////////////////////////////////
// at_1doormanykey
// By:  Milamber-POL
// July 20, 2002
// OnAreaTransition
///////////////////////////////////////////////////////
//
// This prevents a PC from using an area transition
// Unless they have an appropriate key.   In this
// case the area transition leads to the second floor
// of an Inn Named the Rainbow Parrot.   There are
// a number of rooms on the second floor for resting
// but to get through the Area tranition the PC needs
// a key which has "ParrotKey" as the first part
// of the tag.
// NOTE the key is taken from the PC when they go back
// downstairs.
//
///////////////////////////////////////////////////////
void main()
{
  object oClicker = GetClickingObject();
  object oTarget = GetTransitionTarget(OBJECT_SELF);
  location lLoc = GetLocation(oTarget);
  string sKey = "ParrotKey";
  object firstItemInInv;
  object currentItemInInv;
    firstItemInInv = GetFirstItemInInventory(oClicker);
    currentItemInInv = firstItemInInv;
    SetLocalInt(OBJECT_SELF, "KEY_CHECK", FALSE);
    // Insure they have at least one object
    if(currentItemInInv != OBJECT_INVALID)
    {
        do
        {
          string sItem = GetTag(currentItemInInv);            // get the tag of the Item
          string s1 = GetStringLeft(sItem, 9);                // get the first 9 chartacters
            if(s1 == sKey)
            {
                SetLocalInt(OBJECT_SELF, "KEY_CHECK", TRUE);  // Set Local Int to True
            }
            // get next item
            currentItemInInv = GetNextItemInInventory(oClicker);
        // loop while we have a new item to check
        }while(currentItemInInv != OBJECT_INVALID &&
               currentItemInInv != firstItemInInv);
     }
    if (GetLocalInt(OBJECT_SELF, "KEY_CHECK") == 1)
    {
        AssignCommand(oClicker,JumpToLocation(lLoc));
    }
    else
    {
        SpeakString( "You need to have a room key to access this area.");
    }
}

Milamber-POL
Paladins of Light
www.pofl.org