⟦b79c67ffe⟧

TextFile

message erreur "Non, non et non !!!!"
//-------------------------------------------------------------------------------------
enumere fermeture : ouvert , ferme 
enumere interieur : rempli , vide
enumere luminosite : sombre , eclairee  
//------------------------------------------------------------------------------------- 
lien normal : ferme , ouvert , verrouille , coince
lien special : cache
//-------------------------------------------------------------------------------------

verbes  boire ou  avaler
    aller ou courir, marcher  
    frapper ou attaquer
    prendre ou ramasser
    regarder ou voir , examiner , fouiller
    poser  pousser faire ouvrir
    inventaire 
//-------------------------------------------------------------------------------------

mots est, ouest , nord , sud , haut , bas, avec
//-------------------------------------------------------------------------------------

structure entite : BOUTEILLE 
  attributs
   capacite en interieur

structure entite : COFFRE 
  attributs  
   serrure en verrou = ferme
   capacite en interieur

structure lieu : SALLE 
  attributs  
   etat en etat_salle = eclairee 

structure entite : PERSO 
  attributs
   sante en entier = 100
   force en entier = 20 
//-------------------------------------------------------------------------------------
cree PERSO : joueur

cree PERSO : garde
  attributs
    description  = "Un GROS balaise ..."
    sante = 200
    force = 50

cree SALLE : cachot 
  attributs                                        
    description = "Il y a de la moisissure partout ... "
    luminosite = eclairee   

cree SALLE : couloir 
  attributs
    description = "Un couloir aux extremites obscures. "

cree SALLE : geole 
  attributs
    description = "Un squelette git sur le sol."

cree SALLE : entrepot 
  attributs
    description = "Un vrai bric a brac ! Y'a de tout ?!? " &
                " nourriture, armes, vetements, ..."

cree SALLE : armurerie 
  attributs
    description = "C' est une piece avec une grande forge .Vous voyez :Une enclume"
    & ", divers outils et un grand coffre ."

cree SALLE : poste_de_garde  
  attributs
    description = "Une petite salle avec une table au milieu et des armes au mur. "

cree SALLE : colline  

cree entite : bois 
  attributs
    description  = "Quelques bouts de planches cassees."

cree entite : paille 
  attributs
    description  = "Ben quoi, de la paille ..."

cree entite : lit 
  attributs
    description  = "C'est un ensemble de planches suspendues a des chaines. "
    & "En guise de matelas il y a un peu de paille."

cree entite : cle_en_bronze 
  attributs
    description  = "Oui, c'est bien une cle !"
// sous paille

cree entite : resine 
  attributs
    description  = "Beurk, ca colle aux doigts !"                   
// Il faut d'abord regarder racines dans cachot

cree entite : torche_eteinte attributs
    description = "Manque plus qu'a l'allumer ..."

cree entite : torche_allumee 
  attributs
    description = "Une jolie flamme ... "

cree COFFRE : coffre  
  attributs
    nom = "Coffre en acier"
    description = "Tout en acier. Imposible d'ouvrir un tel truc sans cle"

cree entite : epee 
  attributs
    description  = "Bonne lame !"

cree entite : armure 
  attributs
    description  = "C'est une cotte de mailles."

cree BOUTEILLE : flasque 
  attributs
    description  = "C'est une flasque d'huile. "

cree entite : pain 
  attributs
    description  = "C'est du pain blanc, slurp !"

cree BOUTEILLE : fiole_bleue 
  attributs
    description  = "Oh, la jolie bleue !"

cree BOUTEILLE : fiole_verte 
  attributs
    description  = "On dirait que c'est un concentre d'algues."

cree entite : cle_en_acier 
  attributs
    description  = "Une cle minuscule"
// sous le squelette de geole
//-------------------------------------------------------------------------------------

lie cachot nord a couloir sud par porte verrouille
lie couloir ouest a entrepot est par porte ferme
lie couloir nord a geole sud par porte coince
lie couloir haut a poste_de_garde bas par escalier ouvert
lie poste_de_garde est a colline ouest par porte
lie entrepot sud a armurerie nord par porte cache
//-------------------------------------------------------------------------------------

groupe objet : bois , paille , resine , cle_en_bronze , cle_en_acier , flasque ,armure , 
           epee , pain
groupe fiole : fiole_bleue , fiole_verte
groupe imprenable : lit , coffre , squelette , racines , flambeau
groupe piece : cachot , couloir , entrepot , armurerie , geole , poste_de_garde
groupe torche : torche_eteinte, torche_allumee
groupe direction : est, ouest , nord , sud , haut , bas
//--------------------------------------------------------------------------------------

introduction
positionne lieu a cachot
positionne paille, lit a cachot
positionne garde a poste_de_garde
positionne epee, armure a coffre
positionne coffre a armurerie
positionne pain, flasque, fiole_verte, fiole_bleue a entrepot
positionne cle_en_acier a squelette

Affiche " Vous vous reveillez dans une piece obscure, de la lumiere filtre par des barreaux... "
            & "des BARREAUX ! Le sang vous monte aux tempes et vous manquez de vous "
            & "evanouir a  nouveau. Les souvenirs vous reviennent : on vous a arrete par erreur et" 
            & " condamne a la PENDAISON ... "
ligne suivante
Affiche  " Malgre votre faiblesse vous vous relevez. Il faut faire vite et sortir de ce trou a rats !"
ligne suivante
ligne suivante
Affiche issues
ligne suivante
Affiche " barreaux flambeau racines "
affiche contenu de lieu
//-------------------------------------------------------------------------------------
scenario
quand ordre vaut

- regarder direction :
   pour entrepot
      si direction = sud
      alors
         affiche "Il y a une porte secrete derriere une armoire !"
         change sud de lieu a ouvert
    
   pour cachot
        Affiche Issues
        ligne suivante
        Affiche " barreaux flambeau racines"
        affiche contenu de lieu
   
   global
        si direction de lieu existe
        alors
         affiche issue direction
         ligne suivante
        fin si
        si luminosite de Lieu = eclairee ou torche appartient a joueur
        alors
         affiche contenu de Lieu
        fin si

- regarder :               
    pour cachot
        Affiche Issues
        ligne suivante
        Affiche " barreaux flambeau racines"
        affiche contenu de lieu

    global        
        Affiche Issues
        ligne suivante
        si luminosite de Lieu = eclairee ou torche appartient a joueur
        alors affiche contenu de Lieu
        fin si

- regarder racines      :       
    pour cachot
        Affiche " Ce doit etre les racines d'un conifere. De la resine "
              & "en degouline.  "
        si resine existe pas
        alors
         positionne resine a Lieu 
        sinon
         Affiche "Mais plus beaucoup ..."
        fin si
    global

- regarder squelette :
    pour geole      
        Affiche " Votre predecesseur ..."
        si cle_en_acier appartient a squelette
        alors 
            ligne suivante
            Affiche "Y a queq'chose qui brille sous les os !"
            positionne cle_en_acier a geole
        fin si
        si cle_en_acier appartient a lieu
            alors
               ligne suivante
               Affiche "He, y'a une p'tite cle en acier !"
        fin si
    global

- regarder torche :
        global
        si torche existe alors
                si torche appartient a joueur ou torche appartient a lieu
                alors
                  Affiche description de torche
                fin si
        fin si

- regarder objet        :               
        global
        si objet existe
        alors
                si objet appartient a joueur ou objet appartient a lieu 
                alors 
                        Affiche description de objet
                fin si
        sinon
                Affiche "Quel(le) "tss tss...nan nan"
        fin si

- regarder fiole        :     
        global
        si fiole appartient a joueur ou fiole appartient a lieu
        alors
                Affiche description de fiole
                ligne suivante
                Affiche " Elle est " & capacite de fiole
        fin si

- regarder porte :
   global
      affiche "Dans quelle direction ?"

- regarder porte direction :
   global
      Affiche "Elle est " & direction de lieu

regarder coffre :
   pour entrepot
      affiche description de coffre
      ligne suivante
      si serrure de coffre = verrouille
      alors
         ligne suivante
         affiche "Arriverez vous a l'ouvrir ?"
      sinon
         ligne suivante
         affiche contenu de coffre
      fin si

   global

- prendre objet :       
        global
        si objet existe pas
        alors
                Affiche "Et au pere Noel, t'y crois !!!!"
        sinon
                si objet appartient a lieu ou objet appartient a coffre
                alors
                        Affiche " Ok"
                        positionne objet a joueur
                sinon
                        si objet appartient a joueur
                        alors
                                affiche "C'est deja fait !"
                        fin si
                fin si
        fin si

- prendre fiole :       
        global
        si fiole appartient a lieu
        alors
                Affiche " Ok"
                positionne fiole a joueur
        sinon
                si fiole appartient a joueur
                alors
                        affiche "C'est deja fait !"
                fin si
        fin si

- ouvrir porte :
   global
   affiche "Precisez une direction ...."

- ouvrir porte direction :
   pour geole
      si direction de lieu existe      
         alors
            si direction de lieu = verrouille et cle_en_bronze appartient a joeur 
            alors
               change direction de lieu a ouvert
               affiche "Ok c'est ouvert"
            fin si
      sinon
         affiche "Il n'y a pas de porte dans cette direction."
      fin si

   pour couloir
      si direction de lieu existe      
         alors
            si direction = sud
            alors
               si sud de lieu = verrouille et cle_en_bronze appartient a joeur 
               alors
                  change direction de lieu a ouvert
                  affiche "Clic ! C'est ouvert !"
               fin si
            sinon
               si direction = nord
               alors
                  si nord de lieu = coince et huile appartient a joueur
                  alors
                     affiche "Glop, glop, avec de l'huile ca s'ouvre."
                     change nord de lieu a ouvert
                  fin si
            fin si
      sinon
         affiche "Il n'y a pas de porte dans cette direction."
      fin si

      global
         si direction de lieu existe
         alors
            si direction de lieu = ferme
            alors
               affiche "ok"
               change direction de lieu a ouvert
            fin si
         sinon
            affiche "Pas de porte ici."
         fin si

ouvrir coffre avec cle_en_acier :
      pour armurerie
         affiche "Well done !"
         change serrure de coffre a ouvert

      global

- poser objet           :       
        global
        si objet appartient a joueur
        alors
                Affiche " Ok"
                positionne objet a Lieu
        fin si

- poser fiole           :       
        global
        si fiole appartient a joueur
        alors
                Affiche " Ok"
                positionne fiole a Lieu
        fin si

- casser fiole          :       
        global
        si fiole appartient a joueur
        alors
                Affiche "Cling ! dommage ...elle donnait 100 pts de vie "
                Retire fiole
        fin si

- casser lit            :       
    pour cachot
        si lit existe
        alors 
            Affiche " SCRAAASH ! Dommage, Xavier ne pourra plus pioncer."
            positionne bois a Lieu
            retire lit
        fin si
    global

- aller direction         :       
        global
        si  direction de Lieu = ouvert
        alors 
                Va Vers direction
        sinon
                Affiche "impossible"
        fin si 

- faire torche          :       
        global
        si bois appartient a joueur et resine appartient a joueur 
        alors
            positionne torche_eteinte a joueur
            Retire bois
            Retire resine
        fin si

- allume torche,allume torche avec flambeau :
    pour cachot     
        si torche_eteinte appartient a Lieu
        alors 
            positionne torche_allumee a lieu 
            Affiche "Ok"     
            retire torche_eteinte
        sinon si
            lieu de torche_eteinte = joueur
            alors
                positionne torche_allumee a joueur
                Affiche "Ok"     
                retire torche_eteinte
            fin si
        fin si
    global
        si torche_eteinte appartient a joueur
        alors
                Affiche "avec quoi ?"
        fin si

fin quand

effac
DataMuseum.dk

Rational R1000/400

⟦b79c67ffe⟧ TextFile

Derivation

TextFile
