DataMuseum.dk

top - download

    Length: 4056 (0xfd8)
    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« 
        └─⟦a27a45150⟧ 
            └─⟦this⟧ 

TextFile

 complements
  types
  entite piece
  entite testdetype enumere_de ok,pas_bon
  entite personnage compose_de
   champ nom de_type chaine
   champ genre enumere_de humain,elfe,nain,gobelain,orc,troll
   champ sommeil enumere_de endormi,reveille
   champ repos enumere_de epuise,fatigue,repose
   champ faim enumere_de affame,repus
   champ points_de_vie de_type entier
   champ force de_type entier
   champ lieu de_type piece
   fin_champs
  
  entite porte compose_de
   champ existe de_type booleen
   champ ouverture 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
  fin_champs
  
  entite objet compose_de
   champ description de_type chaine
   champ existe de_type booleen
   champ lieu de_type piece
   champ proprietaire de_type personnage
  fin_champs

  declarations
   variable  compteur de_type entier
   variable joueur de_type personnage
   variable monstre de_type personnage
   variable cuisine de_type piece
   variable salon de_type piece
   variable pain de_type objet
   variable fauteuil de_type objet
   variable ca_marche de_type testdetype
   
  initialisations
   valeur compteur vaut 25

   valeur monstre.nom vaut "un vilain troll a l air mechant"
   valeur monstre.genre vaut troll
   valeur monstre.sommeil vaut reveille
   valeur monstre.repos vaut repose
   valeur monstre.faim vaut repus
   valeur monstre.points_de_vie vaut 50
   valeur monstre.force vaut 5
   valeur monstre.lieu vaut salon
   
   valeur cuisine.description vaut "c est une cuisine sombre et triste"
   valeur cuisine.porte_nord.existe vaut vrai
   valeur cuisine.porte_nord.ouverture vaut fermee
   valeur cuisine.porte_nord.donne_sur vaut salon 
   valeur cuisine.porte_sud.existe vaut faux
   valeur cuisine.porte_sud.ouverture vaut verrouille
   valeur cuisine.porte_sud.donne_sur vaut cuisine
   valeur cuisine.porte_est.existe vaut faux
   valeur cuisine.porte_est.ouverture vaut verrouille
   valeur cuisine.porte_est.donne_sur vaut cuisine
   valeur cuisine.porte_ouest.existe vaut faux
   valeur cuisine.porte_ouest.ouverture vaut verrouille
   valeur cuisine.porte_ouest.donne_sur vaut cuisine
   
   valeur salon.description vaut "c est un salon avec un superbe fauteuil"
   valeur salon.porte_nord.existe vaut faux
   valeur salon.porte_nord.ouverture vaut verrouille
   valeur salon.porte_nord.donne_sur vaut cuisine 
   valeur salon.porte_sud.existe vaut faux
   valeur salon.porte_sud.ouverture vaut verrouille
   valeur salon.porte_sud.donne_sur vaut cuisine
   valeur salon.porte_est.existe vaut faux
   valeur salon.porte_est.ouverture vaut verrouille
   valeur salon.porte_est.donne_sur vaut cuisine
   valeur salon.porte_ouest.existe vaut faux
   valeur salon.porte_ouest.ouverture vaut verrouille
   valeur salon.porte_ouest.donne_sur vaut cuisine

   verbes
   action parler de_synonymes  dire,discuter,raconter
   action manger de_synonymes bouffer
   action courrir de_synonymes marcher
   action prendre
   
   scenario 
   
   si compteur=0 alors 
   valeur compteur vaut 25
   si joueur.repos=repose alors
   valeur joueur.repos vaut fatigue
   fin_si
   fin_si
   
   si entree_clavier=(dormir) alors
   fin_si
   
   si joueur.repos<>repose alors
     afficher "il vous reste"
     afficher joueur.points_de_vie
     aller_a_la_ligne
   fin_si
   
   si et (joueur.lieu=monstre,monstre.points_de_vie>0) 
   alors valeur joueur.points_de_vie vaut monstre.points_de_vie+2
   fin_si   
   
   si joueur.lieu=monstre.poi alors
     valeur joueur.points_de_vie vaut joueur.points_de_vie-1
     sinon
     si joueur.points_de_vie<10 alors
     afficher "attention, la fin du jeu est proche"
     sinon valeur monsieur.points_de_vie vaut 1000
     fin_si
   fin_si

   si entree_clavier=(attaquer,monstre) alors
   fin_si

   
   si joueur.points_de_vie<=0 alors
   fin_du_jeu
   fin_si
   
   termine