|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 43607 (0xaa57)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦644075bc4⟧
└─⟦this⟧
! scenario de test 2
! raisonner par position dans les lieux decrits
VERBES SONT
Prendre Aller Ouvrir Corriger
Sortir Informer Taper Editer
Lire Utiliser Effacer Regarder
.
COMPLEMENTS SONT
Table Armoire Chaise Macintosh Belladone
Rational Console clavier
Ascenseur Souris TP_Irmx
Manuel_Unix Consignes_incendie
Stylo Disquette
fichier
Salle_Mac Salle_Lsi Salle_II Couloir
! complements divers
Possessions Lexique jeu
! mot a trouver
Camomille
! mots bidons
rationalle
camillemo millemoca millecamo mocamille momilleca
camille milleca momille millemo camo moca
ca mo mille
ld hl b add
.
FAMILLES SONT
Piece AVEC Description(CHAINE) ET Nombre_Acces(ENTIER)
ET ENSEMBLE DE Attributs ET ENSEMBLE DE Attributs_caches.
Date AVEC Jour (ENTIER) ET Mois (CHAINE) ET Annee (ENTIER).
Personnage AVEC HERITAGE DE Date_Naissance(Date) ET Nombre_de_vie (ENTIER) ET
Situation (CHAINE) ET ENSEMBLE DE Possessions.
un_ensemble AVEC ENSEMBLE DE elements.
VARIABLES SONT
etat_armoire COMME CHAINE ("fermee").
Date_de_Naissance COMME Date( 45 "Janvier" 1995).
Joueur COMME Personnage
( (0 " " 0) 10 "Couloir" ['Disquette' 'Stylo']) .
La_Salle_Mac COMME Piece
("la Salle Macintosh : elle possede un acces vers le 'couloir'."
1 ['Armoire' 'Macintosh' 'Chaise' 'Table'] ['manuel_unix'] ).
Le_Couloir COMME Piece
("le couloir accedant a 3 salles : 'salle_LSI', 'salle_Mac' et 'salle_II'."
3 ['Consignes_incendie'] []).
La_Salle_Lsi COMME Piece
( "la salle_lsi : c'est la salle de TP des 3eme annee, elle possede un unique acces vers le couloir. "
1 ['Console' 'Clavier'] []).
La_Salle_II COMME Piece
("la salle_II : c'est la salle de torture des 2eme annees, elle possede un unique acces vers le couloir."
1 ['Ascenseur' 'Souris' 'Console'] []).
Plateau_de_jeu COMME un_ensemble (['salle_mac' 'salle_lsi' 'salle_lsi']).
INITIALISATIONS SONT
jour de Date_naissance DE Joueur DEVIENT 45.
Situation DE Joueur DEVIENT "Couloir".
ECRIRE "".
ECRIRE " * * * * ******* ********* ******* ***** ******* * * ********* ".
ECRIRE " * * * * * * * * * * * * * * * * * ".
ECRIRE " * * * * * * * * * * * * * * * * * * ".
ECRIRE " * * * * ***** ******* * ******* **** * * * * * ".
ECRIRE " * * * * * * * * * * * * * * * * * * ".
ECRIRE " ** ** * * * * * * * * * * * * * * ".
ECRIRE " ** ** * * * * * * * ***** ******* ******* * ".
ECRIRE "".
ECRIRE "".
ECRIRE " ******* ****** * ******* * * **** ".
ECRIRE " * * * * * * * * * * * ".
ECRIRE " * * * * * * * * * * ".
ECRIRE " ******* ****** * ******* * * ".
ECRIRE " * * * * * * * * ".
ECRIRE " * * * * * * * ".
ECRIRE " * * * ******* * * * * ".
ECRIRE "".
ECRIRE "".
ECRIRE "".
ECRIRE "Bonne chance pour trouver ... le mot de passe UNIX de Mr Hassenforder ".
ECRIRE "".
ECRIRE "".
ECRIRE "".
ECRIRE "Pour abandonner la partie tapez : 'Sortir' 'jeu'" .
ECRIRE "".
ECRIRE "Pour savoir ou vous etes tapez : 'informer'".
ECRIRE "".
ECRIRE "Pour connaitre vos possessions tapez : 'informer' 'possessions'".
ECRIRE "".
ECRIRE "Pour lister le vocabulaire autorise tapez : 'informer' 'lexique'".
ECRIRE "".
VIE EST
SI ('Sortir' COMPLEMENT1) ALORS
SI COMPLEMENT1 = 'jeu' ALORS
ECRIRE "Vous n'etes pas tres perspicaces. ".
QUITTER.
SINON SI (COMPLEMENT1 = 'salle_lsi') ET (situation de joueur = "salle_lsi")
ALORS situation de joueur DEVIENT "couloir".
ECRIRE "Vous etes maintenant dans le couloir.".
SINON SI (COMPLEMENT1 = 'salle_II') ET (situation de joueur = "salle_II")
ALORS situation de joueur DEVIENT "couloir".
ECRIRE "Vous etes maintenant dans le couloir.".
SINON SI (COMPLEMENT1 = 'salle_mac') ET (situation de joueur = "salle_mac")
ALORS situation de joueur DEVIENT "couloir".
ECRIRE "Vous etes maintenant dans le couloir.".
SINON ECRIRE "Le verbe 'sortir' ne peut etre utilise qu'avec le mot jeu, pour abandonner le jeu ".
ECRIRE "en cours de partie ou avec le nom de la piece ou vous vous trouvez,".
ECRIRE "sauf pour le couloir.".
FSI.
FSI.
FSI.
FSI.
FSI.
SI 'sortir' ALORS
ecrire "Sortir de ou ???".
FSI.
SI 'sortir' COMPLEMENT1 COMPLEMENT2 ALORS
ECRIRE "Vous ne pouvez pas sortir deux endroits a la fois !".
FSI.
SI 'Informer' ALORS
SI Situation DE Joueur = "Couloir" ALORS
ECRIRE "Vous etes dans " Description DE Le_Couloir.
ECRIRE "Vous pouvez y voir les objets suivants : " Attributs DE Le_Couloir ".".
FSI.
SI Situation DE Joueur = "Salle_Mac" ALORS
ECRIRE "Vous etes dans " Description DE La_Salle_Mac.
ECRIRE "Vous pouvez y voir les objets suivants : " Attributs DE La_Salle_Mac ".".
ECRIRE "Je vous conseille de bien 'regarder' l'armoire, ou d''utiliser' le 'macintosh'.".
FSI.
SI Situation DE Joueur = "Salle_Lsi" ALORS
ECRIRE "Vous etes dans " Description DE La_Salle_lsi.
ECRIRE "Vous pouvez y voir les objets suivants : " Attributs DE La_Salle_Lsi ".".
FSI.
SI Situation DE Joueur = "Salle_II" ALORS
ECRIRE "Vous etes dans " Description DE La_Salle_II.
ECRIRE "Vous pouvez y voir les objets suivants : " Attributs DE La_Salle_II ".".
FSI.
FSI.
SI 'informer' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'Possessions'
ALORS
ECRIRE "vous possedez : " Possessions DE joueur.
SINON SI (COMPLEMENT1 = 'salle_mac') ET (situation de joueur = "salle_mac")
ALORS ECRIRE "Vous etes dans " Description DE La_Salle_Mac "." .
SINON SI (COMPLEMENT1 = 'salle_lsi') ET (Situation DE Joueur = "Salle_Lsi")
ALORS ECRIRE "Vous etes dans " Description DE La_Salle_lsi "." .
SINON SI (COMPLEMENT1='salle_II') ET (Situation DE Joueur = "Salle_II")
ALORS ECRIRE "Vous etes dans " Description DE La_Salle_II "." .
SINON SI (COMPLEMENT1 = 'couloir') ET (Situation DE Joueur = "Couloir")
ALORS ECRIRE "Vous etes dans " Description DE Le_Couloir "." .
SINON SI (COMPLEMENT1 = 'lexique')
ALORS ECRIRE "Les Verbes : Prendre Aller Ouvrir Effacer".
ECRIRE " Sortir Informer Taper Editer ".
ECRIRE " Lire Utiliser Remplacer".
ECRIRE "".
ECRIRE "Les Complements : Table Armoire Chaise Macintosh Belladone".
ECRIRE " Rational Console Clavier Ascenseur Souris".
ECRIRE " TP_Irmx Manuel_Unix Consignes Fichier".
ECRIRE " Stylo Disquette ".
ECRIRE "".
ECRIRE " Salle_Mac Salle_Lsi Salle_II Couloir".
SINON ECRIRE "Je n'ai aucune information sur cet objet !".
FSI.
FSI.
FSI.
FSI.
FSI.
FSI.
FSI.
SI 'informer' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Stop! On se calme, on reprend son souffle ... et on demande une information a la fois. ".
FSI.
SI ('lire') OU ('corriger') OU ('taper') OU ('effacer') OU ('ouvrir') OU ('editer')
ALORS
ECRIRE "Moi je veux bien, ... mais quoi donc ??? ".
FSI.
SI ('lire' COMPLEMENT1 COMPLEMENT2)
ALORS ECRIRE "Je ne peut quand meme pas lire deux choses a la fois.".
FSI.
SI 'regarder' ALORS
ECRIRE "Regarder quoi ? regarder dans le blanc des yeux, peut-etre?".
FSI.
SI ('regarder' COMPLEMENT1 COMPLEMENT2)
ALORS ECRIRE "Je ne peut quand meme pas regarder deux choses a la fois.".
FSI.
SI 'aller' ALORS
ECRIRE "Ou ca ? ".
FSI.
SI 'aller' COMPLEMENT1 COMPLEMENT2
ALORS ECRIRE "Je ne peut aller qu'a un endroit a la fois !".
FSI.
SI 'prendre'
ALORS ECRIRE "Prendre quoi ? votre pied peut-etre?".
FSI.
SI 'prendre' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Vous n'etes pas super-man , vous ne pouvez prendre qu'une chose a la fois.".
FSI.
SI 'taper' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Vous n'etes pas Rocky, vous ne pouvez taper sur deux choses a la fois ?".
FSI.
SI 'effacer' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Vous n'etes pas ambidextre... ".
FSI.
SI 'ouvrir' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Espece de zouave, ce n'est pas parce que vous avez deux mains que vous pouvez ouvrir deux choses a la fois.".
FSI.
SI 'editer' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Vous ne pouvez pas editer deux choses a la fois.".
FSI.
SI 'corriger' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Je ne peut pas corriger deux choses a la fois !".
FSI.
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! Debut des clauses concernant le Couloir
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
SI (Situation DE Joueur = "Couloir")
ALORS
SI ('Lire' COMPLEMENT1) OU ('Regarder' COMPLEMENT1)
ALORS SI COMPLEMENT1 = 'Consignes_incendie'
ALORS
ECRIRE "Il n'y a pas le feu !".
SINON ECRIRE "Vous ne pouvez pas faire ceci. Je vous rappelle que le seul objet qui se trouve dans le couloir".
ECRIRE "sont les 'consignes_incendie'.".
FSI.
FSI.
SI 'Aller' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'Salle_Mac'
ALORS
Situation DE joueur DEVIENT "Salle_Mac".
ECRIRE "Vous vous trouvez maintenant dans la salle_mac, d'ailleurs on peut y voir un Macintosh ".
ECRIRE "Si vous desirez plus d'informations sur cette salle, taper 'informer'".
SINON SI (COMPLEMENT1 = 'salle_lsi')
ALORS
Situation DE joueur DEVIENT "Salle_Lsi".
ECRIRE "Vous vous trouvez maintenant dans la salle_lsi.Une console est a votre disposition".
ECRIRE "Si vous desirez plus d'informations sur cette salle, taper 'informer'.".
ECRIRE "".
ECRIRE "Si vous pensez connaitre les bons indices pour composer le mot de passe, alors".
ECRIRE "'Taper' le mot de passe. ".
SINON SI (COMPLEMENT1 = 'Salle_II')
ALORS
ECRIRE "Vous vous trouvez maintenant dans la salle_II. Une console est a votre disposition.".
ECRIRE "Si vous desirez plus d'informations sur cette salle, taper 'informer'.".
Situation DE joueur DEVIENT "Salle_II".
SINON SI (COMPLEMENT1 = 'couloir')
ALORS ECRIRE "Mais vous y etes deja !".
SINON ECRIRE "Espece d'alcoolique, je ne peut quand meme pas aller dans un tel endoit.".
FSI.
FSI.
FSI.
FSI.
FSI.
SI ('ouvrir' COMPLEMENT1) OU ('utiliser' COMPLEMENT1) OU ('prendre' COMPLEMENT1) OU
('Corriger' COMPLEMENT1) OU ('Taper' COMPLEMENT1) OU ('Editer' COMPLEMENT1) OU ('Effacer' COMPLEMENT1)
ALORS ECRIRE "Vous ne pouvez pas faire ceci !".
FSI.
SI 'utiliser' COMPLEMENT1 COMPLEMENT2
ALORS
ECRIRE "Vous ne pouvez pas utiliser deux objets a la fois !".
FSI.
SI 'utiliser'
ALORS
ECRIRE "Mais quoi donc? Les consignes de securites peut_etre?".
FSI.
FSI.
!*********** fin des actions pour le couloir ***********
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! Debut des clauses concernant la salle_mac
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
SI (Situation DE Joueur = "Salle_Mac")
ALORS
SI 'regarder' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'armoire') ET (etat_armoire = "fermee")
ALORS
ECRIRE "Cette armoire fermee, pourquoi ne pas l'ouvrir?".
SINON SI (COMPLEMENT1 = 'armoire') ET (etat_armoire = "ouverte")
ALORS ECRIRE "Cette armoire est ouverte.".
SI 'manuel_unix' DANS Attributs_caches DE la_salle_mac
ALORS ECRIRE "D'ailleurs je vois un 'manuel_unix' dans cette armoire.".
ECRIRE "Vous qui adorez Unix, vous devez etre content, non ?".
SINON SI NON ( 'manuel_unix' DANS Attributs_caches DE la_salle_mac )
ALORS ECRIRE "D'ailleurs elle est vide.".
SINON ECRIRE " Vous ne pouvez pas regarder cette chose.".
FSI.
FSI.
FSI.
FSI.
FSI.
SI ('Ouvrir' COMPLEMENT1)
ALORS SI (COMPLEMENT1 = 'Armoire') ET (etat_armoire = "fermee")
ALORS
ECRIRE "Bonne Idee ... l'armoire est maintenant ouverte. Vous pourriez regarder dedans.".
etat_armoire DEVIENT "ouverte".
SINON SI (COMPLEMENT1 = 'Armoire') ET (etat_armoire = "ouverte")
ALORS ECRIRE "Mais elle est deja ouverte !".
SINON ECRIRE "Vous ne pouvez pas ouvrir ceci. ".
FSI.
FSI.
FSI.
SI 'Prendre' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'Macintosh'
ALORS
ECRIRE "C'est trop lourd, et en plus le vol est durement reprime : vous avez perdu 2 points de vie".
SI Nombre_de_vie DE Joueur > 2
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-2).
ECRIRE "Votre total de points de vie s'eleve a : " Nombre_de_vie DE Joueur.
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie : nous vous accordons, dans un elan de ".
ECRIRE "generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON
SI (COMPLEMENT1 = 'Manuel_Unix') ET ('Manuel_Unix' DANS Attributs_caches DE La_Salle_Mac) ET (etat_armoire ="ouverte")
ALORS
AJOUTER 'Manuel_Unix' A Possessions DE Joueur.
RETIRER 'Manuel_Unix' A Attributs_caches DE La_Salle_Mac.
ECRIRE "Vous possedez maintenant un manuel unix : ca pourra toujours servir ...".
SINON SI (COMPLEMENT1 DANS possessions de joueur)
ALORS ECRIRE "Cet objet n'est plus dans la salle_mac : vous le possedez !".
SINON ECRIRE "vous ne pouvez pas prendre ceci.".
FSI.
FSI.
FSI.
FSI.
SI 'Utiliser'
ALORS
ECRIRE "Votre pieds ou un des charmants ordinateur presents dans la salle?".
FSI.
SI 'Utiliser' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'Macintosh'
ALORS
ECRIRE "Un texte est affiche : Rationalle est une R_1000".
ECRIRE "'Corriger' l'erreur ...".
SINON SI (COMPLEMENT1 = 'manuel_unix') ET ('manuel_unix' DANS possessions DE joueur)
ALORS ECRIRE "Je ne peux rien en faire pour le moment".
SINON ECRIRE "Vous ne pouvez que 'utiliser' le 'macintosh' dans cette salle".
FSI.
FSI.
FSI.
SI ('Corriger' COMPLEMENT1)
ALORS
SI (COMPLEMENT1 = 'rationalle') OU (COMPLEMENT1 = 'rational')
ALORS
ECRIRE "Facile! vous avez corrige l'erreur !. Vous avez donc droit a l'indice suivant :".
ECRIRE " MILLE".
ECRIRE "Je vous conseille de bien retenir cet indice car il vous permettra de trouver la solution".
ECRIRE "En plus, vous avez gagne un point de vie, car vous avez supprime un bug".
Nombre_De_Vie DE Joueur DEVIENT (Nombre_De_Vie DE Joueur + 1).
ECRIRE "Votre total de point de vie est :" Nombre_De_Vie DE Joueur.
SINON ECRIRE "ce n'est pas une erreur, reessayer !".
SI Nombre_de_vie DE Joueur > 1
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
ECRIRE "Vous avez quand meme perdu un point de vie, car vous n'avez pas trouve la bonne erreur, pourquoi ne pas".
ECRIRE "reessayer ?".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie : nous vous accordons, dans un elan de ".
ECRIRE "generosite, une derniere action. Mettez la a profit !!!".
FSI.
FSI.
FSI.
SI ('Aller' COMPLEMENT1)
ALORS SI (COMPLEMENT1 = 'Couloir')
ALORS situation de joueur DEVIENT "couloir".
ECRIRE "Vous etes maintenant dans le couloir".
SINON SI (COMPLEMENT1 DANS elements DE Plateau_de_jeu )
ALORS ECRIRE "Je vous rappelle que vous etes dans la salle_mac : la seule sortie est vers le couloir.".
SINON ECRIRE "Ce que me vous me demander n'est pas une piece ou aller.".
FSI.
FSI.
FSI.
SI 'Utiliser' COMPLEMENT1 COMPLEMENT2
ALORS
SI ((COMPLEMENT1 = 'Disquette') ET (COMPLEMENT2 = 'Macintosh')) OU ((COMPLEMENT1 = 'Macintosh') ET (COMPLEMENT2 = 'Disquette'))
ALORS
ECRIRE "Vous avez insere la disquette dans le macintosh ...".
RETIRER 'disquette' A possessions DE joueur.
AJOUTER 'disquette' A Attributs DE La_salle_mac.
ECRIRE "Pauvre malheureux !!! La disquette est verolee et est bloquee dans le mac !!! Pour couronner le tout, Bresch vous".
ECRIRE "a surpris en flagrant delit ... la sanction est immediate : vous perdez 2 points de vie ".
SI Nombre_de_vie DE Joueur > 2
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-2).
ECRIRE "Votre total de points de vie s'eleve a : " Nombre_de_vie DE Joueur.
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie : nous vous accordons, dans un elan de ".
ECRIRE "generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON ECRIRE "Vous ne pouvez pas utiliser ces deux choses ensembles ".
SI 'disquette' DANS possessions DE joueur
ALORS ECRIRE "Pourquoi ne pas utiliser la 'disquette' avec le 'macintosh' ???".
FSI.
FSI.
FSI.
SI ('Taper' COMPLEMENT1) OU ('Editer' COMPLEMENT1) OU ('Effacer' COMPLEMENT1)
ALORS ECRIRE "Vous ne pouvez pas faire ceci dans la salle_mac !".
FSI.
SI 'Lire' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Manuel_Unix')
ALORS SI ('Manuel_Unix' DANS Possessions DE Joueur)
ALORS SI Nombre_de_vie DE Joueur > 3
ALORS ECRIRE "La lecture de ce volumineux manuel nous a fait perdre de precieuses heures.".
ECRIRE "La sanction est la perte de 3 points de vie.".
Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur - 3.
ECRIRE "Il vous reste encore " Nombre_De_Vie DE Joueur " points de vie.".
ECRIRE "Etait ce bien utile !?!".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie : nous vous accordons, dans un elan de ".
ECRIRE "generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON ECRIRE "Si au moins vous possediez le tres interessant 'Manuel_Unix' qui traine".
ECRIRE "dans l'une des pieces, nous pourrions peut etre faire quelque chose.".
FSI.
SINON ECRIRE "Vous me demandez n'importe quoi ! Un peu de serieux s'il vous plait !".
FSI.
FSI.
FSI.
!*********** fin des clauses pour la salle mac *************
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! Debut des clauses concernant la salle_lsi
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
SI (Situation DE Joueur = "Salle_Lsi")
ALORS
SI 'Utiliser'
ALORS
ECRIRE "L'electricite ou une console !!!".
FSI.
SI 'Utiliser' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'Console'
ALORS ECRIRE "Le 'fichier' d'initialisation de la console ne marche pas ".
ECRIRE "Pourquoi ne pas l' 'editer' ?".
SINON SI COMPLEMENT1 = 'Belladone'
ALORS ECRIRE "Une grosse machine pour vous seul, ce n'est pas raisonnable voyons !!!".
SINON SI (COMPLEMENT1 = 'Clavier')
ALORS ECRIRE "Voila une reaction censee ! La machine vous demander de 'Taper' votre mot de passe .".
SINON ECRIRE "Je ne vois pas ce que je peux faire avec cet objet".
FSI.
FSI.
FSI.
FSI.
SI 'Utiliser' COMPLEMENT1 COMPLEMENT2
ALORS ECRIRE "Je ne doute pas que vous soyez assez fort pour faire deux choses a la fois,".
ECRIRE "malheureusement, moi, je n'y arrive pas".
FSI.
Si 'Effacer' COMPLEMENT1
ALORS SI COMPLEMENT1 = 'MO'
ALORS ECRIRE "Le fichier d'initialisation va enfin pouvoir s'executer !".
ECRIRE "Vous avancez a grand pas vers la victoire car MO est un element du puzzle.".
ECRIRE "De plus, pour vous aider, je vous accorde 4 points de vie supplementaires.".
Nombre_de_Vie DE Joueur DEVIENT Nombre_de_Vie DE Joueur + 4.
ECRIRE "Votre capital vie s'eleve donc maintenant a " Nombre_de_Vie DE Joueur " points de Vie .".
SINON ECRIRE "Vous faites vraiment n'importe quoi !!!".
SI Nombre_de_vie DE Joueur > 1
ALORS
ECRIRE "Vous me fatiguez, vous m'emervez, ... Tiens, pour me venger je vous enleve 1 point de vie .".
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
ECRIRE "Il vous reste maintenant " Nombre_de_Vie DE Joueur " points de Vie .".
ECRIRE "Bien fait !!! Ca vous apprendra a reflechir avant d'agir .".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie : nous vous accordons, dans un elan de ".
ECRIRE "generosite, une derniere action. Mettez la a profit pour 'taper' un mot de passe !!!".
FSI.
FSI.
FSI.
SI 'Prendre' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Belladone')
ALORS ECRIRE "Pauvre malheureux, PAM et Hassenforder arrivent dans la salle et vous prennent sur le fait.".
SI (Nombre_de_vie DE Joueur/2) > 0
ALORS
ECRIRE "Apres une severe mise au point dont ils ont le secret, ils vous otent la moitie du peu ".
ECRIRE "de points vie que vous avez recolte. ".
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur/2).
ECRIRE "Il ne vous en reste plus que " Nombre_De_Vie DE Joueur "." .
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Apres une severe mise au point dont ils ont le secret, ils vous otent votre dernier point de vie.".
ECRIRE "Cependant, ils vous accordent une derniere chance pour gagner ".
ECRIRE "Mettez la a profit pour 'taper' un mot de passe !!!".
FSI.
SINON SI (COMPLEMENT1 = 'Console')
ALORS ECRIRE "Les consoles vont enfin devoir etre renouvelees. Les eleves de l'option LSI".
ECRIRE "vous en remercient vivement et vous offrent 5 points de vie.".
ECRIRE "Cependant, l'administration n'est guere d'accord avec les eleves et vous sanctionne lourdement".
ECRIRE "en vous prenant injustement 10 points de vie .".
SI (Nombre_de_vie DE Joueur-5) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-5).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Le calcul est facile : votre total de points de vie est NUL !!!".
ECRIRE "Vous avez donc perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON SI (COMPLEMENT1 dans Attributs de la_salle_lsi)
ALORS
ECRIRE "Si au moins vous preniez des objets de valeur ...".
ECRIRE "Imaginez ce que vous pourriez tirer d'une machine comme 'Belladone' ou d'une 'console' !".
SINON
ECRIRE "Prendre quoi ??? Je ne vois aucun tel objet dans la salle lsi".
ECRIRE "Si je peux vous donner un conseil : nettoyez vos lunettes ou arretez la Vodka!".
FSI.
FSI.
FSI.
FSI.
SI 'Taper' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Camomille')
ALORS ECRIRE "".
ECRIRE " ***** ***** ****** * * ****** !!! ".
ECRIRE " * * * * * * * * * * !!! ".
ECRIRE " * * * * * * * * * * !!! ".
ECRIRE " ***** ***** ****** * * * * !!! ".
ECRIRE " * * * * * * * * * * ! ".
ECRIRE " * * * * * * ** * * ".
ECRIRE " ***** * * * * ** ****** * ".
ECRIRE "".
ECRIRE "C'est gagne Avec" Nombre_De_Vie DE Joueur "Points".
ECRIRE "Vous pourrez a present disposer de tous les sujets de TP, de colle...".
QUITTER.
SINON ECRIRE "Vous n'avez pas tape le bon mot de passe. La machine vous insulte abondamment .".
ECRIRE "Par ailleurs, l'effort intellectuel que vous avez fait pour invente un mot de passe".
ECRIRE "aussi farfelu vous a enormement fatigue et vous reduit donc votre capital vie.".
SI (Nombre_de_vie DE Joueur-1) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
FSI.
FSI.
SI 'Editer' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Fichier')
ALORS ECRIRE "Vous constatez que la variable 'MO' n'a rien a faire dans ce fichier.".
SINON ECRIRE "Je veux bien 'Editer' un 'Fichier', mais ca, je ne sais pas le faire !".
ECRIRE "Vous abusez de mon temps et de ma patience, ca vous coutera 1 point de vie.".
SI (Nombre_de_vie DE Joueur-1) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
ECRIRE "Que cela ne vous empeche pas de perseverer !" .
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
FSI.
FSI.
SI 'Aller' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Couloir')
ALORS Situation DE joueur DEVIENT "Couloir".
ECRIRE "Vous etes maintenant dans le couloir".
SINON SI (COMPLEMENT1 DANS elements DE Plateau_de_jeu )
ALORS ECRIRE "Je vous rappelle que vous etes dans la salle_lsi : la seule sortie est vers le couloir.".
SINON ECRIRE "Ce que me vous me demander n'est pas une piece ou aller.".
FSI.
FSI.
FSI.
SI 'Ouvrir' COMPLEMENT1
ALORS SI ((COMPLEMENT1 = 'Belladone') OU (COMPLEMENT1 = 'Console'))
ALORS ECRIRE "Savez vous ce que pourrait vous couter une telle ineptie ??? ".
ECRIRE "Je serai magnanime et ne vous retirerai que 2 points de vie .".
SI (Nombre_de_vie DE Joueur-1) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON ECRIRE "Moi pas comprendre quoi toi vouloir tenter faire !".
FSI.
FSI.
SI 'Corriger' COMPLEMENT1
ALORS ECRIRE "Vous ne pouvez rien corriger en salle_lsi.".
FSI.
SI 'Lire' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Manuel_Unix')
ALORS SI ('Manuel_Unix' DANS Possessions DE Joueur)
ALORS ECRIRE "La lecture de ce volumineux manuel nous a fait perdre de precieuses heures.".
ECRIRE "Etait ce bien utile !?! : d'autant plus que la sanction est une perte de 3 points".
ECRIRE "de vie.".
SI (Nombre_de_vie DE Joueur-3) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-3).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
ECRIRE "Que cela ne vous empeche pas de perseverer !" .
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON ECRIRE "Si au moins vous possediez le tres interessant 'Manuel_Unix' qui traine".
ECRIRE "dans l'une des pieces, nous pourrions peut etre faire quelque chose.".
FSI.
SINON ECRIRE "Vous me demandez n'importe quoi ! Un peu de serieux s'il vous plait !".
FSI.
FSI.
SI 'Regarder' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Console' )
ALORS ECRIRE "La console attend que vous tapiez le mot de passe de Mr Hassenforder. ".
SINON SI COMPLEMENT1 DANS Attributs DE la_salle_lsi
ALORS ECRIRE "Il n'y a rien de special a voir. 'Informer' vous plutot !".
SINON ECRIRE "Vous me demandez de regarder quelque chose qui n'est pas dans la salle lsi".
FSI.
FSI.
FSI.
FSI.
! ********* Fin de la salle Lsi ************
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! Debut des clauses concernant la salle_II
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
SI (Situation DE Joueur = "Salle_II") ALORS
SI 'Utiliser' ALORS
ECRIRE "Veuillez preciser ! Ici, il n'y a qu'un 'ascenseur' et une 'souris' !".
FSI.
SI ('Utiliser' COMPLEMENT1)
ALORS SI (COMPLEMENT1 = 'Ascenseur')
ALORS
ECRIRE "Il monte, il monte, il monte... il monte encore, il monte toujours, il deborde !!!".
ECRIRE "Jusqu'a present votre TP vaut un zero pointe. ".
ECRIRE "Peut etre pourrez vous sauver votre moyenne en 'lisant' le bug sur la 'console'.".
SINON SI (COMPLEMENT1 = 'Souris')
ALORS ECRIRE "Pour jouer au chat et a la souris ?? Mais mon gars, t'es le dindon de la farce toi !".
SINON ECRIRE "Faut quand meme pas pousser ! Je ne peux pas utiliser cela .".
FSI.
FSI.
FSI.
SI 'Utiliser' COMPLEMENT1 COMPLEMENT2
ALORS ECRIRE "Chaque chose en son temps. Moi sans pretention, moi avoir lenteur au cerveau, et moi fatigue de vous !".
FSI.
SI 'Lire' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Console')
ALORS ECRIRE "La console est recouverte de signes cabalistiques sans aucun sens (sauf pour vous bien sur !).".
ECRIRE "Le programme en cours s'est lamentablement crashe suite a une incommensurables tripote ".
ECRIRE "d'erreurs debiles. ".
ECRIRE "Manifestement, toutes ces erreurs proviennent d'une des trois lignes suivantes :".
ECRIRE " LD A,(HL)".
ECRIRE " ADD B".
ECRIRE " LD (HL),CA".
ECRIRE "Il est vrai que la derniere ligne ne semble pas en accord avec les deux precedentes.".
ECRIRE "Vous pourriez tenter de 'corriger' ca.".
SINON SI (COMPLEMENT1 = 'Manuel_Unix')
ALORS SI ('Manuel_Unix' DANS Possessions DE Joueur)
ALORS ECRIRE "La lecture de ce volumineux manuel nous a fait perdre de precieuses heures.".
ECRIRE "Etait ce bien utile !?! : d'autant plus que la sanction est une perte de 3 points".
ECRIRE "de vie.".
SI (Nombre_de_vie DE Joueur-3) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-3).
ECRIRE "Vous vous tirez avec un capital en baisse s'elevant a " Nombre_De_Vie DE Joueur " .".
ECRIRE "Que cela ne vous empeche pas de perseverer !" .
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
SINON ECRIRE "Si au moins vous possediez le tres interessant 'Manuel_Unix' qui traine".
ECRIRE "dans l'une des pieces, nous pourrions peut etre faire quelque chose.".
FSI.
SINON ECRIRE "Vous me demandez n'importe quoi ! Un peu de serieux s'il vous plait !".
FSI.
FSI.
FSI.
SI 'Corriger' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'CA')
ALORS ECRIRE "Well done, z'etes pas aussi mou du bulbe qu'on pourrait le croire .".
ECRIRE "Dans mon inconsiderable generosite je daigne vous accorder ce qui, j'espere,".
ECRIRE "ne vous aidera pas a gagner : un indice.".
ECRIRE "L'indice mirobolant est CA .".
SINON ECRIRE "On n'a pas du vous voir souvent aux TPs d'Info. Indus. !".
ECRIRE "Mr SCHITTLY directeur des etudes (que j'ai prestement alerte) se fait une joie ".
ECRIRE "de vous chatier en vous sucrant 2 points de vie.".
SI (Nombre_de_vie DE Joueur-2) > 0
ALORS
Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-2).
ECRIRE "Il vous faudra maintenant vous faire a l'idee que vous avez " Nombre_de_Vie DE Joueur .
ECRIRE "points de vie.".
SINON Nombre_de_vie DE Joueur DEVIENT 0.
ECRIRE "Vous avez perdu tous vos points de vie; cependant nous vous accordons, dans un elan".
ECRIRE "de generosite, une derniere action. Mettez la a profit !!!".
FSI.
FSI.
FSI.
SI 'Prendre' COMPLEMENT1
ALORS SI (COMPLEMENT1 DANS Attributs DE La_Salle_II)
ALORS ECRIRE "Seriez vous en train d'essayer de soulager l'Etat d'un de ses biens ?".
ECRIRE "Pour une fois je ne fayotterai pas ! Tenez vous quand meme a carreau. ".
SINON ECRIRE "Pourquoi ne pas PRENDRE une place a l'asile tant que vous y etes ?".
FSI.
FSI.
SI 'Aller' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'Couloir')
ALORS Situation DE joueur DEVIENT "Couloir".
ECRIRE "Vous etes maintenant dans le couloir".
SINON SI (COMPLEMENT1 DANS elements DE Plateau_de_jeu )
ALORS ECRIRE "Je vous rappelle que vous etes dans la salle_II : la seule sortie est vers le couloir.".
SINON ECRIRE "Ce que me vous me demander n'est pas une piece ou aller.".
FSI.
FSI.
FSI.
SI ('Taper' COMPLEMENT1) OU ('Editer' COMPLEMENT1) OU ('Regarder' COMPLEMENT1)
ALORS ECRIRE "Ca rime a quoi ca ?".
FSI.
SI 'Effacer' COMPLEMENT1
ALORS SI (COMPLEMENT1 = 'CA')
ALORS ECRIRE "Il y a de l'idee, mais il serait peut etre preferable de 'Corriger' 'Ca'.".
SINON ECRIRE "Votre methode est un peu trop radicale a mon gout. Ne prefereriez vous pas plutot 'Corriger' ?".
FSI.
FSI.
FSI.
! ********* Fin de la salle II ************
SI Nombre_de_vie DE Joueur <= 1 ALORS
ECRIRE "Vous n'avez plus de vies et le mot n'est pas trouve ".
ECRIRE "".
ECRIRE " C'EST COMME CAPRIS : C'est ...".
ECRIRE "".
ECRIRE " ****** * ** * * ".
ECRIRE " * * * * * * ".
ECRIRE " *** * * * * * ".
ECRIRE " * * * * * * ".
ECRIRE " * * * * * * ".
ECRIRE " * * * ** * * * * * * * * ".
ECRIRE "".
QUITTER.
FSI.