VB/VB.Net [résolu]Probléme avec le 226 (edit)

A

asyade

Membre Actif
#1
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#1
Salut, voila j'ais résolu une partie de mes probléme mai pas tousse... j'ai traduit tout les class parrent,types ext mai j'obtien toujours des exception overvrflow
et l'exeption vien du paket HouseInformations voici mes class

MapComplementaryInformationsDataMessage
Code: 
Imports BobyBot.Utils
Imports BobyBot.Network.Types.Game.House
Imports BobyBot.Network.Types.Game.Context.Roleplay
Imports BobyBot.Network.Types.Game.Interactive
Imports BobyBot.Network.Types.Game.Context.Fight
Namespace Network.Messages.Game.Context.Roleplay
    Public Class MapComplementaryInformationsDataMessage
        Private _isInitialized As Boolean = False
        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 Const protocolId As UInteger = 226

        Public Sub deserialize(ByVal param1 As DofusReader)

            Dim _loc_14 As UInteger = 0
            Dim _loc_15 As HouseInformations = Nothing
            Dim _loc_16 As UInteger = 0
            Dim _loc_17 As GameRolePlayActorInformations = Nothing
            Dim _loc_18 As UInteger = 0
            Dim _loc_19 As InteractiveElement = Nothing
            Dim _loc_20 As StatedElement = Nothing
            Dim _loc_21 As MapObstacle = Nothing
            Dim _loc_22 As FightCommonInformations = Nothing
            Me.subAreaId = param1.ReadShort()
            Me.mapId = param1.ReadInt()
            Me.subareaAlignmentSide = param1.ReadByte()
            Dim _loc_2 = param1.ReadUnSignedshort()
            For _loc_3 As UInteger = 0 To _loc_2
                _loc_14 = param1.ReadUnSignedshort()
                _loc_15 = New HouseInformations
                _loc_15.deserializ(param1)
                Me.houses.Add(_loc_15)
            Next

            Dim _loc_4 = param1.ReadUnSignedshort()

            For _loc_5 As UInteger = 0 To _loc_4
                _loc_16 = param1.ReadUnSignedshort()
                _loc_17 = New GameRolePlayActorInformations
                _loc_17.deserialize(param1)
                Me.actors.Add(_loc_17)

            Next
            Dim _loc_6 = param1.ReadUnSignedshort()
            For _loc_7 As UInteger = 0 To _loc_6
                _loc_18 = param1.ReadUnSignedshort()
                _loc_19 = New InteractiveElement
                _loc_19.deserialize(param1)
                Me.interactiveElements.Add(_loc_19)

            Next
            Dim _loc_8 = param1.ReadUnSignedshort()
            For _loc_9 As UInteger = 0 To _loc_8
                _loc_20 = New StatedElement()
                _loc_20.deserialize(param1)
                Me.statedElements.Add(_loc_20)

            Next
            Dim _loc_10 = param1.ReadUnSignedshort()
            For _loc_11 As UInteger = 0 To _loc_10
                _loc_21 = New MapObstacle()
                _loc_21.deserialize(param1)
                Me.obstacles.Add(_loc_21)

            Next
            Dim _loc_12 = param1.ReadUnSignedshort()
            For _loc_13 As UInteger = 0 To _loc_12
                _loc_22 = New FightCommonInformations()
                _loc_22.deserialize(param1)
                Me.fights.Add(_loc_22)
            Next
        End Sub
    End Class
End Namespace
HouseInformations

Code: 
Imports BobyBot.Utils
Namespace Network.Types.Game.House
    Public Class HouseInformations
        Public houseId As UInteger = 0
        Public doorsOnMap As New List(Of UInteger)
        Public ownerName As String = ""
        Public isOnSale As Boolean = False
        Public isSaleLocked As Boolean = False
        Public modelId As UInteger = 0
        Public Const protocolId As UInteger = 111

        Public Sub deserializ(ByVal param1 As DofusReader)
            Dim _loc_5 As UInteger = 0
            Dim _loc_2 = param1.ReadByte()
            Me.isOnSale = BooleanByteWrapper.getFlag(_loc_2, 0)
            Me.isSaleLocked = BooleanByteWrapper.getFlag(_loc_2, 1)
            Me.houseId = param1.ReadInt()
          
            Dim _loc_3 = param1.ReadUnSignedshort()
            Dim _loc_4 As UInteger = 0
            For _loc_4 = 0 To _loc_3
                _loc_5 = param1.ReadInt()
                Me.doorsOnMap.Add(_loc_5)
            Next
            Me.ownerName = param1.ReadUTF()
            Me.modelId = param1.ReadShort()
        End Sub
    End Class
End Namespace
Et voici le value des mes variables (certaine)
dans houseinformation
_loc_5 = 278898 Oo
_loc_2 = 0
isOnSale=false
isSaleLocked=false
houseId = 604001110
_loc_3 = 22272 Oo

et dans MapComplementaryInformationsDataMessage
_loc_2 = 0 et pourtan il lence commem la boucle oO


Mon personages est a incarname en 0,3 (sortie du temple)

L'erreur vien de la class HouseInformations a la ligne "_loc_5 = param1.ReadInt()"
Je block totalement help me ^^
ps . j'ai éditer mon ancien post pour ne pas faire trop de post
 
BlueDream

BlueDream

Administrateur
Membre du personnel
#2
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#2
Re: Récuperer le cellid

Tu a la liste des joueurs sur la map, parmi les joueurs tu y trouvera ton personnage. En suite Dans Disposition.Cellid. Et tu a la cellid.

Pour mettre a jour la cellid.

950. GameMapMovementMessage
 
A

asyade

Membre Actif
#3
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#3
Re: Récuperer le cellid

Merci :)
 
A

asyade

Membre Actif
#4
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#4
Re: Récuperer le cellid

Je ne trouve toujours pas ...
voila ma class (pas fini):
Code: 
Namespace Network.Game.Context.Roleplay
    Public Class MapComplementaryInformationsDataMessage
        Private _isInitialized As Boolean = False
        Public subAreaId As UInteger = 0
        Public mapId As UInteger = 0
        Public subareaAlignmentSide As Integer = 0
        Public houses() As HouseInformations
        Public actors() As GameRolePlayActorInformations
        Public interactiveElements() As InteractiveElement
        Public statedElements() As StatedElement
        Public obstacles() As MapObstacle
        Public fights() As FightCommonInformations
        Public Const protocolId As UInteger = 226

        Public Sub deserialize(ByVal param1 As DofusReader)
            subAreaId = param1.ReadShort()
            mapId = param1.ReadInt()
            subareaAlignmentSide = param1.ReadByte()
        End Sub
    End Class
End Namespace
et ma class GameRolePlayActorInformations ne contien que sa par contre (j'ai que sa dans les source de D.)
Code: 
Namespace Network.Types.Game.Context.Roleplay
    Public Class GameRolePlayActorInformations
        Public Const protocolId As UInteger = 141
    End Class
End Namespace
et j'ai toute les autre class aussi

Edite : Je croi que jai trouver c'est dans StatedElement ?
 
A

asyade

Membre Actif
#5
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#5
Re: Récuperer le cellid

Jy arrive pas T_T
 
A

asyade

Membre Actif
#6
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#6
Re: Récuperer le cellid

Si qqn dispose de statedElements et MapComplementaryInformationsDataMessage converti en vb pourai t'il me les donner :)
 
BlueDream

BlueDream

Administrateur
Membre du personnel
#7
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#7
Re: Récuperer le cellid

Stated ellement correspont aux interactives de la map.
Ta classe GameRolePlayActorInformation est inherits a tt un tas de classe.
 
A

asyade

Membre Actif
#8
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#8
Re: Récuperer le cellid

Oé jau vue sa :'|

Et jya arrive tojours pas T_T
comment on fait pour traduire cette class surtout "super.initGameContextActorInformations(param1, param2, param3);" et c'est quoi sa "super" ?
 
A

asyade

Membre Actif
#9
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#9
Re: Récuperer le cellid

???
 
BlueDream

BlueDream

Administrateur
Membre du personnel
#10
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#10
Re: Récuperer le cellid

Super -> MyBase
Pas de double poste, tu n'auras pas de reponse plus rapide.

Ajoute moi sur skype si tu veux

Alexandre.frydman

Ou frydman.alexandre
 
A

asyade

Membre Actif
#11
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#11
Re: Récuperer le cellid

Je tajoute ,merci

edite------

Personne pour maider?
 
T

tifoux

Membre
#12
Inscrit
29 Septembre 2011
Messages
393
Reactions
3
#12
Re: Probléme avec le 226 (edit)

Salut, ajoute moi skype anthony74001 je viendrais t'aider a debug ça!
 
A

asyade

Membre Actif
#13
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#13
Re: Probléme avec le 226 (edit)

ok x) je serai la vers 16/17h
 
BlueDream

BlueDream

Administrateur
Membre du personnel
#14
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#14
Re: Probléme avec le 226 (edit)

Astade tu ne m'as pas ajouté.
 
A

asyade

Membre Actif
#15
Inscrit
26 Avril 2013
Messages
368
Reactions
1
#15
Re: Probléme avec le 226 (edit)

si je tai ajouter (ya 2 jours) mai tkt jai avec l'aide de tifoux j'ai trouver :) (un pb de protocoletypemanager)
 
Vous devez vous connecter ou vous inscrire pour répondre ici.
Haut Bas