Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les rsultats

Rsultat de la recherche



Poster un nouveau sujet Poster une rponse Page: 1,      >>
Morpion: mon premier jeu graphique!
Auteur Message
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Lun 19 Nov 2007, 19:35   Citer 

Bon ba c'est mon premier jeu graphique, je pense ya moyen d'conomiser beaucoup de place mais bon c'est un dbut bigmouth.gif
Il faut prendre l'image pour jouer (c'est la table de morpion)

P.S: Je n'ai pas mis d'AI pour la premire version, sa sera pour la prochaine godgrace.gif

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Lun 19 Nov 2007, 20:13   Citer 

reprise du topic precedant

36 ko unknow !!! comme moi^^

j'ai craqu 40 j'en ai fait 8 le truc il m'est tomb dessus karate.gif

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Lun 19 Nov 2007, 20:57   Citer 

? J'ai pas compris godgrace.gif

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicit    



 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Post le : Mar 20 Nov 2007, 11:16   Citer 

Rien, Stupid Butters fait le malin c'est tout winkle.gif

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Mar 20 Nov 2007, 12:51   Citer 

non je fais le malin, je continue le precedant message de unknow, "j'ai souelv 36 kg en muscu" alors qu'il fait 1m60 et 40kg...mito !!! godgrace.gif

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mar 20 Nov 2007, 13:15   Citer 

Voici le code de mon morpion happy.gif
Il n'y a pas d'AI pour cette version... Mais des beaux graphiques godgrace.gif


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
0Xmin
0Ymin
94Xmax
62Ymax
AxesOff
0S
0R
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)
getKeyK
If K=92 and L(1)=0
Circle(25,22,3
If K=92 and L(1)=0
J-1J
If K=92 and L(1)=0
5L(1
If K=93 and L(2)=0
Circle(35,22,3
If K=93 and L(2)=0
J-1J
If K=93 and L(2)=0
5L(2)
If K=94 and L(3)=0
Circle(45,22,3
If K=94 and L(3)=0
J-1J
If K=94 and L(3)=0
5L(3
If K=82 and L(4)=0
Circle(25,32,3
If K=82 and L(4)=0
J-1J
If K=82 and L(4)=0
5L(4
If K=83 and L(5)=0
Circle(35,32,3
If K=83 and L(5)=0
J-1J
If K=83 and L(5)=0
5L(5
If K=84 and L(6)=0
Circle(45,32,3
If K=84 and L(6)=0
J-1J
If K=84 and L(6)=0
5L(6
If K=72 and L(7)=0
Circle(25,42,3
If K=72 and L(7)=0
J-1J
If K=72 and L(7)=0
5L(7
If K=73 and L(8)=0
Circle(35,42,3
If K=73 and L(8)=0
J-1J
If K=73 and L(8)=0
5L(8
If K=74 and L(9)=0
Circle(45,42,3
If K=74 and L(9)=0
J-1J
If K=74 and L(9)=0
5L(9
Goto
Lbl 1
Line(85,35,88,38)
Line(85,38,88,35)
getKeyK
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+1J
If K=92 and L(1)=0
1L(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+1J
If K=93 and L(2)=0
1L(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+1J
If K=94 and L(3)=0
1L(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+1J
If K=82 and L(4)=0
1L(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+1J
If K=83 and L(5)=0
1L(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+1J
If K=84 and L(6)=0
1L(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+1J
If K=72 and L(7)=0
1L(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+1J
If K=73 and L(8)=0
1L(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+1J
If K=74 and L(9)=0
1L(9)
Goto
End
Lbl 4
ClrDraw
ClrHome
S+1S
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+1R
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



----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Mar 20 Nov 2007, 16:40   Citer 

T'as pas inventles matrices ni les boucles for

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mar 20 Nov 2007, 16:53   Citer 

Non, je ne les aient pas invents mais c'est moi qui ai crer le programme... J'apprend des trucks et je les appliques cupsmiley.gif

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Mar 20 Nov 2007, 16:55   Citer 

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+1J
If K=92 and L(1)=0
1L(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+1J
If K=93 and L(2)=0
1L(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+1J
If K=94 and L(3)=0
1L(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+1J
If K=82 and L(4)=0
1L(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+1J
If K=83 and L(5)=0
1L(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+1J
If K=84 and L(6)=0
1L(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+1J
If K=72 and L(7)=0
1L(7)
If K=73 and L(glasses.gif=0
Line(33,40,37,44)
If K=73 and L(glasses.gif=0
Line(33,44,37,40)
If K=73 and L(glasses.gif=0
J+1J
If K=73 and L(glasses.gif=0
1L(glasses.gif
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+1J
If K=74 and L(9)=0
1L(9)

c'est enorme a, je veux dire dans mon morpion a preniat large moisn de place

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mar 20 Nov 2007, 16:57   Citer 

C'est cool mais moi je commence a peine donc voil quoi c'est dj pas mal! godgrace.gif

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Mar 20 Nov 2007, 17:00   Citer 

uais aussi faut dire que sur un programme j'avais

;output(1,1,1
:Output(1,1,2
;output(1,1,3
:Output(1,1,4
;output(1,1,5
:Output(1,1,6
;output(1,1,7
:Output(1,1,8
;output(1,1,9
:Output(1,1,0

c'est pas mieux^^

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mar 20 Nov 2007, 19:34   Citer 

Ceux qui l'ont test vous en pensez quoi?
P.S: Je suis en train de faire un Snake graphique

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Post le : Mar 20 Nov 2007, 20:58   Citer 

D'abord bravo pour ton premier programme, ne te dcourage pas happy.gif

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 (normment en fait^^) connatre les For(

Rapidement:

For( prend trois arguments et un quatrime 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 incrmenter), 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 entrs, 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 rpte, c'est dj trs bien que tu aies russis ce programme, c'est trs bien pour un premier programme, je ne peux que t'encourager !

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mar 20 Nov 2007, 21:10   Citer 

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 happy.gif ! Mais pour l'instant je suis en train de faire un snake graphique, je l'aurais surement fini demain ou aprs-demain.

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Post le : Mar 20 Nov 2007, 21:18   Citer 

une vingtaine de ligne?

je te met au defi d'y arriver en en faisant moins de 25...et sans utiliser prgm

 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mer 21 Nov 2007, 15:59   Citer 

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

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Post le : Mer 21 Nov 2007, 16:01   Citer 

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 peubte car avec plus de lignes mais moins de caractres j'aurais pu conomiser un trs grand nombre d'octet(a m'a presque fait mal de coder aussi salement^^)
Mais bon 20 lignes c'est 20 lignes.
On peut mme 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



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mer 21 Nov 2007, 16:06   Citer 

Et y'aurrais maoyen d'avoir rponse ma question? godgrace.gif

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Post le : Mer 21 Nov 2007, 16:44   Citer 

Dsol j'ai commenc crire mon message il n'y avait pas ta question^^

Donc malheureusement non impossible de selectionner une colonne comme a sad.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
W[a]nTeD
Avatar

Autorisation : Membre
Nb de messages : 51
Inscrit le : Mar 13 Nov 2007, 18:54
Post le : Mer 21 Nov 2007, 16:49   Citer 

Ok merci, donc faut faire: [A](3,1)+[A](3,2)+[A](3,3) si j'ai bien compris?

----------------------
Pour les amateurs de Counter Strike Source et 1.6 http://hight-lxf.forumsactifs.com/
Je recrute beaucoup!!!
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une rponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page gnre en 9 requtes
BlackOne par Grimmlink
 

Site hberg par Free Page sous licence creative commons Page valide par le W3C (XHTML 1.0 Transitional) Feuille de style valide par le W3C Flux RSS 2.0 valide Page tiquete par l'ICRA Page teste par Ocawa