ST code reordering

This commit is contained in:
Antoine Vignau 2023-08-24 14:47:23 +02:00
parent 3f1c852255
commit 729e3d4afd
2 changed files with 10 additions and 15 deletions

View File

@ -547,18 +547,14 @@ FUNCTION clic_mot$(texte$)
' ON REGARDE QUEL MOT DANS LE TEXTE Y CORRESPOND
'
CLR mot2$
IF pointeur_mot%<LEN(texte$) AND INSTR(alphabet$,UPPER$(MID$(texte$,pointeur_m
ot%,1)))
IF pointeur_mot%<LEN(texte$) AND INSTR(alphabet$,UPPER$(MID$(texte$,pointeur_mot%,1)))
'
pointeur2%=pointeur_mot%-1 !ON COMMENCE A SCANNER AU CARACTERE CLI
QUE
pointeur2%=pointeur_mot%-1 !ON COMMENCE A SCANNER AU CARACTERE CLIQUE
REPEAT
INC pointeur2% !ON AVANCE D'UN CARACTERE
EXIT IF pointeur2%>longueur_texte% !ON S'EN VA SI ON ARRIVE A LA FIN DU TE
XTE
EXIT IF pointeur2%>longueur_texte% !ON S'EN VA SI ON ARRIVE A LA FIN DU TEXTE
a$=MID$(texte$,pointeur2%,1) !ON CAPTURE CE CARACTERE
IF INSTR(alphabet$,UPPER$(a$)) !SI CE CARACTERE FAIT PARTIE DE CEUX CO
MPOSANT UN MOT
IF INSTR(alphabet$,UPPER$(a$)) !SI CE CARACTERE FAIT PARTIE DE CEUX COMPOSANT UN MOT
mot$=mot$+a$ !ON L'AJOUTE AU MOT "CLIQU<51>"
sortie!=FALSE !ET ON CONTINUE
ELSE
@ -602,8 +598,7 @@ FUNCTION aiguillage(scene_actuelle|,mot$)
condition&=condition&(scene_actuelle|,i|)
' !ON TESTE SI LA CONDITION
' !EST SATISFAITE (NEGATIVE OU POSITIVE)
IF (condition&>0 AND scene_visitee!(ABS(condition&))=TRUE) OR (condition
&<0 AND scene_visitee!(ABS(-condition&))=FALSE)
IF (condition&>0 AND scene_visitee!(ABS(condition&))=TRUE) OR (condition&<0 AND scene_visitee!(ABS(-condition&))=FALSE)
numero_mot|=i| ! SI C'EST OK ON VALIDE LE MOT
ENDIF
ENDIF

View File

@ -1,12 +1,12 @@
En 1992, Fran<61>ois Coulon publie sur Atari ST son derni<6E>re fiction numŽrique appelŽe "Tout A Disparu", un jeu interactif en trois Žpisodes interactifs distincts :
En 1992, Fran<61>ois Coulon publie sur Atari ST, "Tout A Disparu", sa derni<6E>re fiction numŽrique hypertexte, en trois Žpisodes interactifs distincts :
- "Heurts d'ouverture" o<> Fred recherche Mona, celle qu'il aime.
Cette histoire de Fran<61>ois Coulon et Sylvie Sarrat vous emm<6D>nera sur une plage de sable fin ou dans un night-club. Vous ferez la rencontre de nombreux personnages pour tenter de retrouver Mona.
Cette histoire de Fran<61>ois Coulon et illustrŽe par Sylvie Sarrat vous emm<6D>nera sur une plage de sable fin ou dans un night-club. Vous ferez la rencontre de nombreux personnages pour tenter de retrouver Mona.
- "Cheek to cheek & ashes to ashes", rŽflexions sur l'amour dans un couple entre Renaud et sa compagne.
Ecrite par Fran<61>ois Coulon et Faustino Ribeiro, accompagnez ce couple sur le chemin de l'amour. Saurez-vous dŽjouer tous les pi<70>ges pour Žviter la rupture et assurer un "Happy End" ?
Ecrite par Fran<61>ois Coulon, Faustino Ribeiro aux pinceaux, accompagnez ce couple sur le chemin de l'amour. Saurez-vous dŽjouer tous les pi<70>ges pour Žviter la rupture et assurer un "Happy End" ?
- "Un appel ˆ la mŽmoire" o<> nous suivons la (fin de) vie de MŽlanie Morin.
La paire Fran<EFBFBD>ois Coulon et Laurent Cotton est ˆ la manoeuvre pour ce court Žpisode o<> vos choix dŽcideront de la vie ou de la mort de MŽlanie.
Fran<EFBFBD>ois Coulon, ˆ la rŽalisation, retrouve Laurent Cotton, pour les dessins. Il est ˆ la manoeuvre pour ce court Žpisode o<> vos choix dŽcideront de la vie ou de la mort de MŽlanie.
Ces histoires sont accompagnŽes d'une musique choisie alŽatoirement par le programme, ainsi que d'images pour renforcer l'immersion dans les lieux visitŽs. Chaque sc<73>ne peut comporter des liens cliquables lorsque le texte est Žcrit en caract<63>res blancs Un clic vous permet de choisir le mot, deux clics de confirmer votre choix, votre dŽcision et ainsi de conditionner la suite du jeu. Toute l'interactivitŽ du jeu se trouve dans vos choix.
@ -22,7 +22,7 @@ Pour jouer, rien de plus simple : une souris pour d
Si vous voulez en savoir plus sur Fran<61>ois Coulon, visitez son site @ francoiscoulon.com. Pour dŽcouvrir les autres productions pour Apple IIgs de Brutal Deluxe Software, visitez notre site @ brutaldeluxe.fr
Le jeu utilise la police Courier en taille 10. Vous la trouverez sur les disquettes d'installation des System 6. Enfin, pour pouvoir profiter des musiques, nous vous invitons ˆ installer l'outil NTP+ Player disponible sur ninjaforce.com
Le jeu utilise la police Courier en taille 10. Pour pouvoir profiter des musiques, nous vous invitons ˆ installer l'outil NTP+ Player. Les deux sont disponibles dans le rŽpertoire Systeme de la disquette, copiez-les dans les rŽpertoires System/Fonts et System/Tools de votre disque de dŽmarrage.
Bonne dŽcouverte vidŽoludique,