[83] Le snake le plus rapide en basic !!
+3
kindermoumoute
Alexis
ThePH
7 participants
Page 1 sur 2
Page 1 sur 2 • 1, 2 
![[83] Le snake le plus rapide en basic !! Empty](https://2img.net/i/empty.gif)
[83] Le snake le plus rapide en basic !!
par ThePH Ven 28 Jan - 14:07
Voila FSnake un snake en basic que je trouve tres bien faits
Il est assez rapide et a plusieurs niveaux
(il peut rivaliser avec les jeux en assembleur!!)
[n italique] est dans: VARS >> 1 >> [GAUCHE] >> 4
prgmFSNAKE
Voila j'éspere qu'il vas vous plaire.
Si l'envie vous prend de le modifier, dite le moi SVP
Désole je n'ai pas de capture d'écran animée...
Quels logiciel(s) utiliser vous pour cela?
[Vous devez être inscrit et connecté pour voir cette image]
Il est assez rapide et a plusieurs niveaux
(il peut rivaliser avec les jeux en assembleur!!)
[n italique] est dans: VARS >> 1 >> [GAUCHE] >> 4
prgmFSNAKE
- Spoiler:
- 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→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 j'éspere qu'il vas vous plaire.
Si l'envie vous prend de le modifier, dite le moi SVP
Désole je n'ai pas de capture d'écran animée...
Quels logiciel(s) utiliser vous pour cela?
[Vous devez être inscrit et connecté pour voir cette image]
Dernière édition par ThePH le Mar 1 Fév - 15:41, édité 3 fois
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par Alexis Ven 28 Jan - 16:35
Bravo, il est vraiment très fluide et agréable.
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par ThePH Ven 28 Jan - 16:41
Merci beaucoup.
Tu utilise quel logiciel pour tes captures animées (comme sur le site) STP ?
Tu utilise quel logiciel pour tes captures animées (comme sur le site) STP ?
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par Alexis Ven 28 Jan - 16:44
C'est inclus dans l'émulateur que j'utilise WabbitEmu.
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par ThePH Ven 28 Jan - 16:53
Ok merci, on l'utilise comment ? 
:silent:
:silent:
Dernière édition par ThePH le Ven 28 Jan - 16:57, édité 1 fois
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par kindermoumoute Ven 28 Jan - 17:04
Les émulateurs... ici !
Ou sinon, est ce que tu pourrait mettre en ligne la version complète en ligne, ou au moins un code compatible ti editor ?
Ou sinon, est ce que tu pourrait mettre en ligne la version complète en ligne, ou au moins un code compatible ti editor ?
kindermoumoute- Or 4
- Sexe :
Age : 30
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+
Re: [83] Le snake le plus rapide en basic !!
par ThePH Ven 28 Jan - 17:16
je n'ai pas compris ton message? version complete de quoi?
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par kindermoumoute Ven 28 Jan - 18:57
*De ton code, envoie les 3 sources sous forme de .8xp
kindermoumoute- Or 4
- Sexe :
Age : 30
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+
Re: [83] Le snake le plus rapide en basic !!
par ThePH Sam 29 Jan - 10:46
les sources du snake?
Ok je les envois a alexis
Ok je les envois a alexis
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par persalteas Lun 31 Jan - 20:47
moi je ne sais pas comment tu fait pour passer l'animation de mon ordi au forum.
il faut mettre un lien? comment?
il faut mettre un lien? comment?
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [83] Le snake le plus rapide en basic !!
par ThePH Mar 1 Fév - 8:32
regarde les bouton en haut , il y a "heberger une image" tu met le chemin, tu prend le lien et tu le colle dans "image" 
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par kindermoumoute Mar 1 Fév - 15:27
Du coup il faudrait peut-être modifier le premier post de ce sujet, non ? Avant que d'autre s'en rende compte. :D
kindermoumoute- Or 4
- Sexe :
Age : 30
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+
Re: [83] Le snake le plus rapide en basic !!
par ThePH Mar 1 Fév - 15:33
c'est faits sauf pour l'image 
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [83] Le snake le plus rapide en basic !!
par Alexis Ven 4 Fév - 21:43
Programme ajouté au site:
PS: Il est incompatible avec la TI-82 à cause des listes personnalisées.
PS: Il est incompatible avec la TI-82 à cause des listes personnalisées.
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par ThePH Sam 5 Fév - 13:54
au pire change le nom des liste a L1 et L2
ThePH- Or 1
- Sexe :
Age : 29
Messages : 128
Date d'inscription : 26/01/2011
Points Forum : 7
Points Concours : 2
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Lua Nspire
- - TI-82 Stats.fr
- - TI-89
Re: [83] Le snake le plus rapide en basic !!
par Alexis Jeu 28 Avr - 7:33
Je compte m'inspirer de ce Snake pour TI-BASIC+, tu es d'accord ?
Si oui tu acceptes que je le modifie dans le but de l'homogénéiser avec les autres jeux. (Changer quelques interfaces...)
Il me faut aussi ton nom et ton prénom à ajouter dans les crédits. (Tu peux me les envoyer par MP ou e-mail.)
Si oui tu acceptes que je le modifie dans le but de l'homogénéiser avec les autres jeux. (Changer quelques interfaces...)
Il me faut aussi ton nom et ton prénom à ajouter dans les crédits. (Tu peux me les envoyer par MP ou e-mail.)
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par kindermoumoute Sam 30 Avr - 9:55
Rappel : ce n'est pas le sien, celui ci existe depuis plus de 10 ans et les droits sur ce programme sont tombé dans le domaine publique.
kindermoumoute- Or 4
- Sexe :
Age : 30
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+
Re: [83] Le snake le plus rapide en basic !!
par Alexis Sam 30 Avr - 9:59
A ok, il faut donc que j'en trouve un autre, car le mien est très lent...
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [83] Le snake le plus rapide en basic !!
par kindermoumoute Dim 1 Mai - 15:28
Le domaine publique = tu en fais ce que tu veux !
kindermoumoute- Or 4
- Sexe :
Age : 30
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+
Re: [83] Le snake le plus rapide en basic !!
par Alexis Lun 2 Mai - 7:37
Oui je sais mais ça m'embête malgré tout car j'aimerais qu'il soit crée par un membre d'Espace TI. Enfin si j'en trouve pas d'autres je prendrais celui-là.
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Bonobo- Bronze 3
- Sexe :
Age : 34
Messages : 3
Date d'inscription : 16/06/2011
Points Forum : 0
Points Concours : 0
Re: [83] Le snake le plus rapide en basic !!
par Euler Dim 6 Avr - 8:19
Bonjour bonjour,
Voilà, je veux le reproduire sur ma TI, mais je ne vois pas très bien à quoi correspond [liste]X
Pour [liste], j'ai mi ça : L1 mais après, avec le X ça me donne L1X, et forcément, erreur de syntaxe...
Et désolé de peut-être faire ressurgir un vieux sujet...
Voilà, je veux le reproduire sur ma TI, mais je ne vois pas très bien à quoi correspond [liste]X
Pour [liste], j'ai mi ça : L1 mais après, avec le X ça me donne L1X, et forcément, erreur de syntaxe...
Et désolé de peut-être faire ressurgir un vieux sujet...
Euler- Argent 1
- Age : 41
Messages : 10
Date d'inscription : 06/04/2014
Etudes : Lycée Général, Bac S
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - ASM TI-83+ / TI-84+
- - TI-83+.fr
- - TI-84+
- - TI-89
-
Re: [83] Le snake le plus rapide en basic !!
par linkakro Dim 6 Avr - 12:18
Le "L" majuscule de petite taille. Dans le menu 2nde+stat(liste)+droite+haut ou bien dans le catalogue (à la lettre L), 2nde+0+L.
Cela n'existe qu'à partir de la TI82stats/83 et cela permet de créer des listes aux noms personnalisés. C'est plus fiable à sauvegarder que les 6 listes principales.
Tu peux cependant remplacer [Liste]X et [Liste]Y par L1 et L2 car cela ne changera rien au fonctionnement. Seulement cela écrasera d'autres données dans ces listes.
Cela n'existe qu'à partir de la TI82stats/83 et cela permet de créer des listes aux noms personnalisés. C'est plus fiable à sauvegarder que les 6 listes principales.
Tu peux cependant remplacer [Liste]X et [Liste]Y par L1 et L2 car cela ne changera rien au fonctionnement. Seulement cela écrasera d'autres données dans ces listes.
linkakro- Or 4
- Sexe :
Age : 30
Messages : 768
Date d'inscription : 01/07/2010
Etudes : dut geii (elec/info)
Points Forum : 51
Points Concours : 8
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - ASM TI-83+ / TI-84+
- - TI-82 Stats.fr
- - TI-84 Pocket.fr
Page 1 sur 2 • 1, 2
Sujets similaires» [BASIC] astuce If rapide
» Token IDE: logiciel de dévellopement de Basic étendu (Basic, Axe, Grammer, Celtic, Xlib, Omnicalc, DoorcsCS7)
» Snake, comme tout le monde
» [axe] snake
» [AXE] Snake
» Token IDE: logiciel de dévellopement de Basic étendu (Basic, Axe, Grammer, Celtic, Xlib, Omnicalc, DoorcsCS7)
» Snake, comme tout le monde
» [axe] snake
» [AXE] Snake
Page 1 sur 2
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|