[aporte] drag y drop de inventario

Ir abajo

[aporte] drag y drop de inventario

Mensaje por Lekasak el 28/3/2011, 6:43 pm

bueno se me dio de aportar cosas Razz
les traigo esta implementacion desde gs-z, no se bien si servira para todos los mods. pero yo la proben en un 11.5 y andubo lo mas bien.

empezamos:
cliente
En el clsGrapchicalInventory declara:

Código:
Dim SelectItem As Long


Al final del clsGrapchicalInventory pones:

Código:
Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim TempItem As Long
 
    If Button = vbRightButton Then
        TempItem = ClickItem(x, y)
     
        If UserInventory(TempItem).grhindex Then
            SelectItem = TempItem
            Exit Sub
        End If
    End If
 
    SelectItem = 0
End Sub


Remplaza:

Código:
If TempItem <= MAX_INVENTORY_SLOTS Then
        'Make sure slot isn't empty
        If UserInventory(TempItem).grhindex Then
            ClickItem = TempItem
        Else
            ClickItem = 0
        End If
    End If


Por:

Código:
If TempItem <= MAX_INVENTORY_SLOTS Then
        ClickItem = TempItem
    End If

Abajo de:

Código:
InvSelectedItem = ClickItem(CInt(x), CInt(y))


Pones:

Código:
If InvSelectedItem <> SelectItem And SelectItem <> 0 And InvSelectedItem <> 0 Then
        Call SendData("DRAG" & InvSelectedItem & "," & SelectItem)
    End If


Servidor:
Buscas:

Código:
Case "INFS"


Arriba pones:

Código:
Case "DRAG"
            rData = Right$(rData, Len(rData) - 4)
            ObjSlot1 = ReadField(1, rData, 44)
            ObjSlot2 = ReadField(2, rData, 44)
            DragObjects (UserIndex)
            Exit Sub


En el modulo general al final pones:

Código:
Public Sub DragObjects(ByVal UserIndex As Integer)
Dim tmpUserObj As UserOBJ
 
    With UserList(UserIndex)
 
        tmpUserObj = .Invent.Object(ObjSlot1)
        .Invent.Object(ObjSlot1) = .Invent.Object(ObjSlot2)
        .Invent.Object(ObjSlot2) = tmpUserObj
 
        Call UpdateUserInv(False, UserIndex, ObjSlot1)
        Call UpdateUserInv(False, UserIndex, ObjSlot2)
    End With
End Sub


Y en declaraciones abajo de Option Explicit pones:
Código:
Public ObjSlot1 As Byte
Public ObjSlot2 As Byte
espero que les sirva Wink
Fuente:


Última edición por lekasak el 23/4/2011, 9:20 pm, editado 2 veces
avatar
Lekasak
Nivel 32
Nivel 32

¿BANEADO? : No.
Premios :
[1º Puesto] ¿Cuanto sabés del foro?.


Miembro honorario
Cantidad de envíos : 5639
Edad : 20
Localización : villa maipu
Fecha de inscripción : 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por mistikit el 23/4/2011, 7:50 pm

Primero perdón por revivir Razz

Pero flaco , todos tus códigos son copy and paste . Si no me equivoco lo hizo Standelf en gs zone ^^

mistikit
Nivel 4
Nivel 4

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 131
Edad : 21
Localización : Lujan
Fecha de inscripción : 13/11/2010

Ver perfil de usuario http://www.tierrasdelesteao.jimdo.com

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Lekasak el 23/4/2011, 9:17 pm

si, quien dijo que son mios?
en un th que hice hace banda dije que como la seccion programacion esta muy caida iba a poner un par de codigos de otros lugares.
avatar
Lekasak
Nivel 32
Nivel 32

¿BANEADO? : No.
Premios :
[1º Puesto] ¿Cuanto sabés del foro?.


Miembro honorario
Cantidad de envíos : 5639
Edad : 20
Localización : villa maipu
Fecha de inscripción : 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Facundo Russo el 1/3/2016, 2:57 am

Me van a banear por esta tremenda, mutante, impresionante, revivida pero es funcional?

Facundo Russo
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 4
Localización : Marpla
Fecha de inscripción : 28/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Lekasak el 4/3/2016, 12:46 pm

Ay mis codes de cuando era nw :'(

@Facundo Russo escribió:Me van a banear por esta tremenda, mutante, impresionante, revivida pero es funcional?

Si, es funcional para 11.x. Aunque podria ser un poquitin mas óptimo. Y, si mal lo recuerdo, este code tiraba run time si querias hacer drag desde el inventario al render screen.

PD: No te pueden sancionar por una revivida, lee el reglamento Reglamento
avatar
Lekasak
Nivel 32
Nivel 32

¿BANEADO? : No.
Premios :
[1º Puesto] ¿Cuanto sabés del foro?.


Miembro honorario
Cantidad de envíos : 5639
Edad : 20
Localización : villa maipu
Fecha de inscripción : 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Toyz el 4/3/2016, 1:31 pm

Le podés agregar un limite, para que no pase las coordenadas del inventario.
Así está hecho en la 13.3 (Liberada), si quieren un drag and drop pueden copypastear este código (11.5) o ir a GS-Z y copypastear otro de 13.0, aunque en el 13.0 tienen que tocar mucho código para implementarlo, lo mejor sería ir al 13.3 y extraer el drag and drop.


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Pinkie Pie el 4/3/2016, 3:56 pm

No encuentro otra manera de decirlo así que lo digo por acá, no pienso cerrar estos post en caso de revivida, es preferible que se usen para aclarar dudas y corregir errores.
avatar
Pinkie Pie
Nivel 20
Nivel 20

¿BANEADO? : No.
Premios : [1º P] Torneo de League of Legends.
Cantidad de envíos : 3092
Localización : u wot m8
Fecha de inscripción : 27/07/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por BAHTANG el 4/3/2016, 5:47 pm

@Lekasak escribió:
PD: No te pueden sancionar por una revivida, lee el reglamento Reglamento

Ya se jajaj... Era sarcasmo lo mío (?)

Lo voy a testear a ver que sale. Espero que me sirva, salu2
avatar
BAHTANG
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 331
Edad : 19
Localización : Ullathorpe
Fecha de inscripción : 20/03/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por leysho el 6/5/2016, 3:41 pm

En Servidor no encuentro Case "INFS"
O en que parte tengo que buscarlo, no entiendo como lo explican :S

P.D: Estoy intentando implementarlo en 13.0 puede ser eso?
avatar
leysho
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 18
Localización : necochea
Fecha de inscripción : 17/04/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Metrosersuah el 5/9/2016, 12:18 am

Toma
Drag And Drop+ Arraste de Item [Funcional y testeado] de Dunkan.
avatar
Metrosersuah
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 237
Localización : 4 Paredes
Fecha de inscripción : 13/02/2016

Ver perfil de usuario http://www.argentumonline.com.ar

Volver arriba Ir abajo

Re: [aporte] drag y drop de inventario

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.