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
Mon premier jeu !!
Auteur Message
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 09 Nov 2008, 14:54   Citer 

salut tout le monde, voila maintenant 2 ou 3 mois que je programme et je viens de finir mon premier jeu.
Il est tout simple :
-le but du jeu est de toucher le "o" qui se déplace a intervalle régulier d'environs 10 secondes.
-Pour toucher le "o" il faut se déplacer verticalement à l'aide des touches 25 et 34 puis tiré à l'aide de la touche 105.
-La partie dure de 1 à 3 mn.

Voici le code :


Code
clrdraw
fnoff
axesoff
0->Xmin:100->Xmax
0->Ymin:100->Ymax
30->J:0->I
0->G
Menu("Jeu","Durée partie",0,"Quit",B
lbl 0
Menu("durée parti","1 minute",1,"2 minutes",2,"3 minutes",3,"quit",B
Lbl 1
1->M:60->S
goto A
lbl 2
2->M:60->S
goto A
lbl 3
3->M:60->S
goto A
lbl A
Repeat K=22 or M[inferieur ou égal à]0 and S[inferieur ou égal à]0
getkey->K
If S[inferieur ou égal à]0
then
60->S
end
S-0.2->S
M-(0.2/60)->M
Text(2,38,ipart M
text(2,45,"''"
text(2,50,ipart S
text(2,60,"''"
text(55,60,"Score :"
text(55,84,G
J-(K=25)+(K=34)->J
text(J,I,"---"
text(J,I,"   "
ipart 80rand->X
ipart 50rand->Y
If X[inferieur à]20:X+20->X
If Y[inferieur à]5:Y+7->Y
If X[inferieur à]20 and Y[inferieur à]5
then
x+20->X
Y+7->Y
end
text(Y,X,"o"
0->D
repeat D=0 or M=0 or K=22
getkey->K
D+0.2->D
S-0.2->S
M-(0.2/60)->M
text(2,38,ipart M
text(2,50,ipart S
J-(K=25)+(K=34)->J
text(J,I,"---"
text(J+5,I,"   "
If K=105
then
8->T
repeat T=88 or K=22 or T+5[inferieur ou égal à]X and T+6[superieur ou égal à]X and J[inferieur ou égal à]Y+2 and J[superieur ou égal à]Y-2 or D=10
Getkey->K
D+0.2->D
S-0.2->S
M-(0.2/60)->M
t+2->T
text(2,38,ipart M
text(2,50,ipart S
Text(J+1,T,"   -"
If T+5[inferieur ou égal à]X and T+6[superieur ou égal à]X and J[inferieur ou égal à]Y+2 and J[superieur ou égal à]Y-2
then
if D[inferieur ou égal à]3:G+5->G
if D[superieur à]3 and D[inferieur ou égal à]5:G+4->G
if D[superieur à]5 and D[inferieur ou égal à]8:G+3->G
if D[superieur à]8:G+5->G
10->D
End
End
Clrdraw
End
End
Clrdraw
End
clrdraw
If G[superieur à]W:G->W
output(1,1,"fin de la partie"
output(3,1,"Ton scrore:"
output(3,12,G
output(5,1,"Meillieur score:"
output(6,8,W
output(8,2,"By denis10"
stop
lbl B
clrdraw
stop



(-> = sto)

Ce petit jeu a surement quelques défauts, et doit certainement pouvoir être amélioré alors n'ésité pas, donner moi des conseils pour l'améliorer
Si le jeu vous intéresse bonne chances pour recopier le code !!

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 09 Nov 2008, 15:05   Citer 

Serait-il possible d'avoir le code non arrangé, avec les ü et tout, pour le copier dans Ti graph ? Ca me permettrait de le tester directe avec Vti.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 09 Nov 2008, 15:40   Citer 

C'est quoi le code non arangé ?je suis désolé je ne c pas ce que c'est ...

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 09 Nov 2008, 19:46   Citer 

Ben tu vois là, il y a des inférieurs ou égal, des ->, etc... Je voudrais le code à l'état brut.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 09 Nov 2008, 20:20   Citer 

Ben le probléme c que j'ai pas de cable pour la relier à l'ordi. Donc je peux pas le sortir en brut nn ?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Lun 10 Nov 2008, 0:54   Citer 

Ah zut. Bon tan pis alors.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
chakal37



Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
Posté le : Lun 10 Nov 2008, 20:24   Citer 

Comme c'est férier je vais éssayer de le mettre sur ma calculatrice^^, donc peut être que demain tu aura un avis happy.gif

 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Mar 11 Nov 2008, 11:25   Citer 

ok
et bonne chance pour le recopiage !!

 Adresse email Haut de page Bas de page 
 
ToTo
Avatar

Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
Posté le : Mar 11 Nov 2008, 12:02   Citer 

Lol ça va, c'est pas si long que ça. laugh.gif

 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