|
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: 7338 (0x1caa) 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« └─⟦b3ccfe007⟧ └─⟦this⟧
! scenario de test 2 ! raisonner par position dans les lieux decrits VERBES SONT Prendre Aller Ouvrir Sortir Informer Tapper Editer Lire Utiliser Remplacer Effacer . !10 COMPLEMENTS SONT Table Armoire Chaise Macintosh Belladone Rational Console Clavier Ascenseur Souris TP_Irmx Manuel_Unix Consignes Salle_Mac Salle_Lsi Salle_II Couloir Fichier Stylo Disquette ! complements divers par Possessions Lexique !20 c_mille AF ! mot a trouver Camomille ! indices CA MO MILLE . FAMILLES SONT !30 Piece AVEC Description(CHAINE) ET Nombre_Acces(ENTIER) ET ENSEMBLE DE Meubles . Date AVEC Jour (ENTIER) ET Mois (CHAINE) ET Annee (ENTIER). Personnage AVEC HERITAGE DE Date_Naissance(Date) ET Nombre_de_vie (ENTIER) ET Situation (CHAINE) ET ENSEMBLE DE Possessions. VARIABLES SONT ! Chaine_Fin COMME CHAINE ("Pas Fini"). !41 Date_de_Naissance COMME Date(26 "Janvier" 1995). Joueur COMME Personnage ((0 " " 0) 10 "Couloir" ['Disquette' 'Stylo']) . La_Salle_Mac COMME Piece ("Salle contenant 10 jolis(?) Mac; un seul est libre" 1 ['Armoire' 'Macintosh' 'Chaise' 'Table'] ). Le_Couloir COMME Piece ("Le couloir accede a 3 salles : LSI Mac et II; les Consignes incendie sont sur le mur droit" 3 ['Consigne']). La_Salle_Lsi COMME Piece ("salle TP 3e annee; amusez vous sur Belladone" 1 ['Console' 'Clavier']). La_Salle_II COMME Piece ("salle de torture des 2e annees; l'ascenceur est tres fonctionnel" 1 ['Ascenceur' 'Souris' 'Console']). !61 INITIALISATIONS SONT jour de Date_naissance DE Joueur DEVIENT 23. Situation DE Joueur DEVIENT "Couloir". ECRIRE "Debut du Jeux" "Bonne chance pour trouver...". ECRIRE "le mot de passe UNIX de Mr Hassenforder ". ECRIRE "Pour finir le jeu tappez Sortir" . VIE EST !71 SI ('Sortir') ALORS ECRIRE "Vous n'etes pas tres perspicaces ". QUITTER. FSI. SI 'Informer' ALORS SI Situation DE Joueur = "Couloir" ALORS ECRIRE Description DE Le_Couloir. FSI. SI Situation DE Joueur = "Salle_Mac" ALORS ECRIRE Description DE La_Salle_Mac. FSI. SI Situation DE Joueur = "Salle_Lsi" ALORS ECRIRE Description DE La_Salle_lsi. FSI. SI Situation DE Joueur = "Salle_II" ALORS ECRIRE Description DE La_Salle_II. FSI. SI (COMPLEMENT1 = 'Possessions') ALORS ECRIRE Possessions DE joueur. FSI. FSI. SI ('informer') ET (COMPLEMENT1 = 'Lexique') ALORS ECRIRE "Les Verbes : Prendre Aller Ouvrir". ECRIRE " Sortir Informer Tapper Editer ". ECRIRE " Lire Utiliser Remplacer Effacer". ECRIRE "Les Complements : Table Armoire Chaise Macintosh Belladone". ECRIRE " Rational Console Clavier Ascenseur Souris". ECRIRE " TP_Irmx Manuel_Unix Consignes". ECRIRE " Salle_Mac Salle_Lsi Salle_II Couloir Fichier". ECRIRE " Stylo Disquette ". FSI. !105 SI (Situation DE Joueur = "Couloir") ALORS SI 'Lire' 'Consignes' ALORS ECRIRE "il n'y a pas le feu". FSI. SI 'Aller' 'Salle_Mac' ALORS Situation DE joueur DEVIENT "Salle_Mac". ECRIRE "Oh les beaux (?) Macintosh ". FSI. SI 'Aller' 'Salle_Lsi' ALORS Situation DE joueur DEVIENT "Salle_Lsi". ECRIRE "une console est a votre disposition". FSI. SI 'Aller' 'Salle_II' ALORS Situation DE joueur DEVIENT "Salle_TP2a". ECRIRE "La torture, ca existe encore !". FSI. FSI. SI (Situation DE Joueur = "Salle_Mac") ALORS SI 'Informer' ALORS ECRIRE "la doc est dans l'armoire". FSI. SI 'Prendre' 'Macintosh' ALORS ECRIRE "c'est un peu lourd". Nombre_de_vie DE Joueur DEVIENT (Nombre_de_vie DE Joueur-1). FSI. SI ('Ouvrir' 'Armoire') ET ('Armoire' DANS Meubles DE La_Salle_Mac) ALORS ECRIRE "Bonne Idee ...". FSI. SI 'Prendre' 'Manuel_Unix' ALORS AJOUTER COMPLEMENT1 A Possessions DE Joueur. RETIRER 'Armoire' A Meubles DE La_Salle_Mac. ECRIRE "ca pourra toujours servir". FSI. SI 'Utiliser' 'Macintosh' ALORS ECRIRE "le texte affiche contient : Rational est une R-MILLE". ECRIRE "corrigez l'erreur ...". FSI. SI ('Remplacer' 'c_mille') ALORS ECRIRE "Facile !". AJOUTER 'MILLE' A Possessions DE Joueur. Nombre_De_Vie DE Joueur DEVIENT (Nombre_De_Vie DE Joueur + 2). FSI. SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS Situation DE joueur DEVIENT "Couloir". FSI. FSI. SI (Situation DE Joueur = "Salle_Lsi") ALORS SI 'Utiliser' 'Console' ALORS ECRIRE "le .profile ne marche pas ". FSI. SI 'Editer' 'Fichier' ALORS ECRIRE "la variable MO est inconnue". FSI. SI 'Effacer' 'MO' ALORS ECRIRE "Bonne Operation, vous pouvez garder cette variable". AJOUTER 'MO' A Possessions DE Joueur. Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur + 4. FSI. SI ('effacer' complement1) ET (complement1<>'MO') ALORS ECRIRE "l'objet ne peut etre efface, recommancez". FSI. SI ('Prendre' 'Belladone') ET ((Jour DE Date_De_Naissance - Nombre_De_Vie DE Joueur) >= 20) ALORS Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur / 2. VIDER Possessions DE joueur. ECRIRE "Un vol de materiel coute cher, vous n'avez plus rien !". FSI. SI 'Tapper' 'Clavier' ALORS ECRIRE "Mot De Passe ? " . FSI. SI ('Editer') ET (COMPLEMENT1 <> 'Camomille') ALORS Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur - 1. ECRIRE "faut : reessayez ...". FSI. SI ('Editer' 'Camomille') ALORS ECRIRE "Bravo, c'est gagne Avec" Nombre_De_Vie DE Joueur "Points". QUITTER. FSI. SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS Situation DE joueur DEVIENT "Couloir". FSI. FSI. SI (Situation DE Joueur = "Salle_II") ALORS SI ('Utiliser' 'Ascenseur') OU ('Utiliser' 'Souris') ALORS ECRIRE "il ya un bug ... voyez la console". FSI. SI 'Lire' 'Console' ALORS ECRIRE "LD HL,CA ne marche pas en Z80; corrigez". FSI. SI ('Remplacer' 'par') ET (Complement2 = 'AF') ALORS ECRIRE "Bien vu" . ECRIRE "vous avez gagne un nouvel indice composant le code : CA". AJOUTER 'CA' A Possessions DE Joueur. Nombre_De_Vie DE Joueur DEVIENT Nombre_De_Vie DE Joueur + 2. FSI. SI ('Remplacer' 'par') ET (Complement2 <> 'AF') ALORS ECRIRE "Encore faux : reessayez ...". FSI. SI ('aller') ET (COMPLEMENT1 = 'couloir') ALORS Situation DE joueur DEVIENT "Couloir". FSI. FSI. SI Nombre_de_vie DE Joueur <= 1 ALORS ECRIRE "Vous n'avez plus de vies et le mot n'est pas trouve ". ECRIRE " -> C'est fini, dommage ... ". QUITTER. FSI.