/*    /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;

    if( file_name(previous_object()) != INTERMUD_D ) return;
    who = convert_name(packet[5]);
    if( !(ob = find_player(who)) || (int)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 = (string)this_player(1)->GetKeyName();
    plc = (string)this_player(1)->GetCapName();
    where = (string)INTERMUD_D->GetMudName(where);
    INTERMUD_D->eventWrite(({ "emoteto", 5, mud_name(), pl, where, 
	convert_name(who), plc, msg }));
}