|
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: 70582 (0x113b6) 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« └─⟦38c132c6a⟧ └─⟦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 entite variables_globales compose_de champ i de_type entier fin_champs declarations variable j de_type entier variable les_var_globales de_type variables_globales variable porte_nord de_type porte variable porte_sud de_type porte variable porte_est de_type porte variable porte_ouest de_type porte variable porte de_type porte 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 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 bain de_type objet_non_deplacable variable pipi de_type objet_non_deplacable variable joueur de_type personnage variable perron de_type piece 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 les_var_globales.i vaut "0" 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 "0" 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 "0" 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.description vaut "C'est un verre d'eau" valeur verre.lieu vaut "salle_a_manger" valeur verre.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 robinet.etat vaut "ouvert" 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 avec une porte" 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 qui n'a rien d'exceptionnelle" valeur baignoire.lieu vaut "salle_de_bain" valeur interrupteur.description vaut "Ben, c'est un interrupteur !" valeur interrupteur.lieu vaut "debarras" valeur interrupteur.etat vaut "ouvert" valeur joueur.description vaut "Un aventurier courageux" valeur joueur.genre vaut "homme" valeur joueur.points_de_vie vaut "100" valeur joueur.lieu vaut "perron" valeur perron.description vaut "Vous etes sur le perron devant une maison. " valeur perron.etat vaut "clair" valeur perron.porte_nord.donne_sur vaut "hall" valeur perron.porte_nord.existe vaut "vrai" valeur perron.porte_nord.etat vaut "ferme" valeur hall.description vaut "Vous etes dans un hall avec les portes au nord, a l'est et a l'ouest. " valeur hall.etat vaut "clair" 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 "ouvert" 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 hall.porte_sud.donne_sur vaut "perron" valeur hall.porte_sud.existe vaut "vrai" valeur hall.porte_sud.etat vaut "ferme" valeur salle_a_manger.description vaut "Vous etes dans une salle a manger avec une porte a l'ouest. Il y a une television, un gueridon..." valeur salle_a_manger.etat vaut "clair" valeur salle_a_manger.porte_est.donne_sur vaut "hall" valeur salle_a_manger.porte_est.existe vaut "vrai" valeur salle_a_manger.porte_est.etat vaut "ferme" valeur cuisine.description vaut " Vous etes dans une cuisine avec une porte au sud , a l'ouest, une table " valeur cuisine.etat vaut "clair" valeur cuisine.porte_ouest.donne_sur vaut "hall" valeur cuisine.porte_ouest.existe vaut "vrai" valeur cuisine.porte_ouest.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 "ouvert" valeur salle_de_bain.description vaut "Vous etes dans une salle de bain avec une porte au nord et a l'ouest. Il y a une fenetre et une baignoire" valeur salle_de_bain vaut "clair" 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 "Vous etes dans les toilettes. Il y a une porte a l'est" valeur wc.etat vaut "clair" 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 "Vous etes dans une chambre avec deux portes : une au sud et l'autre a l'est. Il y a un lit et une armoire" valeur chambre.etat vaut "clair" valeur chambre.porte_sud.donne_sur vaut "hall" valeur chambre.porte_sud.existe vaut "vrai" valeur chambre.porte_sud.etat vaut "ferme" 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 "Vous etes dans un debarras " valeur debarras.porte_ouest.donne_sur vaut "chambre" valeur debarras.porte_ouest.existe vaut "vrai" valeur debarras.porte_ouest.etat vaut "verrouille" valeur debarras.etat vaut "sombre" verbes action nord action sud action est action ouest action aller de_synonymes marcher, courir, avancer,marche,court,avance,va action manger de_synonymes bouffer, gouter, bouffe, goute action prendre de_synonymes ramasser,prends,prend action poser de_synonymes jeter,laisser,reposer,jette,laisse,repose,deposer,depose action ouvrir de_synonymes ouvre action fermer de_synonymes ferme action allumer de_synonymes allume,appuyer,appuie action eteindre de_synonymes eteint,eteind action utiliser de_synonymes utilise action inventaire action decrire de_synonymes decris,decrit,regarder,regarde,observer,observe action lire de_synonymes lis,lit action boire de_synonymes bois action reparer de_synonymes repare action faire de_synonymes fais,fait action quitter de_synonymes exit,fin action entrer de_synonymes entre action info scenario valeur les_var_globales.i vaut "0" si joueur.points_de_vie = "100" alors aller_a_la_ligne afficher "Le livre de la sagesse V1.0" aller_a_la_ligne aller_a_la_ligne afficher "Le but de ce jeu est de devenir un sage" aller_a_la_ligne aller_a_la_ligne afficher "Commandes : " aller_a_la_ligne aller_a_la_ligne afficher " - decrire : affiche la description de la piece courante" aller_a_la_ligne afficher " - decrire <meuble> : affiche la description d'un meuble" aller_a_la_ligne afficher " - ouvrir <porte> : ouvre une porte (porte_nord,porte_est,...)" aller_a_la_ligne afficher " - prendre <objet> : prend un objet" aller_a_la_ligne afficher " - poser <objet> : pose l'objet dans la piece courante" aller_a_la_ligne afficher " - poser <objet> <meuble> : pose l'objet dans un meuble" aller_a_la_ligne afficher " - ouest : se deplace dans la direction ouest (est,nord,sud)" aller_a_la_ligne afficher " - inventaire : affiche les objets portes par le joueur et les points de vie" aller_a_la_ligne afficher " - info : affiche la liste des commandes" aller_a_la_ligne afficher " - quitter : termine le jeu" aller_a_la_ligne aller_a_la_ligne afficher "Il existe bien d'autres verbes, mais c'est a vous de les decouvrir..." aller_a_la_ligne afficher "Bonne Chance!" aller_a_la_ligne aller_a_la_ligne afficher "Vous etes sur le perron d'une maison. La porte se trouve au nord" aller_a_la_ligne afficher "Vous possedez 100 points de vie" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si valeur joueur.points_de_vie vaut joueur.points_de_vie - 1 si entree_clavier = (entrer) alors si joueur.lieu = "perron" alors afficher hall.description aller_a_la_ligne valeur joueur.lieu vaut "hall" valeur perron.porte_nord.etat vaut "ouvert" valeur hall.porte_sud.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (info) alors afficher "Commandes : " aller_a_la_ligne aller_a_la_ligne afficher " - decrire : affiche la description de la piece courante" aller_a_la_ligne afficher " - decrire <meuble> : affiche la description d'un meuble" aller_a_la_ligne afficher " - ouvrir <porte> : ouvre une porte (porte_nord,porte_est,...)" aller_a_la_ligne afficher " - prendre <objet> : prend un objet" aller_a_la_ligne afficher " - poser <objet> : pose l'objet dans la piece courante" aller_a_la_ligne afficher " - poser <objet> <meuble> : pose l'objet dans un meuble" aller_a_la_ligne afficher " - ouest : se deplace dans la direction ouest (est,nord,sud)" aller_a_la_ligne afficher " - inventaire : affiche les objets portes par le joueur et les points de vie" aller_a_la_ligne afficher " - info : affiche la liste des commandes" aller_a_la_ligne afficher " - quitter : termine le jeu" aller_a_la_ligne aller_a_la_ligne afficher "Il existe bien d'autres verbes, mais c'est a vous de les decouvrir..." aller_a_la_ligne valeur joueur.points_de_vie vaut joueur.points_de_vie + 1 afficher "Il vous reste " afficher joueur.points_de_vie afficher " points de vie" valeur les_var_globales.i vaut "1" aller_a_la_ligne 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" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si entree_clavier = (ouvrir,porte) alors afficher "Laquelle ? " aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si entree_clavier = (decrire) alors si joueur.lieu ="perron" alors afficher perron.description aller_a_la_ligne si journal.lieu = "perron" alors afficher "Sur le perron il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "perron" alors afficher "Sur le perron il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu="perron" alors afficher "Sur le perron il y a un livre" aller_a_la_ligne fin_si si cle.lieu="perron" alors afficher "Sur le perron il y a une cle" aller_a_la_ligne fin_si si pomme.lieu="perron" alors afficher "Sur le perron il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "hall" alors afficher hall.description aller_a_la_ligne si journal.lieu = "hall" alors afficher "Dans le hall il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "hall" alors afficher "Dans le hall il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu="hall" alors afficher "Dans le hall il y a un livre" aller_a_la_ligne fin_si si cle.lieu="hall" alors afficher "Dans le hall il y a une cle" aller_a_la_ligne fin_si si pomme.lieu="hall" alors afficher "Dans le hall il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "cuisine" alors afficher cuisine.description aller_a_la_ligne si robinet.etat = "ouvert" alors afficher " et un robinet qui fuit" aller_a_la_ligne fin_si si journal.lieu = "cuisine" alors afficher "Dans la cuisine il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "cuisine" alors afficher "Dans la cuisine il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu="cuisine" alors afficher "Dans la cuisine il y a un livre" aller_a_la_ligne fin_si si cle.lieu="cuisine" alors afficher "Dans la cuisine il y a une cle" aller_a_la_ligne fin_si si pomme.lieu="cuisine" alors afficher "Dans la cuisine il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "chambre" alors afficher chambre.description aller_a_la_ligne si journal.lieu ="chambre" alors afficher "Dans la chambre il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "chambre" alors afficher "Dans la chambre il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu="chambre" alors afficher "Dans la chambre il y a un livre" aller_a_la_ligne fin_si si pomme.lieu="chambre" alors afficher "Dans la chambre il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "debarras" alors si debarras.etat="clair" alors afficher debarras.description aller_a_la_ligne afficher "Dans le debarras il y a un coffre" aller_a_la_ligne valeur les_var_globales.i vaut "1" si journal.lieu = "debarras" alors afficher " Dans le debarras il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "debarras" alors afficher "Dans le debarras il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu= "debarras" alors afficher "Dans le debarras il y a un livre" aller_a_la_ligne fin_si si cle.lieu= "debarras" alors afficher "Dans le debarras il y a une cle" aller_a_la_ligne fin_si si pomme.lieu= "debarras" alors afficher "Dans le debarras il y a une pomme" aller_a_la_ligne fin_si fin_si si debarras.etat="sombre" alors afficher "Vous etes dans le noir.Au mur, vous discernez un interrupteur" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "salle_de_bain" alors afficher salle_de_bain.description aller_a_la_ligne si journal.lieu = "salle_de_bain" alors afficher "Dans la salle de bain il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "salle_de_bain" alors afficher "Dans la salle de bain il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu= "salle_de_bain" alors afficher "Dans la salle de bain il y a un livre" aller_a_la_ligne fin_si si cle.lieu= "salle_de_bain" alors afficher "Dans la salle de bain il y une cle" aller_a_la_ligne fin_si si pomme.lieu= "salle_de_bain" alors afficher "Dans la salle de bain il y une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "wc" alors afficher wc.description aller_a_la_ligne si journal.lieu = "wc" alors afficher "Dans les toilettes il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "wc" alors afficher "Dans les toilettes il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu= "wc" alors afficher "Dans les toilettes il y a un livre" aller_a_la_ligne fin_si si cle.lieu= "wc" alors afficher "Dans les toilettes il y a une cle" aller_a_la_ligne fin_si si pomme.lieu= "wc" alors afficher "Dans les toilettes il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si si joueur.lieu = "salle_a_manger" alors afficher salle_a_manger.description aller_a_la_ligne si journal.lieu = "salle_a_manger" alors afficher "Dans la salle a manger il y a un journal " aller_a_la_ligne fin_si si verre.lieu = "salle_a_manger" alors afficher "Dans la salle a manger il y a un verre d'eau " aller_a_la_ligne fin_si si livre.lieu="salle_a_manger" alors afficher "Dans la salle a manger il y a un livre" aller_a_la_ligne fin_si si cle.lieu="salle_a_manger" alors afficher "Dans la salle a manger il y a une cle" aller_a_la_ligne fin_si si pomme.lieu="salle_a_manger" alors afficher "Dans la salle a manger il y a une pomme" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(decrire,television) alors si joueur.lieu = "salle_a_manger" alors afficher television.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (allumer,television) alors si joueur.lieu = "salle_a_manger" alors afficher "La television est en panne" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (reparer,television) alors si joueur.lieu = "salle_a_manger" alors afficher "Elle n'en vaut pas la peine" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (prendre,journal) alors si journal.lieu=joueur.lieu alors afficher "Le journal vous appartient" aller_a_la_ligne valeur journal.lieu vaut "0" valeur journal.proprietaire vaut "joueur" valeur les_var_globales.i vaut "1" fin_si si joueur.lieu="chambre" alors si armoire.etat = "ouvert" alors si journal.est_dans ="armoire" alors afficher " Le journal vous appartient " aller_a_la_ligne valeur journal.est_dans vaut "0" valeur journal.proprietaire vaut "joueur" valeur journal.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si joueur.lieu="debarras" alors si journal.est_dans = "coffre" alors si debarras.etat = "clair" alors si coffre.etat="ouvert" alors afficher "Le journal vous appartient " aller_a_la_ligne valeur journal.est_dans vaut "0" valeur journal.proprietaire vaut "joueur" valeur journal.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si fin_si si entree_clavier = (prendre,pomme) alors si pomme.lieu=joueur.lieu alors afficher "La pomme vous appartient" aller_a_la_ligne valeur pomme.lieu vaut "0" valeur pomme.proprietaire vaut "joueur" valeur les_var_globales.i vaut "1" fin_si si joueur.lieu="chambre" alors si armoire.etat = "ouvert" alors si pomme.est_dans ="armoire" alors afficher " La pomme vous appartient " aller_a_la_ligne valeur pomme.est_dans vaut "0" valeur pomme.proprietaire vaut "joueur" valeur pomme.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si joueur.lieu="debarras" alors si pomme.est_dans = "coffre" alors si debarras.etat = "clair" alors si coffre.etat="ouvert" alors afficher "La pomme vous appartient " aller_a_la_ligne valeur pomme.est_dans vaut "0" valeur pomme.proprietaire vaut "joueur" valeur pomme.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si fin_si si entree_clavier = (prendre,cle) alors si cle.lieu=joueur.lieu alors si cle.est_dans = "0" alors afficher "La cle vous appartient" aller_a_la_ligne valeur cle.lieu vaut "0" valeur cle.proprietaire vaut "joueur" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu="chambre" alors si armoire.etat = "ouvert" alors si cle.est_dans ="armoire" alors afficher " La cle vous appartient " aller_a_la_ligne valeur cle.est_dans vaut "0" valeur cle.proprietaire vaut "joueur" valeur cle.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si joueur.lieu="debarras" alors si cle.est_dans = "coffre" alors si debarras.etat = "clair" alors si coffre.etat="ouvert" alors afficher "La cle vous appartient " aller_a_la_ligne valeur cle.est_dans vaut "0" valeur cle.proprietaire vaut "joueur" valeur cle.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si fin_si si entree_clavier=(prendre,livre) alors si livre.lieu=joueur.lieu alors si livre.est_dans = "0" alors afficher "Le livre vous appartient" aller_a_la_ligne valeur livre.lieu vaut "0" valeur livre.proprietaire vaut "joueur" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu="debarras" alors si livre.est_dans = "coffre" alors si debarras.etat = "clair" alors si coffre.etat="ouvert" alors afficher "Le livre vous appartient " aller_a_la_ligne valeur livre.est_dans vaut "0" valeur livre.proprietaire vaut "joueur" valeur livre.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si joueur.lieu="chambre" alors si armoire.etat = "ouvert" alors si livre.est_dans ="armoire" alors afficher " Le livre vous appartient " aller_a_la_ligne valeur livre.est_dans vaut "0" valeur livre.proprietaire vaut "joueur" valeur livre.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (prendre,verre) alors si verre.lieu=joueur.lieu alors afficher "Le verre d'eau vous appartient" aller_a_la_ligne valeur verre.lieu vaut "0" valeur verre.proprietaire vaut "joueur" valeur les_var_globales.i vaut "1" fin_si si joueur.lieu="chambre" alors si armoire.etat = "ouvert" alors si verre.est_dans ="armoire" alors afficher " Le verre vous appartient " aller_a_la_ligne valeur verre.est_dans vaut "0" valeur verre.proprietaire vaut "joueur" valeur verre.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si joueur.lieu="debarras" alors si verre.est_dans = "coffre" alors si debarras.etat = "clair" alors si coffre.etat="ouvert" alors afficher "Le verre vous appartient " aller_a_la_ligne valeur verre.est_dans vaut "0" valeur verre.proprietaire vaut "joueur" valeur verre.lieu vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si 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" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (poser,journal) alors afficher "Le journal est pose" aller_a_la_ligne valeur journal.lieu vaut joueur.lieu valeur journal.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si si entree_clavier = (poser,cle) alors si cle.proprietaire = "joueur" alors afficher "La cle est posee" aller_a_la_ligne valeur cle.lieu vaut joueur.lieu valeur cle.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (poser,cle,armoire) alors si cle.proprietaire="joueur" alors si armoire.etat="ouvert" alors si joueur.lieu=armoire.lieu alors valeur cle.est_dans vaut "armoire" valeur cle.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,pomme,armoire) alors si pomme.proprietaire="joueur" alors si armoire.etat="ouvert" alors si joueur.lieu=armoire.lieu alors valeur pomme.est_dans vaut "armoire" valeur pomme.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,verre,armoire) alors si verre.proprietaire="joueur" alors si armoire.etat="ouvert" alors si joueur.lieu=armoire.lieu alors valeur verre.est_dans vaut "armoire" valeur verre.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,journal,armoire) alors si journal.proprietaire="joueur" alors si armoire.etat="ouvert" alors si joueur.lieu=armoire.lieu alors valeur journal.est_dans vaut "armoire" valeur journal.proprietaire vaut "0" afficher"OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,livre,armoire) alors si livre.proprietaire="joueur" alors si armoire.etat="ouvert" alors si joueur.lieu=armoire.lieu alors valeur livre.est_dans vaut "armoire" valeur livre.proprietaire vaut "0" afficher"OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,cle,coffre) alors si cle.proprietaire="joueur" alors si coffre.etat="ouvert" alors si joueur.lieu=coffre.lieu alors valeur cle.est_dans vaut "coffre" valeur cle.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,journal,coffre) alors si journal.proprietaire="joueur" alors si coffre.etat="ouvert" alors si joueur.lieu=coffre.lieu alors valeur journal.est_dans vaut "coffre" valeur journal.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,livre,coffre) alors si livre.proprietaire="joueur" alors si coffre.etat="ouvert" alors si joueur.lieu=coffre.lieu alors valeur livre.est_dans vaut "coffre" valeur livre.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,verre,coffre) alors si verre.proprietaire="joueur" alors si coffre.etat="ouvert" alors si joueur.lieu=coffre.lieu alors valeur verre.est_dans vaut "coffre" valeur verre.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,pomme,coffre) alors si pomme.proprietaire="joueur" alors si coffre.etat="ouvert" alors si joueur.lieu=coffre.lieu alors valeur pomme.est_dans vaut "coffre" valeur pomme.proprietaire vaut "0" afficher "OK" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier = (poser,livre) alors si livre.proprietaire = "joueur" alors afficher "Le livre est pose" aller_a_la_ligne valeur livre.lieu vaut joueur.lieu valeur livre.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (poser,verre) alors si verre.proprietaire = "joueur" alors afficher "Le verre est pose" aller_a_la_ligne valeur verre.lieu vaut joueur.lieu valeur verre.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (poser,pomme) alors si pomme.proprietaire = "joueur" alors afficher "La pomme est pose" aller_a_la_ligne valeur pomme.lieu vaut joueur.lieu valeur pomme.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (decrire,journal) alors si joueur.lieu = journal.lieu alors afficher journal.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (decrire,pomme) alors si joueur.lieu = pomme.lieu alors afficher pomme.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (decrire,cle) alors si joueur.lieu = cle.lieu alors afficher cle.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (decrire,livre) alors si joueur.lieu = livre.lieu alors si livre.est_dans= "0" alors afficher livre.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (decrire,verre) alors si joueur.lieu = verre.lieu alors afficher verre.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (boire,verre) alors si verre.proprietaire="joueur" alors si verre.existe = "vrai" alors afficher "c'est de la bonne eau, vous gagnez 4 points de vie, il vous reste " valeur joueur.points_de_vie vaut joueur.points_de_vie+4 afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne valeur verre.existe vaut "faux" valeur verre.proprietaire vaut "0" afficher "Le verre vous glisse des mains, il se brise" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (manger,pomme) alors si pomme.proprietaire="joueur" alors si pomme.existe = "vrai" alors afficher "c'est une bonne pomme, vous gagnez 5 points de vie, il vous reste " valeur joueur.points_de_vie vaut joueur.points_de_vie+5 afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne valeur pomme.existe vaut "faux" valeur pomme.proprietaire vaut "0" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (decrire,table) alors si joueur.lieu = "cuisine" alors afficher table.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (decrire,robinet) alors si joueur.lieu = "cuisine" alors afficher robinet.description si robinet.etat = "ouvert" alors afficher "qui fuit " aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si robinet.etat = "ferme" alors afficher "qui est ferme" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (ouvrir,robinet) alors si joueur.lieu = "cuisine" alors si robinet.etat = "ouvert" alors afficher "Le robinet est deja ouvert" aller_a_la_ligne fin_si si robinet.etat = "ferme" alors valeur robinet.etat vaut "ouvert" afficher "A present, le robinet fuit" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (fermer,robinet) alors si joueur.lieu = "cuisine" alors si robinet.etat="ferme" alors afficher "Le robinet est deja ferme" aller_a_la_ligne fin_si si robinet.etat="ouvert" alors valeur robinet.etat vaut "ferme" afficher "Ah merci, ca faisait un bruit insupportable" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (ouest) alors si joueur.lieu = "hall" alors si hall.porte_ouest.etat = "ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_ouest.etat = "ouvert" alors valeur joueur.lieu vaut "salle_a_manger" afficher salle_a_manger.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "cuisine" alors si cuisine.porte_ouest.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si cuisine.porte_ouest.etat = "ouvert" alors valeur joueur.lieu vaut "hall" afficher hall.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "salle_de_bain" alors si salle_de_bain.porte_ouest.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_de_bain.porte_ouest.etat = "ouvert" alors valeur joueur.lieu vaut "wc" afficher wc.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "debarras" alors si debarras.porte_ouest.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si debarras.porte_ouest.etat = "ouvert" alors valeur joueur.lieu vaut "chambre" afficher chambre.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si debarras.porte_ouest.etat = "verrouille" alors afficher "Cette porte est verrouille" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (est) alors si joueur.lieu = "hall" alors si hall.porte_est.etat = "ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_est.etat = "ouvert" alors valeur joueur.lieu vaut "cuisine" afficher cuisine.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "salle_a_manger" alors si salle_a_manger.porte_est.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_a_manger.porte_est.etat = "ouvert" alors valeur joueur.lieu vaut "hall" afficher hall.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "chambre" alors si chambre.porte_est.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si chambre.porte_est.etat = "ouvert" alors valeur joueur.lieu vaut "debarras" afficher debarras.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si chambre.porte_est.etat = "verrouille" alors afficher "Cette porte est verrouillee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "wc" alors si wc.porte_est.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si wc.porte_est.etat = "ouvert" alors valeur joueur.lieu vaut "salle_de_bain" afficher salle_de_bain.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (sud) alors si joueur.lieu = "hall" alors si hall.porte_sud.etat = "ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_sud.etat = "ouvert" alors valeur joueur.lieu vaut "perron" afficher perron.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "cuisine" alors si cuisine.porte_sud.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si cuisine.porte_sud.etat = "ouvert" alors valeur joueur.lieu vaut "salle_de_bain" afficher salle_de_bain.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "chambre" alors si chambre.porte_sud.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si chambre.porte_sud.etat = "ouvert" alors valeur joueur.lieu vaut "hall" afficher hall.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (nord) alors si joueur.lieu = "hall" alors si hall.porte_nord.etat = "ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_nord.etat = "ouvert" alors valeur joueur.lieu vaut "chambre" afficher chambre.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "perron" alors si perron.porte_nord.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si perron.porte_nord.etat = "ouvert" alors valeur joueur.lieu vaut "hall" afficher hall.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu= "salle_de_bain" alors si salle_de_bain.porte_nord.etat="ferme" alors afficher "La porte est fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_de_bain.porte_nord.etat = "ouvert" alors valeur joueur.lieu vaut "cuisine" afficher cuisine.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (fermer,porte_sud) alors si joueur.lieu="hall" alors valeur perron.porte_nord.etat vaut "ferme" valeur hall.porte_sud.etat vaut "ferme" valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier = (ouvrir,porte_est) alors si joueur.lieu = "hall" alors si hall.porte_est.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_est.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher cuisine.description aller_a_la_ligne valeur joueur.lieu vaut "cuisine" valeur hall.porte_est.etat vaut "ouvert" valeur cuisine.porte_ouest.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "salle_a_manger" alors si salle_a_manger.porte_est.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_a_manger.porte_est.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher hall.description aller_a_la_ligne valeur joueur.lieu vaut "hall" valeur hall.porte_ouest.etat vaut "ouvert" valeur salle_a_manger.porte_est.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "chambre" alors si chambre.porte_est.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si chambre.porte_est.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher debarras.description aller_a_la_ligne valeur joueur.lieu vaut "debarras" valeur debarras.porte_ouest.etat vaut "ouvert" valeur chambre.porte_est.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si si chambre.porte_est.etat ="verrouille" alors afficher "La porte est verrouillee, il faudrait une cle" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "wc" alors si wc.porte_est.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si wc.porte_est.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher salle_de_bain.description aller_a_la_ligne valeur joueur.lieu vaut "salle_de_bain" valeur salle_de_bain.porte_ouest.etat vaut "ouvert" valeur wc.porte_est.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (ouvrir,porte_ouest) alors si joueur.lieu = "hall" alors si hall.porte_ouest.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_ouest.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher salle_a_manger.description aller_a_la_ligne valeur joueur.lieu vaut "salle_a_manger" valeur salle_a_manger.porte_est.etat vaut "ouvert" valeur hall.porte_ouest.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "cuisine" alors si cuisine.porte_ouest.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si cuisine.porte_ouest.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher hall.description aller_a_la_ligne valeur joueur.lieu vaut "hall" valeur hall.porte_est.etat vaut "ouvert" valeur cuisine.porte_ouest.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "salle_de_bain" alors si salle_de_bain.porte_ouest.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_de_bain.porte_ouest.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher wc.description aller_a_la_ligne valeur joueur.lieu vaut "wc" valeur salle_de_bain.porte_ouest.etat vaut "ouvert" valeur wc.porte_est.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu ="debarras" alors si debarras.porte_ouest.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si debarras.porte_ouest.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher chambre.description aller_a_la_ligne valeur joueur.lieu vaut "chambre" valeur chambre.porte_ouest.etat vaut "ouvert" valeur debarras.porte_est.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si si debarras.porte_ouest.etat = "verrouille" alors afficher "La porte est verrouillee" aller_a_la_ligne fin_si fin_si fin_si si entree_clavier = (ouvrir,porte_nord) alors si joueur.lieu = "hall" alors si hall.porte_nord.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_nord.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher chambre.description aller_a_la_ligne valeur joueur.lieu vaut "chambre" valeur chambre.porte_sud.etat vaut "ouvert" valeur hall.porte_nord.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "perron" alors si perron.porte_nord.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si perron.porte_nord.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher hall.description aller_a_la_ligne valeur joueur.lieu vaut "hall" valeur hall.porte_sud.etat vaut "ouvert" valeur perron.porte_nord.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "salle_de_bain" alors si salle_de_bain.porte_nord.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si salle_de_bain.porte_nord.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher cuisine.description aller_a_la_ligne valeur joueur.lieu vaut "wc" valeur salle_de_bain.porte_nord.etat vaut "ouvert" valeur cuisine.porte_sud.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier = (ouvrir,porte_sud) alors si joueur.lieu = "hall" alors si hall.porte_sud.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si hall.porte_sud.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher perron.description aller_a_la_ligne valeur joueur.lieu vaut "perron" valeur hall.porte_sud.etat vaut "ouvert" valeur perron.porte_nord.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "chambre" alors si chambre.porte_sud.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si chambre.porte_sud.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher hall.description aller_a_la_ligne valeur joueur.lieu vaut "hall" valeur hall.porte_nord.etat vaut "ouvert" valeur chambre.porte_sud.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu = "cuisine" alors si cuisine.porte_sud.etat = "ouvert" alors afficher "La porte est deja ouverte" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si cuisine.porte_sud.etat = "ferme" alors afficher "La porte s'ouvre" aller_a_la_ligne afficher salle_de_bain.description aller_a_la_ligne valeur joueur.lieu vaut "salle_de_bain" valeur salle_de_bain.porte_nord.etat vaut "ouvert" valeur cuisine.porte_sud.etat vaut "ouvert" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(decrire,baignoire) alors si joueur.lieu = "salle_de_bain" alors afficher baignoire.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(prendre,bain) alors si joueur.lieu = "salle_de_bain" alors afficher "Le robinet ne s'ouvre pas" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(decrire,fenetre) alors si joueur.lieu = "salle_de_bain" alors afficher fenetre.description aller_a_la_ligne afficher "La fenetre est " si fenetre.etat="ouvert" alors afficher "ouverte" aller_a_la_ligne fin_si si fenetre.etat="ferme" alors afficher "fermee" aller_a_la_ligne fin_si valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(regarder,fenetre) alors si joueur.lieu = "salle_de_bain" alors afficher "Des jolies montagnes sont en face de vous" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(fermer,fenetre) alors si joueur.lieu = "salle_de_bain" alors si fenetre.etat = "ferme" alors afficher "La fenetre est deja fermee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si fenetre.etat = "ouvert" alors valeur fenetre.etat vaut "ferme" afficher " C'est dommage, il y avait de l'air frais" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(ouvrir,fenetre) alors si joueur.lieu = "salle_de_bain" alors si fenetre.etat = "ouvert" alors afficher " La fenetre est deja ouverte " aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si fenetre.etat = "ferme" alors valeur fenetre.etat vaut "ouvert" afficher " Ah !,un peu d'air frais" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier =(faire,pipi) alors si joueur.lieu="wc" alors afficher "Ca fait du bien" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(decrire,lit) alors si joueur.lieu= "chambre" alors afficher lit.description aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(decrire,armoire) alors si joueur.lieu= "chambre" alors afficher armoire.description aller_a_la_ligne afficher "Etat de l'armoire : " afficher armoire.etat aller_a_la_ligne valeur les_var_globales.i vaut "1" si armoire.etat="ouvert" alors si cle.est_dans= "armoire" alors afficher " Il y a une cle a l'interieur de l'armoire" aller_a_la_ligne fin_si si pomme.est_dans= "armoire" alors afficher " Il y a une pomme a l'interieur de l'armoire" aller_a_la_ligne fin_si si journal.est_dans= "armoire" alors afficher " Il y a un journal a l'interieur de l'armoire" aller_a_la_ligne fin_si si livre.est_dans= "armoire" alors afficher " Il y a un livre a l'interieur de l'armoire" aller_a_la_ligne fin_si si verre.est_dans= "armoire" alors afficher " Il y a un verre d'eau a l'interieur de l'armoire" aller_a_la_ligne fin_si fin_si fin_si fin_si si entree_clavier=(regarder,lit) alors si joueur.lieu= "chambre" alors afficher " Il n'y a rien d'interessant" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(ouvrir,armoire) alors si joueur.lieu= "chambre" alors si armoire.etat = "ouvert" alors afficher "Elle etait deja ouverte" aller_a_la_ligne aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si armoire.etat = "ferme" alors valeur armoire.etat vaut "ouvert" afficher "Vous ouvrez l'armoire " aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si cle.est_dans= "armoire" alors afficher " Il y a une cle a l'interieur de l'armoire" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si pomme.est_dans= "armoire" alors afficher " Il y a une pomme a l'interieur de l'armoire" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si journal.est_dans= "armoire" alors afficher " Il y a un journal a l'interieur de l'armoire" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si livre.est_dans= "armoire" alors afficher " Il y a un livre a l'interieur de l'armoire" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si verre.est_dans= "armoire" alors afficher " Il y a un verre d'eau a l'interieur de l'armoire" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(fermer,armoire) alors si joueur.lieu= "chambre" alors si armoire.etat ="ferme" alors afficher "Elle est deja fermee" aller_a_la_ligne fin_si si armoire.etat ="ouvert" alors afficher "Vous fermez l'armoire" aller_a_la_ligne valeur armoire.etat vaut "ferme" fin_si valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(ouvrir,porte_est,cle) alors si joueur.lieu="chambre" alors si cle.proprietaire="joueur" alors afficher "La porte s'ouvre" aller_a_la_ligne valeur chambre.porte_est.etat vaut "ouvert" valeur debarras.porte_ouest.etat vaut "ouvert" valeur joueur.lieu vaut "debarras" afficher "Je ne vois rien, il n'y a pas de lumiere" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(allumer,interrupteur) alors si joueur.lieu="debarras" alors valeur debarras.etat vaut "clair" valeur interrupteur.etat vaut "ferme" afficher " Cette piece est eclairee" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si entree_clavier=(decrire,coffre) alors si joueur.lieu="debarras" alors si debarras.etat= "clair" alors afficher coffre.description aller_a_la_ligne afficher "Le coffre est " afficher coffre.etat aller_a_la_ligne si coffre.etat="ouvert" alors si cle.est_dans= "coffre" alors afficher " Il y a une cle a l'interieur du coffre" aller_a_la_ligne fin_si si pomme.est_dans= "coffre" alors afficher " Il y a une pomme a l'interieur du coffre" aller_a_la_ligne fin_si si journal.est_dans= "coffre" alors afficher " Il y a un journal a l'interieur du coffre" aller_a_la_ligne fin_si si livre.est_dans= "coffre" alors afficher " Il y a un livre a l'interieur du coffre" aller_a_la_ligne fin_si si verre.est_dans= "coffre" alors afficher " Il y a un verre d'eau a l'interieur du coffre" aller_a_la_ligne fin_si fin_si valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(fermer,coffre) alors si joueur.lieu ="debarras" alors si coffre.etat="ferme" alors afficher "Le coffre est deja ferme" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si coffre.etat="ouvert" alors afficher "Vous fermez le coffre" aller_a_la_ligne valeur coffre.etat vaut "ferme" valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(ouvrir,coffre) alors si joueur.lieu="debarras" alors si debarras.etat= "clair" alors si coffre.etat="ouvert" alors afficher "Le coffre est deja ouvert" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si coffre.etat="ferme" alors valeur coffre.etat vaut "ouvert" afficher " Il y a un livre dans le coffre" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si fin_si fin_si si entree_clavier=(lire,livre) alors si livre.proprietaire="joueur" alors si joueur.lieu ="debarras" alors si debarras.etat="clair" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si debarras.etat="sombre" alors afficher "Je n'y vois rien" aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si fin_si si joueur.lieu ="salon" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="cuisine" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="chambre" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="salle_de_bain" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="wc" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="salle_a_manger" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="hall" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si si joueur.lieu ="perron" alors afficher " Vous avez gagne la sagesse eternelle, il vous reste " afficher joueur.points_de_vie afficher " points de vie" aller_a_la_ligne fin_du_jeu valeur les_var_globales.i vaut "1" fin_si fin_si fin_si si entree_clavier=(eteindre) alors si joueur.lieu= "debarras" alors si debarras.etat = "sombre" alors afficher "On y voit deja rien comme ca alors si on eteind encore plus...." aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si debarras.etat = "clair" alors valeur debarras.etat vaut "sombre" valeur les_var_globales.i vaut "1" afficher "Ok, maintenant qu'il fait noir vous etes bien avance" aller_a_la_ligne fin_si fin_si fin_si si entree_clavier=(eteindre,interrupteur) alors si joueur.lieu= "debarras" alors si debarras.etat = "sombre" alors afficher "On y voit deja rien comme ca alors si on eteind encore plus...." aller_a_la_ligne valeur les_var_globales.i vaut "1" fin_si si debarras.etat = "clair" alors valeur debarras.etat vaut "sombre" valeur les_var_globales.i vaut "1" afficher "Ok, maintenant qu'il fait noir vous etes bien avance" aller_a_la_ligne fin_si fin_si fin_si si entree_clavier=(inventaire) alors si pomme.proprietaire = "joueur" alors afficher " Vous possedez une pomme" aller_a_la_ligne fin_si si cle.proprietaire = "joueur" alors afficher " Vous possedez une cle" aller_a_la_ligne fin_si si livre.proprietaire ="joueur" alors afficher " Vous possedez un livre" aller_a_la_ligne fin_si si journal.proprietaire = "joueur" alors afficher " Vous possedez un journal" aller_a_la_ligne fin_si si verre.proprietaire = "joueur" alors afficher " Vous possedez un verre d'eau" aller_a_la_ligne fin_si valeur joueur.points_de_vie vaut joueur.points_de_vie + 1 afficher "Il vous reste " afficher joueur.points_de_vie afficher " points de vie" valeur les_var_globales.i vaut "1" aller_a_la_ligne fin_si si les_var_globales.i = "0" alors afficher " impossible " aller_a_la_ligne fin_si termine