Forum des collectionneurs et utilisateurs d'ordinateurs anciens
https://forum.system-cfg.com/
Jester, te prend pas la tête...j'ai protégé le fichier TRANS.BAS sur la disquette
Ensuite si on a réussi à faire une adaptation pour Exelvision, je pense que c'est les doigts dans le nez sur CPC...
Effectivement, mais je ne suis pas magicien... et faire du copier/coller sans rien y comprendre, n'est pas productif.Après je ne connais pas l'Amstrad CPC, mais il y a eu des jeux bien supérieur à Transylvania.
Si l'adaptation réclame beaucoup trop de travail, je dirais que ce jeu n'en vaut pas la peine...
Oui, sur les appels ASM et les arguments des CALLs, surtout pour la partie "MEDIA" qui fait appel à la partie graphique!Si tu as besoin d'explications je peux t'aider (tant que la mémoire est là)
Pour la routine MEDIA(F,NN,R)Xavier a écrit :Oui, sur les appels ASM et les arguments des CALLs, surtout pour la partie "MEDIA"
Merci pour l'info!Pour la routine MEDIA(F,NN,R)
F= fonction ( 82:affiche décors _ 79:affiche objet _ 83:joue voix _ 77:joue music )
NN= numéro de l'objet à charger
R= boucle la musique ou la voix
... pour des milliers de lignes, est un remplissage de grandes surfaces... mais pour quelques lignes...ça restera supportable.Le problème du vectoriel est la vitesse d'affichage... avec un très bon codage ça passerait... sinon c'est insupportable.
Code : Tout sélectionner
;#F0# EXIT
;#F1# &20 bit5 %0|0|1|0|0|0|0|0 ; ND (1By) [20]
;#F2# &40 bit6 %0|1|0|0|0|0|0|0 ; ND (1By) [41,42,43]
;#F3# &60 bit6+bit5 %0|1|1|0|0|0|0|0 ; ND (2By) [60]
;#F4# &80 bit7 %1|0|0|0|0|0|0|0 ; MOVE TO / ABSOLUTE
;#F5# &A0 bit7+bit5 %1|0|1|0|0|0|0|0 ; LINE TO / ABSOLUTE
;#F6# &C0 bit7+bit6 %1|1|0|0|0|0|0|0 ; ? LINE TO / ABSOLUTE
;#F7# &E0 bit7+bit6+bit5 %1|1|1|0|0|0|0|0 ; FILL
Write "VTRACE.BIN"
org &8000
LD de,0 ; X coord.
LD hl,-100 ; Y coord.
CALL &BBC9
LD hl,&9000
Loop
XOR a
LD(TagDE+2),a ; Reset A > X up to 256
LD a,(hl)
CP &00
RET Z
AND &E0 ; get 111xxxxx
RLCA ; Rot 11xxxxx1
RLCA ; Rot 1xxxxx11
RLCA ; Rot xxxxx111
CP 1
JR z,tag20
CP 2
JR z,tag40
CP 3
JR z,tag60
CP 4
JR z,tag80 ; +BIT 0 RES
CP 5
JR z,tagA0 ; +BIT 0 RES
CP 6
JR z,tagC0 ; +BIT 0 RES
;; F7: tagE0
JR tagE0 ; +BIT 0 RES
;; Dist..
;#F1#;; ????
tag20
INC hl
JR loop
;#F2#;; ????
tag40 LD a,(hl)
CP &40
JR nz,tag41
JR Tag4X
tag41
CP &41
JR nz,tag42
JR Tag4X
tag42
CP &42
JR nz,Tag4X
tag43
;; &43 or BIT0 from RES 0,a
Tag4X
INC hl
JR end_loop
;#F3#;; ????
tag60
INC hl
INC hl
JR loop
;#F4#;; MOVE TO ; ABSOLUTE
tag80 CALL Get_A; tag81 + 256 offset
JR init_plot
;#F5#;; LINE TO ; ABSOLUTE
tagA0 CALL Get_A; tagA1 + 256 offset
CP &A0
JR nz,tagA2
JR init_line
tagA2
JR init_line
;#F7#;; LINE TO ; ABSOLUTE
tagC0 CALL Get_A
JR init_line
;#F6#;; FILL
tagE0 CALL Get_A; tagE1 + 256 offset
CP &E0
JR nz,tagE2
JR init_plot
tagE2
JR init_plot
end_loop
JR loop
init_line
LD a,&F6
JR int_launch
init_plot
LD a,&EA
int_launch
LD (callarg+1),a
CALL get_coo
CALL line1
JR end_loop
get_coo
INC hl
LD a,(hl)
LD (TagDE+1),a ; X coord.
INC hl
LD a,(hl)
XOR &FF
LD (TagHL+1),a ; Y coord.
INC hl
RET
line1
PUSH hl
TagHL
LD hl,&00FF
RL l
RL h
TagDE
LD de,&0000
RL e
RL d
callarg
CALL &BB00
POP hl
RET
Get_A
LD a,(hl)
BIT 0,a ; Test if X>256 from 81,A1,E1...
JR Z,Ret_1
ex af,af'
LD a,1
LD(TagDE+2),a
ex af,af'
Ret_1
RES 0,a
RET
[edit modo: Heu comment dire... même si le message d'un membre te semble déplacé, tu peux lui répondre, lui demander des explications voire lui demander des excuses, mais en aucun cas avec un déferlement d'insultes comme tu viens de le faire. Je te rappelle qu'on est en public et que je ne tolèrerai pas un autre écart de ce genre.]J'ai l'impression de faire mon 'Defcard' avec ce message pourri !
)a=DATA VECTEURGet_A
LD a,(hl)
BIT 0,a ; Test if X>256 from 81,A1,E1...
JR Z,Ret_1
ex af,af'
LD a,1
LD(TagDE+2),a
ex af,af'
