Jeu de wumpus basic en vb6

0/5 (2 avis)

Vue 6 356 fois - Téléchargée 631 fois

Description

Une grille 6X6 cache un monstre(wumpus) un trésor et 4 sables mouvants dont les positions sont générées aléatoirement. Le but est de retrouver le trésor sans se faire manger par le wumpus ou s'enlisser dans les sables mouvants. Des indications vous sont données quand vous approchez trop près des pièges (wumpus! ou sables mouvants!). Un bonus est donné pour qui tue le wumpus. Mais attention! vous disposez d'une seule flèche pour le faire.
Amusez-vous :)

Source / Exemple :


Tout est dans le zip

Conclusion :


Les commentaires pour amélioration sont les bienvenus

Codes Sources

Ajouter un commentaire Commentaires
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
30 juin 2008 à 13:39
coté jouabilité, faudrait gérer le clavier.

coté code, c'est pas la joie... code répété encore et encore,
Variables non déclarées (ajoutes Option Explicit tout en haut de ta Form)

ce genre de choses:
a3 = Int((33 * Rnd) + 3)While (a3 a2 Or a3 a1)
a3 = Int((33 * Rnd) + 3)
Wend

s'ecrit:
Do
a3 = Int((33 * Rnd) + 3) Loop While (a3 a2 Or a3 a1)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
30 juin 2008 à 13:34
j'ai reposté le Zip, qui contenait un rar dans lequel était la source...

c'est tout de même plus simple de ne faire qu'un Zip.

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.

Du même auteur (cs_pclover)