antoine-source/toutadisparu/sources/data.s

*
* Tout a disparu
*
* (c) 1992, Fran<EFBFBD>ois Coulon
* (c) 2022, Antoine Vignau & Olivier Zardini
*

	mx	%00

*-----------------------
* LES VARIABLES
*-----------------------

DEBUT_DATA	=	*	; C'est vachement pratique pour tout effacer !

*--- Variables Apple IIgs

tblTEXTES	ds	4*NB_TEXTES

*--- Pour la sauvegarde

C1	ds	1
P	ds	1

*--- Variables Atari ST

nbTEXTES	ds	2
nbTEXTES2	ds	2	; nombre de textes indiqu<71> dans le fichier .TEX
i	ds	2	; un index
localOFFSET	ds	2	; offset de chaque rang<6E>e
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
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<71>
mot_ancien	ds	2	; index du mot pr<70>c<EFBFBD>demment cliqu<71>
valeur_condition ds	2	; valeur condition 2B xx ou 2D yy
aventure	ds	2
nombre_scenes ds	2
scene_actuelle ds	2
scene_nouvelle ds	2
deplacement	ds	2	; BOOL - TRUE (new scene) or FALSE (same scene)
image_chargee ds	2	; WORD - TRUE or FALSE
escape	ds	2	; BOOL - TRUE or FALSE
fgSUITEFORCEE ds	2	; BOOL - TRUE or FALSE

mot	ds	128	; le mot <20> chercher (jusqu'au caract<63>re espace)
option_mot	ds	128	; le mot est enregistr<74> s'il est dans la liste

* Le texte <EFBFBD> afficher

ligne_max	ds	max_colonnes	; une ligne du texte
	asc	"TEXTE"
texte	ds	max_colonnes*max_lignes	; the text from the .TXT file
	asc	"TEXTE_FINAL"
texte_final	ds	max_colonnes*max_lignes	; the final text - known as b$ in Atari ST
	ds	2
	asc	"TEXTE_LIENS"
texte_liens	ds	max_colonnes*max_lignes	; FALSE: not a link, TRUE est un mot cliquable
	asc	"TEXTE_INDEX"
texte_index	ds	max_colonnes*max_lignes	; num<75>ro du mot

* Toujours en d<EFBFBD>cal<EFBFBD> : index 1 d<EFBFBD>marre <EFBFBD> 0 (NB_TEXTES est toujours > au nombre de sc<EFBFBD>nes)

SUITE_DATA	=	*	; C'est vachement pratique pour tout effacer (encore) !

fonction_mots ds	NB_TEXTES*NB_MOTS*2	; PNTR - mots qui vont "r<>agir"
aiguillage	ds	NB_TEXTES*NB_MOTS	; BYTE - scene correspondant au mot
condition	ds	NB_TEXTES*NB_MOTS*2	; WORD - scene devant avoir ete vue (ou non si n<>gatif)
pointeur_mots ds	NB_TEXTES		; BYTE - nombre de mots pour chaque scene
scene_visitee ds	NB_TEXTES		; BOOL - le joueur est-il pass<73> par cette sc<73>ne ?
phrase	ds	NB_TEXTES*NB_MOTS*2	; PNTR - phrases explicatives de chaque mot
image_a_charger ds	NB_TEXTES*2		; PNTR - nom des fichiers image <20> charger <20> chaque sc<73>ne
rouge1	ds	NB_TEXTES		; les composants RVB pour le fond
vert1	ds	NB_TEXTES
bleu1	ds	NB_TEXTES
rouge2	ds	NB_TEXTES
vert2	ds	NB_TEXTES
bleu2	ds	NB_TEXTES

FIN_DATA	=	*	; Ben, ouais !

	ds	2	; padding, we never know :-)