Constant Story "The Siege of Remontel";
Constant Headline "^A Star Trek fan production^";

Release 1;

Include "Parser";

Replace PlayerTo;
Include "VerbLib";
[ PlayerTo newplace flag;
    NoteDeparture();
    move player to newplace;
    move computer to newplace;
    while (parent(newplace)) newplace = parent(newplace);
    location = real_location = newplace;
    MoveFloatingObjects(); AdjustLight(1);
    switch (flag) {
      0:    <Look>;
      1:    NoteArrival(); ScoreArrival();
      2:    LookSub(1);
    }
];

Include "Globals.inf";
Include "Classes.inf";
Include "Rooms.inf";
Include "Characters.inf";
Include "Items.inf";

[ Initialise ;
    location = bunk;
    player.description = "You are wearing an operations uniform,
            with a single pip.";
    move computer to bunk;
    StartDaemon(red_alert);
];

Include "Grammar";
Include "MoreVerbs.inf";