[Aporte] Drag & Drop

Case "INFS" 'Informacion del hechizo

Case "SWAP" ' Te muevo el item
rData = Right$(rData, Len(rData) - 4)
ObjSlot1 = ReadField(1, rData, 44)
ObjSlot2 = ReadField(2, rData, 44)
SwapObjects (UserIndex)
Exit Sub

' te re muevo el item By eM
Public ObjSlot1 As Byte
Public ObjSlot2 As Byte

Public Sub SwapObjects(ByVal UserIndex As Integer)
Dim tmpUserObj As UserOBJ

With UserList(UserIndex)

'Cambiamos si alguno es una herramienta
If .Invent.HerramientaEqpSlot = ObjSlot1 Then
.Invent.HerramientaEqpSlot = ObjSlot2
ElseIf .Invent.HerramientaEqpSlot = ObjSlot2 Then
.Invent.HerramientaEqpSlot = ObjSlot1
End If

'Cambiamos si alguno es un armor
If .Invent.ArmourEqpSlot = ObjSlot1 Then
.Invent.ArmourEqpSlot = ObjSlot2
ElseIf .Invent.ArmourEqpSlot = ObjSlot2 Then
.Invent.ArmourEqpSlot = ObjSlot1
End If

'Cambiamos si alguno es un barco
If .Invent.BarcoSlot = ObjSlot1 Then
.Invent.BarcoSlot = ObjSlot2
ElseIf .Invent.BarcoSlot = ObjSlot2 Then
.Invent.BarcoSlot = ObjSlot1
End If

'Cambiamos si alguno es un casco
If .Invent.CascoEqpSlot = ObjSlot1 Then
.Invent.CascoEqpSlot = ObjSlot2
ElseIf .Invent.CascoEqpSlot = ObjSlot2 Then
.Invent.CascoEqpSlot = ObjSlot1
End If

'Cambiamos si alguno es un escudo
If .Invent.EscudoEqpSlot = ObjSlot1 Then
.Invent.EscudoEqpSlot = ObjSlot2
ElseIf .Invent.EscudoEqpSlot = ObjSlot2 Then
.Invent.EscudoEqpSlot = ObjSlot1
End If

'Cambiamos si alguno es munición
If .Invent.MunicionEqpSlot = ObjSlot1 Then
.Invent.MunicionEqpSlot = ObjSlot2
ElseIf .Invent.MunicionEqpSlot = ObjSlot2 Then
.Invent.MunicionEqpSlot = ObjSlot1
End If

'Cambiamos si alguno es un arma
If .Invent.WeaponEqpSlot = ObjSlot1 Then
.Invent.WeaponEqpSlot = ObjSlot2
ElseIf .Invent.WeaponEqpSlot = ObjSlot2 Then
.Invent.WeaponEqpSlot = ObjSlot1
End If

'Hacemos el intercambio propiamente dicho
tmpUserObj = .Invent.Object(ObjSlot1)
.Invent.Object(ObjSlot1) = .Invent.Object(ObjSlot2)
.Invent.Object(ObjSlot2) = tmpUserObj

'Actualizamos los 2 slots que cambiamos solamente
Call UpdateUserInv(False, UserIndex, ObjSlot1)
Call UpdateUserInv(False, UserIndex, ObjSlot2)
End With
End Sub

Dim InvSelectedItem As Long 'Currently selected item

Dim MouseDownSelectedItem As Long

Private Function ClickItem(ByVal x As Long, ByVal y As Long) As Long

Private Function ClickItem(ByVal x As Long, ByVal y As Long) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Selects the item clicked if it's valid and return's it's index
'***************************************************
Dim TempItem As Long
Dim temp_x As Long
Dim temp_y As Long

temp_x = x \ 32 'TilePixelWidth
temp_y = y \ 32 'TilePixelHeight

TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ 32) + 1

'Make sure it's within limits
If TempItem <= MAX_INVENTORY_SLOTS Then
ClickItem = TempItem
End If
End Function

Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim TempItem As Long

If Button = 2 Then 'click derecho
TempItem = ClickItem(x, y)

If UserInventory(TempItem).GrhIndex Then
MouseDownSelectedItem = TempItem
Exit Sub
End If
End If

MouseDownSelectedItem = 0
End Sub

InvSelectedItem = ClickItem(CInt(x), CInt(y))

If InvSelectedItem <> MouseDownSelectedItem And MouseDownSelectedItem <> 0 And InvSelectedItem <> 0 Then
Call SendData("SWAP" & InvSelectedItem & "," & MouseDownSelectedItem)
End If

Dim MouseDownSelectedItem As Long

Dim MouseX As Integer
Dim MouseY As Integer

'Inventory Items, eM
Public MouseOK As Boolean
Public MouseItem As Integer
Public MouseRendOK As Boolean
Public OfMouse As Boolean
Public ButtonIN As Boolean
Public PUEDO As Boolean

For i = 1 To UBound(UserInventory)

If MouseOK = True Then
Call engine.Draw_GrhIndex(MouseItem, MouseX, MouseY)
End If

Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim TempItem As Long

If Button = vbMiddleButton Then
PUEDO = True
MouseItem = 0
End If

If Button = 2 Then 'click derecho
TempItem = ClickItem(x, y)

If UserInventory(TempItem).grhindex Then
MouseDownSelectedItem = TempItem
Exit Sub
End If
End If

MouseDownSelectedItem = 0

End Sub

If InvSelectedItem <> MouseDownSelectedItem And MouseDownSelectedItem <> 0 And InvSelectedItem <> 0 Then
Call SendData("SWAP" & InvSelectedItem & "," & MouseDownSelectedItem)
End If

If Button = vbRightButton Then
MouseOK = False
MouseItem = 0
End If
MouseItem = 0

If TempItem <= MAX_INVENTORY_SLOTS Then
InventoryWindow.ToolTipText = UserInventory(TempItem).Name
End If

If MouseItem = 0 And Button = 2 Then
MouseItem = UserInventory(TempItem).grhindex
End If
If MouseItem = 0 And PUEDO = True Then
MouseItem = UserInventory(TempItem).grhindex
End If
If Button = vbRightButton Then
MouseX = x
MouseY = y
MouseOK = True
End If
If PUEDO = True Then
MouseX = x
MouseY = y
MouseOK = True
ButtonIN = True
End If