v0.1

labellezohra/comprehension.txt

@@ -17,42 +17,42 @@ OK	10	image de fond
 OK	11	image de fond avec ic™nes
 
 SONS
-1cemonsi	
+	1cemonsi	
-1safemme	
+	1safemme	
-1lechame	
+OK	1lechame	
-1smala	
+	1smala	
-2coinfli	
+	2coinfli	
-2kararab	
+	2kararab	
-2karbret	
+	2karbret	
-2gensnan	
+	2gensnan	
-3BOPARLE	
+	3BOPARLE	
-3FAITFRA	
+	3FAITFRA	
-3PASMILI	
+	3PASMILI	
-3UNPEUPE	
+	3UNPEUPE	
-4algefra	
+	4algefra	
-4algesah	
+	4algesah	
-4sousoff	
+	4sousoff	
-5haine	
+	5haine	
-5terrfra	
+	5terrfra	
-5collabo
+	5collabo
-5clepen	
+	5clepen	
-5antifra	
+OK	5antifra	
-5abrutis	
+	5abrutis	
-fx_batte	
+	fx_batte	
-fx_beat	
+OK	fx_beat	
-fx_boing	
+OK	fx_boing	
-fx_couic	
+	fx_couic	
-fx_cuivr	
+OK	fx_cuivr	
-fx_dehem	
+OK	fx_dehem	
-fx_dzoin	
+	fx_dzoin	
-fx_flute	
+	fx_flute	
-fx_glin1	
+OK	fx_glin1	
-fx_glin2	
+OK	fx_glin2	
-fx_guita	
+	fx_guita	
-fx_hey	
+OK	fx_hey	
-fx_siren	
+	fx_siren	
-fx_synth	
+	fx_synth	
-fx_tromp	
+	fx_tromp	
 
 LES PECHES CAPITAUX
 Orgueil

labellezohra/sources st/zohra_final.txt

@@ -722,6 +722,7 @@ PROCEDURE presentation
     carre("… la famille paspire...",100,180,"555")
   ENDSELECT
 RETURN
+'
 PROCEDURE carre(texte$,x%,y%,couleur$)
   SETCOLOR 0,0,0,0                                      !FOND DE L'ECRAN EN NOIR
   SETCOLOR 15,7,7,5                                              !TEXTE EN JAUNE

labellezohra/sources/game.s

@@ -19,6 +19,130 @@
 	jsr	carre
 	eom
 
+*-----------------------
+* GESTION DES ICONES
+*-----------------------
+
+test_icone
+	lda	#0			; from 1
+]lp	pha
+	asl
+	asl
+	asl
+	tax
+	lda	taskWHERE+2		; compare le X
+	cmp	coordonnees_peches,x
+	bcc	icone_ko
+	lda	coordonnees_peches+4,x
+	cmp	taskWHERE+2
+	bcc	icone_ko
+	
+	lda	taskWHERE		; et le Y
+	cmp	coordonnees_peches+2,x
+	bcc	icone_ko
+	lda	coordonnees_peches+6,x
+	cmp	taskWHERE
+	bcc	icone_ko
+	
+	pla				; on a notre ic™ne
+	inc
+*	sta	instruction2
+	rts
+
+icone_ko
+	pla
+	inc
+	cmp	#nombre_objets-1		; et non plus nombre_icones
+	bcc	]lp
+	rts
+
+*---
+
+efface_icone	; X is object
+	cpx	#0
+	beq	ei1
+	jsr	set_icone
+
+	_HideCursor
+	PushLong #iconParamPtr
+	_PaintPixels
+	_ShowCursor	
+ei1	rts
+	
+*---
+
+affiche_icone	; X is object
+	cpx	#0
+	beq	ai1
+	jsr	set_icone
+
+	_HideCursor
+	PushLong #fondParamPtr
+	_PaintPixels
+	_ShowCursor	
+ai1	rts
+
+*---
+
+set_icone	txa
+	dec
+	asl
+	asl
+	asl		; because we are 16-bit
+	tax
+	lda	coordonnees_peches+2,x
+	sta	iconToSourceRect
+	sta	iconToDestPoint
+	lda	coordonnees_peches,x
+	sta	iconToSourceRect+2
+	sta	iconToDestPoint+2
+	lda	coordonnees_peches+6,x
+	sta	iconToSourceRect+4
+	lda	coordonnees_peches+4,x
+	sta	iconToSourceRect+6
+	rts
+
+*---
+
+fondParamPtr
+	adrl	fondToSourceLocInfo
+	adrl	iconToDestLocInfo
+	adrl	iconToSourceRect
+	adrl	iconToDestPoint
+	dw	$0000	; mode copy
+	ds	4
+
+iconParamPtr
+	adrl	iconToSourceLocInfo
+	adrl	iconToDestLocInfo
+	adrl	iconToSourceRect
+	adrl	iconToDestPoint
+	dw	$0000	; mode copy
+	ds	4
+
+fondToSourceLocInfo
+	dw	mode_320	; mode 320
+	ds	4	; ptrFOND - $0000 on entry, high set after _NewHandle
+	dw	160
+	dw	0,0,199,319
+	
+iconToSourceLocInfo
+	dw	mode_320	; mode 320
+	adrl	$8000	; ptrICON - $8000 on entry, high set after _NewHandle
+	dw	160
+	dw	0,0,199,319
+	
+iconToDestLocInfo
+	dw	mode_320	; mode 320
+	adrl	ptrE12000
+	dw	160
+	dw	0,0,199,319
+	
+iconToSourceRect
+	dw	3,0,109,272
+iconToDestPoint
+	dw	3,0
+
 *-----------------------
 * set_language
 *-----------------------

labellezohra/sources/labellezohra.s

@@ -30,6 +30,24 @@
 	use   4/Util.Macs
 	use   4/Window.Macs
 
+*-----------------------
+* macros
+*-----------------------
+
+@loadfile	mac
+	lda	]1
+	ldx	]2+2
+	ldy	]2
+	jsr	loadFILE
+	eom
+
+@fadein	mac
+	lda	]2
+	ldx	]1+2
+	ldy	]1
+	jsr	fadeIN
+	eom
+	
 *----------------------------------- Constantes
 
 *-------------- Softswitches
@@ -103,6 +121,11 @@ fgRESTART	=	2
 
 	tdc
 	sta	myDP
+
+	lda	#entryPOINT
+	stal	$300
+	lda	#^entryPOINT
+	stal	$302
 	
 *--- Version du systeme
 
@@ -145,7 +168,7 @@ okMEM1	sty	ptrIMAGE
 	stx	loadBACK1+3	; with the toolbox
 	rep	#$10
 	
-*--- 64K pour la sauvegarde de l'écran
+*--- 64K pour les images du jeu
 
 	jsr	make64KB
 	bcs	koMEM
@@ -153,7 +176,9 @@ okMEM1	sty	ptrIMAGE
 	sty	ptrFOND
 	stx	ptrFOND+2
 	stx	ptrICONES+2
-
+	stx	fondToSourceLocInfo+4	; fond
+	stx	iconToSourceLocInfo+4	; icon
+	
 *--- 64K pour les images compressees
 
 	jsr	make64KB
@@ -162,7 +187,7 @@ okMEM1	sty	ptrIMAGE
 	sty	ptrUNPACK
 	stx	ptrUNPACK+2
 	
-*--- 64K pour les INDEX des textes
+*--- 64K pour les REFERENCES des textes
 
 	jsr	make64KB
 	bcs	koMEM
@@ -209,7 +234,14 @@ okTOOL	_HideMenuBar
 	pla
 
 	_InitCursor
-	_HideCursor
+
+	PushLong #0
+	PushWord #5	; SetDeskPat
+	PushWord #$4000
+	PushWord #$0000
+	_Desktop
+	pla
+	pla
 
 	PushLong	#0
 	_GetPort
@@ -230,8 +262,14 @@ okTOOL	_HideMenuBar
 *-----------------------
 * MAIN
 *-----------------------
-* main
 
+entryPOINT
+	@loadfile	#pFOND;ptrFOND
+	@loadfile	#pICONES;ptrICONES
+	@fadein	ptrFOND;#TRUE
+	jsr	waitEVENT
+	@fadein	ptrICONES;#TRUE
+	
 mainLOOP	jsr	teste_fin
 	jsr	demande_objet
 	
@@ -337,51 +375,12 @@ doMOUSEUP
 *	bcc	mup2	; oui
 *	rts
 *mup2	jsr	aiguille	; on aiguille le joueur (1 ou 2 clics)
-*	rts
+	rts
 	
 *-----------------------------------
 * AUTRES ROUTINES
 *-----------------------------------
 
-switch_320	lda	#0	; Switch to 320 mode
-	ldy	#screen_320
-	bra	switch_res
-
-switch_640	lda	#$80	; Switch to 640 mode
-	ldy	#screen_640
-	
-*-----------
-
-switch_res	sty	mainWIDTH
-	pha
-	pha
-	_SetMasterSCB
-	_SetAllSCBs
-	_InitCursor
-	PushLong mainPORT
-	_InitPort
-	_HideCursor
-
-	PushWord	#0
-	PushWord	mainWIDTH
-	PushWord	#0
-	PushWord	#200
-	_ClampMouse
-	_HomeMouse
-*	PushLong	#monCURSEUR
-*	_SetCursor
-	_ShowCursor
-	_WindNewRes
-	_MenuNewRes
-	_CtlNewRes
-	rts
-
-*-----------
-
-mainWIDTH	ds	2
-oldWIDTH	ds	2
-mainPORT	ds	4
-
 *----------------------------------- Open
 
 doLOAD
@@ -1041,16 +1040,14 @@ nowWAIT1	pha
 mainID	ds	2	; app ID
 myID	ds	2	; user ID
 myDP	ds	2
+mainPORT	ds	4	; default grafport
 
 SStopREC	ds	4
 
 ptrIMAGE	ds	4	; $0000: where a scene image is loaded
-
 ptrFOND	ds	4	; $0000: fond de jeu
 ptrICONES	adrl	$8000	; $0000: fond d'icônes du jeu
-
 ptrUNPACK	ds	4	; $0000: where the background picture is laoded
-
 ptrREF	ds	4	; les index des textes
 ptrTEXTES	ds	4	; les textes