FEUILLE - PIERRE - CISEAUX

Sujet: FEUILLE - PIERRE - CISEAUX Sam 22 Mar 2014 - 20:56

Et bien voila tout est dit dans le titre !

A vous de juger...

Code:: DIM joueur$ , score1% , score2% , choix$(4) , h% , t$
LABEL traitement

choix$(1)="FEUILLE" : choix$(2)="PIERRE" : choix$(3)="CISEAUX" : choix$(4)="PUITS"

WIDTH 0,550 : HEIGHT 0,350 : LEFT 0,200 : TOP 0,200

joueur$=message_input$("Inscription" , "Votre Prénom" , "Toto")

t$="Bonjour "+joueur$+" !"+chr$(13)+chr$(13)
t$=t$+"Je vous invite à vous confronter à votre ordinateur !!!"+chr$(13)+chr$(13)
t$=t$+"Essayez de battre votre PC au classic jeu de FEUILLE-PAPIER-CISEAUX."+chr$(13)
t$=t$+"Il vous suffit de faire votre choix en bas de l'écran et le résultat est immédiat !"+chr$(13)+chr$(13)
t$=t$+"A tout moment, vous pouvez consulter les scores en haut de la fenetre."+chr$(13)
t$=t$+"Vous gagnez 1 point pour chaque tour gagnant."+chr$(13)+chr$(13)
t$=t$+"Utilisez le bouton QUITTER pour sortir de la partie."+chr$(13)+chr$(13)
t$=t$+"Bon amusement..."
MESSAGE t$

ALPHA 1 : PARENT 1,0 : LEFT 1,40 : TOP 1,25 : WIDTH 1,20 : CAPTION 1,"SCORE "+joueur$+" : "+str$(score1%)
ALPHA 2 : PARENT 2,0 : LEFT 2,290 : TOP 2,25 : WIDTH 2,20 : CAPTION 2,"SCORE Ordinateur : "+str$(score2%)
CONTAINER 10 : PARENT 10,0 : LEFT 10,40 : TOP 10,50 : WIDTH 10,200 : HEIGHT 10,100 : CAPTION 10,joueur$
ALPHA 11 : PARENT 11,10 : LEFT 11,10 : TOP 11,25 : WIDTH 11,20 : FONT_SIZE 11,30
CONTAINER 20 : PARENT 20,0 : LEFT 20,290 : TOP 20,50 : WIDTH 20,200 : HEIGHT 20,100 : CAPTION 20,"Ordinateur"
ALPHA 22 : PARENT 22,20 : LEFT 22,10 : TOP 22,25 : WIDTH 22,20 : FONT_SIZE 22,30
CONTAINER 30 : PARENT 30,0 : LEFT 30,40 : TOP 30,170 : WIDTH 30,450 : HEIGHT 30,75 : CAPTION 30,"Votre choix"
BUTTON 31 : PARENT 31,30 : LEFT 31,10 : TOP 31,15 : WIDTH 31,100 : HEIGHT 31,50 : CAPTION 31,"FEUILLE" : ON_CLICK 31,traitement
BUTTON 32 : PARENT 32,30 : LEFT 32,120 : TOP 32,15 : WIDTH 32,100 : HEIGHT 32,50 : CAPTION 32,"PIERRE" : ON_CLICK 32,traitement
BUTTON 33 : PARENT 33,30 : LEFT 33,230 : TOP 33,15 : WIDTH 33,100 : HEIGHT 33,50 : CAPTION 33,"CISEAUX" : ON_CLICK 33,traitement
BUTTON 34 : PARENT 34,30 : LEFT 34,340 : TOP 34,15 : WIDTH 34,100 : HEIGHT 34,50 : CAPTION 34,"PUITS" : ON_CLICK 34,traitement
BUTTON 35 : PARENT 35,0 : LEFT 35,40 : TOP 35,270 : WIDTH 35,450 : HEIGHT 35,30 : CAPTION 35,"QUITTER LE JEU" : ON_CLICK 35,traitement

END

traitement:
   h%=INT(RND(4))+1 : CAPTION 22,choix$(h%)
   SELECT NUMBER_CLICK
   CASE 31
   CAPTION 11,choix$(1)
   IF h%=1 THEN MESSAGE "MATCH NUL !"
   IF h%=2 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
   IF h%=3 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   IF h%=4 THEN score2%=score2%+1 : MESSAGE "GAGNE !"
   CASE 32
   CAPTION 11,choix$(2)
   IF h%=1 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   IF h%=2 THEN MESSAGE "MATCH NUL !"
   IF h%=3 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
   IF h%=4 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   CASE 33
   CAPTION 11,choix$(3)
   IF h%=1 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
   IF h%=2 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   IF h%=3 THEN MESSAGE "MATCH NUL !"
   IF h%=4 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   CASE 34
   CAPTION 11,choix$(4)
   IF h%=1 THEN score2%=score2%+1 : MESSAGE "PERDU !"
   IF h%=2 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
   IF h%=3 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
   IF h%=4 THEN MESSAGE "MATCH NUL !"
   CASE 35
   IF score1%>score2%
   t$="BRAVO "+joueur$+","+chr$(13)+"Vous avez gagnez avec un score de "+str$(score1%)+" !"+chr$(13)+chr$(13)
   ELSE
   t$="Dommage "+joueur$+","+chr$(13)+"Vous avez perdu malgrès un score de "+str$(score1%)+" !"+chr$(13)+chr$(13)
   END_IF
   IF score1%=score2% THEN t$=joueur$+","+chr$(13)+"Vous avez fait match nul !"+chr$(13)+chr$(13)
   t$=t$+"A bientot..."
   MESSAGE t$
   TERMINATE
   END_SELECT
   CAPTION 11,"" : CAPTION 22,""
   CAPTION 1,"SCORE "+joueur$+" : "+str$(score1%) : CAPTION 2,"SCORE Ordinateur : "+str$(score2%)
RETURN

Amusez vous bien...

MISE A JOUR DU PUITS...

Sujet: Re: FEUILLE - PIERRE - CISEAUX Sam 22 Mar 2014 - 21:05

Bien moins passionnant que 2048.

Je ne connaissait pas ce jeu.

A+

Sujet: Re: FEUILLE - PIERRE - CISEAUX Sam 22 Mar 2014 - 22:12

Jean-Claude à tout dit.
Le jeu est bien fait, mais c'est sûr que le principe du jeu est moins intéressant, moins profond.
En tout cas ça fait une adaptation de plus en Panoramic, même si ce ne se sera pas le jeu auquel nous jouerons le plus souvent.
Dans le même genre, il y a le générateur de réponse pour quand on ne sait pas quoi choisir.
C'est un programme qui fait un tirage aléatoire et nous donne une réponse: oui ou non.

Sujet: Re: FEUILLE - PIERRE - CISEAUX Sam 22 Mar 2014 - 22:17

Bon ok Jicehel j'avoue ...

J'avais 1h a perdre et donc voila tout....

Ca permet aussi aux débutants de décortiquer un petit code simple et sans prétention Laughing

Bonne nuit a tous.... et demain sera un autre jour avec peut être plus d'inspiration...

Sujet: Re: FEUILLE - PIERRE - CISEAUX Sam 22 Mar 2014 - 23:37

Tout à fait Minibug, tu as bien fait de le faire ce jeu.
Pleins de choses à voir pour quelqu'un qui débute et des tas de gens ont joué à ce jeu.
En plus il vient s'ajouter aux grands classiques des jeux écrits en Panoramic.
Tu as bien investi ton heure. Smile

Sujet: re Sam 22 Mar 2014 - 23:40

Tu peux même perdre une heure de plus à l' améliorer... Laughing

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 9:07

Merci pour vos encouragements !!

cheers

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 10:11

Bonjour à tous Smile

Il y a une autre version avec le puits en plus! La pierre et le ciseau tombent dans le puits mais la feuille bouche le dessus du puits et gagne...
A+ Wink

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Ouaah !
J'essaie de m'initier
à ce jeu de réflexion terrien inconnu...
Mais pourquoi aucune stratégie ne marche ?
Ah là là, la logique des terriens
est vraiment incompréhensible !
Mad

Bravo, Minibug !
Wink

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 11:33

Salut Minibug, salut tout le monde.

Voila, avec une pincée de volonté, un chouia de temps de détente et une dose d’imagination, on peut se divertir avec Panoramic.
Merci pour ce code (abstraction faite de son utilité) : c’est toujours instructif pour les débutants (comme moi) et même les moins débutants (comme ceux qui se reconnaîssent).

Ligne 14 :

Code:: t$=t$+"A tous moments, vous pouvez consulter les scores en haut de la fenetre."+chr$(13)

Je préfère (vieille habitude de ma part)

Code:: t$=t$+"A tout moment, vous pouvez consulter les scores en haut de la fenêtre."+chr$(13)

Je trouve aussi que l’idée du puits de Bignono est digne d’intérêt.

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Sur Mars, on a un jeu dans ce genre-là.
C'est le jeu de la boîte aux lettres :
Vous avez plusieurs candidats.
L'un dit :
- Moi, je décrocherai la lune.
(applaudissements)
Le suivant dit :
- Moi, j'irai dans les étoiles.
(super-applaudissements)
Et le dernier dit :
- Moi, je ne ferai rien du tout.
(applaudissements nourris)
Ensuite, tout le monde glisse son choix
dans l'espèce de boîte aux lettres.
Et à la fin, celui qui est élu
fait exactement l'inverse de ce qu'il a dit.
Vous avez un jeu comme ça, sur Terre ?
king

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 11:52

oui, je viens d'y jouer. Par contre contrairement au minibug's game, on ne sait pas si on a gagné tout de suite et encore moins ce que l'on va perdre avec le temps....

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 11:58

Suite a vos demandes je viens de rajouter le puits...

Le post initial est mis a jour. Amusez vous bien !!!

@ papydall : C'est corrigé CHEF ! Laughing

@ Jicehel et jjn4 : Et surtout le temps que l'on va perdre ! Razz

Sujet: Re: FEUILLE - PIERRE - CISEAUX Dim 23 Mar 2014 - 12:37

Merci Minibug

» Bienvenu
» Centrage d'un texte sur une feuille
» Distance Terre - Lune avec une feuille de papier
» Créer une feuille de calcul Excel, sans Excel