24 lines
727 B
Plaintext
24 lines
727 B
Plaintext
// 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));
|
|
}
|
|
}
|
|
}
|