Forum

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

Snake 82 stats fr

Crazycoder le 24/09/2013 à 18:41
Salut désolé de relancer se type de sujet mais bon.J aimerais savoir si il y a un snake compatible ti-82 stats fr car tous ceux que j'ai recopier ne marche pas

Merci de me repondre

Crazycoder
linkakro le 24/09/2013 à 23:15
-Ils marchent presque tous, pourvu que ce ne soient pas des tentatives inachevées ou des questions. (j'en ai d'ailleurs testé beaucoup moi-même)
-Tous les programmes de ce forum sont compatibles ti82statfr, même si pas forcément efficace. Les seules différences visibles et à changer soit même entre ti82 et 82statfr sont des priorités opératoires.

Celui de Ratuss a seulement deux complications selon moi : la fonction iPart susceptible de porter à confusion avec partEnt et ent puisque TI a commis une ereur de traduction, et l'autre ambiguité, la priorité opératoire des entiers aléatoires.

Celui de Vibra a quelques coquilles normalement faciles à corriger. Il est de plus basé sur celui de Ratuss.

Celui de sandro est court et fonctionnel.

Ne cherche pas le mien, j'ai ai fait un mauvais il y a longtemps (2009) et je n'ai pas posté sur forum celui de 2012.

Celui de Polymorph est un micmac de versions mais marche, au moins la version 1.6. (celle que j'ai uploadé moi-même et conservé)

Autre ?

Si tu ne veux pas polluer les autres sujets par des questions, pour une raison ou pour une autre, on peut chercher les problèmes entre nous ici. On a besoin des emplacements et types d'erreur.
rpgcreator le 25/09/2013 à 09:50
le meilleur en basic, c'est le FSNAKE de THePH!
Vraiment le plus beau et le plus rapide des snakes en basic!!!
Tellement qu'il se frotterait a une version assembleur...
Essaie le, ca fait que 1400 octets et c'est vraiment la classe glasses.gif glasses.gif

https://espace-ti.forumactif.c[...]highlight=snake

pour ceux qui n'ont pas accesa espace ti:

Code

ClrHome
Output(1,3,"FSNAKE  V1.3
Output(3,8,"PAR
Output(5,7,"Xpro
Output(8,2,"HIGH SCORE:
Output(8,14,Z[n italique]Min
Normal
PlotsOff
AxesOff
FnOff
GridOff
For(A,1,999
End
0→Xmin
94→Xmax
0→Ymin
62→Ymax
0→N
0→P
0→O
39→dim([Liste]Y
1→M
ClrDraw
Lbl 0
Repeat 0
Fill(99,[Liste]Y
[Liste]Y→[Liste]X
49→B
47→A
34→D
1→E
10→L
0→H
0→I
Horizontal 0
Horizontal 1
Horizontal 2
Horizontal 60
Horizontal 61
Horizontal 62
Vertical 0
Vertical 1
Vertical 2
Vertical 3
Vertical 91
Vertical 92
Vertical 93
Vertical 94
getKey
While M
While H
While not(I)D=24
D→C
Repeat Ans+I
A-3→A
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→[Liste]Y(E
B→[Liste]X(E
1+E(E[Pas egal]L→E
Pt-Off([Liste]Y(E),[Liste]X(E),2
getKey
End
Ans→D
End
While not(I)(D=25
D→C
Repeat Ans+I
B+3→B
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→[Liste]Y(E
B→[Liste]X(E
1+E(E[Pas egal]L→E
Pt-Off([Liste]Y(E),[Liste]X(E),2
getKey
End
Ans→D
End
While not(I)(D=26
D→C
Repeat Ans+I
A+3→A
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→[Liste]Y(E
B→[Liste]X(E
1+E(E[Pas egal]L→E
Pt-Off([Liste]Y(E),[Liste]X(E),2
getKey
End
Ans→D
End
While not(I)(D=34
D→C
Repeat Ans+I
B-3→B
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→[Liste]Y(E
B→[Liste]X(E
1+E(E[Pas egal]L→E
Pt-Off([Liste]Y(E),[Liste]X(E),2
getKey
End
Ans→D
End
If D=21
Pause
If D=45
Then
Lbl 2
ClrHome
Output(2,7,"GAME
Output(3,7,"OVER
Lbl 3
ClrDraw
10N+(L-10)/3+O→O
If O>Z[n italique]Min
Then
O→Z[n italique]Min
Output(5,3,"NOUV. HIGH
End
Output(6,5,"SCORE:
Output(6,11,O
DelVar [Liste]X
DelVar [Liste]Y
Return
End
If I
Then
If A=J and B=K
Then
Pt-Off(J,K
L+3→L
0→I
0→H
Else
For(A,3,31
Horizontal A
Horizontal 62-A
End
P+1→P
If P=3
Goto 2
(L-10)/3+O→O
0→M
N-1→N
Goto 0
End
End
If D<24 or D>26 and D[Pas egal]34
C&#8594;D
End
While not(H
1+3randInt(1,19&#8594;K
2+3randInt(1,29&#8594;J
not(pxl-Test(62-K,J+1&#8594;H
End
Pt-On(J,K,3
If L=40
0&#8594;M
0&#8594;I
End
ClrDraw
N+1&#8594;N
If N=7
Then
ClrHome
Output(1,4,"BRAVO!!!
Output(3,2,"TU A GAGNE!!
Goto 3
End
If N
{32,9,32,53,62,9,62,53&#8594;[Liste]X
If N>1
augment([Liste]X,{34,52,60,52,34,10,42,10,52,10,60,10&#8594;[Liste]X
If N>2
augment([Liste]X,{2,31,12,31,22,31,42,31,52,31,72,31,82,31,90,31&#8594;[Liste]X
If N>3
augment([Liste]X,{2,52,12,52,22,52,72,52,82,52,90,52,2,10,12,10,22,10,42,10,52,10,72,10,82,10,92,10&#8594;[Liste]X
If N>4
augment([Liste]X,{11,41,11,21,23,41,23,21,71,41,71,21,83,41,83,21&#8594;[Liste]X
If N>5
augment([Liste]X,{41,41,41,21,53,41,53,21&#8594;[Liste]X
If 99-[Liste]X(1
Then
For(X,1,dim([Liste]X),4
[Liste]X(X&#8594;A
[Liste]X(X+1&#8594;B
[Liste]X(X+2&#8594;C
[Liste]X(X+3&#8594;D
If A=C
Then
Line(A-1,B,A-1,D
Line(A+1,B,A+1,D
Else
Line(A,B-1,C,B-1
Line(A,B+1,C,B+1
End
Line(A,B,C,D
End
End
1&#8594;M
End



Voila essayez un peu de battre mon record (28 ) godgrace.gif jvous previens, il est chaud!!! godgrace.gif laugh.gif
Crazycoder le 25/09/2013 à 13:55
Merci il marche parfaitement happy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.