|
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