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