Bug de Inventario

Este tema se encuentra cerrado.

» 28 Ene 2012 10:24

Buenas, hoy he detectado un bug de inventario, y queria saber a que parte del codigo tengo que reparar para que el inventario funcion perfectamente. Ejemplo del bug:
Cuando llenamos el inventario, salimos, creamos otro personaje(probe en otra cuenta) y saldra todo el inventario anterior en el inventario del nuevo pj creado

DD pero en realidad no tiene nada, ya que si intentamos equipar, no nos deja. Osea esto me suena a bug mas grafico que otra cosa, sera x el Dx8? y si agarra* algo , ese nuevo item reemplaza el item ficticio

. Si podeis dar alguna opinion o ayuda, agradecia

Suerte

Mi Canal YouTube · » 28 Ene 2012 10:27

no, solo es el dibujito del item, no se puede "materializar" si por asi decir, el dibujo en un item, es solo el grh.

» 28 Ene 2012 22:42

Creo que es porque este que lo descargue ya venia con el NoSeCae modificado.. osea, que como es ideal para battleserver, pos pondra que no se caigan los items(estilo iao) y por eso pasa eso

ya que yo con el iao clon probe tmb hacer eso, que un item no se caiga asi x asi, y pasaba lo mismo, al desekipar quedaba la imagen igual

Borro el nosecae y listo? es que no quiero "cagrla

"

Mi Canal YouTube · » 30 Ene 2012 13:10

ZoLTaR escribió:Creo que es porque este que lo descargue ya venia con el NoSeCae modificado.. osea, que como es ideal para battleserver, pos pondra que no se caigan los items(estilo iao) y por eso pasa eso ya que yo con el iao clon probe tmb hacer eso, que un item no se caiga asi x asi, y pasaba lo mismo, al desekipar quedaba la imagen igual Borro el nosecae y listo? es que no quiero "cagrla "

no entiendo q relacion puede tener con el nosecae. si lo q vos decis es q la imagen se te qeda no el item

» 30 Ene 2012 21:11

Eso mismo tienes razon, es que yo creia que tmb quedaba el item

una confusion, Osea el bug es ese mismo, que al tirar el item queda la imagen de ese item igualmente pero obvio no nos deja equipar, y si creamos otro pj saldra ese dibujo del item en el inventario igualmente, y igualmente no podremos usar, osea no se actualiza el inventario, no se queda "vacio" el tile del inventario en negro... sugieren algo?

» 30 Ene 2012 21:50

y si pones para que se actualize el inventario al tirar algun item ?? posteme el modulo de clase graphicalinvetori o como sea

» 31 Ene 2012 00:01

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Option Explicit
 
Dim InventoryOffset As Long             'Number of lines we scrolled down from topmost
Dim InvSelectedItem As Long             'Currently selected item
 
'Dim InvSurface As DirectDrawSurface7            'DD Surface used to render everything
 
Dim UserInventory(1 To MAX_INVENTORY_SLOTS) As Inventory    'User's inventory
 
Dim WithEvents InventoryWindow As PictureBox    'Placeholder where to render the inventory
 
#If ConMenuesConextuales = 1 Then
    Dim ItemMenu As Menu    'Menu to be shown as pop up
#End If
 
Private Sub Class_Initialize()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub
 
Private Sub Class_Terminate()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub
 
Public Sub ScrollInventory(ByVal up As Boolean)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Scrolls the graphical inventory up / down
'***************************************************
    'Only move if there is something to show up /down
    If up Then
        If (InventoryOffset + (InventoryWindow.ScaleHeight \ TilePixelHeight)) * (InventoryWindow.ScaleWidth \ TilePixelWidth) < MAX_INVENTORY_SLOTS Then _
            InventoryOffset = InventoryOffset + 1
    Else
        If InventoryOffset > 0 Then _
            InventoryOffset = InventoryOffset - 1
    End If
End Sub
 
Public Sub SelectGold()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Sets the gold as the currently selected item
'***************************************************
    Dim prevSelectedItem As Long
    
    'Store preivously selected item
    prevSelectedItem = InvSelectedItem
    
    'Select the gold
    InvSelectedItem = FLAGORO
    
 
End Sub
 
Public Property Get SelectedItem() As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item index
'***************************************************
    SelectedItem = InvSelectedItem
End Property
 
Public Property Get MaxHit(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the max hit of the selected item
'***************************************************
    MaxHit = UserInventory(slot).MaxHit
End Property
 
Public Property Get MinHit(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the min hit of the selected item
'***************************************************
    MinHit = UserInventory(slot).MinHit
End Property
 
Public Property Get Def(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the defense of the selected item
'***************************************************
    Def = UserInventory(slot).Def
End Property
 
Public Property Get grhindex(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the grh index of the selected item
'***************************************************
    grhindex = UserInventory(slot).grhindex
End Property
 
Public Property Get Valor(ByVal slot As Byte) As Single
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the value of the selected item
'***************************************************
    Valor = UserInventory(slot).Valor
End Property
 
Public Property Get Amount(ByVal slot As Byte) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's amount
'***************************************************
    If slot = FLAGORO Then
        Amount = UserGLD
    ElseIf slot >= LBound(UserInventory) And slot <= UBound(UserInventory) Then
        Amount = UserInventory(slot).Amount
    End If
End Property
 
Public Property Get OBJIndex(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object index
'***************************************************
    OBJIndex = UserInventory(slot).OBJIndex
End Property
 
Public Property Get OBJType(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object type
'***************************************************
    OBJType = UserInventory(slot).OBJType
End Property
 
Public Property Get ItemName(ByVal slot As Byte) As String
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's name
'***************************************************
    ItemName = UserInventory(slot).Name
End Property
 
Public Property Get Equipped(ByVal slot As Byte) As Boolean
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves True if the item at the given pos is eqiupped
'***************************************************
    Equipped = UserInventory(slot).Equipped
End Property
 
Public Sub SetItem(ByVal slot As Byte, ByVal eOBJIndex As Integer, ByVal eAmount As Integer, ByVal eEquipped As Byte, _
                        ByVal eGrhIndex As Integer, ByVal eObjType As Integer, ByVal eMaxHit As Integer, ByVal eMinHit As Integer, _
                        ByVal eDef As Integer, ByVal eValor As Single, ByVal eName As String, ByVal PuedeUsar As Byte)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 12/04/06
'Sets all data for a given inventory slot
'***************************************************
    If slot < 1 Or slot > MAX_INVENTORY_SLOTS Then Exit Sub
    
    With UserInventory(slot)
        .Amount = eAmount
        .Def = eDef
        .Equipped = eEquipped
        .grhindex = eGrhIndex
        .MaxHit = eMaxHit
        .MinHit = eMinHit
        .Name = eName
        .OBJIndex = eOBJIndex
        .OBJType = eObjType
        .PuedeUsar = PuedeUsar
        .Valor = eValor
    End With
    
End Sub
 
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
    temp_y = y \ 32
    
    TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ 32) + 1
    
    'Make sure it's within limits
    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
End Function
 
Public Sub DrawInventory()
    Dim i As Byte
    Dim x As Integer
    Dim y As Integer
    
    For i = 1 To UBound(UserInventory)
        If UserInventory(i).grhindex Then
            x = ((i - 1) Mod (InventoryWindow.width / 32)) * 32 + 2
            y = ((i - 1) \ (InventoryWindow.width / 32)) * 32 + 2
            If UserInventory(i).PuedeUsar = 0 Then Call engine.Text_Render_ext(y + 20, x, 32, 32, D3DColorXRGB(255, 0, 0), False)
            If InvSelectedItem = i Then
                Call engine.Draw_FilledBox(x, y, 32, 32, D3DColorXRGB(0, 0, 0), D3DColorXRGB(255, 0, 0))
            End If
            Call engine.Draw_GrhIndex(UserInventory(i).grhindex, x, y)
            If UserInventory(i).PuedeUsar = 0 Then Call engine.Draw_GrhIndex(UserInventory(i).grhindex, x, y, D3DColorXRGB(255, 0, 0))
            Call engine.Text_Render_ext(UserInventory(i).Amount, y, x, 40, 40, D3DColorXRGB(255, 255, 255))
            If UserInventory(i).Equipped Then
                Call engine.Text_Render_ext("+", y + 20, x + 20, 40, 40, D3DColorXRGB(255, 255, 255))
            End If
        End If
    Next i
End Sub

Estara en draw inventory talvez xd una cosa que nunca lei y talvez dire una gran tonteria pero nose, esto fue pasado a directx 8, y ahi pone directdraw7, no tendria que ser directdraw8? aunque sea tonteria prefiero decir asi aprendo algo mas

» 31 Ene 2012 00:20

Mira hace algo

Usa esto

inventarios_renderizados_v2_tiAW.html
Seria el code del inventario renderizado mejorado

» 31 Ene 2012 18:59

Solucionado

Para el que no sepa, el bug esta en el actualizado del inventario, osea ir al Case CSI y con un retoque queda todo de 10

Este tema se encuentra cerrado.

Bug de Inventario

¿Quién está conectado?