#include <lib.h>

inherit LIB_ROOM;

static private int __EntryAllowed, __PartyTime;

int query_party_time();
int x;

void create() {
    room::create();
    SetProperties( ([ "light":2, "indoors":1, "no attack":1, 
	"no teleport":1, "no steal":1, "no magic":1 ]) );
    SetShort("%^MAGENTA%^%^BOLD%^In the volcano%^RESET%^");
    SetLong(
      "You are standing on a wide, circular platform, surrounded on "
      "all sides by %^RED%^bubbling lava%^RESET%^.  The platform floats "
      "above the pool of lava at a safe distance, yet close enough for "
      "you to feel the heat as the lava sometimes flares upward. " 
      "The platform is decorated with %^MAGENTA%^floating lights "
      "%^RESET%^of %^BLUE%^varying %^ORANGE%^hues and %^RESET%^size. " 
      "Tables with refreshments have also been placed near the edges of "
      "the platform. ");
    SetItems( 
      ([
	({"platform", "wide platform", "circular platform"}) :
	"The platform floats "
	"above the pool of lava at a safe distance, yet close enough for "
	"you to feel the heat as the lava sometimes flares upward. " 
	"The platform is decorated with %^MAGENTA%^floating lights "
	"%^RESET%^of %^BLUE%^varying %^ORANGE%^hues and %^RESET%^size. " 
	"Tables with refreshments have also been placed near the " 
	"edges of the platform. ",
	({"sides", "side", "edges", "edge"}) : 
	"The platform is surrounded on all sides by "    
	"%^RED%^bubbling lava.%^RESET%^",

	({"pool", "pool of lava", "lava", "bubbling lava"}) : 
	(:this_object(), "look_lava":),       

	({"lights", "light", "floating lights", "floating light"}) :
	(:this_object(), "look_lights":),
	({"tables", "table"}) :
	"The tables are covered with many delicious treats. "
	"Bottles containing every conceivable combination "
	"of drink possible are set up along the tables. As a matter-of-fact, you feel like pouring yourself a glass of frosty beverage right now. "
	"You intuit that pour <drinkname> will provide you with a glass of your favorite "
	"frosty beverage. ",
	({"treats", "treat"}) : (:this_object(), "look_treat":)
      ]) );
    SetExits( ([ "square" : "/domains/Praxis/square" ]) );
}

void init() {
    room::init();
    add_action("cmd_pour", "pour");
}

void start_party(string msg) {
    if(base_name(previous_object()) != "/cmds/mortal/_mudparty") return;
    if(query_party_time()) return;
    message("shout", sprintf("Party announcement from %s: A %s party is now "
	"being held to celebrate %s!", (string)this_player()->query_cap_name(),
	mud_name(), msg), users());
    message("shout", "You have 2 minutes to type \"mudparty join\" in "
      "order to join the party!", users());
    __EntryAllowed = 1;
    __PartyTime = 1;
    call_out("deny_entry", 120);
}

static void deny_entry() { __EntryAllowed = 0; }

int query_party_time() { return __PartyTime; }

int query_entry_allowed() { return __EntryAllowed; }

string look_lava(string unused)
{
    x=random(3)+1;   

    if(x==1)
    {
	message("info",
	  "%^RED%^A magnificent geyser of lava explodes into the air and "
	  "parts before striking the platform, sparing you certain death. "
	  "%^RESET%^",
	  environment(this_player()));
    }

    if(x==2)
    {
	message("info",
	  "%^RED%^A jet of flame falres from the lava and casts the room "
	  "in red-hued light.%^RESET%^", environment(this_player()));
    }

    if(x==3)
    {
	message("info",
	  "%^RED%^%^BOLD%^The platform shifts about as a large pillar of lava "
	  "gushes up from beneath it.%^RESET%^",
	  environment(this_player()));
    }

    if(x==4)
    {
	message("info",
	  "%^MAGENTA%^The lava changes hues and from %^RED%^red %^MAGENTA%^to "
	  "purple.%^RESET%^",
	  environment(this_player()));
    }

    return("The lava is constantly shifting and bubbling. You can see large "
      "chunks of rock floating within it. ");
}


string look_lights(string unused)
{
    x=random(3)+1;

    if(x==1)
    {
	return(
	  "A pretty %^YELLOW%^yellow%^RESET%^ orb drifts near to you and casts " 
	  "a cheery glow on you. ");
    }

    if(x==2)
    {
	return(
	  "A pretty %^BLUE%^blue%^RESET%^ orb drifts near to you and casts " 
	  "a mellow glow on you. ");
    }

    if(x==3)
    {
	return(
	  "A pretty %^MAGENTA%^purple%^RESET%^ orb drifts near to you and casts " 
	  "a purple glow over your body. "); 
    }

    if(x==4)
    {
	return(
	  "A pretty %^RED%^red%^RESET%^ orb drifts near to you and casts " 
	  "a rosy glow over your body. "); 
    }
}


int look_treat()
{
    message("other_action",
      (string)this_player()->query_cap_name()+" eats and drinks "
      "refreshments from the table after looking them over. ",
      environment(this_player()), this_player());
    message("my_action",
      "After looking at the vast array of treats before you, you "
      "decide to try and sample all of them! Punch, cookies, meats.."
      "The sky is the limit!", this_player());
    return 1;
}

int cmd_pour(string str) {
    object ob;
    string *words;

    //    if(!str) return notify_fail("Pour what?\n");
    //    if((int)this_player()->query_mp() < 10)
    //      return notify_fail("You are too weak for that!\n");
    //    words = explode(str, " ");
    //    if(words[0] == "A" || words[0] == "An") words[0] = lower_case(words[0]);
    //    ob = new(DRINK);
    //    ob->SetKeyName(words[sizeof(words)-1]);
    //    ob->SetMass(75);
    //    ob->SetId(explode(strip_colours(str), " "));
    //   if(sizeof(words) > 2)
    //      SetAdjectives(words[0..sizeof(words)-2]);
    //    ob->SetShort(implode(words, " "));
    //    ob->SetLong("A nice drink created by "+
    //      (string)this_player()->query_cap_name()+".");
    //    ob->SetStrength(random(30)+2);
    //    ob->set_drink("$N drink $O.", 
    //      "$N drinks $O poured by "+(string)this_player()->query_cap_name()+".");
    //    this_player()->add_hp(-2);
    //    if(ob->move(this_player())) {
    //        message("my_action", "You cannot carry that!", this_player());
    //        ob->destruct();
    //        return 1;
    //    }
    //    message("my_action", "You pour "+implode(words, " ")+".", this_player());
    //    message("other_action", sprintf("%s pours %s.",
    //      (string)this_player()->query_cap_name(), implode(words, " ")),
    //      this_object(), ({ this_player() }));
    return 1;
}
