Bonjour,aujourd'hui je poste mon premier sujet en question/réponse et j'ai un problème de traduction de mon 226:![img](http://img11.hostingpics.net/pics/32761520111101180909.png)MapComplementaryInformationsDataMessage:[spoiler]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 SubEnd Class[/spoiler]Voilà j'espère que vous pourrez m'aider

Valeur de i ?Valeur de House ? (Nothing je parie)Je te conseil de mettre des variable intermédiaire, je m'explique :Au lieu de :``` For i As Integer = 1 To Data.ReadUnSignedshort Dim House As HouseInformations = ProtocolTypeManager.GetInstance(Data.ReadUnSignedshort) House.deserialize(Data) Houses.Add(House) Next ```Met plutôt :``` Dim NombreMaison As Integer = Data.ReadUnSignedshort For i As Integer = 1 To NombreMaison Dim Protocol As Integer = Data.ReadUnSignedshort Dim House As HouseInformations = ProtocolTypeManager.GetInstance(Protocol) House.deserialize(Data) Houses.Add(House) Next ```Qui te permettras de mieux contrôler le code

J'ai fais comme tu m'a dit, je t’avoue ne pas être super en programmation je débute, si tu pouvais m'aider par TW ?

Je ne sais pas ou tu as trouver ton MapComplementaryInformationsDataMessage mais le mien ressemble pas du tout à cela. Je te conseille de regarder celui des sources du jeu qui est beaucoup plus facile a traduire.

Comme tu le vois il y a plusieurs personnes qui sont en train de traduire ce packet, donc il vaut mieux rester sur le forum.Donne nous les valeurs de toute les variables :NombreMaison, i, Protocol, House. On pourra ainsi situer le problème

A mon avis cela vient de ta classe GetInstance, qui je pense, n'est pas correctement coder.

Dim NombreMaison As Integer = Data.ReadUnSignedshortDim Protocol As Integer = Data.ReadUnSignedshortDim House As HouseInformations = ProtocolTypeManager.GetInstance(Protocol)Celui de mon écoute jeu:Dim i = _socket_Connexion.Receive(buffer) ' on met dans i le nombre d'octets recuCelui de mon écoute connexion:Dim i = _socket_Jeu.Receive(buffer) ' on met dans i le nombre d'octets recu

J'ai due mal m'expliquer, je te disais dans ton MapComplementary... lorsque l'erreur ce produit, tu met ta souris sur la variable "NombreMaison" et tu regarde sa valeur, de même pour le "i" du FOR et protocol

pour avoir les valeurs met un point d’arrêt (F7 ou F9) sur la ligne juste avant Dim NombreMaison As Integer = Data.ReadUnSignedshort et ensuite tu exécute et arriver au point d’arrêt fait du pas à pas et en plaçant ta souris sur tes variables tu pourras voir les valeurs, c'est ce que veux Maxilia.

mon 226 est pas pareille du tous enfin pas terminé mais pas pareille.

NombreMaison = 1i = 1Protocol = 112

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

226 Traduction

Lakh92

tifoux a dit : "Lakh92 ta réussi toi la nouvelle maj?"

Je suis dessus.

Mais là n'est pas la question, LulsKiller ne comprend absolument rien et pourtant il s'entête.

Shornaal

La plupart des traductions sont vraiment simple. Si on oubli les choses plus techniques comme le parseur, les reader et les writer... Vas-y au feeling et recherche les termes que tu ne connais pas en AS. Sinon il y a un tutoriel dessus par 4R7Y : https://cadernis.com/d/272-la-traduction-pour-les-nuls

Anonymous

Merci beaucoup ;)

« Page précédente