37 lines
1.3 KiB
Plaintext
37 lines
1.3 KiB
Plaintext
////////////////////////////////////////////////////////////////////////////////
|
|
// rh_pl_bagclose - Close the bag and transfer it's contents
|
|
// By Deva B. Winblood. November 12th, 2008
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
|
|
////////////////////////////////////
|
|
// FUNCTIONS
|
|
////////////////////////////////////
|
|
|
|
void fnTransferGoods(object oSource,object oDestination,int bDestroy=FALSE)
|
|
{ // PURPOSE: Transfer goods
|
|
object oItem;
|
|
object oCopy;
|
|
oItem=GetFirstItemInInventory(oSource);
|
|
while(GetIsObjectValid(oItem))
|
|
{ // transfer
|
|
oCopy=CopyItem(oItem,oDestination,TRUE);
|
|
DelayCommand(0.5,DestroyObject(oItem));
|
|
oItem=GetNextItemInInventory(oSource);
|
|
} // transfer
|
|
if (bDestroy) DelayCommand(1.0,DestroyObject(oSource));
|
|
} // fnTransferGoods()
|
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////[ MAIN ]//
|
|
void main()
|
|
{
|
|
object oMe=OBJECT_SELF;
|
|
object oOwner=GetLocalObject(oMe,"oOwner");
|
|
object oStorage=GetLocalObject(oMe,"oStorage");
|
|
if (!GetIsObjectValid(oStorage)) SendMessageToPC(oOwner,"ERROR rh_pl_bagclose - The Storage object is missing.");
|
|
SendMessageToPC(oOwner,"Closing Other World Bag of Holding...");
|
|
DeleteLocalInt(oOwner,"bBagOpening");
|
|
fnTransferGoods(oMe,oStorage,TRUE);
|
|
}
|