// Petrarch
// Merentha Lib 1.0
#include <daemons.h>
#include <std.h>
inherit ROOM;
void create() {
::create();
set_short("Inside the Cabeiri Monk Hall");
set_long("Dozens of monks sit in deep meditation around the walls of \
the hall in a near perfect circle. Still dozens more are freely moving \
about in conversation with their peers. A few are deep in study of the \
faith while others practice hand to hand combat.");
set_items(([
"monk":"There are many monks here all doing their own thing.",
]));
set_exits(([
"north":"/domains/Cabeiri/west_square",
]));
}
void reset() {
object ob;
::reset();
if(!present("table")) {
ob=new(OBJECT);
ob->set_name("table");
ob->set_short("a large oak table");
ob->set_long("On the table are several piles of paper. Upon closer \
inspection one of the piles is actually a list of newly signed up \
monks. The top of the list reads \n%^BOLD%^Want to be a Monk?\nSign \
up Here%^RESET%^.\nYou may <sign up> if you wish to become a monk.");
ob->set_id(({"table", "oak table"}));
ob->set_prevent_get("The table is much to large to pick up.");
ob->move(this_object());
}
}
void init() {
::init();
add_action("cmd_sign", "sign");
}
int cmd_sign(string str) {
if(!str || member_array(str, ({"up", "paper"}))==-1) return notify_fail("Sign what?\n");
if(this_player()->query_class()) return notify_fail("You already belong to a class and can not sign up to become a monk.\n");
this_player()->set_class("monk");
SKILL_D->init_skills(this_object());
message("action", "You sign up to become a monk. One of the vetern monks comes over to you and shakes your hand.", this_player());
message("monk", this_player()->query_cap_name()+" joins the faithful of the monks.", users());
return 1;
}
string receive_object(object ob) {
string _class;
if(_class=::receive_object()) return _class;
if(!ob) return 0;
_class=ob->query_class();
if(_class && _class!="monk") return "You can not join the monks young "+_class+", this is not your hall.";
return 0;
}