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

[Résolue par TooNs]Cordoné

tifoux

Bonjour j'aimerais s'avoir quel Packet a traduit pour je puis obtenir les cordonné de la map merci d'avance.

ToOnS

Re: Cordoné

220 ou 226

tifoux

Re: Cordoné

220 = l'id de la map

tifoux

Re: Cordoné

je supose je doit lire le d2o pour avoir le nom la cordonné ??

ToOnS

Re: Cordoné

Dim X As Integer
        Dim Y As Integer
        Dim Aux_MapID As Integer = CInt(MapID)

        ' Traitement de X
        X = CInt(Int(Aux_MapID / 512))
        If X > 256 Then
            X = CInt(256 - X)
        End If

        ' Traitement de Y            
        Y = CInt(Aux_MapID Mod 512)
        If Y > 256 Then
            Y = CInt(256 - Y)
        End If

        ' Traitement D'affichage
        LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"

tifoux

Re: Cordoné

sa c'est quoi??

ToOnS

Re: Cordoné

heu ... les coordonnées ... calculées avec l'id de la map du 220 ou du 226 ...

tifoux

Re: Cordoné

je te dit chapeaux un truk tous simple qui te donne le cordonné merci beaucoup

Anonymous

Euh ToOnS O_o !! Je veut une explication la ! :p Tu lui a donner ton code il doit rien comprendre le tifoux !

  X = CInt(Int(Aux_MapID / 512))

Ici si j'ai bien compris tu cast l'id de la map car c'est pas un integer tu le divise par 512 ? ( pourquoi 512 ) ensuite tu mais le résultat en entier car il doit être en double tu le cast en integer non ? Essaye de me la commenter a ta façon cette ligne


            If X > 256 Then
            X = CInt(256 - X)
            End If

Ici je comprend pas ?

Si tu pourrait me commenter le code ça serait parfait ou juste me donner la classe si ça vient pas de toi !

C'est la pos dans la carte ? Genre [-72/35]

Dans quelle classe a tu trouver toute ces valeurs ?

Merci ToOnS Super boulot la !

tifoux

revenons a sa j'été partie oui j'ai pas tros bien compris

Anonymous

Je pense que c'est une alternative, sinon il faut rechercher posX et posY dans "MapPosition" à condition de savoir lire les d2o.

kangogoo

Et comment on lit ces fameux .d2o ?

Anonymous

Tu as un peu d'information ici : https://cadernis.com/d/579

Il faut traduire les sources, en commençant par "GameDataFileAccessor".

C'est quelque chose de pas naturel, n’hésite pas à demander de l'aide

ToOnS

ca vien de nocebo si mes souvenirs sont bons (sinon ca vien de 4R7Y)

Anonymous

Si on peut calculer les coordonnées x et y en fonction du mapID, Est ce qu'on peut retrouver le mapID en fonction de x et de y?

Anonymous

Oui, il faut aussi passer par les d2o.

Il faut compresser les coordonnée et ensuite lire cette valeur dans MapPosition.d2o

Pour compresser les coordonnée il faut regarder dans le .as correspondant a Mapposition

Anonymous

Bouh, BeDifferent, pas très "Different" de ta question sur Shady tout ca :P

FastFrench

Re: Cordoné

ToOnS a dit : "

Dim X As Integer
        Dim Y As Integer
        Dim Aux_MapID As Integer = CInt(MapID)

        ' Traitement de X
        X = CInt(Int(Aux_MapID / 512))
        If X > 256 Then
            X = CInt(256 - X)
        End If

        ' Traitement de Y            
        Y = CInt(Aux_MapID Mod 512)
        If Y > 256 Then
            Y = CInt(256 - Y)
        End If

        ' Traitement D'affichage
        LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"

Attention, cette "recette" ne marche que dans les cas les plus simples (map de surface notamment). La solution propre et fiable consiste bien récupérer les coordonnées exactes dans un .d2o à partir de l'id.

tifoux

je comprend rien sur la lecture des .d2o quelqu'un pourrait m'aider??

4R7Y

Dim X As Integer
        Dim Y As Integer
        Dim Aux_MapID As Integer = CInt(MapID)

        ' Traitement de X
        X = CInt(Int(Aux_MapID / 512))
        If X > 256 Then
            X = CInt(256 - X)
        End If

        ' Traitement de Y            
        Y = CInt(Aux_MapID Mod 512)
        If Y > 256 Then
            Y = CInt(256 - Y)
        End If

        ' Traitement D'affichage
        LB_POS.Text = "Position : [ " & X.ToString & " , " & Y.ToString & " ]"

Dès l'instant où il y a plusieurs "couches" (même coordonnées pour des ID de map différentes) forcément ça ne marchera pas (c'est layers dans les d2o il me semble)

Page suivante »