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

Soyez le premier à donner votre avis sur cette source.

Vue 46 685 fois - Téléchargée 2 164 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
Vagnewinner Messages postés 1 Date d'inscription jeudi 29 avril 2010 Statut Membre Dernière intervention 27 mars 2011
27 mars 2011 à 17:17
Ç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 !
tortue1993 Messages postés 1 Date d'inscription mardi 8 septembre 2009 Statut Membre Dernière intervention 8 septembre 2009
8 sept. 2009 à 14:48
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.
jordandm Messages postés 1 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 18 août 2009
18 août 2009 à 00:24
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
eragon_03_2 Messages postés 2 Date d'inscription vendredi 31 août 2007 Statut Membre Dernière intervention 10 juin 2008
10 juin 2008 à 18:16
PS : Dofus est en 2D
benji2000 Messages postés 78 Date d'inscription samedi 26 août 2006 Statut Membre Dernière intervention 25 novembre 2016
12 avril 2008 à 15:38
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.