Téléchargé 16 fois
Vote des utilisateurs
2
0
Détails
Licence : Libre
Mise en ligne le 28 janvier 2024
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Bandit manchot LAZvegas
Bandit manchot LAZvegas
Petite application de jeu de bandit manchot pour Windows développée avec Lazarus.
La rotation des figurines se fait en utilisant un système de temporisation et le tirage pseudo-aléatoire est basé sur la fonction Random.
Le jeu consiste à obtenir 3 figures identiques pour voir son crédit augmenter en fonction des figures car toutes n'ont pas la même valeur.
A l'ouverture de l'application, le joueur bénéficie d'un crédit de 10 essais pour obtenir 3 figures identiques et ainsi une augmentation de crédit qui permettra de poursuivre le jeu.
Pour jouer, le joueur doit cliquer sur le levier pour l'actionner et lancer la rotation des figures qui s'arrête d'elle-même après un petit temps.
Après épuisement du crédit, l'action sur le levier est neutre. Le joueur peut alors rejouer en cliquant sur le bouton "REJOUER" qui apparaît. Le crédit est remis à 10 pour commencer une nouvelle partie.
Pensez à mettre le son.
La rotation des figurines se fait en utilisant un système de temporisation et le tirage pseudo-aléatoire est basé sur la fonction Random.
Le jeu consiste à obtenir 3 figures identiques pour voir son crédit augmenter en fonction des figures car toutes n'ont pas la même valeur.
A l'ouverture de l'application, le joueur bénéficie d'un crédit de 10 essais pour obtenir 3 figures identiques et ainsi une augmentation de crédit qui permettra de poursuivre le jeu.
Pour jouer, le joueur doit cliquer sur le levier pour l'actionner et lancer la rotation des figures qui s'arrête d'elle-même après un petit temps.
Après épuisement du crédit, l'action sur le levier est neutre. Le joueur peut alors rejouer en cliquant sur le bouton "REJOUER" qui apparaît. Le crédit est remis à 10 pour commencer une nouvelle partie.
Pensez à mettre le son.
Bonjour,
tombé dessus par hasard, je suis assez surpris de tout ces LoadFromFile ou même d'un tableau de noms d'images.
Tout d'abord j'ai cru que Lazarus n'avait aucun TImageList puis après avoir découvert que si, douté qu'un jpg ne puisse y être mis. Mais non ! AMHA mettre toutes les images dans un TImageList adapté ferait gagné pas mal de choses en terme de vitesse et de déploiement.
Idem, je retrouve les travers de l'auteur avec ces EdImg1,EdImg2,EdImg3 et autres labels invisibles, là où des variables privées de type entier aurait largement suffit et permettant même de largement amélioré les tests pour les scores ! exemple
d'autant plus que ces variables correspondrait au numéro d'image dans imagelist.
En bref beaucoup d'amélioration de code sont à apporter (je ne me suis pas penché sur la partie animation mais ces procedures TempoxTimer(Sender: TObject) sont largement optimisables).
Désolé, mais, je salue l'idée mais pas trop la codification.
tombé dessus par hasard, je suis assez surpris de tout ces LoadFromFile ou même d'un tableau de noms d'images.
Tout d'abord j'ai cru que Lazarus n'avait aucun TImageList puis après avoir découvert que si, douté qu'un jpg ne puisse y être mis. Mais non ! AMHA mettre toutes les images dans un TImageList adapté ferait gagné pas mal de choses en terme de vitesse et de déploiement.
Idem, je retrouve les travers de l'auteur avec ces EdImg1,EdImg2,EdImg3 et autres labels invisibles, là où des variables privées de type entier aurait largement suffit et permettant même de largement amélioré les tests pour les scores ! exemple
Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 | private gain,edimg1, edimg2, edimg3 : word; ... case edimg1+edimg2+edimg3 of 3 : gain:=15; // 3*1 6,9 : gain:=5; // 3*2,3*3 12 : gain:=10; // 3*4 .. else gain:=0; end; |
En bref beaucoup d'amélioration de code sont à apporter (je ne me suis pas penché sur la partie animation mais ces procedures TempoxTimer(Sender: TObject) sont largement optimisables).
Désolé, mais, je salue l'idée mais pas trop la codification.
Bonjour,
Je vous propose un nouvel élément à utiliser : Bandit manchot LAZvegas.
Petite application de jeu de bandit manchot pour Windows développée avec Lazarus.
La rotation des figurines se fait en utilisant un système de temporisation et le tirage pseudo-aléatoire est basé sur la fonction Random.
Le jeu consiste à obtenir 3 figures identiques pour voir son crédit augmenter en fonction des figures car toutes n'ont pas la même valeur.
À l'ouverture de l'application, le joueur bénéficie d'un crédit de 10 essais pour obtenir 3 figures identiques et ainsi une augmentation de crédit qui permettra de poursuivre le jeu.
Pour jouer, le joueur doit cliquer sur le levier pour l'actionner et lancer la rotation des figures qui s'arrête d'elle-même après un petit temps.
Après épuisement du crédit, l'action sur le levier est neutre. Le joueur peut alors rejouer en cliquant sur le bouton "REJOUER" qui apparaît. Le crédit est remis à 10 pour commencer une nouvelle partie.
Pour utiliser en l'état le jeu, déposer le dossier de l'application sous C:
Qu'en pensez-vous ?
Je vous propose un nouvel élément à utiliser : Bandit manchot LAZvegas.
Petite application de jeu de bandit manchot pour Windows développée avec Lazarus.
La rotation des figurines se fait en utilisant un système de temporisation et le tirage pseudo-aléatoire est basé sur la fonction Random.
Le jeu consiste à obtenir 3 figures identiques pour voir son crédit augmenter en fonction des figures car toutes n'ont pas la même valeur.
À l'ouverture de l'application, le joueur bénéficie d'un crédit de 10 essais pour obtenir 3 figures identiques et ainsi une augmentation de crédit qui permettra de poursuivre le jeu.
Pour jouer, le joueur doit cliquer sur le levier pour l'actionner et lancer la rotation des figures qui s'arrête d'elle-même après un petit temps.
Après épuisement du crédit, l'action sur le levier est neutre. Le joueur peut alors rejouer en cliquant sur le bouton "REJOUER" qui apparaît. Le crédit est remis à 10 pour commencer une nouvelle partie.
Pour utiliser en l'état le jeu, déposer le dossier de l'application sous C:
Qu'en pensez-vous ?
Bonjour !
Amusante petite application. Merci pour le partage.
Une ou deux observations (si je puis me permettre). Pourquoi mettre le chemin complet des images dans le code ? Cela n'est pas utile (me semble-t-il), et n'a que des inconvénients. Personnellement je mettrais simplement le nom du fichier, comme ceci :
Avec cette modification, plus besoin d'imposer à l'utilisateur tel répertoire d'installation ; et en plus le programme fonctionne sous Linux !
Deuxième petite remarque. Random(7) renvoie un nombre de 0 à 6 (sept possibilités). Il ne renverra jamais 7.
Bonne continuation !
Amusante petite application. Merci pour le partage.
Une ou deux observations (si je puis me permettre). Pourquoi mettre le chemin complet des images dans le code ? Cela n'est pas utile (me semble-t-il), et n'a que des inconvénients. Personnellement je mettrais simplement le nom du fichier, comme ceci :
Code : | Sélectionner tout |
Img1.Picture.LoadFromFile('Img7.jpg'); //Image de départ
Deuxième petite remarque. Random(7) renvoie un nombre de 0 à 6 (sept possibilités). Il ne renverra jamais 7.
Bonne continuation !
Bonjour à tous
je me suis amusé à relooker le jeu et j'ai ajouter un peu de son...
LAZVegas - v2.zip
je me suis amusé à relooker le jeu et j'ai ajouter un peu de son...
LAZVegas - v2.zip
Salut
Arf Sergio ton calcul de score n'est pas correct.
Tu écris
Cela ne nous indique nullement que les trois éléments sont identiques.
Avec ton code un exemple du défaut engendré : le 12 peut être obtenu
4+3+5 ou 4+2+6 ...
Il est donc plus simple de prendre la valeur unitaire 3 fois identiques mais comme tu l'as très bien souligné il y a beaucoup d'autres améliorations à faire.
Arf Sergio ton calcul de score n'est pas correct.
Tu écris
Code : | Sélectionner tout |
case edimg1+edimg2+edimg3 of
Code : | Sélectionner tout |
1 2 | IF (edimg1=edimg2) and (edimg1=edimg3) Then // cela sous entend que edimg2 = edimg3 => donc 3 valeur identique Case edimg1 of |
4+3+5 ou 4+2+6 ...
Il est donc plus simple de prendre la valeur unitaire 3 fois identiques mais comme tu l'as très bien souligné il y a beaucoup d'autres améliorations à faire.
Merci Roland et Anapurna pour vos remarques constructives qui vont contribuer à mon progrès en matière de développement avec Lazarus.
Oui, Roland j'avais remarqué mon erreur sur Random, mais trop tard j'avais publié.
Les petites applications ludiques que j'ai pu développer n'ont pas une grande valeur en matière de jeu mais visent plutôt à donner notamment à des débutants comme moi des idées d'utilisation de certaines fonctions...
Oui, Roland j'avais remarqué mon erreur sur Random, mais trop tard j'avais publié.
Les petites applications ludiques que j'ai pu développer n'ont pas une grande valeur en matière de jeu mais visent plutôt à donner notamment à des débutants comme moi des idées d'utilisation de certaines fonctions...
Quelques petites modifications...
Sematimo, super !
Au moins un qui a profité de l'idée et c'est fait pour ça.
Au moins un qui a profité de l'idée et c'est fait pour ça.
Exact, je n'avais pas trop mis le nez dedans, de plus les valeurs sont de base 0 et non 1
en fait peut-être faire une opération binaire
tu ecris
Code : | Sélectionner tout |
case edimg1+edimg2+edimg3 of
Code : | Sélectionner tout |
1 2 3 | case edimg1 AND edimg2 AND edimg3 of 0 : iGain:=15; 1 : if (edmg1 AND edimg2 AND edimg3)=edimg1 then Gain:=5; |
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.