Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1, , , ..., , ,      >>
Snake
Auteur Message
benjamin
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 06 Oct 2006, 22:35
Posté le : Mar 10 Oct 2006, 16:40   Citer 

Je voulais savoir si qq connaissé un jeu de snake (qui fonctionne) et dont on peut connaitre le code svp.

merci d'avance ! glasses.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 12 Oct 2006, 6:53   Citer 

Salut, perso je suis en train d'en faire un, et que je trouve plutot reussi pour le moment glasses.gif ... l'avantage c'est qu'il est rapide et ne prend que très peu de place bigmouth.gif (400 octets) .

Je le poste dés que j'ai fini...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
benjamin
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 06 Oct 2006, 22:35
Posté le : Jeu 12 Oct 2006, 15:42   Citer 

ok c'est cool ça ! bigmouth.gif
merci d'avance ! glasses.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 13 Oct 2006, 20:55   Citer 

J'en ai fait un, je te le poste dès que je le recopie: il prend 522 octets.

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Sam 14 Oct 2006, 8:21   Citer 

Un comment ? avec le graph ?

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
benjamin
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 06 Oct 2006, 22:35
Posté le : Sam 14 Oct 2006, 9:46   Citer 

ok merci beaucoup, mais esqu'il sera compatible avec ma ti 82 stats ou c'est un snake que pour les ti 82 (pas stats) ?

a+ glasses.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Sam 14 Oct 2006, 10:20   Citer 

Entierement compatbible ti 82 - ti 82 stat clown.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 14 Oct 2006, 11:39   Citer 

Entièrement compatible avec 82 STATS et 82 je l'ai recopier sur les 2 et ça marche.

Et oui, il utilise le graph.

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mar 17 Oct 2006, 6:54   Citer 

Voici le code (pour les stat en francais)



Version 0.5 (600 octets)


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
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"[4 espaces]
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





Version 1.0 (1200 octets) : avec des niveaux en +


Code
EffDessin
0=>Xmin
94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O
7=>dim(Liste6
1=>P
Goto S
Lbl R
EffEcr:Disp "BLOQUE
Pause
Lbl S
Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
Lbl E
If 39>Liste6(4:Goto R
5=>P:38=>B
For(ø,23,68,5
For(Z,13,16
Ligne(ø,Z-ø,ø+3,Z-ø
End
End
Goto A
Lbl F
If 39>Liste6(5:Goto R
26=>A:6=>P
For(ø,42,45
Ligne(8,20-ø,86,20-ø
Ligne(8,(-)ø,27,(-)ø
Ligne(67,(-)ø,86,(-)ø
Ligne(ø-14,(-)7,ø-14,(-)21
Ligne(ø-14,(-)32,ø-14,(-)57
Ligne(ø+21,(-)32,ø+21,(-)57
Ligne(ø+21,(-)7,ø+21,(-)10
End
Goto A
Lbl G
If 39>Liste6(6:Goto R
6=>A:7=>P
For(ø,1,15
13+5ent(NbrAléat14=>I
5ent(NbrAléat8+3=>J
For(Z,0,3
Ligne(I,Z-J,I+3,Z-J
End
End
Goto A
Lbl C
3=>P
Lbl D
If 39>Liste6(3-ent(P/3:Goto R
For(ø,7,10
For(Z,0,45,45
Ligne(8,(-)ø-Z,41,(-)ø-Z
Ligne(53,(-)ø-Z,86,(-)ø-Z
End
For(Z,1,76,75
Ligne(ø+Z,(-)11,ø+Z,(-)25
Ligne(ø+Z,(-)37,ø+Z,(-)51
End:End
If P=3:Goto A
3=>P
Lbl B
If 39>Liste6(P:Goto S
For(ø,27,35
Ligne(28,(-)ø,66,(-)ø
End
Ligne(32,(-)31,62,(-)31,0
P+1=>P
Lbl A
If .7349=partDéc(Liste6(P:Liste6(P=>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
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"[4 espaces]
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(P
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



Ps : ø = alpha+3

@+

--- Edit 17 mars 2014 par Linkakro ---

Méfiez-vous du "ent(0", c'est bien la lettre O, pas le nombre zéro 0.

Il faut corriger le Goto S suivant en Goto R. (voir pages 53 et 54) Sinon le second niveau renvoi au menu.

Code
Lbl B
If 39>Liste6(P:Goto S    /// If 39>Liste6(P:Goto R


Il faut ajouter un guillemet sur TI82 (ni stats ni plus) en fin de Text pour que le Lbl 3 puisse fonctionner. (voir pages 55 et 56)

Code
Texte(A,B,"º"  //// guillemet final indispensable sur TI82 non-stat
Lbl 3


EDIT 10/09/2014 : Xmin est dans le menu var+1. J'en ai assez de le répéter dans la fin du sujet.

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
craminou
Avatar

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
Posté le : Mar 17 Oct 2006, 19:08   Citer 

merci !! bigmouth.gif

 Adresse email Haut de page Bas de page 
 
benjamin
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 06 Oct 2006, 22:35
Posté le : Mar 17 Oct 2006, 20:55   Citer 

Il a l'air bien mais esque tu peux faire les modifs (français - anglais) pour les ti 82 stats (pas fr bien sûr).
merci d'avance ! glasses.gif
a+

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 18 Oct 2006, 6:41   Citer 

Oui bien sur beer.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
titeufbig



Autorisation : Membre
Nb de messages : 33
Inscrit le : Dim 17 Sep 2006, 12:20
Posté le : Mer 18 Oct 2006, 11:22   Citer 

Pour quand la version anglaisE?

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 18 Oct 2006, 17:19   Citer 

Euh ben je sais pas, on va dire vendredi si tout se passe bien eyeonly.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 20 Oct 2006, 21:29   Citer 

C'est vendredi et toujour rien.
PS: Vraiment bien fait ton snake.

@+ Sangohan38 beer.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 22 Oct 2006, 12:53   Citer 

j'ai pas precisé quel vendredi minied.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 22 Oct 2006, 13:52   Citer 

Pff tricheur.
T'aurait pu dire quand t'aurais l temps.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
benjamin
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 06 Oct 2006, 22:35
Posté le : Dim 22 Oct 2006, 19:44   Citer 

hum....

----------------------
 Adresse email Haut de page Bas de page 
 
nujik



Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 22 Oct 2006, 16:17
Posté le : Dim 22 Oct 2006, 20:09   Citer 

heu ... au fait, comment tu sias si un prog de 82 est compatible avec la 83 ou si un un prog de 83 est compatible avec une 82

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 22 Oct 2006, 20:32   Citer 


Citer
hum....



minied.gif minied.gif minied.gif minied.gif minied.gif


Citer
heu ... au fait, comment tu sias si un prog de 82 est compatible avec la 83 ou si un un prog de 83 est compatible avec une 82



Il y a 2 3 fonctions supplementaires sur une ti 83 : par exemple tu peux utiliser 2 lettres dans un lbl, y a la commande RandInt, les "(" ajoutées à pas mal de fonctions etc etc...

Ps : en general, un programme compatible ti 82 est compatible 83

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse Page: 1, , , ..., , ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa