inherit "/std/pub";

object board;

void setup()
{
   set_short("The lords common");
   set_long("This is the lords common, where the lords of "+
      "New Moon come when they are sick fed up of the ordinary routine "+
      "of the mud to put thier feet up and relax. There is a bar up "+
      "against one wall, and a number of comfy chairs and tables have "+
      "been scattered about the room. The room smells of cigar smoke "+
      "and fine brandy.\n");
   add_menu_item("Fine Brandy", "alcohol", 2000, 100, 100, 0,
      "beckon a waiter and tell him to bring you "
      +"a snifter of fine brandy", "motions a waiter "
      +"over and orders a snifter of fine brandy");
   add_menu_alias("brandy", "Fine Brandy");
   add_menu_alias("fine brandy", "Fine Brandy");
   add_menu_item("Old Port", "alcohol", 1500,  80,  80, 0,
      "beckon a waiter and ask him to bring you "
      +"a glass of old port.", "motions a waiter "
      +"over and orders a glass of old port");
   add_menu_alias("port", "Old Port");
   add_menu_alias("old port", "Old Port");
   add_menu_item("Best Scotch", "alcohol", 1200,  70,  70, 0,
      "beckon a waiter and ask him to bring you "
      +"a tumbler of best scotch.", "motions a waiter "
      +"over and orders a tumbler of best scotch");
   add_menu_alias("scotch", "Best Scotch");
   add_menu_alias("best scotch", "Best Scotch");
   add_menu_alias("whisky", "Best Scotch");
   add_menu_alias("whiskey", "Best Scotch");
   add_item( ({"chair", "comfy chair", "seat"}),
      "The chairs are covered in plush green leather, "
      +"and are well broken-in.\n");
   add_item( "table",
      "The tables are long and low, and made of highly "
      +"polished antique teak. They are placed so as to "
      +"allow lords sitting in the comfy seats to place their"
      +"drinks on them with the minumum of effort.\n");
   add_item( ({"smoke", "cigar smoke"}),
      "The smoke emanates from the cigars smoked by"
      +" certain of the lords.\n");
   add_item( "lord",
      "The lords are all distinguished people who "
      +"emanate an unmistakeable aura of power.\n");
   add_item( ({"man", "waiter", "butler" }),
      "A number of soberly dressed servants wait upon "
      +"you every need.\n");
   set_light(70);
   add_exit("common", "/w/common", "door");
   if (!board)
      {
      board = clone_object("/obj/misc/board");
      board->move(this_object());
      board->set_datafile("lordscommon");
   }
}

void init()
{
   ::init();
if(!"/secure/master"->query_lord(this_player()->query_name()))
      {
      write("You are not a Lord. You cannot enter the Lords common!\n");
      this_player()->move("/w/common",
         "$N tried to enter the Lords Common, but isn't a Lord!",
         "$N tried to enter the Lords Common, but isn't a Lord!");
   }
}