[Code]Mouvement case par case et collisions

Voir le sujet précédent Voir le sujet suivant Aller en bas

[Code]Mouvement case par case et collisions

Message par J8B le Mer 30 Mar - 4:51

Salutations aux lectrices et aux lecteurs,
Aujourd'hui je vous propose du code vous montrant un mouvement case par case avec collisions avec le décor (background) et avec des sprites.
Je me suis dit que ça serait bien de le partager avec vous, avec un peu d'adaptation vous pourriez en faire un petit RPG.
Que va t-on découvrir avec ce code ?
Et bien regardons maintenant le sommaire:
'Mouvement par case de 8 pixels
'Animations du héros
'Collision avec Background et Sprite
'Bouton Courir/Marcher
'Priorité modifiée Passe devant-derrière Sprite

Le code sera de la même couleur que la catégorie du sommaire, en noir on a les préliminaires concernant l'affichage des sprites et du décor
ainsi que la déclaration des variables, voici le code:



ACLS:CLEAR:SYSBEEP=0
LOAD "BGF0:TXT_FR",0
PNLTYPE "OFF"
LOCATE 3,22:?"R:Courir/Marcher"
SPSET 10,64,4,0,0,2 'Héros
SPOFS 10,40,8
SPSET 11,80,0,0,0,2 'SP1
SPOFS 11,24,8
SPSET 12,96,2,0,0,2 'SP2
SPOFS 12,56,8
SPSET 13,112,2,0,0,2 'SP3
SPOFS 13,72,8
SPSET 14,128,0,0,0,2 'SP4
SPOFS 14,88,8
SPSET 15,144,4,0,0,2 'SP5
SPOFS 15,104,8
SPSET 16,160,4,0,0,2 'SP6
SPOFS 16,120,8
SPSET 17,176,3,0,0,2 'SP7
SPOFS 17,136,8
SPSET 18,192,6,0,0,2 'SP8
SPOFS 18,152,8
SPSET 19,208,5,0,0,2 'SP9
SPOFS 19,168,8
SPSET 20,224,7,0,0,2 'SP10
SPOFS 20,184,8
SPSET 21,240,7,0,0,2 'SP11
SPOFS 21,200,8
SPSET 22,256,4,0,0,2 'SP12
SPOFS 22,216,8
FOR I=10 TO 22
SPANIM I,4,16
NEXT

BGFILL 1,0,0,31,23,33,9,0,0
FOR I=0 TO 3
BGPUT 0,16+I,16,156+I,8,0,0
BGPUT 0,16+I,17,188+I,8,0,0
BGPUT 0,16+I,18,220+I,8,0,0
BGPUT 0,16+I,19,252+I,8,0,0
BGPUT 1,16+I,19,216+I,8,0,0
BGPUT 1,16+I,20,248+I,8,0,0
NEXT
X10=40:Y10=8:SPD=2
SPOFS 12,56,16:SPOFS 13,72,0
SPOFS 14,88,24:SPOFS 15,104,40
SPOFS 16,120,24:SPOFS 17,136,0


@PRINCIPAL
GOSUB @BOUGE
GOSUB @SPPRIORITE
GOTO @PRINCIPAL

'++++Bouge par cases+++++++++
@BOUGE
IF BUTTON()>0 THEN GOSUB @DIRECTION
IF BTRIG()>0 AND BTRIG()<11 THEN SPANIM 10,4,SPD*4+8
IF !(BUTTON()>0 AND BUTTON()<11) THEN SPANIM 10,1,SPD*4+8

IF BUTTON(3) AND 512 THEN IF SPD==2 THEN SPD=1:SPANIM 10,4,SPD*4+8 ELSE SPD=2:SPANIM 10,4,SPD*4+8
IF BUTTON() AND 1 THEN MV=1:GOSUB @PARCASEY
IF BUTTON() AND 2 THEN MV=-1:GOSUB @PARCASEY
IF BUTTON() AND 4 THEN MV=1:GOSUB @PARCASEX
IF BUTTON() AND 8 THEN MV=-1:GOSUB @PARCASEX
VSYNC 1
RETURN


@DIRECTION
IF BUTTON() AND 1 THEN SPCHR 10,76,4,0,0,2
IF BUTTON() AND 2 THEN SPCHR 10,68,4,0,0,2
IF BUTTON() AND 4 THEN SPCHR 10,72,4,0,0,2
IF BUTTON() AND 8 THEN SPCHR 10,64,4,0,0,2
IF BUTTON(3)>10 THEN SPANIM 10,4,SPD*4+8
RETURN


'Pour l'axe Y
@PARCASEY
IF BUTTON()>10 THEN RETURN
GOSUB @COLLISION
IF COL==1 THEN COL=0:RETURN

FOR I=1 TO 8*SPD
Y10=Y10-MV/SPD

IF COLS==1 THEN Y10=Y10+MV/SPD
SPOFS 10,X10,Y10,0
GOSUB @SPPRIORITE
VSYNC 1
IF I==8*SPD THEN COLS=0:GOSUB @DIRECTION
NEXT
RETURN

'Pour l'axe X
@PARCASEX
IF BUTTON()>10 THEN RETURN
GOSUB @COLLISION
IF COL==1 THEN COL=0:RETURN

FOR I=1 TO 8*SPD
X10=X10-MV/SPD

IF COLS==1 THEN X10=X10+MV/SPD
SPOFS 10,X10,Y10,0
GOSUB @SPPRIORITE
VSYNC 1
IF I==8*SPD THEN
COLS=0:GOSUB @DIRECTION
NEXT
RETURN


'Collision Background
@COLLISION
XB=FLOOR(X10/8):YB=FLOOR(Y10/8)
BGREAD(1,XB,YB),ID1,PL1,HR1,VR1
BGREAD(1,XB+1,YB),ID3,PL1,HR1,VR1
BGREAD(1,XB,YB+2),ID2,PL2,HR2,VR2
BGREAD(1,XB+1,YB+2),ID5,PL2,HR2,VR2
BGREAD(1,XB-1,YB+1),ID4,PL4,HR4,VR4
BGREAD(1,XB+2,YB+1),ID8,PL8,HR8,VR8
RESTORE @DATACOL
FOR I=1 TO 3
READ IDC
IF (ID1==IDC OR ID3==IDC) AND (BUTTON() AND 1) THEN COL=1
IF (ID2==IDC OR ID5==IDC) AND (BUTTON() AND 2)==2 THEN COL=1
IF ID4==IDC AND (BUTTON() AND 4)==4 THEN COL=1
IF ID8==IDC AND (BUTTON() AND 8)==8 THEN COL=1
NEXT
'Collision avec Sprites existants
IF SPHIT(10,11)==1 THEN SPREAD(SPHITNO),XSN,YSN,ASN,ZOOMSN,IMGSN
IF (BUTTON() AND 1) AND SPHIT(10,11) AND Y10>YSN THEN COLS=1
IF (BUTTON() AND 2)==2 AND SPHIT(10,11) AND Y10<YSN THEN COLS=1
IF (BUTTON() AND 4)==4 AND SPHIT(10,11) AND Y10==YSN AND X10>XSN THEN COLS=1
IF (BUTTON() AND 8)==8 AND SPHIT(10,11) AND Y10==YSN AND X10<XSN THEN COLS=1
RESTORE @DATACOLSP
FOR I=11 TO 22
READ SPC
IF SPHITSP(10,SPC) AND SPHITNO!=SPC THEN SPREAD(SPC),XSP,YSP,ASP,ZOOMSP,IMGSP
IF BUTTON()==1 AND SPHITSP(10,SPC) AND Y10>YSP AND SPHITNO!=SPC THEN COLS=1
IF BUTTON()==2 AND SPHITSP(10,SPC) AND Y10<YSP AND SPHITNO!=SPC THEN COLS=1
IF BUTTON()==4 AND SPHITSP(10,SPC) AND Y10==YSP AND X10>XSP AND SPHITNO!=SPC THEN COLS=1
IF BUTTON()==8 AND SPHITSP(10,SPC) AND Y10==YSP AND X10<XSP AND SPHITNO!=SPC THEN COLS=1
NEXT
RETURN


@DATACOLSP
DATA 11,12,13,14,15,16,17,18,19,20,21,22


@DATACOL
DATA 0,217,218


@SPPRIORITE
IF SPHIT(10,11)==1 THEN GOTO @CHPRIO
RETURN
@CHPRIO

SPREAD(SPHITNO),XSN,YSN,ASN,ZOOMSN,IMGSN
ISP=SPHITNO:GOSUB @CHRPAL
SPREAD(10),XDIX,YDIX,ANG10,ZOOM10,IMG10
IF YDIX<YSN THEN SPCHR 10,IMG10,4,0,0,2:SPCHR SPHITNO,IMGSN,PALSN,0,0,1
IF YDIX>YSN THEN SPCHR 10,IMG10,4,0,0,2:SPCHR SPHITNO,IMGSN,PALSN,0,0,2
FOR ISP=11 TO 22
IF SPHITSP(10,ISP) AND SPHITNO!=ISP THEN SPREAD(ISP),XSP,YSP,ASP,ZOOMSP,IMGSP
GOSUB @CHRPAL
IF SPHITSP(10,ISP) AND SPHITNO!=ISP THEN IF YDIX<YSP THEN SPCHR ISP,IMGSP,PALSN,0,0,0
IF SPHITSP(10,ISP) AND SPHITNO!=ISP THEN IF YDIX>YSP THEN SPCHR ISP,IMGSP,PALSN,0,0,2
NEXT
RETURN

@CHRPAL
IF ISP==11 OR ISP==14 THEN PALSN=0
IF ISP==12 OR ISP==13 THEN PALSN=2
IF ISP==15 OR ISP==16 OR ISP==22 THEN PALSN=4
IF ISP==17 THEN PALSN=3
IF ISP==18 THEN PALSN=6
IF ISP==19 THEN PALSN=5
IF ISP==20 OR ISP==21 THEN PALSN=7
RETURN







Si vous avez des questions ou si vous voulez plus de précisions sur certains passages du code, n'hésitez pas à me le signaler,
je rajouterai des commentaires sur ce qui vous semble un peu obscur.
Sur ce, amusez vous bien !!

_________________
Statut (MàJ:29 Avril 2017): Sur le projet "Virtual Bébête" (avancée ~26%).
Mes BDs et mes dessins, c'est sur Webcomics, http://www.webcomics.fr/member/J8B

And i'm here too: http://petitcomputer.wikia.com/wiki/User:J8B
avatar
J8B

Messages : 402
Date d'inscription : 27/10/2013
Localisation : Tarn

Voir le profil de l'utilisateur http://webcomics.fr/member/J8B

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum