VB/VB.Net Probleme pour trouver la MapId

[Anonymous]

Voici le code que j'ai pu trouver dans les sources d'Overedge et qui ont l'air correct, cependant l'id de la map ne s'affiche pas :/

 Case 220
                ID_Message = New Messages.Game.Context.Roleplay.CurrentMapMessage
                ID_Message.Deserialize(PacketData)
                ID_Map = ID_Message.MapId
                Log.Invoke(loger, ID_Map)

Des solutions?

 

[4R7Y]

msgbox(ID_Map)
Normalement il devrait s'afficher sinon c'est que tu n'as pas reçu le packet 220

 

[Anonymous]

Merci, ça marche mais comment se fait-il qu'il ne s'affiche pas sur mon label ?

 

[4R7Y]

Car tu le met dans le log ?

 

[Anonymous]

Renseigne toi sur les delegate sa devrait marcher

 

[miniteck27140]

Je vais t'aider,
Tu fait :
Une label nommer LBL_MAP
ensuite tu ajoute comme ceci :

  Case 220
                ID_Message = New Messages.Game.Context.Roleplay.CurrentMapMessage 'ID du message
                ID_Message.Deserialize(PacketData)
                ID_Map = ID_Message.mapid 'On va chercher l'id de la map
                LBL_MAP.Invoke(idmap_, "Map : " & ID_Map & " ") ' On affiche l'id de la map en invoke
                              Dofus.DofusWriter.Send(225)  ' MapInformationsRequestMessage ' On send le packet 225 pour avoir accès au info de la maps

ensuite tu ajoute ceci n'importe ou enfin toute en bas du code enfin gère sa comme tu veut.

    Delegate Sub LBL_MAPs(ByVal x As String)
    Sub myidmapproc(ByVal x As String)
        LBL_MAP.Text = (x)
    End Sub
    Dim idmap_ As New LBL_MAPs(AddressOf myidmapproc)

voila

 

[Anonymous]

Envoi nous ta fenetre de sortie

 

[ToOnS]

voila la fenetre de sortie (mais elle sert a rien la)

 

[tifoux]

Je vais t'aider,
Tu fait :
Une label nommer LBL_MAP
ensuite tu ajoute comme ceci :

  Case 220
                ID_Message = New Messages.Game.Context.Roleplay.CurrentMapMessage 'ID du message
                ID_Message.Deserialize(PacketData)
                ID_Map = ID_Message.mapid 'On va chercher l'id de la map
                LBL_MAP.Invoke(idmap_, "Map : " & ID_Map & " ") ' On affiche l'id de la map en invoke
                              D..D..Send(225)  ' MapInformationsRequestMessage ' On send le packet 225 pour avoir accès au info de la maps

ensuite tu ajoute ceci n'importe ou enfin toute en bas du code enfin gère sa comme tu veut.

    Delegate Sub LBL_MAPs(ByVal x As String)
    Sub myidmapproc(ByVal x As String)
        LBL_MAP.Text = (x)
    End Sub
    Dim idmap_ As New LBL_MAPs(AddressOf myidmapproc)

voila

essaye sa si ci-dessus sa fonctionne pas

 Delegate Sub _Label(ByVal Label As Label, ByVal a As String)
    Sub Set_Label(ByVal Label As Label, ByVal a As String)
        Label.Text = a
    End Sub

 

[Anonymous]

Merci, ta méthode marche très bien

 

[tifoux]

dr dit merci a overedge