/* /secure/cmds/player/tell.c * from the Nightmare IV LPC Library * the tell command * created by Descartes of Borg 950523 */ #include <lib.h> #include <daemons.h> inherit LIB_DAEMON; int cmd(string str) { string *words; mixed mud; object ob; int i, maxi; string who, msg, tmp; if(!str) return notify_fail("Syntax: <tell [who] [message]>\n"); mud = 0; if((maxi=sizeof(words = explode(str, "@"))) > 1) { who = convert_name(words[0]); if(maxi > 2) words[1] = implode(words[1..maxi-1], "@"); maxi = sizeof(words = explode(words[1], " ")); for(i=0; i<maxi; i++) { string *mts; tmp = lower_case(implode(words[0..i], " ")); if( (string)INTERMUD_D->GetMudName(tmp) ) { mud = tmp; if(i+1 < maxi) msg = implode(words[i+1..maxi-1], " "); else msg = ""; break; } } if(msg == "") return notify_fail("Syntax: <tell [who] [message]>\n"); if(!mud) mud = -1; } if(!mud || mud == -1) { maxi = sizeof(words = explode(str, " ")); who = 0; for(i=0; i<maxi; i++) { if(ob=find_living(tmp=convert_name(implode(words[0..i], " ")))) { who = tmp; if(i+1 < maxi) msg = implode(words[i+1..maxi-1], " "); else msg = ""; break; } } if(!who) { if(!mud) return notify_fail("Tell whom what?\n"); else return notify_fail(mud_name()+" is not aware of that mud.\n"); } if(msg == "") return notify_fail("What do you wish to tell?\n"); } else { SERVICES_D->eventSendTell(who, mud, msg); return 1; } if(ob) { string frm; if(archp(ob)) frm = (string)this_player()->GetCapName(); else frm = (string)this_player()->GetName(); message("tell", frm + " tells you: "+msg, ob); if((int)ob->GetInvis(this_player()) || hiddenp(ob)) { ob->set_rproperty("reply", (string)this_player()->GetKeyName()); message("error", "Tell whom what?", this_player()); return 1; } else if(userp(ob) && !interactive(ob)) message("my_action", (string)ob->GetCapName()+ " is net-dead.", this_player()); else if(userp(ob) && (query_idle(ob) > 60)) message("my_action", (string)ob->GetName()+ " is idle and may not have been paying attention.", this_player()); else if((int)ob->GetBlocked("tell")) { message("my_action", (string)ob->GetName()+" is blocking "+ "all tells.", this_player()); return 1; } else if(in_edit(ob) || in_input(ob)) message("my_action", (string)ob->GetCapName()+" is in input "+ "and may not be able to respond.", this_player()); message("my_action", "You tell "+(string)ob->GetCapName()+ ": "+msg, this_player()); ob->SetProperty("reply", (string)this_player()->GetKeyName()); } return 1; } void help() { message("help", "Syntax: <tell [player] [message]>\n" " <tell [player]@[mud] [message]>\n\n" "Sends the message to the player named either on this mud if no " "mud is specified, or to the player named on another mud when " "another mud is specified. For muds with more than one word in their " "names, use . (periods) to take place of spaces. Example: tell " "descartes@realms.of.chaos hi\n\n" "See also: say, shout, yell, emote", this_player() ); } string morse(string msg) { mapping __Morse; string tmp; int x, i; __Morse = ([ "a" : ".-", "b" : "-...", "c" : "-.-.", "d" : "-..", "e" : ".", "f" : "..-.", "g" : "--.", "h" : "....", "i" : "..", "j" : ".---", "k" : "-.-", "l" : ".-..", "m" : "--", "n" : "-.", "o" : "---", "p" : ".--.", "q" : "--.-", "r" : " .-.", "s" : "...", "t" : "-", "u" : "..-", "v" : "...-", "w" : ".--", "x" : "-..-", "y" : "-.--", "z" : "--..", "1" : ".----", "2" : "..---", "3" : "...--", "4" : "....-", "5" : ".....", "6" : " -....", "7" : "--...", "8" : "---..", "9" : "----.","0" : " -----" ]); for(tmp = "", x = strlen(msg), i=0; i< x; i++) { if(__Morse[msg[i..i]]) tmp += __Morse[msg[i..i]]+" "; else tmp += msg[i..i]+ " "; } return tmp; }