#include <std.h>

inherit ROOM;

void init() {
    ::init();
    add_action("read", "read");
}

void create() {
    ::create();
    set_properties( ([ "light": 2, "indoors" : 1, "no castle" : 1 ]) );
    set_short( "Lars' tavern and bar");
    set_long(
	     "Welcome to Lars' Tavern!\n"
	     "Lars' Tavern is a very old and well established pub. It "
	     "has recently been remodelled, and you can tell that "
	     "business is picking up by the general hum of chatter "
	     "in the room. The floor is made out of polished wood, "
	     "as is the counter that stands in the back of the room. "
	     "Pictures of the different lands of Nightmare hang "
	     "on the wall, as do some wanted posters of the hunted "
	     "rogues of this land.");
       set_items(
	(["pub" : "The most hoppin' place in Praxis.",
	  "wall" : "The walls are covered with various pictures.",
	  ({ "posters", "poster", "wanted posters" }) :
	  "The wanted posters are very old and brittle. They mark "
	  "the faces of the rogues of this land.",
	  ({ "pictures" , "picture" }) :
	  "The pictures are of different parts of Nightmare, painted "
	  "by several of the villages' aspiring artists.",
	  "bar" : "The bar is actually Lars' Tavern. It is a very "
	  "clean and well run establishment.",
	  "counter" : "The wooden counter stands at the back of the "
	  "room and houses all of Lars' drinks.",
	  "room" : "You are in the main room of Lars' Tavern.",
	  "foo" : "bar",
	  "tavern" : "The tavern is the place that the people of "
	  "Praxis come to when they want to have a drink or just "
	  "be social.",
	  "floor" : "The floor is made out of solid oak.",
	  "list" : "It looks like a list of drinks. Read it to see "
	  "what's available."]) );
    set_exits( 
	      (["north" : "/domains/Praxis/w_boc_la1",
		"east" : "/domains/Praxis/s_centre1"]) );
    set_properties( ([  "no castle": 1, "no attack" : 1 ]) );
    }

void reset() {
  ::reset();
    if(!present("list")) 
      new("std/obj/player_list")->move(this_object());
    if(!present("lars")) 
      new("/domains/Praxis/obj/mon/lars")->move(this_object());
}

int read(string str) {
    object ob;
    int i;

    ob = present("lars");
    if(!ob) {
        write("You cannot read the menu, as it is splattered with blood.");
	return 1;
    }
    message("Ninfo", "The following classic drinks are served at the Lars Pub!\n", this_player());
    message("Ninfo", "-----------------------------------------------------------\n", this_player());
    message("Ninfo", "A firebreather\t\t\t"+ (int)ob->get_price("firebreather")+" gold\n", this_player());
    message("Ninfo", "A special of the house\t\t"+(int)ob->get_price("special")+" gold\n", this_player());
    message("Ninfo", "A pale ale\t\t\t"+(int)ob->get_price("ale")+" gold\n", this_player());
    message("Ninfo", "-----------------------------------------------------------\n", this_player());
    message("Ninfo", "<buy drink_name> gets you a drink.\n", this_player());
    return 1;
}