DataMuseum.dk

top - download

    Length: 9628 (0x259c)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦ef4eb94c2⟧ 
            └─⟦this⟧ 

TextFile

DIRECTIONS

 nord , sud , est , ouest , haut , bas

PIECES

Cuisine constitue de
 description : "Il fait tout noir. Il y a des passages a l'est et au sud."
fin

Entree constitue de
 description : "je suis dans une entree. Il y a une porte au nord et un escalier qui descend."
fin

Salon constitue de
 description : "je suis dans un salon. Il y a un passage a l'ouest"
fin

Cave constitue de
 description : "je suis a la cave. Il y a un escalier pour monter."
fin

piece_courante vaut entree

HERO

SuperBoby constitue de
 description : "Je suis le plus beau, le plus fort et le plus intelligent."
 pt_de_vie : 35
fin

OBJETS

Cle constitue de
 description : "Une superbe cle."
 possesseur : Entree
fin

Placard constitue de
 description : "Un placard en bois ferme."
 etat : peut etre ferme ou ouvert fin
 possesseur : cuisine
fin

Joystick constitue de
 description : "Un baton de joie."
 possesseur : Placard
fin

Lumiere constitue de
 description : "elle est eteinte."
 etat : peut etre off ou on fin
 possesseur : cuisine
fin

Console constitue de
 description : "Mais c'est une CD32."
 possesseur : Salon
fin

Jeu constitue de
 description : "C'est le dernier jeu de MacroSoft : Mario fait des pizzas en 10 lecons."
 possesseur : cave
fin

TV constitue de
 description : "A l'ecran on peut voir une demo du dernier jeu pour CD32."
 possesseur : salon
fin

LIENS

LIEN_CUISINE_ENTREE constitue de
 Etat : peut etre verrouille ou ferme ou ouvert fin
fin

ACTIONS

aller ou va
inventaire
regarder ou voir ou gueter ou examiner
allumer
eteindre
tourner ou appuyer
brancher ou relier ou inserer ou connecte
verrouiller
deverrouiller
ouvrir
fermer
prendre ou ramasser
poser ou deposer ou jetter
quitter ou terminer

SCENARIO 

CLAUSES_PRESENTATION

 Dire "Ou sont mon joystick et mon jeu video !!!"
 Dire "-----------------------------------------"
 Dire ""
 Dire "Un scenario (c)opyright 1995 par The Unknown."
 Dire ""
 Dire "Vous incarnez SuperBoby et vous devez retrouver votre joystick"
 dire "et votre jeu pour pouvoir jouer sur la console."
 Dire ""
 Dire description de piece_courante

CLAUSES_GENERALES

 si pt_de_vie de Hero = 0 alors
   dire "Tu es mort."
   Jeu_Termine
 fin_si

 pt_de_vie de Hero - 1

CLAUSES_LOCALES
--****************************************************************************************
dans la piece cave

 si (aller haut) alors
   dire "Je monte."
   piece_courante vaut entree
   dire description de piece_courante
 fin_si

--****************************************************************************************
dans la piece Entree

 si (aller bas) alors
   dire "Je descend."
   piece_courante vaut cave
   dire description de piece_courante
 fin_si
 
 si (aller nord) alors
   si Etat de LIEN_CUISINE_ENTREE = ouvert alors
     dire "je vais au nord"
     piece_courante vaut Cuisine
     dire description de piece_courante
   fin_si 
   si Etat de LIEN_CUISINE_ENTREE = ferme alors
     dire "La porte est fermee !"
   fin_si
   si Etat de LIEN_CUISINE_ENTREE = verrouille alors
     dire "La porte est verrouillee !"
   fin_si
 fin_si

 si (deverrouiller nord) et possesseur de Cle = Hero et Etat de LIEN_CUISINE_ENTREE = verrouille alors
   dire "le passage au nord est ouvert"
   Etat de LIEN_CUISINE_ENTREE vaut ouvert
 fin_si
  
 si (ouvrir nord) et Etat de LIEN_CUISINE_ENTREE = ouvert alors
   dire "La porte est deja ouverte."
 fin_si
 
 si (ouvrir nord) et Etat de LIEN_CUISINE_ENTREE = ferme alors
   dire "Voila! La porte est ouverte."
   Etat de LIEN_CUISINE_ENTREE vaut ouvert 
 fin_si 
 
 si (ouvrir nord) et Etat de LIEN_CUISINE_ENTREE = verrouille alors
   si possesseur de cle = Hero alors
     Etat de LIEN_CUISINE_ENTREE vaut ouvert
     dire "Voila ! La porte est ouverte."
   fin_si
   si possesseur de cle = Entree alors
     dire "Il faudrait peut-etre une cle !"
   fin_si
 fin_si
 
 si (fermer nord) et Etat de LIEN_CUISINE_ENTREE = verrouille alors
   dire "La porte est deja verrouille."
 fin_si
 
 si (fermer nord) et Etat de LIEN_CUISINE_ENTREE = ouvert alors
   dire "Voila! La porte est fermee."
   Etat de LIEN_CUISINE_ENTREE vaut ferme
 fin_si 
 
 si (fermer nord) et Etat de LIEN_CUISINE_ENTREE = ferme alors
   si possesseur de cle = Hero alors
     Etat de LIEN_CUISINE_ENTREE vaut ferme
     dire "la porte est maintenant fermee"
   fin_si
   si possesseur de cle = Entree alors
     dire "Il faudrait peut-etre une cle !"
   fin_si
 fin_si

--*****************************************************************************************

dans la piece Cuisine

 si (aller sud) alors
  si Etat de LIEN_CUISINE_ENTREE = ouvert alors
    piece_courante vaut Entree  
    dire description de piece_courante
  fin_si
  si Etat de LIEN_CUISINE_ENTREE = ferme alors
    dire "La porte est fermee !"
  fin_si
  si Etat de LIEN_CUISINE_ENTREE = verrouille alors
    dire "La porte est verrouillee !"
  fin_si
 fin_si

 si (aller est) alors
  piece_courante vaut Salon
  dire description de salon
 fin_si 
 
 si (fermer nord) alors
   si etat de lien_cuisine_entree = fermer alors 
     dire "la porte est deja fermee"
   fin_si
   si etat de lien_cuisine_entree = ouvert alors
     etat de lien_cuisine_entree vaut fermer
     dire "je ferme la porte"
   fin_si
 fin_si

 si (allumer) alors
  dire "Allumer quoi ?"
 fin_si

 si (prendre lumiere) alors
  dire "Pour quoi faire ?"
 fin_si
 
 si (allumer lumiere) et etat de lumiere = off alors
   etat de lumiere vaut on
   description de piece_courante vaut "Je suis dans une cuisine. il y a des passages a l'est et au sud."
   dire "Ah ! on y voit plus clair !"    
 fin_si
 
 si (eteindre lumiere) et etat de lumiere = on alors
   etat de lumiere vaut off
   description de piece_courante vaut "Il fait tout noir."
   dire description de piece_courante
 fin_si

 si (ouvrir placard) et etat de lumiere = off alors
   dire "De quoi vous parlez !?!"
 fin_si

 si (ouvrir placard) et etat de lumiere = on alors
    si etat de Placard = ouvert alors
     dire "Le placard est deja ouvert."
   fin_si
   si etat de Placard = ferme alors
     etat de Placard vaut ouvert
     description de Placard vaut "Le placard est ouvert."
     possesseur de Joystick vaut piece_courante
     dire description de placard
   fin_si
 fin_si

 si (prendre placard) et etat de lumiere = on alors
   dire "Il va falloir faire de la musculation pour pouvoir le deplacer mon petit gars."
 fin_si

 si (fermer Placard) et etat de lumiere = on alors
   dire "Impossible vous avez casse la porte en l'ouvrant."
 fin_si

--*****************************************************************************************

dans la piece Salon

 si (aller ouest) alors
   piece_courante vaut Cuisine
   dire description de piece_courante
 fin_si

 si (brancher Joystick Console) et possesseur de Joystick = hero alors
   possesseur de Joystick vaut Console
   dire "Le joystick est branche a la console."
 fin_si

 si (brancher jeu console) et possesseur de jeu = hero alors
   possesseur de jeu vaut console
   dire "voila le jeu est insere."
 fin_si
 
 si possesseur de joystick = console et possesseur de jeu = console alors
   dire "Ah !!!!! Je vais enfin pouvoir jouer."
   dire ""
   Dire "Vous avez gagne !!!!!!"
   jeu_termine
 fin_si

 si (prendre console) alors
   dire "Je prefere ne pas y toucher."
 fin_si
 
 si (prendre tv) alors
   dire "Elle est trop lourde."
 fin_si

--*****************************************************************************************
 
CLAUSES_PSEUDO_GENERALES

 si (quitter) alors
   dire "Ok on quitte."
   jeu_termine
 fin_si

 si (prendre objet) et possesseur de objet = piece_courante alors
   dire "je ramasse un objet"
   possesseur de objet vaut hero
 fin_si

 si (poser objet) et possesseur de objet = hero alors 
   dire "je pose un objet"
   possesseur de objet vaut piece_courante
 fin_si

-- Ceci implique que tous les objets que le hero peut prendre au cours du jeu
-- aient un attribut possesseur. Ceux que le hero ne peut prendre doivent
-- etre traites dans les clauses locales sinon le programme se plantera
-- lamentablement !!! Ceci est laisse a l'attention du scenariste.

 si (regarder objet) et possesseur de objet = piece_courante alors
   dire description de objet
 fin_si

 si (regarder objet) et possesseur de objet = hero alors
   dire description de objet
 fin_si

 si (regarder) alors
   dire description de piece_courante
   si possesseur de jeu = piece_courante alors
     dire "je vois une cartouche de jeu."
   fin_si
   si possesseur de cle = piece_courante alors
     dire "je vois une cle."
   fin_si
   si possesseur de joystick = piece_courante alors
     dire "je vois un joystick."
   fin_si
   si possesseur de placard = piece_courante et etat de lumiere = on alors
     dire "je vois un placard."
   fin_si
   si possesseur de tv = piece_courante alors
     dire "je vois une tv."
   fin_si
   si possesseur de console = piece_courante alors
     dire "je vois une console de jeu."
   fin_si
 fin_si

 si (inventaire) alors
   si possesseur de cle = hero alors 
     dire description de cle
   fin_si
   si possesseur de joystick = hero alors
     dire description de joystick
   fin_si
   si possesseur de jeu = hero alors
     dire description de jeu
   fin_si
 fin_si                                                                                          
               
-- Ceci impose que toutes les pieces aient une declaration de type description.
-- Ceci est aussi laisse a l'attention du scenariste.
-- !! De plus il faut penser a afficher les descriptions des objets present dans
-- !! la piece.

dire "Impossible de faire ce que vous demandez !!!"