[AXE] Mouvement continue...
3 participants
Page 1 sur 1
[AXE] Mouvement continue...
Bonjour,
Pour l'instant j'en suis a la avec le ti-basic... C'est bien moche donc j'abandonne
Donc je me met à l'Axe... Alors j'aimerais savoir comme on exécute une boucle pour se diriger toujours dans la même direction?
Merci pour vos réponses à venir
Pour l'instant j'en suis a la avec le ti-basic... C'est bien moche donc j'abandonne
Donc je me met à l'Axe... Alors j'aimerais savoir comme on exécute une boucle pour se diriger toujours dans la même direction?
Merci pour vos réponses à venir
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
simple je te fais un code avec un sprite qui va jusqu'au bout de l'ecran :
je suis pas extrenement sur mais sa doit etre sa a 99&
- Code:
:[FFFFFFFFFFFFFFFF}->pic0
:0->X
:27->Y
:repeat x=87
:pt-change(X,Y,pic0)
:dispgraph
:pt-change(select{x,x++},Y,pic0)
:pause 500
:End
je suis pas extrenement sur mais sa doit etre sa a 99&
nikitouzz- Platinum 1
- Sexe :
Age : 28
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-Basic 68K
- - TI-Basic Nspire
- - TI-73
- - TI-76.fr
- - TI-82 Stats.fr
- - TI-83+
- - TI-84+
- - TI-92
- - TI-Nspire
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
Sachiix, en gros c'est ça. Mais il y a des trucs compliqués dans ton code pour rien. Par exemple, au lieu de faire Pt-change pour afficher et effacer, tu pourrais mettre un ClrDraw (puisqu'il n'y a qu'une sprite sur l'écran) et du coup, enlever le Select
En gros Ice, tout ce que tu as à faire, c'est une boucle.
.Initialisation de toutes les variables à 0
ClrDraw(L1)
While 1
.Tester les touches directionnelles
.Si une flèche est appuyée, enregistrer son code dans D
For(K,1,4)
getKey(K)?K→D
End
.Maintenant, on fait bouger le joueur en fonction de D
D=1-(D=4)+Y→Y
D=3-(D=2)+X→X
.Puis on efface le buffer avant de dessiner le joueur
ClrDraw
Pt-On(X,Y,[FFFFFFFFFFFFFFFF])
.Et on affiche le buffer à l'écran
DispGraph
.Avec une pause pour éviter que tout se passe trop vite
Pause 100
.Et on quitte la boucle si la touche Clear est préssée
EndIf getKey(15)
En gros Ice, tout ce que tu as à faire, c'est une boucle.
.Initialisation de toutes les variables à 0
ClrDraw(L1)
While 1
.Tester les touches directionnelles
.Si une flèche est appuyée, enregistrer son code dans D
For(K,1,4)
getKey(K)?K→D
End
.Maintenant, on fait bouger le joueur en fonction de D
D=1-(D=4)+Y→Y
D=3-(D=2)+X→X
.Puis on efface le buffer avant de dessiner le joueur
ClrDraw
Pt-On(X,Y,[FFFFFFFFFFFFFFFF])
.Et on affiche le buffer à l'écran
DispGraph
.Avec une pause pour éviter que tout se passe trop vite
Pause 100
.Et on quitte la boucle si la touche Clear est préssée
EndIf getKey(15)
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
humm... Le problème des clearDraw c'est que des fois sa lag... Du moins s'il y as trop d'affichage. En plus je compte mettre du texte ainsi que un trajet et autre
Donc merci mais je vais prendre celui de sachiix
Mais merci comme même Hayleia
Donc merci mais je vais prendre celui de sachiix
Mais merci comme même Hayleia
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
:P
le select sa permet de comprendre plus facilement a quoi il sert puis sa prends pas plus de place
le select sa permet de comprendre plus facilement a quoi il sert puis sa prends pas plus de place
nikitouzz- Platinum 1
- Sexe :
Age : 28
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :- - TI-Basic Z80
- - ASM TI-83+ / TI-84+
- - Axe Parser
- - TI-Basic 68K
- - TI-Basic Nspire
- - TI-73
- - TI-76.fr
- - TI-82 Stats.fr
- - TI-83+
- - TI-84+
- - TI-92
- - TI-Nspire
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
C'est quoi le truc select? Je comprend pas ça... (Le plus important quoi )
EDIT ------------
Ok alors j'ai tester les deux est... Je préfère enfaite celui de Heylia... Mais celui de Sachiix me conviendrais mieux... Pas de ClearHome...
Alors j'ai combiner les deux mais sacrilege (bug graphique):
[Vous devez être inscrit et connecté pour voir cette image]
Le code est:
EDIT ------------
Ok alors j'ai tester les deux est... Je préfère enfaite celui de Heylia... Mais celui de Sachiix me conviendrais mieux... Pas de ClearHome...
Alors j'ai combiner les deux mais sacrilege (bug graphique):
[Vous devez être inscrit et connecté pour voir cette image]
Le code est:
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
Bon, je fais le mien sans ClrDraw et sans bugs graphiques alors [Vous devez être inscrit et connecté pour voir cette image]
[FFFFFFFFFFFFFFFF]→Pic0
.Initialisation de toutes les variables à 0
ClrDraw(L1)
.On efface quand même le buffer ici, avant la boucle, et tu peux afficher des trucs comme du texte ici
ClrDraw
Pt-Change(X,Y,Pic0)
While 1
.Tester les touches directionnelles
.Si une flèche est appuyée, enregistrer son code dans D
For(K,1,4)
getKey(K)?K→D
End
.On efface le joueuer à l'écran
Pt-Change(X,Y,Pic0)
.Maintenant, on fait bouger le joueur en fonction de D
D=1-(D=4)+Y→Y
D=3-(D=2)+X→X
.Puis on dessine le joueur
Pt-Change(X,Y,Pic0)
.Et on affiche le buffer à l'écran
DispGraph
.Avec une pause pour éviter que tout se passe trop vite
Pause 100
.Et on quitte la boucle si la touche Clear est préssée
EndIf getKey(15)
[FFFFFFFFFFFFFFFF]→Pic0
.Initialisation de toutes les variables à 0
ClrDraw(L1)
.On efface quand même le buffer ici, avant la boucle, et tu peux afficher des trucs comme du texte ici
ClrDraw
Pt-Change(X,Y,Pic0)
While 1
.Tester les touches directionnelles
.Si une flèche est appuyée, enregistrer son code dans D
For(K,1,4)
getKey(K)?K→D
End
.On efface le joueuer à l'écran
Pt-Change(X,Y,Pic0)
.Maintenant, on fait bouger le joueur en fonction de D
D=1-(D=4)+Y→Y
D=3-(D=2)+X→X
.Puis on dessine le joueur
Pt-Change(X,Y,Pic0)
.Et on affiche le buffer à l'écran
DispGraph
.Avec une pause pour éviter que tout se passe trop vite
Pause 100
.Et on quitte la boucle si la touche Clear est préssée
EndIf getKey(15)
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
Ahh merci... C'est pas que ton idée était mauvaise mais je pouvais pas mettre de ClrDraw
Par contre j'aimerais plutôt utiliser les touches numerique
Donc je fait:
[FFFFFFFFFFFFFFFF]→Pic0
ClrDraw(L1)
ClrDraw
Pt-Change(X,Y,Pic0)
While 1
.Je vais pas mettre entre 36 et 18?Sinon la moindre touche seras mise exemple: 30... (cos()... Et du coup le systeme pour continuer a avancer marcheras plus... (Un If?)
For(K,18,36)
getKey(K)?K→D
End
Pt-Change(X,Y,Pic0)
.Maintenant, on fait bouger le joueur en fonction de D avec les touches num
D=26-(D=28)+Y→Y
D=19-(D=35)+X→X
Pt-Change(X,Y,Pic0)
DispGraph
Pause 100
EndIf getKey(15)
Edit ----------Je compte utilsez les diagonales c'est pour ça...
Donc sa serais pour les diagonales:
:If D=34
:X-1->X:Y-1->Y
:ElseIf D=18
:X+1->X:Y-1->Y
:End
:If D=36
:X-1->X:Y+1->Y
:ElseIf D=20
:X+1->X:Y+1->Y
:End
EIDT 2 ------J'ai trouver!
Il suffit que je fasse un for(K,18,36
Et que apres jexclus tous avec un if...
:If k=33 or k=25 or...
:Then D->K
Enfin je crois... Je vais test là
Par contre j'aimerais plutôt utiliser les touches numerique
Donc je fait:
[FFFFFFFFFFFFFFFF]→Pic0
ClrDraw(L1)
ClrDraw
Pt-Change(X,Y,Pic0)
While 1
.Je vais pas mettre entre 36 et 18?Sinon la moindre touche seras mise exemple: 30... (cos()... Et du coup le systeme pour continuer a avancer marcheras plus... (Un If?)
getKey(K)?K→D
End
Pt-Change(X,Y,Pic0)
.Maintenant, on fait bouger le joueur en fonction de D avec les touches num
D=26-(D=28)+Y→Y
D=19-(D=35)+X→X
Pt-Change(X,Y,Pic0)
DispGraph
Pause 100
EndIf getKey(15)
Edit ----------Je compte utilsez les diagonales c'est pour ça...
Donc sa serais pour les diagonales:
:If D=34
:X-1->X:Y-1->Y
:ElseIf D=18
:X+1->X:Y-1->Y
:End
:If D=36
:X-1->X:Y+1->Y
:ElseIf D=20
:X+1->X:Y+1->Y
:End
EIDT 2 ------J'ai trouver!
Il suffit que je fasse un for(K,18,36
Et que apres jexclus tous avec un if...
:If k=33 or k=25 or...
:Then D->K
Enfin je crois... Je vais test là
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
Ce que tu veux faire marchera, mais ça risque de prendre de la place et du temps pour rien, alors je te propose mon optimisation favorite: l'utilisation des datas
Surtout, s'il y a un truc que tu comprends pas, demande, parce que ça sert à rien de recopier du code sans le comprendre.
Surtout, s'il y a un truc que tu comprends pas, demande, parce que ça sert à rien de recopier du code sans le comprendre.
- Code:
.AA
[FFFFFFFFFFFFFFFF]->Pic0
Data(1,2,3,0,0,0,0,0,4,0,5,0,0,0,0,0,6,7,8)->Str0
ClrDraw(L1)
ClrDraw
Pt-Change(X,Y,Pic0)
While 1
For(K,18,36)
getKey(K)?{K-18+Str0}?->D
End
Pt-Change(X,Y,Pic0)
If D
<4-(D>5)+X->X
D=1 or (D=4) or (D=6)-(D=3 or (D=5) or (D=8))+Y->Y
End
Pt-Change(X,Y,Pic0)
DispGraph
Pause 100
EndIf getKey(15)
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
Je comprend pas les Datas ni les Listes et encore moins les Stringue...
Enfaite tous les trucs de machins qui mets des valeurs et tous... I don't understand
Enfaite tous les trucs de machins qui mets des valeurs et tous... I don't understand
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
Mais le truc enfaite... Je comprend mais je vois pas à quoi sa sers tu vois la différence? et aussi quand s'en servir...
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
J'ai compris les Datas est tous... Le binaires, l'hexa.
EDIT---------------
Vraiment fatiguer moi... J'ai oublier que j'avais déjà répondu
Je vais vraiment pas tarder à allez me coucher [Vous devez être inscrit et connecté pour voir cette image]
EDIT 2-------------
Explique sa: Data(1,2,3,0,0,0,0,0,4,0,5,0,0,0,0,0,6,7,8/)->Str0
Pourquoi ya des zéros et tous... Le/ permet de ne pas avoir sa
EDIT 3-------------
Je viens de comprendre! Enfaite dans le Str0 tu viens de donner des valeurs a des touches entre 36 et 18... Punaisse je suis trop intelligent xD
EDIT 4------------
Ton code ne marche point
EDIT---------------
Vraiment fatiguer moi... J'ai oublier que j'avais déjà répondu
Je vais vraiment pas tarder à allez me coucher [Vous devez être inscrit et connecté pour voir cette image]
EDIT 2-------------
Explique sa: Data(1,2,3,0,0,0,0,0,4,0,5,0,0,0,0,0,6,7,8
Pourquoi ya des zéros et tous... Le
EDIT 3-------------
Je viens de comprendre! Enfaite dans le Str0 tu viens de donner des valeurs a des touches entre 36 et 18... Punaisse je suis trop intelligent xD
EDIT 4------------
Ton code ne marche point
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
Euh, J'ai pas compris d'où tu tire le "IceBlackSanctum a écrit:J'ai compris les Datas est tous... Le binaires, l'hexa.
EDIT---------------
Vraiment fatiguer moi... J'ai oublier que j'avais déjà répondu
Je vais vraiment pas tarder à allez me coucher [Vous devez être inscrit et connecté pour voir cette image]
EDIT 2-------------
Explique sa: Data(1,2,3,0,0,0,0,0,4,0,5,0,0,0,0,0,6,7,8/)->Str0
Pourquoi ya des zéros et tous... Le/permet de ne pas avoir sa
EDIT 3-------------
Je viens de comprendre! Enfaite dans le Str0 tu viens de donner des valeurs a des touches entre 36 et 18... Punaisse je suis trop intelligent xD
EDIT 4------------
Ton code ne marche point
Et bien sûr que mon code marche, je l'ai testé sur Wabbitemu. Sauf si tu laisses les "->" au lieu de les remplacer par des "→" mais des fois j'ai un clavier sans pavé numérique et je ne peux pas taper "→" donc je met "->"
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
Je sais que je suis noob mais a ce points là...
Et puis je sais très bien que c'est pas -> mais → ... [Vous devez être inscrit et connecté pour voir cette image]
Donc ne me prend pas pour un plus gros noob que je ne suis...
Bref j'ai test ton code et chez moi il marchait pas... Je vais ré-essayer quand je serais chez moi mais là je ne suis pas chez moi...
Et puis je sais très bien que c'est pas -> mais → ... [Vous devez être inscrit et connecté pour voir cette image]
Donc ne me prend pas pour un plus gros noob que je ne suis...
Bref j'ai test ton code et chez moi il marchait pas... Je vais ré-essayer quand je serais chez moi mais là je ne suis pas chez moi...
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Re: [AXE] Mouvement continue...
Ah, pardon, j'avais pas compris. Sinon, tu utilises la balise [code] et ton code sera sans transformations en smileyIceBlackSanctum a écrit:
Le/permet de ne pas avoir sa -> ( le 8 plus le ) donne : )
Ben je sais pas, ça marche chez, moi, je comprenais pas pourquoi ça marcherait pas chez toi
Et alors ? T'as pas toujours ta (tes) calculette(s) sur toi ? [Vous devez être inscrit et connecté pour voir cette image]IceBlackSanctum a écrit:Je vais ré-essayer
quand je serais chez moi mais là je ne suis pas chez moi...
Hayleia- Or 4
- Age : 30
Messages : 406
Date d'inscription : 03/08/2012
Points Forum : 46
Points Concours : 4
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-76.fr
- - TI-83+
- - TI-84+ SE
- - TI-Nspire CX
Re: [AXE] Mouvement continue...
IceBlackSanctum- Argent 4
- Sexe :
Age : 27
Messages : 78
Date d'inscription : 07/10/2012
Etudes : STI2D SIN
Points Forum : 5
Points Concours : 0
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-83+.fr
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|