musique done

This commit is contained in:
Antoine Vignau 2023-09-02 22:47:17 +02:00
parent 41d8b8abd4
commit 10defd6b39
7 changed files with 4150 additions and 2782 deletions

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

View File

@ -75,6 +75,7 @@ DEBUT_DATA = *
fgTHEEND ds 2 ; LOGO
i ds 2
j ds 2
index ds 2
theX ds 2
theY ds 2
@ -174,9 +175,67 @@ paragraphes_lus ds 2
reference_objet ds nombre_paragraphes ; NUMERO DE L'OBJET ASSOCIE A CHAQUE PARAGRAPHE
reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRAPHE
FIN_DATA = *
*--- Sound files
* SNDxy.SND where x is the scene, y the file index (0..9)
tblSND da sndPART1
da sndPART2
da sndPART3
da sndPART4
da sndPART5
dw -1
sndPART1 da snd10
da snd11
da snd12
da snd13
da snd14
da snd15
da snd16
da snd17
da snd18
dw -1
sndPART2 da snd20
da snd21
da snd22
da snd23
da snd24
da snd25
da snd26
da snd27
da snd28
dw -1
sndPART3 da snd30
da snd31
da snd32
da snd33
da snd34
da snd35
da snd36
da snd37
da snd38
dw -1
sndPART4 da snd40
da snd41
da snd42
dw -1
sndPART5 da snd50
da snd51
da snd52
da snd53
da snd54
da snd55
da snd56
da snd57
da snd58
dw -1
* 10 1cemonsi,7500,"ce monsieur!",""
* 11 1safemme,7500,"sa femme!",""
* 12 1lechame,7500,"le chameau!",""
@ -186,7 +245,44 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
* 16 fx_synth,5000,"",""
* 17 fx_tromp,7500,"",""
* 18 fx_tromp,10000,"",""
* '
snd10 asc '10'
dw 217
str 'ce monsieur!'
str ''
snd11 asc '11'
dw 217
str 'sa femme!'
str ''
snd12 asc '12'
dw 217
str 'le chameau!'
str ''
snd13 asc '13'
dw 217
str 'et toute la smala!'
str ''
snd14 asc '14'
dw 290
str ''
str ''
snd15 asc '15'
dw 145
str ''
str ''
snd16 asc '16'
dw 145
str ''
str ''
snd17 asc '17'
dw 217
str ''
str ''
snd18 asc '18'
dw 290
str ''
str ''
* 20 2coinfli,7500,"des coins o","les flics ne vont plus"
* 21 2kararab,7500,"y'a des quartiers arab'",""
* 22 2karbret,7500,"si c'tait des quartiers bretons...",""
@ -196,7 +292,44 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
* 26 fx_siren,5000,"",""
* 27 fx_guita,5000,"",""
* 28 fx_guita,7500,"",""
* '
snd20 asc '20'
dw 217
str 'des coins o'9d
str 'les flics ne vont plus'
snd21 asc '21'
dw 217
str 'y'27'a des quartiers arab'
str ''
snd22 asc '22'
dw 217
str 'si c'278e'tait des quartiers bretons...'
str ''
snd23 asc '23'
dw 217
str 'some people from Nanterre'
str 'some people from Belleville!'
snd24 asc '24'
dw 145
str ''
str ''
snd25 asc '25'
dw 145
str ''
str ''
snd26 asc '26'
dw 145
str ''
str ''
snd27 asc '27'
dw 145
str ''
str ''
snd28 asc '28'
dw 217
str ''
str ''
* 30 3BOPARLE,7500,"ces beaux-parleurs","de la tlvision?"
* 31 3FAITFRA,7500,"qu'est-ce qu'ils ont fait","pour la france?"
* 32 3PASMILI,7500,"les trois quarts du temps, y z'ont","pas fait leur service miliaire"
@ -206,11 +339,62 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
* 36 fx_dzoin,7500,"",""
* 37 fx_dehem,7500,"",""
* 38 fx_dehem,10000,"",""
* '
snd30 asc '30'
dw 217
str 'ces beaux-parleurs'
str 'de la t'8e'l'8e'vision?'
snd31 asc '31'
dw 217
str 'qu'27'est-ce qu'27'ils ont fait'
str 'pour la france?'
snd32 asc '32'
dw 217
str 'les trois quarts du temps, y z'27'ont'
str 'pas fait leur service militaire'
snd33 asc '33'
dw 217
str 'y sont meme un peu p'8e'd'8e' sur les bords!'
str ''
snd34 asc '34'
dw 217
str 'hey hey hey!'
str ''
snd35 asc '35'
dw 217
str ''
str ''
snd36 asc '36'
dw 217
str ''
str ''
snd37 asc '37'
dw 217
str ''
str ''
snd38 asc '38'
dw 290
str ''
str ''
* 40 4algefra,7500,"nous n'tions pas pour","l'algrie francaise"
* 41 4algesah,7500,"nous tions pour l'algrie et","le sahara francais!"
* 42 4sousoff,7500,"les sous-off' de la coloniale,","dont j'tais"
* '
snd40 asc '40'
dw 217
str 'nous n'278e'tions pas pour'
str 'l'27'alg'8e'rie francaise'
snd41 asc '41'
dw 217
str 'nous '8e'tions pour l'27'alg'8e'rie et'
str 'le sahara francais!'
snd42 asc '42'
dw 217
str 'les sous-off de la coloniale'
str 'dont j'278e'tais'
* 50 5haine,7500,"qui a la haine de l'tranger?",""
* 51 5terrfra,7500,"la terre de france, elle est","d'abord aux franais"
* 52 5collabo,7500,"on nous parle des collabos,","y z'en ont fait moins"
@ -221,4 +405,54 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
* 57 fx_glin1,7500,"",""
* 58 fx_glin2,7500,"",""
FIN_DATA = *
snd50 asc '50'
dw 217
str 'qui a la haine de l'278e'tranger?'
str ''
snd51 asc '51'
dw 217
str 'la terre de france, elle est'
str 'd'27'abord aux fran'8d'ais'
snd52 asc '52'
dw 217
str 'on nous parle des collabos'
str 'y z'27'en ont fait moins'
snd53 asc '53'
dw 217
str 'c'27'est Le Pen (de ch'27'val)'
str ''
snd54 asc '54'
dw 217
str 'est anti-fran'8d'ais'
str ''
snd55 asc '55'
dw 217
str 'nous sommes des a.....s'
str ''
snd56 asc '56'
dw 217
str ''
str ''
snd57 asc '57'
dw 217
str ''
str ''
snd58 asc '58'
dw 217
str ''
str ''
*--- Donnees Sound Tool Set
waveSTART ds 4 ; waveStart
waveSIZE ds 2 ; waveSize
waveFREQ dw 214 ; freqOffset
dw $0000 ; docBuffer
dw $0000 ; bufferSize
ds 4 ; nextWavePtr
dw 255 ; volSetting
tblSTR1 ds 10*2 ; pointeur sur la premi<6D>re phrase
tblSTR2 ds 10*2 ; pointeur sur la seconde phrase
tblSIZE ds 10*2 ; taille de chaque son
tblFREQ ds 10*2 ; frŽquence de chaque son

View File

@ -1042,40 +1042,325 @@ mouse_off
rts
*-----------------------
*
* MUSIQUE - OK
*-----------------------
* musique
musique
musique jsr init_musique
lda #1
sta i
]lp lda i
jsr rythme
lda i
jsr charge_son
jsr clavier_sonore
jsr nettoie_musique
inc i
lda i
cmp #5
bcc ]lp
beq ]lp
rts
*-----------------------
*
* NETTOIE_MUSIQUE - OK
*-----------------------
* nettoie_musique
nettoie_musique
PushLong haBEAT
_DisposeHandle
lda #0
]lp pha
asl
asl
tax
lda haSND1+2,x
pha
lda haSND1,x
pha
_DisposeHandle
pla
inc
cmp j ; nombre de sons
bcc ]lp
rts
*-----------------------
* INIT_MUSIQUE - OK
*-----------------------
init_musique
PushWord #$ffff
_ClearScreen
rts
*-----------------------
*
* RYTHME - OK
*-----------------------
* rythme(rythme%)
rythme
*--- offset to beat number is +22
rythme sep #$20
ora #'0'
sta pBEAT+22
rep #$20
*---
lda #pBEAT
sta proOPEN+4 ; filename
jsl GSOS
dw $2010
adrl proOPEN
bcs ry_err2
lda proOPEN+2
sta proREAD+2
sta proCLOSE+2
ldy proEOF
sty proREAD+8
ldx proEOF+2
stx proREAD+10
pha
pha
phx
phy
PushWord myID
PushWord #%11000000_00001100
PushLong #0
_NewHandle
phd
tsc
tcd
lda [3]
sta ptrBEAT
sta proREAD+4
ldy #2
lda [3],y
sta ptrBEAT+2
sta proREAD+6
pld
pla
sta haBEAT
pla
sta haBEAT+2
bcs ry_err1
jsl GSOS
dw $2012
adrl proREAD
ry_err1 jsl GSOS
dw $2014
adrl proCLOSE
clc
ry_err2 rts
*-----------------------
* CHARGE_SON - OK
*-----------------------
* charge_son
*--- offset to sfxs number is +21
charge_son dec
asl ; pointe sur la table de pointeurs
tax ; par niveau (1..5)
lda tblSND,x
cmp #-1
bne ch_1
sec
rts
ch_1 sta dpFROM ; pointe sur sndPARTx
*-----------------------
*
*-----------------------
charge_son
lda #1 ; on charge tous les sons maintenant
sta j
]lp lda j
dec
asl
tay
tax
lda (dpFROM),y
cmp #-1 ; fin d'une structure
bne ch_2
clc
rts
ch_2 sta dpTO ; pointe sur l'entrŽe de la structure d'un son
lda (dpTO) ; nom du son
sta pSND+21
ldy #2
lda (dpTO),y
sta tblFREQ,x ; la frŽquence du son
lda dpTO
clc
adc #4
sta tblSTR1,x ; on pointe sur la premi<6D>re string
sta dpTO
lda (dpTO)
and #$ff
clc
adc tblSTR1,x
inc
sta tblSTR2,x
jsr charge_un_son
inc j
bra ]lp
*---
charge_un_son
lda #pSND
sta proOPEN+4 ; filename
jsl GSOS
dw $2010
adrl proOPEN
bcs cus_err2
lda proOPEN+2
sta proREAD+2
sta proCLOSE+2
ldy proEOF
sty proREAD+8
ldx proEOF+2
stx proREAD+10
pha
pha
phx
phy
PushWord myID
PushWord #%11000000_00001100
PushLong #0
_NewHandle
phd
tsc
tcd
lda j
dec
asl
tay
asl
tax
lda proEOF+1 ; nombre de pages
sta tblSIZE,y
lda [3]
sta ptrSND1,x
sta proREAD+4
ldy #2
lda [3],y
sta ptrSND1+2,x
sta proREAD+6
pld
pla
sta haSND1,x
pla
sta haSND1+2,x
bcs cus_err1
jsl GSOS
dw $2012
adrl proREAD
cus_err1 jsl GSOS
dw $2014
adrl proCLOSE
clc
cus_err2 rts
*-----------------------
*
* CLAVIER_SONORE - OK
*-----------------------
clavier_sonore
rts
pha
_GetForeColor
pha
_GetBackColor
PushWord #0
_SetForeColor
PushWord #15
_SetBackColor
cl_loop pha
PushWord #%00000000_00001010
PushLong #taskREC
_GetNextEvent
pla
beq cl_loop
lda taskREC ; une touche ?
cmp #keyDownEvt
bne cl_loop
lda taskMESSAGE ; entre 0 et 9 ?
cmp #'0'
bne cl_1
_SetBackColor
_SetForeColor
rts ; on sort
cl_1 cmp #'1'
bcc cl_loop
cmp #'9'+1
bcs cl_loop
sec
sbc #'1'
cmp j ; dans la limite du nombre de sons
bcs cl_loop
asl ; affiche les cha”nes
tax
phx
lda tblSIZE,x
sta waveSIZE
lda tblFREQ,x
sta waveFREQ
txa
asl
tay
lda ptrSND1,y
sta waveSTART
lda ptrSND1+2,y
sta waveSTART+2
lda tblSTR1,x
ldy #22
jsr t
plx
lda tblSTR2,x
ldy #23
jsr t
PushWord #%0000_0000_1000_0000 ; play the sound
_FFStopSound
PushWord #$0701
PushLong #waveSTART
_FFStartSound
brl cl_loop
*-----------------------
*
@ -1086,22 +1371,25 @@ mix
rts
*-----------------------
*
* STOP_SAMPLE - OK
*-----------------------
* stop_sample
stop_sample
rts
*-----------------------
*
* FIN_MUSIQUE - OK
*-----------------------
* fin_musique
fin_musique
rts
*-----------------------
*
* DATA_FICHIERS_MUSIQUE - OK
*-----------------------
* data_fichiers_musique
data_fichiers_musique
rts
@ -1152,40 +1440,40 @@ fin
*-----------------------
monCURSEUR
dw 16,4
hex FF00000000000000 ; data
hex F0F0000000000000
hex F00F000000000000
hex F000F00000000000
hex F0000F000FFFFF00
hex F00000F0F00000F0
hex F000000F00FFF00F
hex F0000FFF00F0F00F
hex F0F00F0F00F0F00F
hex FF0F00FF00F0F00F
hex F000F00FFFFFF00F
hex 00000F00000000F0
hex 000000FFFFFFFF00
hex 0FFFFFFF00F00000
hex F00000000F000000
hex 0FFFFFFFF0000000
dw 16,5
hex FF000000000000000000 ; data
hex F0F00000000000000000
hex F00F0000000000000000
hex F000F000000000000000
hex F0000F000FFFFF000000
hex F00000F0F00000F00000
hex F000000F00FFF00F0000
hex F0000FFF00F0F00F0000
hex F0F00F0F00F0F00F0000
hex FF0F00FF00F0F00F0000
hex F000F00FFFFFF00F0000
hex 00000F00000000F00000
hex 000000FFFFFFFF000000
hex 0FFFFFFF00F000000000
hex F00000000F0000000000
hex 0FFFFFFFF00000000000
hex FF00000000000000 ; mask
hex FFF0000000000000
hex FFFF000000000000
hex FFFFF00000000000
hex FFFFFF000FFFFF00
hex FFFFFFF0FFFFFFF0
hex FFFFFFFFFFFFFFFF
hex FFFFFFFFFFF0FFFF
hex FFFFFF0FFFF0FFFF
hex FF0FFFFFFFF0FFFF
hex F000FFFFFFFFFFFF
hex 00000FFFFFFFFFF0
hex 000000FFFFFFFF00
hex 0FFFFFFFFFF00000
hex FFFFFFFFFF000000
hex 0FFFFFFFF0000000
hex FF000000000000000000 ; mask
hex FFF00000000000000000
hex FFFF0000000000000000
hex FFFFF000000000000000
hex FFFFFF000FFFFF000000
hex FFFFFFF0FFFFFFF00000
hex FFFFFFFFFFFFFFFF0000
hex FFFFFFFFFFF0FFFF0000
hex FFFFFF0FFFF0FFFF0000
hex FF0FFFFFFFF0FFFF0000
hex F000FFFFFFFFFFFF0000
hex 00000FFFFFFFFFF00000
hex 000000FFFFFFFF000000
hex 0FFFFFFFFFF000000000
hex FFFFFFFFFF0000000000
hex 0FFFFFFFF00000000000
dw 1,1

View File

@ -122,9 +122,9 @@ fgRESTART = 2
tdc
sta myDP
lda #entryPOINT
lda #clavier_sonore
stal $300
lda #^entryPOINT
lda #^clavier_sonore
stal $302
*--- Version du systeme
@ -1162,6 +1162,28 @@ ptrTXT6 ds 4
ptrTXT7 ds 4
ptrTXT8 ds 4
haBEAT ds 4
ptrBEAT ds 4
haSND1 ds 4
haSND2 ds 4
haSND3 ds 4
haSND4 ds 4
haSND5 ds 4
haSND6 ds 4
haSND7 ds 4
haSND8 ds 4
haSND9 ds 4
ptrSND1 ds 4
ptrSND2 ds 4
ptrSND3 ds 4
ptrSND4 ds 4
ptrSND5 ds 4
ptrSND6 ds 4
ptrSND7 ds 4
ptrSND8 ds 4
ptrSND9 ds 4
temp ds 2
saveLANGUAGE ds 2
@ -1351,14 +1373,19 @@ proVERS dw 1 ; pcount
*--- offset to image number is +19
*--- offset to language is +16
*--- offset to text number is +22
*--- offset to beat number is +22
*--- offset to sfxs number is +21
* 1 2 3
* 23456789012345678901234567890123456789
pIMAGE strl '1/data/images/PIC1.PIC'
pFOND strl '1/data/images/PIC10.PIC'
pICONES strl '1/data/images/PIC11.PIC'
pREF strl '1/data/textes/fr/REF1.TXT'
pTXT strl '1/data/textes/fr/TXT1.TXT'
*--- offset to aventure number is +25
pBEAT strl '1/data/musiques/BEAT1.SPL'
pSND strl '1/data/musiques/SND10.SND'
pGAME strl '0/ '