[résolu] Problème Drawstat
Posté le 08/06/2013 22:42
Bonsoir
J'ai créé mon premier jeu casio sur ma graph 35+ il y a un moment, et récemment j'ai découvert le Drawstat, et j'ai voulu l'utiliser dans mon prog, seulement je n'y parvient pas
Si vous voulez m'aider voilà le code ;
(PS : j'ai aussi un problème avec la liste qui gère le score, elle commence toujours à 32 et elle ne se réinitialise pas à chaque partie
)
[brown]ViewWindow[/brown] [maroon]1[/maroon],[maroon]127[/maroon],[maroon]0[/maroon],[maroon]1[/maroon],[maroon]63[/maroon],[maroon]0[/maroon]
[brown]CoordOff[/brown]
[brown]GridOff[/brown]
[brown]AxesOff[/brown]
[brown]LabelOff[/brown]
[red]Lbl[/red] [maroon]0[/maroon]
[brown]Cls[/brown]
0[b]->[/b]Y
{[maroon]0[/maroon],[maroon]0[/maroon]}[b]->[/b]List [maroon]5[/maroon]
0[b]->[/b]D
48[b]->[/b]A
2[b]->[/b]B
53[b]->[/b]C
[brown]ClrText[/brown]
[b][blue]For[/blue][/b] [maroon]1[/maroon][b]->[/b]G [b][blue]To[/blue][/b] [maroon]115[/maroon]
[b][brown]PxlOn[/brown][/b] RanBin#(1,[maroon]63[/maroon]),RanBin#(1,[maroon]127[/maroon])
[b][blue]Next[/blue][/b]
[b][brown]Text[/brown][/b] [maroon]31[/maroon],[maroon]36[/maroon],[gray]"#E69A#E6A0#E6A0GRAVIUM#E6A0#E6A0#E69B"[/gray]
[b][brown]Circle[/brown][/b] [maroon]53[/maroon],[maroon]32[/maroon],[maroon]30[/maroon]
[b][brown]Circle[/brown][/b] [maroon]73[/maroon],[maroon]32[/maroon],[maroon]30[/maroon]Ý
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]1[/maroon],[gray]"V [maroon]2[/maroon].1.1"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]100[/maroon],[gray]"GD[b]->[/b]DEV"[/gray]Ý
[red]Lbl[/red] [maroon]2[/maroon]
0[b]->[/b]List [maroon]5[/maroon][1]
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]1[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]2[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]3[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]4[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]5[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]6[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]7[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]9[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]10[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]11[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]53[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]54[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]55[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]56[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]57[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]58[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]59[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]60[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]61[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]62[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]63[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]64[/maroon]
[b][brown]Text[/brown][/b] [maroon]21[/maroon],[maroon]5[/maroon],[gray]"[F1] PLAY"[/gray]
[b][brown]Text[/brown][/b] [maroon]21[/maroon],[maroon]72[/maroon],[gray]"[F2] SCORES"[/gray]
[b][brown]Text[/brown][/b] [maroon]31[/maroon],[maroon]5[/maroon],[gray]"[F3] CREDITS"[/gray]
[b][brown]Text[/brown][/b] [maroon]41[/maroon],[maroon]72[/maroon],[gray]"[EXIT] QUIT"[/gray]
[b][brown]Text[/brown][/b] [maroon]31[/maroon],[maroon]72[/maroon],[gray]"[F4] CONTROLS"[/gray]
[b][brown]Text[/brown][/b] [maroon]41[/maroon],[maroon]5[/maroon],[gray]"[F5] ABOUT"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79 And Ansá69 And Ansá59 And Ansá47 And Ansá49 And Ansá39
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] A
Ans=[maroon]69[/maroon][b]->[/b][red]Goto[/red] S
Ans=[maroon]59[/maroon][b]->[/b][red]Goto[/red] [maroon]3[/maroon]
Ans=[maroon]47[/maroon][b]->[/b][red]Goto[/red] F
Ans=[maroon]49[/maroon][b]->[/b][red]Goto[/red] H
Ans=[maroon]39[/maroon][b]->[/b][red]Goto[/red] I
[red]Lbl[/red] A
ClrList
{[maroon]0[/maroon],[maroon]0[/maroon]}[b]->[/b]List [maroon]5[/maroon]
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]31[/maroon],[maroon]35[/maroon],[gray]"CHOOSE LEVEL"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]2[/maroon],[gray]"1"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]25[/maroon],[gray]"2"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]50[/maroon],[gray]"3"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]75[/maroon],[gray]"4"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]100[/maroon],[gray]"5"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79 And Ansá69 And Ansá59 And Ansá49 And Ansá39
Ans=[maroon]79[/maroon][b]->[/b]1[b]->[/b]N
Ans=[maroon]69[/maroon][b]->[/b]2[b]->[/b]N
Ans=[maroon]59[/maroon][b]->[/b]3[b]->[/b]N
Ans=[maroon]49[/maroon][b]->[/b]4[b]->[/b]N
Ans=[maroon]39[/maroon][b]->[/b]5[b]->[/b]N
1[b]->[/b]Í
3[b]->[/b]V
[red]Lbl[/red] G
[brown]Cls[/brown]
N<1[b]->[/b]1[b]->[/b]N
N>5[b]->[/b]5[b]->[/b]N
Í[b]->[/b]List [maroon]5[/maroon][3]
[b][brown]Text[/brown][/b] [maroon]20[/maroon],[maroon]104[/maroon],[gray]"WAVE"[/gray]
[b][brown]Text[/brown][/b] [maroon]28[/maroon],[maroon]106[/maroon],List [maroon]5[/maroon][3]
[b][brown]Text[/brown][/b] [maroon]2[/maroon],[maroon]104[/maroon],[gray]"LVL"[/gray]
N=[maroon]1[/maroon][b]->[/b][b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]106[/maroon],[gray]"1"[/gray]
N=[maroon]2[/maroon][b]->[/b][b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]106[/maroon],[gray]"2"[/gray]
N=[maroon]3[/maroon][b]->[/b][b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]106[/maroon],[gray]"3"[/gray]
N=[maroon]4[/maroon][b]->[/b][b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]106[/maroon],[gray]"4"[/gray]
N=[maroon]5[/maroon][b]->[/b][b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]106[/maroon],[gray]"5"[/gray]
[b][brown]Vertical[/brown][/b] [maroon]7[/maroon]
[b][brown]Vertical[/brown][/b] [maroon]100[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]1[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]2[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]3[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]4[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]5[/maroon]
[b][brown]Horizontal[/brown][/b] [maroon]6[/maroon]
[red]Lbl[/red] [maroon]1[/maroon]
Fill(0,List [maroon]5[/maroon])
[b][blue]Do[/blue][/b]
Í[b]->[/b]List [maroon]5[/maroon][3]
[b][brown]Text[/brown][/b] [maroon]20[/maroon],[maroon]104[/maroon],[gray]"WAVE"[/gray]
[b][brown]Text[/brown][/b] [maroon]28[/maroon],[maroon]106[/maroon],List [maroon]5[/maroon][3]
[b][brown]Text[/brown][/b] [maroon]42[/maroon],[maroon]104[/maroon],[gray]"SCORE"[/gray]
Y[b]->[/b]List [maroon]5[/maroon][1]
[b][brown]Text[/brown][/b] [maroon]50[/maroon],[maroon]107[/maroon],List [maroon]5[/maroon][1]
V[b]->[/b]List [maroon]5[/maroon][2]
[b][brown]Text[/brown][/b] [maroon]2[/maroon],[maroon]3[/maroon],List [maroon]5[/maroon][2]
[b][brown]Text[/brown][/b] [maroon]52[/maroon],A,[gray]"__"[/gray]
[b][blue]If[/blue][/b] C<52
[b][blue]Then[/blue][/b] [b][brown]Text[/brown][/b] Int C,B,[gray]"O"[/gray]
[b][blue]If[/blue][/b] Getkey=[maroon]29[/maroon]
[b][blue]Then[/blue][/b] N+1[b]->[/b]N
[red]Goto[/red] G
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] Getkey=[maroon]79[/maroon]
[b][blue]Then[/blue][/b] N-1[b]->[/b]N
[red]Goto[/red] G
[b][blue]IfEnd[/blue][/b]
N=[maroon]1[/maroon][b]->[/b]5[b]->[/b]R
N=[maroon]2[/maroon][b]->[/b]7[b]->[/b]R
N=[maroon]3[/maroon][b]->[/b]9[b]->[/b]R
N=[maroon]4[/maroon][b]->[/b]11[b]->[/b]R
N=[maroon]5[/maroon][b]->[/b]13[b]->[/b]R
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] Getkey=[maroon]47[/maroon]
[b][blue]Then[/blue][/b] [red]Goto[/red] P
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] Getkey=[maroon]27[/maroon]
[b][blue]Then[/blue][/b] [b][brown]Text[/brown][/b] [maroon]52[/maroon],A,[gray]" "[/gray]
A+7[b]->[/b]A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] Getkey=[maroon]38[/maroon]
[b][blue]Then[/blue][/b] [b][brown]Text[/brown][/b] [maroon]52[/maroon],A,[gray]" "[/gray]
A-7[b]->[/b]A
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] C=[maroon]53[/maroon]
[b][blue]Then[/blue][/b] [maroon]1[/maroon][b]->[/b]C
RanBin#(8,[maroon]95[/maroon])[b]->[/b]B
[b][brown]Text[/brown][/b] Int C,B,[gray]" "[/gray]
0[b]->[/b]D
[b][blue]IfEnd[/blue][/b]
C>51[b]->[/b]51[b]->[/b]C
[b][blue]If[/blue][/b] Dâ1
[b][blue]Then[/blue][/b] [b][brown]Text[/brown][/b] Int C,B,[gray]" "[/gray]
C+R[b]->[/b]C
[b][blue]IfEnd[/blue][/b]
D+1[b]->[/b]D
A<9[b]->[/b]88[b]->[/b]A
A>88[b]->[/b]9[b]->[/b]A
[b][blue]If[/blue][/b] Câ51
[b][blue]Then[/blue][/b] A+9[b]->[/b]Z
A-1[b]->[/b]L
[b][blue]If[/blue][/b] BâL And BàZ
[b][blue]Then[/blue][/b] Y+R[b]->[/b]Y
Í+1[b]->[/b]Í
53[b]->[/b]C
0[b]->[/b]D
[b][blue]Else[/blue][/b]
Í+1[b]->[/b]Í
V-1[b]->[/b]V
53[b]->[/b]C
0[b]->[/b]D
[b][blue]IfEnd[/blue][/b]
[b][blue]IfEnd[/blue][/b]
[b][blue]LpWhile[/blue][/b] V>0
52[b]->[/b]A
D>6[b]->[/b]6[b]->[/b]D
[b][blue]If[/blue][/b] Y>Mat A[1,[maroon]1[/maroon]]
[b][blue]Then[/blue][/b] Y[b]->[/b]Mat A[1,[maroon]1[/maroon]]
[b][blue]IfEnd[/blue][/b]
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]16[/maroon],[maroon]35[/maroon],[gray]"+ GAME OVER +"[/gray]
[b][brown]Text[/brown][/b] [maroon]29[/maroon],[maroon]25[/maroon],[gray]"SCORE="[/gray]
[b][brown]Text[/brown][/b] [maroon]29[/maroon],[maroon]55[/maroon],List [maroon]5[/maroon][1]
[b][brown]Text[/brown][/b] [maroon]43[/maroon],[maroon]25[/maroon],[gray]"BEST="[/gray]
[b][brown]Text[/brown][/b] [maroon]43[/maroon],[maroon]55[/maroon],Mat A[1,[maroon]1[/maroon]]
List [maroon]5[/maroon][1]=Mat A[1,[maroon]1[/maroon]][b]->[/b][b][brown]Text[/brown][/b] [maroon]30[/maroon],[maroon]80[/maroon],[gray]"NEW BEST¯«¯"[/gray]
Fill(0,List [maroon]5[/maroon])
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]5[/maroon],[gray]"[F1] RETRY"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]72[/maroon],[gray]"[F2] MENU"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79 And Ansá69
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] A
Ans=[maroon]69[/maroon][b]->[/b][red]Goto[/red] [maroon]2[/maroon]
[red]Lbl[/red] S
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]33[/maroon],[maroon]35[/maroon],[gray]"BEST SCORE="[/gray]
[b][brown]Text[/brown][/b] [maroon]43[/maroon],[maroon]35[/maroon],Mat A[1,[maroon]1[/maroon]]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]5[/maroon],[gray]"[F1] BACK"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] [maroon]2[/maroon]
[red]Lbl[/red] [maroon]3[/maroon]
[brown]Cls[/brown]
[b][brown]Text[/brown][/b] [maroon]5[/maroon],[maroon]41[/maroon],[gray]"CREDITS"[/gray]
[b][brown]Text[/brown][/b] [maroon]12[/maroon],[maroon]11[/maroon],[gray]"CREATED BY GABRIEL DELAUNAY"[/gray]
[b][brown]Text[/brown][/b] [maroon]20[/maroon],[maroon]11[/maroon],[gray]"EDITED BY GD[b]->[/b]DEV"[/gray]
[b][brown]Text[/brown][/b] [maroon]30[/maroon],[maroon]37[/maroon],[gray]"THANKS [b][blue]TO[/blue][/b]"[/gray]
[b][brown]Text[/brown][/b] [maroon]38[/maroon],[maroon]10[/maroon],[gray]"SHAD_, ISRAK, ANTOINE"[/gray]
[b][brown]Text[/brown][/b] [maroon]46[/maroon],[maroon]10[/maroon],[gray]"GAUTRET, TOTOYO AND DELTOD"[/gray]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]5[/maroon],[gray]"[F1] BACK"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] [maroon]2[/maroon]
[red]Lbl[/red] P
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]40[/maroon],[maroon]45[/maroon],[gray]"[EXE] BACK"[/gray]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]5[/maroon],[gray]"[F1] QUIT"[/gray]
[b][brown]Text[/brown][/b] [maroon]25[/maroon],[maroon]52[/maroon],[gray]"PAUSE"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá31 And Ansá79
Ans=[maroon]31[/maroon][b]->[/b][red]Goto[/red] G
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] F
[red]Lbl[/red] H
[brown]Cls[/brown]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]2[/maroon],[maroon]50[/maroon],[gray]"CONTROLS"[/gray]
[b][brown]Text[/brown][/b] [maroon]10[/maroon],[maroon]5[/maroon],[gray]"LEFTPAD = LEFT"[/gray]
[b][brown]Text[/brown][/b] [maroon]18[/maroon],[maroon]5[/maroon],[gray]"RIGHTPAD = RIGHT"[/gray]
[b][brown]Text[/brown][/b] [maroon]26[/maroon],[maroon]5[/maroon],[gray]"F1 = PREVIOUS LEVEL"[/gray]
[b][brown]Text[/brown][/b] [maroon]34[/maroon],[maroon]5[/maroon],[gray]"F2 = [b][blue]NEXT[/blue][/b] LEVEL"[/gray]
[b][brown]Text[/brown][/b] [maroon]42[/maroon],[maroon]5[/maroon],"EXIT = PAUSE GAME
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]5[/maroon],[gray]"[F1] MENU"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] [maroon]2[/maroon]
[red]Lbl[/red] I
[brown]Cls[/brown]
[b][brown]Text[/brown][/b] [maroon]13[/maroon],[maroon]8[/maroon],[gray]"THE GOAL IS [b][blue]TO[/blue][/b] CATCH AS MUCH"[/gray]
[b][brown]Text[/brown][/b] [maroon]21[/maroon],[maroon]8[/maroon],[gray]"COMETS AS YOU CAN"[/gray]
[b][brown]Text[/brown][/b] [maroon]29[/maroon],[maroon]15[/maroon],[gray]"YOU HAVE THREE LIVES"[/gray]
[b][brown]Text[/brown][/b] [maroon]37[/maroon],[maroon]15[/maroon],[gray]"THE FALLING SPEED"[/gray]
[b][brown]Text[/brown][/b] [maroon]44[/maroon],[maroon]15[/maroon],[gray]"DEPENDS OF THE LEVEL"[/gray]
[b][brown]Horizontal[/brown][/b] [maroon]8[/maroon]
[b][brown]Text[/brown][/b] [maroon]58[/maroon],[maroon]2[/maroon],[gray]"[F1] BACK"[/gray]
[b][blue]Do[/blue][/b]:Getkey:[b][blue]LpWhile[/blue][/b] Ansá79
Ans=[maroon]79[/maroon][b]->[/b][red]Goto[/red] [maroon]2[/maroon]
[red]Lbl[/red] F
[brown]Cls[/brown]
[brown]CoordOn[/brown]
[brown]GridOn[/brown]
[brown]AxesOn[/brown]
[brown]LabelOn[/brown]
[b][blue]Stop[/blue][/b]
edit BTL: la couleur a été rajoutée
Citer : Posté le 13/06/2013 19:50 | #
Je suis d'accord avec toi, on peut toujours le rendre plus réactif, mais je sais les débutants ont tendance à tout mettre dans une seule et unique boucle
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother <<< >>> Teste mon générateur de mots nouveaux <<<
>>> Random Youtube Video <<<
Citer : Posté le 13/06/2013 22:01 | # | Fichier joint
OMG
Ninestars ta technique est laborieuse et met beaucoups de bazar dans le prog mais ça marche enfin
Par contre ( la résolution d'un problème en engendre un autre ) la vitesse de chute du "météore" et énormément ralentit lorsque l'on bouge la plateforme ><
je remet le .g1r
Citer : Posté le 13/06/2013 22:48 | # | Fichier joint
OUhlalala, tu n'as pas du tout compris ce que je t'ai montré, il ne faut pas recopier 10 fois le même code.
Je te refais une version du programme comme il faut
Edit :
Voilà je t'ai fait une version du programme beaucoup plus propre, légère (-1600 octets) et fluide.
J'ai commencé les modifications à partir de Lbl G jusqu'à la fin de la boucle.
Ton problème c'est que tu affichais tout le texte autour à chaque fois(c'est très lent), donc j'ai affiché tout le texte au début et je l'ai enregistré dans une image, puis j'ai placé cette image en fond d'écran.
De plus, tu utilisais la fonction Text pour afficher la barre du joueur, or cette fonction est très lente, j'ai utilisé F-Line qui permet de dessiner des lignes et qui est plus rapide.
J'ai aussi optimisé les conditions et évitant les répétitions et j'ai supprimé la partie avec D.
Si tu as des questions hésite pas
Le fichier est en pièce jointe.
Citer : Posté le 14/06/2013 18:19 | #
Franchement Ninestars je te remercie énormément pour le temps que tu m'as accordé Tout marche nickel
Citer : Posté le 14/06/2013 20:57 | #
De rien