Autorisation : Membre
Nb de messages : 5
Inscrit le : Mar 24 Sep 2013, 18:28
Posté le : Mar 24 Sep 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
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 24 Sep 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.
---------------------- 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)
Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Mer 25 Sep 2013, 9: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
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→D
End
While not(H
1+3randInt(1,19→K
2+3randInt(1,29→J
not(pxl-Test(62-K,J+1→H
End
Pt-On(J,K,3
If L=40
0→M
0→I
End
ClrDraw
N+1→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→[Liste]X
If N>1
augment([Liste]X,{34,52,60,52,34,10,42,10,52,10,60,10→[Liste]X
If N>2
augment([Liste]X,{2,31,12,31,22,31,42,31,52,31,72,31,82,31,90,31→[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→[Liste]X
If N>4
augment([Liste]X,{11,41,11,21,23,41,23,21,71,41,71,21,83,41,83,21→[Liste]X
If N>5
augment([Liste]X,{41,41,41,21,53,41,53,21→[Liste]X
If 99-[Liste]X(1
Then
For(X,1,dim([Liste]X),4
[Liste]X(X→A
[Liste]X(X+1→B
[Liste]X(X+2→C
[Liste]X(X+3→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→M
End
Voila essayez un peu de battre mon record (28 ) jvous previens, il est chaud!!!
---------------------- je prefere la ti-82stats a la fumette ^^
jvous previens, il est chaud!!! 
