//Striptease//
//By Aiden
//08/27/02
//Modified by Spectre on 02/19/03
//Put this script in the Action Taken line for dialog
//to have an NPC do a dance at the players request.
void main()
    {
    //the tease part
    ActionPlayAnimation(ANIMATION_FIREFORGET_TAUNT,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_BOW,1.0);
    //this removes dress and reequips next item to give
    //appearance of taking off only the dress
    object oItem = GetItemInSlot (INVENTORY_SLOT_CHEST);
    ActionUnequipItem (oItem);
    string sStrip04 = "strip04";
    object oStrip04 = GetObjectByTag(sStrip04);
    ActionEquipItem(oStrip04, INVENTORY_SLOT_CHEST);
    //continue dancing
    ActionPlayAnimation(ANIMATION_FIREFORGET_VICTORY2,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_BOW,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_WORSHIP,1.0);
    //this removes current clothing and equips
    //next clothing item to give appearance of only taking off
    //one item of clothing
    object oItem2 = GetItemInSlot (INVENTORY_SLOT_CHEST);
    ActionUnequipItem (oItem2);
    string sStrip03 = "strip03";
    object oStrip03 = GetObjectByTag(sStrip03);
    ActionEquipItem(oStrip03, INVENTORY_SLOT_CHEST);
    //continue dancing
    ActionPlayAnimation(ANIMATION_LOOPING_WORSHIP,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_VICTORY2,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW,1.0);
    //remove current clothes and equip next item of clothing
    //gives appearance of removing only one item of clothing
    object oItem3 = GetItemInSlot(INVENTORY_SLOT_CHEST);
    ActionUnequipItem(oItem3);
    string sStrip02 = "strip02";
    object oStrip02 = GetObjectByTag(sStrip02);
    ActionEquipItem(oStrip02, INVENTORY_SLOT_CHEST);
    //continue dancing
    ActionPlayAnimation(ANIMATION_LOOPING_TALK_FORCEFUL,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_BOW,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_TALK_PLEADING,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW,1.0);
    //remove clothing and equip next clothing item
    object oItem4 = GetItemInSlot(INVENTORY_SLOT_CHEST);
    ActionUnequipItem(oItem4);
    string sStrip01 = "strip01";
    object oStrip01 = GetObjectByTag(sStrip01);
    ActionEquipItem(oStrip01, INVENTORY_SLOT_CHEST);
    //more dancing
    ActionPlayAnimation(ANIMATION_FIREFORGET_TAUNT,1.0);
    ActionPlayAnimation(ANIMATION_LOOPING_WORSHIP,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_VICTORY2,1.0);
    ActionPlayAnimation(ANIMATION_FIREFORGET_BOW,1.0);
    //put clothes back on
    string sStrip05 = "strip05";
    object oStrip05 = GetObjectByTag(sStrip05);
    ActionEquipItem(oStrip05, INVENTORY_SLOT_CHEST);
}