DataMuseum.dk

top - download

    Length: 5555 (0x15b3)
    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« 
        └─⟦ddfeff323⟧ 
            └─⟦this⟧ 

TextFile

   JEU Exemple_de_source
#la diese
ACTION

   Aller        SYNONYME ( Courir )
   Manger
   Boire
   Allumer
   Eteindre
   Prendre      SYNONYME ( Prend )
   Poser        SYNONYME ( Deposer, Abandonner )
   Fermer
   Ouvrir
   Inventaire
   Decrire

DEFINITION

   STRUCTURE    Perso ( CHAINE Description, ENTIER Vie )
   
   { Definition des structures de donnees liees aux pieces }

   ENUMERE      Lumiere ( Eteind, Allume )
   ENUMERE      NiveauEau ( Sec, Noye )
   ENUMERE      NiveauEnergie ( SansDanger, Explosif )
   STRUCTURE    Piece ( CHAINE Description, Lumiere Eclairage, 
            NiveauEau Niveau, NiveauEnergie Energie )
   
   { Definition des structures de donnees liees aux objets }

   ENUMERE      EtatBoite ( Vide, Pleine )
   ENUMERE      Position ( On, Off )
   STRUCTURE    Boite ( CHAINE Description, EtatBoite Contenance )
   STRUCTURE    Levier ( CHAINE Description, Position Etat )
   STRUCTURE    Arme ( CHAINE Description, ENTIER Efficacite )
   STRUCTURE    Aliment ( CHAINE Description, ENTIER Viatamine )
   STRUCTURE    Cle ( CHAINE Description )
   STRUCTURE    Sac ( CHAINE Description, ENTIER NbObjet )

PRESENTATION

   { Definition des protagonistes }

   Joueur       OBJET Perso AVEC ( "C'est moi !...", 250 )
   Troll        OBJET Perso AVEC ( "Un vilain troll menacant", 300 )

   { Definition des pieces }

   Cave          OBJET Piece AVEC ( "Une cave encombree de bouteilles \
                  \de vin", Eteind, Sec, SansDanger )
   Salle_de_Bain OBJET Piece_d_Eau AVEC ( "Bain & Lavabo""grandluxe""", Allume, Sec,
                     SansDanger )
   Hall          OBJET Piece AVEC ( "C'est l'entree", Allume, Sec, SansDanger )
   Cuisine       OBJET Piece AVEC ( "Ca sent les pizzas affriolantes", Allume,
                   Sec, SansDanger)
   Salon         OBJET Piece AVEC ( "Cool pour un petite sieste, il y a une \
                  \commode en plein milieu", Allume, Sec, 
                  SansDanger )
   Escalier_Bas  OBJET Piece AVEC ( "Des marches dangereuses", Eteind, Sec,
                   SansDanger )
   Escalier_Haut OBJET Piece AVEC ( "Ca monte", Allume, Sec, SansDanger )
   { ... }

   Position_Joueur OBJET Piece INIT Hall
   Position_Troll  OBJET Piece INIT Cave

   { Definition des objets }

   Sac_a_dos            OBJET Sac AVEC ("Vieux et gris", 1 )
   Allumettes           OBJET Boite AVEC ( "Une pochette", Pleine )
   Bidon_d_Essence      OBJET Boite AVEC ( "Du super", Pleine )
   Commode              OBJET Boite AVEC ( "Louis XVI", Vide )
   Cle_Verte            OBJET Cle AVEC ( "La cle des champs" )
   Cle_Rouge            OBJET Cle AVEC ( "La cle du succes" )
   Disjoncteur          OBJET Levier AVEC ( "Triphase", On )
   Couteau              OBJET Arme AVEC ( "Couteau de cuisine", 30 )
   Tronconeuse          OBJET Arme AVEC ( "Massacre a la ...", 50 )
   Pizza                OBJET Aliment AVEC ( "Napolitaine", 9999 )
   Poison               OBJET Aliment AVEC ( "Pizza du R.U.", 100) {en negatif}
   { ... }

LIAISON

   { Declaration des connexions entre pieces }

   CONNEXION ( Nord, Sud, Est, Ouest, Haut, Bas )

   CREER_CONNEXION ( Cave,           Esclaier_Haut,  Haut,   LIE   )
   CREER_CONNEXION ( Escalier_Haut,  Cave,           Bas,    DELIE )
   CREER_CONNEXION ( Hall,           Escalier_Bas,   Bas,    LIE   )
   CREER_CONNEXION ( Escalier_Bas,   Hall,           Haut,   DELIE )
   { ... }

   { Declaration des liens }

   CREER_LIEN ( Sac_a_Dos,      Joueur,         LIE   )
   CREER_LIEN ( Couteau,        Joueur,         LIE   )
   CREER_LIEN ( Bidon_d_Essence,Cave,           LIE   )
   CREER_LIEN ( Allumettes,     Commode,        DELIE )
   { ... }

   CREER_LIEN ( Commode,        Salon,          DELIE )
   { ... }

ANIMATION_GLOBALE      { Clauses generales }

   POUR 1 ENTREE FAIRE
      Joueur.Vie := Joueur.Vie - 1;
   FINPOUR

   POUR 25 ENTREE FAIRE
      SI Postion_Troll = Cave ALORS
     Position_Troll := Escalier_Bas;
      SINON
     Position_Troll := Cave;
      FINSI
   FINPOUR

   SI Joueur.Vie <= 0 ALORS
      AFFICHER ( "O rage, je suis mort" )
      FIN_JEU
   FINSI

   SI Position_Joueur.Niveau = Noye ALORS
      AFFICHER ( "Glou, glou..." )
      FIN_JEU
   FINSI

   SI [ Aller COMP ] OU [ COMP ] ALORS
      SI EXISTE_CONNEXION ( Position_Joueur, COMP ) ALORS
     SI ETAT_CONNEXION ( Position_Joueur, COMP ) = LIE ALORS
        Position_Joueur := DESTINATION_CONNEXION ( Position_Joueur, COMP );
        SI Position_Joueur.Eclairage = Allume ALORS
           AFFICHER ( Position_Joueur.Description )
        SINON
           AFFICHER ( "Il fait tout noir." )
        FINSI
     SINON
        AFFICHER ( "Le passage est bloque." )
     FINSI
      SINON
     AFFICHER ( "Il n'y pas d'issue dans cette direction" )
      FINSI
   FINSI

   SI [ Decrire ] ALORS
      SI Position_Joueur.Eclairage = Allume ALORS
     AFFICHER ( Position_Joueur.Description )
      SINON
     AFFICHER ( "Il fait tout noir." )
      FINSI
   FINSI

   SI [ Decrire COMP ] ALORS
      SI ETAT_LIEN ( COMP, Joueur ) = LIE OU ETAT_LIEN ( COMP, Position_Joueur ) = LIE ALORS
     AFFICHER ( COMP.Description )
      SINON
     AFFICHER ( "???" );
      FINSI
   FINSI

   SI [ Inventaire ] ALORS
      AFFICHER ( "J'ai avec moi" )
      LISTE_LIEN ( Joueur, LIE )
   FINSI

   SI [ Prendre COMP ] ALORS
      SI ETAT_LIEN ( COMP, Position_Joueur ) = LIE ALORS
     ECHANGER_LIEN ( COMP, Position_Joueur, Joueur )
     AFFICHER ( "ok" )
      SINON
     SI ETAT_LIEN ( COMP, Joueur ) = LIE ALORS
        AFFICHER ( "Je l'ai dej