Bonjour à tous !
Voici que j'arrive au Packet 226 (MapComplementaryInformationsDataMessage), et que je bug que sur un point !
Je sais d'où vient l'erreur mais impossible de la corriger !
Je me clarifie :
'Personnages sur la map
Dim _loc4 As Short = DR.ReadUnsignedShort
For i As Integer = 1 To _loc4
Dim _loc16 As Short = DR.ReadShort
Dim _loc17 As GameRolePlayActorInformations = ProtocolTypeManager.GetInstance(_loc16)
_loc17.Deserialize(DR)
Next
Le premier _loc16 est 36, ensuite il devient 10 ou autres.
Je pense qu'il y a un problème de Deserialization au niveau du premier
Dim _loc17 As GameRolePlayActorInformations = ProtocolTypeManager.GetInstance(_loc16)
GameRolePlayActorInformations
Cliquez pour révéler
Cliquez pour masquer
Public Class GameRolePlayActorInformations
Inherits GameContextActorInformations
Public Overloads Sub Deserialize(ByVal DR As DofusReader)
MyBase.Deserialize(DR)
End Sub
End Class
GameContextActorInformations
Cliquez pour révéler
Cliquez pour masquer
Public Class GameContextActorInformations
Public ContextualID As Integer = 0
Public Look As EntityLook = Nothing
Public Disposition As EntityDispositionInformations = Nothing
Public Sub Deserialize(ByVal DR As DofusReader)
ContextualID = DR.ReadInt
Look = New EntityLook
Look.Deserialize(DR)
Dim _loc2 As Short = DR.ReadShort
Disposition = ProtocolTypeManager.GetInstance(_loc2)
Disposition.Deserialize(DR)
End Sub
End Class
EntityLook
Cliquez pour révéler
Cliquez pour masquer
Public Class EntityLook
Public BonesID As Short = 0
Public Skins As New List(Of Short)
Public IndexedColors As New List(Of Integer)
Public Scales As New List(Of Short)
Public SubEntities As New List(Of SubEntity)
Public Sub Deserialize(ByVal DR As DofusReader)
BonesID = DR.ReadShort
Dim _loc2 As Short = DR.ReadUnsignedShort
For i As Integer = 1 To _loc2
Dim _loc10 As Short = DR.ReadShort
Skins.Add(_loc10)
Next
Dim _loc4 As Short = DR.ReadUnsignedShort
For i As Integer = 1 To _loc4
Dim _loc11 As Integer = DR.ReadInt
IndexedColors.Add(_loc11)
Next
Dim _loc6 As Short = DR.ReadUnsignedShort
For i As Integer = 1 To _loc6
Dim _loc12 As Integer = DR.ReadShort
Scales.Add(_loc12)
Next
Dim _loc8 As Short = DR.ReadUnsignedShort
For i As Integer = 1 To _loc8
Dim _loc13 As New SubEntity
_loc13.Deserialize(DR)
SubEntities.Add(_loc13)
Next
End Sub
End Class