⟦9b4a4c7ad⟧

TextFile

aide albator 

message erreur "Non, non et non !!!!"
//-------------------------------------------------------------------------------------
enumere verrou : opened ,locked 
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
    sante 
    eteindre
    allumer
    
//-------------------------------------------------------------------------------------

mots    est, ouest , nord , sud , haut , bas, avec,
        flambeau, barreaux, racines , porte , escalier,torche
//-------------------------------------------------------------------------------------

structure entite : BOUTEILLE 
  attributs
   description en chaine
   capacite en interieur = rempli

structure entite : COFFRE 
  attributs             
   description en chaine
   serrure en verrou = verrouille
   capacite en interieur

structure lieu : SALLE 
  attributs             
   description en chaine
   etat en luminosite = eclairee 

structure entite : PERSO 
  attributs                        
   description en chaine
   vie en entier = 100
   force en entier = 20

 structure entite : objet
 attributs
 description en chaine
//---------------------------------------------------------------------------------------

cree PERSO : joueur

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

cree SALLE : cachot 
  attributs                                        
    description = "Il y a de la moisissure partout ... "
    etat = 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 objet : bois 
  attributs
    description  = "Quelques bouts de planches cassees."

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

cree objet : 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 objet : cle_en_bronze 
  attributs
    description  = "Oui, c'est bien une cle !"
// sous paille

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

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

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

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

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

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

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

cree objet : 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 objet : cle_en_acier 
  attributs
    description  = "Une cle minuscule"
// sous le squelette de geole
//---------------------------------------------------------------------------------------

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

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 , barreaux
groupe piece : cachot , couloir , entrepot , armurerie , geole , poste_de_garde
groupe direction : est, ouest , nord , sud , haut , bas
//----------------------------------------------------------------------------------------

introduction
change lieu en cachot
change heros en joueur
positionne paille a cachot
positionne lit a cachot
positionne garde a poste_de_garde
positionne epee a coffre 
positionne armure a coffre
positionne coffre a armurerie
positionne pain a entrepot 
positionne flasque a entrepot 
positionne fiole_verte a entrepot 
positionne 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 nom de lieu
ligne suivante
Affiche " barreaux flambeau racines "
affiche contenu de lieu 
ligne suivante 
affiche "intro"
//-------------------------------------------------------------------------------------
scenario      
//efface
affiche nom de lieu    
ligne suivante
affiche contenu de lieu
quand ordre vaut

#aller direction :
    global
        si direction de lieu existe
        alors
            si direction de lieu = ouvert
            alors
                va vers direction
            sinon
                affiche "La voie est infranchissable"
            fin si
        sinon
            affiche "pas d'issue dans cette direction"
        fin si

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

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

# sante :
    global
        affiche vie de heros  
        si vie de heros < 10
        alors
            affiche "Je faiblis ..."
        sinon affiche "ca va"
        fin si
                     
  # ouvrir coffre :
     pour armurerie
        si serrure de coffre = locked
        alors
            affiche "Je le deverouille"
        sinon
            affiche contenu de coffre
        fin si
        
# eteindre :
       global
       affiche "ok"

# allumer :
    global
    affiche "ok"

fin quan
DataMuseum.dk

Rational R1000/400

⟦9b4a4c7ad⟧ TextFile

Derivation

TextFile
