/*
// 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 */
