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