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

Bien joue l’erreur était là, si ça se trouve j'ai traduit plein de classes en plus pour rien xD

Anonymous

Maintenant j'arrive pas a récupérer les données xD

parsing() Threat -> Impossible d'effectuer un cast d'un objet de type 'DofusSocket.GameRolePlayNpcInformations' en type 'DofusSocket.GameRolePlayCharacterInformations'.

J'utilise un For Each :


 Dim info As GameRolePlayCharacterInformations

                For Each info In ID_Message.actors
                    If Not info.name Is Nothing Then
                        MsgBox(info.name)
                    End If

 Next

J'ai l'impression que le For Each met son nez partout

Anonymous

Faut traduire tout ton 226 tu sais sinon sa marchera jamais

Anonymous

C'est tout traduit : quand je met un point d’arrêt je vois bien tout les infos... Et quand j’enlève mon For Each ça marche nickel...

Anonymous

Mais c'est la même erreur tu m'as dit que c'était bon...

Anonymous

Hein ? Le probleme c'est que je n'arrive pas a extraire les info. Le For Each ne fonctionne pas mais sinon tout les infos sont bien présentes : j'ai pu le voir avec un point d'arret.

Anonymous

C'est pas comme sa qu'on réceptionne un packet, tien j'ai fait un tuto:

https://cadernis.com/d/483-[tuto-envoyer-et-recevoir-un-packet

Anonymous

For i As Integer = 0 To ID_Message.actors.Count - 1

                    MsgBox(ID_Message.actors(i).name)

                Next

parsing() GetMembers -> Le membre public 'name' du type 'GameRolePlayNpcInformations' est introuvable.

Il me liste bien les nom et après il me met ça...

Edit 2 : Logique en même temps car ya pas tout le temps de nom xD... Je veux juste ceux qui ont un nom d'ou ma tentative de tout a l'heure avec not null et tout

Anonymous

Fait un selectcase avec ton protocolid

Anonymous

Je dois avoir un probleme car j'ai le même protocolId pour les npc et character...

  Dim actualGameRoleActorInformations As GameRolePlayActorInformations = ID_Message.actors(i)

                    If actualGameRoleActorInformations Is GameRolePlayCharacterInformations Then

                    End If

Semble fonctionner pour le moment. Le probleme c'est que mes protocolId étaient en conflit..

Edit : Ne fonctionne pas en fait, il faut que je trouve pour les protocol id du coup

ToOnS

faut mettre name en variable ->heu comment ca s'apelle deja<- tout en haut en fait avec protocolID

Anonymous

Si je le met en shadows ça va non ?, ça semble bien réécrire le protocol id

ToOnS

en fait il faut juste qu'il soit pas declaré dans la sub deserialize (sinon un fois sorti de la sub la variable existe plus) mais dans la classe (donc tout en haut comme protocoleID)

Anonymous

Pour ne pas mentir j'ai pas trop compris ce que tu me dis xD Mais le Shadows fonctionne :D

Merci pour tout

ToOnS

normal, moi aussi je comprend pas ce que j'ai dit

4R7Y

Si tu utilises Shadows, tu en subira les conséquences plus tard :twisted:

Anonymous

Surtout ne pas utiliser shadows c'est un truc a recommencer ton bot.

Anonymous

J'utilise quoi du coup ? xD Ça me fait peur la ^^

Anonymous

Overrides et overridable comme je t'ai dit.

Anonymous

Pour les variables ça ne fonctionne pas...

« Page précédente Page suivante »