|
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: 10234 (0x27fa) 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« └─⟦be64c76f4⟧ └─⟦this⟧
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 //------------------------------------------------------------------------------------- structure entite : BOUTEILLE attributs en interieur : capacite structure entite : COFFRE attributs en verrou : serrure = ferme en interieur : capacite structure lieu : SALLE attributs en etat_salle : etat = eclairee structure entite : PERSO attributs en entier : sante = 100 en entier : force = 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 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 joueur, paille, lit a cachot positionne garde a poste_de_garde positionne epee, armure a coffre 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, regarder direction : pour cachot Affiche " barreaux flambeau racines" Affiche Issues global Affiche Issues 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 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 "Un petite 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 si objet appartient a joueur ou objet appartient a lieu alors Affiche description de objet fin si sinon Affiche "Quel(le) " & objet & " ?" fin si - regarder fiole : global si fiole appartient a joueur ou fiole appartient a lieu alors Affiche description de fiole Affiche " Elle est " & capacite de fiole fin si - prendre objet : global si objet existe pas alors Affiche "Et au pere Noel, t'y crois !!!!" sinon si objet appartient a lieu 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 - 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 quan