DataMuseum.dk

top - download

    Length: 7458 (0x1d22)
    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« 
        └─⟦9986d9553⟧ 
            └─⟦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(Dat) 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( 45 "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 45.
   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. 
   FSI.

   SI 'informer' 'Possessions' ALORS
           ECRIRE Possessions DE joueur.
   FSI. 
  
   SI ('informer' '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 (Nombre_de_vie DE Joueur >= 5) ALORS 
   ECRIRE "C'est sur vous n'etes pas encore mort".
   FSI.

   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 ('prendre' complement1 complement2) 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_II".
        ECRIRE "La torture, ca existe encore !".
     FSI.

   FSI.
!129

   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' 'couloir') ALORS 
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.
!159         

   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' 'couloir') ALORS
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.
!196
   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' 'par') ET (Complement2 <> 'AF') ALORS
        ECRIRE "Encore faux : reessayez ...".
      FSI. 
      SI ('aller' 'couloir') ALORS
         Situation DE joueur DEVIENT "Couloir".
     FSI.
   FSI.       
!217
   ecrire       Nombre_de_vie DE Joueur.


   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.