LE Snake (celui de Ratuss)

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.



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

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).

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

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!

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.

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

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.

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

Sans dec?! Sur mediafire ça le fait?

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

Je n'ai pas de problème avec ton prgm...

Il est énorme, ce snake :=)

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).

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?

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...

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

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.