#include <lib.h>

inherit LIB_ROOM;

string ReadSign(){
    this_player()->more("/domains/town/txt/praxis_sign.txt");
    return "";
}

void create() {
    object borg;

    ::create();
    SetProperty("light", 3);
    SetProperty("night light", 2);
    SetProperty("no steal", 1);
    SetProperty("no magic", 1);
    SetProperty("no attack", 1);
    SetProperty("no castle", 1);
    SetListen("default", "The sounds of a busy adventuring town are all about.");
    SetShort( "Monument Square");
    SetLong( "You are in Monument Square, once known as Krasna Square. "
      "The two main roads of Praxis intersect here, where all of "
      "Nightmare's people gather in joy and sorrow.  The road running "
      "north and south is called Centre Path, while Boc La Road is the "
      "name of the road running east and west."
      "\n%^RED%^There is a sign here you can read.%^RESET%^");
    SetExits( 
      (["north" : "/domains/Praxis/n_centre1",
	"south" : "/domains/Praxis/s_centre1",
	"east" : "/domains/Praxis/e_boc_la1",
	"west" : "/domains/Praxis/w_boc_la1"]) );

    //new("/domains/Praxis/obj/misc/watchtower")->move(this_object());
    SetItems(
      (["road" : "Boc La Road leads east toward the adventurer's "
	"hall and the Praxis Monastary.",
	"path" : "Centre Road leads south toward the bank and post office.",
	"sign" : "A sign you can read.",
	"square" : "Krasna Square is the central point of Praxis."]) );
    SetInventory(([
	"/domains/Praxis/obj/misc/stargate" : 1,
      ]));
    SetRead("sign", (: ReadSign :) );

    /* The following is to load Manny's dragon. */
}

int CanReceive(object ob) { 
    string start;

    if (previous_object()->is_player()) {
	start = previous_object()->getenv("start");
	if (!start) return ::CanReceive(ob);
	if (9>strlen(start)) return ::CanReceive(ob);
	if ("/d/" == start[0..2]) 
	    previous_object()->setenv("start", 
	      "/domains/"+start[3..strlen(start)]);
	if ("d/" == start[0..1]) 
	    previous_object()->setenv("start", 
	      "/domains/"+start[2..strlen(start)]);
	if ("/wizards/" == start[0..8]) 
	    previous_object()->setenv("start", 
	      "/realms/"+start[9..strlen(start)]);
	if ("wizards/" == start[0..7]) 
	    previous_object()->setenv("start", 
	      "/realms/"+start[8..strlen(start)]);

	if("/domains/standard/" ==start[0..17])
	    previous_object()->set_primary_start("/domains/Praxis/"+
	      start[18..strlen(start)]);
	if("domains/standard/"==start[0..16])
	    previous_object()->set_primary_start("/domains/Praxis/"+
	      start[17..strlen(start)]);
    }
    return ::CanReceive(ob);
}