[résolu]Le paket 8408 et 61333 existe ?

[asyade]

J'ais trouver c'estait un petit readuint16() au lieux de readInt() ^^

Bonjours , voila dans mon 226 > interactivelement > dislabedSkills dans le _loc_8 j'obtien un value de 8408 (_loc_8 vas dans protocoletypemanager.getinstance(_loc_8) or je ne trouve aucune class avec cette ID oO et c'est au méme endroit pours le 61333
mai avec un autre objet interactif

 

[BlueDream]

Re: Le paket 8408 et 61333 existe ?

Tu as un décalage, tu as mal traduit quelque chose.

Montre nous ton code.

 

[asyade]

Re: Le paket 8408 et 61333 existe ?

Okidoki

InteractiveElement

Imports BobyBot.Utils
Namespace Network.Types.Game.Interactive
    Public Class InteractiveElement
        Public elementId As UInteger = 0
        Public elementTypeId As Integer = 0
        Public enabledSkills As New List(Of InteractiveElementSkill)
        Public disabledSkills As New List(Of InteractiveElementSkill)
        Public Const protocolId As UInteger = 80

        Public Sub deserialize(ByVal param1 As DofusReader)
            Dim _loc_6 As UInteger = 0
            Dim _loc_7 As InteractiveElementSkill = Nothing
            Dim _loc_8 As UInteger = 0
            Dim _loc_9 As InteractiveElementSkill = Nothing
            Me.elementId = param1.ReadInt()
            Me.elementTypeId = param1.ReadInt()
            Dim _loc_2 = param1.ReadUnSignedshort()
            Dim _loc_3 As UInteger = 0
            While (_loc_3 < _loc_2)
                _loc_6 = param1.ReadUnSignedshort()
                _loc_7 = ProtocolTypeManager.GetInstance(_loc_6)
                _loc_7.deserialize(param1)
                Me.enabledSkills.Add(_loc_7)
                _loc_3 = _loc_3 + 1
            End While
            Dim _loc_4 = param1.ReadUnSignedshort()
            Dim _loc_5 As UInteger = 0
            While (_loc_5 < _loc_4)
                _loc_8 = param1.ReadUnSignedshort()
                _loc_9 = ProtocolTypeManager.GetInstance(_loc_8)
                _loc_9.deserialize(param1)
                Me.disabledSkills.Add(_loc_9)
                _loc_5 = _loc_5 + 1
            End While
        End Sub
    End Class
End Namespace

et InteractiveElementSkill

Imports BobyBot.Utils
Namespace Network.Types.Game.Interactive
    Public Class InteractiveElementSkill
        Public skillId As UInteger = 0
        Public skillInstanceUid As UInteger = 0
        Public Const protocolId As UInteger = 219

        Public Sub deserialize(ByVal param1 As DofusReader)
            Me.skillId = param1.ReadUInt16()
            Me.skillInstanceUid = param1.ReadInt16()
        End Sub
    End Class
End Namespace

et mon 226 au cas ou

Imports BobyBot.Utils
Imports BobyBot.Network.Types.Game.House
Imports BobyBot.Network.Types.Game.Context.Roleplay
Imports BobyBot.Network.Types.Game.Interactive
Imports BobyBot.Network.Types.Game.Context.Fight
Namespace Network.Messages.Game.Context.Roleplay
    Public Class MapComplementaryInformationsDataMessage
        Private _isInitialized As Boolean = False
        Public subAreaId As UInteger = 0
        Public mapId As UInteger = 0
        Public subareaAlignmentSide As Integer = 0
        Public houses As New List(Of HouseInformations)
        Public actors As New List(Of GameRolePlayActorInformations)
        Public interactiveElements As New List(Of InteractiveElement)
        Public statedElements As New List(Of StatedElement)
        Public obstacles As New List(Of MapObstacle)
        Public fights As New List(Of FightCommonInformations)
        Public Const protocolId As UInteger = 226

        Public Sub deserialize(ByVal param1 As DofusReader)

            Dim _loc_14 As UInteger = 0
            Dim _loc_15 As HouseInformations = Nothing
            Dim _loc_16 As UInteger = 0
            Dim _loc_17 As GameRolePlayActorInformations = Nothing
            Dim _loc_18 As UInteger = 0
            Dim _loc_19 As InteractiveElement = Nothing
            Dim _loc_20 As StatedElement = Nothing
            Dim _loc_21 As MapObstacle = Nothing
            Dim _loc_22 As FightCommonInformations = Nothing
            Me.subAreaId = param1.ReadShort()
            Me.mapId = param1.ReadInt()
            Me.subareaAlignmentSide = param1.ReadByte()
            Dim _loc_2 = param1.ReadUnSignedshort()
            Dim _loc_3 As UInteger = 0
            While (_loc_3 < _loc_2)
                _loc_14 = param1.ReadUnSignedshort()
                _loc_15 = ProtocolTypeManager.GetInstance(_loc_14)
                _loc_15.deserialize(param1)
                Me.houses.Add(_loc_15)
                _loc_3 = _loc_3 + 1

            End While
            Dim _loc_4 = param1.ReadUnSignedshort()
            Dim _loc_5 As UInteger = 0
            While (_loc_5 < _loc_4)
                _loc_16 = param1.ReadUnSignedshort()
                _loc_17 = ProtocolTypeManager.GetInstance(_loc_16)
                _loc_17.deserialize(param1)
                Me.actors.Add(_loc_17)
                _loc_5 = _loc_5 + 1
            End While
            Dim _loc_6 = param1.ReadUnSignedshort()
            Dim _loc_7 As UInteger = 0
            While (_loc_7 < _loc_6)

                _loc_18 = param1.ReadUnSignedshort()
                _loc_19 = ProtocolTypeManager.GetInstance(_loc_18)
                _loc_19.deserialize(param1)
                Me.interactiveElements.Add(_loc_19)
                _loc_7 = _loc_7 + 1
            End While

            Dim _loc_8 = param1.ReadUnSignedshort()
            Dim _loc_9 As UInteger = 0
            While (_loc_9 < _loc_8)
                _loc_20 = New StatedElement()
                _loc_20.deserialize(param1)
                Me.statedElements.Add(_loc_20)
                _loc_9 = _loc_9 + 1
            End While

            Dim _loc_10 = param1.ReadUnSignedshort()
            Dim _loc_11 As UInteger = 0
            While (_loc_11 < _loc_10)
                _loc_21 = New MapObstacle()
                _loc_21.deserialize(param1)
                Me.obstacles.Add(_loc_21)
                _loc_11 = _loc_11 + 1
            End While

            Dim _loc_12 = param1.ReadUnSignedshort()
            Dim _loc_13 As UInteger = 0
            While (_loc_13 < _loc_12)

                _loc_22 = New FightCommonInformations()
                _loc_22.deserialize(param1)
                Me.fights.Add(_loc_22)
                _loc_13 = _loc_13 + 1
            End While

        End Sub
    End Class
End Namespace