|
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 - download
Length: 14684 (0x395c)
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«
└─⟦a43019f13⟧
└─⟦this⟧
message erreur "Non, non et non !!!!"
//-------------------------------------------------------------------------------------
enumere verrou : ouvert , verrouille
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
siouplait
//-------------------------------------------------------------------------------------
mots est, ouest , nord , sud , haut , bas, avec, squelette,
flambeau, barreaux, racines
//-------------------------------------------------------------------------------------
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 etat_salle = eclairee
structure entite : PERSO
attributs
description en chaine
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
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 , barreaux
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
change lieu en 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 flambeau :
pour cachot
affiche "Il brule faiblement"
- regarder barreaux :
pour cachot
affiche "Aaah ... la LIBERTE (ce qui n'est pas le cas pour l'instant, je vous le rappelle !"
- regarder direction :
pour entrepot
si direction = sud
alors
affiche "Il y a une porte secrete derriere une armoire !"
change sud de lieu en 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
- 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
- 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
- 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 flambeau :
pour cachot
affiche "Il est fixe au mur !"
- prendre racines :
pour cachot
affiche "Et pourquoi pas l'arbre entier aussi !
- prendre squelette :
pour geole
affiche "Ouah Berk t'es DEGUEU. Moi en tous cas j'le fais pas !"
- prendre imprenable :
pour cachot
affiche "Je n'y arrive pas !"
pour armurerie
affiche "Bien trop lourd !"
- 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 en 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 en 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 en 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 en 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 en ouvert
- 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
- 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
- manger pain :
global
si pain appartient a joeur ou pain appartient a lieu
alors
affiche "AAAH Ca va mieux"
retire pain
fin si
- boire fiole :
global
si fiole appartient a joueur ou fiole apartient a lieu
alors
si fiole = fiole_blueue
alors
affiche "pas mauvaise"
sinon
affiche "Aaaaaarrrgggg !"
termine
fin si
- inventaire :
global
affiche contenu de joueur
- siouplait :
global
aide
fin quand
effac