powerid
Inicial
Cantidad de envíos : 18
Fecha de inscripción : 14/08/2013
Edad : 24
Localización : Pehuajo
 | Tema: Equipa items click derecho 11.5 dx7  Miér Ago 14, 2013 2:02 pm | |
| Bueno, Antes de empezar quiero avisarles que este codigo no es mio, lo extraje de un AO, y que no digan que no anda porque ami me andubo perfecto y lo probe en un Mod Nightmare AO Gracias!
empezamos
TODO ES EN EL CLIENTE!
En el ClsGraphicalInventory Buscan El Sub:
- Código:
-
Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Y remplazan todo el Sub por:
- Código:
-
Private Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse up event of the inventory picture box
'Check outs which item was clicked
'***************************************************
'Store previously selected item
Dim prevSelItem As Long
prevSelItem = InvSelectedItem
'Get the currently clickced item
InvSelectedItem = ClickItem(CInt(x), CInt(y))
If InvSelectedItem <> SelectItem And SelectItem <> 0 And InvSelectedItem <> 0 Then
Call SendData("DRAG" & InvSelectedItem & "," & SelectItem)
End If
If InvSelectedItem <> 0 Then
frmMain.ItemName.Caption = UserInventory(InvSelectedItem).Name
Else
frmMain.ItemName.Caption = "Nada"
End If
'Update needed inventory slots
If prevSelItem <> InvSelectedItem Then
If prevSelItem <> 0 And prevSelItem <> FLAGORO Then Call DrawInventorySlot(prevSelItem)
If InvSelectedItem Then Call DrawInventorySlot(InvSelectedItem)
End If
#If ConMenuesConextuales = 1 Then
'If it was a right click on the same item we had selected before, show popup menu
If Button = vbRightButton And prevSelItem = InvSelectedItem Then
'Show the provided menu as a popup
Call InventoryWindow.Parent.PopUpMenu(ItemMenu, , x, y)
End If
#End If
If Button = 2 Then
If (Inventario.SelectedItem > 0) And (Inventario.SelectedItem <= MAX_INVENTORY_SLOTS) Then _
SendData "KHEV" & Inventario.SelectedItem
End If
End Sub En las declaraciones del ClsGraphicalInventory Abajo de:
- Código:
-
Option Explicit Ponen:
- Código:
-
Dim SelectItem As Long Eso fue Todo SALUDOS!
| |
|
