#include <lib.h>

inherit LIB_ROOM;

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

void create() {
    ::create();
    SetProperties( ([ "light": 2, "indoors" : 1, "no castle" : 1 ]) );
    SetShort( "Lars' tavern and bar");
    SetLong(
      "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.");
    SetItems(
      (["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."]) );
    SetExits( 
      (["north" : "/domains/Praxis/w_boc_la1",
	"east" : "/domains/Praxis/s_centre1"]) );
    SetProperties( ([  "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;
}









