Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 23 Mai 2011, 18:29
Bonjour/bonsoir
Voici,un petit jeux connue au lycée sous le nom de booling (cette vertion, c'est moi qui l'ai fait).
Voici le code
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
Sandro
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)
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 21:38
Je l'ai sur ord mais je ne sais pas comment le publier : sur les deux hébergeurs que j'ai essayé, l'un me bouzzillé tout et l'autre prétend depuis 10 minutes vouloir vérifier le fichier (format inconu propablement)
Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 21:48
Génial! C'est très fluide en plus! =) Pourquoi ne pas l'adapté en mode graphique= encore plus vraisemblable!
sinon petite remarque, je pense qu'il faudrait différencier la boule des quilles, un '!' pour les quilles par exemple,etc ... Sinon, il est bien sympa!
Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 22:30
j'essaie ça!
Non pas besoin, en fait j'ais citer ton message, j'ais copié collé le lien dans la barre d'adresse, et cliqué sur le nom du fichier en bleu ça me la téléchargée .
EDIT: j'ais test la nouvelle version, c'est pas mal du tout avec les points d'exclamations!