/*    /daemon/services/emoteto.c
 *    from the Foundation II Object Library
 *    handles the I3 emoteto service
 *    created by Descartes of Borg 950914
 */

#define SERVICE_EMOTETO

#include <daemons.h>

void eventReceiveEmote(mixed *packet) {
    object ob;
    string who;
    PING_D->SetOK();
    tn("eventReceiveEmote: "+identify(packet), "green");
    if( file_name(previous_object()) != INTERMUD_D ) return;
    who = convert_name(packet[5]);
    if( !(ob = find_player(who)) || ob->GetInvis() ) {
        INTERMUD_D->eventWrite(({ "error", 5, mud_name(), 0, packet[2],
                    packet[3], "unk-user", 
                    capitalize(packet[5]) + " is nowhere to "
                    "be found on " + mud_name() + ".",
                    packet }));
        return;
    }
    packet[7] = replace_string(packet[7], "$N", packet[6] + "@" + packet[2]);
    message("emote", packet[7], ob);
}

void eventSendEmote(string who, string where, string msg) {
    string pl, plc;

    pl = this_player(1)->GetKeyName();
    plc = this_player(1)->GetCapName();
    where = INTERMUD_D->GetMudName(where);
    INTERMUD_D->eventWrite(({ "emoteto", 5, mud_name(), pl, where, 
                convert_name(who), plc, msg }));
    tn("eventSendEmote: "+identify( "emoteto", 5, mud_name(), pl, where,convert_name(who), plc, msg  ),"green");
}