les sont sont arrivés

leretour/apple2/fr/engine.s

@@ -400,6 +400,48 @@ RND	rep	#$30
 
 VBLCounter0	ds	2
 
+*-----------------------------------
+* LES SONS DE L'ORIC
+*-----------------------------------
+
+	ext	sndEXPLODE
+	ext	sndZAP
+	
+EXPLODE	rep	#$30
+	ldx	#^sndEXPLODE
+	ldy	#sndEXPLODE
+	lda	#139
+	bra	playSOUND
+	
+ZAP	rep	#$30
+	ldx	#^sndZAP
+	ldy	#sndZAP
+	lda	#22
+
+playSOUND	sty	waveSTART
+	stx	waveSTART+2
+	sta	waveSIZE
+
+	PushWord #%0000_0000_1000_0000
+	_FFStopSound
+
+	PushWord #$0701
+	PushLong #waveSTART
+	_FFStartSound
+
+	sep	#$30
+	rts
+
+*--- Donnees Sound Tool Set
+
+waveSTART	ds	4	; waveStart
+waveSIZE	ds	2	; waveSize
+	dw	428	; freqOffset
+	dw	$0000	; docBuffer
+	dw	$0000	; bufferSize
+	ds	4	; nextWavePtr
+	dw	255	; volSetting
+
 *-----------------------------------
 * RECOPIE ACTION A$
 *-----------------------------------

leretour/apple2/fr/fr.s

@@ -690,7 +690,7 @@ str4900	asc	'Sur le laser, vous voyez trois boutons : jaune, rouge et bleu.'00
 str4910	asc	'Vous etes entre dans le desintegrateur de particules...'00
 str4920	asc	'Vous etes entre dans le vaisseau par le sas a l'27'ouest qui ne s'27'ouvre pas de'0d'l'27'interieur.'00
 
-str5500	asc	0d'Etes-vous sur (O/N) ?'00
+str5500	asc	0d'Etes-vous sur (O/N) ? '00
 
 str19050	asc	'   Merci d'27'avoir essaye...!'00
 str19060	asc	'  Reveillez-vous , c'27'est fini !'00

leretour/apple2/fr/iigs.s

@@ -24,6 +24,7 @@
 	use	4/Misc.Macs
 	use	4/QD.Macs
 	use	4/QDAux.Macs
+	use	4/Sound.Macs
 	use	4/Util.Macs
 	use	4/Window.Macs
 	
@@ -381,7 +382,7 @@ toolTBL	dw	$0000	; flags
 	dw	$C000	; videoMode (shadowing + fast port)
 	dw	$0000	; resFileID
 	ADRL	$00000000	; dPageHandle
-	dw	$0010
+	dw	$0011
 	dw	$0003	; Miscellaneous Tool
 	dw	$0300
 	dw	$0004	; QuickDraw II
@@ -390,6 +391,8 @@ toolTBL	dw	$0000	; flags
 	dw	$0302
 	dw	$0006	; Event Manager
 	dw	$0300
+	dw	$0008	; Sound Tool Set
+	dw	$0100
 	dw	$000B	; Integer Math Tool Set
 	dw	$0200
 	dw	$000E	; Window Manager

leretour/apple2/fr/leretour.s

@@ -47,12 +47,6 @@ idxTIMER	=	200
 	jsr	EXPLODE
 	eom
 
-@play	mac
-	ldx	#>]1
-	ldy	#<]1
-	jsr	playMUSIC
-	eom
-
 @print	mac
 	ldx	#>]1
 	ldy	#<]1
@@ -77,6 +71,10 @@ idxTIMER	=	200
 	jsr	waitMS
 	eom
 
+@zap	mac
+	jsr	ZAP
+	eom
+
 *-----------------------------------
 * CODE BASIC EN ASM :-)
 *-----------------------------------
@@ -898,6 +896,8 @@ tbl4000	da	$bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
 	rts
 
 :4230	@explode
+	@wait	#100
+	@explode
 	@print	#str4230
 	rts
 
@@ -1107,9 +1107,11 @@ MDP$	asc	'MANOIR'
 	jmp	:gagne
 
 :4615	@print	#str4615
-	@explode
+	@zap
+	@wait	#100
 	@print	#str4616
-	@wait	#400
+	@zap
+	@wait	#300
 	@print	#str4618_1
 	@wait	#200
 	@print	#str4618_2
@@ -1117,7 +1119,8 @@ MDP$	asc	'MANOIR'
 	@print	#str4618_3
 	jmp	:perdu
 
-:4620	@print	#str4620
+:4620	@explode
+	@print	#str4620
 	rts
 	
 :4630	@print	#str4630
@@ -1165,14 +1168,18 @@ MDP$	asc	'MANOIR'
 	rts
 
 :4740	@explode
+	@wait	#100
+	@explode
 	@print	#str4740
 	jmp	:perdu
 
 :4750	@explode
+	@wait	#100
 	@print	#str4750
 	jmp	:perdu
 	
 :4760	@explode
+	@wait	#100
 	@print	#str4760
 	jmp	:perdu
 
@@ -1268,6 +1275,7 @@ MDP$	asc	'MANOIR'
 	jsr	GETLN1
 	cpx	#1
 	bne	:5500
+	jsr	rewriteSTRING
 	lda	TEXTBUFFER
 	cmp	#chrOUI
 	beq	:5510
@@ -1541,10 +1549,10 @@ initALL
 * 20000 - PERDU
 *-----------------------------------
 
-:perdu	@explode
+:perdu	@wait	#200
+	@explode
 	jsr	setTEXTFULL
 	@print	#strPERDU
-*	@play	#zikPERDU
 
 :20050			; commun avec gagne
 ]lp	@print	#strREPLAY
@@ -1564,15 +1572,8 @@ initALL
 :gagne
 	jsr	setTEXTFULL
 	@print	#strGAGNE
-*	@play	#zikINTRODUCTION
 	jmp	:20050
 
-*-----------------------------------
-* ORIC
-*-----------------------------------
-
-EXPLODE	rts
-
 *-----------------------------------
 * CODE 6502
 *-----------------------------------

leretour/apple2/fr/makeiigs.s

@@ -14,5 +14,11 @@
 
          ASM   iigs.s
          KND   $0000
-         SNA   IIgs
+         SNA   LeRetour
+
+* Assemble files
+
+         ASM   ../common/sons.s
+         KND   $0000
+         SNA   DrGenius