DMH-Online

NWScript:

// =========== ============== ================ =========
//  array include
//	This function is responsible for simulating an array. It iterates over a set of local variables and returns the highest index.
//	If the object is invalid, or there are no values set yet, then it returns -1
// 	This should be included at the top of both of the other 2 scripts. You can cut and paste it in it's entirety or use an include file.
// ============= ============= ============== ===========
int fnGetIndex( object oObject, string sVarName, string sVarType ) {
    if ( GetIsObjectValid(oObject) != TRUE ) {
        return -1;
    }
    sVarType = GetStringLowerCase( sVarType );
    int i = 1;
    int iIndex = 1;
    if( sVarType == "object" ) {
      object oObjectToIndex = GetLocalObject( oObject, sVarName + IntToString(i) );
      if( oObjectToIndex != OBJECT_INVALID ) {
         while ( oObjectToIndex != OBJECT_INVALID ) {
            iIndex = i;
            i++;
            oObjectToIndex = GetLocalObject( oObject, sVarName + IntToString(i) );
         }
           return iIndex;
      } else {
         return -1;
      }
    } else if ( sVarType == "string" ) {
        string sObjectToIndex = GetLocalString( oObject, sVarName + IntToString(i) );
        if( sObjectToIndex != "" ) {
           while ( sObjectToIndex != "" ) {
               iIndex = i;
               i++;
               sObjectToIndex = GetLocalString( oObject, sVarName + IntToString(i) );
           }
           return iIndex;
      } else {
         return -1;
      }
    } else if ( sVarType == "int" ) {
        int iObjectToIndex = GetLocalInt( oObject, sVarName + IntToString(i) );
        if( iObjectToIndex != 0 ) {
           while ( iObjectToIndex != 0 ) {
               iIndex = i;
               i++;
               iObjectToIndex = GetLocalInt( oObject, sVarName + IntToString(i) );
           }
           return iIndex;
      } else {
         return -1;
      }
    } else if ( sVarType == "float" ) {
        float fObjectToIndex = GetLocalFloat( oObject, sVarName + IntToString(i) );
        if( fObjectToIndex != 0.0 ) {
           while ( fObjectToIndex != 0.0 ) {
               iIndex = i;
               i++;
               fObjectToIndex = GetLocalFloat( oObject, sVarName + IntToString(i) );
           }
           return iIndex;
      } else {
         return -1;
      }
    } else {
        return -1;
    }
}

NWScript:

// ============= ============= ================= ========
//  close_drag
//	This script is responsible for set local variables whenever a handle object is picked up. It should be placed in the
//	onClose event for the draggable object.
// ============ ============= ============ ==============
void main() {
    object oAVH = GetObjectByTag( "AVH", 0 );
    object oDragItem = OBJECT_SELF;
    object oPlayer = GetLastUsedBy();
    int nDragItemType = GetObjectType( oDragItem );
    object oInvItem = GetFirstItemInInventory(oPlayer);
    while ( oInvItem != OBJECT_INVALID ) {
        string sInvItemTag = GetTag(oInvItem);
        // check to see if inventory contains any handles
        if ( GetStringLeft( sInvItemTag, 4 ) == "hdl_" ) {
            // strip out resref
            string sDragItemResRef = GetSubString( sInvItemTag, 4, GetStringLength(sInvItemTag) );
            // store variables with the area variable handler
            int nIndex = fnGetIndex( oAVH, "oDragItem", "object" );
            if (nIndex == -1) {
                nIndex = 1;
            } else {
                nIndex++;
            }
            SetLocalObject( oAVH, "oDragItem" + IntToString( nIndex ), oDragItem );
            SetLocalInt( oAVH, "nDragItemType" + IntToString( nIndex ), nDragItemType );
            SetLocalString( oAVH, "sDragItemResRef" + IntToString( nIndex ), sDragItemResRef );
            SetLocalObject( oAVH, "oPlayer" + IntToString( nIndex ), oPlayer );
            break;
        }
        oInvItem = GetNextItemInInventory(oPlayer);
    }
}

NWScript:

// ============ ============== ================= ========
//  area_heart_drag
//	This is the workhorse of the package. It goes in the onHeartbeat event of the area. It basically uses the variables 
//	stored on our invisible object to first destroy the object that is being dragged, and then create a new object of the
//	same type. Currently the script does not maintain inventory items on the dragged item. They will be dumped to the
//	when the object is destroyed. This segment of code is also responsible for checking to make sure the players still 
//	have the handle object and cleaning up the AVH if they don't.
// =========== ============== ================ ==========
void main() {
    object oAVH = GetObjectByTag( "AVH", 0 );
    int nStop = fnGetIndex(  oAVH, "oDragItem", "object"  );
    int i;
    // drag all items that are flagged for dragging
    for( i = 1; i <= nStop; i++) {
        string sI = IntToString(i);
        // get the values from the AVH
        object oDragItem = GetLocalObject( oAVH, "oDragItem" + sI );
        int nDragItemType = GetLocalInt( oAVH, "nDragItemType" + sI );
        string sDragItemResRef = GetLocalString( oAVH, "sDragItemResRef" + sI );
        object oPlayer = GetLocalObject( oAVH, "oPlayer" + sI );
        location lDragLocation = GetLocation( oPlayer );

        // make sure the player still has the handle in their inventory
        object oHandle = GetObjectByTag( "hdl_" + sDragItemResRef );
        if( GetItemPossessor( oHandle ) == oPlayer ) {
            // Destroy old item
            DestroyObject(oDragItem, 0.0);
            // Create new item
            oDragItem = CreateObject( nDragItemType, sDragItemResRef, lDragLocation, FALSE );
                // ensure that we remove newly created handles
                object oHandle = GetFirstItemInInventory(oDragItem);
                while( oHandle != OBJECT_INVALID ) {
                    // check to see if of placeable inventory contains any handles
                    if ( GetStringLeft( GetTag(oHandle), 4 ) == "hdl_" ) {
                        DestroyObject(oHandle);
                    }
                    oHandle = GetNextItemInInventory(oDragItem);
                }
            // reassociate the placeable object with the AVH
            SetLocalObject( oAVH, "oDragItem" + sI, oDragItem );
        // otherwise, the handle has been dropped, so delete the references in the AVH
        } else {
            DeleteLocalObject( oAVH, "oDragItem" + sI );
            DeleteLocalInt( oAVH, "nDragItemType" + sI );
            DeleteLocalString( oAVH, "sDragItemResRef" + sI );
            DeleteLocalObject( oAVH, "oPlayer" + sI );
        }
    }
}