MSX Village forum

 
;----------------------------------------------------------
; Données
;----------------------------------------------------------
; (...)
; orientation du heros
VAL_ORI_H:
;------ 1, 2, 3, 4, 5, 6, 7, 8
db  0,16,16,16,32,48,48,48
;
;----------------------------------------------------------
; VARIABLES
;----------------------------------------------------------
        .page   3
;
; (...)
; variable pour la tempo
VAR_TIMER:
ds1
;hook original H.TIMI
REFRESH_OLD:
ds5
; variable animation heros
VAR_ANI_H:
ds1

;----------------------------------------------------------
GST_DEP_Heros:;---- Gestion mouvement -----
;----------------------------------------------------------
;
    xor     a; A=0 (test clavier) 
    call    GTSTCK; A= direction flèches clavier 
    cp      0; Si A=0
    jr     nz,@@GST_MOVE; si non (a<>0) saut à la boucle  
    inc     a; si oui A=A+1 (A=1)
    call    GTSTCK; A= direction manette 1 
    cp      0; Si A=0
jr     nz,@@GST_MOVE; si non (a<>0) saut à la boucle
ret
;  
;Gestion mouvement
@@GST_MOVE:
    push  af; sauve a (valeur joystick)
; Orientation sprite
dec a; on décale de -1 pour partir de 0
ldhl,VAL_ORI_H; HL = adr. orientation heros
ldb,0; mise dans BC de a
ldc,a; "
addhl,bc; HL = On met HL à l'adresse correspondant à adresse d'orientation voulue.
lda,[hl]; on met la valeur dans a
; Animation sprite
push  af; sauve a (orientation héros)
lda,[VAR_TIMER]; Chargement du timer
and7; toutes les 8 frames
jpnz,@@suite; saut à "pas de modif" si NON
lda,[VAR_ANI_H]; rappel de la variable d'animation
xor 8; inversion (0 ou 8)
ld[VAR_ANI_H],a; sauvegarde de la variable
@@suite:
lda,[VAR_ANI_H]; rappel de la variable d'animation ... hum
ld b,a; mise dans b pour l'ajouter à...
pop af; l'orientation du héros sauvegardée
add a,b; addition...
 ld [VAR_SPRITES+(0*4)+2],a; N° 1er sprite heros (plan0)
inc a;
inca; +
inc a; 4
inca;
 ld [VAR_SPRITES+(1*4)+2],a  ; N° 2nd sprite heros(plan1)

Hook VBL:
    CALL        Gest_Hero:
    CALL        Gest_Ennemis
    CALL        Dessine_Plan
    CALL        PlayMusic_And_SFX
    RET
 
Gest_Heros:
    CALL        LectureManette        ; retourne l'état de la manette dans A (direction et bouton tir/saut, perso je trouve que c'est bien aussi de sauvegarder cet état dans une variable en mémoire...
    LD    B,A                    ; sauvegarde l'état manette
    LD    A,(HeroStat)
    CP    VersDroite
    JP    Z,Gest_Droite
    CP    VersGauche
    JP    Z,Gest_Gauche
    CP    VersHaut
    JP    Z,Gest_Haut
    CP    VersBas
    JP    Z,Gest_Bas
    CP    EnPause
    JP    Z,Gest_Pause
    CP    Saute
    JP    Z,Gest_Saute
Gest_Indefini:

Gest_Droite:
    LD    A,B                    ; récup de la manette
    ici tu mets du code pour tester toute les actions possibles qui ont pour point de départ la marche vers la droite
    Est-ce qu'on veut sauter? -> si oui alors change le statut du héro pour qu'il soit dans l'état "saut", JP Gest_SautDroite
    Si il ne saute pas, est-ce qu'il tir? -> si oui création d'un objet tir ayant pour direction la direction du sens de marche du héro, avec une vitesse au minimum égale à celle du héro.
    Est-ce qu'on continu à aller à droite? -> si oui alors saut à la fin de gestion du Héro (Gest_Fin), sinon modifi l'état en fonction de l'action
     etc...
Gest_SautDroite:
    ajoute de l'accélération en Y (bas vers haut), sature la vitesse, si vitesse max Y atteinte alors vitesseY=0 et passage en statut "ChuteDroite" ou "ChuteGauche fonction de l'état de la manette...
    Si toujours vers la droite alors on maintient la vitesse (voir on continu à l'augmenter si pas encore au maxi) de déplacement vers la droite et on met à jour la positionX du Héro.
    Si ni droite ni gauche, on maintient le sens droite, mais on vas réduire la vitesse à chaque VBL (vitesse = vitesse - accel) jusqu'à atteindre une vitesse nulle
    Si gauche alors le héros change de direction -> statut passe à "SautGauche" , maintient sa vitesse ou on l'augmente si pas encore arrivé à saturation,
     etc...
     etc...
 
Gest_Fin:
     Ici on va tester les collision avec le décors et ajuster la position du Héro en conséquence
     En suite on appel le gestionnaire d'animation du Héro (d’animation des Objet dans l'absolu, à laquelle on passe en paramètre "Héros")

 
Hero_Fixe:
    DB    2        ; nb VBL
    DW    HeroFixe1    ;  pointeur vers la structure qui définie les sprites et leur position pour la frame1
    DB    3        ; nb VBL
    DW    HeroFixe2    ;  pointeur vers la structure qui définie les sprites et leur position pour la frame2
    DB    0        ; nb VBL = 0 alors retour au début
 
HeroFixe1:
    DB    0,0                ; offsetX, offsetY
    DW    Data0HeroFixe1    ;  pointeur vers les donnés du sprite bas pour la frame1
    DB    0,16                ; offsetX, offsetY
    DW    Data1HeroFixe1    ;  pointeur vers les donnés du sprite haut pour la frame1
 
HeroFixe2:
    DB    0,0                ; offsetX, offsetY
    DW    Data0HeroFixe2    ;  pointeur vers les donnés du sprite bas pour la frame1
    DB    0,16                ; offsetX, offsetY
    DW    Data1HeroFixe2    ;  pointeur vers les donnés du sprite haut pour la frame1
 
Chaque objet à l'écran possède sa structure propre en RAM. Cette structure contient des donnée comme: décompteur de VBL, pointeeur vers la structure de l'animation (animation qui dépend du statut de l'objet (marche à droite, marche à gauche, saute à droite, etc...), vitesse, accel, positionX, positiony, taileX, tailleY,etc... Lors de l'animation on charge le décompteur avec le nombre de VBL, à chaque VBL on parcourt la liste des objets (liste de pointeur sur les structures d'objets). pour chaque objet on actualise sa positionX et positionY, on vérifie si le décompteur de l'objet à atteint zéro, si oui on parcour la structure d'animation de l'objet pour charger la nouvelle frame.
Etc...