Voici,un petit jeux connue au lycée sous le nom de booling (cette vertion, c'est moi qui l'ai fait).
Code
:-1 -> [L des liste]BOL(1
:If -1=max([L des liste]BOL
:-1 -> [L des liste]BOL(2
:{0 -> Liste2
:Menu("NIVEAU","TRES FACILE",1,"FACILE",2,"MOYEN",3,"DIFFICILE",4,"TRES DIFFICILE",5,"QUITTER",Q
:Lbl 1
:25 -> Y
:Goto 6
:Lbl 2
:20 -> Y
:Goto 6
:Lbl 3
:15 -> Y
:Goto 6
:Lbl 4
:10 -> Y
:Goto 6
:Lbl 5
:5 -> Y
:Lbl 6
:For(W,2,11
:EffVarX EffVarZ EffVarA 10 -> dim(Liste1
:Fill(0,Liste1
:ClrHome
:Output(1,5,"O O O O
:Output(2,6,"O O O
:Output(3,7,"O O"
:Output(4,8,"O
:For(B,1,8
:Output(B,13,"!
:Output(B,3,"!
:End
:-1 -> C
:4 -> D
:While A=!=2
:getKey -> G
:If G=105
:Goto 8
:Output(8,4,"
:Output(8,D,"O
:If D=4 or D=12
:-C -> C
:D+C -> D
:For(S,1,Y/5
:End
:End
:End
:Lbl 8
:D-C -> D
:If Z=0 and D=8
:Then
:15 -> dim(Liste1
:Fill(1,Liste1
:1 -> A
:End
:If not(Z
:D -> Z
:abs(D-8 -> L
:D -> M
:D -> N
:For(H,8,1,-1
:If H=!=1
:Output(H-1,D,"O
:If L+H<4
:Then
:M-1 -> M
:N+1 -> N
:End
:For(J,M,N
:Output(H,J,"
:End
:If D=5
:1 -> Liste1(1
:If D=6
:Then
:1 -> Liste1(1
:1 -> Liste1(2
:End
:If D=7
:Then
:1 -> Liste1(1
:1 -> Liste1(2
:1 -> Liste1(3
:1 -> Liste1(5
:1 -> Liste1(6
:1 -> Liste1(8
:End
:If D=8
:Fill(1,Liste1
:If D=9
:Then
:1 -> Liste1(2
:1 -> Liste1(3
:1 -> Liste1(4
:1 -> Liste1(6
:1 -> Liste1(7
:1 -> Liste1(9
:End
:If D=10
:Then
:1 -> Liste1(3
:1 -> Liste1(4
:1 -> Liste1(7
:End
:If D=11
:1 -> Liste1(4
:End
:A+1 -> A
:For(Z,1,10
:End
:-1 -> C
:4 -> D
:End
:sum(Liste1 -> X
:X -> Liste2(W
:ClrHome
:Disp "TON SCORE ACTUEL",sum(Liste2),"!01!02!03!04!05!","! ! ! ! ! !","+--+--+--+--+--+","!06!07!08!09!10!","! ! ! ! ! !
:For(V,2,W
:If V[inférieur ou égal]6
:Output(4,3V-4,Liste2(V
:If V[supérieur ou égal]7
:Output(7,3V-19,Liste2(V
:End
:Pause
:End
:ClrHome
:Output(2,3,"VOTRE SCORE:
:Output(3,7,sum(Liste2
:Output(5,3,"EN NIVEAU:
:Output(5,14,6-Y/5
:Pause
:sum(Liste2 -> T
:If T[racine(]6-Y/5)>[l des listes]BOL(2
:Then
:ClrHome
:Output(2,4,"TU AS BATTU
:Output(3,2,"L'ANCIEN RECORD
:Output(4,2,"AVEC POINTS
:Output(4,7,T
:Output(5,4,"EN NIVEAU
:Output(5,14,6-Y/5
:Output(6,2,"AVEC POINTS
:Output(7,1,"RECORD (PTS[petit r du menu var/stats/equ]=PTS
:Output(8,4,"*[raccine(] NIVEAU) )
:Output(6,7,iPart(T[racine(]6-X/5
:End
:Lbl Q
PS:jespère que je ne me suis pas trompé de fichier et que je n'ai pas fait de fautes à l'optimisation sur TI-Editor ( et oui, à l'époque je laissait encore filer un certaint nombre d'octés (enfin, je ne fermais pas les parrenthèses et les guillemets en fin de ligne)
