Début d'un jeu en 3d sur vb.net (ressemble à dofus)

Soyez le premier à donner votre avis sur cette source.

Vue 46 274 fois - Téléchargée 2 134 fois

Description

Alors voilà je joue sur Dofus depuis Avril 2007 et depuis un certain temps je souhaiterais créer un jeu comme celui-ci et je me suis mis à programmer et voilà mes débuts...

Source / Exemple :


In the .ZIP

Conclusion :


Voilà si quelqu'un joue sur Dofus il peut me contacter sur Silouate /w DesPerso ou/w Rc-Lens
Sinon pour ceux qui n'y jouent pas ben vous pouvez me répondre sur ce site

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 29 avril 2010
Statut
Membre
Dernière intervention
27 mars 2011

Ça date, et je déterre ce topic ! Mais voilà je suis intéressé !
Je sais coder en VB.net et j'aime les autre langages !
Messages postés
1
Date d'inscription
mardi 8 septembre 2009
Statut
Membre
Dernière intervention
8 septembre 2009

Bonjour, je ne suis pas un programmeur, en revanche je joue sur dofus depuis assez longtemps maintenant, environ 4 ou 5 ans, et je crois connaître pas mal de choses à son sujet...

Moi aussi je voulais programmer un jeu qui ressemblerait quelque part à dofus, je trouve que le graphisme du jeu est assez agréable à regarder et que l'humour omniprésent donne encore plus envie de jouer.

Je pense que :
- un bon graphisme est un point essentiel pour que les joueurs restent longtemps accro au jeu !
- la taille de la carte doit être assez grande, pas trop grande tout de même...
- les combats doivent avoir un minimum de tactique (je trouve le système du tour par tour pas trop mauvais pour ça), pas comme Shayia (le jeu est assez simple, vous appuyez sur toutes les touches du clavier, le combat dur 2 secondes, et vous gagnez...super!!!).
- la multitude des objets de panoplies, c'est super agréable...
- un monde pas trop sombre, plutôt féérique dans les coins gentils, et sombre et "terrifiant" dans les coins méchant

Je connais vraiment pas grand chose à la programmation, ce sont donc peut-être des sujets secondaire que l'on aborde dans ce genre de chose...

Pour des renseignements concernant le jeu, si vous avez des questions...n'hésitez pas à m'écrire.
Messages postés
1
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
18 août 2009

bonjour j'ai etais hacker et je ses par qui j'ai son pseudo j'avez son compte il y'a pa longtemp j'voudrer retrouver le passe svp
Messages postés
2
Date d'inscription
vendredi 31 août 2007
Statut
Membre
Dernière intervention
10 juin 2008

PS : Dofus est en 2D
Messages postés
78
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
25 novembre 2016

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.
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.