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
Courses
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 09 Avr 2007, 19:22   Citer 

Voici un jeu de course avec sauvegarde de score, sauvegarde de nom et des instructions très utiles pour connaitre le jeu.


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



----------------------
 Adresse email Haut de page Bas de page 
 
513
Invité
Posté le : Sam 20 Oct 2007, 18:21   Citer 

Sa veut dire quoi "THETA" et est'ce que sa marche si j'ai juste une ti82 ??
Merci d'avance

  Haut de page Bas de page 
 
-
Invité
Posté le : Sam 20 Oct 2007, 18:36   Citer 

alpha+3

  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