|
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: 1253 (0x4e5) 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« └─⟦f7671f98c⟧ └─⟦this⟧
complements types entite piece entite monstre de_type personnage entite personnage compose_de champ genre enumere_de humain,troll champ repos enumere_de repos,fatigue champ points_de_vie de_type entier fin_champs declarations variable compteur de_type entier variable joueur de_type personnage initialisations valeur compteur vaut 25 valeur monstre.nom vaut "un vilain troll" valeur monstre.points_de_vie vaut 50 valeur monstre.lieu vaut salon valeur cuisine.porte_nord.existe vaut vrai verbes action parler de_synonymes dire,raconter action manger 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 joueur.points_de_vie-(monstre.points_de_vie) fin_si si entree_clavier=(attaquer,monstre) alors fin_si si joueur.points_de_vie<=0 alors fin_du_jeu fin_si termine