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


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

private string *RestrictedChannels;
private static mapping Channels;

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

static string chat_command(string str) {
    string cmd, arg;
    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", cmd) == 1 && Channels[cmd] ) {
        if( (int)CHAT_D->cmdChannel(cmd+"emote", 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() {
    catch(CHAT_D->eventRemoveMember(keys(Channels)));
    return 1;
}

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;
    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");
    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); }

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 + ({})); }