We have background colors!

toutadisparu/sources/_FileInformation.txt

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

toutadisparu/sources/data.s

@@ -28,8 +28,8 @@ localPOINT	ds	2	; index du mot
 len_max	ds	2	; longueur de ligne_max
 longueur_texte ds	2	; nombre de caracteres du texte d'origine
 return	ds	2	; premier RC dans une ligne
-rvb5	ds	2
-rvbA	ds	2
+rvb1	ds	2	; index 1/5/9/D
+rvb2	ds	2	; index 2/6/A/E
 index_mot	ds	2	; un autre index qui pointe
 nb_mots	ds	2	; nombre de mots dans la scene
 mot_clique	ds	2	; index du mot cliquŽ

toutadisparu/sources/game.s

@@ -708,20 +708,8 @@ initialisation_tableaux
 	lda	ptrINDEX+2
 	sta	dpINDEX+2
 
-	bra	onsaute
-	
-*--- Initialise les valeurs du jeu
-
-	ldx	#SUITE_DATA	; on efface tout
-]lp	stz	|$0000,x
-	inx
-	cpx	#FIN_DATA
-	bcc	]lp
-
 *--- Initialise les valeurs RVB
 
-onsaute
-
 	ldx	#1	; RVB par dŽfaut
 	sep	#$20
 ]lp	lda	#4
@@ -1166,9 +1154,8 @@ modeForeCopy =	$0004	; QDII Table 16-10
 
 affiche_texte
 	jsr	switch_640	; switch to 640
-	bra	skipME
 
-* on s'occupe des couleurs d'index 5 et A
+* on s'occupe des couleurs de la palette
 	
 	lda	ptrFOND
 	sta	dpFROM
@@ -1178,40 +1165,56 @@ affiche_texte
 	ldx	scene_actuelle
 	sep	#$20
 	lda	rouge1-1,x
-	sta	rvb5+1
+	asl
+	sta	rvb1+1
 	lda	vert1-1,x
 	asl
 	asl
 	asl
 	asl
-	sta	rvb5
+	asl
+	sta	rvb1
 	lda	bleu1-1,x
-	ora	rvb5
-	sta	rvb5
+	asl
+	ora	rvb1
+	sta	rvb1
 
 	lda	rouge2-1,x
-	sta	rvbA+1
+	asl
+	sta	rvb2+1
 	lda	vert2-1,x
 	asl
 	asl
 	asl
 	asl
-	sta	rvbA
+	asl
+	sta	rvb2
 	lda	bleu2-1,x
-	ora	rvbA
-	sta	rvbA
+	asl
+	ora	rvb2
+	sta	rvb2
 
 	rep	#$20
 
-	ldy	#$7E00+$0A	; 5x2
-	lda	rvb5
+	lda	rvb2
+	ldy	#$7E02
+	sta	[dpFROM],y
+	ldy	#$7E0A
+	sta	[dpFROM],y
+	ldy	#$7E12
+	sta	[dpFROM],y
+	ldy	#$7E1A
 	sta	[dpFROM],y
 
-	ldy	#$7E00+$14	; Ax2
-	lda	rvbA
+	lda	rvb1
+	ldy	#$7E04
+	sta	[dpFROM],y
+	ldy	#$7E0C
+	sta	[dpFROM],y
+	ldy	#$7E14
+	sta	[dpFROM],y
+	ldy	#$7E1C
 	sta	[dpFROM],y
-
-skipME
 
 * et on affiche enfin