Constant Story « MYSTERIEUSES CITES D’OR EPISODE 1^^ »;
Constant MAX_CARRIED = 100;
Include « Parser »;
Include « VerbLib »;
! ---------------------------------------------------------------------------
! routines diverses
! ---------------------------------------------------------------------------
[ ChooseObjects obj code;
if (code<2) { if (obj has scenery) return 2; rfalse; }
if (action_to_be==##Eat && obj has edible) return 3;
if (obj hasnt scenery) return 2;
return 1;
];
[ attend notNeeded;
@read_char 1 notNeeded;
rtrue;
];
! ----------------------------------------------------------------------------
! Nos Heros
! ----------------------------------------------------------------------------
Object esteban « Esteban »
with short_name
[; return L__M(##Miscellany, 18);
],
description
[k;print « Esteban.^ »;],
before NULL, after NULL, life NULL, each_turn NULL,
time_out NULL, describe NULL,
capacity 100, parse_name 0,
orders 0, number 0,
has concealed animate proper transparent;
! ----------------------------------------------------------------------------
! Les Pieces & Objets
! ----------------------------------------------------------------------------
! ----------------------------------------------------------------------------
! Scenes Cinematiques
! ----------------------------------------------------------------------------
[ Initialise;
lookmode=2;
ChangePlayer(esteban);
location=impasse;
pagetitre();
give player light;
introduction();
debut();
];
[ pagetitre i;
@erase_window -1; print « ^^^^^^^^^^^^^^^^^^^^^^^^ »;
i=0->33; if (i>30) i=(i-30)/2;
font off;spaces(i);
PrintWidth(« Les Myst@'erieuses Cit@'es d’Or »,i,39);
new_line;new_line;
print « ^^^^^^^ par JB, ifiction.free.fr/phpBB2/ »;
style underline;font on;
box " Le 15@eme Si@ecle,"
" Des Quatre Coins de l’Europe"
" De Gigantesques Voiliers Partent @a la conqu@ete du Nouveau Monde"
" "
" A bord de ces navires, des hommes avides de r@^eves, d’aventure et d’espace,"
" A la recherche de Fortune."
" Qui n’a jamais r@'ev@'e de ces mondes souterrains ?"
" De ces mers lointaines peupl@'ees de L@'egendes ?"
« Ou d’une richesse qui se conquerrait au d@'etour d’un chemin de la cordilli@`ere des Andes ? »
" Qui n’a jamais r@'ev@'e de voir le soleil souverain guider ses pas, "
" Au coeur du pays Inca, "
" Vers la richesse et l’histoire des myst@'erieuses Cit@'es d’or ? ";
@read_char 1 → i;
@erase_window -1;
];
[ PrintWidth s w l t;
t=(w/2)-(l/2);
spaces t; print (string) s, « ^ »;
];
[ introduction i;
@erase_window -1;
style underline;
print « ^^^^ …1597…^ »;
print " …@`a Barcelone…^";
attend();
print « ^^^^^ »;
font off;style roman;font on;
print " ";
@read_char 1 → i;
@erase_window -1;
];
[ debut;
];
[XyzzySub;
print « ^~Xyzzy~ murmurez vous de d@'epit, songeant aux cit@'es d’or. ^ »;
];
[LicenseSub;
];
! ----------------------------------------------------------------------------
! Grammaire & Verbes
! ----------------------------------------------------------------------------
Include « FrenchG »;
Verb ‹ xyzzy ›
Verb ‹ aide ›
Verb ‹ licence ›
! ----------------------------------------------------------------------------