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
+	lda	#$0fff
-
+	stal	$019e1e
-*-----------------------
+	stal	$e19e1e
-* 
+	
-*-----------------------
+	lda	objet_selectionne
-* display_text(ligne%,niveau%)
+	asl
-
+	tax
-display_text
+	lda	fenetre_y,x
-	rts
+	sta	fenetreRECT
-
+	sta	teRECT
-*-----------------------
+	lda	fenetre_x,x
-* ICE_LOAD - OK
+	sta	fenetreRECT+2
-*-----------------------
+	sta	teRECT+2
-* ice_load(fichier$)
+	lda	fenetre_yy,x
-
+	sta	fenetreRECT+4
-ice_load
+	sta	teRECT+4
-	rts
+	lda	fenetre_xx,x
-
+	sta	fenetreRECT+6
-*-----------------------
+	sta	teRECT+6
-* ICE_DISP - OK
+	
-*-----------------------
+	PushLong	#fenetreRECT
-* ice_disp(adresse_image%)
+	PushWord	#$0000
-
+	PushWord	#$0000
-ice_disp
+	_SpecialRect
-	rts
+	
-
+	lda	texte_selectionne
-*-----------------------
+	asl
-* PALETTE - OK
+	asl
-*-----------------------
+	tax
-* palette(palette$)
+	lda	texteDEBUT,x
-
+	sta	teTEXT
-palette
+	lda	texteDEBUT+2,x
-	rts
+	sta	teTEXT+2
-
+	
-*-----------------------
+	lda	texteDEBUT+4,x
-* HIDE_SCREEN - OK
+	sec
-*-----------------------
+	sbc	teTEXT
-
+	sta	teLEN
-hide_screen
+	lda	texteDEBUT+6,x
-	rts
+	sbc	teTEXT+2
-
+	sta	teLEN+2
-*-----------------------
+	
-* SHOW_SCREEN - OK
+	PushLong	#0
-*-----------------------
+	PushLong	wiMAIN
-
+	PushWord	#0
-show_screen
+	PushLong	#teCONTROL
-	rts
+	_NewControl2
-
+	PullLong	haCONTROL
-*-----------------------
+	
-* HIDE_SCREEN2 - OK
-*-----------------------
-
-hide_screen2
-	rts
-
-*-----------------------
-* SHOW_SCREEN2 - OK
-*-----------------------
-
-show_screen2
 	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
 *-----------------------