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 Page: 1, ,      >>
Cubefield
Auteur Message
f/x=x²
Invité
Posté le : Sam 19 Fév 2011, 20:51   Citer 

Récemment, j'ai découvert un autre de ces jeux à la con horriblement addictifs qui servent juste à passer le temps : le Cubefield.
Et donc j'en ai fait une version TI, que je vous poste ici.
L'avantage c'est qu'il est tout léger puisqu'il ne prend que 495 ko.
Alors pour éviter que vous ne recopiiez (oui oui il faut bien 2 "i" j'ai pas fait de faute godgrace.gif )pour rien, j'ai vérifié et il marche.
Attention ici [A] est une matrice, que vous obtiendrez en faisant 2nde + x-1 (Donc Matrice) + 1.
Sto c'est la touche juste au-dessus de "On".
[THETA] c'est Alpha + 3.
Le [INFERIEUR A] se trouve en faisant 2nde + math + 5 et le [DIFFERENT DE] se trouve en faisant la même chose mais en remplacant le 5 par un 2.Puis pour le [SUPERIEUR A], pareil avec un 3. Et pour le =, pareil mais avec un 1. Non ,je ne vous prend pas pour des cons godgrace.gif , mais c'est pour si y a des débutants qui veulent taper ce prog sur leur calto (on sait jamais, c'est beau de rêver clown.gif )
prgmCUBEFILD

Code
Lbl [THETA]
Meny ("CUBEFIELD","JOUER",J,"SCORES",S,"QUITTER",Q
Lbl J
Clrhome
1[STO]Z
Delvar [A]
{8,16[STO]dim([A]
50[STO]N
0[STO]M
8[STO]X
For(W,1,7
Disp " "
End
Lbl 0
If Z/20=iPart(Z/20
N-10[STO]N
If M[INFERIEUR A]15 and Z/30=iPart(Z/30
M+1[STO]M
Disp " "
For(V,0,M
randInt (1,16[STO]S
Output(8,S,"[2NDE + 0 + [13 FOIS VERS LE BAS] (le petit carré de 9 pixels)]
1[STO][A](8,S
End
Output(1,X,"V
Output(1,1,Z
getKey[STO]K
X+(K=26 and X[DIFFERENT DE]16)-(K=24 and X[DIFFERENT DE]16)[STO]X
For(W,1,7
rowSwap([A],W,W+1)[STO][A]
End
For(W,1,16
0[STO][A](8,W
End
Z+1[STO]Z
For(W,0,N
End
If [A](1,X)=0
Goto 0
ClrHome
Output(1,X,"V
Output(8,S,"[2NDE + 0 + [13 FOIS VERS LE BAS] (le petit carré de 9 pixels)]
Output(1,1,Z
Output(4,4,"GAME OVER
Pause
ClrHome
Disp "SCORE : "
Output(1,9,Z
If Z[SUPERIEUR A]L6(11
Then
Z[STO]L6(11
Output(4,1,"RECORD BATTU !"
Pause
Goto [THETA]
Lbl S
ClrHome
Output(1,1,"VOTRE HIGH SCORE EST : "
Output(2,8,L6(11
Pause
Goto [THETA]
Lbl Q
ClrHome
Output(1,1,"


Voili voilou, & have fun! happy.gif

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
f/x=x²
Invité
Posté le : Sam 19 Fév 2011, 20:58   Citer 

Attention j'ai fait une erreur, à la 2ème ligne c'est "Menu(" au lieu de "Meny(".
C'était une faute! moodforlove.gif

  Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Sam 19 Fév 2011, 21:20   Citer 

deja fait...

ceci dit jeu tres sympa!!

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
f/x=x²
Invité
Posté le : Sam 19 Fév 2011, 21:22   Citer 

Non en fait, c'est pas déjà fait, c'est juste une amélioration par moi du programme déjà fait... moodforlove.gif

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 20 Fév 2011, 13:59   Citer 

Soit les grands esprits se rencontrent, soit tu as pompé sur une des versions de mon programme FLY (cubefield) (a priori la 2)

http://tout82.free.fr/forum/sujet.php?sujet=2303
http://espace-ti.e-monsite.com/rubrique,vos-programmes-jeux,1150538.html
La première version est perdue quelque part sur le forum.


Mais je ne t'en veux pas : si tu l'as amélioré, c'est que tu as bossé toi-même. bigmouth.gif
Une mention de l'origine aurait tout-de-même été plus transparente.

----------------------
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
 Adresse email Haut de page Bas de page 
 
f/x=x²
Invité
Posté le : Dim 20 Fév 2011, 17:18   Citer 

Excuse-moi Linkakro. C'est bien toi qui a fait ce prog moodforlove.gif
Mais je l'ai amélioré avec un menu, un mode scores, des petits carrés qui te foncent dessus au lieu des X, l'affichage du score en direct pendant la partie, le game over qui s'affiche dès que tu as perdu et quelques autres encore.
Mais le prog original vient effectivement de toi.

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Dim 20 Fév 2011, 18:34   Citer 

c'est une v2.0 non officielle...

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 24 Fév 2011, 13:19   Citer 

Je compte appliquer tes améliorations de présentation (v2.3) à ma v4.2 pour faire la 4.3. J'en profiterai pour adopter "cubefield" plutôt que "fly".

----------------------
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
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
f/x=x²
Invité
Posté le : Jeu 24 Fév 2011, 13:28   Citer 

Nan nan, t'as pas le droit, faut me demander avannt!!
Mais non, je rigole! crazy.gif Bien sûr que tu peux mettre mes améliorations, j'en serais ravi minied.gif !

  Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Jeu 24 Fév 2011, 19:02   Citer 

manquerait plus que sa tiens...

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 10 Mar 2011, 21:23   Citer 

CUBEFIELD 4.3
Bien plus puissante et avec l'affichage en plus.
Je savais faire la présentation mais j'étais flemmard.

Vous pouvez remplacer les lFLY par la liste L6 pour les ti82basiques.

Code
"NOYAU CONCU PAR LINKAKRO
"PRESENTATION PAR F/X=X2
1->dim(lFLY
Lbl A
Menu("CUBEFIELD","JOUER",J,"SCORES",S,"QUITTER",Q
Lbl J
DelVar [A]
{7,16}->dim([A]
8->X
0->A
1->N
ClrHome
For(W,1,8
Disp ""
End
Lbl 1
A+1->A
A+1-7iPart(A/7)->B
getKey->K
min(16,max(1,X-(K=24)+(K=26->X
min(15,1+iPart(A/20->N
Disp ""
Output(1,X,"V
If [A](B,X
Goto Z
*row(0,[A],B)->[A]   // *row = *ligne : matrice+droite+E
For(W,1,N
randInt(1,16->D
Output(8,D,"Р       // le petit carré du catalogue
1->[A](B,D
End
Goto 1
Lbl Z
Pause
ClrHome
Disp "GAME OVER
Disp "SCORE=",A
If lFLY(1)<A
Then
Disp "NOUVEAU RECORD
{A->lFLY
End
Lbl S
Disp "RECORD=",lFLY
DelVar [A]
Pause
Goto A
Lbl Q



----------------------
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
 Adresse email Haut de page Bas de page 
 
made2kill
Avatar

Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Lun 14 Mar 2011, 17:06   Citer 

T'es gentil de me citer , mais j'ai changé de nom depuis (mais c'est pas grave).
Alors, j'ai essayé ca et c'est vrai que c'est plus rapide, mais on peut faire mieux:

Remplace:


Citer
Lbl Q



Par:


Citer
Lbl Q
ClrHome
Output(1,1," <- 1 espace



Remplace:


Citer
Disp "GAME OVER
Disp "SCORE=",A
If lFLY(1)<A
Then
Disp "NOUVEAU RECORD
{A->lFLY
End



Par:


Citer
Output(1,X,"V
Output(8,D,"Ð //le petit carré du catalogue
Output(4,4,"GAME OVER
Pause
ClrHome
Output(1,1,"SCORE="
Output(1,7,A
If lFLY(1)<A
Then
Output(2,1,"NOUVEAU RECORD !
A->lFLY
End
Pause
Goto A



Et autres encore, mais là j'ai la flemme de chercher, donc voilà.

----------------------
Aussi connu sous le nom de f/x=x².
 Adresse email Haut de page Bas de page 
 
Implosion
Invité
Posté le : Mer 30 Nov 2011, 23:12   Citer 

happy.gif j'aime ce programme. Question du noob juste comme ça : C"EST QUOI LES TOUCHES POUR DEPLACER LE VAISSEAUUUUUUUUUUUUUUUUUUUU !!!!!!!!!???????
Merci de vos futures reponses.

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 30 Nov 2011, 23:50   Citer 

droite et gauche

----------------------
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
 Adresse email Haut de page Bas de page 
 
Implosion
Invité
Posté le : Jeu 01 Déc 2011, 14:36   Citer 

Alors c'est officiel ,il ne marche pas sur ma TI 82 stats fr. Je peux pas bouger le vaisseau, donc j'me prend un carré et jcreve.

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 01 Déc 2011, 17:10   Citer 

Les déplacements sont gérés dans cette partie :
Code
getKey->K
X-(K=24)+(K=26)->X
min(max(1,X),16->X

Ce code est conçu dans un éditeur 83 et testé sur ma 82statfr.

----------------------
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
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Jeu 01 Déc 2011, 17:14   Citer 

D'ailleurs tupeut simplifier cette fonction:


Code
Getkey -> K
min(16,max(1,X+(K=26)-(K=24 -> X



----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 01 Déc 2011, 17:16   Citer 

Oui, je ne pensais pas à ça à l'époque.
J'édite.

----------------------
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
 Adresse email Haut de page Bas de page 
 
Implosion
Invité
Posté le : Jeu 01 Déc 2011, 17:34   Citer 

mh...j'ai utilisé le programme donné tout en haut moi, pas le tien...
Sinon a part ça j'ai remplacé la partie concernant le déplacement et ça marche toujours pas ..

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 01 Déc 2011, 18:01   Citer 

J'espère que tu as appliqué ce changement dans ma version 4.3 et non la 2.3 sinon c'est sûrement normal.

max et min sont dans le menu math
Les parenthèses et virgules doivent être rigoureusement respectées.
Sinon je ne vois pas... surtout que j'y ai joué. ahh.gif

----------------------
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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, ,      >>





  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