#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;
}