Code
PIERRE,PAPIRER,CISEAUX
:Lbl A
:Menu(« PIERRRE ,PAPIER ... », »JOUER » ,J, »QUITTER »,Q
;Lbl J
:5->V
:5->W
:Lbl 1
:Effecr
:Output(1,4,"+---++---+"
:Output(2,4,"! !! !"
:Output(3,4,"! !! !"
:Output(4,4,"! !! !"
:Output(5,4,"! !! !"
:Output(6,3,"O+---++---+O"
:Output(7,3,"+ +" [10 espaces]
:Output(8,3,"^ ^"
:Output(7,5,V
:Output(7,12,W
:0->B
:Lbl 2
:codetouche->K
:If K=105 et B[égal barré]0
:Goto 3
:If K=92 :Then
:Output(3,6,"O"
:Output(4,6,"^"
:1->B
:End
:If k=93 :Then
:Output(3,6,"0"
:Output(4,6,"0"
:2->B
:End
:If K=94 :Then
:Output(3,6,"!"
:Output(4,6,"!"
:3->B
:End
:0->C
:Goto 2
:Lbl 3
:C+1->C
:Output(3,11,"0"
:Output(4,11,"0"
:69!:69!:69!
:Output(3,11,"!"
:Output(4,11,"!"
:69!:69!:69!
:Output(3,11,"O"
:Output(4,11,"^"
:69!:69!:69!
:If C=5:Goto 4
:While C[égal barré]5:Goto 3
:Lbl 4
:entAléat(1,3->A
:If A=1
:Then
:Output(3,11,"O"
:Output(4,11,"^"
:End
:If A=2
:Then
:Output(3,11,"0"
:Output(4,11,"0"
:End
:If A=3
:Then
:Output(3,11,"!"
:Output(4,11,"!"
:End
:Lbl 9
:Pause
:If A=B
:Then
:Output(4,5,"EGALITE"
:Pause
:Goto 1
:End
:If V<1:Then:Goto 5:End
:If W<1:Then:Goto 6:End
:If A=1 et B=2:Then:W-1->W:Goto 1:End
:If A=1 et B=3:Then:V-1->V:Goto 1:End
:If A=2 et B=1:Then:V-1->V:Goto 1:End
:If A=2 et B=3:Then:W-1->W:Goto 1:End
:If A=3 et B=1:Then:W-1->W:Goto 1:End
:If A=3 et B=2:Then:V-1->V:Goto 1:End
:Pause
:End
:Goto 1
:Lbl 5
:Output(6,3,"O "
:Output(7,2,"+ "
:69!:69!
:Output(6,1," "
:Output(7,2," "
:Output(8,1,"O+<"
:Output(4,5,"PERDU"
:Pause
:Goto A
:Lbl 6
:Output(6,14," O"
:Output(7,14," +"
:69!:69!
:Output(6,16," "
:Output(7,15," "
:Output(8,14,">+O"
:Output(4,5,"GAGNER"
:Pause
:Goto A
:Lbl Q
