EDG le 29/02/2016 à 14:39
Première ébauche:
:Lbl P
:Menu("BIENVENU","JOUER",A,"QUITTER",B
:Lbl B:End
:Lbl A
:entAléat(1,3=>A
:Menu("VOUS:","PIERRE",1,"FEUILLE",2,"CISEAUX",3
:Lbl 1
:If A=1
:Then
:Disp "ENNEMIE:","PIERRE","","EGALITE
:End
:If A=2
:Then
:Disp "ENNEMIE:","FEUILLE","","PERDU
:End
:If A=3
:Then
:Disp "ENNEMIE:","CISEAUX","","GAGNER
:End
:Goto P
:Lbl 2
:If A=1
:Then
:Disp "ENNEMIE:","PIERRE","","GAGNER
:End
:If A=2
:Then
:Disp "ENNEMIE:","FEUILLE","","EGALITE
:End
:If A=3
:Then
:Disp "ENNEMIE:","CISEAUX","","PERDU
:End
:Goto P
:Lbl 3
:I fA=1
:Then
:Disp "ENNEMIE:","PIERRE","","PERDU
:End
:If A=2
:Then
:Disp "ENNEMIE:","FEUILLE","","GAGNER
:End
:If A=3
:Then
:Disp "ENNEMIE:","CISEAUX","","EGALITE
:End
:Goto P
Dites moi ce que vous en dites
Ps: désolé, j'étais tellement presser que je n'ai pas attendu d'être chez moi pour vous l'envoyer donc je l'ai taper direct comme sa 
Modifié le 29/02/2016 a 15h58 leo_85 le 01/03/2016 à 14:08
je te soumet ma version ^^
Code
EffEcr
entAléat(1,3->I
Disp "Pierre [deux espaces] (1)","Feuille [un espace] (2)","Ciseaux [un espace] (3)
Input "choix=?",P
EffEcr
If P-1=I ou P+2=I:Output(3,4,"Gagné
If P+1=I ou P-2=I:Output(3,4,"Perdu
If P=I:Output(3,4,"égalité
[a partir de là c'est du bonus]
Output(4,1,"vous:
If P=1:Output(4,7,"Pierre
If P=2:Output(4,7,"Feuille
If P=3:Output(4,7,"Ciseaux
Output(5,1,"I.A.:
If I=1:Output(5,7,"Pierre
If I=2:Output(5,7,"Feuille
If I=3:Output(5,7,"Ciseaux
