inherit "/std/room";

setup() {

   set_light(100);
   set_short("The Player Killer Registrar");
   set_long(
      "This is a tidy office where players come to register to "+
      "become player killers. A elder sits behind a desk to one "+
      "side of a large leather bound tome resting on a pedestal.");
   add_item("elder",
      "You can't tell if it is a male or a female. Age has worn "+
      "away all tracers of it's gender. You feel calm radiating "+
      "from it in almost palitable waves.");
   add_item("desk",
      "A sturdy teakwood desk, tidy and well polished. You don't "+
      "look to close as it would be rude to stare at the elder "+
      "sitting behind it.");
   add_item( ({"tome", "book" }),
      "As you look closer you notice that this huge, ancient volume "+
      "is actualy bound in human skin! The pages are made from thin "+
      "almost translucent parchement. It's massive weight rests on "+
      "a sturdy pedestal.");
   add_item("pedestal",
      "An ornately carved block of black marble with red veins of some "+
      "mineral running through it. It supports the massive weight of "+
      "the book of registration.");

add_exit("south", "corridor2", "door");

}


void init() {
   ::init();
   add_action("my_sign","sign");
   call_out("do_enter",8);
}

void do_enter() {
   write(
      "Elder says: This is where players come to sign the\n"+
      "            book of registration with their life blood.\n"+
      "            Know that once your blood has stained it's\n"+
      "            pages there is no turning back.\n");
}

int my_sign(string str) {
   if(!str) {
      write("Sign what?\n");
      return 1;
   }
   if(this_player()->query_property("players killed") >= 1) {
      write("You need not sign this book more than once.\n");
      return 1;
   }
   if(str == "book" || str == "tome") {
      write("Once you sign the book you will NOT be able to\n");
      write("turn back!  Are you sure you wish to sign? (y/n)\n");
      input_to("do_sign2");
      return 1;
   }
}

int do_sign2 (string str) {
   str = lower_case(str);
   if(str == "y" || str == "yes") {
      write("You sign in Blood!\n");
      this_player()->add_property("players killed",
         (int)this_player()->query_property("players killed")+1);
      write("You are now a registered player killer.\n");
      return 1;
   }
   write("Ok, but if you change your mind and wish to sign\n");
   write("later, please feel free to come back.\n");
   return 1;
}

void dest_me() {
   ::dest_me();
}