[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 !!
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 !!
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 !!
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
Re: [83] Le snake le plus rapide en basic !!
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 !!
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 !!
*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 !!
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 !!
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 : 29
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 !!
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 !!
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 !!
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
Re: [83] Le snake le plus rapide en basic !!
ok merci j'ai compris!
persalteas- Platinum 2
- Sexe :
Age : 29
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 !!
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.
Re: [83] Le snake le plus rapide en basic !!
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 !!
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.)
Re: [83] Le snake le plus rapide en basic !!
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 !!
A ok, il faut donc que j'en trouve un autre, car le mien est très lent...
Re: [83] Le snake le plus rapide en basic !!
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 !!
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à.
Re: [83] Le snake le plus rapide en basic !!
j'adore le jeu snake
Bonobo- Bronze 3
- Sexe :
Age : 35
Messages : 3
Date d'inscription : 16/06/2011
Points Forum : 0
Points Concours : 0
Re: [83] Le snake le plus rapide en basic !!
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...
Re: [83] Le snake le plus rapide en basic !!
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
» [83]Snake 1.9, by Polymorph (du revu et corrigé, mais on ne change pas une équipe qui gagne !)
» Token IDE: logiciel de dévellopement de Basic étendu (Basic, Axe, Grammer, Celtic, Xlib, Omnicalc, DoorcsCS7)
» Snake, comme tout le monde
» [AXE] Snake
» [83]Snake 1.9, by Polymorph (du revu et corrigé, mais on ne change pas une équipe qui gagne !)
Page 1 sur 2
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum