Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un petit jeu sympa

Un petit jeu sympa

Auteur

Message

Lodirt

Autorisation : Membre
Nb de messages : 5
Inscrit le : Mer 25 Sep 2013, 21:44

Posté le : Lun 18 Nov 2013, 10:10

Bonjour à tous et à toutes

Je profite de mon heure de trou pour poster mon petit jeu fait en heure de maths ( mais chut faut pas le dire

)
Je n'avais pas d'idée pour le nom ^^
Le but étant de manger les étoiles, vous vous déplacez avec les flèches et vous pouvez faire pause en appuyant sur la touche [2nd]

Voila le code :

Code

prgmJEU ( J’avais pas d’idée de nom ^^ )

:EffEcr
:Output(3,7,"JEU
:Output(4,8,"BY
:Output(5,6,"LODIRT
:Pause
:Lbl 0
:Menu("JEU","JOUER",J,"QUITTER",Q
:Lbl J
:EffEcr
:8->X :4->Y :0->TETA :0->S
:Repeat K=45
:For(I,1,300
:If TETA=0
:Then
:entAléat(2,7->U
:entAléat(1,16->T
:Output(U,T, "*
:1->TETA
:End
:Output(1,1,"SCORE:
:Output(1,8,S
:Output(8,1,"TIME:[7 espaces]/300
:Output(8,9,I
:codeTouche->K
:Output(Y,X,"O */Ici vous pouvez mettre le caractère que vous voulez :)
:If K=24 et X>1
:Then
:Output(Y,X,"[1 espace]
:X-1->X
:End
:If K=25 et Y>2
:Then
:Output(Y,X,"[1 espace]
:Y-1->Y
:End
:If K=26 et X<16
:Then
:Output(Y,X,"[1 espace]
:X+1->X
:End
:If K=34 et Y<7
:Then
:Output(Y,X,"[1 espace]
:Y+1->Y
:End
:If X=0:16->X
:If Y=1:7->Y
:If X=17:1->X
:If Y=8:2->Y
:If X=T et Y=U
:Then
:1+S->S
:0->TETA
:End
:If K=21:Pause
:End
:End
:EffEcr
:Output(3,1,"SCORE :
:Output(3,8,S
:If S>L1(1
:Then
:Output(8,2,"NEW HIGH SCORE
:S->L1(1
:End
:Output(6,1,"HIGH :
:Output(6,8,L1(1
:Pause
:EffEcr
:Goto 0
:Lbl Q
:EffEcr
:Output(1,1,"

Voila, j'ai aussi un petit rpg à mon actif mais j'ai pas vraiment le courage de le recopier

Sauf si vous me le demandez, je me mettrais peut-être à l'écrire

Voila, bon jeu à tous et bon recopiage

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 18 Nov 2013, 19:06

Tu n'affectes pas la variable T.

des ennuis

Code

:For(I,1,500

/////////////.....

:If I=300
:Then
:Goto 1
:End
:End
:End
:Lbl 1

Ce Goto est dans des boucles et cette alternative, ce serait source de problèmes dans d'autres programmes, et en plus Then/End sont facultatifs.
Et pourquoi un Goto pour sortir d'un For alors qu'on est à la fin ??? Adapte juste la borne du For...
EDIT:et la condition du Repeat

Je propose de rassembler les actions suivantes ainsi mais d'imposer l'exécution au début du contenu.

Code

:0->teta

:If TETA=0
:Then
:entAléat(2,7->U
:Output(U,T, "*
:1->TETA
:End

:If X=T et Y=U
:Then
:1+S->S
:0->TETA
:End

///////////////////

// au début // ou bien une meilleure solution si tu en trouves
:entAléat(2,7->U
:Output(U,T, "*

// dans la boucle
:If X=T et Y=U
:Then
:1+S->S
:entAléat(2,7->U
:Output(U,T, "*
:End

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Lodirt

Autorisation : Membre
Nb de messages : 5
Inscrit le : Mer 25 Sep 2013, 21:44

Posté le : Lun 18 Nov 2013, 20:06

Ah oui je vais rectifier ça.
Un petit oublie de ma pars.

Et il est vrai que je n'avais pas pensé à ta solution merci

Je rectifierais plus tard

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 18 Nov 2013, 20:11

Je retire ce que j'ai dit à propos de la condition de sortie sur I : la présence du Repeat s'oppose à ma proposition, il y a quand même un aménagement à faire.

J'avais écrit trop vite ma proposition de rassemblement des fragments de collision et génération des étoiles :
j'avais négligé l'importance de générer l'étoile systématiquement au début.
Cela dit, la répétition du code n'est pas élégante mais rapide.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un petit jeu sympa

Page générée en 6 requêtes

Flux RSS