Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - kindermoumoute

Pages: 1 ... 52 53 [54] 55 56 57
796
[FR] Programmation Axe Parser / Re: [Axe parser] : projet worms
« on: May 30, 2010, 12:33:53 pm »
C'est bon pour la touche entré j'ai trouvé une solution qui ne devrait pas ralentir le programme, cela dit si il y a une limite dite le moi, je suis déjà à 2 ko (mais je pense qu'il sera possible de réduire de moitié la taille si j'améliore certaines choses).

797
[FR] Programmation Axe Parser / Re: [Axe parser] : projet worms
« on: May 29, 2010, 05:18:56 am »
En faite je contait mettre 2nd pour le tir :/
Mais je pense que le jeu est beaucoup ralentit par le fait qu'il détecte si on appuie 1 ou 2 fois sur enter (je suis obligé de mettre des pause :s)
Donc j'essayerais de trouver un bon compromit pour garder une bonne réactivité et de la vitesse.

798
[FR] Programmation Axe Parser / Re: [Axe parser] : projet worms
« on: May 28, 2010, 04:08:47 pm »
Bon voilà.. après plusieurs jours de travail, j'arrive à un résultat :
je peut marcher de gauche à droite sans problème
faire un grand saut en avant en appuyant une fois sur entré, faire un petit saut en arrière en appuyant 2 fois sur entré (je respecte même les touches originales ;) ) et le tout en empêchant d'avancer en même temps ou de changer de direction dans les airs (toujours en respectant le jeu =)
Et des petits murs sont la pour stopper le tout.

N'hésitez pas à me dire si il faut mettre plus de pixel dans les sauts, ou autre chose.


Google traduction : Good here .. after several days of work, I can come up:
I can walk from left to right without problem
make a great leap forward by pressing once entered, make a small jump backwards by pressing two times came on (I even respect the original keys;) ) and forward while preventing at the same time or change direction in the air (always respecting the game =)
And small walls are there to stop everything.

Please tell me if he should put more pixels in the jumps, or something.

799
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 28, 2010, 02:24:09 pm »
Je ne sais pas si c'est le problème, mais manqueraut-il un End ici?

Code: [Select]
:
:Lbl I
:1+I→I
:If I=5
: 1→I
:Return
:
:o pas facile à voir (la fatigue surement  ??? )


Ou sinon pour les stripe je ne savait pas, c'était surement indiqué dans l'aide ^^.

800
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 28, 2010, 11:19:37 am »
Nouveau problème!
J'ai lut et relut mon code.. à aucun endroit je n'ai manqué ou rajouté un End, et il me sort une erreur Block 98%
Spoiler For Spoiler:
Code: [Select]
:.AXEWA
:[0000000000000000→Pic0
:[788CD4D4864B613E→Pic1
:.IMAGE NORMALGAUCHE
:[1E312B2B61D2867C→Pic4
:.IMAGE NORMALDROITE
:[78DCD484CA62211F→Pic2
:.IMAGE HAUTGAUCHE
:[1E3B2B21534684F8→Pic5
:.IMAGE HAUTDROITE
:[00788CD4D785493E→Pic3
:.IMAGE BASGAUCHE
:[001E312BEBA1927C→Pic6
:.IMAGE BASDROITE
:0→S→Θ
:1→I→D
:2→T
:18→E
:20→F
:44→X
:56→Y
:Repeat getKey(15)
: If (E≥0 and (E≤17)) or (F≥0 and (F≤19))
: If F≥0 and (F≤19
: sub(K
:Else
: sub(J
:End
:Else
:sub(I
:End
:If I=1 or (I=3
:If S
: Pt-On(X,Y,Pic1)
:Else
:Pt-On(X,Y,Pic4
:End
:End
:!If D
: sub(D
:End
:DispGraph
:Pause 150
:If getKey
: sub(G
:End
:If T=0 or (T=1
: ClrDraw
:T+1→T
:End
:End
:
:Lbl I
:1+I→I
:If I=5
: 1→I
:Return
:
:Lbl D
:If I=2
:If S
: Pt-On(X,Y,Pic2
:Else
:Pt-On(X,Y,Pic5
:End
:End
:If I=4
:If S
: Pt-On(X,Y,Pic3
:Else
:Pt-On(X,Y,Pic6
:End
:End
:1→D
:Return
:
:Lbl J
:If E=0 or (E=17
: 4→I
:End
:If E=1 or (E=16
: 1→I
:End
:If E=2 or (E=15
: 2→I
:End
:If E≥3 and (E≤14
:If S
: X-1→X
:Else
:X+1→X
:End
:End
:If E≥3 and (E≤7
: Y-1→Y
:End
:If E≥10 and (E≤14
: Y+1→Y
:End
:E+1→E
:sub(V
:Return
:
:Lbl K
:If F=0 or (F=19
: 4→I
:End
:If F=1 or (F=18
: 1→I
:End
:If F=2 or (F=17
: 2→I
:End
:If F=4 or (F=6) or (F=8) or (F=10) or (F=12) or (F=14) or (F=16)
:If S
: X+1→X
:Else
:X-1→X
:End
:End
:If F≥3 and (F≤9
: Y-1→Y
:End
:If F≥10 and (F≤16
: Y+1→Y
:End
:F+1→F
:sub(V
:Return
:
:Lbl G
:Return!If getKey(2) or getKey(3) or getKey(9)
:If E=18 or (F=20
:If getKey(2) or getKey(3)
:If getKey(2)
: X-1→X
:1→S
:End
:If getKey(3)
: X+1→X
:0→S
:End
:End
:If getKey(9)
: Repeat Θ≥1
: If getKey(9)
: 2→Θ
:End
:Z+1→Z
:Pause 10
:If Z=50
: 1→Θ
:End
:End
:If Θ=2
: 0→F
:Else
:If E=18
: 0→E
:End
:0→Θ
:End
:End
:End
:sub(V
:Return
:
:Lbl V                                 .Il
:If X≤65535 and (X>65000               .l'indique
: 0→X                          .dans
:End                                  .cette                    .O_o
:If X>88 and (X<100                   .zone
: 88→X                         .environ
:End                                   .(jusqu'ici :p)
:0→T
:0→D
:Return


Ai-je trop de End??

801
Art / Re: worm 8x8
« on: May 28, 2010, 08:41:34 am »
This time I want a 8*8 of worms with a jetpack see screen shot:

802
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 28, 2010, 08:07:05 am »
merci pour l'astuce x)

EDIT : est ce que l'on peut stocker plus de 10 images 8x8? (par exemple en utilisant GDB (j'ai rien comprit en faite à quoi cela servait))
et est ce que c'est possible de faire tourner une image? (par cran de 45° par exemple?)

803
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 27, 2010, 03:17:00 pm »
Bon, j'ai résolu le problème, mais la j'en ai un nouveau :p, c'est pas tellement un problème.. mais j'aimerais que l'on m'explique :
Quand je fait marcher mon worm vers le coté droit et le coté gauche, il est bloqué par le mur, quand je saute vers le coté droit, il est bloqué par le mur, quand je saute vers le coté droit, il ressort de l'autre coté!
Est ce que en dessous de 0 (pixel parlant) il compte +XXX (grand nombre positif)?
Spoiler For Spoiler:
Code: [Select]
:.AXEWA
:[0000000000000000→Pic0
:[788CD4D4864B613E→Pic1
:.IMAGE NORMALGAUCHE
:[1E312B2B61D2867C→Pic4
:.IMAGE NORMALDROITE
:[78DCD484CA62211F→Pic2
:.IMAGE HAUTGAUCHE
:[1E3B2B21534684F8→Pic5
:.IMAGE HAUTDROITE
:[00788CD4D785493E→Pic3
:.IMAGE BASGAUCHE
:[001E312BEBA1927C→Pic6
:.IMAGE BASDROITE
:0→D
:0→S
:1→I
:2→T
:18→E
:44→X
:56→Y
:Repeat getKey(15)
: If E≥0 and (E≤17
: sub(J
:Else
: 1+I→I
: If I=5
: 1→I
:End
:End
:If I=1 or (I=3
:If S
: Pt-On(X,Y,Pic1)
:Else
:Pt-On(X,Y,Pic4
:End
:End
:If D=1
:If I=2
:If S
: Pt-On(X,Y,Pic2
:Else
:Pt-On(X,Y,Pic5
:End
:End
:If I=4
:If S
: Pt-On(X,Y,Pic3
:Else
:Pt-On(X,Y,Pic6
:End
:End
:0→D
:End
:DispGraph
:Pause 150
:If getKey
: sub(G
:End
:If T=0 or (T=1
: ClrDraw
:T+1→T
:End
:End
:
:Lbl J
:If E=0
: 4→I
:End
:If E=1
: 1→I
:End
:If E=2
: 2→I
:End
:If E≥3 and (E≤7
: Y-1→Y
:If S
: X-1→X
:Else
:X+1→X
:End
:End
:If E=8 or (E=9
:If S
: X-1→X
:Else
:X+1→X
:End
:End
:If E≥10 and (E≤14
: Y+1→Y
:If S
: X-1→X
:Else
:X+1→X
:End
:End
:If E=15
: 2→I
:End
:If E=16
: 1→I
:End
:If E=17
: 4→I
:End
:E+1→E
:Return
:
:Lbl G
:Return!If getKey(2) or getKey(3) or getKey(9)
:If getKey(2) or getKey(3)
: 1→D
:If getKey(2)
: X-1→X
:1→S
:End
:If getKey(3)
: X+1→X
:0→S
:End
:End
:If getKey(9)
: 0→E
:End
:If X=0
: 1→X
:End
:If X>88
: 88→X
:End
:0→T
:Return

804
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 27, 2010, 12:36:31 pm »
Je l'ai enlevé (j'essayais de faire un pt-off à la place de clrdraw) et cela rend le même résultat :/

805
Axe / Re: Recalling a pic
« on: May 27, 2010, 12:06:42 pm »
Ah.  Okay.  I should have realized this was in the Axe subforum.  *facepalm*  Here's what you want to do:
Code: (Axe Basic) [Select]
[Pic1]→Pic1  // Do this at the start of your program to absorb Pic1
// ...
// To recall it:
conj(Pic1,L6,768


Then, just DispGraph to show it.
You need use det(
Code: (Axe Basic) [Select]
:[Pic1]→Pic1
:det(12)
:pic1→dispgraph

806
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 27, 2010, 12:00:56 pm »
Voilà le code, pour l'instant c'est vraiment pas beau a voir, mais n'hésitez pas à me donner des conseil ;)

Spoiler For Spoiler:
Code: [Select]
:.AXEWA
:[0000000000000000→Pic0
:[788CD4D4864B613E→Pic1
:.IMAGE NORMAL GAUCHE
:[1E312B2B61D2867C→Pic4
:.IMAGE NORMAL DROITE
:[78DCD484CA62211F→Pic2
:.IMAGE HAUT GAUCHE
:[1E3B2B21534684F8→Pic5
:.IMAGE HAUT DROITE
:[00788CD4D785493E→Pic3
:.IMAGE BAS GAUCHE
:[001E312BEBA1927C→Pic6
:.IMAGE BAS DROITE
:0→D→S+1→I+39→X+16→Y
:Repeat getKey(15)
: ClrDraw
: 1+I→I
: If I=5
: 1→I
:End
:If I=1 or (I=3
: Pt-Off(A,B,Pic0
:If S
: Pt-On(X,Y,Pic1)
:Else
:Pt-On(X,Y,Pic4
:End
:End
:If getKey(2) or getKey(3)
:If I=2
:If S
: Pt-On(X,Y,Pic2
:Else
:Pt-On(X,Y,Pic5
:End
:End
:If I=4
:If S
: Pt-On(X,Y,Pic3
:Else
:Pt-On(X,Y,Pic6
:End
:End
:End
:DispGraph
:Pause 100
:X→A
:Y→B
:If getKey(2) and (X>0
: X-1→X
:1→S
:End
:If getKey(3) and (X<88
: X+1→X
:0→S
:End
:End

807
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 27, 2010, 11:37:03 am »
théoriquement, quand on fait dans une boucle :
clrdraw
pt-on
dispgraph
l'image est censé apparaître tout le temps et le clrdraw passer inaperçu
seulement voilà, l'image clignote quand le pt-on est toujours le même

808
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 26, 2010, 04:18:37 pm »
En gros si j'ai comprit ce que tu vient de me dire il faut faire :
pt-on(
clrdraw
dispgraph

Cela ne me paraît pas logique ^^
Ce que je cherche c'est un moyen de faire apparaître sans clignoter le stripe.

809
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 26, 2010, 04:11:21 pm »
Autre chose encore.. lorsque je fait un clrdraw, l'écran n'est pas censé être effacé?

810
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: May 26, 2010, 03:37:01 pm »
Est ce qu'il y a un moyen de déplacer une sprite dans une autre?
j'ai essayé:
 Pic1=>Pic0
 conj(Pic1,Pic0,768)
 Pic1=>Ans
Aucun ne marche :(

Pages: 1 ... 52 53 [54] 55 56 57