DataMuseum.dk

top - download

    Length: 3036 (0xbdc)
    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« 
        └─⟦4e6c50c91⟧ 
            └─⟦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 DE 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 .
!26      
      
!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
!40       
     SI 'prendre' COMPLEMENT1
     ALORS
         SI COMPLEMENT1 = 'traducteur'
         ALORS SI NON ('traducteur' DANS attributs de super_heros)
               ALORS AJOUTER 'traducteur' A attributs 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.
!52 
    
     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".
                      QUITTER.  
                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 abandonnez ....".
            QUITTER.
      FSI.
      
      nbr_de_commandes DEVIENT nbr_de_commandes + 1.    
      ecrire "le nbre de cde est " nbr_de_commandes. 
      

      nom de identite de super_heros DEVIENT "titi".
      prenom de identite de super_heros DEVIENT nom de identite de super_heros.
      nom de identite de super_heros devient "taat".

      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 prenom de identite de super_heros  ",vous n'avez pas trouve apres 3 commandes ... c'est PERDU !".
             QUITTER.
      FSI.
      
      ECRIRE "".

!fin du fichier