Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Posté le : Lun 19 Nov 2007, 19:35
Bon ba c'est mon premier jeu graphique, je pense ya moyen d'économiser beaucoup de place mais bon c'est un début
Il faut prendre l'image pour jouer (c'est la table de morpion)
P.S: Je n'ai pas mis d'AI pour la première version, sa sera pour la prochaine
Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Posté le : Mar 20 Nov 2007, 13:15
Voici le code de mon morpion
Il n'y a pas d'AI pour cette version... Mais des beaux graphiques
Code
ClrHome
Output(3,3,"LE MORPION
Output(4,5,"V1.1
Output(6,6,"BY :
Output(7,2,"ROBIN CARAYOL
For(T,11,900)
End
0üXmin
0üYmin
94üXmax
62üYmax
AxesOff
0üS
0üR
Lbl 7
ClrHome
ClrDraw
Menu("MORPION V1.1","JOUER/CONTINUER!",8,"INFOS",9,"QUITTER",10
Lbl 9
ClrHome
ClrDraw
Text(0,10,"MORPION VERSION 1.1
Text(6,15,"BY : ROBIN CARAYOL
Text(20,5,"BUT DU JEU :
Text(26,0,"ALIGNER TROIS MEMES SIGNE
Text(40,0,"POUR TOUT RENSEIGNEMENT :
Text(46,0,"ROBIN.CARAYOL A HOTMAIL.FR
Circle(52,13,3
Pause
Goto 7
Lbl 8
randInt(1,2)üJ
{0,0,0,0,0,0,0,0,0}üL
ClrHome
ClrDraw
RecallPic 5
Text(14,55,"JOUER :"
Text(22,55,"JOUEUR 1
Text(28,55,"JOUEUR 2
Lbl Á
Repeat K=45
If L(1)+L(2)+L(3)=3 or L(4)+L(5)+L(6)=3 or L(7)+L(8)+L(9)=3 or L(1)+L(4)+L(7)=3 or L(2)+L(5)+L(8)=3 or L(3)+L(6)+L(9)=3 or L(1)+L(5)+L(9)=3 or L(3)+L(5)+L(7)=3
Goto 4
If L(1)+L(2)+L(3)=15 or L(4)+L(5)+L(6)=15 or L(7)+L(8)+L(9)=15 or L(1)+L(4)+L(7)=15 or L(2)+L(5)+L(8)=15 or L(3)+L(6)+L(9)=15 or L(1)+L(5)+L(9)=15 or L(3)+L(5)+L(7)=15
Goto 5
If L(1)ø0 and L(2)ø0 and L(3)ø0 and L(4)ø0 and L(5)ø0 and L(6)ø0 and L(7)ø0 and L(2)ø0 and L(9)ø0
Goto 6
Pt-Off(85,35)
Pt-Off(85,38)
Pt-Off(88,38)
Pt-Off(88,35)
Pt-Off(86,36)
Pt-Off(86,37)
Pt-Off(87,37)
Pt-Off(87,36)
Pt-Off(85,30)
Pt-Off(85,33)
Pt-Off(88,33)
Pt-Off(88,30)
Pt-Off(86,31)
Pt-Off(86,32)
Pt-Off(87,32)
Pt-Off(87,31)
If J=1
Goto 1
If J=2
Line(85,33,88,30)
Line(85,30,88,33)
getKeyüK
If K=92 and L(1)=0
Circle(25,22,3
If K=92 and L(1)=0
J-1üJ
If K=92 and L(1)=0
5üL(1
If K=93 and L(2)=0
Circle(35,22,3
If K=93 and L(2)=0
J-1üJ
If K=93 and L(2)=0
5üL(2)
If K=94 and L(3)=0
Circle(45,22,3
If K=94 and L(3)=0
J-1üJ
If K=94 and L(3)=0
5üL(3
If K=82 and L(4)=0
Circle(25,32,3
If K=82 and L(4)=0
J-1üJ
If K=82 and L(4)=0
5üL(4
If K=83 and L(5)=0
Circle(35,32,3
If K=83 and L(5)=0
J-1üJ
If K=83 and L(5)=0
5üL(5
If K=84 and L(6)=0
Circle(45,32,3
If K=84 and L(6)=0
J-1üJ
If K=84 and L(6)=0
5üL(6
If K=72 and L(7)=0
Circle(25,42,3
If K=72 and L(7)=0
J-1üJ
If K=72 and L(7)=0
5üL(7
If K=73 and L(8)=0
Circle(35,42,3
If K=73 and L(8)=0
J-1üJ
If K=73 and L(8)=0
5üL(8
If K=74 and L(9)=0
Circle(45,42,3
If K=74 and L(9)=0
J-1üJ
If K=74 and L(9)=0
5üL(9
Goto Á
Lbl 1
Line(85,35,88,38)
Line(85,38,88,35)
getKeyüK
If K=92 and L(1)=0
Line(23,20,27,24)
If K=92 and L(1)=0
Line(27,20,23,24)
If K=92 and L(1)=0
J+1üJ
If K=92 and L(1)=0
1üL(1)
If K=93 and L(2)=0
Line(33,24,37,20)
If K=93 and L(2)=0
Line(33,20,37,24)
If K=93 and L(2)=0
J+1üJ
If K=93 and L(2)=0
1üL(2)
If K=94 and L(3)=0
Line(43,20,47,24
If K=94 and L(3)=0
Line(47,20,43,24)
If K=94 and L(3)=0
J+1üJ
If K=94 and L(3)=0
1üL(3)
If K=82 and L(4)=0
Line(23,30,27,34)
If K=82 and L(4)=0
Line(23,34,27,30)
If K=82 and L(4)=0
J+1üJ
If K=82 and L(4)=0
1üL(4)
If K=83 and L(5)=0
Line(33,30,37,34
If K=83 and L(5)=0
Line(33,34,37,30)
If K=83 and L(5)=0
J+1üJ
If K=83 and L(5)=0
1üL(5)
If K=84 and L(6)=0
Line(43,30,47,34)
If K=84 and L(6)=0
Line(43,34,47,30)
If K=84 and L(6)=0
J+1üJ
If K=84 and L(6)=0
1üL(6)
If K=72 and L(7)=0
Line(23,40,27,44)
If K=72 and L(7)=0
Line(23,44,27,40)
If K=72 and L(7)=0
J+1üJ
If K=72 and L(7)=0
1üL(7)
If K=73 and L(8)=0
Line(33,40,37,44)
If K=73 and L(8)=0
Line(33,44,37,40)
If K=73 and L(8)=0
J+1üJ
If K=73 and L(8)=0
1üL(8)
If K=74 and L(9)=0
Line(43,40,47,44)
If K=74 and L(9)=0
Line(43,44,47,40)
If K=74 and L(9)=0
J+1üJ
If K=74 and L(9)=0
1üL(9)
Goto Á
End
Lbl 4
ClrDraw
ClrHome
S+1üS
Output(3,4,"JOUEUR 1
Output(4,5,"GAGNE
Output(6,2,"JOUEUR 1 :
Output(6,13,S)
Output(7,2,"JOUEUR 2 :
Output(7,13,R
Pause
ClrHome
ClrDraw
Goto 7
Lbl 5
ClrDraw
ClrHome
R+1üR
Output(3,4,"JOUEUR 2
Output(4,5,"GAGNE
Output(6,2,"JOUEUR 1 :
Output(6,13,S
Output(7,2,"JOUEUR 2 :
Output(7,13,R
Pause
ClrHome
ClrDraw
Goto 7
Lbl 6
ClrDraw
ClrHome
Output(4,4,"EGALITE"
Output(6,2,"JOUEUR 1 :
Output(6,13,S
Output(7,2,"JOUEUR 2 :
Output(7,13,R
Pause
ClrHome
ClrDraw
Goto 7
Lbl 10
ClrHome
ClrDraw
Stop
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 20 Nov 2007, 16:55
If K=92 and L(1)=0
Line(23,20,27,24)
If K=92 and L(1)=0
Line(27,20,23,24)
If K=92 and L(1)=0
J+1üJ
If K=92 and L(1)=0
1üL(1)
If K=93 and L(2)=0
Line(33,24,37,20)
If K=93 and L(2)=0
Line(33,20,37,24)
If K=93 and L(2)=0
J+1üJ
If K=93 and L(2)=0
1üL(2)
If K=94 and L(3)=0
Line(43,20,47,24
If K=94 and L(3)=0
Line(47,20,43,24)
If K=94 and L(3)=0
J+1üJ
If K=94 and L(3)=0
1üL(3)
If K=82 and L(4)=0
Line(23,30,27,34)
If K=82 and L(4)=0
Line(23,34,27,30)
If K=82 and L(4)=0
J+1üJ
If K=82 and L(4)=0
1üL(4)
If K=83 and L(5)=0
Line(33,30,37,34
If K=83 and L(5)=0
Line(33,34,37,30)
If K=83 and L(5)=0
J+1üJ
If K=83 and L(5)=0
1üL(5)
If K=84 and L(6)=0
Line(43,30,47,34)
If K=84 and L(6)=0
Line(43,34,47,30)
If K=84 and L(6)=0
J+1üJ
If K=84 and L(6)=0
1üL(6)
If K=72 and L(7)=0
Line(23,40,27,44)
If K=72 and L(7)=0
Line(23,44,27,40)
If K=72 and L(7)=0
J+1üJ
If K=72 and L(7)=0
1üL(7)
If K=73 and L(=0
Line(33,40,37,44)
If K=73 and L(=0
Line(33,44,37,40)
If K=73 and L(=0
J+1üJ
If K=73 and L(=0
1üL(
If K=74 and L(9)=0
Line(43,40,47,44)
If K=74 and L(9)=0
Line(43,44,47,40)
If K=74 and L(9)=0
J+1üJ
If K=74 and L(9)=0
1üL(9)
c'est enorme ça, je veux dire dans mon morpion ça preniat large moisn de place
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 20 Nov 2007, 20:58
D'abord bravo pour ton premier programme, ne te décourage pas
Sinon, il n'est pas si mal mais disons qu'on peut faire un bon morpion en une vingtaine de ligne tout au plus.
Tu gagnerais beaucoup (énormément en fait^^) à connaître les For(
Rapidement:
For( prend trois arguments et un quatrième facultatif , c'est à dire que tu dois lui donner trois information.
Sous cette forme:
Code
For(I,0,100)
*****Ton code*****
End
C'est un exemple. En fait, ce code met 0 dans I, lit le code jusqu'à :End, puis rajoute un à I (on dit incrémenter), et ainsi de suite jusqu'à que I arrive à cent.
En fait par exemple pour remplir un écran ou Ymin=0 et Ymax=62 tu peux écrire ça:
Code
For(I,0,62
Horizontal I
End
Sinon pense aussi à étudier les matrices (comme des listes mais à doubles entrés, c'est à dire des tableaux). C'est facile pour un morpion, tu fais un tableau de 3x3.
Code
{3,3 - > dim([A]
tu peux ensuite tester une case pour voir si elle est remplie ( If [A](X,Y) )
Mais je te le répète, c'est déjà très bien que tu aies réussis ce programme, c'est très bien pour un premier programme, je ne peux que t'encourager !
Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Posté le : Mar 20 Nov 2007, 21:10
Et ba merci bien pour ces conseils (j'ai commencé à programmé il y a 3 ou 4 semaines) donc sa fait plaisir. Je vais essayer de refaire le morpion en faisant ce que tu a dis ! Mais pour l'instant je suis en train de faire un snake graphique, je l'aurais surement fini demain ou aprés-demain.
Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Posté le : Mer 21 Nov 2007, 15:59
Euh, par contre j'ai une petite question:
avec les matices (je sais comment sa marche et tout mais...) est-il possible de "selectionner" toute un ligne? Je m'explique: dans le morpion, quand je joue j'obtient ça par exemple:
Code
1 5 1
5 1 1
5 5 1<==toute cette ligne
Si c'est possible sa me prendrais beaucoup moin de place dans mon jeu
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 21 Nov 2007, 16:01
Je n'avance pas quelque chose quand je n'en suis pas capable, donc voici un morpion vraiment pourrit mais en vingts lignes. Enfin bon 20 lignes c'est un peubête car avec plus de lignes mais moins de caractères j'aurais pu économiser un très grand nombre d'octet(ça m'a presque fait mal de coder aussi salement^^)
Mais bon 20 lignes c'est 20 lignes.
On peut même faire moins en rendant le jeu encore plus pourris mais en restant dans le minimum de jouabilité.
Code
ClrHome
[[0,0,0][0,0,0][0,0,0 -> [A]:1 -> S
Output(3,1," +---+ ! ! ! ! ! ! +---+
While K-22
For(I,1,3
For(J,1,3
If 1=[A](I,J:Output(I+3,J+7,"+
If 2=[A](I,J:Output(I+3,J+7,"*
End:End
Output(8,min(3,max(1,B))+7," "
Output(min(3,max(1,D))+3,5," "
getKey -> K
min(3,max(1,B+(K=26)-(K=24 -> B
max(1,min(3,A+(K=34)-(K=25 -> A
Output(8,B+7,"^
Output(A+3,5,">
If K=21 and not([A](A,B:not(S -> S
[A](A,B)+(S+1)(K=21 and not([A](A,B -> [A](A,B
End
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 06 Jan 2010, 22:55
C'était une liste (L1 par exemple), mais le caractère en indice est illisible sur le forum.
W[a]nTeD : Comme tu débute, je te propose faute de savoir si tu connais, de mettre tous ce qui correspond à un même If entre Then et End
Code
If K=?? and L1(1)=0
Then
Line(...
Line(...
J+1->J
...
End
---------------------- 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 : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 07 Jan 2010, 17:54
Non,c'est la même liste à chaque fois.Le chiffre entre parenthèse c'est l'emplacement dans la liste,il peut aller jusqu'à 9E99.
Il faut que tu remplaces le "" par le numéro de la liste compris entre 1 et 6,et que tu utilise ce numéro à chaque fois.
=0
