DataMuseum.dk

top - download

    Length: 6181 (0x1825)
    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« 
        └─⟦0808b5f2e⟧ 
            └─⟦this⟧ 

TextFile

VERBES SONT
    Prendre Aller Ouvrir Sortir Informer
    Tapper Editer Lire Utiliser Remplacer
    Effacer Donner.


COMPLEMENTS SONT
    Table Armoire Chaise Macintosh Belladone
    Rational Console Telephone Clavier Ascenseur
    Souris TP_IRMX Manuel_Unix Consignes
    Salle_Mac Salle_LSI Salle_II Couloir
    Fichier Stylo Disquette
!15
    Possessions Lexique jeu Indications

    Camomille

    !Indices
    CA MO MILLE .



!25 liste des familles
FAMILLES SONT

    Acces  AVEC source(CHAINE) ET destination(CHAINE) ET Etat_acces_src(CHAINE)
        ET Etat_acces_dst(CHAINE).

    Piece AVEC Nom(CHAINE) ET Description(CHAINE) ET Nbr_Acces(ENTIER)
        ET ENSEMBLE DE Attributs

        ET HERITAGE DE Acces1(Acces)
        ET HERITAGE DE Acces2(Acces)
!36
        ET  HERITAGE DE Acces(Acces).
                    
        
        


  

!45
!LIENS mot voca avec Variable
!si 1 seul mot du voca -> juste ecrire mot sans (...) ni HERTITAGE


    Date AVEC Jour(ENTIER) ET Mois(CHAINE) ET annee(CHAINE).
!51
    Personnage AVEC Nom(CHAINE) ET HERITAGE DE date(date) ET Nbr_vie(ENTIER)
         ET HERITAGE DE Piece_Courante(piece) ET ENSEMBLE DE Possessions.




VARIABLES SONT

!60
    Date_de_naissance COMME Date (26 "janvier" 1995 ).


    couloir COMME piece
    ("couloir"
    ['disquette']).

    Salle_LSI COMME piece
    ("Salle_LSI"
    "la Salle LSI  1 portes : vers le couloir"
    1 67 "fkjhbk" vdsmfvh DE jdvghks jdghks
    [ 'Telephone' 'Belladone']
    ).
!74
    Salle_Mac COMME piece
    ("salle_Mac"
    "la salle Macintoshe 2 portes : une vers le couloir et une"
    2
    ['Telephone' 'Macintosh' 'Chaise' 'Table']
    ).

    Salle_II COMME piece
    ("salle_II"
    "la salle II p 1 porte : vers le couloir"
    1
    [ 'Telephone' 'Chaise' 'Table' 'Console' 'Ascenseur' 'Souris' 'Armoire']
    ).
!88
    LE_plateau_du_jeu COMME les_pieces (['couloir' 'salle_mac' 'salle_II' 'salle_lsi']).



    Joueur COMME Personne ("moi" (0 "" 0) 10 (couloir) ['stylo']).
!94    ?????
    Temps COMME ENTIER.
    Fi COMME ENTIER.


INITIALISATIONS SONT
    Ecrire "Debut du Jeux ".
    Ecrire "je vous souhaite bonne chance".
    Ecrire "pour gagner il vous suffira de trouver le mot magique".
!103
    Ecrire "pour Quitter le jeu , taper: SOTRTIR JEU".

    !temps DEVIENT 100.
    !fin DEVIENT 0.

    ECRIRE "Voulez-vous avoir des indications d'utilisation du jeu".
    ECRIRE "si oui taper : donner indications ".


!113
VIE EST

    Si 'Sortir' 'jeu'
    ALORS SI temps>50
      ALORS Ecrire "vous perspicaces".
        QUITTER.
      SINON Ecrire "vous aviez pourtant encore du temps pour trouver la solution".
      FSI.
    FSI.
!123
    SI 'donner' 'indications'
    ALORS
       ECRIRE "si vous voulez consulter la liste des verbes et complement taper :".
       ECRIRE "donner Lexique".
       ECRIRE "si vous voulez consulter la liste de ce que vous possedez:".
       ECRIRE "informer possessions".
    FSI.

    temps DEVIENT temps-1.

!134
    SI 'Informer' complement1
    ALORS

      SI Complement1 DANS LE_plateau _du_jeu
      ALORS
    !SI Nom DE Piece_Courante DE Joueur = "Couloir"
    !ALORS ECRIRE Description DE Couloir.
    !FSI.
    !SI Nom DE Piece_Courante DE Joueur = "Salle_Mac"
    !ALORS ECRIRE Description DE Salle_Mac.
    !FSI.
    !...etc
!147
    ou
    .????

    ECRIRE Description DE Piece_Courante DE Joueur
    (+simple)
    (pb de recopie de variabe: piece_courante devient couloir)
      FSI.

      SI Complement1='possession'
      ALORS
     ECRIRE Possession DE Joueur.
      FSI.
!160
      SI complement1 DANS possessions DE joueur
      ALORS
         SI Complement1='stylo'
         ALORS ECRIRE "c'est un superbe stylo BIC jetable".
         FSI.
         !SI ...
      FSI.

      SI 'donner' 'lexique
      ALORS
     ECRIRE "les verbes sont : ".
     ECRIRE "donner prendre ....."
     ECRIRE "les complements sont : ".
     ECRIRE "salle_lsi ...".
!175
!     serait bien un symbole pour ecrire un retoura ligne
!     (option pour + tard)

!179      FSI.


      Si 'prendre'
      ALORS
    ECRIRE "que veux-tu prendre??? ton pied ".
      FSI.

  Si 'prendre' complement1
  ALORS
     Si complement1 dans attributs de piece_courante de joueur
     ALORS
        Si NOT(complement1 dans attributs) 
        ALORS
        Ajouter Complement1 A possessions de joueur.
        Ecrire "Vous posdez un(e)" complement1.
        Si nom de piece de joueur = "cuisine"
        ALORS
           retirer complement1 A attribut de cuisine
        FSI.
        ...etc

        Si complement1 = 'Macintosh'
        ALORS
           ECRIRE "c'est un peu lourd".
           Nbr_vie de joueur devient nbr_vie de joueur-1.
        FSI.

        Si complement1 = 'Belladone'
        alors Nbr_vie de joueur devient Nbr_vie de joueur/2.
              ECRIRE "un vol de matl coute cher"
              Si 'Disquette' dans possession de joueur
              ALORS ECRIRE "vous venez de perdre votre disquette"
              sinon Nbr_vie de joueur devient Nbr_vie de joueur-2.
              ecrire "vous n'avez plus que" Nbr_vie de joueur "comme nbr de vie".
              FSI.
        FSI.
       SINON ECRIRE "vous ne pouvez pas prendre de "complement1"pour le moment".
    SINON ECRIRE "il n'y apas de"complement1"ici".
      FSI.

      Si 'lire'
      ALORS ECRIRE "Que veux-tu lire??"
      FSI.
      Si 'Lire' Consignes
      ALORS SI nom de piece de joueur = "couloir"
        ALORS ECRIRE "En cas d'incendie veuillez garder la tete froide"
          ECRIRE "vous feriez bien de vous depecher un peu"
        FSI.
      FSI.


      Si (temps=0) et (fin=0)
      ALORS ECRIRE "le temps est finir"
        ECRIRE "la prochaine fois, soyez plus rapide..."
      FSI.

      Si 'aller'
      ALORS ECRIRE "ou  donc?"
      FSI.

      Si 'aller' complement1
      alors
    SI (nbr_Acces<2)
    alors Si complement1 dans Acest de piece de joueur
          alors
        si complement1 = 'cuisine'
        ALORS
           ??? peut on faire :
??????????????     piece de joueur devient cuisine
           Ecrire "vous vous trouvez maintenant dans "nom de piece de joueur
        FSI.









    FSI.
      FSI.