Poster un nouveau sujet Poster une réponse
Courses
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: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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink