|
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: 12141 (0x2f6d)
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«
└─⟦324bae80c⟧
└─⟦this⟧
complements
types
entite piece
entite personnage compose_de
champ description de_type chaine
champ genre enumere_de homme,femme,monstre
champ points_de_vie de_type entier
champ lieu de_type piece
fin_champs
entite porte compose_de
champ existe de_type booleen
champ etat enumere_de verrouille,ferme,ouvert
champ donne_sur de_type piece
fin_champs
entite piece compose_de
champ description de_type chaine
champ porte_nord de_type porte
champ porte_sud de_type porte
champ porte_est de_type porte
champ porte_ouest de_type porte
champ etat enumere_de clair,sombre
fin_champs
entite objet_non_deplacable compose_de
champ description de_type chaine
champ lieu de_type piece
champ etat enumere_de ouvert,ferme
champ ouvrable de_type booleen
fin_champs
entite objet_deplacable compose_de
champ existe de_type booleen
champ description de_type chaine
champ lieu de_type piece
champ proprietaire de_type personnage
champ est_dans de_type objet_non_deplacable
fin_champs
declarations
variable i de_type entier
variable pomme de_type objet_deplacable
variable cle de_type objet_deplacable
variable livre de_type objet_deplacable
variable journal de_type objet_deplacable
variable verre_eau de_type objet_deplacable
variable television de_type objet_non_deplacable
variable gueridon de_type objet_non_deplacable
variable robinet de_type objet_non_deplacable
variable lit de_type objet_non_deplacable
variable table de_type objet_non_deplacable
variable armoire de_type objet_non_deplacable
variable coffre de_type objet_non_deplacable
variable fenetre de_type objet_non_deplacable
variable baignoire de_type objet_non_deplacable
variable interrupteur de_type objet_non_deplacable
variable joueur de_type personnage
variable hall de_type piece
variable salle_a_manger de_type piece
variable chambre de_type piece
variable debarras de_type piece
variable cuisine de_type piece
variable salle_de_bain de_type piece
variable wc de_type piece
initialisations
valeur pomme.description vaut "Une jolie pomme pleine de vitamines"
valeur pomme.lieu vaut "cuisine"
valeur pomme.existe vaut "vrai"
valeur cle.description vaut "Une cle doree permettant d'ouvrir des portes..."
valeur cle.lieu vaut "chambre"
valeur cle.existe vaut "vrai"
valeur cle.est_dans vaut "armoire"
valeur livre.description vaut "Sur la couverture de ce livre est inscrit : Livre de la Sagesse"
valeur livre.lieu vaut "debarras"
valeur livre.existe vaut "vrai"
valeur livre.est_dans vaut "coffre"
valeur journal.description vaut "C'est un vieux journal"
valeur journal.lieu vaut "salle_a_manger"
valeur journal.existe vaut "vrai"
valeur verre_eau.description vaut "C'est un verre d'eau"
valeur verre_eau.lieu vaut "salle_a_manger"
valeur verre_eau.existe vaut "vrai"
valeur television.description vaut "C'est une television tres ancienne"
valeur television.lieu vaut "salle_a_manger"
valeur gueridon.description vaut "C'est un gueridon "
valeur gueridon.lieu vaut "salle_a_manger"
valeur robinet.description vaut "Un robinet "
valeur robinet.lieu vaut "cuisine"
valeur lit.description vaut " C'est un lit d'une jeune fille !!!!"
valeur lit.lieu vaut "chambre"
valeur table.description vaut " une table de cuisine"
valeur table.lieu vaut "cuisine"
valeur armoire.description vaut "Une armoire Louis xvi"
valeur armoire.lieu vaut "chambre"
valeur armoire.etat vaut "ferme"
valeur armoire.ouvrable vaut "vrai"
valeur coffre.description vaut "Un coffre ancien"
valeur coffre.lieu vaut "debarras"
valeur coffre.etat vaut "ferme"
valeur coffre.ouvrable vaut "vrai"
valeur fenetre.description vaut "Une fenetre avec une vue sur des montagnes"
valeur fenetre.lieu vaut "salle_de_bain"
valeur fenetre.etat vaut "ferme"
valeur fenetre.ouvrable vaut "vrai"
valeur baignoire.description vaut "Une baignoire classique"
valeur baignoire.lieu vaut "salle_de_bain"
valeur interrupteur.description vaut " Ben, c'est un interrupteur !"
valeur interrupteur.lieu vaut " chambre"
valeur joueur.description vaut "Un aventurier courageux"
valeur joueur.genre vaut "homme"
valeur joueur.points_de_vie vaut 25
valeur hall.description vaut "Un hall avec les portes au nord, a l'est et a l'ouest. "
valeur hall.porte_nord.donne_sur vaut "chambre"
valeur hall.porte_nord.existe vaut "vrai"
valeur hall.porte_nord.etat vaut "ferme"
valeur hall.porte_est.donne_sur vaut "cuisine"
valeur hall.porte_est.existe vaut "vrai"
valeur hall.porte_est.etat vaut "ferme"
valeur hall.porte_ouest.donne_sur vaut "salle_a_manger"
valeur hall.porte_ouest.existe vaut "vrai"
valeur hall.porte_ouest.etat vaut "ferme"
valeur salle_a_manger.description vaut "Une salle_a_manger avec une porte a l'ouest. La salle a manger contient une television, un gueridon sur lequel est pose :"
valeur salle_a_manger.porte_ouest.donne_sur vaut "hall"
valeur salle_a_manger.porte_ouest.existe vaut "vrai"
valeur salle_a_manger.porte_ouest.etat vaut "ouvert"
valeur cuisine.description vaut " vous etes dans une cuisine avec une porte au sud , a l'est, un robinet qui fuit et une table avec : "
valeur cuisine.porte_est.donne_sur vaut "hall"
valeur cuisine.porte_est.existe vaut "vrai"
valeur cuisine.porte_est.etat vaut "ouvert"
valeur cuisine.porte_sud.donne_sur vaut "salle_de_bain"
valeur cuisine.porte_sud.existe vaut "vrai"
valeur cuisine.porte_sud.etat vaut "ferme"
valeur salle_de_bain.description vaut "Une salle de bain avec une porte au nord et a l'ouest. Dans la salle de bain, il y a une fenetre et une baignoire"
valeur salle_de_bain.porte_nord.donne_sur vaut "cuisine"
valeur salle_de_bain.porte_nord.existe vaut "vrai"
valeur salle_de_bain.porte_nord.etat vaut "ouvert"
valeur salle_de_bain.porte_ouest.donne_sur vaut "wc"
valeur salle_de_bain.porte_ouest.existe vaut "vrai"
valeur salle_de_bain.porte_ouest.etat vaut "ouvert"
valeur wc.description vaut "Oh ! les toilettes avec une porte a l'est"
valeur wc.porte_est.donne_sur vaut "salle_de_bain"
valeur wc.porte_est.existe vaut "vrai"
valeur wc.porte_est.etat vaut "ouvert"
valeur chambre.description vaut "C'est une chambre avec deux portes : une au sud et l'autre a l'est. La chambre contient un lit et une armoire"
valeur chambre.porte_sud.donne_sur vaut "hall"
valeur chambre.porte_sud.existe vaut "vrai"
valeur chambre.porte_sud.etat vaut "ouvert"
valeur chambre.porte_est.donne_sur vaut "debarras"
valeur chambre.porte_est.existe vaut "vrai"
valeur chambre.porte_est.etat vaut "verrouille"
valeur debarras.description vaut "un debarras bien "
valeur debarras.porte_ouest.donne_sur vaut "chambre"
valeur debarras.porte_ouest.existe vaut "vrai"
valeur debarras.porte_ouest.etat vaut "ouvert"
valeur debarras.etat vaut "sombre"
verbes
action aller de_synonymes marcher, courir, avancer,sortir
action manger de_synonymes bouffer, gouter
action prendre de_synonymes ramasser
action poser de_synonymes jeter,laisser,reposer
action ouvrir
action fermer
action allumer
action eteindre
action utiliser
action inventaire
action decrire
action lire
action boire
action reparer
action faire
action appuyer
action regarder de_synonymes observer,espionner,epier
action quitter de_synonymes partir
scenario
valeur joueur.points_de_vie vaut joueur.points_de_vie-1
valeur i vaut 0
si joueur.points_de_vie = 25 alors
afficher "vous etes sur le perron d'une maison, devant la porte d'entree. Vous possedez 25 points de vie"
valeur i vaut 1
fin_si
si joueur.points_de_vie = 7 alors
afficher "il ne vous reste plus que 7 points de vie"
fin_si
si joueur.points_de_vie = 2 alors
afficher "il ne vous reste plus que 2 points de vie"
fin_si
si entree_clavier = (entrer,maison) alors
afficher hall.description
valeur joueur.lieu vaut hall
valeur i vaut 1
fin_si
si entree_clavier = (ouvrir,porte,entree) alors
afficher hall.description
valeur joueur.lieu vaut hall
valeur i vaut 1
fin_si
si entree_clavier = (quitter) alors
afficher "Le jeu est termine, noble aventurier . Il vous reste "
afficher joueur.points_de_vie
afficher "points de vie"
valeur i vaut 1
fin_si
si entree_clavier = (ouvrir,porte) alors
afficher "Laquelle ? "
valeur i vaut 1
fin_si
si joueur.lieu = hall alors
si entree_clavier = (decrire) alors
afficher hall.description
valeur i vaut 1
fin_si
fin_si
si joueur.lieu = hall alors
si entree_clavier = (aller,porte_ouest) alors
si hall.porte_ouest = ferme alors
afficher "La porte est fermee"
valeur i vaut 1
fin_si
fin_si
fin_si
si joueur.lieu = hall alors
si entree_clavier = (ouvrir,porte_ouest) alors
afficher " La porte s'ouvre"
afficher salle_a_manger.description
valeur joueur.lieu vaut salle_a_manger
valeur hall.porte_ouest vaut ouvert
valeur i vaut 1
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (decrire) alors
afficher salle_a_manger.description
si journal.lieu = salle_a_manger
alors afficher "Un journal "
valeur i vaut 1
fin_si
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (decrire) alors
si verre_eau.lieu = salle_a_manger
alors afficher "Un verre d'eau "
valeur i vaut 1
fin_si
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (decrire,television) alors
afficher television.description
valeur i vaut 1
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (decrire,journal) alors
afficher journal.description
valeur i vaut 1
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (allumer,television) alors
afficher "La television est en panne"
valeur i vaut 1
fin_si
fin_si
si joueur.lieu = salle_a_manger alors
si entree_clavier = (reparer,television) alors
afficher "Elle n'en vaut pas la pleine"
valeur i vaut 1
fin_si
fin_si
si entree_clavier = (prendre,journal) alors
si journal.lieu=joueur.lieu
alors afficher "Le journal vous appartient"
valeur journal.lieu vaut 0
valeur journal.proprietaire vaut joueur
valeur i vaut 1
fin_si
fin_si
si entree_clavier = (lire,journal) alors
si journal.proprietaire=joueur
alors afficher "Il n'y a rien d'interessant dans ce journal"
valeur i vaut 1
fin_si
fin_si
si entree_clavier = (poser,journal) alors
valeur journal.lieu vaut joueur.lieu
valeur journal.proprietaire vaut 0
valeur i vaut 1
fin_si
si entree_clavier = (prendre,verre) alors
si verre_eau.lieu=joueur.lieu
alors afficher "Le verre d'eau vous appartient"
valeur verre_eau.lieu vaut 0
valeur verre_eau.proprietaire vaut joueur
valeur i vaut 1
fin_si
fin_si
si entree_clavier = (boire,verre) alors
si verre_eau.proprietaire=joueur
alors afficher "c'est de la bonne eau, vous gagnez 4 points de vie"
valeur points_de_vie vaut points_de_vie+4
valeur verre_eau.proprietaire vaut 0
afficher joueur.points_de_vie
valeur i vaut 1
fin_si
fin_si
si entree_clavier = (poser,verre) alors
valeur verre_eau.lieu vaut joueur.lieu
valeur verre_eau.proprietaire vaut 0
valeur i vaut 1
fin_si
si i=0 alors
afficher "impossible"
fin_si
termine