90 lines
3.2 KiB
C
90 lines
3.2 KiB
C
/* /daemon/services/tell.c
|
|
* from the Dead Souls LPC Library
|
|
* handles the IMP tell service
|
|
* created by Descartes of Borg 950507
|
|
*/
|
|
|
|
#define SERVICE_TELL
|
|
|
|
#include <daemons.h>
|
|
#include <message_class.h>
|
|
#ifndef PLAYER_INTERTELL_ALLOWED
|
|
#define PLAYER_INTERTELL_ALLOWED 0
|
|
#endif
|
|
|
|
void eventReceiveTell(mixed *packet) {
|
|
object ob, machine;
|
|
string who, ret;
|
|
string adverb = "";
|
|
string machine_message;
|
|
int nopriv;
|
|
PING_D->SetOK();
|
|
tn("eventReceiveTell: "+identify(packet),"black");
|
|
if( file_name(previous_object()) != INTERMUD_D ) return;
|
|
who = convert_name(packet[5]);
|
|
nopriv = (!creatorp(find_player(who)) && !PLAYER_INTERTELL_ALLOWED);
|
|
INSTANCES_D->SendTell(who, packet[7], packet[6] + "@" + packet[2]);
|
|
if( nopriv || (!(ob = find_player(who)) || ob->GetInvis() ||
|
|
(nopriv = (RESTRICTED_INTERMUD && !imud_privp(lower_case(who)))) )) {
|
|
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 }));
|
|
if(!(ob = find_player(who)) || nopriv) return;
|
|
adverb = " %^BOLD%^MAGENTA%^unknowingly%^BOLD%^RED%^";
|
|
}
|
|
machine=present("answering machine",ob);
|
|
if(machine && base_name(machine) == "/secure/obj/machine"){
|
|
int parse_it;
|
|
parse_it=machine->query_answer();
|
|
if(parse_it){
|
|
machine->get_message(packet[6] + "@" + packet[2]+
|
|
" tells you: "+packet[7]+"\n");
|
|
machine_message=machine->send_message();
|
|
return;
|
|
}
|
|
}
|
|
ret = "%^BOLD%^RED%^" + packet[6] + "@" + packet[2] +
|
|
adverb + " tells you:%^RESET%^ " + packet[7];
|
|
if(member_array(lower_case(packet[6]),ob->GetMuffed()) == -1 &&
|
|
member_array(lower_case(packet[2]),ob->GetMuffed()) == -1){
|
|
if(!machine_message){
|
|
ob->eventPrint(ret, MSG_CONV);
|
|
}
|
|
ob->eventTellHist(ret);
|
|
if(!sizeof(adverb)){
|
|
ob->SetProperty("reply", packet[6] + "@" + packet[2]);
|
|
ob->SetProperty("reply_time", time());
|
|
}
|
|
}
|
|
}
|
|
|
|
void eventSendTell(string who, string where, string msg) {
|
|
string pl, plc, ret;
|
|
|
|
pl = this_player(1)->GetName();
|
|
plc = this_player(1)->GetCapName();
|
|
where = INTERMUD_D->GetMudName(where);
|
|
|
|
// Quixadhal was here
|
|
if(RESTRICTED_INTERMUD) {
|
|
if(!imud_privp(lower_case(pl))) {
|
|
this_player(1)->eventPrint("You lack the power to send tells to other worlds.", MSG_CONV);
|
|
return;
|
|
}
|
|
}
|
|
if(!PLAYER_INTERTELL_ALLOWED && !creatorp(this_player())){
|
|
this_player()->eventPrint("You lack the authority to send tells to other worlds.", MSG_CONV);
|
|
return;
|
|
}
|
|
|
|
INTERMUD_D->eventWrite(({ "tell", 5, mud_name(), pl, where,
|
|
convert_name(who), plc, msg }));
|
|
ret = "%^BOLD%^RED%^You tell " + capitalize(who) +
|
|
"@" + where + ":%^RESET%^ " + msg;
|
|
this_player(1)->eventPrint(ret, MSG_CONV);
|
|
this_player(1)->eventTellHist(ret);
|
|
tn("eventSendTell: "+identify( ({ "tell", 5, mud_name(), pl, where, convert_name(who), plc, msg }) ), "red");
|
|
}
|