comments added

toutadisparu/sources/conditions scene 5

@@ -1,19 +0,0 @@
-23 04
-
-#plage=LA PLAGE !Fred retourne sur ses pas, vers la plage
-	2B 01 03
-
-#case-nourriture 3?=NOURRITURE 3? !Fred va … la case de son vieil ami
-	2D 1A 1A
-	
-#case-nourriture 2?=NOURRITURE 2? !Fred va … la case de son vieil ami
-	2D 16 16
-
-#case-nourriture 1?=CASE !Fred va … la case de son vieil ami
-	2D 12 10
-
-#case+nourriture 3?=CASE FERMEE !Fred va … la case de son vieil ami
-	2B 1A 11
-
-#palmier-palmier=PALMIER !Fred grimpe sur l'arbre
-	2D 30 30

toutadisparu/sources/data.s

@@ -49,7 +49,10 @@ escape	ds	2	; BOOL - TRUE or FALSE
 fgSUITEFORCEE ds	2	; BOOL - TRUE or FALSE
 
 mot	ds	128	; le mot ˆ chercher (jusqu'au caract<63>re espace)
-
+ligne_commentaire		; la phrase de commentaire "mot" : explication
+	asc	D2	; on dŽmarre avec le "
+	ds	127
+	
 * Le texte ˆ afficher
 
 ligne_max	ds	max_colonnes	; une ligne du texte

toutadisparu/sources/game.s

@@ -1318,8 +1318,123 @@ tc_2	ldx	mot_clique	; on sauvegarde l'ancien mot
 * affiche_commentaire
 
 affiche_commentaire
+	cmp	#0
+	bne	ac_1
 	rts
 	
+ac_1	dec		; prend la scene
+	pha		; calcul l'index dans la dimension NB_MOTS
+	pha
+	pha		; index de sc<73>ne
+	PushWord #NB_MOTS	; taille d'une dimension
+	_Multiply
+
+	lda	1,s	; calcule l'offset pour les deux tableaux utiles
+	asl
+	sta	1,s
+
+	lda	mot_clique
+	dec
+	asl
+	clc
+	adc	1,s
+	sta	localOFFSET
+	pla
+	pla
+
+*--- on construit la cha”ne
+
+* 1- le mot
+
+	lda	localOFFSET
+	clc
+	adc	#fonction_mots
+	sta	dpFROM
+	lda	(dpFROM)
+	sta	dpINDEX
+	lda	ptrINDEX+2
+	sta	dpINDEX+2
+
+	sep	#$20
+	ldy	#0
+]lp	lda	[dpINDEX],y
+	cmp	#instrSPACE
+	beq	ac_2
+	sta	ligne_commentaire+1,y
+	iny
+	bne	]lp
+
+* 2- la sŽparation
+
+ac_2	tyx
+	rep	#$20
+	lda	#$20d3	; double quote fermant + espace
+	sta	ligne_commentaire+1,x
+	lda	#$203a	; deux-points + espace
+	sta	ligne_commentaire+3,x
+
+* 3- le commentaire
+
+	lda	localOFFSET
+	clc
+	adc	#phrase
+	sta	dpFROM
+	lda	(dpFROM)
+	sta	dpINDEX
+	lda	ptrINDEX+2
+	sta	dpINDEX+2
+
+	sep	#$20
+	ldy	#0
+]lp	lda	[dpINDEX],y
+	beq	ac_3
+	sta	ligne_commentaire+5,x
+	iny
+	inx
+	cpx	#126	; len max
+	bcc	]lp
+
+ac_3	stz	ligne_commentaire+5,x	; pour finir
+	
+	rep	#$20
+	
+*--- PrŽpare l'Žcran
+
+	PushLong	#old_pattern
+	_GetPenPat
+
+	pha
+	_GetForeColor
+
+	pha
+	_GetTextMode
+
+	PushLong	#black_pattern	; black pattern
+	_SetPenPat
+
+	PushLong #commentRECT
+	_PaintRect
+
+	PushWord	#15
+	_SetForeColor
+
+	PushWord	#modeForeCopy
+	_SetTextMode
+	
+	ldx	#^ligne_commentaire
+	ldy	#ligne_commentaire
+	lda	#19
+	jsr	cprint
+
+	_SetTextMode
+	_SetForeColor
+	_SetPenPat
+	rts
+
+*---
+
+commentRECT	dw	182,16,192,623
+	
 *-----------------------
 * SURLIGNER_MOT
 *-----------------------
@@ -1647,20 +1762,21 @@ tblUPPER	hex	000102030405060708090A0B0C0D0E0F
 * CPRINT - OK
 *-----------------------
 * cprint(texte$,ligne&)
-* A= ptr to string
-* Y= line index
+* X/Y= ptr to string
+* A= line index
 
-cprint	pea	^cprint	; ptr to text
-	pha
-	pha	; X
-	phy	; Y
+cprint	phx		; ptr to text
+	phy
+	pea	$0000	; X	; qu'on va initialiser
+	pha		; Y
 
 	pea	$0000	; count nb of chars in the string
-	sta	dpFROM
+	sty	dpFROM
+	stx	dpFROM+2
 	
 	ldy	#0
 	sep	#$20
-]lp	lda	(dpFROM),y
+]lp	lda	[dpFROM],y
 	beq	cprint1
 	iny
 	bne	]lp
@@ -1847,8 +1963,12 @@ strSUITE	asc	'suite '
 aiguille	ldx	mot_clique	; a-t-on cliquŽ de nouveau sur le m<>me mot ?
 	cpx	mot_ancien
 	beq	ai_entry
-	jmp	affiche_commentaire
-
+	jsr	affiche_commentaire
+	
+	lda	#FALSE
+	sta	deplacement
+	rts
+	
 ai_entry	cmp	#0
 	beq	ai_false
 	

toutadisparu/sources/toutadisparu.s

@@ -35,8 +35,9 @@
 *-----------------------
 
 @cprint	mac
-	lda	#]1
-	ldy	#]2
+	ldx	#^]1
+	ldy	#]1
+	lda	#]2
 	jsr	cprint
 	eom
 
@@ -103,16 +104,13 @@ FALSE	=	0
 	pha
 	_MMStartUp
 	pla
+	sta	mainID
+	ora	#$0100
 	sta	myID
 
 	tdc
 	sta	myDP
 
-	lda	#SUITE_DATA
-	stal	$300
-	lda	#^SUITE_DATA
-	stal	$302
-	
 *--- Version du systeme
 
 	jsl	GSOS
@@ -190,7 +188,7 @@ okMEM1	sty	ptrIMAGE
 
 	pha
 	pha
-	PushWord	myID
+	PushWord	mainID
 	PushWord	#refIsResource
 	PushLong	#1
 	_StartUpTools
@@ -261,6 +259,7 @@ mainLOOP	lda	scene_actuelle
 	jsr	nouvelle_scene	; on initialise la scène
 	lda	scene_actuelle
 	jsr	image		; on charge une image éventuelle
+	jsr	attente		; attend un clic
 	lda	scene_actuelle
 	jsr	get_textes		; on détermine le texte
 	jsr	prepare_texte	; que l'on prepare le texte
@@ -279,15 +278,14 @@ mainLOOP	lda	scene_actuelle
 
 taskLOOP	inc	VBLCounter0
 
-*	jsr	DEBUG
-
 *	PushWord #0
 *	PushWord #%11111111_11111111
 *	PushLong #taskREC
 *	_TaskMaster
 
 	pha
-	PushWord #%00000000_00001110	; mouse + keyboard
+*	PushWord #%00000000_00001110	; mouse + keyboard
+	PushWord #%11111111_11111111
 	PushLong #taskREC
 	_GetNextEvent
 	pla
@@ -630,7 +628,10 @@ meQUIT1
 	PushWord myID
 	_DisposeAll
 
-	PushWord myID
+	PushWord mainID
+	_DisposeAll
+
+	PushWord mainID
 	_MMShutDown
 
 	_TLShutDown
@@ -694,7 +695,8 @@ waitKEY	ldal	KBD-1
 waitEVENT	inc	VBLCounter0
 
 	pha
-	PushWord #%00000000_00001110	; mouse + keyboard
+*	PushWord #%00000000_00001110	; mouse + keyboard
+	PushWord #%11111111_11111111
 	PushLong #taskREC
 	_GetNextEvent
 	pla
@@ -1042,7 +1044,8 @@ nowWAIT1	pha
 
 *----------------------- Memory manager
 
-myID	ds	2
+mainID	ds	2	; app ID
+myID	ds	2	; user ID
 myDP	ds	2
 
 SStopREC	ds	4
@@ -1094,7 +1097,7 @@ taskDATA	ds	4	; wmTaskData       +16
 
 taskTBL	da	doNOT	; Null
 	da	doMOUSEDOWN	; mouseDownEvt
-	da	doMOUSEUP	; mouseUpEvt
+	da	doNOT	; mouseUpEvt
 	da	doKEYDOWN	; keyDownEvt
 	da	doNOT
 	da	doNOT	; autoKeyEvt