Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Race

Page: 1, 2 >>

Race

Auteur

Message

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 09 Avr 2007, 19:35

Ce programme est un jeu ou l'on ne doit pas toucher les bords. Il y a 3 niveaux de difficultés. Je vous coneille de lire les instruction avant de commencer.
Il prend environ 14500 octets.

Compatible avec TI-82 / TI-82 STATS

Code

:ClrHome
:FullScreen
:25=>dim L5
:Lbl R
:ClrDraw
:ClrHome
:0=>Xmin
:94=>Xmax
:0=>Ymin
:62=>Ymax
:RectGC
:CoordOff
:GridOff
:AxesOff
:FnOff
:LabelOff
:Horizontal 0
:Horizontal 62
:Vertical 94
:Vertical 0
:For(A,1,07
:Text(10,A," SANGOHAN38"
:F+1=>F
:B-1=>B
:End
:For(A,1,10
:Text(A,53," PRESENTE:"
:F+1=>F
:B-1=>B
:End
:For(A,1,35
:Text(35,A," RACE"
:F+1=>F
:B-1=>B
:End
:For(A,1,22
:Text(52,A," VERSION 5.0"
:End
:Pause
:Lbl 9
:FullScreen
:Menu("RACE:","JEU FACILE",F,"JEU MOYEN","JEU DIFFICILE","INSTRUCTIONS",I,"QUITTER",Q)
:Lbl I
:ClrHome
:ClrDraw
:0=>Xmin
:94=>Xmax
:0=>Ymin
:30=>Ymax
:Split
:Text(1,1,"LE BUT DE CE JEU EST DE NE"
:Text(7,1,"PAS FAIRE TOUCHER LES BORDS"
:Text(13,1,"AU SIGNE LE PLUS BAS."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"!° !"
:Output(2,5,"!° !"
:Output(3,4,"! ° !"
:Output(4,3,"! !"
:Pause
:ClrDraw
:ClrHome
:Text(8,1,"SINON UNE CROIX APPARAIT."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4," ! ° !"
:Output(2,5," !° !"
:Output(3,6,"X !"
:Output(4,5," ! !"
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"POUR L EVITER, IL FAUT"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,6,"! ° !"
:Output(2,5,"! !"
:Output(3,6,"! !"
:Output(4,7,"! !"
:Pause
:Text(7,1,"APPUIER SOIT SUR"
:Line(55,20,55,20
:Line(56,19,56,21
:Line(57,18,57,22
:Output(2,8,"°"
:Pause
:Text(7,59,"SOIT SUR"
:Line(87,22,87,18
:Line(88,21,88,19
:Line(89,20,89,20
:Pt-On(92,18
:Output(3,9,"°"
:Pause
:ClrDraw
:ClrHome
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Text(1,1,"POUR CONNAITRE VOTRE"
:Text(7,1,"SCORE, APPUIER SUR [DEL]."
:Output(1,5,"! ° !"
:Output(2,6,"! ° !"
:Output(3,5,"! ° !"
:Output(4,1,"25 ! !"

Google_AdSense

Stupid

Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Sam 14 Avr 2007, 16:29

c'est moi ou 14.500 octets n'est pas sa vraie taille???

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 14 Avr 2007, 16:56

Si ce prog prend 14500 octets mais la, seule une partie à été copiée vu que le prog est extrément long.
J'ai réussit à le raccourcire à 7 ko.

Sangohan38

Jack24

Autorisation : Membre
Nb de messages : 3
Inscrit le : Dim 22 Avr 2007, 21:59

Posté le : Dim 22 Avr 2007, 22:06

T'as tout recopié là?

vibra

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29

Posté le : Lun 23 Avr 2007, 11:36

Non mais moi je l'ai : le voici en entier :

Code

:ClrHome
:FullScreen
:68->dim L1
:ClrDraw
:0->Xmin:94->Xmax:0->Ymin:62->Ymax
:CoordOff
:GridOff
:AxesOff
:Horizontal 0
:Horizontal 62
:Vertical 94
:Vertical 0
:For(A,1,7
:Text(10,A," SANGOHAN38"
:End
:For(A,1,13
:Text(17,A," SNAKE430"
:End
:For(A,1,10
:Text(A,53," PRESENTENT"
:End
:For(A,1,35
:Text(35,A," RACE"
:End
:Text(52,28," VERSION 9.0"
:Pause
:Lbl 1
:FullScreen
:Menu("RACE:","JEU FACILE",2,"JEU MOYEN",3,"JEU DIFFICILE",4,"INSTRUCTIONS",5,"QUITTER",6
:Lbl 5
:CoordOff:AxesOff
:ClrDraw
:0->Xmin:94->Xmax:0->Ymin:30->Ymax
:Split
:Text(1,1,"LE BUT DE CE JEU EST DE NE"
:Text(7,1,"PAS FAIRE TOUCHER LES BORDS"
:Text(13,1,"AU SIGNE LE PLUS BAS."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"! ô !"
:Output(2,5,"!ô !"
:Output(3,4,"! ô !"
:Output(4,3,"! !"
:Pause
:ClrDraw
:ClrHome
:Text(8,1,"SINON UNE CROIX APPARAIT ET"
:Text(14,1,"LE JEU SE TERMINE."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"! O !"
:Output(2,5,"!O !"
:Output(3,6,"X !"
:Output(4,5,"! !"
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"POUR L EVITER, IL FAUT"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,6,"! O !"
:Output(2,5,"! !"
:Output(3,6,"! !"
:Output(4,7,"! !"
:Pause
:Text(7,1,"APPUYER SOIT SUR"
:Pt-On(59,20
:Line(60,19,60,21
:Line(61,18,61,22
:Output(2,8,"O"
:Pause
:Text(7,63,"SOIT SUR"
:Line(92,22,92,18
:Line(93,21,93,19
:Pt-On(94,20
:Pt-On(94,18
:Output(3,9,"O"
:Pause
:ClrDraw
:ClrHome
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Text(1,1,"POUR CONNAITRE VOTRE"
:Text(7,1,"SCORE, APPUYEZ SUR [DEL]."
:Output(1,5,"! O !"
:Output(2,6,"! O !"
:Output(3,5,"! O !"
:Output(4,1,"25 ! !"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"AU DEBUT DE CHAQUE PARTIE,"
:Text(7,1,"VOUS CHOISISSEZ VOTRE"
:Text(13,1,"VEHICULE EN TAPANT"
:Text(19,1,"1, 2 , 3 OU 4."
:Output(1,1,"VEHICULE 1:O"
:Output(2,1,"VEHICULE 2:^"
:Output(3,1,"VEHICULE 3:Y"
:Output(4,1,"VEHICULE 4:*"
:Text(21,54,"[ENTER]
:Line(84,6,90,6
:Line(88,8,90,6
:Line(88,4,90,6
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"IL Y A 3 NIVEAUX DE"
:Text(7,1,"DIFFICULTE. PLUS LE JEU"
:Text(13,1,"EST DUR, PLUS VOUS GAGNEZ"
:Text(19,1,"DE POINTS."
:Text(21,55,"[ENTER]
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Pause
:ClrDraw
:FullScreen
:62->Ymax
:Text(1,1,"POUR SAUVEGARDER VOTRE"
:Text(7,1,"NOM, IL FAUT APPUYER SUR"
:Text(13,1,"[ALPHA], PUIS CHOISIR "
:Text(20,1,"VOTRE LETTRE. ENSUITE,"
:Text(27,1,"PRESSER [ENTER]. POUR "
:Text(33,1,"METTRE UN ESPACE, IL "
:Text(39,1,"FAUT TAPER 100."
:Text(56,55,"[ENTER]"
:Line(84,4,90,4
:Line(88,2,90,4
:Line(88,6,90,4
:Pause :ClrDraw
:Text(10,8,"VOUS ETES PRETS A JOUER."
:Text(20,30,"GL and HF"
:Text(31,1,"POUR PLUS D INFORMATIONS,"
:Text(37,1,"CONTACTER:
:Text(43,1,"SANGOHAN.38 HOTMAIL.FR"
:Text(42,46,"A"
:Circle(47,17,3
:Pause
:Goto 1
:Pause
:Lbl 6
:ClrDraw
:ClrHome
:Output(1,1," "
:Stop
:Lbl 2
:0->K
:1->L1(11)
:Goto V
:Lbl 3
:1->K
:2->L1(11)
:Goto V
:Lbl 4
:2->K
:3->L1(11)
:Lbl V
:ClrHome
:Output(3,1,"VEHICULE 1:O"
:Output(4,1,"VEHICULE 2:^"
:Output(5,1,"VEHICULE 3:Y"
:Output(6,1,"VEHICULE 4:*"
:Input "VEHICULE:",U
:6->B:6->E:6->F:6->G
:Disp "","","","","","","","----------------"

:8->A:0->Q:0->[THETA]
:Lbl 7
:If K=0:[THETA]+1->[THETA]
:If K=1:[THETA]+3->[THETA]
:If K=2:[THETA]+5->[THETA]
:G->H:F->G:E->F:B->E
:int rand2+1->D
:If D=2:ú

1->D
:B+D->B
:If B<1:1->B
:If B>12:12->B
:Lbl W
:getKey->C
:If C=23:Output(8,1,[THETA]
:If C=105:Goto S
:If C=92:1->U
:If C=93:2->U
:If C=94:3->U
:If C=82:4->U
:If C=24:A-1->A
:If C=26:A+1->A
:If K=0:Output(8,B,"! !"
:If K=1:Output(8,B,"! !"
:If K=2:Output(8,B,"! !"
:If U=1:Output(4,A,"O"
:If U=2:Output(4,A,"^"
:If U=3:Output(4,A,"Y"
:If U=4:Output(4,A,"*"
:Disp ""
:If A<H+5-K and A>H:Goto 7
:Output(4,A,"X"
:Pause
:If [THETA]>L1(15):Goto J
:ClrDraw:Horizontal 0:Horizontal 62:Vertical 0:Vertical 94:Text(05,40,"PERDU!"
:Text(25,4,"SCORE:"
:Text(25,26,[THETA]
:Text(35,4,"RECORD:"
:Text(35,30,L1(15)
:Text(45,4,"PAR:"
:Text(55,4,"EN MODE"
:If L1(13)=1:Text(55,33,"FACILE"
:If L1(13)=2:Text(55,33,"MOYEN"
:If L1(13)=3:Text(55,33,"DIFFICILE":18->X:Goto H
:Lbl H
:If L1(X)=1:Text(45,X,"1"
:If L1(X)=2:Text(45,X,"2"
:If L1(X)=3:Text(45,X,"3"
:If L1(X)=4:Text(45,X,"4"
:If L1(X)=0:Text(45,X,"0"
:If L1(X)=100:Text(45,X," "
:If L1(X)=5:Text(45,X,"5"
:If L1(X)=6:Text(45,X,"6"
:If L1(X)=7:Text(45,X,"7"
:If L1(X)=8:Text(45,X,"8"
:If L1(X)=9:Text(45,X,"9"
:If L1(X)=10:Text(45,X,"A"
:If L1(X)=11:Text(45,X,"B"
:If L1(X)=12:Text(45,X,"C"
:If L1(X)=13:Text(45,X,"D"
:If L1(X)=14:Text(45,X,"E"
:If L1(X)=15:Text(45,X,"F"
:If L1(X)=16:Text(45,X,"G"
:If L1(X)=17:Text(45,X,"H"
:If L1(X)=18:Text(45,X,"I"
:If L1(X)=19:Text(45,X,"J"
:If L1(X)=20:Text(45,X,"K"
:If L1(X)=21:Text(45,X,"L"
:If L1(X)=22:Text(45,X,"M"
:If L1(X)=23:Text(45,X,"N"
:If L1(X)=24:Text(45,X,"O"
:If L1(X)=25:Text(45,X,"P"
:If L1(X)=26:Text(45,X,"Q"
:If L1(X)=27:Text(45,X,"R"
:If L1(X)=28:Text(45,X,"S"
:If L1(X)=29:Text(45,X,"T"
:If L1(X)=30:Text(45,X,"U"
:If L1(X)=31:Text(45,X,"V"
:If L1(X)=32:Text(45,X,"W"
:If L1(X)=33:Text(45,X,"X"
:If L1(X)=34:Text(45,X,"Y"
:If L1(X)=35:Text(45,[THETA],"Z"
:If X=63:Goto 1
:X+5->X:Goto H
:Goto 6
:Lbl J
:Split:L1(11)->L1(13):Horizontal 62:Vertical 0:Vertical 94:Text(10,20,"NOUVEAU RECORD!"
:Text(23,4,"SCORE:"
:Text(23,26,[THETA]
:[THETA]->L1(15)
:10->A:11->B:12->C:13->D:14->E:15->F:16->G:17->H:18->I:19->J:20->K
:21->L:22->M:23->N:24->O:25->P:26->Q:27->R:28->S:29->T:30->U:31->V
:32->W:33->X:34->Y:35->Z
:Input "1 LETTRE:",[THETA]
:[THETA]->L1(18)
:Input "2 LETTRE:",[THETA]
:[THETA]->L1(23)
:Input "3 LETTRE:",[THETA]
:[THETA]->L1(28)
:Input "4 LETTRE:",[THETA]
:[THETA]->L1(33)
:Input "5 LETTRE:",[THETA]
:[THETA]->L1(38)
:Input "6 LETTRE:",[THETA]
:[THETA]->L1(43)
:Input "7 LETTRE:",[THETA]
:[THETA]->L1(48)
:Input "8 LETTRE:",[THETA]
:[THETA]->L1(53)
:Input "9 LETTRE:",[THETA]
:[THETA]->L1(58)
:Input "10 LETTRE:",[THETA]
:[THETA]->L1(63)
:Goto 1
:Lbl S
:Menu("PAUSE :","REPRENDRE JEU",W,"MENU PRINCIPAL",1,"QUITTER JEU",6

PS :il y a moyen de le réduire à 5000 octets

----------------------
Vive la programmation et vive le vibraphone !!!

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 24 Avr 2007, 12:54

Je sais qu'on peut le réduire tout simplement en enlevant les instructions qui prennent environ 8ko.

Sangohan38

zzzflo

Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45

Posté le : Ven 12 Oct 2012, 7:48

J'ai un problème sur le menu : au lieu de le lancer ma calculatrice m'indique

Citer

"err:argument sur le 6"

et je ne sais pas quoi faire.

Cytropus

Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Ven 12 Oct 2012, 8:21

vérifie que tu n'as oublié aucun " ou , (la virgule utilisé se trouve au dessus du [7])

----------------------
Le nouveau site de tout82

blg_flg

Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Ven 12 Oct 2012, 19:46

Pour faire L6, fait bien [2nde] + [6].

zzzflo

Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45

Posté le : Sam 13 Oct 2012, 10:08

Je ne sais pas si je me suis bien exprimé, mon erreur est ici:

Code

:Menu("RACE:","JEU FACILE",2,"JEU MOYEN",3,"JEU DIFFICILE",4,"INSTRUCTIONS",5,"QUITTER",6<=ici

blg_flg

Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Sam 13 Oct 2012, 11:27

Ah pardon. J'avais rien compris.

Tout dépend du type d'erreur. Regarde si tu n'as pas utilisé de mauvaise virgule, si tu n'as pas oublié de "Lbl", etc. Je te conseille de recommencer complètement la ligne si c'est une erreur de syntaxe. Ce sera plus court que de trouver l'erreur.

Cytropus

Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Sam 13 Oct 2012, 14:51

@Kébab

: Euh... c'est une erreur domaine (regarde son premier post)

@zzzflo: vérifie que t'as pas mis :Menu("RACE:",1,"JEU FACILE",2,...

----------------------
Le nouveau site de tout82

zzzflo

Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45

Posté le : Sam 13 Oct 2012, 22:10

merci de votre aide j'ai trouvé ma gaffe: j'avais oublié les guillemets devant instructions

Superelee
Invité

Posté le : Ven 19 Oct 2012, 14:02

Salut, ton jeu à l'air super bien mais y a t'il moyen que tu écrives le code sans les instructions car comme je n'ai pas le cable je n'ai pas envie que les 3/4 des lignes que j'ai recopié à la main servent juste à savoir comment jouer au jeu.

Merci

Cytropus

Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Ven 19 Oct 2012, 17:56

Le code, sans les instructions (c'est dommage

)

Code

----------------------
Le nouveau site de tout82

Samos

Autorisation : Membre
Nb de messages : 300
Inscrit le : Lun 14 Mai 2012, 18:51

Posté le : Ven 19 Oct 2012, 18:04

Code

:If L1(X)=1:Text(45,X,"1"
:If L1(X)=2:Text(45,X,"2"
:If L1(X)=3:Text(45,X,"3"
:If L1(X)=4:Text(45,X,"4"
:If L1(X)=0:Text(45,X,"0"
:If L1(X)=100:Text(45,X," "
:If L1(X)=5:Text(45,X,"5"
:If L1(X)=6:Text(45,X,"6"
:If L1(X)=7:Text(45,X,"7"
:If L1(X)=8:Text(45,X,"8"
:If L1(X)=9:Text(45,X,"9"
:If L1(X)=10:Text(45,X,"A"
:If L1(X)=11:Text(45,X,"B"
:If L1(X)=12:Text(45,X,"C"
:If L1(X)=13:Text(45,X,"D"
:If L1(X)=14:Text(45,X,"E"
:If L1(X)=15:Text(45,X,"F"
:If L1(X)=16:Text(45,X,"G"
:If L1(X)=17:Text(45,X,"H"
:If L1(X)=18:Text(45,X,"I"
:If L1(X)=19:Text(45,X,"J"
:If L1(X)=20:Text(45,X,"K"
:If L1(X)=21:Text(45,X,"L"
:If L1(X)=22:Text(45,X,"M"
:If L1(X)=23:Text(45,X,"N"
:If L1(X)=24:Text(45,X,"O"
:If L1(X)=25:Text(45,X,"P"
:If L1(X)=26:Text(45,X,"Q"
:If L1(X)=27:Text(45,X,"R"
:If L1(X)=28:Text(45,X,"S"
:If L1(X)=29:Text(45,X,"T"
:If L1(X)=30:Text(45,X,"U"
:If L1(X)=31:Text(45,X,"V"
:If L1(X)=32:Text(45,X,"W"
:If L1(X)=33:Text(45,X,"X"
:If L1(X)=34:Text(45,X,"Y"

à remplacer par

Code

"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ -> Str1
If X>=1 et X<=34
Text(45,X,sub(Str1,L1(X),1

Edit: maintenant si

Cytropus

Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Ven 19 Oct 2012, 18:08

Regarde bien le code, c'est pas tout à fait ça

EDIT:@samsam:toujours pas

(c'est pas "0123456..." mais "12340 567...")

----------------------
Le nouveau site de tout82

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 22 Oct 2012, 22:15

Ce n'est peut-être pas la peine de mettre la chaîne Samsam car ce programme à été fait de façon à être compatible avec les TI-82.

Sangohan38

Google_AdSense

Thahyarrow

Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 25 Oct 2012, 18:03

Posté le : Jeu 25 Oct 2012, 18:05

Salut moi j'ai un problème avec cette ligne la:

:If D=2:ú1->D

Par quoi dois-je remplacer le ú ?
Merci d'avance

blg_flg

Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Jeu 25 Oct 2012, 18:39

Il me semble qu'il s'agit du moins "de la négativité" (à gauche du [enter]).

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Race

Flux RSS