DataMuseum.dk

top - download

    Length: 2669 (0xa6d)
    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« 
        └─⟦843965d66⟧ 
            └─⟦this⟧ 

TextFile

! exemple simple de scenario
! no 1

! le point d'exclamation "!" debute une ligne de commentaire

   

!declaration des verbes et des complements
  VERBES SONT
      prendre    lire  abandonner  .
   
  COMPLEMENTS SONT
      message   traducteur    jeu .
      
    

!declaration des familles
  FAMILLES SONT
      identification AVEC nom(CHAINE) ET Prenom(CHAINE) .
      personne       AVEC HERITAGE DE identite(identification) ET ENSEMBLE attributs ET Nbr_vie(ENTIER).
      
  VARIABLES SONT
      identite_joueur  COMME identification ("Minet" "gros").
      super_heros      COMME personne ("moi" "toi"  []   3 ).
      nbr_de_commandes COMME entier .
      
      
!definition des initialisations simples

INITIALISATIONS SONT
  nbr_de_commandes DEVIENT 0.
  ECRIRE "Debut d'un petit jeu, pas vraiment d'aventure".
  ECRIRE "Je vous souhaite bonne chance".
  ECRIRE "Pour quitter le jeu, taper : Abandonner jeu ".
  
  
!definition de la vie 

  VIE EST
  
     SI 'prendre' COMPLEMENT1
     ALORS
         SI COMPLEMENT1 = 'traducteur'
         ALORS SI NON ('traducteur' DANS attributs de super_heros)
               ALORS AJOUTER traducteur A attribuits DE super_heros.
                     ECRIRE "vous possedez " attributs DE super_heros.
               SINON ECRIRE "vous possedez deja cet objet".
               FSI.
         SINON ECRIRE "vous ne pouvez pas prendre cet objet".
         FSI.
     FSI.
     
     SI 'lire' COMPLEMENT1
     ALORS
          SI COMPLEMENT1 = 'message'
          ALORS SI ('traducteur' DANS attributs DE super_heros)
                ALORS ECRIRE " Le message est :".
                      ECRIRE " Bravo vous avez gagne le droit de rejouer").
                SINON ECRIRE " _._  _..  _.... _ _..___ __..__ ".
                      ECRIRE " il s'agit d'un message en morse !".
                      ECRIRE " ce serait bien si vous le dechiffreriez". 
                FSI.
          SINON ECRIRE "piniouff, vous ne pouvez pas lire ca !!!! ".
          FSI.
      FSI.
      
      SI 'abandonner' 'jeu'
      ALORS ECRIRE " espece de lache, vous abandonner ....".
            QUITTER.
      FSI.
      
      nbr_de_commandes DEVIENT nbr_de_commandes+1.
      
      SI nbr_de_commandes = nbr_vie DE super_heros  !attention la ligne ci-dessus ne sera evaluee qu'apres
                                                    !l'evaluation de toutes les conditions
      ALORS   !attention syntaxe pour atteindre un champs herite
             ECRIRE nom DE identite DE super_heros  ",vous n'avez pas trouve apres 3 commandes ... c'est PERDU !".
      FSI.
      
      
!fin du fichier