Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 2084
Réponses : 17
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Jeux

etdgy le 04/06/2010 à 20:19
Voici cubefield que j'trouve plutot bien https://www.koreus.com/jeu/cubefield.html j'aimerai bien l'avoir sur calto
ci c'est possible bien sur

merci
alexvire le 04/06/2010 à 20:50
En ASM c'est possible, malgré le fait qu'il faut être très fort.
Par contre en TI-BASIC, il faudrait des jours pour finir une partie si on utilise la 3D. Par contre à l'aide de Disp ça pourrait être possible.
darkmory le 04/06/2010 à 23:16
je tente!!!
Persalteas le 05/06/2010 à 09:44
je tente aussi.
mais pas en 3D.
darkmory le 05/06/2010 à 10:49
pareil plutot vu de haut
Lil Pete le 05/06/2010 à 12:38
Citation
Par contre à l'aide de Disp ça pourrait être possible.

je vois ce que tu veut dire, mais on doit aussi pouvoir se débrouiller avec les chaînes et sous chaînes. Enfin pour avoir une map non aléatoire.
Perso j'ai un peu réfléchit mais ça ne vient pas.
linkakro le 06/06/2010 à 01:00
Voici le mien.
Il ne gère pas les meilleurs scores.
Code
:ClrHome
:1->Z
:DelVar [A]
:{8,16}->dim([A]
:50->N
:0->M
:8->X
:For(W,1,7
:Disp ""
:End
:Lbl 0
:If Z/20=iPart(Z/20
:N-10->N
:If M<15 and Z/30=iPart(Z/30
:M+1->M
:Disp ""
:For(V,0,M
:randInt(1,16)->S
:Output(8,S,"X
:1->[A](8,S)
:End
:Output(1,X,"V
:getKey->K
:X+(K=26 et X=/=16)-(K=24 et X=/=1)->X         //édité
:For(W,1,7
:rowSwap([A],W,W+1)->[A]
:End
:For(W,1,16
:0->[A](8,W)
:End
:Z+1->Z
:For(W,0,N
:End
:If [A](1,X)=0
:Goto 0
:ClrHome
:Disp "GAME OVER","SCORE="
:output(2,8,Z


rowSwap = permutligne
dans le menu matrice
[A] est bien sûr une matrice

ps: La gestion des colisions est un peu lourde, donc si vous avez une meilleure solution elle peut m'interresser
Et je ne sais pas si le ralentissement sert à quelque chose.

EDIT: j'ai édité la ligne de déplacement.
Ryuu le 06/06/2010 à 09:37
Pour les meilleurs scores, tu peux utiliser les listes.

Voila ce que ça donne :

Code
:1->dim(L°CUB         // Création de la liste//
:ClrHome
:1->Z
:DelVar [A]
:{8,16}->dim([A]
:50->N
:0->M
:8->X
:For(W,1,7
:Disp ""
:End
:Lbl 0
:If Z/20=iPart(Z/20
:N-10->N
:If M<15 and Z/30=iPart(Z/30
:M+1->M
:Disp ""
:For(V,0,M
:randInt(1,16)->S
:Output(8,S,"X
:1->[A](8,S)
:End
:If X=17:16->X          //Partie éditée
:If X=0:1->X            //
:Output(1,X,"V
:getKey->K
:X+(K=26)-(K=24)->X
:For(W,1,7
:rowSwap([A],W,W+1)->[A]
:End
:For(W,1,16
:0->[A](8,W)
:End
:Z+1->Z
:For(W,0,N
:End
:If [A](1,X)=0
:Goto 0
:ClrHome
:Disp "GAME OVER","SCORE=","MEILLEUR=
:output(2,8,Z
:If not(L°CUB(1      //Vérification du contenu de la liste//
:Z->L°CUB(1
:If Z>L°CUB(1        //Test pour verifier si le nouveau score est plus grand que le meilleur score enregistré//
:Z->L°CUB(1
:Output(3,11,L°CUB(1 //Affichage du meilleur score//


L°->(2nd)+STAT+>+haut+ENTER
linkakro le 06/06/2010 à 11:46
Merci c'est gentil de me montrer, même si je sais faire. J'avais juste la flemme.
Ryuu le 06/06/2010 à 19:15
Désolé ^^'

Il y a juste un léger problème : quand on s'approche des 250, il est presque impossible de continuer.
Persalteas le 09/06/2010 à 18:32
moi je sais pourquoi!!!!

ton programme sature.
sans l'avoir recopié je sais même qu'il va finir par erreur mémoire.

c'est parce que il y a des boucles contenant des goto ou des liens vers d'autres progs.

il faut les enlever.
linkakro le 09/06/2010 à 18:39
Je croyais que quelque soit le type de boucle il y avait ce problème.
Si tu penses que changer de type de boucle est utile j'éditerai mon message.
Metallica le 09/06/2010 à 18:45
Lorsque le "V" sort de l'écran, il y a une erreur: dim invalide sur
Citation
If [A](1,X)=0

Comment résoudre ce problème ?
linkakro le 09/06/2010 à 18:55
As-tu copié mon prog avnt ou après mon édition ?
En effet j'ai édité mon message quelques jours après afin d'empêcher la sortie de l'écran. Mais je me suis peut-être trompé.
Ryuu le 09/06/2010 à 18:55
Il faut rajouter des lignes avant l'affichage de "V".
Code
: If X=17:16->X
: If X=0:1->X


Cette ligne est-elle juste ??
Code
:X+(K=26 et X=/=16)-(K=24 et X=/=1)->X
linkakro le 09/06/2010 à 19:00
J'avais modifié mon programme en éditant, mais la version avec la liste était déjà postée !! (C'est-à-dire celle que vous copiez)
Ryuu le 09/06/2010 à 19:02
Programme édité.
alexvire le 10/10/2010 à 15:29
Pour ceux que ça intéresse ce jeu vient de sortir en ASM sur TI-83+ et TI-84+ seulement, le lien.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.