Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Snake

<< Page: 1, 2, 3, ..., 59, 60, 61 >>

Snake

Auteur

Message

nujik

Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 22 Oct 2006, 16:17

Posté le : Dim 22 Oct 2006, 20:38

ok, merci ... a au fait, j'ai retrouver mon cable qui va avec ma calculatrice, tu pourrait me faire un ptit topo sur le p.82 et comment je fais pour pas avoir a recopier les prog a la main (ou si tu as un lien ou c'est expliquer un peu pres bien ?

)

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 22 Oct 2006, 20:42

T'as quoi comme genre de cable et comme genre de calcu ?

----------------------
--- LISTE DES JEUX POUR TI ---

nujik

Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 22 Oct 2006, 16:17

Posté le : Dim 22 Oct 2006, 23:21

Ben la calcu c'est une ti 83+ et le cable, j'en ai aucune idée, tous se que je sais c'est qu'il va dans la culcu et dans l'ordi ^^ ...

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 23 Oct 2006, 6:55

C'est celui ci ??

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 25 Oct 2006, 19:47

OOOOh mon cable !

Tu télécharge Ti connect, tu branche ton cable a ta calcu et ton ordi, tu te débrouille sur Ti connect, tu recherche tes progs qui serons en .83p
Avec Ti graph link 83+ ANGLAIS, tu copie le prog sur Ti graph link 82.
Tu fait sauvegarder et si ça met une erreue tu cherche.

Sangohan38

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 26 Oct 2006, 8:42

Et Nujik, ce serait sympa que tu me dise quel cable t'as, parce que sache qu'avoir un cable ti pc c'est vraiment un precieux avantage (surtout au niveau des jeux).

Si ces modestes sreenshot peuvent te convaincre

@+

----------------------
--- LISTE DES JEUX POUR TI ---

titeufbig

Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20

Posté le : Dim 29 Oct 2006, 12:16

toujours pas de version anglaise

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 30 Oct 2006, 8:49

Lol, bon puisque vous insistez promis je le fais aujourd'hui...

----------------------
--- LISTE DES JEUX POUR TI ---

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 30 Oct 2006, 16:44

Voila

(vous avez vu j'ai pas menti

)

TOUT est la dedans :
http://www.new-uploader.com/?d=CC0066AC

Code

Pour ti 82 stat - 83 et 83+

Version 0.5 (600 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
:1=>dim(Liste6
:If .7349=fPart(Liste6(1:Liste6(1=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim(Liste4
:99=>dim(Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart(ø),6,(-)iPart(ø)
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart(O
:Lbl 5
:(-)8-5iPart(rand10=>I
:8+5iPart(rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:Lbl 3
:round(1+NfPart(E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs(K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1.7349=>Liste6(1
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION 0.5
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06

Version 1.0 (1200 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O:.7349=>V
:7=>dim(Liste6
:1=>P
:Goto S
:Lbl R
:ClrHome:Disp "BLOQUE
:Pause
:Lbl S
:Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
:Lbl E
:If 39>Liste6(4) or VøfPart(Liste6(4:Goto R
:5=>P:38=>B
:For(ø,23,68,5
:For(Z,13,16
:Line(ø,Z-ø,ø+3,Z-ø
:End
:End
:Goto A
:Lbl F
:If 39>Liste6(5) or VøfPart(Liste6(5:Goto R
:26=>A:6=>P
:For(ø,42,45
:Line(8,20-ø,86,20-ø
:Line(8,(-)ø,27,(-)ø
:Line(67,(-)ø,86,(-)ø
:Line(ø-14,(-)7,ø-14,(-)21
:Line(ø-14,(-)32,ø-14,(-)57
:Line(ø+21,(-)32,ø+21,(-)57
:Line(ø+21,(-)7,ø+21,(-)10
:End
:Goto A
:Lbl G
:If 39>Liste6(6) or VøfPart(Liste6(6:Goto R
:6=>A:7=>P
:For(ø,1,15
:13+5iPart(rand14=>I
:5iPart(rand8+3=>J
:For(Z,0,3
:Line(I,Z-J,I+3,Z-J
:End
:End
:Goto A
:Lbl C
:3=>P
:Lbl D
:If 39>Liste6(3-iPart(P/3)) ou VøfPart(Liste6(3-iPart(P/3:Goto R
:For(ø,7,10
:For(Z,0,45,45
:Line(8,(-)ø-Z,41,(-)ø-Z
:Line(53,(-)ø-Z,86,(-)ø-Z
:End
:For(Z,1,76,75
:Line(ø+Z,(-)11,ø+Z,(-)25
:Line(ø+Z,(-)37,ø+Z,(-)51
:End:End
:If P=3:Goto A
:3=>P
:Lbl B
:If 39>Liste6(P) or VøfPart(Liste6(P:Goto R
:For(ø,27,35
:Line(28,(-)ø,66,(-)ø
:End
:Line(32,(-)31,62,(-)31,0
:P+1=>P
:Lbl A
:If V=fPart(Liste6(P:Liste6(P=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim(Liste4
:99=>dim(Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart(ø),6,(-)iPart(ø)
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart(O
:Lbl 5
:(-)8-5iPart(rand10=>I
:8+5iPart(rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:Lbl 3
:round(1+NfPart(E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs(K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1+V=>Liste6(P
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION 1.0
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06

Code

Pour les 82 :

Version 0.5 (600 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
:1=>dim Liste6
:If .7349=fPart Liste6(1:Liste6(1=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim Liste4
:99=>dim Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart ø,6,(-)iPart ø
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart O
:Lbl 5
:(-)8-5iPart rand10=>I
:8+5iPart rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs (K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1.7349=>Liste61
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION 0.5
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06

Version 1.0 (1200 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O:.7349=>V
:7=>dim Liste6
:1=>P
:Goto S
:Lbl R
:ClrHome:Disp "BLOQUE
:Pause
:Lbl S
:Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
:Lbl E
:If 39>Liste6(4) or VøfPart Liste6(4:Goto R
:5=>P:38=>B
:For(ø,23,68,5
:For(Z,13,16
:Line(ø,Z-ø,ø+3,Z-ø
:End
:End
:Goto A
:Lbl F
:If 39>Liste6(5) or VøfPart Liste6(5:Goto R
:26=>A:6=>P
:For(ø,42,45
:Line(8,20-ø,86,20-ø
:Line(8,(-)ø,27,(-)ø
:Line(67,(-)ø,86,(-)ø
:Line(ø-14,(-)7,ø-14,(-)21
:Line(ø-14,(-)32,ø-14,(-)57
:Line(ø+21,(-)32,ø+21,(-)57
:Line(ø+21,(-)7,ø+21,(-)10
:End
:Goto A
:Lbl G
:If 39>Liste6(6) or VøfPart Liste6(6:Goto R
:6=>A:7=>P
:For(ø,1,15
:13+5iPart rand14=>I
:5iPart rand8+3=>J
:For(Z,0,3
:Line(I,Z-J,I+3,Z-J
:End
:End
:Goto A
:Lbl C
:3=>P
:Lbl D
:If 39>Liste6(3-iPart (P/3)) or VøfPart (Liste6(3-iPart (P/3:Goto R
:For(ø,7,10
:For(Z,0,45,45
:Line(8,(-)ø-Z,41,(-)ø-Z
:Line(53,(-)ø-Z,86,(-)ø-Z
:End
:For(Z,1,76,75
:Line(ø+Z,(-)11,ø+Z,(-)25
:Line(ø+Z,(-)37,ø+Z,(-)51
:End:End
:If P=3:Goto A
:3=>P
:Lbl B
:If 39>Liste6(P) or VøfPart Liste6(P:Goto R
:For(ø,27,35
:Line(28,(-)ø,66,(-)ø
:End
:Line(32,(-)31,62,(-)31,0
:P+1=>P
:Lbl A
:If V=fPart Liste6(P:Liste6(P=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim Liste4
:99=>dim Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart ø,6,(-)iPart ø
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart O
:Lbl 5
:(-)8-5iPart rand10=>I
:8+5iPart rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs (K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1+V=>Liste6(P
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION 1.0
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06

----------------------
--- LISTE DES JEUX POUR TI ---

Wolves

Autorisation : Membre
Nb de messages : 41
Inscrit le : Dim 29 Oct 2006, 16:17

Posté le : Lun 30 Oct 2006, 19:37

Bon moi je vais essayé de faire un snake avec 100 niveau c'est un defi que on sait lancé au lycée alors si quelqu'un peu m'aider se serai sympa par contre question memoire je pense que sa va etre chaut

----------------------
---}http://goldorama.ifrance.com{---

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mar 31 Oct 2006, 10:10

Citer

par contre question memoire je pense que sa va etre chaut

A priori non, faut juste avoir bcp d'imagination lol...

----------------------
--- LISTE DES JEUX POUR TI ---

morstelder

Autorisation : Membre
Nb de messages : 3
Inscrit le : Mer 25 Oct 2006, 13:05

Posté le : Jeu 02 Nov 2006, 17:31

Beua code mais le probleme c'est que le snake ne se supprime pas (il s'alongit mais se deplace pas)
Pour les 100 niveau avec de la memoire (sisi) fait le sur le graph , fait un dessin (stylo et ptchange) et met dans ton prog des rappelimg avec une variable qui prend le score en compte :

Code

niveau=>1
while 1
if score>100
then
niveau+1=>niveau
/*+++ tres gros if avec pour chaque valeur de niveau un rappel image*/

Donc bcp de niveau==bcp de ram

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 02 Nov 2006, 19:35

Rien compris.

Si tu veu pas qu'il s'efface, j'ai déja fait ce snake.

Sangohan38

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 03 Nov 2006, 11:36

1 image =700 octet
100 image = 70 ko

vaut mieux faire avec des ligne( si tu veux mon avis ...

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 03 Nov 2006, 14:27

De plus, la 82 ne peut avoir que 6 images.

Sangohan38

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 03 Nov 2006, 15:19

oui et la ti 82 stat n'en possede 10 en stock alors les 100 levels merci bien lol

----------------------
--- LISTE DES JEUX POUR TI ---

Wolves

Autorisation : Membre
Nb de messages : 41
Inscrit le : Dim 29 Oct 2006, 16:17

Posté le : Ven 03 Nov 2006, 16:27

je n'en sais rien moi

----------------------
---}http://goldorama.ifrance.com{---

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 03 Nov 2006, 16:32

Ba cherche, le brouillon est un bon ami...

Sangohan38

Google_AdSense

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 05 Nov 2006, 20:05

Tu fais avec des ligne( c'est le + simple logiquement...

@+

----------------------
--- LISTE DES JEUX POUR TI ---

Google_AdSense

FulliZing

Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01

Posté le : Jeu 09 Nov 2006, 15:18

désolé mais pour le code snake, la calculette me dit "erreur:domaine" à la ligne

Code

EffDessin
0=>Xmin
94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
1=>dim(Liste6
If .7349=partDéc(Liste6(1:Liste6(1=>O
EffListe Liste4
EffListe Liste5
99=>dim(Liste4
99=>dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50=>A
8+80partDéc((B+D)/80=>B
[couleur=#FF0000]If pxl-Test(A+2,B[là]:Goto 4 [b]<=== ICI [/b][/couleur]
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"
A=>Liste4(E:B=>Liste5(E
codeTouch(=>K
If K=0:Goto 2
If D=72:Then
If K=24:67=>D
If K=26:77=>D
If 1=abs(K-25:44=>C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39=>C
If K=34:49=>C
If K=25 ou K=34:72=>D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1=>N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349=>Liste6(1
Texte(27,31,"GAME OVER
Pause
EffEcr
Output(2,5,"SNAKE NN
Output(3,3,"VERSION 1.0
Output(5,5,"NOUFNOUF
Output(6,5,"06/10/06

----------------------
Quand on cherche on trouve...

<< Page: 1, 2, 3, ..., 59, 60, 61 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Snake

Flux RSS