Labyrinthe d'adresse

Sujet: Labyrinthe d'adresse Dim 11 Oct 2015 - 11:43

Bonjour à tous !
La sortie au cinéma du nouveau film Le Labyrinthe II m'a donné l'idée de faire ... un labyrinthe !

Pour le fonctionnement, vous aurez besoin de télécharger sur mon Webdav tous les fichiers nécessaires.
La police utilisée est "Curlz MT" => à modifier si vous ne l'avez pas sur votre ordinateur.

Code:: DIM x%, y% : ' Coordonnées de la souris
DIM Evenement%, Couleur%, Chronometre, Temps, i%
DIM Touche$
LABEL Debut_Jeu
LABEL Comptage

WIDTH 0, 1200
   HEIGHT 0, 930
   COLOR 0, 255,255,255
   FONT_NAME 0,"Curlz MT"
   FONT_SIZE 0, 30

TIMER 1
   TIMER_INTERVAL 1, 100
   ON_TIMER 1, Comptage
   TIMER_OFF 1

PICTURE 2
   WIDTH 2,696
   HEIGHT 2,890
   FILE_LOAD 2,"labyrinthe.bmp"

PICTURE 3
   TOP 3, 40
   LEFT 3, 720
   WIDTH 3, 450
   HEIGHT 3, 400
   FILE_LOAD 3,"Titre.bmp"

ON_CLICK 2, Debut_Jeu

END

' ------------------------------------------------------------------------------

Debut_Jeu:
   Couleur% = 0
   x%= MOUSE_X_POSITION(2)
   y%= MOUSE_Y_POSITION(2)
   Couleur% = COLOR_PIXEL_BLUE(2,x%,y%)
   IF MOUSE_LEFT_DOWN(2)=1 AND Couleur% = 87 THEN Jeu()
RETURN

' ------------------------------------------------------------------------------

SUB Jeu()
   CLS
   Evenement% = 0
   Chronometre = 0
   TIMER_ON 1
   WHILE Evenement% = 0
   Touche$=INKEY$
   IF Touche$=CHR$(27) THEN TERMINATE : END
   x%= MOUSE_X_POSITION(2)
   y%= MOUSE_Y_POSITION(2)
   Couleur% = COLOR_PIXEL_BLUE(2,x%,y%)
   PRINT_LOCATE 800,600
   Temps = Chronometre/10 : PRINT "Chrono : " + STR$(Temps) + " "
   PRINT_LOCATE 750,600
   IF Couleur% < 70 THEN BEEP : Print "Perdu en " + STR$(Temps)+" secondes" : Evenement%=1
   IF Couleur% = 234 THEN print "Gagné en " + STR$(Temps)+" secondes" : Evenement%=1
   END_WHILE
END_SUB

' ------------------------------------------------------------------------------

COMPTAGE:
   Chronometre = Chronometre + 1
RETURN

A vos souris !

Sujet: Re: Labyrinthe d'adresse Dim 11 Oct 2015 - 14:57

J'ai pas trop de temps, en ce moment, mais j'ai testé rapidement.

ET JE DIT: Bravo Marc 37 !

Voila un nouveau jeu qui sort de l'ordinaire de ce que l'on voit habituellement.

J'ai gagné la première fois en 44 secondes, ça doit être facile de faire mieux.

Ce qui est intéressant, c'est qu'on pourrait avoir d'autres cartes, pour compliquer un peu.

J'ai regardé ton code (qui est très court) et j'avoue que pour le moment, je ne comprends pas comment tu as fait.

Beau travail... A+

Sujet: Re: Labyrinthe d'adresse Dim 11 Oct 2015 - 15:27

Bravo Marc37

Testé et gagné en 26 secondes.

Jean Claude a écrit:: J'ai regardé ton code (qui est très court) et j'avoue que pour le moment, je ne comprends pas comment tu as fait.

Le secret réside dans :

Code:: Couleur% = COLOR_PIXEL_BLUE(2,x%,y%)
IF Couleur% …

Sujet: Re: Labyrinthe d'adresse Dim 11 Oct 2015 - 19:41

Merci Jean-Claude et Papydall pour vos encouragements !

Papydall a écrit:: Le secret réside dans :
Code:
Couleur% = COLOR_PIXEL_BLUE(2,x%,y%)
IF Couleur% …

Mince ! Impossible de garder un secret avec Papydall...

Sujet: Re: Labyrinthe d'adresse Dim 11 Oct 2015 - 22:43

Très bon jeux à ajouter à la collection des jeux Panoramic

Sujet: Re: Labyrinthe d'adresse Lun 12 Oct 2015 - 5:34

Lignes 60 et 61

Code:: IF Couleur% < 70 THEN : BEEP : Print "Perdu en " + STR$(Temps)+" secondes" : Evenement%=1
IF Couleur% = 234 THEN : print "Gagné en " + STR$(Temps)+" secondes" :: Evenement%=1

Il y a trois fois deux-points en trop.
THEN n'a pas besoin d'être suivie de deux-points ( : )
Ligne 61, il y a deux fois de suite deux-points (:: )

Code:: IF Couleur% < 70 THEN BEEP : Print "Perdu en " + STR$(Temps)+" secondes" : Evenement%=1
IF Couleur% = 234 THEN print "Gagné en " + STR$(Temps)+" secondes" : Evenement%=1

NB : Les deux-points jouent le rôle de séparateur d'instructions.
S'il y en a de trop, ce n'est pas une erreur : ils seront considérés comme étant une instruction vide!

Sujet: Re: Labyrinthe d'adresse Lun 12 Oct 2015 - 10:28

Bonjour Papydall !

Papydall a écrit:: Il y a trois fois deux-points en trop.
THEN n'a pas besoin d'être suivie de deux-points ( : )
Ligne 61, il y a deux fois de suite deux-points (:: )

Merci pour ces remarques. Effectivement, je n'ai pas relu ma copie finale. A force de modifier, supprimer, améliorer, j'en oublie quelques traces, parfois même des variables déclarées qui ne sont plus utilisées dans le programme !

Dans ces lignes, 60 et 61, il y avait entre autres, un appel à une SUB avec des petites phrases randomisées du genre :

Citation :: Buvez un café et recommencez !
Peut mieux faire !
Manque d’expérience !
Lamentable !
Bien !
Assez bien !
Passable !
Réveillez-vous !
Ce n’est plus l’heure de dormir !
Catastrophique !
Manque de pratique !
Recommencer quand vous saurez manier une souris !
Achetez des lunettes !
Un enfant de 3 ans aurait fait mieux !
Manque de réactivité !
Concentrez-vous !
Ne lâchez pas, recommencez !
Encore un petit effort !

Citation :: Lun 12 Oct 2015 - 5:34

=> les jours semblent très longs en Tunisie !

Sujet: Re: Labyrinthe d'adresse Lun 12 Oct 2015 - 11:23

Bonjour tout le monde.

Marc37 a écrit:: Lun 12 Oct 2015 - 5:34
=> les jours semblent très longs en Tunisie !

En vérité les jours sont ce qu’ils sont, ni trop longs, ni trop courts.
Mais 5 :34 c’était l’heure où je m’apprêtais à aller au lit.
Tu sais, pour un retraité, toutes les heures se ressemblent, la nuit comme le jour. Laughing

» Labyrinth
» Début d'un jeu de labyrinthe