NWScript:

/*

    On Disturbed Theft Detection Script

    by, EtherDragon, Jun 27, 2001.

    Message me at my Bioware account if you have

    any comments.

    This Script is designed to allow a near-by Merchant

    a chance to see the Player stealing items from

    their chests.

    Use: Placeable Containers, On Disturbed.

    Make sure the Chest or Container is part of the same

    faction that the Merchant is. If the player gets

    caught stealing enough, the Merchants will then no

    longer deal with them.

*/

void main()

{

    // Initialize Objects

    object oChest = OBJECT_SELF;

    object oPlayer = GetLastDisturbed();

    object oMerchant = GetNearestObjectByTag("MERCHANT");

    // Get the skill checks to see if the Merchant spotted the theft.

    int iPPSkillCheck = d20(1) + 1 + GetSkillRank(SKILL_PICK_POCKET, oPlayer);

    // The Merchant has a +2 circumstance bonus to spot.

    int iSpotCheck = d20(1) + 3 + GetSkillRank(SKILL_SPOT, oMerchant);

    // Make a text string to display to the Player.

    string sSkillCheck = "Pick Pocket " + IntToString(iPPSkillCheck) + " vs Spot " + IntToString(iSpotCheck);

    if (iPPSkillCheck > iSpotCheck)

    {

    // Theft not spotted.

        FloatingTextStringOnCreature(sSkillCheck + " - Success!", oPlayer);

        // Slightly worsen the rep with Merchants

        AdjustReputation(oPlayer, oChest, -5);

        return;

    }

    else

    {

    // Theft was spotted.

        FloatingTextStringOnCreature(sSkillCheck + " - Failed!", oPlayer);

        // Give the Player a bad rep with Merchants

        // and instruct the Merchant to attack the player.

        AdjustReputation(oPlayer, oChest, -20);

        AssignCommand(oMerchant, ActionAttack(oPlayer));

    }

}

~ED