/*    /lib/talk.c
 *    from the Dead Souls  Object Library
 *    handles general yapping
 *    created by Descartes of Borg 951118
 *    Version: @(#) talk.c 1.5@(#)
 *    Last Modified: 96/10/08
 */

#include <talk_type.h>
#include <commands.h>
#include <daemons.h>
#include <message_class.h>
#include "include/talk.h"
#define MAX_TELL_HIST_SIZE  50

private mixed TalkHist = ([]);
private string SpeakColor = "CYAN%^";

int GetPolyglot();

int direct_ask_liv_str(){ return 1; }

int direct_ask_liv_to_str(){ return 1; }

int direct_ask_liv_for_str(){ return 1; }

int direct_ask_liv_about_str(){ return 1; }

int direct_request_str_from_liv(){ return 1; }

int direct_say_to_liv(){ return 1; }

int direct_say_to_liv_str(){ return 1; }

int direct_whisper_to_liv(){ return 1; }

int direct_whisper_in_wrd_to_liv(){ return 1; }

int direct_whisper_to_liv_str(){ return 1; }

int direct_whisper_in_wrd_to_liv_str(){ return 1; }

int direct_whisper_to_liv_in_wrd_str(){ return 1; }

string SetSpeakColor(string str){
    if(!str) str = "foo";
    switch(str){
        case "red" : SpeakColor = upper_case(str)+"%^";break;
        case "green" : SpeakColor = upper_case(str)+"%^";break;
        case "orange" : SpeakColor = upper_case(str)+"%^";break;
        case "yellow" : SpeakColor = upper_case(str)+"%^";break;
        case "blue" : SpeakColor = upper_case(str)+"%^";break;
        case "magenta" : SpeakColor = upper_case(str)+"%^";break;
        case "black" : SpeakColor = upper_case(str)+"%^";break;
        case "white" : SpeakColor = upper_case(str)+"%^";break;
        case "b_red" : SpeakColor += upper_case(str)+"%^";break;
        case "b_green" : SpeakColor += upper_case(str)+"%^";break;
        case "b_orange" : SpeakColor += upper_case(str)+"%^";break;
        case "b_yellow" : SpeakColor += upper_case(str)+"%^";break;
        case "b_blue" : SpeakColor += upper_case(str)+"%^";break;
        case "b_magenta" : SpeakColor += upper_case(str)+"%^";break;
        case "b_black" : SpeakColor += upper_case(str)+"%^";break;
        case "b_white" : SpeakColor += upper_case(str)+"%^";break;
        case "b_cyan" : SpeakColor += upper_case(str)+"%^";break;
        case "flash" : SpeakColor += upper_case(str)+"%^";break;
        default : SpeakColor = "CYAN%^";break;
    }
    return SpeakColor;
}

string GetSpeakColor(){ return SpeakColor; }

int eventTellHist(string str){
    string pob = base_name(previous_object());
    string stack = implode(call_stack(2)," ");
    string tz = this_object()->GetProperty("timezone");
    if(!tz || !valid_timezone(tz)) tz = query_tz();
    if(!TalkHist) TalkHist = ([]);
    if(!TalkHist["tell"]) TalkHist["tell"] = ({});
    if(pob != SERVICES_D && pob != CMD_TELL &&
            pob != IMC2_D && pob != INSTANCES_D &&
            stack != "eventTellHist eventHearTalk eventSpeak cmd cmdAll <function>" &&
            stack != "eventTellHist eventHearTalk eventSpeak cmd cmd cmdAll <function>"){
        return 0; 
    }
    if(sizeof(TalkHist["tell"]) > MAX_TELL_HIST_SIZE){
        TalkHist["tell"] -= ({ TalkHist["tell"][0] });
    }
    TalkHist["tell"] += ({ timestamp(tz)+" "+str });
    return 1;
}

string array GetTellHistory(){
    if(!TalkHist) TalkHist = ([]);     
    if(!TalkHist["tell"]) TalkHist["tell"] = ({});
    if(this_object() != this_player() && !archp(this_player()))
        return ({});
    return copy(TalkHist["tell"]);
}

int eventTalkHist(string str, string type){
    string pob = base_name(previous_object());
    string stack = implode(call_stack(2)," ");
    string tz = this_object()->GetProperty("timezone");
    if(!tz || !valid_timezone(tz)) tz = query_tz();
    if(!TalkHist) TalkHist = ([]);
    if(!TalkHist[type]) TalkHist[type] = ({});
    if(sizeof(TalkHist[type]) > MAX_TELL_HIST_SIZE){
        TalkHist[type] -= ({ TalkHist[type][0] });
    }
    TalkHist[type] += ({ timestamp(tz)+" "+str });
    return 1;
}

string array GetTalkHistory(string type){
    if(!type) type = "say";
    if(!TalkHist) TalkHist = ([]);     
    if(!TalkHist[type]) TalkHist[type] = ({});
    if(this_object() != this_player() && !archp(this_player()))
        return ({});
    return copy(TalkHist[type]);
}

string array GetTalkHistTypes(){
    if(!TalkHist) TalkHist = ([]);
    return keys(TalkHist);
}

varargs mixed CanSpeak(object target, string verb, string msg, string lang){
    if(!this_player()->CanBreathe()){
        return "You can't even breathe.";
    }
    if( lang && (!GetLanguageLevel(lang) || !GetLanguageName(lang)) )
        return "You don't speak that language!";
    if( target ){
        if( target == this_object() )
            return "Are you really intent on talking to yourself?";
        if( userp(target) && !interactive(target) )
            return (string)target->GetName() + " is net-dead.";
        if( (int)target->GetBlocked("tell") )
            return (string)target->GetName() + " is blocking all tells.";
    }
    return 1;
}

varargs mixed eventHearTalk(object who, object target, int cls, string verb,
        string msg, string lang){
    string tmp;
    object *riders = this_object()->GetRiders() - ({ who });

    if(riders && sizeof(riders)) 
        riders->eventHearTalk(who, target, cls, verb, (msg ||0), (lang ||0));

    if( lang && !newbiep() && !GetPolyglot() ) msg = translate(msg, GetLanguageLevel(lang));
    switch(cls){
        case TALK_PRIVATE:
            if( target != this_object() ) return 0;
            if( verb == "reply" )
                tmp = "%^BOLD%^RED%^" + (string)who->GetName() +
                    " replies,%^RESET%^ \"" + msg + "%^RESET%^\"";
            else tmp = "%^BOLD%^RED%^" + (string)who->GetName() +
                " tells you,%^RESET%^ \"" + msg + "%^RESET%^\"";
            if(target->GetMuffed() && member_array(who->GetKeyName(),target->GetMuffed()) == -1){
                eventTellHist(tmp);
                this_object()->eventPrint(tmp, MSG_CONV);
            }
            break;

        case TALK_SEMI_PRIVATE:
            if( target != this_object() ) return 0;
            tmp = "%^BOLD%^" + SpeakColor + (string)who->GetName() + " whispers in " +
                capitalize(lang) + " to you,%^RESET%^ \"" + msg + "%^RESET%^\"";
            this_object()->eventPrint(tmp, MSG_CONV);
            eventTalkHist(tmp, "whisper");
            break;

        case TALK_LOCAL:
            if( target ){
                if( target != this_object() ){
                    if( msg[<1] == '?' ) tmp = (string)target->GetName();
                    else tmp = "to " + (string)target->GetName();
                    if( lang ) tmp += " in " + capitalize(lang);
                }
                else {
                    if( msg[<1] == '?' ) tmp = "you";
                    else tmp = "to you";
                    if( lang ) tmp += " in " + capitalize(lang);
                }
                tmp = (string)who->GetName() + " " + pluralize(verb) + " " + tmp +
                    ", \"";
                tmp = tmp + "%^BOLD%^CYAN%^\"" + msg + "%^RESET%^\"";
                eventTalkHist(tmp, "say");
                this_object()->eventPrint(tmp, MSG_CONV);
            }
            else if( verb == "yell" ){
                tmp = "%^BOLD%^GREEN%^You hear a " + (string)who->GetGender()
                    + " " + (string)who->GetRace() + " yell in " + capitalize(lang) +
                    " from a distance,%^RESET%^ \"" + msg + "%^RESET%^\"";
                eventTalkHist(tmp, "yell");
                this_object()->eventPrint(tmp, MSG_CONV);
            }
            else {
                if( lang ) tmp = pluralize(verb) + " in " + capitalize(lang);
                else tmp = pluralize(verb);
                tmp = (string)who->GetName() + " " + tmp + ", \"";
                tmp = tmp + "%^BOLD%^" + SpeakColor + msg + "%^RESET%^\"";
                this_object()->eventPrint(tmp, MSG_CONV);
                eventTalkHist(tmp, verb);
            }
            break;

        case TALK_AREA:
            tmp = "%^BOLD%^GREEN%^" + (string)who->GetName() + " yells in " +
                capitalize(lang) + ",%^RESET%^ \"" + msg + "%^RESET%^\"";
            eventTalkHist(tmp, "yell");
            this_object()->eventPrint(tmp, MSG_CONV);
            break;

        case TALK_WORLD:
            tmp = "%^BOLD%^BLUE%^" + (string)who->GetName() + " shouts in " +
                capitalize(lang) + ",%^RESET%^ \"" + msg + "%^RESET%^\"";
            eventTalkHist(tmp, "shout");
            this_object()->eventPrint(tmp, MSG_CONV); 
            break;

        default:
            return 0;
    }
    eventTalkRespond(who, target, cls, msg, lang);
    return 1;
}

mixed eventTalkRespond(object who, object targ, int cls, string msg, string lang){
    return true(who,targ,cls,msg,lang);
}

varargs mixed eventSpeak(object target, int cls, string msg, string lang){
    string verb, tmp;
    int cols;
    object env;

    if( living(environment()) ){
        object *riders = environment()->GetRiders();
        if(riders && sizeof(riders) ){
            if(member_array(this_object(),riders) != -1){
                if(environment()->GetVisibleRiders())
                    env = environment(environment());
            }
        }
    }

    if(!env) env = environment();

    if( lang && !GetPolyglot() ){
        msg = translate(msg, GetLanguageLevel(lang));
        lang = GetLanguageName(lang);
    }
    cols = GetScreen()[0];
    if( msg[<1] != '?' && msg[<1] != '!' && msg[<1] != '.' )
        msg = capitalize(msg) + ".";
    else msg = capitalize(msg);
    switch( cls ){
        case TALK_PRIVATE:
            tmp = "%^BOLD%^RED%^You tell " + (string)target->GetName() +
                ",%^RESET%^ \"" + msg + "%^RESET%^\"";
            this_object()->eventPrint(tmp, MSG_CONV);	
            target->eventHearTalk(this_object(), target, cls, "tell", msg);
            eventTellHist(tmp);
            return 1;

        case TALK_SEMI_PRIVATE:
            if( !target ) tmp = "%^BOLD%^CYAN%^You whisper in " + capitalize(lang) +
                ",%^RESET%^ \"" + msg + "%^RESET%^\"";
            else tmp = "%^BOLD%^CYAN%^You whisper in " + capitalize(lang) + " to " +
                (string)target->GetName() + ",%^RESET%^ \"" + msg + "%^RESET%^\"";
            eventTalkHist(tmp, "whisper");
            this_object()->eventPrint(tmp, MSG_CONV);	
            env->eventHearTalk(this_object(), target, cls, "whisper",
                    msg, lang);
            return 1;

        case TALK_LOCAL:
            if( msg[<1] == '?' ) verb = GetMessage("ask") || "ask";
            else if( msg[<1] == '!' ) verb = GetMessage("exclaim") || "exclaim";
            else {
                verb = GetMessage("say") || "say";
                if ((msg[<1] >= 'a' && msg[<1] <= 'z') ||
                        (msg[<1] >= 'A' && msg[<1] <= 'Z')) msg = msg + ".";
            }
            if( target && msg[<1] == '?' ){
                tmp = "You " + verb + " " + (string)target->GetName();
                if( lang ) tmp = tmp + " in " + capitalize(lang);
            }
            else if( target ){
                tmp = "You " + verb + " to " + (string)target->GetName();
                if( lang ) tmp = tmp + " in " + capitalize(lang);
            }
            else {
                tmp = "You " + verb;
                if( lang ) tmp = tmp + " in " + capitalize(lang);
            }
            tmp = tmp + ", \"%^BOLD%^" + SpeakColor + msg + "%^RESET%^\"";
            eventTalkHist(tmp, "say");
            this_object()->eventPrint(tmp, MSG_CONV);
            env->eventHearTalk(this_object(), target, cls, verb, msg,
                    lang);
            return 1;

        case TALK_AREA:
            tmp = "%^BOLD%^GREEN%^You yell in " + capitalize(lang) + ",%^RESET%^ \"" +
                msg + "%^RESET%^\"";
            eventTalkHist(tmp, "yell");
            this_object()->eventPrint(tmp, MSG_CONV);   	
            env->eventHearTalk(this_object(), target, cls, "yell", msg,
                    lang);
            break;

        case TALK_WORLD:
            tmp = "%^BOLD%^BLUE%^You shout in " + capitalize(lang) + ",%^RESET%^ \"" +
                msg + "%^RESET%^\"";
            eventTalkHist(tmp, "shout");
            this_object()->eventPrint(tmp, MSG_CONV); 		
            INSTANCES_D->eventSendShout(msg, lang);
            (users() - ({ this_object() }))->eventHearTalk(this_object(), target,
                    cls,"shout", msg, lang);
            return 1;

        default:
            return 0;
    }
}