antoine-source/toutadisparu/sources/data.s
Antoine Vignau 12000aa96b better
2023-08-19 01:14:06 +02:00

90 lines
2.2 KiB
ArmAsm
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

*
* 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
nbTEXTES ds 2
nbTEXTES2 ds 2 ; nombre de textes indiquŽ dans le fichier .TEX
tblTEXTES ds 4*NB_TEXTES
*--- Pour la sauvegarde
C1 ds 1
P ds 1
*--- Variables Atari ST
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)
numero_mot ds 2 ; WORD
mot ds 128 ; le mot ˆ chercher (jusqu'au caract<63>re espace)
option_mot ds 128 ; le mot est enregistrŽ s'il est dans la liste
image_chargee ds 2 ; WORD - TRUE or FALSE
escape ds 2 ; BOOL - TRUE or FALSE
fgSUITEFORCEE ds 2 ; BOOL - TRUE or FALSE
* Le texte ˆ afficher
LES_TEXTES = *
asc "LIGNE_MAX"
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
* Toujours en dŽcalŽ : index 1 dŽmarre ˆ 0 (NB_TEXTES est toujours > au nombre de sc<EFBFBD>nes)
asc "SUITE_DATA"
SUITE_DATA = * ; C'est vachement pratique pour tout effacer (encore) !
asc "FONCTION_MOTS"
fonction_mots ds NB_TEXTES*NB_MOTS*2 ; PNTR - mots qui vont "rŽagir"
asc "AIGUILLAGE"
aiguillage ds NB_TEXTES*NB_MOTS ; BYTE - scene correspondant au mot
asc "CONDITION"
condition ds NB_TEXTES*NB_MOTS*2 ; WORD - scene devant avoir ete vue (ou non si nŽgatif)
asc "POINTEUR_MOTS"
pointeur_mots ds NB_TEXTES ; BYTE - nombre de mots pour chaque scene
asc "SCENE_VISITEE"
scene_visitee ds NB_TEXTES ; BOOL - le joueur est-il passŽ par cette sc<73>ne ?
asc "PHRASE"
phrase ds NB_TEXTES*NB_MOTS*2 ; PNTR - phrases explicatives de chaque mot
asc "IMAGE_A_CHARGER"
image_a_charger ds NB_TEXTES*2 ; PNTR - nom des fichiers image ˆ charger ˆ chaque sc<73>ne
asc "ROUGE1"
rouge1 ds NB_TEXTES ; les composants RVB pour le fond
asc "VERT1"
vert1 ds NB_TEXTES
asc "BLEU1"
bleu1 ds NB_TEXTES
asc "ROUGE2"
rouge2 ds NB_TEXTES
asc "VERT2"
vert2 ds NB_TEXTES
asc "BLEU2"
bleu2 ds NB_TEXTES
asc "FIN_DATA"
FIN_DATA = * ; Ben, ouais !
ds 2 ; padding, we never know :-)