#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;
}
