|
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: 17488 (0x4450) 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« └─⟦a295bdd72⟧ └─⟦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 s