LE  Snake (celui de Ratuss) Hitskin_logo Hitskin.com

Ceci est une prévisualisation d'un thème de Hitskin.com
Installer le thèmeRetourner sur la fiche du thème

Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Tout 82

Jeu 28 Mar 2024 - Bienvenue,

Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe



Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
LE  Snake (celui de Ratuss) EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
LE  Snake (celui de Ratuss) EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
LE  Snake (celui de Ratuss) EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
LE  Snake (celui de Ratuss) EmptyVen 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
LE  Snake (celui de Ratuss) EmptyVen 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
LE  Snake (celui de Ratuss) EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
LE  Snake (celui de Ratuss) EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
LE  Snake (celui de Ratuss) EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
LE  Snake (celui de Ratuss) EmptyJeu 15 Déc 2016 - 10:24 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Aucun utilisateur

Le Deal du moment :
Aliexpress : codes promo valables sur tout le site
Voir le deal

Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

LE Snake (celui de Ratuss)

5 participants

Aller en bas  Message [Page 1 sur 1]

1LE  Snake (celui de Ratuss) Empty LE Snake (celui de Ratuss) Ven 27 Sep 2013 - 22:56

ashtrail

ashtrail
Connaisseur
Connaisseur

Voici chers amis LE Snake (je dis pas que c'est le meilleur mais en tout cas il est très bien, et très célebre). Il a été fait par Ratuss. Je vais le copier pour en faire un lien mais ça va prendre un peu de temps en attendant je ne vous donne que le code.

LE  Snake (celui de Ratuss) Screenshotlr3

lien du topic d'origine : http://tout82.free.fr/forum/sujet.php?sujet=322

Lien pour la version avec les niveaux : http://www.mediafire.com/download/6g3b51g72laua2g/SNAKE.8xp

Lien de la version 1.0 sur TI-Planet : http://ti-pla.net/a370678

Il y a deux versions :


Code:
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

Code:
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



Dernière édition par ashtrail le Mar 8 Oct 2013 - 20:32, édité 3 fois

http://ti-freeworld.fr1.co/

2LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Sam 28 Sep 2013 - 9:00

rpgcreator

rpgcreator
Connaisseur
Connaisseur

c'est vraiment le programme LE plus vu par la communauté tout82. Je l'ai d'ailleurs en personne vu par moi meme.
Personnnellement, je me suis bien amusé avec, surtout celui a niveaux (version 1.0).

3LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Dim 29 Sep 2013 - 18:37

Linkakro

Linkakro
----------------------
----------------------

Le sujet original : http://tout82.free.fr/forum/sujet.php?message=4862
Il est effectivement célèbre sur tout82 et efficace.
Mais il contient quelques méthodes de programmation pas élégantes avec des goto.

Mais pourquoi personne ne remarque le programme de Vibra ?
Il est directement créé à partir de celui de Ratuss avec plus de niveaux.
http://tout82.free.fr/forum/sujet.php?sujet=1143
téléchargement par titozzz http://tout82.free.fr/forum/sujet.php?message=25508#25508

4LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Jeu 3 Oct 2013 - 18:37

ashtrail

ashtrail
Connaisseur
Connaisseur

Un petit up : J'ai tout recopié et je peux avoir un lien sauf que le jeu buggue (j'ai pourtant vérifié mille fois, en fait quand le serpent passe par la ligne du bas celle-ci s'efface et ne se redessine pas. C'est pas super grave mais c'est moche, par ailleurs quand le serpent remonte les degré qui forment se corps n'ont que la moitié inférieur de visible (comme si le serpent était fait de petits u).
Je veux bien votre aide vu que je préférais donner un bon lien.

Au fait c'est la version avec les niveaux!

http://ti-freeworld.fr1.co/

5LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Sam 5 Oct 2013 - 12:55

ashtrail

ashtrail
Connaisseur
Connaisseur

UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP
Ceci est un message jetable.

Bon vous m'aidez ou pas? On ne peut pas laisser un programme sans lien dans les programmes du site! J'aimerais juste une idée ou deux de manière à pouvoir fournir ce lien.

http://ti-freeworld.fr1.co/

6LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Sam 5 Oct 2013 - 13:01

m@thieu41

m@thieu41
----------------------
----------------------

Donne moi le lien vers ton 83p je vais voir ce que je peux faire.

7LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Sam 5 Oct 2013 - 18:01

ashtrail

ashtrail
Connaisseur
Connaisseur

Merci m@t,
voici le lien : http://www.4shared.com/file/yOJM5mst/SNAKE.html
Tu verras ça buggue quand même pas mal et j'arrive pas à voir d'où ça vient.

http://ti-freeworld.fr1.co/

8LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Dim 6 Oct 2013 - 22:24

m@thieu41

m@thieu41
----------------------
----------------------

Tu pourrais pas l'herberger autre part j'arrive pas à le télécharger... Rolling Eyes 

9LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Lun 7 Oct 2013 - 19:11

ashtrail

ashtrail
Connaisseur
Connaisseur

Sans dec?! Sur mediafire ça le fait?

le lien : http://www.mediafire.com/download/6g3b51g72laua2g/SNAKE.8xp

http://ti-freeworld.fr1.co/

10LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Lun 7 Oct 2013 - 20:57

m@thieu41

m@thieu41
----------------------
----------------------

Je n'ai pas de problème avec ton prgm...
LE  Snake (celui de Ratuss) Snake11

11LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mar 8 Oct 2013 - 15:18

Wistaro

Wistaro
Passioné
Passioné

Il est énorme, ce snake :=)

https://www.youtube.com/user/Wistaro

12LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mar 8 Oct 2013 - 20:31

ashtrail

ashtrail
Connaisseur
Connaisseur

Que que quoi... What the f-tuuuu-... Mais... mais... C'est ma caltoche alors? Pasqu'elle est 83+.fr ? (déjà le taptaupe doit être refait pour 83+.fr vu qu'il y a deux fpois plus de mémoire).

http://ti-freeworld.fr1.co/

13LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mar 8 Oct 2013 - 20:38

m@thieu41

m@thieu41
----------------------
----------------------

Tu es vraiment sûr que ça bogue?
J'ai émulé sur 82stast/83/83+/84+ et ça marche impec...
J'ai pas de rom de 83+.fr mais c'est l'équivalent d'une 84+ non?

14LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mar 8 Oct 2013 - 20:40

ashtrail

ashtrail
Connaisseur
Connaisseur

Attends j'essaye sur mon émulateur et je t'envoie un screenplay.

Ça marche impec' sur l'émulateur!

Bon bin j'en sais rien alors...

http://ti-freeworld.fr1.co/

15LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mar 8 Oct 2013 - 21:08

m@thieu41

m@thieu41
----------------------
----------------------

Ah ben c'est vraiment bizarre alors ça...

16LE  Snake (celui de Ratuss) Empty Re: LE Snake (celui de Ratuss) Mer 9 Oct 2013 - 16:00

ashtrail

ashtrail
Connaisseur
Connaisseur

Bin maintenant ça marche... Je comprends de moins en moins... Bref. En revanche le méchant voulait pas me laisser débloquer les niveau j'ai du le hacker. Pour le bug peut-être que j'ai corrigé un bug sans le tester après mais ce serait bizarre surtout que je l'aurais ensuite mis sur mon ordi toujours sans l'avoir testé... Bref c'est un mystère.

http://ti-freeworld.fr1.co/

Contenu sponsorisé



Revenir en haut  Message [Page 1 sur 1]

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum