Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.

Forum Casio - Autres questions


Index du Forum » Autres questions » Création d'une IA Pac-Man
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Création d'une IA Pac-Man

Posté le 17/03/2012 19:25

Bonjour tout le monde !
Alors voilà je vais pas passer par 4 chemin et je déballe mon problème :

Comme aucun des pac-man que j'ai rencontré jusqu'ici ne me plaisait, j'ai décidé de faire le mien.

Il marche en intégralité, sauf que je ne sait pas programmer l'IA des "Phantom" du jeu originel, et que le temps d'affichage ( après les mouvements ) sont un peu long :/
Pour les "dessins" des personnages j'utilise des F-Line ( si vous avez un meilleur solution, je suis friand )
Et pour les IA j'utilise rien vu que je vois pas comment faire.

PierrotLL m'avait déjà parler d'une histoire de théorème de Pythagore, mais je ne voit pas comme placé ce théorème dans mon code

( Je suis entrain de copié mon code sur l'ordi [ et oui j'ai tout fait sur la calto x) ] sa m'a prit un temps fou x) )

Merci d'avance a vous, qui prendrait le temps de me répondre


Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 18/03/2012 04:30 | #


Pierrot, j'ai essayé ton code, mais comme A et B sont déjà utilisé, j'ai modifié A par Q et B par R et sa ne marche pas T-T
Oui car A et B comme X et Y sont utilisé pour le pacman
Ne0tux Hors ligne Membre d'honneur Points: 3505 Défis: 265 Message

Citer : Posté le 18/03/2012 08:30 | #



Qu'est-ce qui ne fonctionne pas exactement ?

J'ai compris que tu avais modifié les variables A et B en Q et R mais tu ne l'as fait que 6 fois n'est-ce pas ?

J'entends par là qu'il ne faut pas modifier le "A" de "Mat A"...

Voilà, en espérant aue cela puisse t'aider, bon courage !

Mes principaux jeux : Ice Slider - CloneLab - Arkenstone

La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Totoyo Hors ligne Membre d'honneur Points: 16068 Défis: 102 Message

Citer : Posté le 18/03/2012 10:05 | #



Si d'aventure tu voulais tester les deux, rien ne t'en empêche ! Pour le Drawstat, le lien de Totoyo est le plus avisé et si tu veux te pencher sur les Str, je te propose de consulter ce tuto.

merci de faire de la pub pour mon tuto, ne0tux

Limachi, tu as amélioré ton tutoriel ? La description de StrCmp est toujours fausse. De même pour StrMid qui est incomplète. Voilà pourquoi je ne le mets pas en avant. Pour les autres fonctions, ça m'a l'air ok.
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 18/03/2012 12:13 | #




Qu'est-ce qui ne fonctionne pas exactement ?

J'ai compris que tu avais modifié les variables A et B en Q et R mais tu ne l'as fait que 6 fois n'est-ce pas ?

J'entends par là qu'il ne faut pas modifier le "A" de "Mat A"...

Voilà, en espérant aue cela puisse t'aider, bon courage !


Deux base, j’utilise la Matrice B et non, sa je ne l'ai pas changé, car sinon, erreur dimension car ce n'est pas la bonne matrice

Non je vais écrire mon code ( + signaler l'erreur entre parenthèse ) :

Deg
41->P
33->Q
Text P,Q,"#" ( une "#" pour tester plus tard le Phantom )
1000->N
0->M
{-1,0,1,0}->List 1
{0,-1,0,1}->List 2
For1->0 To 4
P+List 1->R
Q+List 1->S
[SQRT]((E-R)²+(F-S)²)->Z
If Mat B[S,R] ( -> Ici l'erreur dimension ) And A<D
Then Z->N
I->C
Next
M=1=>P-6->P
M=3=>P+6->P
M=2=>Q-6->Q
M=4=>Q+6->Q

Voila Je ne sais absolument pas pourquoi il y a une errreur dimension

En espérant que vous puissiez m'aidez =)
Cartix Hors ligne Membre Points: 2748 Défis: 98 Message

Citer : Posté le 18/03/2012 12:53 | #


Il manque un ''IfEnd'' dans le code de PLL, donc dans le tien aussi.
For 1->0 ? Ca serait aps plutot for 1->I ?
Elle a quelle taille ta matrice ?
Pierrotll Hors ligne Ancien administrateur Points: 5488 Défis: 41 Message

Citer : Posté le 18/03/2012 12:56 | #


Tu as toujours le même problème dont je te parle depuis le début.
Les coordonnées doivent être par rapport à la matrice, pas par rapport à l'écran !
Quand tu fais P-6->P ça veut dire que le perso se déplace de 6 cases ? Non, il se déplace de 6 pixels, mais l'affichage on s'en fout ici. Au moment de l'affichage tu n'as qu'à mettre Text 6P,6Q,"#"
Ne0tux Hors ligne Membre d'honneur Points: 3505 Défis: 265 Message

Citer : Posté le 18/03/2012 12:58 | #


A première vue, il y a un soucis au niveau de la boucle "For". En effet, tu n'as pas mis de variable : tu mets "1" dans "0", ce qui n'est pas possible !
Je pense que tu devrais corriger et mettre un "I"...

Il semblerait qu'il y ait confusion au niveau des variables S et R, d'où l'erreur dimension. En effet, si tu relis bien le programme, tu t'apercevras que dès le début R vaut au moins 40 et Q 32, ce qui est énorme ! Comme le dit PLL, il ne faut pas avoir les mêmes grandeurs pour les matrices et pour le Text.
Sa suggestion est pertinente : pour les déplacements, incrémente et décrémente simplement les variables de coordonnées, et multiplie-les par un coefficient lors de l'affichage !

Enfin, à quoi sert la variable C ?

Je vois aussi au début que tu "remplis" deux Lists, mais seulement l'une d'entre elles est utilisée par la suite ! Est-ce normal ?

Tiens, à quoi sert N également ? Et pourquoi passer en "Deg" au début ?

En ce qui concerne l'optimisation, tu peux enlever les seconds crochets des Lists.

Tu peux également enlever le second crochet de la matrice, à condition de mettre la seconde condition et le "And" avant.

Tu auras donc :

P+List 1[I->R

Q+List 1[I->S

If A<D And Mat B[S,R


Comme dit plus haut, n'oublie par de remettre le "iFend".

Et sinon, n'y aurait-il pas un soucis également au niveau de la variable M ? Tu l'initialise à 0 au début mais dans la suite les conditions ne sont effectives que pour des valeurs supérieures...

Mes principaux jeux : Ice Slider - CloneLab - Arkenstone

La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 18/03/2012 15:57 | #


Après correction de mon programme, suite a vos poste, j'ai une nouvelle erreur : Syntaxe Error au niveau du IfEnd ...
Cartix Hors ligne Membre Points: 2748 Défis: 98 Message

Citer : Posté le 18/03/2012 16:42 | #


Tu l'as mis ou le IfEnd ?
Ne0tux Hors ligne Membre d'honneur Points: 3505 Défis: 265 Message

Citer : Posté le 18/03/2012 18:40 | #



En effet, pour que nous puissions t'aider il faut que tu répondes à la question qu'a formulée Cartix !

Deux possibilités :

-> Soit tu places le "Ifend" à la fin, et dans ce cas là, il faut déplacer le "Next" en dernier.

-> Soit tu places le "Ifend" juste avant le "Next".

A toi de voir suivant ton utilisation !

Mes principaux jeux : Ice Slider - CloneLab - Arkenstone

La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 18/03/2012 18:53 | #


Ah d'accord, avant le Next ! Je l'ai mis en tout dernier bien a la fin x)

Merci ( vu que je débute je sens que demain je vais reposter ... xD

Ajouté le 19/03/2012 à 09:15 :
Alors voilà, comme promis ( enfin non mais bon xD ) J\'ai trouvé un nouveau problème sur le programme.

L\'ia que vous m\'avez donné ne contient absolument aucune erreur, mais par contre, quand je lance mon programme, il est légèrement ralentie.

De plus, Mon Pac-Goms ( ou phantom ) ne bouge pas d\' un pouce T-T
Ne0tux Hors ligne Membre d'honneur Points: 3505 Défis: 265 Message

Citer : Posté le 20/03/2012 16:23 | #



Si ton programme te parait légèrement ralentit, c'est normal puisque tu fais d'avantages d'opérations !

Ceci dit, ce doit normalement être imperceptible, les changements sont quasi infimes !

Pour ton Pac-Gom qui ne bouge pas, pourrais-tu nous renseigner sur ses coordonnées et la méthode que tu utilises pour l'afficher s'il te plait ?

As-tu pensé au ViewWindow au début de ton programme ?

Les variables correspondant à ses coordonnées sont elles correctement paramétrées au début du programme et leur évolution est-elle logique par la suite ? Es-tu sur que "quelquechose" les modifie, conformément aux intentions de ton IA ?


Mes principaux jeux : Ice Slider - CloneLab - Arkenstone

La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Pierrotll Hors ligne Ancien administrateur Points: 5488 Défis: 41 Message

Citer : Posté le 20/03/2012 16:28 | #


Les pacgoms c'est les petits points que pacman doit ramasser pour finir la map.
Ne0tux Hors ligne Membre d'honneur Points: 3505 Défis: 265 Message

Citer : Posté le 20/03/2012 16:33 | #



Ma culture en terme de jeux vidéos étant quasi nulle, je me suis empressé de me renseigner, suite à ta remarque PLL...

Et vous savez quoi ? En cherchant sur Google, les deux premiers résultats proviennent...

de Planète Casio !

Et effectivement, les "Pacgoms" sont les petits points qu'il faut manger pour gagner.

Mes principaux jeux : Ice Slider - CloneLab - Arkenstone

La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 20/03/2012 16:59 | #


non mais je voulait parler des fantômes en faite et pas des pacgom ( je suis un boullet )

Donc rectification : Je me rend compte que même avec vos codes corrigé sans aucun bug décelé par la casio : Le fantôme ne bouge pas d'un poil T-T

Ajouté le 28/03/2012 à 13:49 :
Edit : Voici les coordonné ( après un peu de temps de retard ( J\'ai découvert la magie d\'un mario land CE by Bebe Vador x) )

:

Cliquez pour découvrir
Cliquez pour recouvrir
Filename: ZZ1
If A=H And B=G
Then BG-None
Cls
Text 25,52,\"Perdu !\"
Stop
IfEnd
If Mat B[B,A]=1
Then U->X
V->Y
C->A
D->B
IfEnd
If Mat B[B,A]=2
Then 116->Y
6->B
20->A
IfEnd
If Mat B[B,A]=3
Then 8->Y
6->B
2->A
IfEnd
If K=27
Then Text X,Y,\"#\"
IfEnd
If K=28
Then Text X,Y,\"#\"
IfEnd
If K=38
Then Text X,Y,\"#\"
IfEnd
If K=37
Then Text X,Y,\"#\"
IfEnd
Return




Cliquez pour découvrir
Cliquez pour recouvrir
Filename: ZZ2
Lbl 1
Deg
BG-None
ViewWindow 1,127,0,1,63,0
StoV-Win 1
Cls
Horizontal 63
Horizontal 62
Horizontal 60
Horizontal 1
Horizontal 2
Horizontal 4
Vertical 1
Vertical 127
StoPict 1
Text 1,45,\" Pac man \"
F-Line 44,63,44,60
F-Line 84,63,84,60
Text 58,51,\" V2.0 \"
PlotOn 50,3
PlotOn 75,3
43->A
Text 20,16,\"Pac-man\"
Text 27,16,\"Commande\"
Text 34,16,\"Quitter\"
F-Line 90,50,100,50
F-Line 90,49,100,49
F-Line 86,48,89,48
F-Line 86,47,89,47
F-Line 101,48,104,48
F-Line 101,47,104,47
F-Line 84,46,85,46
F-Line 84,45,85,45
F-Line 105,46,106,46
F-Line 105,45,106,45
F-Line 84,44,85,44
F-Line 84,43,85,43
F-Line 97,44,98,44
F-Line 97,43,98,43
F-Line 103,44,104,44
F-Line 103,43,104,43
F-Line 82,42,83,42
F-Line 82,41,83,41
F-Line 101,42,102,42
F-Line 101,41,102,41
F-Line 82,40,83,40
F-Line 82,39,83,39
F-Line 99,40,100,40
F-Line 99,39,100,39
F-Line 82,38,83,38
F-Line 82,37,83,37
F-Line 97,38,98,38
F-Line 97,37,98,37
F-Line 82,36,83,36
F-Line 82,35,83,35
F-Line 99,36,100,36
F-Line 99,35,100,35
F-Line 82,34,83,34
F-Line 82,33,83,33
F-Line 101,34,102,34
F-Line 101,33,102,33
F-Line 84,32,85,32
F-Line 84,31,85,31
F-Line 103,32,104,32
F-Line 103,31,104,31
F-Line 84,30,85,30
F-Line 84,29,85,29
F-Line 105,30,106,30
F-Line 105,29,106,29
F-Line 86,28,89,28
F-Line 86,27,89,27
F-Line 104,28,101,28
F-Line 104,27,101,27
F-Line 90,26,100,26
F-Line 90,25,100,25
StoPict 2
Lbl 2
F-Line 8,A+1,12,A+1
F-Line 7,A,7,A-3
F-Line 13,A,13,A-3
PlotOn 9,A-1
PlotOn 11,A-1
PlotOn 8,A-4
PlotOn 9,A-3
PlotOn 10,A-4
PlotOn 11,A-3
PlotOn 12,A-4
Lbl 3
Do
0->K
Getkey->K
LpWhile K=0
K!=28 And K!=37 And K!=31=>Goto 3
Cls
RclPict 2
If K=28
Then A+7->A
A>43=>29->A
Goto 2
IfEnd
If K=37
Then A-7->A
A<29=>43->A
Goto 2
IfEnd
K=31 And A=29=>Stop
If K=31 And A=36
Then Cls
RclPict 1
Text 10,5,\"COMMANDES\"[DISP]
Cls
RclPict 2
Goto
IfEndÙ
K=31 And A=43×Cls
Deg
{12,21}->Dim Mat B
Prog \" ZZ3\"
StoPict 3
0->C
3->X
8->Y
2->A
2->B
27->K
3->P
117->QÙ
2->G
20->H
Lbl 5
BG-Pict 3
Do
Cls
Prog \" ZZ1\"
Do
Text P,Q,\"A\"
17->J
0->M
{-1,0,1,0}->List 1
{0,-1,0,1}->List 2
For 1->I To 4
G+List 1[I->R
H+List 1[I->S
Next
[SQRT]((R-B)²+(S-A)²)->Z
If Z<J And Mat B[R,S]Then Z->J
I->M
IfEnd
If M=1
Then P-6->P
H-1->H
IfEnd
If M=3
Then P+6->P
H+1->H
IfEnd
If M=2
Then Q-6->Q
G-1->G
IfEnd
If M=4
Then Q+6->Q
G+1->G
IfEnd
0->K
Getkey->K
LpWhile K=0
K!=28 And K!=38 And K!=37 And K!=27=>Goto 5
X->U
Y->V
A->C
B->D
If K=37
Then X+6->X
B+1->B
Goto 5
IfEnd
If K=28
Then X-6->X
B-1->B
Goto 5
IfEnd
If K=38
Then Y-6->Y
A-1->A
Goto 5
IfEnd
If K=27
Then Y+6->Y
A+1->A
Goto 5
IfEnd



Cliquez pour découvrir
Cliquez pour recouvrir
Filename: ZZ3
BG-None
Deg
Fill(0,Mat B)
Cls
F-Line 6,1,6,63
F-Line 6,63,122,63
F-Line 122,63,122,1
F-Line 122,1,6,1
F-Line 122,63,122,1
F-Line 62,62,66,62
F-Line 62,61,66,61
F-Line 62,60,66,60
F-Line 62,59,66,59
F-Line 62,58,66,58
F-Line 62,57,66,57
F-Line 62,56,66,56
F-Line 62,55,66,55
F-Line 62,54,66,54
F-Line 62,53,66,53
F-Line 62,52,66,52
F-Line 62,51,66,51
F-Line 14,55,42,55
F-Line 14,54,42,54
F-Line 14,53,42,53
F-Line 14,52,42,52
F-Line 14,51,42,51
F-Line 50,55,54,55
F-Line 50,54,54,54
F-Line 50,53,54,53
F-Line 50,52,54,52
F-Line 50,51,54,51
F-Line 74,55,78,55
F-Line 74,54,78,54
F-Line 74,53,78,53
F-Line 74,52,78,52
F-Line 74,51,78,51
F-Line 86,55,114,55
F-Line 86,54,114,54
F-Line 86,53,114,53
F-Line 86,52,114,52
F-Line 86,51,114,51
F-Line 7,43,24,43
F-Line 7,42,24,42
F-Line 7,41,24,41
F-Line 7,40,24,40
F-Line 7,39,24,39
Text 26,5,\" \"
Text 27,5,\" \"
Text 26,122,\" \"
Text 27,122,\" \"
For 1->O To 21
1->Mat B[1,O
1->Mat B[12,O
Next
1->Mat B[2,1
1->Mat B[2,11
1->Mat B[2,21
1->Mat B[3,1
1->Mat B[3,3
1->Mat B[3,4
1->Mat B[3,5
1->Mat B[3,6
1->Mat B[3,7
1->Mat B[3,9
1->Mat B[3,11
1->Mat B[3,13
1->Mat B[3,15
1->Mat B[3,16
1->Mat B[3,17
1->Mat B[3,18
1->Mat B[3,1
1->Mat B[3,21Ù
1->Mat B[4,1
1->Mat B[4,21
1->Mat B[5,1
1->Mat B[5,2
1->Mat B[5,3
1->Mat B[5,4
1->Mat B[5,21
2->Mat B[6,1
3->Mat B[6,21
1->Mat B[7,1
1->Mat B[7,21
1->Mat B[8,1
1->Mat B[8,21
1->Mat B[9,1
1->Mat B[9,21
1->Mat B[10,1
1->Mat B[10,21
1->Mat B[11,1
1->Mat B[11,21
Return
Cartix Hors ligne Membre Points: 2748 Défis: 98 Message

Citer : Posté le 29/03/2012 19:03 | #


Suite à ta demande par mp, j'ai déjà optimisé ton code afin d'y voir un peu plus clair :
Cliquez pour découvrir
Cliquez pour recouvrir

Filename: ZZ1
If A=H And B=G
Then BG-None
Cls
Text 25,52,"Perdu !"
Stop
IfEnd
If Mat B[B,A]=1
Then U->X
V->Y
C->A
D->B
IfEnd
If Mat B[B,A]=2
Then 116->Y
6->B
20->A
IfEnd
If Mat B[B,A]=3
Then 8->Y
6->B
2->A
IfEnd
K=27 Or K=28 Or K=38 Or K=37=>Text X,Y,"#"
Return




Filename: ZZ2
BG-None
ViewWindow 1,127,0,1,63,0
StoV-Win 1
Cls
For 0->O To 2
Horizontal 64-2^O
Horizontal 2^O
Next
Vertical 1
Vertical 127
StoPict 1
Text 1,45," Pac man "
F-Line 44,63,44,60
F-Line 84,63,84,60
Text 58,51," V2.0 "
PlotOn 50,3
PlotOn 75,3
43->A
Text 20,16,"Pac-man"
Text 27,16,"Commande"
Text 34,16,"Quitter"
For 1->O To 2
F-Line 90,51-O,100,51-O
F-Line 101,46+O,104,46+O
F-Line 97,36+O,98,36+O
F-Line 97,45-O,98,45-O
F-Line 86,49-O,89,49-O
F-Line 86,26+O,89,26+O
F-Line 104,26+O,101,26+O
F-Line 90,24+O,100,24+O
Next
For 1->O To 4
F-Line 84,42+O,85,42+O
F-Line 84,33-O,85,33-O
Next
For 0->O To 6 Step 2
F-Line 99+O,37+O,100+O,37+O
F-Line 99+O,38+O,100+O,38+O
F-Line 97+O,36-O,98+O,36-O
F-Line 97+O,35-O,98+O,35-O
Next
For 33->O To 42
F-Line 82,O,83,O
Next
StoPict 2
Lbl 2
F-Line 8,A+1,12,A+1
F-Line 7,A,7,A-3
F-Line 13,A,13,A-3
PlotOn 9,A-1
PlotOn 11,A-1
PlotOn 8,A-4
PlotOn 9,A-3
PlotOn 10,A-4
PlotOn 11,A-3
PlotOn 12,A-4
Lbl 3
Do
0->K
Getkey->K
LpWhile K=0
K!=28 And K!=37 And K!=31=>Goto 3
Cls
RclPict 2
If K=28
Then A+7->A
A>43=>29->A
Goto 2
IfEnd
If K=37
Then A-7->A
A<29=>43->A
Goto 2
IfEnd
K=31 And A=29=>Stop
If K=31 And A=36
Then Cls
RclPict 1
Text 10,5,"COMMANDES"[DISP]
Cls
RclPict 2
Goto
IfEndÙ
K=31 And A=43×Cls
Deg
{12,21}->Dim Mat B
Prog " ZZ3"
StoPict 3
0->C
3->X
8->Y
2->A
2->B
27->K
3->P
117->QÙ
2->G
20->H
Lbl 5
BG-Pict 3
Do
Cls
Prog " ZZ1"
Do
Text P,Q,"A"
17->J
0->M
{-1,0,1,0}->List 1
{0,-1,0,1}->List 2
For 1->I To 4
G+List 1[I->R
H+List 1[I->S
Next
[SQRT]((R-B)²+(S-A)²)->Z
If Z<J And Mat B[R,S]Then Z->J
I->M
IfEnd
If M=1
Then P-6->P
H-1->H
IfEnd
If M=3
Then P+6->P
H+1->H
IfEnd
If M=2
Then Q-6->Q
G-1->G
IfEnd
If M=4
Then Q+6->Q
G+1->G
IfEnd
0->K
Getkey->K
LpWhile K=0
K!=28 And K!=38 And K!=37 And K!=27=>Goto 5
X->U
Y->V
A->C
B->D
If K=37
Then X+6->X
B+1->B
Goto 5
IfEnd
If K=28
Then X-6->X
B-1->B
Goto 5
IfEnd
If K=38
Then Y-6->Y
A-1->A
Goto 5
IfEnd
If K=27
Then Y+6->Y
A+1->A
Goto 5
IfEnd




Filename: ZZ3
BG-None
Deg
Fill(0,Mat B)
Cls
F-Line 6,1,6,63
F-Line 6,63,122,63
F-Line 122,63,122,1
F-Line 122,1,6,1
F-Line 122,63,122,1
F-Line 62,62,66,62
F-Line 62,61,66,61
F-Line 62,60,66,60
F-Line 62,59,66,59
F-Line 62,58,66,58
F-Line 62,57,66,57
F-Line 62,56,66,56
F-Line 62,55,66,55
F-Line 62,54,66,54
F-Line 62,53,66,53
F-Line 62,52,66,52
F-Line 62,51,66,51
F-Line 14,55,42,55
F-Line 14,54,42,54
F-Line 14,53,42,53
F-Line 14,52,42,52
F-Line 14,51,42,51
F-Line 50,55,54,55
F-Line 50,54,54,54
F-Line 50,53,54,53
F-Line 50,52,54,52
F-Line 50,51,54,51
F-Line 74,55,78,55
F-Line 74,54,78,54
F-Line 74,53,78,53
F-Line 74,52,78,52
F-Line 74,51,78,51
F-Line 86,55,114,55
F-Line 86,54,114,54
F-Line 86,53,114,53
F-Line 86,52,114,52
F-Line 86,51,114,51
F-Line 7,43,24,43
F-Line 7,42,24,42
F-Line 7,41,24,41
F-Line 7,40,24,40
F-Line 7,39,24,39
Text 26,5," "
Text 27,5," "
Text 26,122," "
Text 27,122," "
For 1->O To 21
1->Mat B[1,O
1->Mat B[12,O
Next
1->Mat B[2,1
1->Mat B[2,11
1->Mat B[2,21
1->Mat B[3,1
1->Mat B[3,3
1->Mat B[3,4
1->Mat B[3,5
1->Mat B[3,6
1->Mat B[3,7
1->Mat B[3,9
1->Mat B[3,11
1->Mat B[3,13
1->Mat B[3,15
1->Mat B[3,16
1->Mat B[3,17
1->Mat B[3,18
1->Mat B[3,1
1->Mat B[3,21Ù
1->Mat B[4,1
1->Mat B[4,21
1->Mat B[5,1
1->Mat B[5,2
1->Mat B[5,3
1->Mat B[5,4
1->Mat B[5,21
2->Mat B[6,1
3->Mat B[6,21
1->Mat B[7,1
1->Mat B[7,21
1->Mat B[8,1
1->Mat B[8,21
1->Mat B[9,1
1->Mat B[9,21
1->Mat B[10,1
1->Mat B[10,21
1->Mat B[11,1
1->Mat B[11,21
Return  


Je continuerai tantôt, là je dois y aller
Purobaz Hors ligne Membre d'honneur Points: 2690 Défis: 110 Message

Citer : Posté le 29/03/2012 20:10 | #


spoiler les gars
Ca permet d'y voir plus clair.
I'll be back !
pour plus de fun
mes programmes fun
de technique
mes projets
et de Swag
les projets que je soutiens
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 29/03/2012 20:58 | #


Merci Cartix !
Totoyo Hors ligne Membre d'honneur Points: 16068 Défis: 102 Message
Thiladon Hors ligne Membre Points: 150 Défis: 1 Message

Citer : Posté le 31/03/2012 18:05 | #


Cartix, je ne prendrais pas l'optimisation de "ZZ1",car les if serviront a utiliser plusieur sprite, car après je ferait les pacman en drawstat et tout sa et sa feras des animation alors je gardes les If

Ajouté le 31/03/2012 à 18:22 :
Cartix, il y a un leger problême a ton optimisation ici :

For 0 -> To 8 Step 2
jusqu\'a Next

La bouche du pacman commance par le point au millieu correctement mais la fin et trop loin et les \"gros\" point formant sa bouche sont espacé ...

Le mieux serait que tu teste toi même sur calto
Cartix Hors ligne Membre Points: 2748 Défis: 98 Message

Citer : Posté le 31/03/2012 20:12 | #


Super les spoilers, mnt on ne sais plus copier le texte


Je vais regarder ce qui pose problème, mais pourrais tu me faire parvenir un fichier fxi/cat/txt/g1r stp ?


Ajouté le 31/03/2012 à 20:30 :
J\'ai corrigé mon post précédent.

LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2022 | Il y a 114 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd