/*    /lib/chat.c
 *    from the Dead Souls LPC Library
 *    chat enabling object
 *    created by Descartes of Borg 950323
 */

#include <lib.h>
#include <daemons.h>
#include "include/chat.h"

private string *RestrictedChannels;
private static mapping Channels;
private int NoChanColors = 0;
private int local_mute, remote_mute, local_gag, remote_gag;

static void create(){
    RestrictedChannels = ({ });
    Channels = ([ ]);
}

mapping returnChannels(){
    return Channels;
}

static string chat_command(string str){
    string cmd, arg, tmp;
    int x;

    if( (x = strsrch(str, " ")) == -1){
        cmd = str;
        arg = "";
    }
    else {
        cmd = str[0..(x-1)];
        arg = str[(x+1)..];
    }
    if( cmd == "list" && (int)CHAT_D->cmdChannel(cmd, arg) ) return "";
    else if( Channels[cmd] && (int)CHAT_D->cmdChannel(cmd, arg) ) return "";
    else if( (sscanf(cmd, "%semote", tmp) || sscanf(cmd, "%s:", tmp)
                || sscanf(cmd, "%s|%*s", tmp))
            && Channels[tmp] ){
        if( (int)CHAT_D->cmdChannel(cmd, arg) ) return "";
        else return str;
    }
    else return str;
}

static void net_dead(){
    CHAT_D->eventRemoveMember(keys(Channels));
}

void eventReconnect(){
    CHAT_D->eventRegisterMember(keys(Channels));
}

int eventDestruct(){
    if(CHAT_D->eventRemoveMember(keys((Channels || ([]))))) return 1;
    else return 0;
}

string *AddChannel(mixed val){
    string *tmp;
    int i, maxi;

    if( stringp(val) ) val = ({ val });
    else if( !pointerp(val) ) error("Bad argument 1 to AddChannel().\n");
    val = val - RestrictedChannels;
    if(arrayp(val)){
        foreach(string channel in val){
            if(this_player()->GetExtraChannels() &&
                    member_array(channel,this_player()->GetExtraChannels()) == -1){
                this_player()->AddExtraChannels( ({ channel }) );
            }
        }
    }
    tmp = (string *)CHAT_D->eventRegisterMember(val);
    for(i=0, maxi = sizeof(tmp); i < maxi; i++) Channels[tmp[i]] = 1;
    return keys(Channels);
}

string *RemoveChannel(mixed val){
    string *tmp;
    int i, maxi;

    if( stringp(val) ) val = ({ val });
    else if( !pointerp(val) ) error("Bad argument 1 to RemoveChannel().\n");
    if(arrayp(val)){
        foreach(string channel in val){
            if(member_array(channel,this_player()->GetExtraChannels()) != -1){
                this_player()->RemoveExtraChannels( ({ channel }) );
            }
        }
    }
    tmp = (string *)CHAT_D->eventRemoveMember(val);
    for(i=0, maxi = sizeof(tmp); i < maxi; i++) map_delete(Channels, tmp[i]);
    return keys(Channels);
}

string *GetChannels(){ return keys(Channels); }

int GetNoChanColors(){
    return NoChanColors;
}

int SetNoChanColors(int x){
    if(x) NoChanColors = 1;
    else NoChanColors = 0;
    return NoChanColors;
}

string *RestrictChannel(mixed val){
    if( stringp(val) ) val = ({ val });
    else if( !pointerp(val) ) error("Bad argument 1 to RestrictChannel().\n");

    // Only allow restriction of channels that are possesed by the object.
    val = filter(val, (:Channels[$1]:));
    RestrictedChannels = distinct_array(RestrictedChannels + val);
    RemoveChannel(val);
    return RestrictedChannels;
}

string *UnrestrictChannel(mixed val){
    if( stringp(val) ) val = ({ val });
    else if( !pointerp(val) ) error("Bad argument 1 to UnrestrictChannel().\n");

    // Only add channels that where restricted.
    val = filter(val, (:member_array($1, RestrictedChannels) != -1:));
    RestrictedChannels -= val;
    AddChannel(val);
    return RestrictedChannels;
}

string *GetRestrictedChannels(){ return (RestrictedChannels + ({})); }

int GetMutedType(string type){
    if(type == "local" && local_mute) return 1;
    if(type == "remote" && remote_mute) return 1;
    if(type == "all" && remote_mute && local_mute) return 1;
    return 0;
}

int GetMuted(string channel){
    channel = CHAT_D->GetRemoteChannel(channel);
    //channel = CHAT_D->GetLocalChannel(channel);
    if(remote_mute 
            && member_array(channel, CHAT_D->GetRemoteChannels()) != -1
            && member_array(channel, CHAT_D->GetLocalChannels()) == -1){
        return 1;
    }
    if(local_mute
            && ( member_array(channel, CHAT_D->GetRemoteChannels()) == -1
                || member_array(channel, CHAT_D->GetLocalChannels()) != -1)){
        return 1;
    }
    return 0;
}

int SetMuted(string type, mixed whether){
    if(undefinedp(whether) || !intp(whether)) whether = 1;
    if(!type) type = "all";
    switch(type){
        case "local" :
            local_mute = whether;
        break;
        case "remote" :
            remote_mute = whether;
        break;
        case "all" :
            local_mute = whether;
        remote_mute = whether;
        break;
    }
    return whether;
}

int GetGaggedType(string type){
    if(type == "local" && local_gag) return 1;
    if(type == "remote" && remote_gag) return 1;
    if(type == "all" && remote_gag && local_gag) return 1;
    return 0;
}

int GetGagged(string channel){
    channel = CHAT_D->GetRemoteChannel(channel);
    //channel = CHAT_D->GetLocalChannel(channel);
    if(remote_gag
            && member_array(channel, CHAT_D->GetRemoteChannels()) != -1
            && member_array(channel, CHAT_D->GetLocalChannels()) == -1){
        return 1;
    }
    if(local_gag
            && ( member_array(channel, CHAT_D->GetRemoteChannels()) == -1
                || member_array(channel, CHAT_D->GetLocalChannels()) != -1)){
        return 1;
    }
    return 0;
}

int SetGagged(string type, mixed whether){
    if(undefinedp(whether) || !intp(whether)) whether = 1;
    if(!type) type = "all";
    switch(type){
        case "local" :
            local_gag = whether;
        break;
        case "remote" :
            remote_gag = whether;
        break;
        case "all" :
            local_gag = whether;
        remote_gag = whether;
        break;
    }
    return whether;
}