Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 02 Jan 2007, 17:00
Le jeu culte de la télevision française sur ti82!!!(sans Laurent Romejko)
Les regles officielles pour le temps, un mode chiffre et un mode lettre pour s'entrainer, un mode continuer pour reprendre une partie en cours...
(Je les ai pas mises dans le prog mais j'ai mit le lbl,si vous voulez les rajoutez)
Si y'a des masos qui recopient ou si ils y'en a qui veulent l'avoir par le cable qu'ils le disent.
Y'a des lignes que vous pouvez virez comme quand le compte s'affiche, mais c'est du plus bel effet
Si ça bug ou si j'ai fait une erreur dites le car je sais pas si c'est juste mes generateurs de nmbrs aléatoires et d'autres trucs...
ü:[sto] ÷:plus petit ou égal Á:theta
Code
:ClrHome
:0üZ:0üF:0üG:0üH:1üÁ:0üV
:16üH:0üW:17üU
:Lbl U
:G+.5üG
:H-.5üH
:B+1üB
:If B=17
:Goto X
:Output(2,B,"*
:Output(4,U,"*
:Output(6,round(G,0),"*
:Output(6,round(H,0),"*
:Goto U
:Lbl X
:Output(8,1,"(C)COPYRIGHT2006
:Output(5,2,"UN JEU DE JOJO
:Output(3,2,"ET DES LETTRES"
:Output(1,3,"DES CHIFFRES
:Pause :ClrHome
:0üT:0üS:0üU
:Lbl L
:Menu("***BIENVENUE!***","JEU COMPLET",A,"CONTINUER",AÁ,"LETTRES",B,"CHIFFRES",C,"REGLES",AA
:Lbl AA
:Goto L
:Lbl A
:1üS:Goto D
:Lbl B
:1üT:Goto AU
:Lbl C
:1üU:Lbl AU
:Disp "COMBIEN DE
:Input "TOURS?",L
:Goto 93
:Lbl AÁ
:Input "MANCHE:",F
:Input "SCORE J1:",W
:Input "SCORE J2:",V
:F-1üF
:Lbl D
:ClrHome
:0üZ
:F+1üF
:If U=1 or T=1 and L=F
:Goto E
:If S=1 and F=2 or F=3 or F=5 or F=6 or F=8 or F=9 or F=11 or F=12
:Then
:0üZ
:Goto 1
:End
:Lbl 93
:ClrHome
:Lbl 1
:Output(1,4,"
:If Á=1
:Output(1,1,"J1:
:If Á=0
:Output(1,1,"J2:
:Output(2,1,"****************
:If S=1
:Then
:Output(6,8,F
:Output(6,1,"MANCHE:
:End
:If T=1 and L<1000000:Then
:Output(6,1,"MANCHES
:Output(8,1,"RESTANTES:
:Output(8,11,L
:End
:If Z=9
:Goto 8
:getKeyüX
:If X=43
:Then
:Z+1üZ
:int rand117üY
:If Y=1
:Output(3,Z,"X
:If Y=2
:Output(3,Z,"Z
:If Y=3
:Output(3,Z,"K
:If Y=4
:Output(3,Z,"W
:If Y>4 and Y÷10
:Output(3,Z,"F
:If Y>10 and Y÷22
:Output(3,Z,"R
:If Y>22 and Y÷34 or Y=60
:Output(3,Z,"S
:If Y>34 and Y÷42
:Output(3,Z,"C
::If Y>42 and Y÷53
:Output(3,Z,"T
:If Y>53 and Y÷59
:Output(3,Z,"D
:If Y>60 and Y÷72
:Output(3,Z,"N
:If Y>72 and Y÷82
:Output(3,Z,"L
:If Y>82 and Y÷89
:Output(3,Z,"M
:If Y>90 and Y÷96
:Output(3,Z,"B
:If Y>96 and Y÷101
:Output(3,Z,"V
:If Y>101 and Y÷104
:Output(3,Z,"J
:If Y>104 and Y÷108
:Output(3,Z,"G
:If Y>108 and Y÷114
:Output(3,Z,"P
:If Y>114
:Output(3,Z,"H
:If Y=90
:Output(3,Z,"Q
:Output(1,4,"CONSONNE
:If Á=1
:Then
:0üÁ
:Goto 9
:End
:If Á=0:1üÁ
:End
:If X=84
:Then
:Z+1üZ
:Output(1,11,"
:Output(1,4,"VOYELLE
:int rand100üY
:If Y=100
:Output(3,Z,"Y
:If Y>35 and Y÷55
:Output(3,Z,"A
:If Y>55 and Y÷75
:Output(3,Z,"I
:If Y>75 and Y÷87
:Output(3,Z,"O
:If Y>87 and Y÷99
:Output(3,Z,"U
::If Y>0 and Y÷35
:Output(3,Z,"E
:If Á=1:Then
:0üÁ:Goto 9
:End
:69!:69!
:69!:69!
:69!:69!
:Goto 1
:Lbl 8
:0üX:17üY
:Lbl TA
:Y+1üY
:X+1üX
:If X=17
:Goto MR
:Output(6,X,"*
:Output(8,Y,"*
:Goto TA
:Lbl MR
:ú.5üX
:0üY
:Output(1,1,"
:Lbl 7
:X+.0787üX
:round(X,1)üY
:Output(7,round(Y+1,0),"Á
:If Y=15
:Then
:Goto 6
:End
:Goto 7
:Lbl 6
:ClrHome
:Input "J1",X
:Input "J2",Y
:If Y>X:Then
:Output(4,1,"BIEN JOUE J2
:V+YüV
:End
:If X>Y:Then
:Output(4,1,"BIEN JOUE J1
:W+XüW
:End
:If X=Y
:Then
:Output(4,1,"EGALITE
:W+YüW
:V+XüV
:End
:Pause
:ClrHome
:If F<12
:Then
:Output(1,1,"LE SCORE:
:Output(3,1,"J1:
:Output(3,10,"J2:
:Output(3,4,W
:Output(3,13,V
:Pause :ClrHome
:End
:Goto 10
:Lbl H
:If S=1
:Then
:Output(5,8,F
:Output(5,1,"MANCHE:
:End
:If U=1
:Then
:Output(5,1,"MANCHES
:Output(7,1,"RESTANTES:
:Output(7,11,L
:int rand899+100üX
:If X÷350
:int rand4+8üN
:If X÷675 and X>350
:int rand3+10üN
:If X>675
:int rand4+11üN
:If N=11:25üN
:If N=12:50üN
:If N=13:75üN
:If N=14:100üN
:69!:69!:69!
:Output(1,1,N
:Lbl 11
:int rand10+1üM
:If M=N
:Goto 11
:For(G,1,550
:End
:Output(1,8,M
:Lbl 12
:int rand10+1üH
:If H=N or H=M
:Goto 12
:For(G,1,550
:End
:Output(1,15,H
:Lbl 13
:int rand10+1üO
:If O=N or O=M or O=H
:Goto 13
:For(G,1,550
:End
:Output(3,1,O
:Lbl 14
:int rand10+1üK
:If K=N or K=M or K=H or K=O
:Goto 14
:For(G,1,550
:End
:Output(3,8,K
:Lbl 15
:int rand10+1üQ
:If Q=N or K=Q or Q=H or Q=O or Q=M
:Goto 15
:For(G,1,550
:End
:Output(3,15,Q
:For(G,1,550
:End
:0üB:17üR
:Lbl V
:B+1üB
:R-1üR
:If R=0
:Goto W
:Output(5,B,"*
:Output(7,R,"*
:Goto V
:Lbl W
:69!:69!:69!
:Output(6,1,"LE COMPTE:
:69!:69!:69!
:Output(6,11,1
:53!
:Output(6,12,2
:53!
:Output(6,13,3
:53!
:Output(6,11,2
:53!
:Output(6,12,3
:53!
:Output(6,13,4
:53!
:Output(6,11,3
:53!
:Output(6,12,4
:53!
:Output(6,13,5
:53!
:Output(6,11,4
:53!
:Output(6,12,5
:53!
:Output(6,13,6
:53!
:Output(6,11,5
:53!
:Output(6,12,6
:53!
:Output(6,13,7
:53!
:Output(6,11,6
:53!
:Output(6,12,7
:53!
:Output(6,13,8
:53!
:Output(6,13,7
:53!
:Output(6,12,8
:53!
:Output(6,13,9
:53!
:Output(6,11,X
:Output(6,12,9
:51!:51!
:Output(6,13,1
:51!:51!
:Output(6,12,0
:51!:51!
:Output(6,13,2
:51!:51!
:Output(6,12,1
:51!:51!
:Output(6,13,3
:51!:51!
:Output(6,12,2
:51!:51!
:Output(6,13,4
:51!:51!
:Output(6,12,3
:51!:51!
:Output(6,13,5
:51!:51!
:Output(6,12,4
:51!:51!
:Output(6,13,6
:51!:51!
:Output(6,12,5
:51!:51!
:Output(6,13,7
:51!:51!
:Output(6,11,X
:Output(6,13,8
:49!:49!:49!
:Output(6,13,9
:49!:49!:49!
:Output(6,13,0
:49!:49!:49!
:Output(6,13,1
:49!:49!:49!
:Output(6,13,2
:49!:49!:49!
:Output(6,13,3
:49!:49!:49!
:Output(6,13,4
:49!:49!:49!
:Output(6,13,5
:49!:49!:49!
:Output(6,13,6
:49!:49!:49!
:Output(6,13,X
:49!:49!:49!
:ú.5üN
:0üY
:Lbl Q
:.111+NüN
:If Y=14
:Goto P
:round(N,1)üY
:Output(8,round(Y+1,0),"Á
:Goto Q
:Lbl P
:For(N,1,550
:End
:Input "J1",K
:Input "J2",O
:If abs (K-X)<abs (O-X) and K-Xø0
:Then
:Disp "J1 PLUS PROCHE
:W+6üW
:End
:If abs (K-X)>abs (O-X) and O-Xø0
:Then
:Disp "J2 PLUS PROCHE
:V+6üV
:End
:If abs (K-X)=abs (O-X) and K-Xø0
:Then
:Disp "EGALITE
:W+6üW:V+6üV
:End
:If K-X=0 and O-Xø0
:Then
:Disp "J1 A LE BON COMPTE
:W+9üW
:End
:If abs O-X=0 and K-Xø0
:Then
:Disp "J2 A LE BON COMPTE
:V+9üV
:End
:If K-X=0 O-X=0
:Then
:Disp "J1 EST J2 ONT LE","BON COMPTE
:V+9üV
:W+9üW
:End
:For(Q,1,500
:Output(6,1,"J1: J2:
:Output(6,4,W
:Output(6,13,V
:Pause
:ClrHome
:If S=1
:Goto 10
:If U=1
:Then
:L-1üL
:If L=0
:Goto E
:Goto 93
:Lbl E
:ClrHome
:Disp "SCORE FINAL:","","J1: J2:
:Output(3,4,W
:Output(3,13,V
:If W>V
:Disp "VICTOIRE DU J1!
:If V>W
:Disp "VICTOIRE DU J2!
:If W=V:Then
:ClrHome
:Disp "IL FAUT UN","VAINQUEUR!
:Pause
:ClrHome
:Disp "","1:PILE,2:FACE
:int rand2+1üX
:int rand2+1üY
:If Y=1
:Input "J2,PILE OU FACE?",R
:If Y=2
:Input "J1,PILE OU FACE?",R
:ClrHome
:If R=X
:Disp "TU GAGNES!!!
:If RøX
:Disp "PAS DE CHANCE!
:Pause
:ClrHome
:Disp "DES CHIFFRES","ET DES LETTRES","DU LUNDI AU","VENDREDI A 17H35","SUR FRANCE 3
:Output(8,1,"VOTEZ JOJO!
:Pause
Autorisation : Membre
Nb de messages : 26
Inscrit le : Lun 22 Jan 2007, 9:25
Posté le : Lun 22 Jan 2007, 9:29
Salut ! dans l'ensemble ton programme est bien, mais il manque des lignes de code : Ou sont les Lbl 9 et 10 ? Tu te sers de Goto pour des valeurs alors que tu pourrais te servir de While-End ! Ton programme prendrais nettement moins de place ! Je suis en train de faire moi aussi des chiffres et des lettres, il devrait prendre seulement 1000 à 2000 de place...
---------------------- Vive TEXAS INSTRUMENTS !!! Mes sites web (en construction) : trucetastuces.infordi.googlepages.com
cij-softwares.site.voila.fr/index.html
N'hésitez pas à m'envoyer des mails pour des commentaires ou des idées !!!
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 22 Jan 2007, 17:48
oui mais t'enleves du soin à la présentation...(tu vires la présentation, l'effet de style pour les lettres et les chiffres avec les étoiles,quand le compte s'affiche, la fin du programme avec un pile ou face et la pub pour l'émission, et les quelques autres textes) et tu l'a les 1500 octets
peut-etre que j'ai des fautes içi mais sur mon prog y'en a aucune.
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 23 Jan 2007, 13:14
Pourquoi mettre des While/End ou FOr/end si ceux-ci ralentissent la calculette au point de mettre une erreure.
Et puis, le label 10 n'est possible qu'as partir de la ti-82 STATS or, si il y en as un, il faut le préciser.
Sangohan38
PS: S'appeler Ti-Instructeur et oser donner des leçons sans jamais poster, je trouver cela pas correct.
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 23 Jan 2007, 16:47
oui j'ai eu une erreur à la derniere manche ce matin et ça ma mit erreur mémoire (c'est pour ça qu'il y' a une option continuer!!!), à cause de la grande boucle des lettres, je voudrai savoir ce que c'est merci..
Autorisation : Membre
Nb de messages : 26
Inscrit le : Lun 22 Jan 2007, 9:25
Posté le : Mer 24 Jan 2007, 12:14
SI tu avais mis des While et des For cela ne serait jamais arrivé.
tu as mis des goto dans des groupes if/then/else donc il remplis la pile jusqu'a ne plus avoir de place (vive l'assembleur, il faut connaitre l'assembleur d'un CPU (ici z80) pour pouvoir programmer en basic (meme TI))
les groupes if/then/else ne se "finnissent" pas lorsqu'il y a des goto à l'interieur ce qui entraîne un chargement (saturation) de la pile du processeur (situé dans la RAM)
AH AH AH
---------------------- Vive TEXAS INSTRUMENTS !!! Mes sites web (en construction) : trucetastuces.infordi.googlepages.com
cij-softwares.site.voila.fr/index.html
N'hésitez pas à m'envoyer des mails pour des commentaires ou des idées !!!