/*    /secure/sefun/messaging.c
 *    From the Dead Souls Object Library
 *    Messaging efuns, based on ideas shamelessly borrowed from Lima
 *    Created by Descartes of Borg 961029
 *    Version: @(#) messaging.c 1.10@(#)
 *    Last modified: 96/12/16
 */

#include <pov.h>

string create_message(int pov, string array verb, string message,
  string subject, string subject_gen, string targets,
  string target_gen, mapping special) {
    string array words = explode(message, " ");
    string array control = copy(words);
    int i, maxi = sizeof(words);
    int verb_count = 0;
    int c;

    switch(pov) {
    case POV_SUBJECT:
        for(i=0; i<maxi; i++) {
            string punctuation = "";

            if( words[i] == "" ) {
                continue;
            }
            else if( words[i][0] == '\\' ) {
                if( strlen(words[i]) < 2 ) {
                    continue;
                }
                if( words[i][1] != '$' ) {
                    continue;
                }
                words[i] = words[i][1..];
                continue;
            }
            else if( words[i][0] != '$' ) {
                continue;
            }
            while( words[i] != "" ) { // break this or hang
                c = words[i][<1];
                if( c < 'a' || c > 'z' ) {
                    punctuation = words[i][<1..<1] + punctuation;
                    words[i] = words[i][0..<2];
                }
                else {
                    break;
                }
            }
            switch(words[i]) {
            case "$agent_verb":
                words[i] = verb[verb_count++];
                break;

            case "$agent_name": case "$agent_nominative":
            case "$agent_objective":
                words[i] = "you";
                break;

            case "$agent_possessive_noun":
                words[i] = "your";
                break;

            case "$agent_possessive":
                words[i] = "your";
                break;

            case "$agent_reflexive":
                words[i] = "yourself";
                break;

            case "$target_verb":
                if( targets == subject ) {
                    words[i] = verb[verb_count];
                }
                else {
                    if( target_gen == "plural" ) {
                        words[i] = verb[verb_count];
                    }
                    else {
                        words[i] = pluralize(verb[verb_count]);
                    }
                }
                verb_count++;
                break;

            case "$target_name":
                if( subject == targets ) { // subject? object?
                    if( i == 0 ) { // certainly subject
                        words[i] = "you";
                    }
                    else if( i == sizeof(words)-1 ) { // probably object
                        words[i] = "yourself";
                    }
                    else if( words[i+1] == "$target_verb" ) { // subject?
                        words[i] = "you";
                    }
                    else if(member_array("$agent_verb",control[0..i]) != -1 ) {
                        words[i] = "yourself"; // getting desperate here
                    }
                    else { // Oh hell
                        words[i] = "you";
                    }
                }
                else {
                    words[i] = targets;
                }
                break;

            case "$target_nominative":
                if( subject == targets ) {
                    words[i] = "you";
                }
                else {
                    if( !target_gen ) {
                        words[i] = targets;
                    }
                    else if( target_gen == "plural" ) {
                        words[i] = "they";
                    }
                    else {
                        words[i] = nominative(target_gen);
                    }
                }
                break;

            case "$target_objective":
                if( subject == targets ) {
                    words[i] = "yourself";
                }
                else {
                    if( !target_gen ) {
                        words[i] = targets;
                    }		    
                    else if( target_gen == "plural" ) {
                        words[i] = "them";
                    }
                    else {
                        words[i] = objective(target_gen);
                    }
                }
                break;

            case "$target_possessive_noun":
                if( subject == targets ) {
                    words[i] = "your";
                }
                else {
                    if( !target_gen ) {
                        words[i] = possessive_noun(targets);
                    }
                    else if( target_gen == "plural" ) {
                        words[i] = "their";
                    }
                    else {
                        words[i] = possessive_noun(targets);
                    }
                }
                break;

            case "$target_possessive":
                if( subject == targets ) {
                    words[i] = "your";
                }
                else {
                    if( !target_gen ) {
                        words[i] = possessive_noun(targets);
                    }
                    else if( target_gen == "plural" ) {
                        words[i] = "their";
                    }
                    else {
                        words[i] = possessive(target_gen);
                    }
                }
                break;

            case "$target_reflexive":
                if( subject == targets ) {
                    words[i] = "yourself";
                }
                else {
                    if( !target_gen ) {
                        words[i] = targets;
                    }
                    else if( target_gen == "plural" ) {
                        words[i] = "themselves";
                    }
                    else {
                        words[i] = reflexive(target_gen);
                    }
                }
                break;

            default:
                if( special[words[i]] ) {
                    words[i] = special[words[i]];
                }
            }
            words[i] = words[i] + punctuation;
        }
        return capitalize(implode(words, " "));

    case POV_TARGET:
        for(i=0; i<maxi; i++) {
            string punctuation = "";

            if( words[i] == "" ) {
                continue;
            }
            else if( words[i][0] == '\\' ) {
                if( strlen(words[i]) < 2 ) {
                    continue;
                }
                if( words[i][1] != '$' ) {
                    continue;
                }
                words[i] = words[i][1..];
                continue;
            }
            else if( words[i][0] != '$' ) {
                continue;
            }
            while( words[i] != "" ) { // break this or hang
                c = words[i][<1];
                if( c < 'a' || c > 'z' ) {
                    punctuation = words[i][<1..<1] + punctuation;
                    words[i] = words[i][0..<2];
                }
                else {
                    break;
                }
            }
            switch(words[i]) {
            case "$agent_verb":
                words[i] = pluralize(verb[verb_count++]);
                break;

            case "$agent_name":
                words[i] = subject;
                break;

            case "$agent_nominative":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = nominative(subject_gen);
                }
                break;

            case "$agent_objective":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = objective(subject_gen);
                }
                break;

            case "$agent_possessive_noun":
                words[i] = possessive_noun(subject);
                break;

            case "$agent_possessive":
                if( !subject_gen ) {
                    words[i] = possessive_noun(subject);
                }
                else {
                    words[i] = possessive(subject_gen);
                }
                break;

            case "$agent_reflexive":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = reflexive(subject_gen);
                }
                break;

            case "$target_verb":
                words[i] = verb[verb_count++];
                break;

            case "$target_name": case "$target_nominative":
            case "$target_objective":
                words[i] = "you";
                break;

            case "$target_possessive_noun":
                words[i] = "your";
                break;

            case "$target_possessive":
                words[i] = "your";
                break;

            case "$target_reflexive":
                words[i] = "yourself";
                break;

            default:
                if( special[words[i]] ) {
                    words[i] = special[words[i]];
                }
            }
            words[i] = words[i] + punctuation;
        }
        return capitalize(implode(words, " "));

    case POV_OBSERVER:
        for(i=0; i<maxi; i++) {
            string punctuation = "";

            if( words[i] == "" ) {
                continue;
            }
            else if( words[i][0] == '\\' ) {
                if( strlen(words[i]) < 2 ) {
                    continue;
                }
                if( words[i][1] != '$' ) {
                    continue;
                }
                words[i] = words[i][1..];
                continue;
            }
            else if( words[i][0] != '$' ) {
                continue;
            }
            while( words[i] != "" ) { // break this or hang
                c = words[i][<1];
                if( c < 'a' || c > 'z' ) {
                    punctuation = words[i][<1..<1] + punctuation;
                    words[i] = words[i][0..<2];
                }
                else {
                    break;
                }
            }
            switch(words[i]) {
            case "$agent_verb":
                //Following fixed line provided by Aransus @ Pyloros
                words[i] = ""+pluralize(verb[verb_count++]);
                break;

            case "$agent_name":
                words[i] = subject;
                break;

            case "$agent_nominative":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = nominative(subject_gen);
                }
                break;

            case "$agent_objective":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = objective(subject_gen);
                }
                break;

            case "$agent_possessive_noun":
                words[i] = possessive_noun(subject);
                break;

            case "$agent_possessive":
                if( !subject_gen ) {
                    words[i] = possessive_noun(subject);
                }
                else {
                    words[i] = possessive(subject_gen);
                }
                break;

            case "$agent_reflexive":
                if( !subject_gen ) {
                    words[i] = subject;
                }
                else {
                    words[i] = reflexive(subject_gen);
                }
                break;

            case "$target_verb":
                if( target_gen != "plural" ) {
                    words[i] = pluralize(verb[verb_count]);
                }
                else {
                    words[i] = verb[verb_count];
                }
                verb_count++;
                break;

            case "$target_name": 
                words[i] = targets;
                break;

            case "$target_nominative":
                if( !target_gen ) {
                    words[i] = targets;
                }
                else if( target_gen == "plural" ) {
                    words[i] = "they";
                }
                else {
                    words[i] = nominative(target_gen);
                }
                break;

            case "$target_objective":
                if( !target_gen ) {
                    words[i] = targets;
                }
                else if( target_gen == "plural" ) {
                    words[i] = "them";
                }
                else {
                    words[i] = objective(target_gen);
                }
                break;

            case "$target_possessive_noun":
                if( !target_gen ) {
                    words[i] = possessive_noun(targets);
                }
                else if( target_gen == "plural" ) {
                    words[i] = "their";
                }
                else {
                    words[i] = possessive_noun(targets);
                }
                break;

            case "$target_possessive":
                if( !target_gen ) {
                    words[i] = possessive_noun(targets);
                }
                else if( target_gen == "plural" ) {
                    words[i] = "their";
                }
                else {
                    words[i] = possessive(target_gen);
                }
                break;

            case "$target_reflexive":
                if( !target_gen ) {
                    words[i] = targets;
                }
                else if( target_gen == "plural" ) {
                    words[i] = "themselves";
                }
                else {
                    words[i] = reflexive(target_gen);
                }
                break;

            default:
                if( special[words[i]] ) {
                    words[i] = special[words[i]];
                }
            }
            words[i] = words[i] + punctuation;
        }
        return capitalize(implode(words, " "));

    default:
        error("Unknown POV type: " + pov + "\n");
    }
}

void send_messages(mixed verb, string message, object subject, mixed targets,
  mixed observers, mapping special) {
    string sname = subject->GetName();
    string sgen = (subject->GetGender() || "neuter");
    string tname, tgen;

    if( arrayp(targets) ) {
        if( !sizeof(targets) ) {
            tname = tgen = 0;
        }
        else if( sizeof(targets) == 1 ) {
            if( living(targets[0]) ) {
                tname = targets[0]->GetName();
                tgen = (targets[0]->GetGender() || "neuter");
            }
            else {
                tname = targets[0]->GetShort();
                tgen = "neuter";
            }
            targets = targets[0];
        }
        else {
            if( member_array(subject, targets) != -1 ) {
                targets -= ({ subject });
                if( sizeof(targets) == 1 ) {
                    if( living(targets[0]) ) {
                        tname = targets[0]->GetName();
                        tgen = (targets[0]->GetGender() || "neuter");
                    }
                    else {
                        tname = targets[0]->GetShort();
                        tgen = "neuter";
                    }
                    targets = targets[0];
                }
                else {
                    tname = item_list(targets);
                    tgen = "plural";
                }
            }
        }
    }
    else if( objectp(targets) ) {
        if( living(targets) ) {
            tname = targets->GetName();
            tgen = (targets->GetGender() || "neuter");
        }
        else {
            tname = targets->GetShort();
            tgen = "neuter";
        }
    }
    else {
        tname = 0;
        tgen = 0;
    }
    if( stringp(verb) ) {
        verb = ({ verb });
    }
    if( subject ) {
        string str = create_message(POV_SUBJECT, verb, message, sname, sgen,
          tname, tgen, special);

        subject->eventPrint(str);
    }
    if( targets && targets != subject ) {
        string str = create_message(POV_TARGET, verb, message, sname, sgen,
          tname, tgen, special);

        targets->eventPrint(str);
    }
    if( observers ) {
        string str = create_message(POV_OBSERVER, verb, message, sname, sgen,
          tname, tgen, special);
        object array exclude = ({});

        if( subject ) {
            exclude = ({ subject });
        }
        if( objectp(targets) ) {
            exclude = ({ exclude..., targets });
        }
        else if( arrayp(targets) ) {
            exclude = ({ exclude..., targets... });
        }
        observers->eventPrint(str, exclude);
    }
}