DataMuseum.dk

top - download

    Length: 7077 (0x1ba5)
    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« 
        └─⟦ac828eeb6⟧ 
            └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦f35320713⟧ 
            └─⟦this⟧ 

TextFile

DefinitionVerbe
    aller
    prendre
    regarder  = info
    poser
    utiliser
    possede             
    chemins   
    ouvrir
   
   

DefinitionPreposition
    avec

DefinitionVariable

    Personnage est MadMax
        description:"tu as vu le mec...."
        Position : Couloir
        possession : Trousse
    FinPersonnage

    Objet est Traducteur
        Description : "Pas mal comme systeme de decodage."
        Position : Cuisine
        Etat : prenable
    FinObjet
             
    Objet est Television
        Description : "Chouette, c'est Helene et les Garcons."
        Position : Salon
        Etat : prenable
    FinObjet

    Objet est Trousse
        Description : "c'est une simple trousse."
        Position : Madmax
    FinObjet

    Objet est Miroir
        Position : Couloir
    FinObjet

    Objet est Table
        Description : "Il y a un traducteur dessus"
        Position : Cuisine
    FinObjet

    Objet est Billet
        Description : "-- . -- . -- .--- .."
        Position : Salon     
        Etat : prenable
    FinObjet

    Objet est Montre
        Description : "Il est deja bien tard."
        Position : Cuisine
    FinObjet

    Lieu est Salon
        Description : "La television trone au milieu de la piece, il y a un billet dessus."
        DebutCommunication
            Direction Est_ Porte_Salon
        FinCommunication
    FinLieu

    Lieu est Cuisine
        Description : "Il y a une table au centre et une montre est accrochee au mur."
        DebutCommunication 
            Direction est_ Porte_jardin
            Direction Ouest Porte_Salon
            Direction Nord Porte_Couloir
        FinCommunication
    FinLieu                

    Lieu est Couloir
        Description : "Un miroir est accroche au mur droit."
        DebutCommunication
            Direction au_fond Porte_Couloir
        FinCommunication
    FinLieu

    Lieu est jardin
        Description : "Il fait froid et il n'y a rien d'interessant."
        DebutCommunication
            Direction ouest porte_jardin 
        FinCommunication
    FinLieu

    Communication est Porte_Couloir
        Sens1 Cuisine vers Couloir
          Etat : fermee
        Sens2 Couloir vers Cuisine
          Etat : fermee
    FinCommunication

    Communication est Porte_Salon
        Sens1 Cuisine vers Salon
        Sens2 Salon vers Cuisine
    FinCommunication

    Communication est Porte_jardin
        Sens1 jardin vers cuisine
          Etat : ouverte
        Sens2 cuisine vers jardin
          Etat : ouverte
    FinCommunication

    Compteur est Heure
    FinCompteur

Scenario

Initiales
    Joueur Est Madmax
    Afficher "Vous etes dans un long Couloir, avec une porte au_fond donnant sur la Cuisine."
    Decrire Couloir

Generales


\\    Heure=Heure+1

    Afficher "Il est"
    Afficher Heure
    SI Heure > 1 ALORS
      Afficher "Heures"
    SINON
      Afficher "Heure"
    FINSI

    SI Heure = 20 ALORS
      Afficher "Trop tard, vous avez perdu !!!"
      FinDuJeu
    FINSI
\\
    SI aller Lieu ET Lieu reliea PositionCourante ALORS
      Deplacer joueur vers Lieu
      Afficher "Ok, je me deplace vers le lieu"
    FINSI

    SI aller direction ET Positioncourante sortie vers direction ALORS
      Deplacer Joueur vers sortie
      Afficher "Ok, je me deplace vers la direction"
    FINSI

    SI aller Communication ET Communication est dans Positioncourante 
    ET Communication etat ouverte ALORS
      Deplacer Joueur vers sortie
      Afficher "Ok, je me deplace via la communication"
    FINSI

    SI aller Communication ET Communication est dans Positioncourante
    ET NON(Communication etat ouverte) ALORS
      Afficher "Je ne peux pas, la porte est fermee."
    FINSI

    SI regarder objet ET objet position = positioncourante ALORS
      decrire objet
    FINSI

    SI regarder objet ET NON(objet position = positioncourante) ALORS
      Afficher "Je ne voit pas cet objet dans la piece"
    FINSI

    SI prendre objet  ET joueur possession objet ALORS
       Afficher "Je l'ai deja."
    FINSI

    SI prendre objet  ET objet etat prenable ET objet position = positioncourante ALORS
        Ajouter joueur possession objet
        Afficher "Ok, je le prends."
    FINSI

    SI prendre objet  ET NON(objet etat prenable) ET objet position = positioncourante ALORS
        Afficher "Non, je ne veux pas."
    FINSI

    SI prendre objet ET NON(objet position = positioncourante) ET NON(joueur possession objet) ALORS
       Afficher "Je ne vois pas cet objet dans la piece."
    FINSI

    SI possede ALORS 
        Afficher "Le(s) objet(s) en ma possession sont :"
        Inventaire joueur
    FINSI

    SI poser traducteur ALORS
      SI joueur possession traducteur ALORS
        Afficher "Non, ce ne doit pas etre tres judicieux."
      SINON
        Afficher "Je ne le possede pas."
      FINSI
    FINSI
    
    SI utiliser objet ET NON(joueur possession objet) ALORS
      Afficher "Desole, mais je ne possede pas cet objet."
    FINSI
      
    SI utiliser Billet ET joueur possession Billet ALORS
      Decrire Billet
    FINSI

    SI utiliser Traducteur avec billet ALORS
      SI joueur possession Traducteur ALORS 
        SI joueur possession billet ALORS
          Afficher "Le message est : Bravo vous avez gagne !"
          FinduJeu
        SINON
          Afficher "Moi je veux bien mais je n'ai rien a decoder !"
        FINSI
      SINON
         Afficher "Je ne possede de traducteur pas !"
      FINSI
    FINSI                              

    SI utiliser Traducteur ALORS
      SI joueur possession Traducteur ALORS
          Afficher "Avec quoi ?"
      FINSI
    FINSI

    SI utiliser Traducteur ALORS
        SI NON(joueur possession Traducteur) ALORS
            afficher "Je ne le possede pas !"
        FINSI
    FINSI
    
    SI joueur possession billet ALORS 
      ModifierDescription  Salon "La television trone au milieu de la piece."
    FINSI

    SI joueur possession traducteur ALORS
      ModifierDescription Table "Il n'y a rien dessus."
    FINSI

Locales

DANS Salon  
    SI regarder ALORS
      Decrire Salon
    FINSI    
    
    SI chemins ALORS 
      Afficher "Il y a une unique sortie a l'Est_ vers la Cuisine."
    FINSI

DANS Couloir
    SI regarder ALORS
      Decrire Couloir
    FINSI

    SI chemins ALORS
      Afficher "Il n'y a une unique sortie au_fond du Couloir."
    FINSI

   SI regarder miroir ALORS
      Decrire Joueur
    FINSI

DANS Cuisine
    SI regarder ALORS
      Decrire Cuisine
    FINSI

    SI chemins ALORS
      Afficher "Il y a trois portes : la porte_salon, la porte_couloir et la porte_jardin."
    FINSI
    
    SI Ouvrir Porte_salon ALORS
      SI porte_Salon etat ouverte ALORS
        Afficher "Elle est deja ouverte."
      SINON 
        Afficher "Ok, j'ouvre Porte_Salon."
        Ajouter Porte_Salon etat ouverte
      FINSI
    FINSI


DANS Jardin
    SI regarder ALORS
      Decrire Jardin
    FINSI

    SI chemins ALORS
      Afficher "Il n'y a une unique entree vers la Cuisine."
    FINSI

Finjeu