Andreaslas Hors ligne Statut: Membre
Niveau: Aucun
Points: 117
Défis: 13 Email | Message
Posté le 09/05/2008 16:20
Help: Casio Dancing' Project :):
Voila, je me lance dans un jet complètement différent de ce que j'ai pu faire jusqu'a présent.
Voici le Casio dancing
Le jeu de base tout simple ou vous devez appuyez sur les bonnes touches au bon moment...Quand ils sont dans les ronds...
Malheuresement, Affiché, et effacé ce caractère qui descend prend du temps a ma petite G85
Donc je l'a fait avancer de 9 px en 9 px...
C'est assez rapide mais si j'en veux 2 en meme temps avec la meme vitesse il faudra avancé de 18 en 18...Ce qui est carement nul au niveau précision...
N'y a t-il pas une solution pour affiché et faire descendre tres rapidement de facon fluide un caractère sur l'ecran.
C'est pour cela que je demande votre aide, vous qui avez créer des magnifiques jeu tres fluide
J'ai besoin de vous pour finir le Casio dancing Project
(si vous voulez testé la base du jeu, elle prend les images 1 à 4...)
Solix Hors ligne Statut: Membre
Niveau: Confirmé
Points: 809
Défis: 18 Email | Message
Posté le 10/05/2008 11:49 |
En mode texte tu peut faire monter le texte TRÈS rapidement :
For 1 A To 7
" "
Next
Do
Int 10 Ran#+1 B
Locate 1,7,B
" "
LpWhile 1
----------------------------------
Testez un logiciel de compression d'image pour calculatrice 4x plus puissant que photocasio. Vous serez convaincue ...
Andreaslas Hors ligne Statut: Membre
Niveau: Aucun
Points: 117
Défis: 13 Email | Message
Posté le 10/05/2008 13:39 |
Euh merci solix mais en faite moi ce que j'ai c'est quelque chose comme ca (je te passe les instructions qui s'affiche quand on a appuyé sur une touche)
Do
Text T,8+12X," " (j'EFFACE l'ancien carac)
Y+9Y (je rajoute 9px)
If Y=63 (si c'est au bout de l'ecran
Then R+1R (1 de plus de raté)
S-10S (-10 points)
9Y (on remet a 9)
IfEnd
Y=9Int(3Ran#)+1X (on choisit une abcisse)
Text Y,8+12X,X+3 (on AFFICHE)
LpWhile Getkey=0
Donc la j'avance de 9px en 9px,
en conservant la meme vitesse on peut descendre a combien de px entre chaque lecture de boucle.
Et si possible me donné le code en utilisant ta méthode que je ne comprends pas super bien
Solix Hors ligne Statut: Membre
Niveau: Confirmé
Points: 809
Défis: 18 Email | Message
Posté le 10/05/2008 14:59 |
(avoir d'abord fait For 1 A To 7
" "
Next )
Do
Isz Y (je monte)
If Y=8 (si c'est au bout de l'écran)
Then R+1R (1 de plus de raté)
S-10S (-10 points)
1Y (on remet a 1)
IfEnd
Y=1Int(3Ran#)+1X (on choisit une abscisse)
" " (on fait monter l'écran )
Locate 4X-3,7,X+3 (on AFFICHE X+3)
LpWhile Getkey=0
----------------------------------
Testez un logiciel de compression d'image pour calculatrice 4x plus puissant que photocasio. Vous serez convaincue ...
Andreaslas Hors ligne Statut: Membre
Niveau: Aucun
Points: 117
Défis: 13 Email | Message
Posté le 10/05/2008 16:06 |
Ahhh Par locate...
Nan mais ca c'est pas possible lol '
Teste mon jeu et tu comprendras :/
(et quand je teste ton code... Malheuresement Je vois une série qui apparait, et elle s'efface en meme temps que la suivante apparait..
ya donc une trainé, tu me comprends?)
Solix Hors ligne Statut: Membre
Niveau: Confirmé
Points: 809
Défis: 18 Email | Message
Posté le 11/05/2008 07:41 |
parfaitement
Si tu veux faire un par un il faut rajouter Y=1 devant l'avant dernière ligne
----------------------------------
Testez un logiciel de compression d'image pour calculatrice 4x plus puissant que photocasio. Vous serez convaincue ...