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