DataMuseum.dk

top - download

    Length: 7338 (0x1caa)
    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« 
        └─⟦b3ccfe007⟧ 
            └─⟦this⟧ 

TextFile

! scenario de test 2

! raisonner par position dans les lieux decrits

VERBES SONT
   Prendre Aller Ouvrir
   Sortir Informer Tapper Editer
   Lire Utiliser Remplacer Effacer
   .
!10
COMPLEMENTS SONT
   Table Armoire Chaise Macintosh Belladone
   Rational  Console Clavier
   Ascenseur Souris TP_Irmx
   Manuel_Unix  Consignes
   Salle_Mac Salle_Lsi Salle_II Couloir Fichier
   Stylo Disquette
   ! complements divers
   par Possessions Lexique
!20   
   c_mille  AF
   ! mot a trouver
   Camomille
   ! indices
   CA MO MILLE
   .   

FAMILLES SONT
 
!30
   Piece AVEC Description(CHAINE) ET Nombre_Acces(ENTIER)
        ET ENSEMBLE DE Meubles .

   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.

VARIABLES SONT
!   Chaine_Fin COMME CHAINE ("Pas Fini").  
!41
   Date_de_Naissance COMME Date(26 "Janvier" 1995).  

   Joueur COMME Personnage
     ((0 " " 0) 10 "Couloir" ['Disquette' 'Stylo']) .

   La_Salle_Mac COMME Piece ("Salle contenant 10 jolis(?) Mac; un seul est libre" 
   1 ['Armoire' 'Macintosh' 'Chaise' 'Table'] ).

  
   Le_Couloir COMME Piece
     ("Le couloir accede a 3 salles : LSI Mac et II; les Consignes incendie sont sur le mur droit"
       3 ['Consigne']).
   
   La_Salle_Lsi COMME Piece ("salle TP 3e annee; amusez vous sur Belladone"
     1 ['Console' 'Clavier']).
  
   La_Salle_II COMME Piece ("salle de torture des 2e annees; l'ascenceur est tres fonctionnel" 
   1 ['Ascenceur' 'Souris' 'Console']).
  
!61
INITIALISATIONS SONT
   jour de Date_naissance DE Joueur DEVIENT 23.
   Situation DE Joueur DEVIENT "Couloir".
 
   ECRIRE "Debut du Jeux" "Bonne chance pour trouver...".
   ECRIRE     "le mot de passe UNIX de Mr Hassenforder ".
   ECRIRE "Pour finir le jeu tappez Sortir" .

VIE EST
!71
  
   SI ('Sortir')   ALORS
        ECRIRE "Vous n'etes pas tres perspicaces ".
        QUITTER.
   FSI.

   SI  'Informer' ALORS
        SI Situation DE Joueur = "Couloir" ALORS
                ECRIRE Description DE Le_Couloir.
        FSI.
        SI Situation DE Joueur = "Salle_Mac" ALORS
                ECRIRE Description DE La_Salle_Mac.
        FSI.
        SI Situation DE Joueur = "Salle_Lsi" ALORS
                ECRIRE Description DE La_Salle_lsi.
        FSI.
        SI Situation DE Joueur = "Salle_II" ALORS
                ECRIRE Description DE La_Salle_II.
        FSI.
        SI (COMPLEMENT1 = 'Possessions') ALORS
           ECRIRE Possessions DE joueur.
        FSI. 
   FSI.
   SI ('informer') ET (COMPLEMENT1 = 'Lexique') ALORS
           ECRIRE "Les Verbes : Prendre Aller Ouvrir".
           ECRIRE "             Sortir Informer Tapper Editer ".           
           ECRIRE "             Lire Utiliser Remplacer Effacer".
           ECRIRE "Les Complements : Table Armoire Chaise Macintosh Belladone".
           ECRIRE "                  Rational  Console Clavier Ascenseur Souris".
           ECRIRE "                  TP_Irmx Manuel_Unix  Consignes".
           ECRIRE "                  Salle_Mac Salle_Lsi Salle_II Couloir Fichier".
           ECRIRE "                  Stylo Disquette ".      
   FSI.
!105
   SI (Situation DE Joueur = "Couloir") ALORS
     SI 'Lire' 'Consignes' ALORS
        ECRIRE "il n'y a pas le feu".
     FSI.

     SI 'Aller' 'Salle_Mac' ALORS
        Situation DE joueur DEVIENT "Salle_Mac".
        ECRIRE "Oh les beaux (?) Macintosh ".
     FSI.

     SI 'Aller' 'Salle_Lsi' ALORS
        Situation DE joueur DEVIENT "Salle_Lsi".
        ECRIRE "une console est a votre disposition".
     FSI.

     SI 'Aller' 'Salle_II' ALORS
        Situation DE joueur DEVIENT "Salle_TP2a".
        ECRIRE "La torture, ca existe encore !".
     FSI.

   FSI.


   SI (Situation DE Joueur = "Salle_Mac") ALORS
     SI 'Informer' ALORS ECRIRE "la doc est dans l'armoire".
     FSI.
     SI 'Prendre' 'Macintosh' ALORS
        ECRIRE "c'est un peu lourd".
        Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1).
     FSI.
     SI ('Ouvrir' 'Armoire') ET ('Armoire' DANS Meubles DE La_Salle_Mac) ALORS
         ECRIRE "Bonne Idee ...".
     FSI.
     SI 'Prendre' 'Manuel_Unix' ALORS
           AJOUTER COMPLEMENT1 A Possessions DE Joueur.
           RETIRER 'Armoire' A Meubles DE La_Salle_Mac.
           ECRIRE "ca pourra toujours servir".
     FSI.
     SI 'Utiliser' 'Macintosh' ALORS
        ECRIRE "le texte affiche contient : Rational est une R-MILLE".
        ECRIRE "corrigez l'erreur ...".
     FSI.
     SI ('Remplacer' 'c_mille') ALORS
        ECRIRE "Facile !".
        AJOUTER 'MILLE' A Possessions DE Joueur.
        Nombre_De_Vie DE Joueur DEVIENT (Nombre_De_Vie DE Joueur + 2).
     FSI.     
     SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS 
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.
         

   SI (Situation DE Joueur = "Salle_Lsi") ALORS
      SI 'Utiliser' 'Console' ALORS ECRIRE "le .profile ne marche pas ".
      FSI.
      SI 'Editer' 'Fichier' ALORS
         ECRIRE "la variable MO est inconnue".
      FSI.
      SI 'Effacer' 'MO' ALORS
         ECRIRE "Bonne Operation, vous pouvez garder cette variable".
         AJOUTER 'MO' A Possessions DE Joueur.
         Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur + 4.  
      FSI.
      SI ('effacer' complement1) ET (complement1<>'MO') ALORS          
         ECRIRE "l'objet ne peut etre efface, recommancez".       
      FSI.
      SI ('Prendre' 'Belladone') ET
        ((Jour DE Date_De_Naissance - Nombre_De_Vie DE Joueur) >= 20) ALORS
        Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur / 2.
        VIDER Possessions DE joueur.
        ECRIRE "Un vol de materiel coute cher, vous n'avez plus rien !".
      FSI.
      SI 'Tapper' 'Clavier' ALORS
           ECRIRE "Mot De Passe ? " .
      FSI.
      SI ('Editer') ET (COMPLEMENT1 <> 'Camomille') ALORS           
            Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur - 1.
           ECRIRE "faut : reessayez ...". 
      FSI.
      SI ('Editer' 'Camomille') ALORS 
            ECRIRE "Bravo, c'est gagne Avec" Nombre_De_Vie DE Joueur "Points".
           QUITTER.      
      FSI. 
      SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.

   SI (Situation DE Joueur = "Salle_II") ALORS
      SI ('Utiliser' 'Ascenseur') OU ('Utiliser' 'Souris') ALORS
        ECRIRE "il ya un bug ... voyez la console".
      FSI.
      SI 'Lire' 'Console' ALORS
        ECRIRE "LD HL,CA ne marche pas en Z80; corrigez".
      FSI.
      SI ('Remplacer' 'par') ET (Complement2 = 'AF') ALORS
        ECRIRE "Bien vu" .
        ECRIRE "vous avez gagne un nouvel indice composant le code : CA".
        AJOUTER 'CA' A Possessions DE Joueur.
        Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur + 2.
      FSI.
      SI  ('Remplacer' 'par') ET (Complement2 <> 'AF') ALORS
        ECRIRE "Encore faux : reessayez ...".
      FSI. 
      SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.
      

   SI Nombre_de_vie DE Joueur <= 1 ALORS
      ECRIRE "Vous n'avez plus de vies et le mot n'est pas trouve ".
      ECRIRE "  -> C'est fini, dommage ... ".
      QUITTER.
   FSI.