works and works

toutadisparu/sources st/DISPARU.SRC

@@ -338,12 +338,6 @@ PROCEDURE initialisation_tableaux
     CASE "#"                            !UN MOT CLICABLE?
       scene|=ASC(LEFT$(ligne$,1))       !ON  LIT LE NUMERO DE LA SCENE
       '
-      
-      0         1         2         3         4
-      01234567890123456789012345678901234567890
-      #1suite +1G0
-      #2plage +13Fred retourne sur la plage0
-
       INC pointeur_mots|(scene|)        !ET UN MOT EN PLUS!
       espace%=INSTR(ligne$," ",2)       !ON REPERE LE CARACTERE ESPACE
       fonction_mot$(scene|,pointeur_mots|(scene|))=MID$(ligne$,2,espace%-2)

toutadisparu/sources/_FileInformation.txt

@@ -1 +1 @@
-ToutADisparu=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
+ToutADisparu=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

toutadisparu/sources/game.s

@@ -809,7 +809,6 @@ doECOMM	jsr	next_index
 
 doDIESE	jsr	next_index
 	dec
-	sta	localSCENE
 	tax		; la scene
 	
 	sep	#$20	; un mot en plus
@@ -847,7 +846,7 @@ doDIESE	jsr	next_index
 
 	jsr	next_index
 
-*--- Maintenant, on parcout le tableau jusqu'ˆ l'espace
+*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
 
 ]lp	jsr	next_index
 	cmp	#instrSPACE
@@ -879,6 +878,25 @@ doDIESE	jsr	next_index
 	jsr	next_index
 
 	lda	localOFFSET	; 0/25/50 => 0/50/100
+	asl
+	clc
+	adc	localPOINT	; +=
+	tax
+	
+	sep	#$20
+	lda	[dpINDEX]	; prend le mot sur 8-bit
+	sta	aiguillage,x
+	rep	#$20
+	
+	jsr	next_index
+
+*--- Recopie la phrase si elle existe
+
+	jsr	next_index
+	bne	doDIESE1	; on a une cha”ne
+	rts
+
+doDIESE1	lda	localOFFSET	; 0/25/50 => 0/50/100
 	asl
 	pha
 	lda	localPOINT	; 0/1/2 => 0/2/4
@@ -889,14 +907,17 @@ doDIESE	jsr	next_index
 	pla
 	
 	lda	[dpINDEX]	; prend le mot sur 16-bit
-	sta	condition,x
+	sta	phrase,x
 
-	jsr	next_index
+*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
 
+]lp	jsr	next_index
+	cmp	#instrSPACE
+	bne	]lp
+	rts
 
 *--- Local data
 
-localSCENE	ds	2	; index de la scene
 localOFFSET	ds	2	; offset de chaque rangŽe
 localPOINT	ds	2	; index du mot