Bonjour,J'ai un petit probleme avec le paquet 226, je voudrais récupérer le nom des persos présents sur la carte donc j'ai pas besoin de tout le reste.``` Public Class MapComplementaryInformationsDataMessage Public actors As New List(Of GameRolePlayActorInformations) Public Function deserialize(ByVal param1 As DofusReader) Dim _loc_17 As GameRolePlayActorInformations = Nothing Dim _loc_16 As UInteger = 0 Dim _loc_4 = param1.ReadUnSignedshort() Dim _loc_5 As UInteger = 0 While _loc_5 < _loc_4 _loc_16 = param1.ReadUnSignedshort() _loc_17 = New GameRolePlayActorInformations _loc_17.deserialize(param1) Me.actors.add(_loc_17) _loc_5 = _loc_5 + 1 End While Return Me End Function End Class `````` Public Class GameContextActorInformations Public contextualId As Integer = 0 ' Public look As EntityLook 'Public disposition As EntityDispositionInformations Public Function Deserialize(ByVal param1 As DofusReader) Me.contextualId = param1.ReadInt() 'look = New EntityLook() 'look.deserialize(param1) 'Dim _loc_2 = param1.ReadUnSignedshort() 'disposition = New EntityDispositionInformations 'disposition.Deserialize(param1) Return Me End Function End Class ```Voila, j'en suis la et après je suis perdu :'( . Si quelqu'un peux m'aider.

Faut mettre aucune ligne en commantaire du code, ensuite quel est ton probleme exactement ?

Je comprends plus comment ça fonctionne : ou sont lances les deserialize des classes en inherits,... Moi je veux juste lister les pseudo des joueurs sur la map dans mon dictionary donc je crois aps avoir besoin des House..., etc. Et je vois pas non plus comment on accède aux classe en inherits depuis le dictionary. bref, gros bazar dans ma tete ^^

Deja traduit la classe entiere actorinformation, pour les inherits c'est le protocoltypemanager, on te demande des ids.

``` Public Class EntityDispositionInformations Public cellId As Integer = 0 Public direction As UInteger = 1 Public protocolId As UInteger = 60 Public Function getTypeid() Return 60 End Function Public Function deserialize(ByVal param1 As DofusReader) Me.cellId = param1.ReadShort() If Me.cellId 559 Then Throw New Exception("Forbidden value (" + Me.cellId + ") on element of EntityDispositionInformations.cellId.") End If Me.direction = param1.ReadByte() If Me.direction < 0 Then Throw New Exception("Forbidden value (" + Me.direction + ") on element of EntityDispositionInformations.direction.") End If Return Nothing End Function End Class `````` Public Class GameRolePlayActorInformations Inherits GameContextActorInformations Public protocolId As UInteger = 141 Public Function GameRolePlayActorInformations() Return Nothing End Function Public Function getTypeid() Return 141 End Function Public Function initGameRolePlayActorInformations(ByVal param1 As Integer, ByVal param2 As EntityLook, ByVal param3 As EntityDispositionInformations) MyBase.initGameContextActorInformations(param1, param2, param3) Return Me End Function Public Overloads Function deserialize(ByVal param1 As DofusReader) MyBase.Deserialize(param1) Return Me End Function `````` Public Class GameContextActorInformations Public contextualId As Integer = 0 Public name As String Public look As EntityLook Public disposition As EntityDispositionInformations Public protocolId As UInteger = 150 Public Function getTypeid() Return 150 End Function Public Function initGameContextActorInformations(ByVal contextualId As Integer, ByVal look As EntityLook, ByVal disposition As EntityDispositionInformations) contextualId = contextualId look = look disposition = disposition Me.protocolId = 150 Return Me End Function Public Function Deserialize(ByVal param1 As DofusReader) Me.contextualId = param1.ReadInt() look = New EntityLook() look.deserialize(param1) Dim _loc_2 = param1.ReadUnSignedshort() Me.disposition = New EntityDispositionInformations Me.disposition.Deserialize(param1) Return Me End Function End Class ```ça me semble correcte :/Sinon convertir ça :``` ProtocolTypeManager.getInstance(EntityDispositionInformations, _loc_2); ```en``` New EntityDispositionInformations ```est correcte non ?

si tu as besoin des houses et tout le bordel sinon comment tu sais ou te placer dans le stream ? Le seul moyen c'est de tout faire dans l'ordre meme (sauf si tu veux juste la 1ere info mais la c'est pas le cas , c'est vers la fin) et tu es obligé de passer par le protocoletypemanager car il renvera pas forcement toujours la meme classe (c'est justement a ca que sert loc_2)

``` public static function getInstance(param1:Class, param2:uint) { var _loc_3:* = _typesTypes[param2]; if (!_loc_3) { throw new Error("Type with id " + param2 + " is unknown."); } var _loc_4:* = new _loc_3; if (!(new _loc_3 is param1)) { throw new Error("Type " + param2 + " is not a " + param1 + "."); } return _loc_4; }// end function ```Je vois pas l’intérêt vu que si param1 est différent de param 2 ça met une erreur donc param2 correspondra forcement a la bonne class, non ?

non car param2 (dans le stream , donc loc_2) aura pas forcement la meme valeur a chaque fois selon quel _typesTypes il faut lire , si c'est un monstre ou un perso qui est sur la map on lit pas les memes classes (en fait pas les memes _typesTypes)

``` Public Class ProtocolTypeManager Public v As Object Public Function _typesTypes(ByVal id As UInteger) Select Case id Case 11 v = New Version() Case 377 v = New TrustCertificate() Case 25 v = New GameServerInformations() Case 55 v = New EntityLook() Case 54 v = New SubEntity() Case 110 v = New CharacterMinimalInformations() Case 163 v = New CharacterMinimalPlusLookInformations() Case 60 v = New EntityDispositionInformations() Case 369 v = New Shortcut() Case 150 v = New GameContextActorInformations() Case 141 v = New GameRolePlayActorInformations() Case 174 v = New MapCoordinates() Case 176 v = New MapCoordinatesExtended() Case Else Throw New Exception("No id ProtocolTypeManager" + id) End Select Return v End Function Public Function getInstance(ByVal param1 As Object, ByVal param2 As UInteger) Dim _loc_3 = _typesTypes(param2) Return _loc_3 End Function End Class ```C'est correct de cette manière ? J'ai ignore une partie qui me semblait pas très importante :D

oui ca doit etre correct ca mais pour mieux trouver les prochains a ajouter je conseil de changer ca : Throw New Exception("No id ProtocolTypeManager" + id)par un console.writeline ou une msgbox

J'ai presque fini de tout traduire, mais il me souligne en vert les fonctions dans les class en inherits... Il faut que je mette overloads ? parce que il me dit que la fonction est surchargeable e

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

Probleme 226

Anonymous

C'est a ton protocol id c'est sa ?

Overrides ou overridable property

Public overrides property ...

Tu dois en faire un a ta class inherits aussi

ToOnS

pour la variable "name" (c'est bien de ca dont on parle ?) declare la pas dans la sub deserialize (comme c'est normalement fait) mais avec toutes les autres variables tout en haut

anodu94

Sincèrement je te conseille de tout recommencer, moi aussi au début ça me dégoûtait mais au moins t'es sûr d'y arriver à la fin. Pour tout retraduire, je te conseille de faire un petit traducteur AS = > VB net, tu gagneras énormément de temps. Personnellement, j'ai tout retraduit en 1 soirée et 2h le lendemain avec mon traducteur et depuis mon 226 fonctionne :)

ToOnS

Namespace Network.Types.Game.Context.Roleplay
    Public Class GameRolePlayNamedActorInformations
        Inherits GameRolePlayActorInformations

        Public name As String = ""
        Public Overrides Property protocolId As UInteger = 154

        Public Function GameRolePlayNamedActorInformations()
            Return Me
        End Function

        Public Overrides Function deserialize(ByVal param1 As DofusStream.DofusReader)
            Me.deserializeAs_GameRolePlayNamedActorInformations(param1)
            Return Me
        End Function

        Public Function deserializeAs_GameRolePlayNamedActorInformations(ByVal param1 As DofusStream.DofusReader)
            MyBase.deserialize(param1)
            Me.name = param1.ReadUTF()
            Return Me
        End Function
    End Class
End Namespace

Anonymous

Merci ! Et bonne idée le traducteur ^^

« Page précédente