Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
booling
Auteur Message
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 23 Mai 2011, 18:29   Citer 

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
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 21:15   Citer 

il serrait passé inaperçu ce programme ou est-ce qu'il n'intérraisse personne
Sandro

PS:désolé pour le double post mais sinon le sujet va ce perdre.

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Jeu 26 Mai 2011, 21:16   Citer 

Je recopie et test des que j'ais un peu de temps! =) Promis!

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 21:25   Citer 

Dis moi, a tu fais un 82p ou autre de ce jeu?
Désolé pour le double post, mais sinon tu ne l'aurais peut-etre pas vu...

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 21:38   Citer 

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)

Voici le lien "bouzzillé" : BOOINGF.83p
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 21:41   Citer 

Ok merci! j'essaie ça! =)

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 21:48   Citer 

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! winkle.gif

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 21:54   Citer 

tu as réussit à utiliser ce que j'ai envoyé (je croyais que ça bugait)et si oui comment ou tu a recopié à la main

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 21:55   Citer 

Oui j'ais réussi! En fait j'ais cliqué, et là plein de caracteres, et en haut de la page, le lien pour télécharger: le nom du fichier en bleu! =)

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 21:59   Citer 

Ah oui ça marche, il faut juste modifier le nom et l'extention

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 22:00   Citer 

Voilà =)
Donc, j'ais testé, tu as vu mon post pour les remarques??

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 22:12   Citer 

oui, sinon je naurais jamais pensé à utiliser le lien bleu audessus de cettte horreur

Voici une version avec de "!" comme quilles : BOOINGF.83p
Merci beaucoup
Sandro

PS: toi aussi t'as du modifier l'extention (enfin en mettre une)

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 28 Mai 2011, 22:30   Citer 

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!

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa