[PROJET MARIO] Les crédits du jeu

Coucou à tous!

Voici le topic pour parler des crédits du site.

J'ai commencé un petit programme, donnez moi vos avis

Le programme est plutôt léger, comme vous pouvez le voir

Code:


:ClrDraw
:"Mario A game--By--Tout82→Str1
:For(A,1,24,6
:   Text(25,35,sub(Str1,A,6
:   For(C,1,500:End
:End:ClrDraw
:"Persalteas  Matref   Wistaro  Pitos2601  Linkakro Mathieu41 →Str1
:For(A,1,56,10
:   randInt(0,55→D
:   For(B,0,57
:      For(C,1,60:End
:      Text(B,D,sub(Str1,A,10
:   End:ClrDraw:End

Voici un aperçut:

J'ai fait une autre version plus hard, plus classe je trouve mais bon.... Votez pour la meilleure

Code:


:ClrDraw
:"Mario A game--By--Tout82→Str1
:For(A,1,24,6
:   Text(25,35,sub(Str1,A,6
:   For(C,1,500:End
:End:ClrDraw
:"Persalteas  Matref   Wistaro  Pitos2601  Linkakro Mathieu41 →Str1
:For(A,1,56,10
:      For(B,0,57
:      For(C,1,60:End
:               randInt(0,55→D
:      Text(B,D,sub(Str1,A,10
:   End:ClrDraw:End

Et voici le résultat!

 

m@thieu41 a écrit: 

Sa veut dire quoi sa?

wistaro a écrit:"Persalteas  Matref   Wistaro  Pitos2601  Linkakro →Str1

Tu n'as oublié personne?  

m@thieu41 a écrit:

wistaro a écrit:"Persalteas  Matref   Wistaro  Pitos2601  Linkakro →Str1

Tu n'as oublié personne?  

Mince! Désolé!
Je te rajoute, attend 2 minutes stp!

Ok super

Personnellement je préfère la version "soft", parce que l'autre laisse pleins de traces assez désagréables .

Bon travail: simple, léger et agréable

Merci!

J'ai essayé de faire un truck sympa, avec le minimum d'octets

Pito2901 et non pitos2601

pito2901 a écrit:Pito2901 et non pitos2601

Désolé, je corrige sa

Et je préfère la version soft, même si c'est long, au début...

Version soft ou version hard, moi je vote surtout pour une accélération du truc.

Je crois avoir discuté avec Wistaro d'une version Soft plus rapide sur TI-planet, tu devrais la poster, Wiwi.

Oui, je poste sa cet aprés-midi si j'ai le temps.

En fait il suffit d'enlever la boucle For(C, 1,60) qui ne sert, en réalité, qu' à ralentir le programme.

On part donc sur la version "soft", accélérée ?

PS: Il y a une erreur dans mon code, ne recopiez pas tout de suite (soucis à cause de l'ajout de Mathieu41, sur la boucle du sub(). Je corrigerais sa en même temps que la vitesse

Je ne sais pas si c'est ce à quoi Persalteas pensait, mais pourquoi ne pas stocker le nom à afficher dans Ans (Rép), et ainsi ne pas recalculer à chaque fois quelle partie afficher.
Ainsi au lieu de faire:

Code:

:For(A,1,56,10
:   randInt(0,55→D
:   For(B,0,57
:      Text(B,D,sub(Str1,A,10
:   End
:   ClrDraw
:End

Tu pourrais mettre:

Code:

:For(A,1,56,10
:   randInt(0,55→D
:   sub(Str1,A,10
:   For(B,0,57
:      Text(B,D,Ans
:   End
:   ClrDraw
:End

L'appel à la fonction sub ne se ferais qu'une fois par nom, et ce serait plus rapide du coup.

Et ça donne quoi, c'est plus rapide, un petit screenshot please ?

Par contre: on programme pour ti 82stat, donc pas de minuscules

En fait il y a un petit problème: si on accélère, bah ce qu'il y a écrit devient illisible...

Avec des boucles for, tu peux pas résoudre le problème ???

Ca reviendrait à ralentir le prgm, donc autant laisser comme wistaro avait mis

oui, donc on garde la boucle fro(c...) ?

Je pense

J'ai une autre présentation, je vous met le screenshoot et le code dès que possible

En fait il y a un petit problème: si on accélère, bah ce qu'il y a écrit devient illisible...

Non, pas forcément. Wistaro a pris son screenshot sur une TI-84 Plus, donc tournant à 15 MHz.

Une 82 Stats.fr tourne à 6 MHz, donc la vitesse est divisée par 2 et tiers par rapport au screenshot...

Donc sans la boucle For()   

J'ai testé en enlevant la boucle for sur une 82stats, et c'est un peu trop rapide, donc il vaut mieux laisser une boucle, même si on la fait tourner moins longtemps peut être.

J'ai paseu le temps de mettre ma nouvelle version, je m'en occupe demain.

Elle est bien plus simple pour la seconde partie

Essaye de tester sous 83/82stats pour qu'on ait une meilleure évaluation de la vitesse réelle.

Mises à jour des programmes:

J'ai testé avec une ROM TI-82, mais sa m'a fait des signes étranges, du coup je suis resté sur une rom TI-84+. La vitesse réelle du programme sera donc divisé par 2

Version simple:

Code:

:ClrDraw
:"MARIO A GAME++BY++TOUT82→Str1
:For(A,1,24,6
:   Text(25,35,sub(Str1,A,6
:   For(C,1,500:End
:End:ClrDraw
:"PERSALTEAS  MATREF   WISTARO  PITO2901   LINKAKRO MATHIEU41 →Str1
:DelVar B
:While B≤35
:   For(A,1,56,10
:      randInt(10,55→D
:      Text(B,D,sub(Str1,A,10
:      B+11→B
:   End:End

Version défilement:

Code:

:ClrDraw
:"MARIO A GAME--BY--TOUT82→Str1
:For(A,1,24,6
:   Text(25,35,sub(Str1,A,6
:   For(C,1,500:End
:End:ClrDraw
:"PERSALTEAS  MATREF   WISTARO   PITO2901  LINKAKRO MATHIEU41 →Str1
:For(A,1,56,10
:   randInt(0,55→D
:   For(B,0,57
:      Text(B,D,sub(Str1,A,10
:   End:ClrDraw:End

La version défilement, je trouve pas ça terrible, et c'est pito2901, mon pseudo...

pito2901 a écrit:La version défilement, je trouve pas ça terrible, et c'est pito2901, mon pseudo...

J'ai corrigé :p

Pourquoi tu aimes pas? Trop rapide?

C'est beaucoup trop long pour tous les noms qu'il y a à afficher...

Les credits du site seront affichés que quand le jeu est finit, non? Donc pourquoi le faire très rapide ?

Juste le défilement des pseudos, c'est un peu trop long, après c'est mon avis perso...