Test nouveau programme
Posté le 03/12/2014 15:07
Bonjour à tous, vous vous souvenez de moi? non? Pas grave j'ai pas posté depuis longtemps. Mais je viens toujours quand j'ai des problèmes 8) Bref j'essaye de créer un de me spremiers jeux (oui j'ai pas beaucoup progressé).
Je souhaiterai de l'aide pour savoir si il y a un moyen d'accélérer le programme ou de fluidifier le getkey.
Si vous ne comprenez pas une partie de mon code demandez moi, j'essaierai de vous expliquer.
Bon le principe: tu incarne un carré, u évite les ronds et tu rékop les pièces (cf le jeu le plus dur du monde).
ViewWindow 1,127,0,63,1,0Ù
BG-NoneÙ
ClsÙ
0ãYÙ
20ãAÙ
2ãBÙ
2ãCÙ
6ãDÙ
1ãEÙ
0ãZÙ
1ãPÙ
1ãQÙ
0ãXÙ
0ãWÙ
{7,21}ãDim Mat AÙ
DoÙ
If WÈ1Ù
Then Locate 6,6,"#E6A7"Ù
2ãMat A[6,6]Ù
IfEndÙ
If XÈ1Ù
Then Locate 3,2,"#E6A7"Ù
2ãMat A[2,3]Ù
IfEndÙ
1ãMat A[B,A]Ù
1ãMat A[D,C]Ù
1ãMat A[B+1,A]Ù
1ãMat A[D-1,C]Ù
Locate P,Q,"#E6A6"Ù
If Mat A[Q,P]=1Ù
Then ClsÙ
Locate 2,2,"YOU LOOSE"Ø
Goto 1Ù
IfEndÙ
If Mat A[Q,P]=2Ù
Then Y+1ãYÙ
IfEndÙ
If P=6 And Q=6Ù
Then 0ãMat A[6,6]Ù
1ãWÙ
IfEndÙ
If P=3 And Q=2Ù
Then 0ãMat A[2,3]Ù
1ãXÙ
IfEndÙ
PãRÙ
QãSÙ
GetkeyãZÙ
Ù
Z=38×PÈ1×P-1ãPÙ
Z=28×QÈ1×Q-1ãQÙ
Z=27×PÈ21×P+1ãPÙ
Z=37×QÈ7×Q+1ãQÙ
If PÈR Or QÈSÙ
Then Locate R,S," "Ù
IfEndÙ
If A=1 Or C=21 Or A=21 Or C=1Ù
Then -EãEÙ
IfEndÙ
Locate A,B,"#E6A4"Ù
Locate C,D,"#E6A4"Ù
Locate A,B+1,"#E6A4"Ù
Locate C,D-1,"#E6A4"Ù
For 1ãZ To 75Ù
NextÙ
Locate A,B," "Ù
Locate C,D," "Ù
Locate A,B+1," "Ù
Locate C,D-1," "Ù
0ãMat A[B,A]Ù
0ãMat A[D,C]Ù
0ãMat A[B+1,A]Ù
0ãMat A[D-1,C]Ù
C+EãCÙ
A-EãAÙ
LpWhile YÈ2Ù
Locate 2,2,"YOU WIN"Ù
Lbl 1Ù
Voila,voila, essayez de m'expliquer clairement si vous trouvez qqc...
Merci d'avance et bonne journée!
ps: bug trouvé n°1: si on traverse en rond pas le haut, en bas ou à gauche sans s'arrêter, la défaiite n'est pas comptée alors que si le rond nous collisionne, oui...
Citer : Posté le 03/12/2014 16:45 | #
Ya des lbl / goto
Citer : Posté le 03/12/2014 18:11 | #
Salut,
Pour optimiser tes Getkey, lis cette partie du tutoriel : http://www.planet-casio.com/Fr/programmation/morpion.php#0
Comme le fait remarquer -florian66-, l'utilisation des Goto / Lbl sont à proscrire.
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 03/12/2014 19:24 | #
Le lbl/goto sert à rien ici, c'est pour e repèrer
et un exemple pour le getkey, j'ai déjà essayé e l'isoler sans succès...
Citer : Posté le 03/12/2014 19:43 | #
Il faudra sans doute revoir la structure de ton programme pour l'optimiser.
L'isolement des Getkey augmente beaucoup la réactivité de ton programme. Si tu veux, regarde le code source de mon programme Twelve pour voir comment je m'y prends.
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video