DÉBUT D'UN JEU EN 3D SUR VB.NET (RESSEMBLE À DOFUS)

Commentaire de benji2000 le 16/03/2008 16:53:47

Lu KITE37 je suis content que ma source te plais

En ce qui est du passage 2D/isométrique il n'y a pas trop de code vraiment incroyable...

Je demandes juste à toutes les cases créées de changer leur formes grâce à
Imports Systeme.Drawing.Drawing2D qui "coupe" les cases en losange (un effet 3D)

Pour le positionnement je me suis cassé la tête à trouver la formule :
.Location = New Point((NbrY.Text - 1) * 21 + X * 21 - Y * 21, Y * 13 + X * 13)

Après ce que je viens de dévoiller certaines personnes risqueraient de ne plus s'intéresser de ma sources...

Sinon peu tu m'envoyer l'adresse ou je pourais télécharger ta source merci.

Benji2000

Commentaire de Kite37 le 16/03/2008 20:37:41

hum ça peut être une idée je ferais des tests. Je n'ai jamais touché a ce genre de chose et ne sais absolument pas comment ça marche :s

Commentaire de Kite37 le 16/03/2008 20:52:13

merci bien je m'y pencherais dès que possible :)

Commentaire de benji2000 le 12/04/2008 15:38:55

on je me retrouve face a un nouveau problème , il faudrait trouver un code qui permet de nommer les cases comme avant mais de différente disposition enfin C pas facile a expliquer ...
Voilà le positionnement de mes cellules :

    C            C   C   C
  C C C            C   C
C C C C C   ->   C   C   C
  C C C            C   C
    C            C   C   C

Vue de face ->   Vue en 3D

Alors pour cette disposition j'y arrive mais le problème maintenant et qu'il faut tous leur donner un nom tel que :

    C       ->                   {0;0}
  C C C     ->          {-1;1} , {0;1} , {1;1}
C C C C C   -> {-2;2} , {-1;2} , {0;2} , {1;2} , {2;2}
  C C C     ->          {-1;3} , {0;3} , {1;3}
    C       ->                   {0;4}

Ce qui nous donnerais en 3D :

C   C   C   -> {0;0} , {1;1} , {2;2}
  C   C     ->     {0;1} , {1;2}
C   C   C   -> {-1;1}, {0;2} , {1;3}
  C   C     ->     {-1;2}, {0;3}
C   C   C   -> {-2;2}, {-1;3}, {0;4}

Voilà , je crées mes cellules sous la forme :
__________________________________________

Dim XX As Integer = 1

For Y = 0 To NbrY.Text - 1
    If XX = 0 Then
        XX = 1
    Else
        XX = 0
    End If

    For X = 0 To NbrX.Text - 1 - XX
        ReDim Preserve NoCase(NbrCases)
        NoCase(NbrCases) = New System.Windows.Forms.Label
        With NoCase(NbrCases)
            .Name = ?         <- Le problème viens d'ici ou j'ai besoin de la formule
            ....
            .Location = New Point(X * 40 + XX * 20, Y * 13) <- je les positionnes sous le format 3D
            ....
            ToolTip1.SetToolTip(NoCase(NbrCases), .Name) <- Je donnes leur nompour que celui si soit visible
            ....
            Me.Panel1.Controls.Add(NoCase(NbrCases)) <- Et pour finir j'ajoute la nouvelle cellule
            ....
        End With
        NbrCases += 1
    Next
Next
__________________________________________

Donc si j'ai la chance de tomber sur un mathématicien super doué en logique, qu'il puisse me donner ses idées...

Merci pour votre attention.