Posté le 17/03/2012 19:25
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 77 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
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
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 !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 18/03/2012 10:05 | #
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.
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
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
En espérant que vous puissiez m'aidez =)
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 ?
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,"#"
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 :
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...
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
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 ...
Citer : Posté le 18/03/2012 16:42 | #
Tu l'as mis ou le IfEnd ?
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 !
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
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
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 ?
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
Citer : Posté le 20/03/2012 16:28 | #
Les pacgoms c'est les petits points que pacman doit ramasser pour finir la map.
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.
La Planète Casio est accueillante : n'hésite pas à t'inscrire pour laisser un message ou partager tes créations !
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) )
:
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
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
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
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
Filename: ZZ1
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
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
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
Citer : Posté le 29/03/2012 20:10 | #
spoiler les gars
Ca permet d'y voir plus clair.
Escape prison
Bloxorz
Free wheel
QR code
Nombre en or
RayCasting Engine
Mario Party
Zelda
et Planète Casio
Citer : Posté le 29/03/2012 20:58 | #
Merci Cartix !
Citer : Posté le 29/03/2012 22:07 | #
spoiler les gars
Ca permet d'y voir plus clair.
+1
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
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
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.