/**************************************************************************** * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// * * -----------------------------------------------------------| (0...0) * * SMAUG 1.4 (C) 1994, 1995, 1996, 1998 by Derek Snider | ).:.( * * -----------------------------------------------------------| {o o} * * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ * * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek, |~'~.VxvxV.~'~* * Tricops and Fireblade | * * ------------------------------------------------------------------------ * * Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * ------------------------------------------------------------------------ * * Player communication module * ****************************************************************************/ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <string.h> #include <time.h> #ifdef REGEX #include <regex.h> #endif #ifdef FREEBSD #include <unistd.h> #include <regex.h> #endif #include "mud.h" #ifdef REGEX extern int re_exec _RE_ARGS ((const char *)); #endif /* #ifndef WIN32 #include <regex.h> #endif */ /* * Externals */ void send_obj_page_to_char(CHAR_DATA * ch, OBJ_INDEX_DATA * idx, char page); void send_room_page_to_char(CHAR_DATA * ch, ROOM_INDEX_DATA * idx, char page); void send_page_to_char(CHAR_DATA * ch, MOB_INDEX_DATA * idx, char page); void send_control_page_to_char(CHAR_DATA * ch, char page); void mpchkbot(CHAR_DATA *victim, char *argument ); /* * Local functions. */ void talk_channel args( ( CHAR_DATA *ch, char *argument, int channel, const char *verb ) ); char * scramble args( ( const char *argument, int modifier ) ); char * drunk_speech args( ( const char *argument, CHAR_DATA *ch ) ); void chatperform args( (CHAR_DATA *ch, CHAR_DATA *victim, char* msg, int trigfrom) ); void chatperformtoroom args( ( char *txt, CHAR_DATA *ch) ); /* * Profanity handler stuff (forgive me for what i must do) */ void add_profane_word( char * word); int is_profane (char *what); char *bigregex = NULL; char * preg; bool can_admin args ( (CHAR_DATA *ch) ); void undeaf_admin args ( () ); bool long_str_prefix( char *astr, char *bstr ) { int length = 0; int x = 0; if ( !astr ) { bug( "long_str_prefix: null astr." ); return TRUE; } if ( !bstr ) { bug( "long_str_prefix: null bstr." ); return TRUE; } length = strlen(bstr); for(x = 0; x < length; x++) { if(LOWER(astr[x]) != LOWER(bstr[x])) return TRUE; } return FALSE; } char *strip_char_prefix( char *aString, int count ) { static char bString[MAX_STRING_LENGTH]; int length = 0; int x = 0; int i = 0; if(!aString || count == 0) return aString; bString[0] = '\0'; length = strlen(aString); if (length > MAX_STRING_LENGTH) length = MAX_STRING_LENGTH; if (count > MAX_STRING_LENGTH) count = MAX_STRING_LENGTH; for(x = count; x <= length; x++) { bString[i] = aString[x]; i++; } length = strlen(bString); if(bString[length] != '\0') bString[length+1] = '\0'; return (bString); } bool can_admin(CHAR_DATA *ch) { DESCRIPTOR_DATA *d; CHAR_DATA *vch; for ( d = first_descriptor; d; d = d->next ) { vch = d->character; if (!vch) { continue; } if (IS_IMMORTAL(vch) && !xIS_SET(vch->deaf, CHANNEL_ADMIN) && !xIS_SET(vch->act, PLR_AFK) ) { return TRUE; } } return FALSE; } void undeaf_admin() { DESCRIPTOR_DATA *d; CHAR_DATA *vch; for ( d = first_descriptor; d; d = d->next ) { vch = d->character; if (!vch) { continue; } xREMOVE_BIT(vch->deaf, CHANNEL_ADMIN); } return ; } /* Text scrambler -- Altrag */ char *scramble( const char *argument, int modifier ) { static char arg[MAX_INPUT_LENGTH]; sh_int position; sh_int conversion = 0; modifier %= number_range( 80, 300 ); /* Bitvectors get way too large #s */ for ( position = 0; position < MAX_INPUT_LENGTH; position++ ) { if ( argument[position] == '\0' ) { arg[position] = '\0'; return arg; } else if ( argument[position] >= 'A' && argument[position] <= 'Z' ) { conversion = -conversion + position - modifier + argument[position] - 'A'; conversion = number_range( conversion - 5, conversion + 5 ); while ( conversion > 25 ) conversion -= 26; while ( conversion < 0 ) conversion += 26; arg[position] = conversion + 'A'; } else if ( argument[position] >= 'a' && argument[position] <= 'z' ) { conversion = -conversion + position - modifier + argument[position] - 'a'; conversion = number_range( conversion - 5, conversion + 5 ); while ( conversion > 25 ) conversion -= 26; while ( conversion < 0 ) conversion += 26; arg[position] = conversion + 'a'; } else if ( argument[position] >= '0' && argument[position] <= '9' ) { conversion = -conversion + position - modifier + argument[position] - '0'; conversion = number_range( conversion - 2, conversion + 2 ); while ( conversion > 9 ) conversion -= 10; while ( conversion < 0 ) conversion += 10; arg[position] = conversion + '0'; } else arg[position] = argument[position]; } arg[position] = '\0'; return arg; } /* I'll rewrite this later if its still needed.. -- Altrag char *translate( CHAR_DATA *ch, CHAR_DATA *victim, const char *argument ) { return ""; } */ LANG_DATA *get_lang(const char *name) { LANG_DATA *lng; for (lng = first_lang; lng; lng = lng->next) if (!str_cmp(lng->name, name)) return lng; return NULL; } /* percent = percent knowing the language. */ char *translate(int percent, const char *in, const char *name) { LCNV_DATA *cnv; static char buf[256]; char buf2[256]; const char *pbuf; char *pbuf2 = buf2; LANG_DATA *lng; if ( percent > 99 || !str_cmp(name, "common") ) return (char *) in; /* If we don't know this language... use "default" */ if ( !(lng = get_lang(name)) ) if ( !(lng = get_lang("default")) ) return (char *) in; for (pbuf = in; *pbuf;) { for (cnv = lng->first_precnv; cnv; cnv = cnv->next) { if (!str_prefix(cnv->old, pbuf)) { if ( percent && (rand() % 100) < percent ) { strncpy(pbuf2, pbuf, cnv->olen); pbuf2[cnv->olen] = '\0'; pbuf2 += cnv->olen; } else { strcpy(pbuf2, cnv->new); pbuf2 += cnv->nlen; } pbuf += cnv->olen; break; } } if (!cnv) { if (isalpha(*pbuf) && (!percent || (rand() % 100) > percent) ) { *pbuf2 = lng->alphabet[LOWER(*pbuf) - 'a']; if ( isupper(*pbuf) ) *pbuf2 = UPPER(*pbuf2); } else *pbuf2 = *pbuf; pbuf++; pbuf2++; } } *pbuf2 = '\0'; for (pbuf = buf2, pbuf2 = buf; *pbuf;) { for (cnv = lng->first_cnv; cnv; cnv = cnv->next) if (!str_prefix(cnv->old, pbuf)) { strcpy(pbuf2, cnv->new); pbuf += cnv->olen; pbuf2 += cnv->nlen; break; } if (!cnv) *(pbuf2++) = *(pbuf++); } *pbuf2 = '\0'; #if 0 for (pbuf = in, pbuf2 = buf; *pbuf && *pbuf2; pbuf++, pbuf2++) if (isupper(*pbuf)) *pbuf2 = UPPER(*pbuf2); /* Attempt to align spacing.. */ else if (isspace(*pbuf)) while (*pbuf2 && !isspace(*pbuf2)) pbuf2++; #endif return buf; } char *drunk_speech( const char *argument, CHAR_DATA *ch ) { const char *arg = argument; static char buf[MAX_INPUT_LENGTH*2]; char buf1[MAX_INPUT_LENGTH*2]; sh_int drunk; char *txt; char *txt1; if ( IS_NPC( ch ) || !ch->pcdata ) return (char *) argument; drunk = ch->pcdata->condition[COND_DRUNK]; if ( drunk <= 0 ) return (char *) argument; buf[0] = '\0'; buf1[0] = '\0'; if ( !argument ) { bug( "Drunk_speech: NULL argument", 0 ); return ""; } /* if ( *arg == '\0' ) return (char *) argument; */ txt = buf; txt1 = buf1; while ( *arg != '\0' ) { if ( toupper(*arg) == 'T' ) { if ( number_percent() < ( drunk * 2 ) ) /* add 'h' after an 'T' */ { *txt++ = *arg; *txt++ = 'h'; } else *txt++ = *arg; } else if ( toupper(*arg) == 'X' ) { if ( number_percent() < ( drunk * 2 / 2 ) ) { *txt++ = 'c', *txt++ = 's', *txt++ = 'h'; } else *txt++ = *arg; } else if ( number_percent() < ( drunk * 2 / 5 ) ) /* slurred letters */ { sh_int slurn = number_range( 1, 2 ); sh_int currslur = 0; while ( currslur < slurn ) *txt++ = *arg, currslur++; } else *txt++ = *arg; arg++; }; *txt = '\0'; txt = buf; while ( *txt != '\0' ) /* Let's mess with the string's caps */ { if ( number_percent() < ( 2 * drunk / 2.5 ) ) { if ( isupper(*txt) ) *txt1 = tolower( *txt ); else if ( islower(*txt) ) *txt1 = toupper( *txt ); else *txt1 = *txt; } else *txt1 = *txt; txt1++, txt++; }; *txt1 = '\0'; txt1 = buf1; txt = buf; while ( *txt1 != '\0' ) /* Let's make them stutter */ { if ( *txt1 == ' ' ) /* If there's a space, then there's gotta be a */ { /* along there somewhere soon */ while ( *txt1 == ' ' ) /* Don't stutter on spaces */ *txt++ = *txt1++; if ( ( number_percent() < ( 2 * drunk / 4 ) ) && *txt1 != '\0' ) { sh_int offset = number_range( 0, 2 ); sh_int pos = 0; while ( *txt1 != '\0' && pos < offset ) *txt++ = *txt1++, pos++; if ( *txt1 == ' ' ) /* Make sure not to stutter a space after */ { /* the initial offset into the word */ *txt++ = *txt1++; continue; } pos = 0; offset = number_range( 2, 4 ); while ( *txt1 != '\0' && pos < offset ) { *txt++ = *txt1; pos++; if ( *txt1 == ' ' || pos == offset ) /* Make sure we don't stick */ { /* A hyphen right before a space */ txt1--; break; } *txt++ = '-'; } if ( *txt1 != '\0' ) txt1++; } } else *txt++ = *txt1++; } *txt = '\0'; return buf; } /* * Generic channel function. */ void talk_channel( CHAR_DATA *ch, char *argument, int channel, const char *verb ) { char buf[MAX_STRING_LENGTH]; char buf2[MAX_STRING_LENGTH]; char buf_invis[MAX_STRING_LENGTH]; char arg1[MAX_STRING_LENGTH]; DESCRIPTOR_DATA *d; int dinum = 0; int dival = 0; int position; CHAR_DATA *admVict = NULL; char admName[MAX_STRING_LENGTH]; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif if (IS_NPC(ch) && is_split(ch) ) return; if ( IS_NPC( ch ) && channel == CHANNEL_CLAN ) { send_to_char( "Mobs can't be in clans.\n\r", ch ); return ; } if ( IS_NPC( ch ) && channel == CHANNEL_ORDER ) { send_to_char( "Mobs can't be in orders.\n\r", ch ); return ; } if ( IS_NPC( ch ) && channel == CHANNEL_COUNCIL ) { send_to_char( "Mobs can't be in councils.\n\r", ch); return ; } if ( IS_NPC( ch ) && channel == CHANNEL_GUILD ) { send_to_char( "Mobs can't be in guilds.\n\r", ch ); return ; } if ( !IS_PKILL( ch ) && channel == CHANNEL_WARTALK ) { if ( !IS_IMMORTAL( ch ) ) { send_to_char( "Peacefuls have no need to use wartalk.\n\r", ch ); return ; } } if ( xIS_SET( ch->in_room->room_flags, ROOM_SILENCE ) ) { send_to_char( "You can't do that here.\n\r", ch ); return ; } if ( IS_NPC( ch ) && IS_AFFECTED( ch, AFF_CHARM ) ) { if ( ch->master ) send_to_char( "I don't think so...\n\r", ch->master ); return ; } if ( argument[0] == '\0' ) { sprintf( buf, "%s what?\n\r", verb ); buf[0] = UPPER(buf[0]); send_to_char( buf, ch ); /* where'd this line go? */ return ; } if ( !IS_NPC(ch) && xIS_SET(ch->act, PLR_SILENCE) ) { ch_printf( ch, "You can't %s.\n\r", verb ); return ; } if (xIS_SET(ch->deaf, CHANNEL_FOS) && channel == CHANNEL_FOS) { send_to_char( "&RThe 'Freedom of Speech' channel is &WNOT &Rmoderated by administrators.\n\r", ch ); send_to_char( "&RThis channel may contain vulgar language, obscene gestures, adult situations,\n\r", ch ); send_to_char( "&Rfull frontal nudity, and graphic violence. Then again...it may not.\n\r", ch ); send_to_char( "&RYou &WMUST &Rbe at least 18 years of age to use or have this channel active.\n\r", ch ); send_to_char( "&RIf you are not 18, please type '&Wchannels -fos&R' to turn off this channel.&w\n\r", ch ); } xREMOVE_BIT(ch->deaf, channel); if (ch->desc) ch->desc->psuppress_channel++; switch ( channel ) { default: pager_printf_color( ch, "&D&W[&C%s&W] &C%s&W:&C '%s&D&C'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&C%s&W] &C%s&W:&C '%s&D&C'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&C%s&W] &CSomeone&W:&C '%s&D&C'&D\n\r", verb, argument ); break; // Think Channel stupid SMAUG people calling it "high" -Goku 09.05.03 case CHANNEL_HIGH: pager_printf_color( ch, "&D&g[&c%s&g]&R%s&w> &Y%s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&g[&c%s&g]&R%s&w> &Y%s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&g[&c%s&g]&RSomeone&w> &Y%s&D\n\r", verb, argument ); break; // MUSE Channel stupid SMAUG people calling it "highgod" -Goku 09.05.03 case CHANNEL_HIGHGOD: pager_printf_color( ch, "&D&c%s&G[&g%s&G]&w> &Y%s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&c%s&G[&g%s&G]&w> &Y%s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&c%s&G[&gSomeone&G]&w> &Y%s&D\n\r", verb, argument ); break; case CHANNEL_NEWBIE: //argument = remove_color(argument); pager_printf_color( ch, "&D&W[&C%s&W] &w%s&W:&B '%s&D&B'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&C%s&W] &w%s&W:&B '%s&D&B'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&C%s&W] &wSomeone&W:&B '%s&D&B'&D\n\r", verb, argument ); break; case CHANNEL_MUSIC: pager_printf_color( ch, "&D&W[&C%s&W] &C%s&W:&c '%s&D&c'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&C%s&W] &C%s&W:&c '%s&D&c'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&C%s&W] &CSomeone&W:&c '%s&D&c'&D\n\r", verb, argument ); break; case CHANNEL_ASK: //argument = remove_color(argument); pager_printf_color( ch, "&D&W[&c%s&W] &C%s&W&W: &z--&W '&O%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&c%s&W] &C%s&W&W: &z--&W '&O%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&c%s&W] &CSomeone&W&W: &z--&W '&O%s&W'&D\n\r", verb, argument ); break; case CHANNEL_ADMIN: //argument = remove_color(argument); pager_printf_color( ch, "&D&R[&W%s&R] &R%s&W: &z--&W '%s'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&R[&W%s&R] &R%s&W: &z--&W '%s'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&R[&W%s&R] &RSomeone&W: &z--&W '%s'&D\n\r", verb, argument ); break; case CHANNEL_ADMTO: argument = one_argument( argument, admName ); if( ( admVict = get_char_world( ch, admName ) ) == NULL ) { return; } //argument = remove_color(argument); pager_printf_color( ch, "&D&R[&W%s-%s&R] &R%s&W: &z--&W '%s'&D\n\r" , verb, admVict->name, ch->name, argument ); sprintf( buf, "&D&R[&W%s-%s&R] &R%s&W: &z--&W '%s'&D\n\r", verb, admVict->name, ch->name, argument ); sprintf( buf_invis, "&D&R[&W%s-%s&R] &RSomeone&W: &z--&W '%s'&D\n\r", verb, admVict->name, argument ); admVict->pcdata->admintalk = 0; break; case CHANNEL_CLAN: pager_printf_color( ch, "&D&W(&C%s&W) &c%s&W: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W(&C%s&W) &c%s&W: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W(&C%s&W) &cSomeone&W: &z--&W '%s&D&W'&D\n\r", verb, argument ); break; case CHANNEL_SHOUT: case CHANNEL_YELL: //argument = remove_color(argument); pager_printf_color( ch, "&D&YYou %s '%s'&D\n\r", verb, argument ); sprintf( buf, "&D&Y%s %ss '%s'&D\n\r", ch->name, verb, argument ); sprintf( buf_invis, "&D&YSomeone %ss '%s'&D\n\r", verb, argument ); break; case CHANNEL_CHAT: if (!long_str_prefix(argument, "*")) { argument = strip_char_prefix(argument, 1); pager_printf_color( ch, "&D&W[&Y%s&W] &g%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&Y%s&W] &g%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&Y%s&W] &gSomeone %s&D\n\r", verb, argument ); } else if (!long_str_prefix(argument, "ooc *")) { channel = CHANNEL_CHAT_OOC; argument = strip_char_prefix(argument, 5); pager_printf_color( ch, "&D&w[&c%s:&wOOC&w] &c%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&w[&c%s:&wOOC&w] &c%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&w[&c%s:&wOOC&w] &cSomeone %s&D\n\r", verb, argument ); } else if (!long_str_prefix(argument, "ooc ")) { channel = CHANNEL_CHAT_OOC; argument = strip_char_prefix(argument, 4); pager_printf_color( ch, "&D&w[&c%s:&wOOC&w] &O%s: &w-- &g'%s'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&w[&c%s:&wOOC&w] &O%s: &w-- &g'%s'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&w[&c%s:&wOOC&w] &OSomeone: &w-- &g'%s'&D\n\r", verb, argument ); } else { pager_printf_color( ch, "&D&W[&Y%s&W] &G%s: &w-- &W'%s'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&Y%s&W] &G%s: &w-- &W'%s'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&Y%s&W] &GSomeone: &w-- &W'%s'&D\n\r", verb, argument ); } break; /* switch ( *argument ) { case '*': pager_printf_color( ch, "&D&W[&Y%s&W] &G%s &g%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&Y%s&W] &G%s &g%s*&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&Y%s&W] &GSomeone &g%s*&D\n\r", verb, argument ); break; default: pager_printf_color( ch, "&D&W[&Y%s&W] &G%s&W: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&Y%s&W] &G%s&W: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&Y%s&W] &GSomeone&W: &z--&W '%s&D&W'&D\n\r", verb, argument ); break; } break; */ case CHANNEL_HC: switch ( *argument ) { case '*': pager_printf_color( ch, "&D&W[&c%s&W] &c%s &c%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&c%s&W] &c%s &c%s*&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&c%s&W] &cSomeone &c%s*&D\n\r", verb, argument ); break; default: pager_printf_color( ch, "&D&W[&c%s&W] &c%s&W: &z-- &W'&z%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&c%s&W] &c%s&W: &z-- &W'&z%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&c%s&W] &cSomeone&W: &z-- &W'&z%s&D&W'&D\n\r", verb, argument ); break; } break; case CHANNEL_OOC: switch ( *argument ) { case '*': if( !IS_NPC(ch) ) { pager_printf_color( ch, "&D&W[&B%s&W] &C%s &c%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&B%s&W] &C%s &c%s*&D\n\r", verb, ch->name, argument ); } else { pager_printf_color( ch,"&D&W[&B%s&W] &C%s &c%s*&D\n\r", verb, ch->short_descr, argument ); sprintf( buf, "&D&W[&B%s&W] &C%s &c%s*&D\n\r", verb, ch->short_descr, argument ); } sprintf( buf_invis, "&D&W[&B%s&W] &CSomeone &c%s*&D\n\r", verb, argument ); break; default: if( !IS_NPC(ch) ) { pager_printf_color( ch, "&D&W[&B%s&W] &C%s&W: &z-- &W'%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&B%s&W] &C%s&W: &z-- &W'%s&D&W'&D\n\r", verb, ch->name, argument ); } else { pager_printf_color( ch,"&D&W[&B%s&W] &C%s&W: &z-- &W'%s&D&W'&D\n\r", verb, ch->short_descr, argument ); sprintf( buf, "&D&W[&B%s&W] &C%s&W: &z-- &W'%s&D&W'&D\n\r", verb, ch->short_descr, argument ); } sprintf( buf_invis, "&D&W[&B%s&W] &CSomeone&W: &z-- &W'%s&D&W'&D\n\r", verb, argument ); break; } break; case CHANNEL_FOS: switch ( *argument ) { case '*': pager_printf_color( ch, "&D&W[&O%s&W] &O%s &w%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&O%s&W] &O%s &w%s*&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&O%s&W] &OSomeone &w%s*&D\n\r", verb, argument ); break; default: pager_printf_color( ch, "&D&W[&O%s&W] &O%s&W: &z-- &w'%s&D&w'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&O%s&W] &O%s&W: &z-- &w'%s&D&w'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&O%s&W] &OSomeone&W: &z-- &w'%s&D&w'&D\n\r", verb, argument ); break; } break; case CHANNEL_RACETALK: pager_printf_color( ch, "&D&W(&g%s&w&W) &G%s: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W(&g%s&w&W) &G%s: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W(&g%s&w&W) &GSomeone: &z--&W '%s&D&W'&D\n\r", verb, argument ); break; case CHANNEL_TRAFFIC: pager_printf_color( ch, "&D&cYou %s: %s&D\n\r", verb, argument ); sprintf( buf, "&D&c%s %ss '%s'&D\n\r", ch->name, verb, argument ); sprintf( buf_invis, "&D&cSomeone %ss '%s'&D\n\r", verb, argument ); break; case CHANNEL_WARTALK: switch ( *argument ) { case '*': pager_printf_color( ch, "&D&W[&R%s&W] &O%s &O%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&R%s&W] &O%s &O%s*&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&R%s&W] &OSomeone &O%s*&D\n\r", verb, argument ); break; default: pager_printf_color( ch, "&D&W[&R%s&W] &O%s: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&R%s&W] &O%s: &z--&W '%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&R%s&W] &OSomeone: &z--&W '%s&D&W'&D\n\r", verb, argument ); break; } break; case CHANNEL_IMMTALK: case CHANNEL_AVTALK: sprintf( buf, "&D&R -&C%s&W%c&Y %s&D\n\r", ch->name, channel == CHANNEL_IMMTALK ? '>' : ':', argument ); sprintf( buf_invis, "&D&R -&CSomeone&W%c&Y %s&D\n\r", channel == CHANNEL_IMMTALK ? '>' : ':', argument ); position = ch->position; ch->position = POS_STANDING; send_to_pager_color (buf, ch); // pager_printf_color (ch, buf); // act( AT_IMMORT, buf, ch, argument, NULL, TO_CHAR ); ch->position = position; break; case CHANNEL_ROLEPLAY: if (!long_str_prefix(argument, "*dice ")) { argument = strip_char_prefix(argument, 6); one_argument(argument, arg1); if (arg1[0] == '\0') { send_to_char("You must provide a di number in the range 1 to 20.\n\r",ch); break; } dinum = atoi(arg1); if (dinum < 1 || dinum > 20) { send_to_char("You must provide a di number in the range 1 to 20.\n\r",ch); break; } else { dival = number_range(1,dinum); pager_printf_color( ch, "&D&W[&g%s&W:&gOOC&W] &W%s rolled 1d%d and got %d.&D\n\r", verb, ch->name, dinum, dival); sprintf( buf, "&D&W[&g%s&W:&gOOC&W] &W%s rolled 1d%d and got %d.&D\n\r", verb, ch->name, dinum, dival); sprintf( buf_invis, "&D&W[&g%s&W:&gOOC&W] &WSomeone rolled 1d%d and got %d.&D\n\r", verb, dinum, dival); } } else if (!long_str_prefix(argument, "*")) { argument = strip_char_prefix(argument, 1); pager_printf_color( ch, "&D&W[&g%s&W] &O%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&g%s&W] &O%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&g%s&W] &OSomeone %s&D\n\r", verb, argument ); } else if (!long_str_prefix(argument, "ooc *")) { argument = strip_char_prefix(argument, 5); pager_printf_color( ch, "&D&W[&g%s&W:&gOOC&W] &w%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&g%s&W:&gOOC&W] &w%s %s&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&g%s&W:&gOOC&W] &wSomeone %s&D\n\r", verb, argument ); } else if (!long_str_prefix(argument, "ooc ")) { argument = strip_char_prefix(argument, 4); pager_printf_color( ch, "&D&W[&g%s&W:&gOOC&W] &O%s&W: &W'&w%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&g%s&W:&gOOC&W] &O%s&W: &W'&w%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&g%s&W:&gOOC&W] &OSomeone&W: &W'&w%s&W'&D\n\r", verb, argument ); } else { pager_printf_color( ch, "&D&W[&g%s&W] &O%s&W: '&G%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&W[&g%s&W] &O%s&W: '&G%s&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&W[&g%s&W] &OSomeone&W: '&G%s&W'&D\n\r", verb, argument ); } break; case CHANNEL_COUNCIL: switch ( *argument ) { case '*': pager_printf_color( ch, "&D&Y[&z%s&Y] %s &z%s*&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&Y[&z%s&Y] %s &z%s*&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&Y[&z%s&Y] Someone &z%s*&D\n\r", verb, argument ); break; default: pager_printf_color( ch, "&D&Y[&z%s&Y] %s&W: '&z%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf, "&D&Y[&z%s&Y] %s&W: '&z%s&D&W'&D\n\r", verb, ch->name, argument ); sprintf( buf_invis, "&D&Y[&z%s&Y] Someone&W: '&z%s&D&W'&D\n\r", verb, argument ); break; } break; } if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf2, "%s: %s (%s)", IS_NPC( ch ) ? ch->short_descr : ch->name, argument, verb ); append_to_file( LOG_FILE, buf2 ); } #ifdef HMM if ( is_profane(argument) ) { sprintf( buf2, "%s Profanity warning: %s: %s (%s)", "say", IS_NPC( ch ) ? ch->short_descr : ch->name, argument, verb ); /* force Puff mpat 6 mpforce imp mpat 1 say hi */ puff = get_char_world( ch, "Puff" ); if (puff != NULL) { if ( ( location = get_room_index( 1 ) ) != NULL ) { original = puff->in_room; char_from_room( puff ); char_to_room( puff, location ); interpret( puff, buf2 ); char_to_room( puff, original ); } } } #endif for ( d = first_descriptor; d; d = d->next ) { CHAR_DATA * och; CHAR_DATA *vch; och = d->original ? d->original : d->character; vch = d->character; if ( ( d->connected == CON_PLAYING || ( d->connected == CON_EDITING && xIS_SET( och->act, PLR_CHANEDIT ) ) ) && vch != ch && !xIS_SET(och->deaf, channel) ) { char *sbuf = argument; char lbuf[MAX_INPUT_LENGTH + 4]; /* invis level string + buf */ /* fix by Gorog os that players can ignore others' channel talk */ /* fix so you can ignore anyone other than an Imm -- Melora */ if ( is_ignoring(och, ch) && !IS_IMMORTAL( och ) /*get_trust(ch) <= get_trust(och)*/ ) continue; /* Adding newbie in for all if ( channel != CHANNEL_NEWBIE && NOT_AUTHED(och) ) continue; */ if ( channel == CHANNEL_IMMTALK && !IS_IMMORTAL(och) ) continue; /* if ( channel == CHANNEL_ADMIN && !IS_IMMORTAL(och) ) continue; */ if ( channel == CHANNEL_HC && (!IS_HC(och) && !IS_IMMORTAL(och) )) continue; if ( channel == CHANNEL_WARTALK && NOT_AUTHED( och ) ) continue; if ( channel == CHANNEL_AVTALK && !IS_HERO(och) ) continue; if ( channel == CHANNEL_HIGHGOD && get_trust( och ) < sysdata.muse_level ) continue; if ( channel == CHANNEL_HIGH && get_trust( och ) < sysdata.think_level ) continue; /* Make it so only admin see the admin chanel -- Melora */ if ( IS_IMMORTAL( ch ) ) { ; } else { if ( channel == CHANNEL_ADMIN && !IS_IMMORTAL( och ) ) continue; } /* Only imms and the victim can see adminto -- Melora */ if( channel == CHANNEL_ADMTO && ( !IS_IMMORTAL( och ) && (och != admVict) ) ) continue; if ( channel == CHANNEL_TRAFFIC && !IS_IMMORTAL( och ) && !IS_IMMORTAL( ch ) ) { if (( IS_HERO( ch ) && !IS_HERO( och ) ) || ( !IS_HERO( ch ) && IS_HERO( och ) )) continue; } /* Fix by Narn to let newbie council members see the newbie channel. */ /* if ( channel == CHANNEL_NEWBIE && ( !IS_IMMORTAL(och) && !NOT_AUTHED(och) && !( och->pcdata->council && !str_cmp( och->pcdata->council->name, "Newbie Council" ) ) ) ) continue; */ if ( xIS_SET( vch->in_room->room_flags, ROOM_SILENCE ) ) continue; if ( channel == CHANNEL_YELL && vch->in_room->area != ch->in_room->area ) continue; if ( channel == CHANNEL_CLAN || channel == CHANNEL_ORDER || channel == CHANNEL_GUILD ) { if ( IS_NPC( vch ) ) continue; if ( vch->pcdata->clan != ch->pcdata->clan ) continue; if (is_swear(argument) && !xIS_SET(vch->act, PLR_CLAN_SWEAR) ) { pager_printf_color(vch, "&W(&CCLAN&W) &c%s starts swearing like there's no tomorrow!\n\r", ch->name ); continue; } } if ( channel == CHANNEL_COUNCIL ) { if ( IS_NPC( vch ) ) continue; if ( vch->pcdata->council != ch->pcdata->council ) continue; } if ( channel == CHANNEL_RACETALK ) { if ( vch->race != ch->race ) { if( is_android(ch) && !is_android(vch) ) continue; else if( !is_android(ch) && is_android(vch) ) continue; else if( is_saiyan(ch) && !is_saiyan(vch) ) continue; else if( !is_saiyan(ch) && is_saiyan(vch) ) continue; else if( is_demon(ch) && !is_demon(vch) ) continue; else if( !is_demon(ch) && is_demon(vch) ) continue; else if( is_kaio(ch) && !is_kaio(vch) ) continue; else if( !is_kaio(ch) && is_kaio(vch) ) continue; else if( is_human(ch) && !is_human(vch) ) continue; else if( !is_human(ch) && is_human(vch) ) continue; else if( is_namek(ch) && !is_namek(vch) ) continue; else if( !is_namek(ch) && is_namek(vch) ) continue; else if( is_bio(ch) && !is_bio(vch) ) continue; else if( !is_bio(ch) && is_bio(vch) ) continue; else if( is_icer(ch) && !is_icer(vch) ) continue; else if( !is_icer(ch) && is_icer(vch) ) continue; else if( is_hb(ch) && !is_hb(vch) ) continue; else if( !is_hb(ch) && is_hb(vch) ) continue; else if( is_wizard(ch) && !is_wizard(vch) ) continue; else if( !is_wizard(ch) && is_wizard(vch) ) continue; else if( is_genie(ch) && !is_genie(vch) ) continue; else if( !is_genie(ch) && is_genie(vch) ) continue; } } if ( xIS_SET(ch->act, PLR_WIZINVIS) && can_see(vch, ch) && IS_IMMORTAL(vch)) { sprintf(lbuf, "(%d) ", (!IS_NPC(ch)) ? ch->pcdata->wizinvis : ch->mobinvis); } else { lbuf[0] = '\0'; } position = vch->position; if ( channel != CHANNEL_SHOUT && channel != CHANNEL_YELL ) vch->position = POS_STANDING; #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(vch, ch->speaking, ch), knows_language(ch, ch->speaking, vch)); if ( speakswell < 85 ) sbuf = translate(speakswell, argument, lang_names[speaking]); } #else if ( !knows_language(vch, ch->speaking, ch) && (!IS_NPC(ch) || ch->speaking != 0) ) sbuf = scramble(argument, ch->speaking); #endif /* Scramble speech if vch or ch has nuisance flag */ if ( !IS_NPC(ch) && ch->pcdata->nuisance && ch->pcdata->nuisance->flags > 7 && (number_percent() < ((ch->pcdata->nuisance->flags - 7)*10* ch->pcdata->nuisance->power))) sbuf = scramble(argument, number_range(1, 10)); if ( !IS_NPC(vch) && vch->pcdata->nuisance && vch->pcdata->nuisance->flags > 7 && (number_percent() < ((vch->pcdata->nuisance->flags - 7)*10* vch->pcdata->nuisance->power))) sbuf = scramble(argument, number_range(1, 10)); MOBtrigger = FALSE; if (vch->desc) vch->desc->psuppress_channel++; if ( can_see(vch, ch) ) { if( !xIS_SET(ch->act, PLR_NOSCREAM) || channel == CHANNEL_CHAT || channel == CHANNEL_CHAT_OOC ) send_to_pager_color(strcat(lbuf, buf), vch); } else { if( !xIS_SET(ch->act, PLR_NOSCREAM) || channel == CHANNEL_CHAT || channel == CHANNEL_CHAT_OOC ) send_to_pager_color(strcat(lbuf, buf_invis), vch); } vch->position = position; } } /* too much system degradation with 300+ players not to charge 'em a bit */ /* 600 players now, but waitstate on clantalk is bad for pkillers */ if ( ch->level < 51 ) WAIT_STATE( ch, 6 ); return ; } void to_channel( const char *argument, int channel, const char *verb, sh_int level ) { char buf[MAX_STRING_LENGTH]; DESCRIPTOR_DATA *d; if ( !first_descriptor || argument[0] == '\0' ) return ; sprintf(buf, "%s: %s&w\r\n", verb, argument ); for ( d = first_descriptor; d; d = d->next ) { CHAR_DATA * och; CHAR_DATA *vch; och = d->original ? d->original : d->character; vch = d->character; if ( !och || !vch ) continue; if ( !IS_IMMORTAL(vch) || ( get_trust(vch) < sysdata.build_level && channel == CHANNEL_BUILD ) || ( get_trust(vch) < sysdata.log_level && ( channel == CHANNEL_LOG || channel == CHANNEL_HIGH || channel == CHANNEL_WARN || channel == CHANNEL_COMM) ) ) continue; if ( d->connected == CON_PLAYING && !xIS_SET(och->deaf, channel) && get_trust( vch ) >= level ) { set_char_color( AT_LOG, vch ); send_to_char_color( buf, vch ); } } return ; } void do_roleplay( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && !xIS_SET(ch->act, PLR_QUESTING)) { send_to_char("You can't use this channel because you are not part of this role playing event.\n\r", ch); return ; } if (!sysdata.rpChannel) { send_to_char("The role play channel is currently off. It will be turned back on when the event resumes.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_ROLEPLAY, "RolePlay" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_hcchat( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch) || (!IS_HC(ch) && !IS_IMMORTAL(ch))) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_HC, "HARDCORE" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_fos( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (xIS_SET(ch->act, PLR_NO_FOS)) { send_to_char("Your Freedom has been denied.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_FOS, "FOS" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_admintalk( CHAR_DATA *ch, char *argument ) { if (IS_NPC(ch)) { pager_printf_color(ch, "NPC's can use the ADMIN channel."); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (get_trust(ch) < LEVEL_IMMORTAL && ch->pcdata->admintalk > 0) { pager_printf_color(ch, "You must wait %d more minutes before you can ask another question.\n\r", ch->pcdata->admintalk); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } /* if (!can_admin(ch)) * { * send_to_char("&wSorry, no admins are online or they are not answering questions at this time.\n\r", ch); * send_to_char("&wPlease try to ask your question again at a later time. Thank you.\n\r", ch); * return; * } * else */ undeaf_admin(); sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_ADMIN, "ADMIN" ); sysdata.outBytesFlag = LOGBOUTNORM; ch->pcdata->admintalk = 1; return ; } void do_chat( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (!xIS_SET(ch->act, PLR_CAN_CHAT) && !IS_IMMORTAL(ch)) { send_to_char("You must first have an admin authorize your bio to use this channel.\n\r", ch); return ; } /* if (is_swear(argument)) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } */ sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_CHAT, "CHAT" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_ooc( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_OOC, "OOC" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_clantalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if ( IS_NPC( ch ) || !ch->pcdata->clan || ch->pcdata->clan->clan_type == CLAN_ORDER || ch->pcdata->clan->clan_type == CLAN_GUILD ) { send_to_char( "Huh?\n\r", ch ); return ; } /* if (is_swear(argument)) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return; } */ sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_CLAN, "CLAN" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_newbiechat( CHAR_DATA *ch, char *argument ) { if ( IS_NPC( ch )) /* || ( !NOT_AUTHED( ch ) && !IS_IMMORTAL(ch) && !( ch->pcdata->council && !str_cmp( ch->pcdata->council->name, "Newbie Council" ) ) ) ) */ { send_to_char( "Huh?\n\r", ch ); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } //argument = remove_color(argument); sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_NEWBIE, "NewbiE" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_ot( CHAR_DATA *ch, char *argument ) { do_ordertalk( ch, argument ); } void do_ordertalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if ( IS_NPC( ch ) || !ch->pcdata->clan || ch->pcdata->clan->clan_type != CLAN_ORDER ) { send_to_char( "Huh?\n\r", ch ); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_ORDER, "ORDER" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_counciltalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if ( IS_NPC( ch ) || !ch->pcdata->council ) { send_to_char( "Huh?\n\r", ch ); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_COUNCIL, "COUNCIL" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_guildtalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if ( IS_NPC( ch ) || !ch->pcdata->clan || ch->pcdata->clan->clan_type != CLAN_GUILD ) { send_to_char( "Huh?\n\r", ch ); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_GUILD, "GUILD" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_music( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_MUSIC, "&RM&WU&PS&YI&GC&w" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_quest( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_QUEST, "QUEST" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_ask( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } // argument = remove_color(argument); sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_ASK, "QUESTION" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_answer( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } // argument = remove_color(argument); sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_ASK, "QUESTION" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_shout( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_SHOUT, "shout" ); sysdata.outBytesFlag = LOGBOUTNORM; WAIT_STATE( ch, 12 ); return ; } void do_yell( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_YELL, "yell" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_immtalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_IMMTALK, "immtalk" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_muse( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_HIGHGOD, "MUSE" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_think( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_HIGH, "THINK" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_avtalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, drunk_speech( argument, ch ), CHANNEL_AVTALK, "avtalk" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_say( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; CHAR_DATA *vch; CHAR_DATA *robot = NULL; EXT_BV actflags; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif if ( argument[0] == '\0' ) { send_to_char( "Say what?\n\r", ch ); return ; } if ( xIS_SET( ch->in_room->room_flags, ROOM_SILENCE ) ) { send_to_char( "You can't do that here.\n\r", ch ); return ; } /* Bot check stuff since for the "answer" i can't use a mob prog -Goku 09.26.04 */ if (ch->in_room->vnum == 6500 || ch->in_room->vnum == 6510) { /* code located in mud_comm.c even though it's no a mob prog */ mpchkbot(ch, argument); return; } // argument = remove_color(argument); actflags = ch->act; if ( IS_NPC(ch) ) xREMOVE_BIT( ch->act, ACT_SECRETIVE ); if (is_swear(argument) && !xIS_SET(ch->act, PLR_SAY_SWEAR) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } /*if ( !IS_NPC(ch) && xIS_SET(ch->act, PLR_SILENCE) ) { send_to_char("You're silenced. You can't speak.\n\r",ch); return ; }*/ if (xIS_SET((ch)->affected_by, AFF_OOZARU) || xIS_SET((ch)->affected_by, AFF_GOLDEN_OOZARU) ) { interpret(ch, "roar"); return; } sysdata.outBytesFlag = LOGBOUTCHANNEL; for ( vch = ch->in_room->first_person; vch; vch = vch->next_in_room ) { char * sbuf = argument; if ( vch == ch ) continue; if (IS_NPC(vch) && xIS_SET(vch->act, ACT_ROBOT)) robot = vch; /* Check to see if character is ignoring speaker */ if (is_ignoring(vch, ch)) { /* continue unless speaker is an immortal */ if (!IS_IMMORTAL(ch) || get_trust(vch) > get_trust(ch)) continue; /* else * { * set_char_color(AT_IGNORE, vch); * ch_printf(vch,"You attempt to ignore %s, but" * " are unable to do so.\n\r", ch->name); * } */ } #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(vch, ch->speaking, ch), knows_language(ch, ch->speaking, vch)); if ( speakswell < 75 ) sbuf = translate(speakswell, argument, lang_names[speaking]); } #else if ( !knows_language(vch, ch->speaking, ch) && (!IS_NPC(ch) || ch->speaking != 0) ) sbuf = scramble(argument, ch->speaking); #endif sbuf = drunk_speech( sbuf, ch ); MOBtrigger = FALSE; if (!IS_NPC(vch) && is_swear(argument) && !xIS_SET(vch->act, PLR_SAY_SWEAR)) act( AT_SAY, "$n starts swearing up a storm.", ch, sbuf, vch, TO_VICT ); else if( !xIS_SET(ch->act, PLR_NOSCREAM) ) { if( is_fused(ch) && !is_superandroid(ch) ) act( AT_SAY, "$n says in a dual voice '$t'", ch, sbuf, vch, TO_VICT ); else act( AT_SAY, "$n says '$t'", ch, sbuf, vch, TO_VICT ); } } /* MOBtrigger = FALSE; act( AT_SAY, "$n says '$T'", ch, NULL, argument, TO_ROOM );*/ ch->act = actflags; MOBtrigger = FALSE; if( is_fused(ch) && !is_superandroid(ch) ) act( AT_SAY, "\n\rYou say in a dual voice '$T'", ch, NULL, drunk_speech(argument, ch ), TO_CHAR ); else act( AT_SAY, "\n\rYou say '$T'", ch, NULL, drunk_speech( argument, ch ), TO_CHAR ); if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf, "%s: %s", IS_NPC( ch ) ? ch->short_descr : ch->name, argument ); append_to_file( LOG_FILE, buf ); } if (robot != NULL) if (IS_NPC(robot) && xIS_SET(robot->act, ACT_ROBOT)) { chatperform(robot, ch, argument, 1); } sysdata.outBytesFlag = LOGBOUTNORM; mprog_speech_trigger( argument, ch ); if ( char_died(ch) ) return ; oprog_speech_trigger( argument, ch ); if ( char_died(ch) ) return ; rprog_speech_trigger( argument, ch ); return ; } void do_whisper( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char buf[MAX_INPUT_LENGTH]; CHAR_DATA *victim; int position; int speaking = -1, lang; #ifndef SCRAMBLE for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif xREMOVE_BIT( ch->deaf, CHANNEL_WHISPER ); argument = one_argument( argument, arg ); if ( arg[0] == '\0' || argument[0] == '\0' ) { send_to_char( "Whisper to whom what?\n\r", ch ); return ; } if ( (victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( ch == victim ) { send_to_char( "You have a nice little chat with yourself.\n\r", ch ); return ; } if ( !IS_NPC( victim ) && ( victim->switched ) && !IS_AFFECTED(victim->switched, AFF_POSSESS) ) { send_to_char( "That player is switched.\n\r", ch ); return ; } else if ( !IS_NPC( victim ) && ( !victim->desc ) ) { send_to_char( "That player is link-dead.\n\r", ch ); return ; } if ( !IS_NPC(victim) ) if ( xIS_SET(victim->act, PLR_AFK) ) { send_to_char( "That player is afk.\n\r", ch ); return ; } if ( xIS_SET( victim->deaf, CHANNEL_WHISPER ) && ( !IS_IMMORTAL( ch ) || ( get_trust( ch ) < get_trust( victim ) ) ) ) { act( AT_PLAIN, "$E has $S whispers turned off.", ch, NULL, victim, TO_CHAR ); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } if (xIS_SET((ch)->affected_by, AFF_OOZARU) || xIS_SET((ch)->affected_by, AFF_GOLDEN_OOZARU) ) { ch_printf(ch,"You can't while Oozaru.\n\r"); return; } if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_SILENCE) ) send_to_char( "That player is silenced. They will receive your message but can not respond.\n\r", ch ); if ( victim->desc /* make sure desc exists first -Thoric */ && victim->desc->connected == CON_EDITING && get_trust(ch) < LEVEL_GOD ) { act( AT_PLAIN, "$E is currently in a writing buffer. Please try again in a few minutes.", ch, 0, victim, TO_CHAR ); return ; } /* Check to see if target of tell is ignoring the sender */ if (is_ignoring(victim, ch)) { /* If the sender is an imm then they cannot be ignored */ if (!IS_IMMORTAL(ch) || get_trust(victim) > get_trust(ch)) { set_char_color(AT_IGNORE, ch); ch_printf(ch, "%s is ignoring you.\n\r", victim->name); return ; } /* else * { * set_char_color(AT_IGNORE, victim); * ch_printf(victim, "You attempt to ignore %s, but " * "are unable to do so.\n\r", ch->name); * } */ } /* Bug fix by guppy@wavecomputers.net */ MOBtrigger = FALSE; sysdata.outBytesFlag = LOGBOUTCHANNEL; act( AT_WHISPER, "You whisper to $N '$t'", ch, argument, victim, TO_CHAR ); position = victim->position; victim->position = POS_STANDING; #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(victim, ch->speaking, ch), knows_language(ch, ch->speaking, victim)); if ( speakswell < 85 ) act( AT_WHISPER, "$n whispers to you '$t'", ch, translate(speakswell, argument, lang_names[speaking]), victim, TO_VICT ); #else if ( !knows_language(vch, ch->speaking, ch ) && ( !IS_NPC(ch) || ch->speaking != 0) ) act( AT_WHISPER, "$n whispers to you '$t'", ch, translate(speakswell, argument, lang_names[speaking]), victim, TO_VICT ); #endif else act( AT_WHISPER, "$n whispers to you '$t'", ch, argument, victim, TO_VICT ); } else act( AT_WHISPER, "$n whispers to you '$t'", ch, argument, victim, TO_VICT ); if ( !xIS_SET( ch->in_room->room_flags, ROOM_SILENCE ) ) act( AT_WHISPER, "$n whispers something to $N.", ch, argument, victim, TO_NOTVICT ); MOBtrigger = TRUE; victim->position = position; if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf, "%s: %s (whisper to) %s.", IS_NPC( ch ) ? ch->short_descr : ch->name, argument, IS_NPC( victim ) ? victim->short_descr : victim->name ); append_to_file( LOG_FILE, buf ); } sysdata.outBytesFlag = LOGBOUTNORM; mprog_speech_trigger( argument, ch ); return ; } void do_tell( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char buf[MAX_INPUT_LENGTH]; CHAR_DATA *victim; int position; CHAR_DATA *switched_victim = NULL; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif xREMOVE_BIT( ch->deaf, CHANNEL_TELLS ); if ( xIS_SET( ch->in_room->room_flags, ROOM_SILENCE ) ) { send_to_char( "You can't do that here.\n\r", ch ); return ; } if (!IS_NPC(ch) && ( xIS_SET(ch->act, PLR_SILENCE) || xIS_SET(ch->act, PLR_NO_TELL) ) ) { send_to_char( "You can't do that.\n\r", ch ); return ; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' || argument[0] == '\0' ) { send_to_char( "Tell whom what?\n\r", ch ); return ; } // Typing 0.krill is annoying as HELL if( ( victim = get_char_room( ch, arg ) ) == NULL ) victim = get_pc_world( ch, arg ); if ( victim == NULL || ( IS_NPC(victim) && victim->in_room != ch->in_room ) || (!NOT_AUTHED(ch) && NOT_AUTHED(victim) && !IS_IMMORTAL(ch) ) ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( ch == victim ) { send_to_char( "You have a nice little chat with yourself.\n\r", ch ); return ; } /* if (NOT_AUTHED(ch) && !NOT_AUTHED(victim) && !IS_IMMORTAL(victim) ) { send_to_char( "They can't hear you because you are not authorized.\n\r", ch); return; } */ if ( !IS_NPC( victim ) && ( victim->switched ) && ( get_trust( ch ) > LEVEL_AVATAR ) && !IS_AFFECTED(victim->switched, AFF_POSSESS) ) { send_to_char( "That player is switched.\n\r", ch ); return ; } else if ( !IS_NPC( victim ) && ( victim->switched ) && IS_AFFECTED(victim->switched, AFF_POSSESS) ) switched_victim = victim->switched; else if ( !IS_NPC( victim ) && ( !victim->desc ) ) { send_to_char( "That player is link-dead.\n\r", ch ); return ; } if ( !IS_NPC(victim) ) if ( xIS_SET(victim->act, PLR_AFK) ) { send_to_char( "That player is afk.\n\r", ch ); return ; } if ( !IS_NPC(victim) ) if ( IS_SET(victim->pcdata->flags, PCFLAG_DND)) { send_to_char( "That player has their 'do not disturb' flag on.\n\r", ch ); return ; } if ( xIS_SET( victim->deaf, CHANNEL_TELLS ) && ( !IS_IMMORTAL( ch ) || ( get_trust( ch ) < get_trust( victim ) ) ) ) { act( AT_PLAIN, "$E has $S tells turned off.", ch, NULL, victim, TO_CHAR ); return ; } if (is_swear(argument) && (!xIS_SET(victim->act, PLR_TELL_SWEAR) || !xIS_SET(ch->act, PLR_TELL_SWEAR))) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_SILENCE) ) send_to_char( "That player is silenced. They will receive your message but can not respond.\n\r", ch ); if (!IS_NPC(victim) && xIS_SET(victim->in_room->room_flags, ROOM_SILENCE ) ) { act(AT_PLAIN, "A magic force prevents your message from being heard.", ch, 0, victim, TO_CHAR ); return ; } if ( victim->desc /* make sure desc exists first -Thoric */ && victim->desc->connected == CON_EDITING && get_trust(ch) < LEVEL_GOD ) { act( AT_PLAIN, "$E is currently in a writing buffer. Please try again in a few minutes.", ch, 0, victim, TO_CHAR ); return ; } /* Check to see if target of tell is ignoring the sender */ if (is_ignoring(victim, ch)) { /* If the sender is an imm then they cannot be ignored */ if (!IS_IMMORTAL(ch) || get_trust(victim) > get_trust(ch)) { set_char_color(AT_IGNORE, ch); ch_printf(ch, "%s is ignoring you.\n\r", victim->name); return ; } /* else * { * set_char_color(AT_IGNORE, victim); * ch_printf(victim, "You attempt to ignore %s, but " * "are unable to do so.\n\r", ch->name); * } */ } ch->retell = victim; sysdata.outBytesFlag = LOGBOUTCHANNEL; if (!IS_NPC(victim) && IS_IMMORTAL(victim) && victim->pcdata->tell_history && isalpha(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0])) { sprintf(buf, "%s told you '%s'\n\r", capitalize(IS_NPC(ch) ? ch->short_descr : ch->name), argument); /* get lasttell index... assumes names begin with characters */ victim->pcdata->lt_index = tolower(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0]) - 'a'; /* get rid of old messages */ if (victim->pcdata->tell_history[victim->pcdata->lt_index]) STRFREE(victim->pcdata->tell_history[victim->pcdata->lt_index]); /* store the new message */ victim->pcdata->tell_history[victim->pcdata->lt_index] = STRALLOC(buf); } if (switched_victim) victim = switched_victim; /* Bug fix by guppy@wavecomputers.net */ MOBtrigger = FALSE; act( AT_TELL, "You tell $N '$t'", ch, argument, victim, TO_CHAR ); if ( !IS_AWAKE( ch ) ) { char stbuf[MAX_STRING_LENGTH]; sprintf( stbuf, "You tell %s '%s'\n\r", victim->morph == NULL ? ( ch ? PERS( victim, ch ) : (IS_NPC(victim) ? victim->short_descr : victim->name) ) : "Morph", argument ); set_char_color(AT_TELL, ch ); send_to_char_color( stbuf, ch ); } position = victim->position; victim->position = POS_STANDING; if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(victim, ch->speaking, ch), knows_language(ch, ch->speaking, victim)); if ( speakswell < 85 ) act( AT_TELL, "$n tells you '$t'", ch, translate(speakswell, argument, lang_names[speaking]), victim, TO_VICT ); else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); } else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); MOBtrigger = TRUE; victim->position = position; victim->reply = ch; if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf, "%s: %s (tell to) %s.", IS_NPC( ch ) ? ch->short_descr : ch->name, argument, IS_NPC( victim ) ? victim->short_descr : victim->name ); append_to_file( LOG_FILE, buf ); } if (IS_NPC(victim) && xIS_SET(victim->act, ACT_ROBOT)) { chatperform(victim, ch, argument, 2); } sysdata.outBytesFlag = LOGBOUTNORM; mprog_speech_trigger( argument, ch ); return ; } void do_reply( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; int position; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif xREMOVE_BIT( ch->deaf, CHANNEL_TELLS ); if ( xIS_SET( ch->in_room->room_flags, ROOM_SILENCE ) ) { send_to_char( "You can't do that here.\n\r", ch ); return ; } if ( !IS_NPC(ch) && xIS_SET(ch->act, PLR_SILENCE) ) { send_to_char( "Your message didn't get through.\n\r", ch ); return ; } if ( ( victim = ch->reply ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( !IS_NPC( victim ) && ( victim->switched ) && can_see( ch, victim ) && ( get_trust( ch ) > LEVEL_AVATAR ) ) { send_to_char( "That player is switched.\n\r", ch ); return ; } else if ( !IS_NPC( victim ) && ( !victim->desc ) ) { send_to_char( "That player is link-dead.\n\r", ch ); return ; } if ( !IS_NPC(victim) ) if ( xIS_SET(victim->act, PLR_AFK) ) { send_to_char( "That player is afk.\n\r", ch ); return ; } if ( xIS_SET( victim->deaf, CHANNEL_TELLS ) && ( !IS_IMMORTAL( ch ) || ( get_trust( ch ) < get_trust( victim ) ) ) ) { act( AT_PLAIN, "$E has $S tells turned off.", ch, NULL, victim, TO_CHAR ); return ; } if (!IS_NPC(victim) && xIS_SET( victim->in_room->room_flags, ROOM_SILENCE )) { act( AT_PLAIN, "$E can't hear you.", ch, 0, victim, TO_CHAR ); return ; } if ( victim->desc /* make sure desc exists first -Thoric */ && victim->desc->connected == CON_EDITING && get_trust(ch) < LEVEL_GOD ) { act( AT_PLAIN, "$E is currently in a writing buffer. Please try again in a few minutes.", ch, 0, victim, TO_CHAR ); return ; } if (is_swear(argument) && (!xIS_SET(victim->act, PLR_TELL_SWEAR) || !xIS_SET(ch->act, PLR_TELL_SWEAR))) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } /* Check to see if the receiver is ignoring the sender */ if (is_ignoring(victim, ch)) { /* If the sender is an imm they cannot be ignored */ if (!IS_IMMORTAL(ch) || get_trust(victim) > get_trust(ch)) { set_char_color(AT_IGNORE, ch); ch_printf(ch, "%s is ignoring you.\n\r", victim->name); return ; } /* else * { * set_char_color(AT_IGNORE, victim); * ch_printf(victim, "You attempt to ignore %s, but " * "are unable to do so.\n\r", ch->name); * } */ } sysdata.outBytesFlag = LOGBOUTCHANNEL; act( AT_TELL, "You tell $N '$t'", ch, argument, victim, TO_CHAR ); if ( !IS_AWAKE( ch ) ) { char stbuf[MAX_STRING_LENGTH]; sprintf( stbuf, "You tell %s '%s'\n\r", victim->morph == NULL ? ( ch ? PERS( victim, ch ) : (IS_NPC(victim) ? victim->short_descr : victim->name) ) : "Morph", argument ); set_char_color(AT_TELL, ch ); send_to_char_color( stbuf, ch ); } position = victim->position; victim->position = POS_STANDING; #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(victim, ch->speaking, ch), knows_language(ch, ch->speaking, victim)); if ( speakswell < 85 ) act( AT_TELL, "$n tells you '$t'", ch, translate(speakswell, argument, lang_names[speaking]), victim, TO_VICT ); else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); } else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); #else if ( knows_language( victim, ch->speaking, ch ) || (IS_NPC(ch) && !ch->speaking) ) act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); else act( AT_TELL, "$n tells you '$t'", ch, scramble(argument, ch->speaking), victim, TO_VICT ); #endif victim->position = position; victim->reply = ch; ch->retell = victim; if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf, "%s: %s (reply to) %s.", IS_NPC( ch ) ? ch->short_descr : ch->name, argument, IS_NPC( victim ) ? victim->short_descr : victim->name ); append_to_file( LOG_FILE, buf ); } if (!IS_NPC(victim) && IS_IMMORTAL(victim) && victim->pcdata->tell_history && isalpha(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0])) { sprintf(buf, "%s told you '%s'\n\r", capitalize(IS_NPC(ch) ? ch->short_descr : ch->name), argument); /* get lasttell index... assumes names begin with characters */ victim->pcdata->lt_index = tolower(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0]) - 'a'; /* get rid of old messages */ if (victim->pcdata->tell_history[victim->pcdata->lt_index]) STRFREE(victim->pcdata->tell_history[victim->pcdata->lt_index]); /* store the new message */ victim->pcdata->tell_history[victim->pcdata->lt_index] = STRALLOC(buf); } if (IS_NPC(victim) && xIS_SET(victim->act, ACT_ROBOT)) { chatperform(victim, ch, argument, 2); } sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_retell(CHAR_DATA *ch, char *argument) { char buf[MAX_INPUT_LENGTH]; CHAR_DATA *victim; int position; CHAR_DATA *switched_victim = NULL; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif xREMOVE_BIT(ch->deaf, CHANNEL_TELLS); if (xIS_SET(ch->in_room->room_flags, ROOM_SILENCE)) { send_to_char("You can't do that here.\n\r", ch); return ; } if ( !IS_NPC(ch) && (xIS_SET(ch->act, PLR_SILENCE) || xIS_SET(ch->act, PLR_NO_TELL)) ) { send_to_char("You can't do that.\n\r", ch); return ; } if (argument[0] == '\0') { ch_printf(ch, "What message do you wish to send?\n\r"); return ; } victim = ch->retell; if (!victim) { send_to_char("They aren't here.\n\r", ch); return ; } if (!IS_NPC(victim) && (victim->switched) && (get_trust(ch) > LEVEL_AVATAR) && !IS_AFFECTED(victim->switched, AFF_POSSESS)) { send_to_char("That player is switched.\n\r", ch); return ; } else if (!IS_NPC(victim) && (victim->switched) && IS_AFFECTED(victim->switched, AFF_POSSESS)) { switched_victim = victim->switched; } else if (!IS_NPC(victim) && (!victim->desc)) { send_to_char("That player is link-dead.\n\r", ch); return ; } if (!IS_NPC(victim) ) if ( xIS_SET(victim->act, PLR_AFK) ) { send_to_char("That player is afk.\n\r", ch); return ; } if (xIS_SET(victim->deaf, CHANNEL_TELLS) && (!IS_IMMORTAL(ch) || (get_trust(ch) < get_trust(victim)))) { act(AT_PLAIN, "$E has $S tells turned off.", ch, NULL, victim, TO_CHAR); return ; } if (is_swear(argument) && (!xIS_SET(victim->act, PLR_TELL_SWEAR) || !xIS_SET(ch->act, PLR_TELL_SWEAR))) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_SILENCE) ) send_to_char("That player is silenced. They will receive your message, but can not respond.\n\r", ch); if ((!IS_IMMORTAL(ch) && !IS_AWAKE(victim)) || (!IS_NPC(victim) && xIS_SET(victim->in_room->room_flags, ROOM_SILENCE))) { act(AT_PLAIN, "$E can't hear you.", ch, 0, victim, TO_CHAR); return ; } if (victim->desc && victim->desc->connected == CON_EDITING && get_trust(ch) < LEVEL_GOD) { act(AT_PLAIN, "$E is currently in a writing buffer. Please " "try again in a few minutes.", ch, 0, victim, TO_CHAR); return ; } /* check to see if the target is ignoring the sender */ if (is_ignoring(victim, ch)) { /* if the sender is an imm then they cannot be ignored */ if (!IS_IMMORTAL(ch) || get_trust(victim) > get_trust(ch)) { set_char_color(AT_IGNORE, ch); ch_printf(ch, "%s is ignoring you.\n\r", victim->name); return ; } else { set_char_color(AT_IGNORE, victim); ch_printf(victim, "You attempt to ignore %s, but " "are unable to do so.\n\r", ch->name); } } /* store tell history for victim */ if (!IS_NPC(victim) && IS_IMMORTAL(victim) && victim->pcdata->tell_history && isalpha(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0])) { sprintf(buf, "%s told you '%s'\n\r", capitalize(IS_NPC(ch) ? ch->short_descr : ch->name), argument); /* get lasttel index... assumes names begin with chars */ victim->pcdata->lt_index = tolower(IS_NPC(ch) ? ch->short_descr[0] : ch->name[0]) - 'a'; /* get rid of old messages */ if (victim->pcdata->tell_history[victim->pcdata->lt_index]) STRFREE(victim->pcdata->tell_history[victim->pcdata->lt_index]); /* store the new messagec */ victim->pcdata->tell_history[victim->pcdata->lt_index] = STRALLOC(buf); } if (switched_victim) victim = switched_victim; /* Bug fix by guppy@wavecomputers.net */ MOBtrigger = FALSE; act(AT_TELL, "You tell $N '$t'", ch, argument, victim, TO_CHAR); if ( !IS_AWAKE( ch ) ) { char stbuf[MAX_STRING_LENGTH]; sprintf( stbuf, "You tell %s '%s'\n\r", victim->morph == NULL ? ( ch ? PERS( victim, ch ) : (IS_NPC(victim) ? victim->short_descr : victim->name) ) : "Morph", argument ); set_char_color(AT_TELL, ch ); send_to_char_color( stbuf, ch ); } position = victim->position; victim->position = POS_STANDING; #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(victim, ch->speaking, ch), knows_language(ch, ch->speaking, victim)); if ( speakswell < 85 ) act( AT_TELL, "$n tells you '$t'", ch, translate(speakswell, argument, lang_names[speaking]), victim, TO_VICT ); else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); } else act( AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT ); #else if (knows_language(victim, ch->speaking, ch) || (IS_NPC(ch) && !ch->speaking)) { act(AT_TELL, "$n tells you '$t'", ch, argument, victim, TO_VICT); } else { act(AT_TELL, "$n tells you '$t'", ch, scramble(argument, ch->speaking), victim, TO_VICT); } #endif MOBtrigger = TRUE; victim->position = position; victim->reply = ch; if (xIS_SET(ch->in_room->room_flags, ROOM_LOGSPEECH)) { sprintf(buf, "%s: %s (retell to) %s.", IS_NPC(ch) ? ch->short_descr : ch->name, argument, IS_NPC(victim) ? victim->short_descr : victim->name); append_to_file(LOG_FILE, buf); } mprog_speech_trigger(argument, ch); return ; } void do_repeat(CHAR_DATA *ch, char *argument) { int index; if (IS_NPC(ch) || !IS_IMMORTAL(ch) || !ch->pcdata->tell_history) { ch_printf(ch, "Huh?\n\r"); return ; } if (argument[0] == '\0') { index = ch->pcdata->lt_index; } else if (isalpha(argument[0]) && argument[1] == '\0') { index = tolower(argument[0]) - 'a'; } else { ch_printf(ch, "You may only index your tell history using " "a single letter.\n\r"); return ; } if (ch->pcdata->tell_history[index]) { set_char_color(AT_TELL, ch); ch_printf(ch, ch->pcdata->tell_history[index]); } else { ch_printf(ch, "No one like that has sent you a tell.\n\r"); } return ; } void do_emote( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char *plast; CHAR_DATA *vch; EXT_BV actflags; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif if ( !IS_NPC(ch) && xIS_SET(ch->act, PLR_NO_EMOTE) ) { send_to_char( "You can't show your emotions.\n\r", ch ); return ; } if ( argument[0] == '\0' ) { send_to_char( "Emote what?\n\r", ch ); return ; } actflags = ch->act; if ( IS_NPC(ch) ) xREMOVE_BIT( ch->act, ACT_SECRETIVE ); for ( plast = argument; *plast != '\0'; plast++ ) ; if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } if (xIS_SET((ch)->affected_by, AFF_OOZARU) || xIS_SET((ch)->affected_by, AFF_GOLDEN_OOZARU)) { ch_printf(ch,"You can't while Oozaru.\n\r"); return; } strcpy( buf, argument ); if ( isalpha(plast[ -1]) ) strcat( buf, "." ); for ( vch = ch->in_room->first_person; vch; vch = vch->next_in_room ) { char * sbuf = buf; /* Check to see if character is ignoring emoter */ if (is_ignoring(vch, ch)) { /* continue unless emoter is an immortal */ if (!IS_IMMORTAL(ch) || get_trust(vch) > get_trust(ch)) continue; /* else * { * set_char_color(AT_IGNORE, vch); * ch_printf(vch,"You attempt to ignore %s, but" * " are unable to do so.\n\r", ch->name); * } */ } /* if (IS_NPC(ch) && xIS_SET(ch->act, ACT_ROBOT)) { chatperformtoroom(argument,ch); return; } */ #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(vch, ch->speaking, ch), knows_language(ch, ch->speaking, vch)); if ( speakswell < 85 ) sbuf = translate(speakswell, argument, lang_names[speaking]); } #else if ( !knows_language( vch, ch->speaking, ch ) && (!IS_NPC(ch) && ch->speaking != 0) ) sbuf = scramble(buf, ch->speaking); #endif MOBtrigger = FALSE; sysdata.outBytesFlag = LOGBOUTCHANNEL; act( AT_ACTION, "$n $t", ch, sbuf, vch, (vch == ch ? TO_CHAR : TO_VICT) ); sysdata.outBytesFlag = LOGBOUTNORM; } /* MOBtrigger = FALSE; act( AT_ACTION, "$n $T", ch, NULL, buf, TO_ROOM ); MOBtrigger = FALSE; act( AT_ACTION, "$n $T", ch, NULL, buf, TO_CHAR );*/ ch->act = actflags; if ( xIS_SET( ch->in_room->room_flags, ROOM_LOGSPEECH ) ) { sprintf( buf, "%s %s (emote)", IS_NPC( ch ) ? ch->short_descr : ch->name, argument ); append_to_file( LOG_FILE, buf ); } return ; } void do_bug( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; struct tm *t = localtime(¤t_time); set_char_color( AT_PLAIN, ch ); if ( argument[0] == '\0' ) { send_to_char( "\n\rUsage: 'bug <message>' (your location is automatically recorded)\n\r", ch ); return ; } sprintf( buf, "(%-2.2d/%-2.2d): %s", t->tm_mon + 1, t->tm_mday, argument ); append_file( ch, PBUG_FILE, buf ); send_to_char( "Thanks, your bug notice has been recorded.\n\r", ch ); return ; } void do_ide( CHAR_DATA *ch, char *argument ) { set_char_color( AT_PLAIN, ch ); send_to_char("\n\rIf you want to send an idea, type 'idea <message>'.\n\r", ch); send_to_char("If you want to identify an object, use the identify spell.\n\r", ch); return ; } void do_idea( CHAR_DATA *ch, char *argument ) { set_char_color( AT_PLAIN, ch ); if ( argument[0] == '\0' ) { send_to_char( "\n\rUsage: 'idea <message>'\n\r", ch ); return ; } append_file( ch, IDEA_FILE, argument ); send_to_char( "Thanks, your idea has been recorded.\n\r", ch ); return ; } /* Check the add helpfile file -- Xerves 8/24/99 */ void do_ahelp( CHAR_DATA *ch, char *argument ) { set_char_color( AT_PLAIN, ch ); if ( argument[0] == '\0' ) { send_to_char_color( "\n\rUsage: 'ahelp list' or 'ahelp clear now'\n\r", ch); return ; } if ( !str_cmp( argument, "clear now" ) ) { FILE *fp = fopen( HELP_FILE, "w" ); if ( fp ) fclose( fp ); send_to_char_color( "Add Help file cleared.\n\r", ch); return ; } if ( !str_cmp( argument, "list" ) ) { send_to_char_color( "\n\r VNUM \n\r.......\n\r", ch ); show_file( ch, HELP_FILE ); } else { send_to_char_color( "\n\rUsage: 'ahelp list' or 'ahelp clear now'\n\r", ch); return ; } return ; } void do_typo( CHAR_DATA *ch, char *argument ) { set_char_color( AT_PLAIN, ch ); if ( argument[0] == '\0' ) { send_to_char( "\n\rUsage: 'typo <message>' (your location is automatically recorded)\n\r", ch ); if ( get_trust( ch ) >= LEVEL_ASCENDANT ) send_to_char( "Usage: 'typo list' or 'typo clear now'\n\r", ch ); return ; } if ( !str_cmp( argument, "clear now" ) && get_trust( ch ) >= LEVEL_ASCENDANT ) { FILE *fp = fopen( TYPO_FILE, "w" ); if ( fp ) fclose( fp ); send_to_char( "Typo file cleared.\n\r", ch); return ; } if ( !str_cmp( argument, "list") && get_trust(ch) >= LEVEL_ASCENDANT ) { send_to_char( "\n\r VNUM \n\r.......\n\r", ch ); show_file( ch, TYPO_FILE ); } else { append_file( ch, TYPO_FILE, argument ); send_to_char( "Thanks, your typo notice has been recorded.\n\r", ch ); } return ; } void do_rent( CHAR_DATA *ch, char *argument ) { set_char_color( AT_WHITE, ch ); send_to_char( "There is no rent here. Just save and quit.\n\r", ch ); return ; } void do_qui( CHAR_DATA *ch, char *argument ) { set_char_color( AT_RED, ch ); send_to_char( "If you want to QUIT, you have to spell it out.\n\r", ch ); return ; } void do_quit( CHAR_DATA *ch, char *argument ) { AUTH_LIST *old_auth; OBJ_DATA *obj; OBJ_DATA *o; int x, y; int level; char buf[MAX_STRING_LENGTH]; if ( IS_NPC(ch) ) return ; if ( ch->position == POS_FIGHTING || ch->position == POS_EVASIVE || ch->position == POS_DEFENSIVE || ch->position == POS_AGGRESSIVE || ch->position == POS_BERSERK ) { set_char_color( AT_RED, ch ); send_to_char( "No way! You are fighting.\n\r", ch ); return ; } if ( ch->position < POS_STUNNED ) { set_char_color( AT_BLOOD, ch ); send_to_char( "You're not DEAD yet.\n\r", ch ); return ; } if ( ch->position == POS_STUNNED ) { set_char_color( AT_BLOOD, ch ); send_to_char( "You're stunned, you can quit yet.\n\r", ch ); return ; } if ( get_timer(ch, TIMER_RECENTFIGHT) > 0 && !IS_IMMORTAL(ch) ) { set_char_color( AT_RED, ch ); send_to_char( "Your adrenaline is pumping too hard to quit now!\n\r", ch ); return ; } if ( auction->item != NULL && ((ch == auction->buyer) || (ch == auction->seller) ) ) { send_to_char("Wait until you have bought/sold the item on auction.\n\r", ch); return ; } while( (o = carrying_noquit(ch)) != NULL ) { obj_from_char(o); obj_to_room(o, ch->in_room); ch_printf(ch,"&wYou drop %s&w.\n\r",o->short_descr); } if ( IS_PKILL( ch ) && ch->wimpy > (int) ch->max_hit / 2.25 ) { send_to_char( "Your wimpy has been adjusted to the maximum level for deadlies.\n\r", ch ); do_wimpy( ch, "max" ); } /* Purge all doubles no mater what, we don't want leftovers for dinner :) -Goku */ if (is_splitformed(ch)) { CHAR_DATA *och; CHAR_DATA *och_next; for ( och = first_char; och; och = och_next ) { och_next = och->next; if (!IS_NPC(och)) continue; if( (xIS_SET(och->affected_by, AFF_SPLIT_FORM) || xIS_SET(och->affected_by, AFF_TRI_FORM) || xIS_SET(och->affected_by, AFF_MULTI_FORM) || xIS_SET(och->affected_by, AFF_BIOJR)) && och->master == ch) { extract_char( och, TRUE ); } } xREMOVE_BIT( (ch)->affected_by, AFF_MULTI_FORM ); xREMOVE_BIT( (ch)->affected_by, AFF_TRI_FORM ); xREMOVE_BIT( (ch)->affected_by, AFF_SPLIT_FORM ); xREMOVE_BIT( (ch)->affected_by, AFF_BIOJR ); } old_auth = get_auth_name( ch->name ); if( old_auth != NULL && (old_auth->state == AUTH_ONLINE || old_auth->state == AUTH_LINK_DEAD) ) old_auth->state = AUTH_OFFLINE; /* Logging off */ /* Get 'em dismounted until we finish mount saving -- Blodkai, 4/97 */ if ( ch->position == POS_MOUNTED ) do_dismount( ch, "" ); set_char_color( AT_WHITE, ch ); send_to_char( "Your surroundings begin to fade as a mystical swirling vortex of colors\n\renvelops your body... When you come to, things are not as they were.\n\r\n\r", ch ); act( AT_SAY, "A strange voice says, 'We await your return, $n...'", ch, NULL, NULL, TO_CHAR ); act( AT_BYE, "$n has left the game.", ch, NULL, NULL, TO_CANSEE ); adjust_hiscore( "played", ch, ((get_age(ch) - 4) * 2) ); adjust_hiscore( "zeni", ch, ch->gold ); sprintf( buf, "%s has left the game", ch->name); if (!IS_IMMORTAL(ch)) do_info(ch, buf); else do_ainfo(ch, buf); if (xIS_SET(ch->affected_by, AFF_TAG)) xREMOVE_BIT(ch->affected_by, AFF_TAG); set_char_color( AT_GREY, ch); sprintf( log_buf, "%s has quit (Room %d).", ch->name, ( ch->in_room ? ch->in_room->vnum : -1 ) ); quitting_char = ch; save_char_obj( ch ); if ( sysdata.save_pets && ch->pcdata->pet ) { act( AT_BYE, "$N follows $S master into the Void.", ch, NULL, ch->pcdata->pet, TO_ROOM ); extract_char( ch->pcdata->pet, TRUE ); } if ( ch->pcdata->in_progress ) free_global_note( ch->pcdata->in_progress ); /* Synch clandata up only when clan member quits now. --Shaddai */ if ( ch->pcdata->clan ) save_clan( ch->pcdata->clan ); saving_char = NULL; level = get_trust(ch); /* * After extract_char the ch is no longer valid! */ for ( obj = ch->first_carrying; obj; obj = obj->next_content ) { if ( IS_OBJ_STAT(obj, ITEM_RARE) || IS_OBJ_STAT(obj, ITEM_UNIQUE) ) obj->pIndexData->count += obj->count; } extract_char( ch, TRUE ); for ( x = 0; x < MAX_WEAR; x++ ) for ( y = 0; y < MAX_LAYERS; y++ ) save_equipment[x][y] = NULL; /* don't show who's logging off to leaving player */ /* to_channel( log_buf, CHANNEL_MONITOR, "Monitor", level ); */ log_string_plus( log_buf, LOG_COMM, level ); return ; } void send_rip_screen( CHAR_DATA *ch ) { FILE *rpfile; int num = 0; char BUFF[MAX_STRING_LENGTH*2]; if ((rpfile = fopen(RIPSCREEN_FILE, "r")) != NULL) { while ((BUFF[num] = fgetc(rpfile)) != EOF) num++; fclose(rpfile); BUFF[num] = 0; write_to_buffer(ch->desc, BUFF, num); } } void send_rip_title( CHAR_DATA *ch ) { FILE *rpfile; int num = 0; char BUFF[MAX_STRING_LENGTH*2]; if ((rpfile = fopen(RIPTITLE_FILE, "r")) != NULL) { while ((BUFF[num] = fgetc(rpfile)) != EOF) num++; fclose(rpfile); BUFF[num] = 0; write_to_buffer(ch->desc, BUFF, num); } } void send_ansi_title( CHAR_DATA *ch ) { FILE *rpfile; int num = 0; char BUFF[MAX_STRING_LENGTH*2]; if ((rpfile = fopen(ANSITITLE_FILE, "r")) != NULL) { while ((BUFF[num] = fgetc(rpfile)) != EOF) num++; fclose(rpfile); BUFF[num] = 0; write_to_buffer(ch->desc, BUFF, num); } } void send_ascii_title( CHAR_DATA *ch ) { FILE *rpfile; int num = 0; char BUFF[MAX_STRING_LENGTH]; if ((rpfile = fopen(ASCTITLE_FILE, "r")) != NULL) { while ((BUFF[num] = fgetc(rpfile)) != EOF) num++; fclose(rpfile); BUFF[num] = 0; write_to_buffer(ch->desc, BUFF, num); } } void do_omenu( CHAR_DATA *ch, char *argument ) { OBJ_DATA *obj; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); if ( arg1[0] == '\0' ) { send_to_char( "Syntax: omenu <object> [page] \n\r", ch ); send_to_char( " Where: <object> is a prototype object \n\r", ch ); send_to_char( " and <page> is an optional letter to select menu-pages\n\r", ch ); return ; } if ( ( obj = get_obj_world( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } /* can redit or something */ ch->inter_type = OBJ_TYPE; ch->inter_substate = SUB_NORTH; if ( ch->inter_editing != NULL) DISPOSE(ch->inter_editing); ch->inter_editing = str_dup(obj->pIndexData->name); sscanf(ch->inter_editing, "%s", ch->inter_editing); /*one-arg*/ ch->inter_editing_vnum = obj->pIndexData->vnum; send_obj_page_to_char(ch, obj->pIndexData, arg2[0]); } void do_rmenu( CHAR_DATA *ch, char *argument ) { ROOM_INDEX_DATA *idx; char arg1[MAX_INPUT_LENGTH]; smash_tilde( argument ); argument = one_argument( argument, arg1 ); idx = ch->in_room; /* can redit or something */ ch->inter_type = ROOM_TYPE; ch->inter_substate = SUB_NORTH; if ( ch->inter_editing != NULL) DISPOSE(ch->inter_editing); ch->inter_editing = str_dup(idx->name); sscanf(ch->inter_editing, "%s", ch->inter_editing); /*one-arg*/ ch->inter_editing_vnum = idx->vnum; send_room_page_to_char(ch, idx, arg1[0]); } void do_cmenu( CHAR_DATA *ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; smash_tilde( argument ); argument = one_argument( argument, arg1 ); ch->inter_type = CONTROL_TYPE; if ( ch->inter_editing != NULL) DISPOSE(ch->inter_editing); ch->inter_editing = str_dup("Control Panel"); sscanf(ch->inter_editing, "%s", ch->inter_editing); /*one-arg*/ send_control_page_to_char(ch, arg1[0]); } void do_mmenu( CHAR_DATA *ch, char *argument ) { CHAR_DATA *victim; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); if ( arg1[0] == '\0' ) { send_to_char( "Syntax: mmenu <victim> [page] \n\r", ch ); send_to_char( " Where: <victim> is a prototype mob \n\r", ch ); send_to_char( " and <page> is an optional letter to select menu-pages\n\r", ch ); return ; } if ( ( victim = get_char_world( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( !IS_NPC(victim) ) { send_to_char( "Not on players.\n\r", ch ); return ; } if ( get_trust( ch ) < victim->level ) { set_char_color( AT_IMMORT, ch ); send_to_char( "Their godly glow prevents you from getting a good look .\n\r", ch ); return ; } ch->inter_type = MOB_TYPE; if ( ch->inter_editing != NULL) DISPOSE(ch->inter_editing); ch->inter_editing = str_dup(arg1); sscanf(ch->inter_editing, "%s", ch->inter_editing); /*one-arg*/ ch->inter_editing_vnum = victim->pIndexData->vnum; send_page_to_char(ch, victim->pIndexData, arg2[0]); } void do_rip( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Rip ON or OFF?\n\r", ch ); return ; } if ( (strcmp(arg, "on") == 0) || (strcmp(arg, "ON") == 0) ) { send_rip_screen(ch); xSET_BIT(ch->act, PLR_RIP); xSET_BIT(ch->act, PLR_ANSI); return ; } if ( (strcmp(arg, "off") == 0) || (strcmp(arg, "OFF") == 0) ) { xREMOVE_BIT(ch->act, PLR_RIP); send_to_char( "!|*\n\rRIP now off...\n\r", ch ); return ; } } void do_ansi( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "ANSI ON or OFF?\n\r", ch ); return ; } if ( (strcmp(arg, "on") == 0) || (strcmp(arg, "ON") == 0) ) { xSET_BIT(ch->act, PLR_ANSI); set_char_color( AT_WHITE + AT_BLINK, ch); send_to_char( "ANSI ON!!!\n\r", ch); return ; } if ( (strcmp(arg, "off") == 0) || (strcmp(arg, "OFF") == 0) ) { xREMOVE_BIT(ch->act, PLR_ANSI); send_to_char( "Okay... ANSI support is now off\n\r", ch ); return ; } } void do_save( CHAR_DATA *ch, char *argument ) { if ( IS_NPC(ch) ) return ; if ( NOT_AUTHED(ch) && ch->exp < 4000 ) { send_to_char_color( "&BYou must have a power level greater than 4,000 to be allowed\n\rto save with out having your name authorized.\n\r", ch ); return ; } WAIT_STATE( ch, 2 ); /* For big muds with save-happy players, like RoD */ update_aris(ch); /* update char affects and RIS */ save_char_obj( ch ); saving_char = NULL; send_to_char( "&wSaved...\n\r", ch ); adjust_hiscore( "pkill", ch, ch->pcdata->pkills ); /* cronel hiscore */ adjust_hiscore( "sparwins", ch, ch->pcdata->spar_wins ); adjust_hiscore( "sparloss", ch, ch->pcdata->spar_loss ); adjust_hiscore( "mkills", ch, ch->pcdata->mkills ); adjust_hiscore( "deaths", ch, (ch->pcdata->pdeaths + ch->pcdata->mdeaths) ); update_plHiscore(ch); adjust_hiscore( "played", ch, ((get_age(ch) - 4) * 2) ); adjust_hiscore( "zeni", ch, ch->gold ); adjust_hiscore( "bounty", ch, ch->pcdata->bkills); update_member(ch); return ; } /* * Something from original DikuMUD that Merc yanked out. * Used to prevent following loops, which can cause problems if people * follow in a loop through an exit leading back into the same room * (Which exists in many maze areas) -Thoric */ bool circle_follow( CHAR_DATA *ch, CHAR_DATA *victim ) { CHAR_DATA *tmp; for ( tmp = victim; tmp; tmp = tmp->master ) if ( tmp == ch ) return TRUE; return FALSE; } void do_dismiss( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Dismiss whom?\n\r", ch ); return ; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( ( IS_AFFECTED( victim, AFF_CHARM ) ) && ( IS_NPC( victim ) ) && ( victim->master == ch ) ) { stop_follower( victim ); stop_hating( victim ); stop_hunting( victim ); stop_fearing( victim ); act( AT_ACTION, "$n dismisses $N.", ch, NULL, victim, TO_NOTVICT ); act( AT_ACTION, "You dismiss $N.", ch, NULL, victim, TO_CHAR ); } else { send_to_char( "You cannot dismiss them.\n\r", ch ); } return ; } void do_follow( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; one_argument( argument, arg ); if (IS_NPC(ch) && xIS_SET(ch->affected_by, AFF_SPLIT_FORM)) return; if ( arg[0] == '\0' ) { send_to_char( "Follow whom?\n\r", ch ); return ; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if( ((!IS_NPC(ch) && xIS_SET(victim->act,PLR_NOFOLLOW) && !IS_IMMORTAL(ch)) || (IS_NPC(victim) && xIS_SET(victim->act, ACT_NOFOLLOW))) && ch != victim ) { send_to_char( "They don't want any followers.\n\r", ch ); return; } if ( IS_AFFECTED(ch, AFF_CHARM) && ch->master ) { act( AT_PLAIN, "But you'd rather follow $N!", ch, NULL, ch->master, TO_CHAR ); return ; } if ( is_splitformed(ch) && ch->master ) { act( AT_PLAIN, "But you'd rather follow $N!", ch, NULL, ch->master, TO_CHAR ); return ; } if ( victim == ch ) { if ( !ch->master ) { send_to_char( "You already follow yourself.\n\r", ch ); return ; } stop_follower( ch ); return ; } if ( ( ch->level - victim->level < -10 || ch->level - victim->level > 10 ) && !IS_HERO(ch) && !(ch->level < 15 && !IS_NPC(victim) && victim->pcdata->council && !str_cmp(victim->pcdata->council->name, "Newbie Council"))) { send_to_char( "You are not of the right caliber to follow.\n\r", ch ); return ; } if ( circle_follow( ch, victim ) ) { send_to_char( "Following in loops is not allowed... sorry.\n\r", ch ); return ; } if ( ch->master ) stop_follower( ch ); add_follower( ch, victim ); return ; } void add_follower( CHAR_DATA *ch, CHAR_DATA *master ) { if ( ch->master ) { bug( "Add_follower: non-null master.", 0 ); return ; } ch->master = master; ch->leader = NULL; /* Support for saving pets --Shaddai */ if ( IS_NPC(ch) && xIS_SET(ch->act, ACT_PET) && !IS_NPC(master) ) master->pcdata->pet = ch; if ( can_see( master, ch ) ) act( AT_ACTION, "$n now follows you.", ch, NULL, master, TO_VICT ); act( AT_ACTION, "You now follow $N.", ch, NULL, master, TO_CHAR ); return ; } void stop_follower( CHAR_DATA *ch ) { if ( !ch->master ) { bug( "Stop_follower: null master.", 0 ); return ; } if ( IS_NPC(ch) && !IS_NPC(ch->master) && ch->master->pcdata->pet == ch ) ch->master->pcdata->pet = NULL; if ( IS_AFFECTED(ch, AFF_CHARM) ) { xREMOVE_BIT( ch->affected_by, AFF_CHARM ); affect_strip( ch, gsn_charm_person ); if ( !IS_NPC(ch->master) ) ch->master->pcdata->charmies--; } if ( can_see( ch->master, ch ) ) if (!(!IS_NPC(ch->master) && IS_IMMORTAL(ch) && !IS_IMMORTAL(ch->master))) act( AT_ACTION, "$n stops following you.", ch, NULL, ch->master, TO_VICT ); act( AT_ACTION, "You stop following $N.", ch, NULL, ch->master, TO_CHAR ); ch->master = NULL; ch->leader = NULL; return ; } void die_follower( CHAR_DATA *ch ) { CHAR_DATA *fch; if ( ch->master ) stop_follower( ch ); ch->leader = NULL; for ( fch = first_char; fch; fch = fch->next ) { if ( fch->master == ch ) stop_follower( fch ); if ( fch->leader == ch ) fch->leader = fch; } return ; } void do_order( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char argbuf[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; CHAR_DATA *victim; CHAR_DATA *och; CHAR_DATA *och_next; bool found; bool fAll; strcpy( argbuf, argument ); argument = one_argument( argument, arg ); one_argument(argument,arg2); if ( arg[0] == '\0' || argument[0] == '\0' ) { send_to_char( "Order whom to do what?\n\r", ch ); return ; } if ( IS_AFFECTED( ch, AFF_CHARM ) ) { send_to_char( "You feel like taking, not giving, orders.\n\r", ch ); return ; } /*if( xIS_SET( ch->act, PLR_SPAR ) ) { send_to_char( "For the time being you can't do this while sparring.\n\r", ch ); return; }*/ if (!str_cmp(arg2, "spar")) { send_to_char("You cannot order your follower to engage in a spar.\n\r",ch); return; } if ( !str_cmp( arg, "all" ) ) { fAll = TRUE; victim = NULL; } else { fAll = FALSE; if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( victim == ch ) { send_to_char( "Aye aye, right away!\n\r", ch ); return ; } if ( (!is_splitformed(ch) || victim->master != ch )) { send_to_char( "Do it yourself!\n\r", ch ); return ; } if( !IS_NPC( victim ) ) { send_to_char( "No chance in HFIL\n\r", ch ); return; } } found = FALSE; for ( och = ch->in_room->first_person; och; och = och_next ) { och_next = och->next_in_room; if( !IS_NPC( och ) ) continue; if ( (IS_AFFECTED(och, AFF_CHARM) || is_splitformed(ch)) && och->master == ch && ( fAll || och == victim ) ) { found = TRUE; act( AT_ACTION, "$n orders you to '$t'.", ch, argument, och, TO_VICT ); interpret( och, argument ); } } if ( found ) { /*sprintf( log_buf, "%s: order %s.", ch->name, argbuf ); log_string_plus( log_buf, LOG_NORMAL, ch->level );*/ send_to_char( "Ok.\n\r", ch ); //WAIT_STATE( ch, 12 ); } else send_to_char( "You have no followers here.\n\r", ch ); return ; } /* char *itoa(int foo) { static char bar[256]; sprintf(bar,"%d",foo); return(bar); } */ /* Overhauled 2/97 -- Blodkai */ void do_group( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; one_argument( argument, arg ); if ( arg[0] == '\0' ) { CHAR_DATA *gch; CHAR_DATA *leader; leader = ch->leader ? ch->leader : ch; set_char_color( AT_DGREEN, ch ); ch_printf( ch, "\n\rFollowing %-12.12s [hitpnts] [ magic ] [mst] [mvs] [race]%s\n\r", PERS(leader, ch), ch->level < 50 ? " [to lvl]" : "" ); for ( gch = first_char; gch; gch = gch->next ) { if ( is_same_group( gch, ch ) ) { set_char_color( AT_DGREEN, ch ); if (IS_AFFECTED(gch, AFF_POSSESS)) /*reveal no information*/ ch_printf( ch, "[%2d %s] %-16s %4s/%4s hp %4s/%4s %s %4s/%4s mv %5s xp\n\r", gch->level, IS_NPC(gch) ? "Mob" : class_table[gch->class]->who_name, capitalize( PERS(gch, ch) ), "????", "????", "????", "????", "????", "????", "?????" ); else if ( gch->alignment > 750 ) sprintf(buf, " A"); else if ( gch->alignment > 350 ) sprintf(buf, "-A"); else if ( gch->alignment > 150 ) sprintf(buf, "+N"); else if ( gch->alignment > -150 ) sprintf(buf, " N"); else if ( gch->alignment > -350 ) sprintf(buf, "-N"); else if ( gch->alignment > -750 ) sprintf(buf, "+S"); else sprintf(buf, " S"); set_char_color( AT_DGREEN, ch ); send_to_char( "[", ch ); set_char_color( AT_GREEN, ch ); ch_printf( ch, "%-2d %2.2s %3.3s", gch->level, buf, IS_NPC(gch) ? "Mob" : class_table[gch->class]->who_name ); set_char_color( AT_DGREEN, ch ); send_to_char( "] ", ch ); set_char_color( AT_GREEN, ch ); ch_printf( ch, "%-12.12s ", capitalize( PERS(gch, ch) ) ); if ( gch->hit < gch->max_hit / 4 ) set_char_color( AT_DANGER, ch ); else if ( gch->hit < gch->max_hit / 2.5 ) set_char_color( AT_YELLOW, ch ); else set_char_color( AT_GREY, ch ); ch_printf( ch, "%5d", gch->hit ); set_char_color( AT_GREY, ch ); ch_printf( ch, "/%-5d ", gch->max_hit ); set_char_color( AT_LBLUE, ch ); ch_printf( ch, "%5d/%-5d ", gch->mana, gch->max_mana); if ( gch->mental_state < -25 || gch->mental_state > 25 ) set_char_color( AT_YELLOW, ch ); else set_char_color( AT_GREEN, ch ); ch_printf( ch, "%3.3s ", gch->mental_state > 75 ? "+++" : gch->mental_state > 50 ? "=++" : gch->mental_state > 25 ? "==+" : gch->mental_state > -25 ? "===" : gch->mental_state > -50 ? "-==" : gch->mental_state > -75 ? "--=" : "---" ); set_char_color( AT_DGREEN, ch ); ch_printf( ch, "%5d ", gch->move ); ch_printf( ch, "%6s ", gch->race == 0 ? "saiyan" : gch->race == 1 ? "human" : gch->race == 2 ? "halfbreed" : gch->race == 3 ? "namek" : gch->race == 4 ? "android" : gch->race == 5 ? "icer" : gch->race == 6 ? "bio-android" : gch->race == 7 ? "kaio" : gch->race == 8 ? "demon" : gch->race == 8 ? "wizard" : "" ); set_char_color( AT_GREEN, ch ); if ( gch->level < 50 ) ch_printf( ch, "%8d ", exp_level( gch, gch->level + 1) - gch->exp ); send_to_char( "\n\r", ch); } } return ; } if ( !strcmp( arg, "disband" )) { CHAR_DATA *gch; int count = 0; if ( ch->leader || ch->master ) { send_to_char( "You cannot disband a group if you're following someone.\n\r", ch ); return ; } for ( gch = first_char; gch; gch = gch->next ) { if ( is_same_group( ch, gch ) && ( ch != gch ) ) { gch->leader = NULL; gch->master = NULL; count++; send_to_char( "Your group is disbanded.\n\r", gch ); } } if ( count == 0 ) send_to_char( "You have no group members to disband.\n\r", ch ); else send_to_char( "You disband your group.\n\r", ch ); return ; } if ( !strcmp( arg, "all" ) ) { CHAR_DATA *rch; int count = 0; for ( rch = ch->in_room->first_person; rch; rch = rch->next_in_room ) { if ( ch != rch && !IS_NPC( rch ) && can_see( ch, rch ) && rch->master == ch && !ch->master && !ch->leader && abs( ch->level - rch->level ) < 9 && !is_same_group( rch, ch ) && IS_PKILL( ch ) == IS_PKILL( rch ) ) { rch->leader = ch; count++; } } if ( count == 0 ) send_to_char( "You have no eligible group members.\n\r", ch ); else { act( AT_ACTION, "$n groups $s followers.", ch, NULL, NULL, TO_ROOM ); send_to_char( "You group your followers.\n\r", ch ); } return ; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return ; } if ( ch->master || ( ch->leader && ch->leader != ch ) ) { send_to_char( "But you are following someone else!\n\r", ch ); return ; } if ( victim->master != ch && ch != victim ) { act( AT_PLAIN, "$N isn't following you.", ch, NULL, victim, TO_CHAR ); return ; } if ( victim == ch ) { act( AT_PLAIN, "You can't group yourself.", ch, NULL, victim, TO_CHAR ); return ; } if ( is_same_group( victim, ch ) && ch != victim ) { victim->leader = NULL; act( AT_ACTION, "$n removes $N from $s group.", ch, NULL, victim, TO_NOTVICT ); act( AT_ACTION, "$n removes you from $s group.", ch, NULL, victim, TO_VICT ); act( AT_ACTION, "You remove $N from your group.", ch, NULL, victim, TO_CHAR ); return ; } if ( ch->level - victim->level < -8 || ch->level - victim->level > 8 || ( IS_PKILL( ch ) != IS_PKILL( victim ) ) ) { act( AT_PLAIN, "$N cannot join $n's group.", ch, NULL, victim, TO_NOTVICT ); act( AT_PLAIN, "You cannot join $n's group.", ch, NULL, victim, TO_VICT ); act( AT_PLAIN, "$N cannot join your group.", ch, NULL, victim, TO_CHAR ); return ; } victim->leader = ch; act( AT_ACTION, "$N joins $n's group.", ch, NULL, victim, TO_NOTVICT); act( AT_ACTION, "You join $n's group.", ch, NULL, victim, TO_VICT ); act( AT_ACTION, "$N joins your group.", ch, NULL, victim, TO_CHAR ); return ; } /* * 'Split' originally by Gnort, God of Chaos. */ void do_split( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char arg[MAX_INPUT_LENGTH]; CHAR_DATA *gch; int members; int amount; int share; int extra; one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Split how much?\n\r", ch ); return ; } amount = atoi( arg ); if ( amount < 0 ) { send_to_char( "Your group wouldn't like that.\n\r", ch ); return ; } if ( amount == 0 ) { send_to_char( "You hand out zero coins, but no one notices.\n\r", ch ); return ; } if ( ch->gold < amount ) { send_to_char( "You don't have that much zeni.\n\r", ch ); return ; } members = 0; for ( gch = ch->in_room->first_person; gch; gch = gch->next_in_room ) { if ( is_same_group( gch, ch ) ) members++; } if ( xIS_SET(ch->act, PLR_AUTOGOLD) && members < 2 ) return ; if ( members < 2 ) { send_to_char( "Just keep it all.\n\r", ch ); return ; } share = amount / members; extra = amount % members; if ( share == 0 ) { send_to_char( "Don't even bother, cheapskate.\n\r", ch ); return ; } ch->gold -= amount; ch->gold += share + extra; set_char_color( AT_GOLD, ch ); ch_printf( ch, "You split %d zeni. Your share is %d zeni.\n\r", amount, share + extra ); sprintf( buf, "$n splits %d zeni. Your share is %d zeni.", amount, share ); for ( gch = ch->in_room->first_person; gch; gch = gch->next_in_room ) { if ( gch != ch && is_same_group( gch, ch ) ) { act( AT_GOLD, buf, ch, NULL, gch, TO_VICT ); gch->gold += share; } } return ; } void do_gtell( CHAR_DATA *ch, char *argument ) { CHAR_DATA *gch; #ifndef SCRAMBLE int speaking = -1, lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( ch->speaking & lang_array[lang] ) { speaking = lang; break; } #endif if ( argument[0] == '\0' ) { send_to_char( "Tell your group what?\n\r", ch ); return ; } if ( xIS_SET(ch->act, PLR_NO_TELL) ) { send_to_char( "Your message didn't get through!\n\r", ch ); return ; } /* * Note use of send_to_char, so gtell works on sleepers. */ /* sprintf( buf, "%s tells the group '%s'.\n\r", ch->name, argument );*/ for ( gch = first_char; gch; gch = gch->next ) { if ( is_same_group( gch, ch ) ) { set_char_color( AT_GTELL, gch ); /* Groups unscrambled regardless of clan language. Other languages still garble though. -- Altrag */ #ifndef SCRAMBLE if ( speaking != -1 && (!IS_NPC(ch) || ch->speaking) ) { int speakswell = UMIN(knows_language(gch, ch->speaking, ch), knows_language(ch, ch->speaking, gch)); if ( speakswell < 85 ) ch_printf( gch, "%s tells the group '%s'.\n\r", ch->name, translate(speakswell, argument, lang_names[speaking]) ); else ch_printf( gch, "%s tells the group '%s'.\n\r", ch->name, argument ); } else ch_printf( gch, "%s tells the group '%s'.\n\r", ch->name, argument ); #else if ( knows_language( gch, ch->speaking, gch ) || (IS_NPC(ch) && !ch->speaking) ) ch_printf( gch, "%s tells the group '%s'.\n\r", ch->name, argument ); else ch_printf( gch, "%s tells the group '%s'.\n\r", ch->name, scramble(argument, ch->speaking) ); #endif } } return ; } /* * It is very important that this be an equivalence relation: * (1) A ~ A * (2) if A ~ B then B ~ A * (3) if A ~ B and B ~ C, then A ~ C */ bool is_same_group( CHAR_DATA *ach, CHAR_DATA *bch ) { if ( ach->leader ) ach = ach->leader; if ( bch->leader ) bch = bch->leader; return ach == bch; } /* * this function sends raw argument over the AUCTION: channel * I am not too sure if this method is right.. */ void talk_auction (char *argument) { DESCRIPTOR_DATA *d; char buf[MAX_STRING_LENGTH]; CHAR_DATA *original; sprintf (buf, "Auction: %s", argument); /* last %s to reset color */ for (d = first_descriptor; d; d = d->next) { original = d->original ? d->original : d->character; /* if switched */ if ((d->connected == CON_PLAYING) && !xIS_SET(original->deaf, CHANNEL_AUCTION) && !xIS_SET(original->in_room->room_flags, ROOM_SILENCE) && !NOT_AUTHED(original) && ( (original->pcdata->auction_pl <= auction->item->level && original != auction->seller) || original == auction->seller)) { original->desc->psuppress_channel++; set_char_color( AT_CYAN, original ); send_to_char(buf, original); send_to_char("\n\r", original); // act( AT_GOSSIP, buf, original, NULL, NULL, TO_CHAR ); } } } /* * Language support functions. -- Altrag * 07/01/96 * * Modified to return how well the language is known 04/04/98 - Thoric * Currently returns 100% for known languages... but should really return * a number based on player's wisdom (maybe 50+((25-wisdom)*2) ?) */ int knows_language( CHAR_DATA *ch, int language, CHAR_DATA *cch ) { sh_int sn; if ( !IS_NPC(ch) && IS_IMMORTAL(ch) ) return 100; if ( IS_NPC(ch) && !ch->speaks ) /* No langs = knows all for npcs */ return 100; if ( IS_NPC(ch) && IS_SET(ch->speaks, (language & ~LANG_CLAN)) ) return 100; /* everyone KNOWS common tongue */ if ( IS_SET(language, LANG_COMMON) ) return 100; if ( language & LANG_CLAN ) { /* Clan = common for mobs.. snicker.. -- Altrag */ if ( IS_NPC(ch) || IS_NPC(cch) ) return 100; if ( ch->pcdata->clan == cch->pcdata->clan && ch->pcdata->clan != NULL ) return 100; } if ( !IS_NPC( ch ) ) { int lang; /* Racial languages for PCs */ if ( IS_SET(race_table[ch->race]->language, language) ) return 100; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( IS_SET(language, lang_array[lang]) && IS_SET(ch->speaks, lang_array[lang]) ) { if ( (sn = skill_lookup(lang_names[lang])) != -1 ) return ch->pcdata->learned[sn]; } } return 0; } bool can_learn_lang( CHAR_DATA *ch, int language ) { if ( language & LANG_CLAN ) return FALSE; if ( IS_NPC(ch) || IS_IMMORTAL(ch) ) return FALSE; if ( race_table[ch->race]->language & language ) return FALSE; if ( ch->speaks & language ) { int lang; for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( language & lang_array[lang] ) { int sn; if ( !(VALID_LANGS & lang_array[lang]) ) return FALSE; if ( ( sn = skill_lookup( lang_names[lang] ) ) < 0 ) { bug( "Can_learn_lang: valid language without sn: %d", lang ); continue; } if ( ch->pcdata->learned[sn] >= 99 ) return FALSE; } } if ( VALID_LANGS & language ) return TRUE; return FALSE; } int const lang_array[] = { LANG_COMMON, LANG_SAIYAN, LANG_HALFBREED, LANG_NAMEK, LANG_ANDROID, LANG_ICER, LANG_BIO_ANDROID, LANG_KAIO, LANG_DEMON, LANG_WIZARD, LANG_CLAN, LANG_UNKNOWN }; char * const lang_names[] = { "common", "saiyan", "halfbreed", "namek", "android", "icer", "bio-android", "kaio", "demon", "wizard", "clan", "" }; /* Note: does not count racial language. This is intentional (for now). */ int countlangs( int languages ) { int numlangs = 0; int looper; for ( looper = 0; lang_array[looper] != LANG_UNKNOWN; looper++ ) { if ( lang_array[looper] == LANG_CLAN ) continue; if ( languages & lang_array[looper] ) numlangs++; } return numlangs; } void do_speak( CHAR_DATA *ch, char *argument ) { int langs; char arg[MAX_INPUT_LENGTH]; argument = one_argument(argument, arg ); if ( !str_cmp( arg, "all" ) && IS_IMMORTAL( ch ) ) { set_char_color( AT_SAY, ch ); ch->speaking = ~LANG_CLAN; send_to_char( "Now speaking all languages.\n\r", ch ); return ; } for ( langs = 0; lang_array[langs] != LANG_UNKNOWN; langs++ ) if ( !str_prefix( arg, lang_names[langs] ) ) if ( knows_language( ch, lang_array[langs], ch ) ) { if ( lang_array[langs] == LANG_CLAN && (IS_NPC(ch) || !ch->pcdata->clan) ) continue; ch->speaking = lang_array[langs]; set_char_color( AT_SAY, ch ); ch_printf( ch, "You now speak %s.\n\r", lang_names[langs] ); return ; } set_char_color( AT_SAY, ch ); send_to_char( "You do not know that language.\n\r", ch ); } void do_languages( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; int lang; argument = one_argument( argument, arg ); if ( arg[0] != '\0' && !str_prefix( arg, "learn" ) && !IS_IMMORTAL(ch) && !IS_NPC(ch) ) { CHAR_DATA *sch; char arg2[MAX_INPUT_LENGTH]; int sn; int prct; int prac; argument = one_argument( argument, arg2 ); if ( arg2[0] == '\0' ) { send_to_char( "Learn which language?\n\r", ch ); return ; } for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) { if ( lang_array[lang] == LANG_CLAN ) continue; if ( !str_prefix( arg2, lang_names[lang] ) ) break; } if ( lang_array[lang] == LANG_UNKNOWN ) { send_to_char( "That is not a language.\n\r", ch ); return ; } if ( !(VALID_LANGS & lang_array[lang]) ) { send_to_char( "You may not learn that language.\n\r", ch ); return ; } if ( ( sn = skill_lookup( lang_names[lang] ) ) < 0 ) { send_to_char( "That is not a language.\n\r", ch ); return ; } if ( race_table[ch->race]->language & lang_array[lang] || lang_array[lang] == LANG_COMMON || ch->pcdata->learned[sn] >= 99 ) { act( AT_PLAIN, "You are already fluent in $t.", ch, lang_names[lang], NULL, TO_CHAR ); return ; } for ( sch = ch->in_room->first_person; sch; sch = sch->next_in_room ) if ( IS_NPC(sch) && xIS_SET(sch->act, ACT_SCHOLAR) && knows_language( sch, ch->speaking, ch ) && knows_language( sch, lang_array[lang], sch ) && (!sch->speaking || knows_language( ch, sch->speaking, sch )) ) break; if ( !sch ) { send_to_char( "There is no one who can teach that language here.\n\r", ch ); return ; } if ( countlangs(ch->speaks) >= (ch->level / 10) && ch->pcdata->learned[sn] <= 0 ) { act( AT_TELL, "$n tells you 'You may not learn a new language yet.'", sch, NULL, ch, TO_VICT ); return ; } /* 0..16 cha = 2 pracs, 17..25 = 1 prac. -- Altrag */ prac = 2; if ( ch->practice < prac ) { act( AT_TELL, "$n tells you 'You do not have enough practices.'", sch, NULL, ch, TO_VICT ); return ; } ch->practice -= prac; /* Max 12% (5 + 4 + 3) at 24+ int and 21+ wis. -- Altrag */ prct = 5 + (get_curr_int(ch) / 30); ch->pcdata->learned[sn] += prct; ch->pcdata->learned[sn] = UMIN(ch->pcdata->learned[sn], 99); SET_BIT( ch->speaks, lang_array[lang] ); if ( ch->pcdata->learned[sn] == prct ) act( AT_PLAIN, "You begin lessons in $t.", ch, lang_names[lang], NULL, TO_CHAR ); else if ( ch->pcdata->learned[sn] < 60 ) act( AT_PLAIN, "You continue lessons in $t.", ch, lang_names[lang], NULL, TO_CHAR ); else if ( ch->pcdata->learned[sn] < 60 + prct ) act( AT_PLAIN, "You feel you can start communicating in $t.", ch, lang_names[lang], NULL, TO_CHAR ); else if ( ch->pcdata->learned[sn] < 99 ) act( AT_PLAIN, "You become more fluent in $t.", ch, lang_names[lang], NULL, TO_CHAR ); else act( AT_PLAIN, "You now speak perfect $t.", ch, lang_names[lang], NULL, TO_CHAR ); return ; } for ( lang = 0; lang_array[lang] != LANG_UNKNOWN; lang++ ) if ( knows_language( ch, lang_array[lang], ch ) ) { if ( ch->speaking & lang_array[lang] || (IS_NPC(ch) && !ch->speaking) ) set_char_color( AT_SAY, ch ); else set_char_color( AT_PLAIN, ch ); send_to_char( lang_names[lang], ch ); send_to_char( "\n\r", ch ); } send_to_char( "\n\r", ch ); return ; } void do_traffic( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_TRAFFIC, "openly traffic" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_wartalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_WARTALK, "WAR" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } void do_racetalk( CHAR_DATA *ch, char *argument ) { if (NOT_AUTHED(ch)) { send_to_char("Huh?\n\r", ch); return ; } if (!IS_IMMORTAL(ch) && ch->exp < 5000) { send_to_char("You can't use this channel until you are out of training.\n\r", ch); return ; } if (is_swear(argument) ) { send_to_char("Oops, you shouldn't be swearing!\n\r", ch); return ; } sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, argument, CHANNEL_RACETALK, "RACETALK" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; } #ifdef PROFANITY_CHECK void init_profanity_checker() { #ifndef WIN32 bigregex = (char *) malloc (4096); add_profane_word("fuck"); /* skip over first 2 slashes and bar */ bigregex += 3; add_profane_word("shit"); add_profane_word("cunt"); preg = re_comp( bigregex ); #endif } #endif void add_profane_word( char * word) { #ifndef WIN32 char _word[4096]; int i, j; j = 0; _word[j] = '\\'; j++; _word[j] = '|'; j++; _word[j] = '\\'; j++; _word[j] = '('; j++; for (i = 0;i < strlen(word);i++) { _word[j] = '['; j++; _word[j] = tolower(word[i]); j++; _word[j] = toupper(word[i]); j++; _word[j] = ']'; j++; _word[j] = '+'; j++; _word[j] = '['; j++; _word[j] = '-'; j++; _word[j] = ' '; j++; _word[j] = '\t'; j++; _word[j] = '`'; j++; _word[j] = '~'; j++; _word[j] = '1'; j++; _word[j] = '!'; j++; _word[j] = '2'; j++; _word[j] = '@'; j++; _word[j] = '3'; j++; _word[j] = '#'; j++; _word[j] = '4'; j++; _word[j] = '5'; j++; _word[j] = '%'; j++; _word[j] = '6'; j++; _word[j] = '7'; j++; _word[j] = '&'; j++; _word[j] = '8'; j++; _word[j] = '9'; j++; _word[j] = '0'; j++; _word[j] = '_'; j++; _word[j] = ';'; j++; _word[j] = ':'; j++; _word[j] = ','; j++; _word[j] = '<'; j++; /* These need to be escaped for C */ _word[j] = '\''; j++; _word[j] = '\\'; j++; _word[j] = '\"'; j++; /* These need to be escaped for regex*/ _word[j] = '\\'; j++; _word[j] = '$'; j++; _word[j] = '>'; j++; _word[j] = '/'; j++; _word[j] = '\\'; j++; _word[j] = '^'; j++; _word[j] = '\\'; j++; _word[j] = '.'; j++; _word[j] = '\\'; j++; _word[j] = ')'; j++; _word[j] = '\\'; j++; _word[j] = '?'; j++; _word[j] = '\\'; j++; _word[j] = '*'; j++; _word[j] = '\\'; j++; _word[j] = '('; j++; _word[j] = '\\'; j++; _word[j] = '['; j++; _word[j] = '\\'; j++; _word[j] = '{'; j++; _word[j] = '\\'; j++; _word[j] = '+'; j++; #ifdef BIG /* i don't get what the deal is with this guy, it seems unescapable, so to speak. */ _word[j] = '\\'; j++; _word[j] = ']'; j++; #endif _word[j] = '\\'; j++; _word[j] = '}'; j++; _word[j] = '\\'; j++; _word[j] = '|'; j++; _word[j] = '\\'; j++; _word[j] = '='; j++; /* close up funny characters */ _word[j] = ']'; j++; _word[j] = '*'; j++; } _word[j] = '\\'; j++; _word[j] = ')'; j++; _word[j] = '\0'; strcat(bigregex, _word); #endif } int is_profane (char *what) { /*#ifndef WIN32 int ret; ret = re_exec(what); if (ret==1) return(1); #endif*/ return (0); } /*Add into file about line 604*/ /*cbusch was here*/ /* Chat bot disabled because it doesn't compile right * and it sucked in the first place :) -Goku 10.14.03 */ void chatperform(CHAR_DATA *ch, CHAR_DATA *victim, char* msg, int trigfrom) { return; } /*about line 637*/ /*cbusch was here*/ void chatperformtoroom( char *txt, CHAR_DATA *ch) { return; } /* * Channel to allow admin to talk directly to players without * having to use tell and so that the other admin can also see * it. -- Melora */ void do_adminto( CHAR_DATA *ch, char *argument ) { char origarg[MAX_STRING_LENGTH]; char charName[MAX_INPUT_LENGTH]; CHAR_DATA *victim; if (IS_NPC(ch)) { pager_printf_color(ch, "NPC's can't use the ADMIN channel."); return ; } sprintf( origarg, "%s", argument ); argument = one_argument( argument, charName ); if( ( victim = get_char_world( ch, charName ) ) == NULL ) { send_to_char( "No one with that name found.\n\r", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "You don't need to use this with NPCs!\n\r", ch ); return; } undeaf_admin(); sysdata.outBytesFlag = LOGBOUTCHANNEL; talk_channel( ch, origarg, CHANNEL_ADMTO, "ADMINTO" ); sysdata.outBytesFlag = LOGBOUTNORM; return ; }