DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦b289f1a22⟧ TextFile

    Length: 2981 (0xba5)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦9dbea53bd⟧ 
            └─⟦this⟧

TextFile

DefinitionVerbe
    aller
    prendre
    regarder = observer
    poser
    utiliser
    possede        
    ou
    
DefinitionPreposition 
    avec

DefinitionVariable

    Personnage est MadMax
        description:"tu as vu le mec...."
        Position : Salon
        possession : trousse
    FinPersonnage

    Objet est Traducteur
        Description : "Pas mal comme systeme."
        Position : Salon
        Etat : prenable
    FinObjet
    
    Objet est Trousse
        Description : "c'est une simple trousse."
        Position : Salon
    FinObjet    

   Objet est Table
        Description : "Il y a un billet et un traducteur dessus"
        Position : Salon
    FinObjet

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

    Lieu est Salon
        Description : "Le salon est une grande piece avec une table au centre."
        DebutCommunication
            Direction Est_ Porte_Salon
        FinCommunication
    FinLieu
    
    Lieu est Cuisine
        Description : "Vous etes ds la cuisine"
        DebutCommunication
            Direction Ouest Porte_Salon 
            Direction Nord Porte_Couloir
        FinCommunication
    FinLieu
    
    Lieu est Couloir
        Description : "Vous etes ds le couloir"
        DebutCommunication
            Direction sud Porte_Couloir
        FinCommunication
    FinLieu
                  
    Communication est Porte_Couloir
        Sens1 Cuisine vers Couloir
        Sens2 Couloir vers Cuisine
    FinCommunication

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


    Compteur est Heure
    FinCompteur

Scenario

Initiales
    Joueur Est Madmax
    Decrire Salon
    
Generales           

     
    Heure=Heure+1
    
    Afficher "Il est"
    Afficher Heure    
    SI Heure > 1 ALORS
      Afficher "Heures"
    SINON
      Afficher "Heure"
    FINSI
    
    SI Heure = 10 ALORS
      Afficher "Trop tard, vous avez perdu !!!"
      FinDuJeu
    FINSI

    SI aller Lieu ET Lieu reliea PositionCourante ALORS
      Deplacer joueur vers Lieu
    FINSI
    
    SI regarder objet ALORS
      decrire objet
    FINSI
    
    SI prendre objet  ET objet etat prenable ALORS
        Ajouter joueur possession objet 
        Afficher "ok, je le prends"
    FINSI  
    
    SI possede ALORS
        Inventaire joueur
    FINSI

Locales

DANS Salon
    Afficher "je suis ds le salon"

    SI poser traducteur ET joueur possession traducteur ALORS
      Afficher "Ce ne doit pas etre tres judicieux."
    FINSI                                  
    
    SI utiliser Traducteur ALORS
      SI joueur possession Traducteur ALORS
         Afficher "le message est : Bravo!"
         FinduJeu
      SINON
         Afficher "je ne le possede pas"
      FINSI
    FINSI

DANS Couloir
    Afficher "je suis ds le couloir"

DANS Cuisine
    Afficher "je suis ds la cuisine"




    
    
Finje