Autorisation : Membre
Nb de messages : 131
Inscrit le : Mar 24 Mai 2011, 21:39
Posté le : Mer 08 Jui 2011, 21:07
Voici le jeux snake que j'ai trouvé sur un site
Je voudrai trouvé une personne pouvant crée des niveau à ce jeux Merci .
Un sujet pour les caractères inconnu par linkakro : Le voila clique ici (les sto ->,ù,ü ect...)
Et un catalogue des touche sur TI basic par le Modo : persalteas
Le voici clique ici pour télecharger
Code
:ClrDraw
:ZStandard
:ClrHome
:Horizontal -10
:Horizontal 10
:Vertical 10
:Vertical -10
:Text(5,31,"SERPENT"
:Text(15,12,"CREER PAR:MrMONKEY"
:Text(35,15,"TOUT DROIT RESERVE"
:Text(45,28,"2001/2002"
:Text(55,27,"SCORE:"
:Text(55,55,ÖMin
:Pause
:Lbl 8
:ClrHome
:ClrDraw
:ZStandard
:FnOff
:GridOff
:AxesOff
:1üL
:0üÁ
:0üW
:21üT
:50üS
:1üV
:0üU
:Lbl X
:21üT
:50üS
:1üV
:0üU
:0üW
:Lbl 1
:0üXmin
:94üXmax
:1üXscl
:0üYmin
:62üYmax
:1üYscl
:Line(0,6,94,6
:Line(94,6,94,62
:Line(94,62,0,62
:Line(0,62,0,6
:Text(57,0,"SCORE:"
:Text(57,30,Á
:Text(57,50,"STAGE:"
:Text(57,80,L
:Goto 3
:Lbl 2
:getKeyüK
:If K=0
:Goto N
:If K=25
:Then
:ú1üU
:0üV
:End
:If K=34:Then
:1üU
:0üV:End
:If K=26:Then
:1üV
:0üU:End
:If K=24:Then
:ú1üV
:0üU:End
:Lbl N
:T+UüT
:S+VüS
:If pxl-Test(T,S
:Goto L
:Pxl-On(T,S
:Goto 2
:Lbl 3
:int ((rand50)üX
:int ((rand94)üY
:If pxl-Test(X,Y
:Then
:Goto 3
:Else
:Pxl-On(X,Y
:Goto 2
:End
:Lbl L
:If T=X and S=Y
:Then
:Goto P
:Else
:Goto M
:End
:Lbl P
:Á+10üÁ
:W+1üW
:If W=L
:Then
:Goto 6
:Else
:Goto 1
:End
:Lbl 6
:L+1üL
:If L=2
:Goto A
:If L=3
:Goto B
:If L=4
:Goto C
:If L=5
:Goto D
:If L=6
:Goto E
:If L=7
:Goto F
:If L=8
:Goto H
:If L=9
:Goto I
:If L=10
:Goto J
:If L>10
:Goto G
:Lbl A
:ClrDraw
:Line(16,34,78,34
:Goto X
:Lbl B
:ClrDraw
:Line(23,50,23,20
:Line(70,50,70,20
:Goto X
:Lbl C
:ClrDraw
:Line(1,33,32,33
:Line(94,33,60,33
:Line(32,45,32,50
:Line(60,45,60,20
:Goto X
:Lbl D
:ClrDraw
:Line(10,35,83,35
:Line(46,15,46,53
:Goto X
:Lbl E
:ClrDraw
:Line(1,33,32,33
:Line(94,33,60,33
:Line(32,45,32,20
:Line(60,45,60,20
:Line(39,22,53,22
:Line(46,6,46,22
:Line(46,62,46,45
:Line(39,45,53,45
:Goto X
:Lbl F
:ClrDraw
:Line(17,6,17,27
:Line(32,6,32,27
:Line(47,6,47,27
:Line(62,6,62,27
:Line(77,6,77,27
:Line(17,62,17,42
:Line(32,62,32,42
:Line(47,62,47,42
:Line(62,62,62,42
:Line(77,62,77,42
:Goto X
:Lbl H
:ClrDraw
:Line(9,42,35,42
:Line(9,26,35,26
:Line(35,42,35,62
:Line(35,26,35,6
:Line(85,26,59,26
:Line(85,42,59,42
:Line(59,42,59,62
:Line(59,26,59,6
:Goto X
:Lbl I
:ClrDraw
:Line(0,42,85,42
:Line(9,26,94,26
:Line(46,6,46,20
:Line(46,62,46,48
:Goto X
:Lbl J
:ClrDraw
:Line(0,16,85,16
:Line(9,26,94,26
:Line(0,36,85,36
:Line(9,46,94,46
:Line(0,56,85,56
:Goto X
:Lbl G
:ClrDraw
:ClrHome
:Output(1,1,"FELICITATION!
:Output(3,1,"TU AS VAINCU"
:Output(5,1,"MON SERPENT!"
:Pause
:ClrHome
:Stop
:Lbl M
:If Á>ÖMin
:ÁüÖMin
:Output(2,4,"GAME OVER!"
:Output(4,2,"REJOUER? (O/N)"
:Output(7,5,"SCORE:"
:Output(7,11,Á
:Lbl 5
:getKeyüK
:If K=72
:Then
:ClrHome
:Goto 8
:End
:If K=71
:Then
:ClrHome
:ClrDraw
:Stop
:End
:Goto 5
Je sais pas pourquoi le serpent n’arrête pas de grandir *c.a.d, dès le début le serpent s'allonge*, Quelqu'un peux m'aide
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 08 Jui 2011, 22:32
Du premier coup d'oeil je ne voie pas d'où vient le fait que le serpent s'allange en permenance (je crois que c'est W sa longueur). Par contre, qu'entend tu par créer des niveaux ? Est tu sur d'avoir le droit de poster ce programme ici (tu as vérifié si la licence le permet?
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 131
Inscrit le : Mar 24 Mai 2011, 21:39
Posté le : Mer 08 Jui 2011, 22:39
Euh... non j'ai pas vérifié si la licence permet pour mon sujet ;x Mais pour les niveaux c'est mettre plus de 10 Niveaux car je pense qu'on pourrait en mettre. Pourtant mon serpent se trace tous le temps
Désolé si je n'ai pas le droit *Si vous pouvez juste réglé le problème SVP de mon serpent et de Niveaux*
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 08 Jui 2011, 22:50
Tu pourrait s'il te plaît me poster l'adresse précise de ce snake que je puice vérifier s'il n'y a pas de fautes de recopiage. (peut-être un or à la place du and ici:
Code
:Lbl L
:If T=X and S=Y
:Then
:Goto P
:Else
:Goto M
:End
Sino, dis moi, la queu du serpent est-elle immobile ou bouge-t'elle ?
J'ai trouvé l'erreur (mais pas la solution : il n'y a ni "pointoff(", ni "pixeloff(" dans ce programme, la queue ne peut donc pas être effacée.
Vérifie donc bien que tu n'a pas oublié cette ligne et qu'il n'est pas fait mention de ce bug dans la licence ou un autre doc joint.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 08 Jui 2011, 22:53
Je crois qu'il manque carrément la ligne d'effacement : il n'y a ni pt-off ni pxl-off ni text(Y,X," ") ni ligne(Y,X,Y,X,0).
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 08 Jui 2011, 23:04
Tu devrais lire avant de recopier : il est écrit sur le mini descriptif
Citer
un jeu de serpent (pas celui des nokia) qui s'allonge tout le temps avec des niveaux de plus en plus difficile !! (version TI 82/83+)
Le jeux est comme ça et on ne peut je croie rien y faire à moins de reprogrammer ce snake presque de AàZ (il faudrit une liste qui retienne les positions, qui s'actualise (y compris quand on mange),..
Désolé
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 08 Jui 2011, 23:13
Tiens, en voilà un tiré de mon premier bakup (non optimisé)
Code
1üU
Menu(" SNAKE ","FACILE",AA,"MOYEN",AB,"DUR",AC,"QUITTER",QU)
Lbl AA
1üQ
50üR
Goto DE
Lbl AB
3üQ
30üR
Goto DE
Lbl AC
5üQ
15üR
Lbl DE
ClrDraw
0üXmin:94üXmax
0üYmin:62üYmax
AxesOff:ClrDraw
Line(60,0,60,60)
Line(60,60,0,60)
Line(0,0,60,0)
Line(0,0,0,60)
Text(3,63,"-SNAKE-")
Text(13,63,"SCORE:")
Text(23,63,0)
5üdim(L):5üdim(L‚)
1üP
1üA:0üB
5üM:0üÁ
0üS:0üW
0üH
round(rand*20+2,0)üG
For(I,1,M)
6+IüL(I)
GüL‚(I)
Pt-On(2*(6+I),2G)
Pt-On(2*(6+I)+1,2G)
Pt-On(2*(6+I),2G+1)
Pt-On(2*(6+I)+1,2G+1)
End
1üU
Lbl SN
If S=0:Then
Lbl CB
round(rand*26+1,0)üN
round(rand*26+1,0)üO
If pxl-Test(62-2O,2N):Then
Goto CB
End
Pt-On(2N,2O)
If randInt(0,1):Then
Pt-On(2N+1,2O
Else
Pt-On(2N,2O+1)
End
Pt-On(2N+1,2O+1)
1üS
End
For(F,1,R):End
getKeyüK
If K=23:Then
H xor 1üH
If H=1:Then
Text(33,63,"PAUSE")
Else
Text(33,63," ")
End
End
If H=0:Then
If K=24 and A=0:Then ú1üA
0üB
End
If K=25 and B=0:Then
0üA
1üB
End
If K=26 and A=0:Then
1üA
0üB
End
If K=34 and B=0:Then
0üA ú1üB
End
2L(P)üX
2L‚(P)üY
Pt-Off(X,Y)
Pt-Off(X+1,Y)
Pt-Off(X,Y+1)
Pt-Off(X+1,Y+1)
P-1üL
If L=0:Then
MüL
End
L(L)+AüL(P)
L‚(L)+BüL‚(P)
If pxl-Test(62-2L‚(P),2L(P))=1:Then
If L(P)=N and L‚(P)=O:Then
W+MüW
Text(23,63,W)
Á+QüÁ:0üS
If PøM and 1=0:Then
LüLƒ:L‚üL„
For(I,P+1,M)
Lƒ(I)üL(I-P)
L„(I)üL‚(I-P)
End
For(I,1,P)
M-PüZ
Lƒ(I)üL(I+Z)
L„(I)üL‚(I+Z)
End
MüP
End
Else
Text(3,61,"GAME OVER")
Return
End
End
2L(P)üX
2L‚(P)üY
Pt-On(X,Y)
Pt-On(X+1,Y)
Pt-On(X,Y+1)
Pt-On(X+1,Y+1)
P+1üP
If P>M:Then
If Á>0:Then
Á-1üÁ
M+1üM
Müdim(L)
Müdim(L‚)
Else
1üP
End
End
End
Goto SN
Disp "ERREUR"
Lbl QU
Sandro
PS:désolé pour les symboles de TI ProgramEditor et l'inoptimisation mais je tombe de fatigue, c'est donc pour demain
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 09 Jui 2011, 19:18
Voici le meieu en optimisé:
Code
1 -> U
Menu(" SNAKE ","FACILE",AA,"MOYEN",AB,"DUR",AC,"QUITTER",QU
Lbl AA
1 -> Q
50 -> R
Goto DE
Lbl AB
3 -> Q
30 -> R
Goto DE
Lbl AC
5 -> Q
15 -> R
Lbl DE
ClrDraw
0 -> Xmin:94 -> Xmax
0 -> Ymin:62 -> Ymax
AxesOff:ClrDraw
Line(60,0,60,60
Line(60,60,0,60
Line(0,0,60,0
Line(0,0,0,60
Text(3,63,"-SNAKE-
Text(13,63,"SCORE:
Text(23,63,0
5 -> dim(L1):5 -> dim(L2
Effvar BEffvar [théta]Effvar SEffvar WEffvar H1 -> P
1 -> A
5 -> M
Randint(2,22 -> G
For(I,1,M
6+I -> L1(I
G -> L2(I
Pt-On(12+2I,2G
Pt-On(13+2I,2G
Pt-On(12+2I,2G+1
Pt-On(13+2I,2G+1
End
1 -> U
Lbl SN
If not(S:Then
Lbl CB
Randint(1,27 -> N
N -> O
If pxl-Test(62-2O,2N:Then
Goto CB
End
Pt-On(2N,2O
If randInt(0,1:Then
Pt-On(2N+1,2O
Else
Pt-On(2N,2O+1
End
Pt-On(2N+1,2O+1
1 -> S
End
For(F,1,R:End
getKey -> K
If K=23:Then
not(H -> H
If H=1:Then
Text(33,63,"PAUSE
Else
Text(33,63," "
End
End
If not(H=0:Then
If K=24 and not(A=0:Then
Effvar B -1 -> A
End
If K=25 and non(B:Then
Effvar A1 -> B
End
If K=26 and not(A:Then
Effvar B1 -> A
End
If K=34 and not(B:Then
Effvar A -1 -> B
End
2L1(P -> X
2L2(P -> Y
Pt-Off(X,Y
Pt-Off(X+1,Y
Pt-Off(X,Y+1
Pt-Off(X+1,Y+1
P-1 -> L
If not(L
M -> L
A+L1(L -> L1(P
B+L2(L -> L2(P
If pxl-Test(62-2L2(P),2L1(P:Then
If L1(P)=N and O=L2(P:Then
W+M -> W
Text(23,63,W
[théta] +Q -> [théta]:0 -> S
If P[différend de] M and 1=0:Then
L1 -> L3:L2 -> L4
For(I,P+1,M
L3(I -> L1(I-P
L4(I -> L2(I-P
End
For(I,1,P
M-P -> Z
L3(I -> L1(I+Z
L4(I -> L2(I+Z
End
M -> P
End
Else
Text(3,61,"GAME OVER
Return
End
End
2L1(P -> X
2L2(P -> Y
Pt-On(X,Y
Pt-On(X+1,Y
Pt-On(X,Y+1
Pt-On(X+1,Y+1
P+1 -> P
If P>M:Then
If [théta]>0:Then
[théta]-1 -> [théta]
M+1 -> M
M -> dim(L1
M -> dim(L2
Else
1 -> P
End
End
End
Goto SN
Disp "ERREUR
Lbl QU
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 12
Inscrit le : Lun 16 Mai 2011, 18:10
Posté le : Ven 10 Jui 2011, 8:59
Si tu veut je peut te passer un snake de ma composition avec 7 niveaux, un menu de pause, la possibilité de sauvegarder et je passe le reste. Le seul problème c'est qu'il fait 4500 de RAM!
.
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
