Ce nouveau programme est un jeu de réflexe unique sur casio
Le but étant : sortir de magnifiques labyrinthes sans toucher les murs.
Vous devez changer de direction au dixième de seconde près sinon vous n'avez plus qu'a recommencer. :demon:
Mais ne vous découragez pas :), vous aller pouvoir tester votre impressionnante capacité à acquérir de manière très rapide de nouveaux réflexes ;).
Pour pimenter le jeu, vous avez par ailleurs accès à de nombreuses fonctionnalités que vous allez découvrir rapidement.
!!! Bon jeu !!!
Si vous avez aimé, une note ou un test est toujours la bienvenue !
Ps: Le jeu utilise les pictures 1,3 et 4, les listes 1 et 7 par ailleurs il faut toujours sortir du jeu grâce à l'option exit dans le menu principal (sinon les données ne sont pas enregistrées ).
Bonjour tous le monde
Je viens de poster la version 1.7 , j'y ai rajouté une map et on peut désormais utiliser les flèches aussi bien que les numéros pour jouer mais ceci a ralenti légèrement le jeu il va donc falloir que je trouve une solution pour retrouver la vitesse de base.
Tout fois, je suis toujours près à réaliser tout les améliorations possibles dont vous me ferez part (par ailleurs si vous avez des idées pour les noms des maps ce serait super ) ; si vous avez une map qui convient au jeu et que vous voudriez rajouter, vous pouvez la poster en tant que commentaire, je l'ajouterais sans problème .
Gab.c a écrit : mais ceci a ralenti légèrement le jeu
C'est étrange ! Peux-tu copier le code qui gère les entrées clavier ici que nous puissions t'aider ?
As-tu pensé à tirer profit de l'opérateur logique "Or" ("ou" en français) ? A priori ajouter le support des flèches ne consiste qu'à ajouter 4 "Or" dans ton ancien code, dans les conditions qui géraient les déplacements.
J'ai essayer d'utiliser "Or" mais ça buggait , voici le code (c'est mon premier jeu donc le code n'est pas très propre et je compte faire du nettoyage ) :
Lbl 3Ù
0ãTÙ
If U=0 And E=0Ù
Then 0ãS:0ãRÙ
IfEndÙ
E=0×5ãP~QÙ
0ãEÙ
0ãM:0ãGÙ
Vertical 127Ù
Vertical 1Ù
Horizontal 63Ù
Horizontal 1Ù
Text 5,119,"À"Ù
PlotOn P,QÙ
DoÙ
GetkeyãKÙ
LpWhile KÈ27 And KÈ37 And KÈ28 And KÈ38 And KÈ64 And KÈ73 And KÈ63 And KÈ53Ù
DoÙ
PãG:QãHÙ
PlotOn P,QÙ
GetkeyãKÙ
If K=79Ù
Then If List 1[14]>1Ù
Then List 1[14]-1ãList 1[14]Ù
1ãTÙ
IfEnd:IfEndÙ
If K=48Ù
Then DoÙ
GetkeyãKÙ
If K=29Ù
Then Ù
NãList 1[5]Ù
PãList 1[6]Ù
QãList 1[7]Ù
UãList 1[8]Ù
DãList 1[9]Ù
SãList 1[10]Ù
RãList 1[13]Ù
Goto AÙ
IfEndÙ
LpWhile KÈ27 And KÈ37 And KÈ28 And KÈ38 And KÈ64 And KÈ73 And KÈ63 And KÈ53Ù
IfEndÙ
K=73×1ãMÙ
K=38×1ãMÙ
K=53×2ãMÙ
K=27×2ãMÙ
K=63×3ãMÙ
K=37×3ãMÙ
K=64×4ãMÙ
K=28×4ãMÙ
M=1×Dsz PÙ
M=2×Isz PÙ
M=3×Dsz QÙ
M=4×Isz QÙ
If PxlTest(64-Q,P)=1Ù
Then If List 1[4]>0Ù
Then "Voulez-vous utiliser une vie"Ù
" "Ù
" -Non"Ù
" -Oui"Ù
For 1㪠To 150:NextÙ
4ãB:5ãZÙ
Prog "PFLECHE"Ù
B=4×Goto EÙ
List 1[4]-1ãList 1[4]Ù
GãP:HãQÙ
DoÙ
PlotChg P,QÙ
GetkeyãKÙ
LpWhile KÈ27 And KÈ37 And KÈ28 And KÈ38 And KÈ64 And KÈ73 And KÈ63 And KÈ53Ù
Else Goto EÙ
IfEndÙ
IfEndÙ
If P>120 And Q>55Ù
Then 1ãGÙ
BreakÙ
IfEndÙ
Isz SÙ
If T>0 And T<50Ù
Then Isz TÙ
For 1ãK To 30:NextÙ
IfEndÙ
LpWhile 1Ù
En fait, j'ai essayé plein de techniques différentes (je me suis embrouillé ) et en réessayant, je me suis rendu compte que l'on pouvait très bien utiliser "Or" mais je ne suis pas sûr que ce sois plus rapide.
K=73⇒1→M
K=38⇒1→M
K=53⇒2→M
K=27⇒2→M
K=63⇒3→M
K=37⇒3→M
K=64⇒4→M
K=28⇒4→M
M=1⇒Dsz P
M=2⇒Isz P
M=3⇒Dsz Q
M=4⇒Isz Q
par
P - (K=73 Or K=38) + (K=53 Or K=27 → P
Q - (K=63 Or K=37) + (K=64 Or K=28 → Q
Cela évite de plus l'effet secondaire méconnu des fonctions Isz et Dsz, qui sautent la ligne d’instruction suivante lorsque la valeur est nulle (cf documentation).
Les booléens (i.e. les conditions logiques telles que (X=9)) ont deux états possibles (par définition) : vrai ou faux. Si X vaut effectivement 9 alors (X=9) est vraie et si X vaut 2 alors (X=9) est fausse.
En Basic CASIO si c'est vrai, alors la condition (le booléen) "vaut 1", et si c'est faux, 0. Donc (X=9) ne "vaut 1" que si X est effectivement égal à 9.
Si on reprend mon bout de code précédent, la condition (K=73 Or K=38) ne vaudra 1 que si K a pour valeur 73 ou 38, et vaudra 0 pour tous les autres cas existants. Autrement dit on enlèvera 1 à P seulement si cette condition est vérifiée, c'est bien ce que tu voulais faire n'est-ce pas ?
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
Le but étant : sortir de magnifiques labyrinthes sans toucher les murs.
que vous allez découvrir rapidement.
aussi bien que les numéros pour jouer mais ceci a ralenti légèrement le jeu 
il va donc falloir que je trouve une solution pour retrouver la vitesse de base.
