/* /secure/sefun/messaging.c
* From the Dead Souls Object Library
* Messaging efuns, based on ideas shamelessly borrowed from Lima
* Created by Descartes of Borg 961029
* Version: @(#) messaging.c 1.10@(#)
* Last modified: 96/12/16
*/
#include <pov.h>
string create_message(int pov, string array verb, string message,
string subject, string subject_gen, string targets,
string target_gen, mapping special) {
string array words = explode(message, " ");
string array control = copy(words);
int i, maxi = sizeof(words);
int verb_count = 0;
int c;
switch(pov) {
case POV_SUBJECT:
for(i=0; i<maxi; i++) {
string punctuation = "";
if( words[i] == "" ) {
continue;
}
else if( words[i][0] == '\\' ) {
if( strlen(words[i]) < 2 ) {
continue;
}
if( words[i][1] != '$' ) {
continue;
}
words[i] = words[i][1..];
continue;
}
else if( words[i][0] != '$' ) {
continue;
}
while( words[i] != "" ) { // break this or hang
c = words[i][<1];
if( c < 'a' || c > 'z' ) {
punctuation = words[i][<1..<1] + punctuation;
words[i] = words[i][0..<2];
}
else {
break;
}
}
switch(words[i]) {
case "$agent_verb":
words[i] = verb[verb_count++];
break;
case "$agent_name": case "$agent_nominative":
case "$agent_objective":
words[i] = "you";
break;
case "$agent_possessive_noun":
words[i] = "your";
break;
case "$agent_possessive":
words[i] = "your";
break;
case "$agent_reflexive":
words[i] = "yourself";
break;
case "$target_verb":
if( targets == subject ) {
words[i] = verb[verb_count];
}
else {
if( target_gen == "plural" ) {
words[i] = verb[verb_count];
}
else {
words[i] = pluralize(verb[verb_count]);
}
}
verb_count++;
break;
case "$target_name":
if( subject == targets ) { // subject? object?
if( i == 0 ) { // certainly subject
words[i] = "you";
}
else if( i == sizeof(words)-1 ) { // probably object
words[i] = "yourself";
}
else if( words[i+1] == "$target_verb" ) { // subject?
words[i] = "you";
}
else if(member_array("$agent_verb",control[0..i]) != -1 ) {
words[i] = "yourself"; // getting desperate here
}
else { // Oh hell
words[i] = "you";
}
}
else {
words[i] = targets;
}
break;
case "$target_nominative":
if( subject == targets ) {
words[i] = "you";
}
else {
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "they";
}
else {
words[i] = nominative(target_gen);
}
}
break;
case "$target_objective":
if( subject == targets ) {
words[i] = "yourself";
}
else {
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "them";
}
else {
words[i] = objective(target_gen);
}
}
break;
case "$target_possessive_noun":
if( subject == targets ) {
words[i] = "your";
}
else {
if( !target_gen ) {
words[i] = possessive_noun(targets);
}
else if( target_gen == "plural" ) {
words[i] = "their";
}
else {
words[i] = possessive_noun(targets);
}
}
break;
case "$target_possessive":
if( subject == targets ) {
words[i] = "your";
}
else {
if( !target_gen ) {
words[i] = possessive_noun(targets);
}
else if( target_gen == "plural" ) {
words[i] = "their";
}
else {
words[i] = possessive(target_gen);
}
}
break;
case "$target_reflexive":
if( subject == targets ) {
words[i] = "yourself";
}
else {
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "themselves";
}
else {
words[i] = reflexive(target_gen);
}
}
break;
default:
if( special[words[i]] ) {
words[i] = special[words[i]];
}
}
words[i] = words[i] + punctuation;
}
return capitalize(implode(words, " "));
case POV_TARGET:
for(i=0; i<maxi; i++) {
string punctuation = "";
if( words[i] == "" ) {
continue;
}
else if( words[i][0] == '\\' ) {
if( strlen(words[i]) < 2 ) {
continue;
}
if( words[i][1] != '$' ) {
continue;
}
words[i] = words[i][1..];
continue;
}
else if( words[i][0] != '$' ) {
continue;
}
while( words[i] != "" ) { // break this or hang
c = words[i][<1];
if( c < 'a' || c > 'z' ) {
punctuation = words[i][<1..<1] + punctuation;
words[i] = words[i][0..<2];
}
else {
break;
}
}
switch(words[i]) {
case "$agent_verb":
words[i] = pluralize(verb[verb_count++]);
break;
case "$agent_name":
words[i] = subject;
break;
case "$agent_nominative":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = nominative(subject_gen);
}
break;
case "$agent_objective":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = objective(subject_gen);
}
break;
case "$agent_possessive_noun":
words[i] = possessive_noun(subject);
break;
case "$agent_possessive":
if( !subject_gen ) {
words[i] = possessive_noun(subject);
}
else {
words[i] = possessive(subject_gen);
}
break;
case "$agent_reflexive":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = reflexive(subject_gen);
}
break;
case "$target_verb":
words[i] = verb[verb_count++];
break;
case "$target_name": case "$target_nominative":
case "$target_objective":
words[i] = "you";
break;
case "$target_possessive_noun":
words[i] = "your";
break;
case "$target_possessive":
words[i] = "your";
break;
case "$target_reflexive":
words[i] = "yourself";
break;
default:
if( special[words[i]] ) {
words[i] = special[words[i]];
}
}
words[i] = words[i] + punctuation;
}
return capitalize(implode(words, " "));
case POV_OBSERVER:
for(i=0; i<maxi; i++) {
string punctuation = "";
if( words[i] == "" ) {
continue;
}
else if( words[i][0] == '\\' ) {
if( strlen(words[i]) < 2 ) {
continue;
}
if( words[i][1] != '$' ) {
continue;
}
words[i] = words[i][1..];
continue;
}
else if( words[i][0] != '$' ) {
continue;
}
while( words[i] != "" ) { // break this or hang
c = words[i][<1];
if( c < 'a' || c > 'z' ) {
punctuation = words[i][<1..<1] + punctuation;
words[i] = words[i][0..<2];
}
else {
break;
}
}
switch(words[i]) {
case "$agent_verb":
//Following fixed line provided by Aransus @ Pyloros
words[i] = ""+pluralize(verb[verb_count++]);
break;
case "$agent_name":
words[i] = subject;
break;
case "$agent_nominative":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = nominative(subject_gen);
}
break;
case "$agent_objective":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = objective(subject_gen);
}
break;
case "$agent_possessive_noun":
words[i] = possessive_noun(subject);
break;
case "$agent_possessive":
if( !subject_gen ) {
words[i] = possessive_noun(subject);
}
else {
words[i] = possessive(subject_gen);
}
break;
case "$agent_reflexive":
if( !subject_gen ) {
words[i] = subject;
}
else {
words[i] = reflexive(subject_gen);
}
break;
case "$target_verb":
if( target_gen != "plural" ) {
words[i] = pluralize(verb[verb_count]);
}
else {
words[i] = verb[verb_count];
}
verb_count++;
break;
case "$target_name":
words[i] = targets;
break;
case "$target_nominative":
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "they";
}
else {
words[i] = nominative(target_gen);
}
break;
case "$target_objective":
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "them";
}
else {
words[i] = objective(target_gen);
}
break;
case "$target_possessive_noun":
if( !target_gen ) {
words[i] = possessive_noun(targets);
}
else if( target_gen == "plural" ) {
words[i] = "their";
}
else {
words[i] = possessive_noun(targets);
}
break;
case "$target_possessive":
if( !target_gen ) {
words[i] = possessive_noun(targets);
}
else if( target_gen == "plural" ) {
words[i] = "their";
}
else {
words[i] = possessive(target_gen);
}
break;
case "$target_reflexive":
if( !target_gen ) {
words[i] = targets;
}
else if( target_gen == "plural" ) {
words[i] = "themselves";
}
else {
words[i] = reflexive(target_gen);
}
break;
default:
if( special[words[i]] ) {
words[i] = special[words[i]];
}
}
words[i] = words[i] + punctuation;
}
return capitalize(implode(words, " "));
default:
error("Unknown POV type: " + pov + "\n");
}
}
void send_messages(mixed verb, string message, object subject, mixed targets,
mixed observers, mapping special) {
string sname = subject->GetName();
string sgen = (subject->GetGender() || "neuter");
string tname, tgen;
if( arrayp(targets) ) {
if( !sizeof(targets) ) {
tname = tgen = 0;
}
else if( sizeof(targets) == 1 ) {
if( living(targets[0]) ) {
tname = targets[0]->GetName();
tgen = (targets[0]->GetGender() || "neuter");
}
else {
tname = targets[0]->GetShort();
tgen = "neuter";
}
targets = targets[0];
}
else {
if( member_array(subject, targets) != -1 ) {
targets -= ({ subject });
if( sizeof(targets) == 1 ) {
if( living(targets[0]) ) {
tname = targets[0]->GetName();
tgen = (targets[0]->GetGender() || "neuter");
}
else {
tname = targets[0]->GetShort();
tgen = "neuter";
}
targets = targets[0];
}
else {
tname = item_list(targets);
tgen = "plural";
}
}
}
}
else if( objectp(targets) ) {
if( living(targets) ) {
tname = targets->GetName();
tgen = (targets->GetGender() || "neuter");
}
else {
tname = targets->GetShort();
tgen = "neuter";
}
}
else {
tname = 0;
tgen = 0;
}
if( stringp(verb) ) {
verb = ({ verb });
}
if( subject ) {
string str = create_message(POV_SUBJECT, verb, message, sname, sgen,
tname, tgen, special);
subject->eventPrint(str);
}
if( targets && targets != subject ) {
string str = create_message(POV_TARGET, verb, message, sname, sgen,
tname, tgen, special);
targets->eventPrint(str);
}
if( observers ) {
string str = create_message(POV_OBSERVER, verb, message, sname, sgen,
tname, tgen, special);
object array exclude = ({});
if( subject ) {
exclude = ({ subject });
}
if( objectp(targets) ) {
exclude = ({ exclude..., targets });
}
else if( arrayp(targets) ) {
exclude = ({ exclude..., targets... });
}
observers->eventPrint(str, exclude);
}
}
