|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 17489 (0x4451)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦e3a1b9ca9⟧
└─⟦this⟧
aide awk
//-------------------------------------------------------------------------------------
message erreur "Non, non et non !!!!"
//-------------------------------------------------------------------------------------
enumere fermeture : opened , locked
enumere interieur : rempli , vide
enumere luminosite : sombre , eclairee
enumere couleur : bleue , verte
//-------------------------------------------------------------------------------------
lien normal : ferme , ouvert , verrouille , rouille
lien special : cache
//-------------------------------------------------------------------------------------
verbes boire
aller ou courir , marcher , avancer
frapper ou attaquer , tuer
prendre ou ramasser
regarder ou voir , examiner , fouiller , inspecter
poser ou laisser , deposer
faire ou creer construire
ouvrir
inventaire
sante
casser ou detruire , briser
graisser ou huiler , derouiller
allumer
manger ou avaler , bouffer , engloutir
//-------------------------------------------------------------------------------------
mots est, ouest , nord , sud , haut , bas, porte , escalier , barreaux , flambeau , racines,
squelette , torche ,avec
//-------------------------------------------------------------------------------------
structure entite : BOUTEILLE
attributs
description en chaine
capacite en interieur = rempli
aspect en couleur = verte
structure entite : COFFRE
attributs
description en chaine
serrure en fermeture = locked
structure lieu : SALLE
attributs
description en chaine
etat en luminosite = sombre
structure entite : PERSO
attributs
description en chaine
vie en entier = 50
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 : pain
attributs
description = "C'est du pain blanc, slurp !"
cree BOUTEILLE : fiole_bleue
attributs
description = "Oh, la jolie bleue !"
aspect = bleue
cree BOUTEILLE : fiole_verte
attributs
description = "On dirait que c'est un concentre d'algues."
aspect = verte
cree objet : 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 rouille
lie couloir haut a poste_de_garde bas par escalier ouvert
lie poste_de_garde est a colline ouest par porte ouvert
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 , flambeau, barreaux , racines, squelette
groupe piece : cachot , couloir , entrepot , armurerie , geole , poste_de_garde
groupe direction : est, ouest , nord , sud , haut , bas
//--------------------------------------------------------------------------------------
introduction
change Lieu en cachot
positionne joueur, paille, lit a cachot
change heros en joueur
positionne garde a poste_de_garde
positionne epee, armure a coffre
positionne pain, flasque, fiole_verte, fiole_bleue a entrepot
positionne coffre a armurerie
positionne epee, armure a coffre
Affiche " Vous vous reveillez dans une piece obscure, de la lumiere filtre par des barreaux... "
ligne suivante
Affiche "Des BARREAUX ! Le sang vous monte aux tempes et vous manquez de vous evanouir a nouveau."
ligne suivante
Affiche "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
ligne suivante
//-------------------------------------------------------------------------------------
scenario
efface
quand ordre vaut
# regarder sud :
pour entrepot
Affiche "He, y'a un passage secret"
change sud de entrepot en ouvert
# regarder, regarder direction :
pour cachot
Affiche contenu de Lieu
Affiche " barreaux flambeau racines"
ligne suivante
pour geole
si etat de Lieu = eclairee ou torche_allumee appartient a joueur
alors
Affiche contenu de Lieu
Affiche " squelette"
sinon
Affiche "J'y vois pas bien ... Y fait trop noir !"
fin si
pour poste_de_garde
Affiche contenu de Lieu
ligne suivante
Affiche "Bon sang, La sortie est la, a l'EST !"
si vie de garde > 0
alors
ligne suivante
Affiche "Mais un garde somnole dans l'encadrement de la porte !"
fin si
global
si etat de Lieu = eclairee ou torche_allumee appartient a joueur
alors
ligne suivante
affiche contenu de Lieu
sinon
Affiche "J'y vois pas bien... Y fait trop noir !"
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
ligne suivante
Affiche "Mais plus beaucoup ..."
fin si
# regarder squelette :
pour geole
Affiche " Votre predecesseur ..."
si cle_en_acier existe pas
alors 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 Affiche "Y a une petite cle en acier dans son thorax !"
fin si
# regarder lit :
pour cachot
Affiche "Sommaire, dur et solidement rive au mur."
# regarder flambeau :
pour cachot
Affiche "Ce flambeau eclaire un peu la piece."
ligne suivante
Affiche "Il est scelle dans le mur."
# regarder barreaux :
pour cachot
Affiche "Ah, la LIBERTE ...."
# regarder torche :
global
si torche_eteinte existe
alors
Affiche description de torche_eteinte
sinon
si torche_allumee existe
alors
Affiche description de torche_allumee
fin si
fin si
# regarder escalier :
pour couloir
Affiche "Il monte ... Il me semble qu'il y a de la lumiere au bout !"
pour poste_de_garde
Affiche "Il descend vers ce cachot POURRI !"
# regarder objet :
global
Affiche description de objet
# regarder coffre :
pour armurerie
si serrure de coffre = locked
alors
Affiche "Un gros bloc d'ACIER avec une petite serrure !"
ligne suivante
Affiche "Impossible de l'ouvrir sans cle."
sinon
si epee appartient a coffre et armure appartient a coffre
alors
Affiche "Deux objets me semble interessants. J'ai sorti une epee et une armure."
positionne epee, armure a Lieu
fin si
fin si
# regarder fiole :
global
Affiche description de fiole
ligne suivante
Affiche " Elle est " & capacite de fiole
# regarder porte direction :
global
si direction de Lieu existe
alors
Affiche "Elle est " & direction de Lieu & "e."
sinon
affiche "J'en vois aucune dans cette direction !"
fin si
# regarder porte :
global
Affiche "Indiquer moi la direction, merci d'avance !"
# regarder garde :
global
si vie de garde > 0
alors
affiche "Il semble seulement legerement assoupi."
ligne suivante
affiche "Il est bien equipe : hallebarde et armure."
sinon
Affiche "Il baigne dans une mare de sang."
fin si
# prendre objet :
global
si objet appartient a lieu
alors
Affiche " Ok"
positionne objet a joueur
sinon
affiche "C'est deja fait !"
fin si
# prendre imprenable :
global
Affiche "Impossible de le bouger."
# prendre fiole :
global
si fiole appartient a Lieu
alors
Affiche " Ok"
positionne fiole a joueur
sinon
Affiche "C'est deja fait !"
fin si
# poser objet :
global
si objet appartient a joueur
alors
Affiche " Ok"
positionne objet a Lieu
sinon
Affiche "C'est bien pour vous faire plaisir que je repose cet objet qui etait deja pose !"
fin si
# poser fiole :
global
si fiole appartient a joueur
alors
Affiche " Ok"
positionne fiole a Lieu
sinon
Affiche "Je ne vois pas l'interet de poser un objet que je ne possede pas."
fin si
# casser fiole :
global
si capacite de fiole = rempli
alors
Affiche "Cling ! dommage ...elle donnait 100 pts de vie "
Retire fiole
sinon
Affiche "SCRAAAASCH !"
fin si
# casser lit :
pour cachot
si lit existe
alors
Affiche " SCRAAASH ! Dommage, vous ne pourrez plus pioncer."
ligne suivante
Affiche "Cling !"
positionne bois a Lieu
positionne cle_en_bronze a Lieu
retire lit
sinon
Affiche "Bon ben ca va , faut pas abuser"
fin si
# aller est :
pour poste_de_garde
si vie de garde > 0
alors
Affiche "Il faudra d'abord tuer le garde !"
fin si
# aller direction, direction :
global
si direction de Lieu = ouvert
alors
Va Vers direction
sinon
Affiche "Impossible !"
fin si
# graisser porte direction :
pour couloir
si direction de Lieu = rouille
alors
affiche "Glop, glop, comme ca c'est mieux !"
ligne suivante
change direction de Lieu en ouvert
Affiche "GnnnniaaAANNN .... Ca grince, mais c'est ouvert a present !"
fin si
# ouvrir coffre :
pour armurerie
si cle_en_acier appartient a joueur
alors
aFFiche "Well done ! La petite cle en acier epouse les forme de la serrure ."
change serrure de coffre en opened
sinon
Affiche "Je peux pas, il est verrouille !"
fin si
# ouvrir porte :
global
Affiche "Dans quelle direction, siouplait !"
# ouvrir porte direction :
global
si direction de lieu existe pas
alors
Affiche "Y a rien dans cette direction !"
sinon
si direction de Lieu = ferme
alors
Affiche "Voila, je l'ai ouverte."
change direction de Lieu en ouvert
sinon si direction de Lieu = ouvert
alors
Affiche "He ho, faut pas pousser ! Elle est deja ouverte !"
sinon si direction de Lieu = verrouille et cle_en_bronze appartient a joueur
alors
affiche "Clic , clac ! C'est ouvert."
change direction de Lieu en ouvert
sinon
affiche "Je ne peux pas."
fin si
fin si
fin si
fin si
# faire torche :
global
si bois appartient a joueur et resine appartient a joueur et paille appartient a joueur
alors
positionne torche_eteinte a joueur
Retire bois
Retire resine
sinon
affiche "Il vous manque des materiaux."
fin si
# allumer torche avec flambeau ,allumer torche :
pour cachot
si torche_eteinte appartient a Lieu
alors
positionne torche_allumee a lieu
Affiche "Ok"
retire torche_eteinte
sinon si torche_eteinte appartient a 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
# manger pain :
global
Affiche "Gniam GRounf Ch'est m.GLOUP..iuex comme CHA !"
change vie de joueur en vie de joueur + 100
ligne suivante
AFfiche "sante : " & vie de joueur & "/300"
retire pain
# boire fiole :
global
Affiche "Schluuurp !"
ligne suivante
si aspect de fiole = bleue
alors
si capacite de fiole = rempli
alors
affiche "OuaaAAH, je pete la forme moi !"
change vie de joueur en vie de joueur + 100
ligne suivante
Affiche " Sante : " & vie de joueur & "/300 !"
change capacite de fiole en vide
fin si
sinon
Affiche "Beuah , c'est infect ce ......"
ligne suivante
Affiche "Une douce torpeur vous envahit ......."
termine
fin si
# sante :
global
Affiche "Votre vie est de " & vie de joueur & "/300"
# inventaire :
global
Affiche contenu de joueur
# attaquer garde :
global
si armure appartient a joueur et epee appartient a joueur et vie de joueur > 200
alors
Affiche "HuuuUUUAAAAH ! (c'est le cri du garde)"
ligne suivante
Affiche "Apres un dur combat, vous terrassez ce dernier !"
change vie de garde en 0
sinon
Affiche "HuuuUUUAAAH ! (votre agonie ....)"
termine
fin si
fin quand
ligne suivante
affiche "Vous etes dans : " & nom de Lieu
ligne suivante
affiche description de Lieu
ligne suivante
affiche issues
ligne suivante
ligne suivante
affiche contenu de Lieu
si Lieu = colline
alors
ligne suivante
Affiche "C'est GAGNE. A vous la liberte ...."
termine
fin si