inherit "room/room";
inherit "players/jubal/secur";

object obj_coat,board,valentine;

reset(arg) {
  if(arg) return;

  set_light(1);
  short_desc="Jubal's Workroom";
  no_castle_flag = 0;
  reset_secur("off");
  if (secur!="on" && secur!="off") secur="off";
  long_desc="\n     Jubal's Workroom\n\n\n"
      +"                          Security is "+secur+"\n\n\n";
  dest_dir =
    ({
      "room/church", "church",
      "room/adv_inner", "inner",
      "players/jubal/castle/entrance", "ent",
      "room/mount_top2", "yard",
      "players/jubal/room/sim", "sim",
      "players/jubal/room/waiting","wait",
      "players/jubal/monopoly/main","mono",
      "players/jubal/hell/entrance","hell",
    });

  if(!present("coat"))
    move_object(clone_object("players/jubal/stuff/badge"),this_object());
  if(!present("valentine"))
    move_object(clone_object("players/jubal/tools/valentine"),this_object());
  if(!board) {
    board=clone_object("obj/bull_board");
    move_object(board,this_object());
    board->set_save_file("players/jubal/log/workrboard");
    board->set_remove_level(5000);
  }
}

long() {
  if(!long_exit_str()) return ::long();   /* we are not on GumbiMud :) */
  write(long_desc);
  write("There are "+sizeof(dest_dir)/2
        +" exits:\n\n       "+long_exit_str()+"\n\n");
  write("  Stuff here\n  -----------\n");
}

init() {
  ::init();

  do_secur("players/jubal/room/waiting");

  if(!present(this_player())) return;
  add_action("ptime","ptime");
  if(this_player()->query_real_name()=="jubal")
    add_action("admit","admit");
}

ptime() {
  write("The time (Central USA) is: "+ctime(time())+"\n");
  return 1;
}

admit() {
  return "players/jubal/room/waiting"->admit();
}