vive nous

labellezohra/sources/data.s

@@ -125,10 +125,30 @@ FIN_DATA	=	*
 
 *--- The Text Edit control
 
-teCONTROL	dw	9
+haCONTROL	ds	4	; handle to the control
 
+teCONTROL	dw	16	; pCount
+	adrl	1	; ID
+teRECT	ds	8	; rect
+	adrl	$85000000	; editTextControl
+	dw	%00000000_00000000	; flags
+	dw	%01110100_00000000	; moreFlags
+	ds	4	; refCon
+	adrl	%01100100_00010000_00000000_00000000	; textFlags
+	ds	8	; indentRect
+	adrl	$ffffffff	; vertBar
+	ds	2	; vertAmount
+	ds	4	; horzBar
+	ds	2	; horzAmount
+	ds	4	; styleRef
+	dw	%00000000_00000101	; textDescriptor
+teTEXT	ds	4	; textRef
+teLEN	ds	4	; textLength
+	
 *---
 
+fenetreRECT	ds	8
+
 fenetre_x	dw	0,10,10,10,120,10,10,10,10,10
 fenetre_y	dw	0,100,100,100,10,100,100,100,10,100
 fenetre_xx	dw	0,310,310,310,310,310,310,310,200,310

labellezohra/sources/game.s

@@ -762,7 +762,10 @@ ai_next	inx
 	beq	]lp
 
 	rep	#$30
+	lda	texte_selectionne
+	bne	ai_affiche
 	rts
+ai_affiche	jmp	cree_fenetre
 
 *-----------------------
 * PRESENTATION - OK
@@ -994,27 +997,6 @@ carreRECT	ds	2	; y0
 	ds	2	; y0+12
 	ds	2	; y0+12
 
-*-----------------------
-* RAMDISK - OK
-*-----------------------
-
-ramdisk
-	rts
-
-*-----------------------
-* 
-*-----------------------
-
-shoot_text
-	rts
-
-*-----------------------
-* 
-*-----------------------
-
-shoot_ligne
-	rts
-
 *-----------------------
 * CREE_FENETRE
 *-----------------------
@@ -1023,66 +1005,55 @@ shoot_ligne
 *  X : paragraphe
 
 cree_fenetre
-	rts
-
-*-----------------------
-* 
-*-----------------------
-* display_text(ligne%,niveau%)
-
-display_text
-	rts
-
-*-----------------------
-* ICE_LOAD - OK
-*-----------------------
-* ice_load(fichier$)
-
-ice_load
-	rts
-
-*-----------------------
-* ICE_DISP - OK
-*-----------------------
-* ice_disp(adresse_image%)
-
-ice_disp
-	rts
-
-*-----------------------
-* PALETTE - OK
-*-----------------------
-* palette(palette$)
-
-palette
-	rts
-
-*-----------------------
-* HIDE_SCREEN - OK
-*-----------------------
-
-hide_screen
-	rts
-
-*-----------------------
-* SHOW_SCREEN - OK
-*-----------------------
-
-show_screen
-	rts
-
-*-----------------------
-* HIDE_SCREEN2 - OK
-*-----------------------
-
-hide_screen2
-	rts
-
-*-----------------------
-* SHOW_SCREEN2 - OK
-*-----------------------
-
-show_screen2
+	lda	#$0fff
+	stal	$019e1e
+	stal	$e19e1e
+	
+	lda	objet_selectionne
+	asl
+	tax
+	lda	fenetre_y,x
+	sta	fenetreRECT
+	sta	teRECT
+	lda	fenetre_x,x
+	sta	fenetreRECT+2
+	sta	teRECT+2
+	lda	fenetre_yy,x
+	sta	fenetreRECT+4
+	sta	teRECT+4
+	lda	fenetre_xx,x
+	sta	fenetreRECT+6
+	sta	teRECT+6
+	
+	PushLong	#fenetreRECT
+	PushWord	#$0000
+	PushWord	#$0000
+	_SpecialRect
+	
+	lda	texte_selectionne
+	asl
+	asl
+	tax
+	lda	texteDEBUT,x
+	sta	teTEXT
+	lda	texteDEBUT+2,x
+	sta	teTEXT+2
+	
+	lda	texteDEBUT+4,x
+	sec
+	sbc	teTEXT
+	sta	teLEN
+	lda	texteDEBUT+6,x
+	sbc	teTEXT+2
+	sta	teLEN+2
+	
+	PushLong	#0
+	PushLong	wiMAIN
+	PushWord	#0
+	PushLong	#teCONTROL
+	_NewControl2
+	PullLong	haCONTROL
+	
 	rts
 
 *-----------------------
@@ -1782,22 +1753,6 @@ paintZIK	PushLong	#curPATTERN
 zikRECT	dw	150,0,200,320
 fgCLEAR	ds	2	; -1 set by interrupt
 
-*-----------------------
-* MIX - OK
-*-----------------------
-* mix(numero_son%)
-
-mix
-	rts
-
-*-----------------------
-* STOP_SAMPLE - OK
-*-----------------------
-* stop_sample
-
-stop_sample
-	rts
-
 *-----------------------
 * FIN_MUSIQUE - OK
 *-----------------------
@@ -1836,14 +1791,6 @@ fm_1	ldy	#$1f
 	cli
 	rts
 
-*-----------------------
-* DATA_FICHIERS_MUSIQUE - OK
-*-----------------------
-* data_fichiers_musique
-
-data_fichiers_musique
-	rts
-
 *-----------------------
 * T - OK
 *-----------------------
@@ -1878,13 +1825,6 @@ t1	lsr
 	_DrawString
 	rts
 
-*-----------------------
-* FIN - OK
-*-----------------------
-
-fin
-	rts
-
 *-----------------------
 * MON BEAU CURSEUR
 *-----------------------