A
Bonjour,
aujourd'hui je poste mon premier sujet en question/réponse et j'ai un problème de traduction de mon 226:
MapComplementaryInformationsDataMessage:
Voilà j'espère que vous pourrez m'aider
aujourd'hui je poste mon premier sujet en question/réponse et j'ai un problème de traduction de mon 226:
MapComplementaryInformationsDataMessage:
Public Class MapComplementaryInformationsDataMessage
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 Property ProtocolId As UInteger = 226
Public Sub InitMapComplementaryInformationsDataMessage(ByVal Param1 As UInteger, ByVal Param2 As UInteger, ByVal Param3 As Integer, ByVal Param4 As List(Of HouseInformations), ByVal Param5 As List(Of GameRolePlayActorInformations), ByVal Param6 As List(Of InteractiveElement), ByVal Param7 As List(Of StatedElement), ByVal Param8 As List(Of MapObstacle), ByVal Param9 As List(Of FightCommonInformations))
Me.SubareaId = Param1
Me.MapId = Param2
Me.SubareaAlignmentSide = Param3
Me.Houses = Param4
Me.Actors = Param5
Me.InteractiveElements = Param6
Me.StatedElements = Param7
Me.Obstacles = Param8
Me.Fights = Param9
End Sub
Public Sub Deserialize(ByVal Data As Dofus.DofusReader)
SubareaId = Data.ReadShort
MapId = Data.ReadInt32
SubareaAlignmentSide = Data.ReadByte
For i As Integer = 1 To Data.ReadUnSignedshort
Dim House As HouseInformations = ProtocolTypeManager.GetInstance(Data.ReadUnSignedshort)
House.deserialize(Data)
Houses.Add(House)
Next
For i As Integer = 1 To Data.ReadUnSignedshort
Dim Actor As New GameRolePlayActorInformations
Dim test As UInteger = Data.ReadUnSignedshort
If test = 141 Then
Actor = ProtocolTypeManager.GetInstance(test)
Actor.deserialize(Data)
Actors.Add(Actor)
End If
Next
For i As Integer = 1 To Data.ReadUInt16
Dim InteractiveElement As New InteractiveElement
InteractiveElement.deserialize(Data)
InteractiveElements.Add(InteractiveElement)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim StatedElement As New StatedElement
StatedElement.deserialize(Data)
StatedElements.Add(StatedElement)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim Obstacle As New MapObstacle
Obstacle.deserialize(Data)
Obstacles.Add(Obstacle)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim Fight As New FightCommonInformations
Fight.deserialize(Data)
Fights.Add(Fight)
Next
End Sub
End Class
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 Property ProtocolId As UInteger = 226
Public Sub InitMapComplementaryInformationsDataMessage(ByVal Param1 As UInteger, ByVal Param2 As UInteger, ByVal Param3 As Integer, ByVal Param4 As List(Of HouseInformations), ByVal Param5 As List(Of GameRolePlayActorInformations), ByVal Param6 As List(Of InteractiveElement), ByVal Param7 As List(Of StatedElement), ByVal Param8 As List(Of MapObstacle), ByVal Param9 As List(Of FightCommonInformations))
Me.SubareaId = Param1
Me.MapId = Param2
Me.SubareaAlignmentSide = Param3
Me.Houses = Param4
Me.Actors = Param5
Me.InteractiveElements = Param6
Me.StatedElements = Param7
Me.Obstacles = Param8
Me.Fights = Param9
End Sub
Public Sub Deserialize(ByVal Data As Dofus.DofusReader)
SubareaId = Data.ReadShort
MapId = Data.ReadInt32
SubareaAlignmentSide = Data.ReadByte
For i As Integer = 1 To Data.ReadUnSignedshort
Dim House As HouseInformations = ProtocolTypeManager.GetInstance(Data.ReadUnSignedshort)
House.deserialize(Data)
Houses.Add(House)
Next
For i As Integer = 1 To Data.ReadUnSignedshort
Dim Actor As New GameRolePlayActorInformations
Dim test As UInteger = Data.ReadUnSignedshort
If test = 141 Then
Actor = ProtocolTypeManager.GetInstance(test)
Actor.deserialize(Data)
Actors.Add(Actor)
End If
Next
For i As Integer = 1 To Data.ReadUInt16
Dim InteractiveElement As New InteractiveElement
InteractiveElement.deserialize(Data)
InteractiveElements.Add(InteractiveElement)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim StatedElement As New StatedElement
StatedElement.deserialize(Data)
StatedElements.Add(StatedElement)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim Obstacle As New MapObstacle
Obstacle.deserialize(Data)
Obstacles.Add(Obstacle)
Next
For i As Integer = 1 To Data.ReadUInt16
Dim Fight As New FightCommonInformations
Fight.deserialize(Data)
Fights.Add(Fight)
Next
End Sub
End Class
Voilà j'espère que vous pourrez m'aider