/*
// File : /domains/Praxis/council.c
// Comment : Town Council Chambers
// 94-07-02 : Pallando @ Nightmare wrote it
// 94-07-06 : Manny @ Nightmare added descriptions
// 94-08-18 : Forlock @ Nightmare added descriptions of plaque & law book
*/
#include <lib.h>
#include <dirs.h>
#include <objects.h>
#include <daemons.h>
#define TOWN_HALL "/domains/Praxis/town_hall"
#define HELP_FILE "/domains/Praxis/commands"
#define TMP_FILE DIR_TMP + "/" + (this_player()->query_name()) + ".proposal"
#define QUORUM 5
#define PASSES 5
inherit LIB_ROOM;
mapping policies = ([]);
void create()
{
::create();
enable_commands(); // Used to echo tells to the Town Hall
SetProperties( ([
"mountable" : 1,
"indoors" : 1,
"light" : 2,
"no castle" : 1,
"no teleport" : 1,
"no bump" : 1,
"no attack" : 1,
"no steal" : 1,
"no magic" : 1,
]) );
SetShort( "The Chambers of the High Council" );
SetLong(
"The lights are darkened in this room, a set of 12 candles set along a "
"long, narrow table are the only light. The table is constructed of the "
"purest black obsidian, and is surrounded at all sides by wooden chairs, "
"each covered in a bright pattern of rubies. On the walls of the room hang "
"the flags of each of the classes of Nightmare, each created by the best "
"artists in the land. The ceiling is covered in 4 ornate patterns, each "
"a picture of one of the Head Archwizards of the land. The pictures give "
"the appearance of watching all that occurs within this chamber. "
"Sitting on a pedestal made completely of platinum is the Book of Law. "
"A plaque is attached to the west wall. "
);
SetExits( ([
"down" : "/domains/Praxis/town_hall",
]) );
SetItems( ([
"view" : "A magnificent panorama of all Praxis.",
({ "candles", "candle" }) : "Tall, thin white candles on a "+
"long, narrow table.",
"table" : "A brightly polished table of deep black obsidian",
"obsidian" : "The obsidian is of the purest in the land.",
({ "chair", "chairs" }) : "Each of the chairs have a unique pattern of "+
"rubies engrained within the body of the chair.",
"rubies" : "Large rubies of the rarest kind.",
"flags" : "6 flags, each representing the individual classes "
"of the land.",
"ceiling" : "A vast mural of the Four greatest in "
"all the land, Forlock, Descartes, Lassondra, "
"and Shadowwolf.",
"plaque" : "A discreet piece of granite with finly etched words.",
"book" : "The Book of Law. Its cover is made of pure solid gold "
"and the pages of the finest leather. Inside, one can find "
"details of the Laws of the Land.",
"forlock" : "The Great Enforcer, donning a great black robe "
"lined with a deep red sheath. The deep stare of "
"Forlock fills you with all that is good and just.",
"descartes" : "Descartes of Borg, in his most noble position "
"upon a great white horse, is the embodiment of "
"great wisdom and knowlege.",
"lassondra" : "Long, black wavy hair drape down upon a "
"great green cloak upon her broad sholders. "
"The warm smile and loving eyes depict equality "
"and fairness for all.",
"shadowwolf" : "Donning a long hooded robe, Shadowwolf is "
"perhaps the most mysterious of the four. "
"Shadowwolf's eyes faintly pierce the darkness "
"that surrounds him, seemingly staring "
"directly at you."
]) );
}
void init()
{
::init();
add_action( "cmd_propose", "propose" );
add_action( "cmd_repeal", "repeal" );
add_action( "cmd_cast", "cast" );
add_action( "cmd_read", "read" );
add_action( "cmd_law", "law" );
}
int quorum()
{
object *voters;
voters = all_inventory( this_object() );
voters = filter_array( voters, "leaderp", find_object( OB_SIMUL_EFUN ) );
return sizeof( voters );
}
int votes_needed( string title )
{
return PASSES + sizeof( policies[title]["Nay"] ) -
sizeof( policies[title]["Aye"] );
}
int vetos_needed( string title )
{
return PASSES + sizeof( policies[title]["Aye"] ) -
sizeof( policies[title]["Nay"] );
}
varargs void display_policy( mapping policy, int as_law )
{
int then;
if( as_law )
{
then = policy["Time"];
printf( "As of %s, %d %s, %d NM; at the urging of %s\n\n\t\t\%s\n\n%s",
day( then ), date( then ), month( then ), year( then ),
capitalize( policy["Proposer"] ), policy["Title"], policy["Text"] );
return;
}
printf(
"Title: %s\nProposer: %s\n\n%s",
policy["Title"],
capitalize( policy["Proposer"] ),
policy["Text"],
);
if( sizeof( policy["Aye"] ) )
write( wrap( "In favour: " + implode( policy["Aye"], ", " ) ) );
if( sizeof( policy["Nay"] ) )
write( wrap( "Against: " + implode( policy["Nay"], ", " ) ) );
if( sizeof( policy["Abs"] ) )
write( wrap( "Abstentions: " + implode( policy["Abs"], ", " ) ) );
}
int cmd_law( string arg )
{
mapping policy;
if( arg )
{
if( undefinedp( policy = (mapping)POLITICS_D-> query_policy( arg ) ) )
write( "There is no law: " + arg + "\n" );
else
display_policy( policy, 1 );
} else {
printf( "The book of law contains the following:\n %s\n",
wrap( implode( sort_array( keys(
POLITICS_D-> query_policies() ), 1 ), "\n " ) ) );
}
return 1;
}
int cmd_read( string arg )
{
mapping policy;
if( arg )
{
if( arg == "book" || arg == "law" )
write( "Use the \"law\" command.\n" );
else if( arg == "plaque" )
write( read_file( HELP_FILE ) );
else if( undefinedp( policy = policies[arg] ) )
write( "There is no proposal: " + arg + "\n" );
else
display_policy( policy );
} else {
if( !sizeof( policies ) )
write( "There are no proposals waiting to be passed.\n" );
else
write( "The following proposals are waiting to be passed:\n" +
wrap( implode( keys( policies ), ", " ) ) );
}
return 1;
}
int cmd_propose( string title )
{
if( !title ) return notify_fail( "Syntax: propose <title>\n" );
title = lower_case( title );
if( policies[title] || POLITICS_D-> query_policy( title ) )
return notify_fail( "That already exists.\n" );
if( ( quorum() < QUORUM ) && !archp( this_player() ) )
return notify_fail( "There are not " + QUORUM + " voters present.\n" );
write( "Enter your proposal:\n" );
this_player()-> edit( TMP_FILE,
(: "callback_propose" :),
(: "abort_propose" :),
title,
);
return 1;
}
void abort_propose( string title ) { write( "Aborting proposal.\n" ); }
void callback_propose( string title )
{
string proposal;
proposal = read_file( TMP_FILE );
rm( TMP_FILE );
if( !proposal )
{
write( "Aborting proposal.\n" );
return;
}
policies[title] = ([
"Title" : title,
"Proposer" : this_player()-> query_name(),
"Time" : time(),
"Text" : proposal,
"Voted" : ([]),
"Aye" : ({}),
"Nay" : ({}),
"Abs" : ({}),
]);
display_policy( policies[title] );
write( "You have 1/2 hr to get " + votes_needed( title ) + "\n" );
call_out( "last_warning", 1500, title );
}
void last_warning( string title )
{
object proposer;
if( !policies[title] ) return;
call_out( "delete_proposal", 300, title );
if( !proposer = find_player( policies[title]["Proposer"] ) ) return;
tell_object( proposer,
"***** LAST WARNING *****\n"+
"Proposal " + title + " will be deleted in 5 minutes\nunless "+
"you can find " + votes_needed( title ) + " votes before then.\n" );
}
void delete_proposal( string title )
{
map_delete( policies, title );
}
int cmd_repeal( string title )
{
mapping policy;
if( !title ) return notify_fail( "Syntax: repeal <title>\n" );
title = lower_case( title );
if( !policy = POLITICS_D-> query_policy( title ) )
return notify_fail( "There is no law: " + title + ".\n" );
if( ( quorum() < QUORUM ) && !archp( this_player() ) )
return notify_fail( "There are not " + QUORUM + " voters present.\n" );
policy["Proposer"] = this_player()-> query_name();
policy["Repeal"] = 1;
policies[title] = policy;
call_out( "delete_proposal", 1800, title );
write( "You have 1/2 hour to get the votes needed to repeal " +
title + ".\n" );
return 1;
}
int cmd_cast( string arg )
{
string vote, title, name;
if( !arg ||
( ( 2 != sscanf( arg, "%s on %s", vote, title ) ) &&
( 2 != sscanf( arg, "%s %s", vote, title ) ) ) )
return notify_fail( "Syntax: cast <vote> on <title>\n" );
if( !policies[title] )
return notify_fail( "There is no proposal: " + title + ".\n" );
name = this_player()-> query_name();
if( policies[title]["Voted"][name] )
policies[title][policies[title]["Voted"][name]] -= ({ name });
vote = lower_case( vote[0..2] );
switch( vote )
{
case "aye":
policies[title]["Aye"] += ({ name }); break;
case "nay":
policies[title]["Nay"] += ({ name }); break;
case "abs":
policies[title]["Abs"] += ({ name }); break;
default:
return notify_fail( "You vote must be 'aye', 'nay' or 'abs'.\n" );
}
policies[title]["Voted"][name] = capitalize( vote );
if( policies[title]["Repeal"] )
{
if( vetos_needed( title ) < 1 )
{
say( title + " is no longer law.\n" );
POLITICS_D-> repeal_policy( title );
delete_proposal( title );
return 1;
}
}
else if( votes_needed( title ) < 1 )
{
say( "Proposal: " + title + " is writ large in the book of law.\n" );
POLITICS_D-> set_policy( title, policies[title] );
delete_proposal( title );
return 1;
}
write( "Ok.\n" );
return 1;
}
void receive_message( string msg_class, string msg )
{
/*
write( "class = " + msg_class + "\n" );
*/
message( msg_class, msg, all_inventory( this_object() ), ({ this_player() }) );
TOWN_HALL-> receive_message( msg_class, msg );
}
// Wizard test functions
mixed query_policies() { return policies; }
void alter_proposal( string title, string field, mixed value )
{
policies[title][field] = value;
}
void make_law( string title )
{
POLITICS_D-> set_policy( title, policies[title] );
delete_proposal( title );
}
void repeal_law( string title )
{
POLITICS_D-> repeal_policy( title );
delete_proposal( title );
}
/* EOF */
