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 - Metallica
31
« on: December 07, 2010, 12:34:20 pm »
Pour mettre du gris dans ma tilemap, dois-je faire ceci ?
.SPRITE 1
[0000000000000000->Pic1
[FFFFFFFFFFFFFFFF
.MAP
[000000000000000000000000->GDB1
For(A,0,11
Pt-On(A*8,0,{A+GDB1}*8+Pic1
Pt-On(A*8,0,{A+GDB1}*8+8+Pic1
End
DispGraphr
32
« on: December 07, 2010, 12:01:12 pm »
Tu peux en faire 256, 16*16=256 car le pointeur vise 2 caractères.
33
« on: November 10, 2010, 08:32:43 am »
Tu n'as pas compris certaine chose dans mon programme car j'ai essayé de le réduire à l'essentiel, là où pouvait se trouvait le problème.
:.PERSO
:
:.DATA
:[{sprite du perso}]→Pic1
:[{sprite du mur}]→Pic2
:
:Lbl A
:.M=1, Y=32, X=47, E=? /// E c'était pour dire si le perso était tourné gauche, droite, haut, bas. A la base il était à 0
:1→M+31→Y+15→X
:
:.Boucle principale
:Repeat getKey(15)
:If getKey(2)
:sub(COG)
:ClrDraw
:End
:
:If getKey(3)
:sub(COD)
:ClrDraw
:End
:
:If getKey(1)
:sub(COB)
:ClrDraw
:End
:
:If getKey(4)
:sub(COH)
:ClrDraw
:End
:
:sub(MAP)
:
:Pt-On(X,Y,E*8+Pic1)
:
:.On affiche 3 niveaux de gris ? //// Je mettais de l'herbe en gris dans le décor
:DispGraphr
:
:End
:Goto Z
:
:Lbl MAP
:If M=1
:For(A,0,11)
:Pt-On(A*8,0,Pic2)
:If (A≠4) and (A≠5)
:Pt-On(A*8,56,Pic2)
:End
:End
:For(A,1,7)
:Pt-On(0,A*8,Pic2)
:Pt-On(88,A*8,Pic2)
:End
:End
:Return
:
:.Déplacement à gauche ? /// oui
:Lbl COG
:0→B
:For(A,0,7)
:!If Pxl-Test(X-1,Y+A)
:B+1→B
:If B=8
:X-1→X
:End
:End
:End
:Return
:
:.Déplacement à droite ? /// oui
:Lbl COD
:0→B
:For(A,0,7)
:!If Pxl-Test(X+9,Y+A)
:B+1→B
:If B=8
:X+1→X
:End
:End
:End
:Return
:
:.Déplacement en bas ? /// oui
:Lbl COB
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y+9)
:B+1→B
:If B=8
:Y+1→Y
:End
:End
:End
:Return
:
:.Déplacement en haut ? ///oui
:Lbl COH
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y-1)
:B+1→B
:If B=8
:Y-1→Y
:End
:End
:End
:Return
:
:.La fin du programme
:Lbl Z
:ClrDraw
:ClrDrawr
:DispGraph
:.Pourquoi DispGraph ici ? /// parce que sinon ça donne l'impression que le programme lag lorsque j'archive l'appvar
34
« on: November 10, 2010, 06:45:16 am »
Merci pour le code Kindermoumoute mais si je désire rajouté des objets sur la map, il me semble que ça ne les prend pas en compte. J'irai peut être voir pour les datas si j'ai le temps.
35
« on: November 09, 2010, 01:28:43 pm »
J'arrive à déplacer le personnage mais le problème vient des collisions. Dans le code que j'ai posté, il faut regarder vers Lbl COG jusqu'au Lbl COH. J'aimerais savoir ce qui ne va pas et qu'il faut changer.
36
« on: November 09, 2010, 12:14:42 pm »
Hello tout le monde !
Voilà mon code::.PERSO
:
:.DATA
:[{sprite du perso}]→Pic1
:[{sprite du mur}]→Pic2
:
:Lbl A
1→M+31→Y+15→X
:Repeat getKey(15)
:If getKey(2)
:sub(COG)
:ClrDraw
:End
:If getKey(3)
:sub(COD)
:ClrDraw
:End
:If getKey(1)
:sub(COB)
:ClrDraw
:End
:If getKey(4)
:sub(COH)
:ClrDraw
:End
:sub(MAP)
:Pt-On(X,Y,Pic1+(E*8))
:DispGraphr
:End
:Goto Z
:Lbl MAP
:If M=1
:For(A,0,11)
:Pt-On(A*8,0,Pic2)
:If (A≠4) and (A≠5)
:Pt-On(A*8,56,Pic2)
:End
:End
:For(A,1,7)
:Pt-On(0,A*8,Pic2)
:Pt-On(88,A*8,Pic2)
:End
:End
:Return
:Lbl COG
:0→B
:For(A,0,7)
:!If Pxl-Test(X-1,Y+A)
:B+1→B
:If B=8
:X-1→X
:End
:End
:End
:Return
:Lbl COD
:0→B
:For(A,0,7)
:!If Pxl-Test(X+9,Y+A)
:B+1→B
:If B=8
:X+1→X
:End
:End
:End
:Return
:Lbl COB
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y+9)
:B+1→B
:If B=8
:Y+1→Y
:End
:End
:End
:Return
:Lbl COH
:0→B
:For(A,0,7)
:!If Pxl-Test(X+A,Y-1)
:B+1→B
:If B=8
:Y-1→Y
:End
:End
:End
:Return
:Lbl Z
:ClrDraw
:ClrDrawr
:DispGraph
Le problème c'est que le personnage passe à travers les sprites malgré les pxl-test lorsque je déplace le personnage en diagonale (uniquement par en haut et en bas). Comment corriger ce problème ?
|
Show Posts