/*
 *  /secure/daemon/voting.c
 *  from the Dead Souls mudlib
 *  Handle player elections
 *  by Kalinash on 961026
 *  Version : @(#) voting.c 1.3@(#)
 *  Last Modified : 96/10/26
 */

#include <lib.h>
#include <daemons.h>
#include <voting.h>
#include <clock.h>

inherit LIB_DAEMON;

private mapping mapVoting;
private mapping mapCouncil;

static void create() {
    daemon::create();
    SetNoClean(1);
    if( file_exists( SAVE_VOTES __SAVE_EXTENSION__ ) ) {
	unguarded( (: restore_object, SAVE_VOTES :) );
	if( mapVoting["status"] == VOTE_RUNNING )
	    call_out( (: eventNextDay :), DAY );
    }

    if( ! mapVoting ) {
	mapVoting = ([]);
	mapVoting["candidates"] = ([]);
	mapVoting["votes"] = ([]);
	mapVoting["voted"] = ({});
	foreach( string sClass in CLASSES_D->GetClasses() ) {
	    mapVoting["candidates"][sClass] = ({});
	    mapVoting["votes"][sClass] = ([]);
	}
	mapVoting["status"] = VOTE_NOT_RUNNING;
    }
    if( ! mapCouncil ) 
	mapCouncil = ([]);

    eventSave();
}

mixed eventSave() {
    unguarded( (: save_object, SAVE_VOTES :) );
    return VOTE_SUCCESS;
}

mixed eventStartVoting() {
    if( GetStatus() == VOTE_RUNNING )
	return VOTE_ALREADY_RUNNING;

    mapVoting["candidates"] = ([]);
    mapVoting["votes"] = ([]);
    mapVoting["voted"] = ({});
    foreach( string sClass in CLASSES_D->GetClasses() ) {
	mapVoting["candidates"][sClass] = ({});
	mapVoting["votes"][sClass] = ([]);
    }

    mapVoting["status"] = VOTE_RUNNING;
    mapVoting["mode"] = VOTE_MODE_CANDIDATES;
    mapVoting["daycount"] = VOTE_DAY_COUNT;
    call_out( (: eventNextDay :), DAY );
    message("shout", "%^YELLOW%^Election announcement:%^RESET%^ " +
      "Class elections have now begun! Go to the voting booth " +
      "and nominate candidates.", users() );
    eventSave();
    return VOTE_SUCCESS;
}

mixed eventEndVoting() {
    mapVoting["status"] = VOTE_NOT_RUNNING;
    eventTallyVotes();
    return eventSave();

}

mixed eventAddCandidate( string sClass, string sWho ) {
    object ob;

    sWho = convert_name( sWho );
    ob = find_player( sWho );

    if( GetStatus() == VOTE_NOT_RUNNING )
	return VOTE_NOT_RUNNING;
    if( mapVoting["mode"] != VOTE_MODE_CANDIDATES )
	return VOTE_MODE_VOTING;
    if( ! ob ) return VOTE_ERROR;
    if( ! ob->ClassMember(sClass) )
	return VOTE_NOT_CLASS_MEMBER;

    foreach( string cls in CLASSES_D->GetClasses() )            
    if( member_array( sWho, mapVoting["candidates"][cls] ) != -1 )
	return VOTE_ALREADY_RUNNING;

    mapVoting["candidates"][sClass] += ({ sWho });
    mapVoting["votes"][sClass][sWho] = 0;
    message("shout", "%^YELLOW%^Election announcement:%^RESET%^ " + 
      ob->GetName() + " has been nominated for the leader of the " +
      pluralize(capitalize(sClass)) + ".", users() );
    eventSave();
    return VOTE_SUCCESS;
}

mixed eventRemoveCandidate( string sClass, string sWho ) {
    sWho = convert_name( sWho );

    if( GetStatus() == VOTE_NOT_RUNNING )
	return VOTE_NOT_RUNNING;
    if( mapVoting["mode"] != VOTE_MODE_CANDIDATES )
	return VOTE_MODE_VOTING;
    if( member_array( sWho, mapVoting["candidates"][sClass] ) == -1 )
	return VOTE_NOT_CANDIDATE;

    mapVoting["candidates"][sClass] -= ({ sWho });
    map_delete( mapVoting["votes"][sClass], sWho );
    message("shout", "%^YELLOW%^Election announcement:%^RESET%^ " + 
      find_player(sWho)->GetName() + " has withdrawn from the " +
      "elections!", users() );
    eventSave();
    return VOTE_SUCCESS;
}

mixed eventCastVote( string sClass, string sVoter, string sVotee ) {
    mapping mapChar;

    sVoter = convert_name( sVoter );
    sVotee = convert_name( sVotee );

    if( GetStatus() == VOTE_NOT_RUNNING )
	return VOTE_NOT_RUNNING;

    if( mapVoting["mode"] != VOTE_MODE_VOTING )
	return VOTE_MODE_CANDIDATES;

    mapChar = CHARACTER_D->GetLink( sVoter );

    if( mapChar )
	if( mapChar["primary"] != sVoter )
	    return VOTE_NOT_PRIMARY;

    if( member_array( sVotee, mapVoting["candidates"][sClass] ) == -1 )
	return VOTE_NOT_CLASS_MEMBER;

    if( member_array( sVoter, mapVoting["voted"] ) != -1 )
	return VOTE_ALREADY_VOTED;

    mapVoting["voted"] += ({ sVoter });
    mapVoting["votes"][sClass][sVotee]++;
    eventSave();
    return VOTE_SUCCESS;
}

mixed eventNextDay() {
    mapVoting["daycount"]--;

    if( !mapVoting["daycount"] ) {
	if( mapVoting["mode"] == VOTE_MODE_CANDIDATES ) {
	    mapVoting["mode"] = VOTE_MODE_VOTING;
	    mapVoting["daycount"] = VOTE_DAY_COUNT;
	    call_out( (: eventNextDay :), DAY );
	    message("shout", "%^YELLOW%^Election announcement:%^RESET%^ " +
	      "Nominations are closed, go vote for the candidates!!", users() );
	    eventSave();
	    return VOTE_SUCCESS;
	}
	eventEndVoting();
	return VOTE_SUCCESS;
    }

    call_out( (: eventNextDay :), DAY );
    eventSave();
    return VOTE_SUCCESS;
}

mixed eventTallyVotes() {
    mapping mapWho;
    string  *asWho;

    mapCouncil = ([]);

    foreach( string sClass in CLASSES_D->GetClasses() ) {
	mapWho = mapVoting["votes"][lower_case(sClass)];
	if( ! ( sizeof( asWho = keys( mapWho ) ) ) ){
	}

	while( sizeof( asWho ) >= 2 ) {
	    string player1, player2;

	    player1 = asWho[0];
	    player2 = asWho[1];

	    if( mapWho[player1] > mapWho[player2] )
		asWho -= ({ player2 });
	    else
		asWho -= ({ player1 });
	}

	if(asWho && sizeof(asWho)) mapCouncil[lower_case(sClass)] = asWho[0];
    }

    eventSave();
    return VOTE_SUCCESS;
}

int GetStatus() { return mapVoting["status"]; }
int GetMode() { return mapVoting["mode"]; }

string *GetCandidates( string sClass ) {
    return mapVoting["candidates"][lower_case(sClass)];
}

string *GetCouncil() {
    string *asWho;

    asWho = ({});

    foreach( string sClass in CLASSES_D->GetClasses() )
    asWho += ({ mapCouncil[sClass] });

    return asWho;
}

string GetCouncilMember( string sClass ) { 
    if(mapCouncil[sClass]) return mapCouncil[sClass];
    else return "";
}

string GetCurrentCouncil(){
    string ret = "Current council:\n";
    foreach( string sClass in CLASSES_D->GetClasses() ){
	string councillor;
	if(mapCouncil[sClass]) councillor = mapCouncil[sClass];
	else councillor = "NONE";
	ret += capitalize(sClass)+": "+capitalize(councillor)+"\n";
    }
    return ret;
}

int GetVoteStatus( object ob ) {
    string sVoter;
    mapping mapChar;

    sVoter = convert_name( ob->GetName() );

    if( mapVoting["status"] == VOTE_NOT_RUNNING )
	return VOTE_ALREADY_VOTED;
    if( mapVoting["mode"] == VOTE_MODE_CANDIDATES )
	return VOTE_ALREADY_VOTED;
    if( member_array( sVoter, mapVoting["voted"] ) != -1 )
	return VOTE_ALREADY_VOTED;
    if( ! ob->GetClass() )
	return VOTE_ALREADY_VOTED;
    mapChar = CHARACTER_D->GetLink( sVoter );

    if( mapChar )
	if( mapChar["primary"] != sVoter )
	    return VOTE_ALREADY_VOTED;

    return VOTE_SUCCESS;
}

string GetVoteRoom() { return VOTE_ROOM; }

int IsCouncilMember( object ob ) {
    foreach( string sClass in CLASSES_D->GetClasses() )
    if( mapCouncil[sClass] == convert_name(ob->GetName()) )
	return 1;
    return 0;
}

mixed GetTest() {
    foreach( string sClass in CLASSES_D->GetClasses() )
    this_player()->eventPrint( sClass + " : " + mapCouncil[sClass] );
    return 1;
}