// Written By BilboWEM   7/26/02
// The following script will allow the PC to get naked
// wait 2 seconds and take a bath. PC is required to
// put his clothes back on himself. The tag used for
// the divining pool is (pool), and this script should
// be attached to OnUsed for a Divining Pool

void main()
{
object oPC = GetEnteringObject();
object oPlayer = GetLastUsedBy ();
object opool = OBJECT_SELF;
if (GetIsPC(oPlayer)) {
AssignCommand( oPlayer, ActionUnequipItem( GetItemInSlot(INVENTORY_SLOT_CHEST , oPlayer) ) );
}
if (GetIsPC (oPlayer)) {
if (GetIsObjectValid(opool) && !GetIsObjectValid (GetSittingCreature (opool)))
{
AssignCommand (oPlayer, ActionWait(2.0));
AssignCommand (oPlayer, ActionSit (opool));
  }
 }
}