/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* _/ _/_/_/ _/ _/ _/ ACK! MUD is modified *
* _/_/ _/ _/ _/ _/ Merc2.0/2.1/2.2 code *
* _/ _/ _/ _/_/ _/ (c)Stephen Dooley 1994 *
* _/_/_/_/ _/ _/ _/ "This mud has not been *
* _/ _/ _/_/_/ _/ _/ _/ tested on animals." *
* *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
/*
* Local functions.
*/
void note_attach args( ( CHAR_DATA *ch ) );
void note_remove args( ( CHAR_DATA *ch, NOTE_DATA *pnote ) );
void talk_channel args( ( CHAR_DATA *ch, char *argument,
int channel, const char *verb ) );
void ask_quest_question( CHAR_DATA *ch, char *argument );
/* Added back-in the note code, but made more like PO system */
bool is_note_to( CHAR_DATA *ch, NOTE_DATA *pnote )
{
if ( is_name( ch->name, pnote->to_list ) )
return TRUE;
return FALSE;
}
void note_attach( CHAR_DATA *ch )
{
NOTE_DATA *pnote;
if ( ch->pnote )
return;
GET_FREE(pnote, note_free);
pnote->next = NULL;
pnote->sender = str_dup( ch->name );
pnote->date = str_dup( "" );
pnote->to_list = str_dup( "" );
pnote->subject = str_dup( "" );
pnote->text = str_dup( "" );
ch->pnote = pnote;
return;
}
void note_remove( CHAR_DATA *ch, NOTE_DATA *pnote )
{
FILE *fp;
char *to_list;
char to_new [ MAX_INPUT_LENGTH ];
char to_one [ MAX_INPUT_LENGTH ];
/*
* Build a new to_list.
* Strip out this recipient.
*/
to_one[0] = '\0';
to_new[0] = '\0';
to_list = pnote->to_list;
while ( *to_list != '\0' )
{
to_list = one_argument( to_list, to_one );
if ( to_one[0] != '\0' && str_cmp( ch->name, to_one ) )
{
strcat( to_new, " " );
strcat( to_new, to_one );
}
}
/*
* Just a simple recipient removal?
*/
if ( str_cmp( ch->name, pnote->sender ) && to_new[0] != '\0' )
{
free_string( pnote->to_list );
pnote->to_list = str_dup( to_new + 1 );
return;
}
/*
* Remove note from linked list.
*/
UNLINK(pnote, first_note, last_note, next, prev);
free_string( pnote->text );
free_string( pnote->subject );
free_string( pnote->to_list );
free_string( pnote->date );
free_string( pnote->sender );
PUT_FREE(pnote, note_free);
/*
* Rewrite entire list.
*/
fclose( fpReserve );
if ( !( fp = fopen( NOTE_FILE, "w" ) ) )
{
perror( NOTE_FILE );
}
else
{
for ( pnote = first_note; pnote; pnote = pnote->next )
{
fprintf( fp, "Sender %s~\n", pnote->sender );
fprintf( fp, "Date %s~\n", pnote->date );
fprintf( fp, "Stamp %ld\n", pnote->date_stamp );
fprintf( fp, "To %s~\n", pnote->to_list );
fprintf( fp, "Subject %s~\n", pnote->subject );
fprintf( fp, "Text\n%s~\n\n", pnote->text );
}
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
/* Date stamp idea comes from Alander of ROM */
void do_note( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *postie;
NOTE_DATA *pnote;
char buf [ MAX_STRING_LENGTH ];
char buf1 [ MAX_STRING_LENGTH*7 ];
char arg [ MAX_INPUT_LENGTH ];
int vnum;
int anum;
char *tilde;
if ( IS_NPC( ch ) )
return;
buf[0] = '\0';
buf1[0] = '\0';
for ( postie = ch->in_room->first_person; postie != NULL; postie = postie->next_in_room )
if ( IS_NPC(postie) && IS_SET( postie->act, ACT_POSTMAN ) )
break;
if ( postie == NULL )
{
send_to_char( "But there is no PostMaster here!\n\r", ch );
return;
}
argument = one_argument( argument, arg );
smash_tilde( argument );
if ( arg[0] == '\0' )
{
do_note( ch, "read" );
return;
}
if ( !str_cmp( arg, "list" ) )
{
vnum = 0;
buf1[0] = '\0';
for ( pnote = first_note; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote ) )
{
sprintf( buf, "[%3d%s] %s: %s\n\r",
vnum,
( pnote->date_stamp > ch->last_note
&& str_cmp( pnote->sender, ch->name ) ) ? "N" : " ",
pnote->sender, pnote->subject );
strcat( buf1, buf );
vnum++;
}
}
if ( vnum == 0 )
send_to_char( "There are no messages waiting for you. Sorry!\n\r", ch );
else
{
/* act message */
send_to_char( buf1, ch );
}
return;
}
if ( !str_cmp( arg, "read" ) )
{
bool fAll;
if ( !str_cmp( argument, "all" ) )
{
fAll = TRUE;
anum = 0;
}
else if ( argument[0] == '\0' || !str_prefix( argument, "next" ) )
/* read next unread note */
{
vnum = 0;
buf1[0] = '\0';
for ( pnote = first_note; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote )
&& str_cmp( ch->name, pnote->sender )
&& ch->last_note < pnote->date_stamp )
{
sprintf( buf, "The letter is postmarked %d:%s\n\r",
vnum,
pnote->date );
strcat( buf1, buf );
sprintf( buf, "It bears the mark of %s on the envelope,\n\r",
pnote->sender );
strcat( buf1, buf );
sprintf( buf, "Across the top of the letter it says: %s\n\r",
pnote->subject );
strcat( buf1, buf );
strcat( buf1, "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n\r" );
strcat( buf1, pnote->text );
ch->last_note = UMAX( ch->last_note, pnote->date_stamp );
send_to_char( buf1, ch );
return;
}
else
vnum++;
}
send_to_char( "You have no unread letters.\n\r", ch );
return;
}
else if ( is_number( argument ) )
{
fAll = FALSE;
anum = atoi( argument );
}
else
{
send_to_char( "Read which letter?\n\r", ch );
return;
}
vnum = 0;
buf1[0] = '\0';
for ( pnote = first_note; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote ) && ( vnum++ == anum || fAll ) )
{
sprintf( buf, "The letter is postmarked %d:%s\n\r",
vnum,
pnote->date );
strcat( buf1, buf );
sprintf( buf, "It bears the mark of %s on the envelope,\n\r",
pnote->sender );
strcat( buf1, buf );
sprintf( buf, "Across the top of the letter it says: %s\n\r",
pnote->subject );
strcat( buf1, buf );
strcat( buf1, "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n\r" );
strcat( buf1, pnote->text );
if ( !fAll )
send_to_char( buf1, ch );
else
strcat( buf1, "\n\r" );
ch->last_note = UMAX( ch->last_note, pnote->date_stamp );
if ( !fAll )
return;
}
}
if ( !fAll )
send_to_char( "No such letter.\n\r", ch );
else
send_to_char( buf1, ch );
return;
}
if ( !str_cmp( arg, "write" ) || !str_cmp( arg, "edit" ) )
{
note_attach( ch );
build_strdup( &ch->pnote->text, "$edit", TRUE, ch );
return;
}
if ( !str_cmp( arg, "+" ) )
{
note_attach( ch );
strcpy( buf, ch->pnote->text );
if ( strlen( buf ) + strlen( argument ) >= MAX_STRING_LENGTH - 200 )
{
send_to_char( "Letter too long.\n\r", ch );
return;
}
while ((tilde = strchr(argument, '~')) != NULL) {
*tilde = '-';
}
strcat( buf, argument );
strcat( buf, "\n\r" );
free_string( ch->pnote->text );
ch->pnote->text = str_dup( buf );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg, "subject" ) )
{
note_attach( ch );
free_string( ch->pnote->subject );
ch->pnote->subject = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg, "to" ) )
{
note_attach( ch );
free_string( ch->pnote->to_list );
ch->pnote->to_list = str_dup( argument );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg, "clear" ) )
{
if ( ch->pnote )
{
free_string( ch->pnote->text );
free_string( ch->pnote->subject );
free_string( ch->pnote->to_list );
free_string( ch->pnote->date );
free_string( ch->pnote->sender );
PUT_FREE(ch->pnote, note_free);
ch->pnote = NULL;
}
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg, "show" ) )
{
if ( !ch->pnote )
{
send_to_char( "You have no letter in progress.\n\r", ch );
return;
}
sprintf( buf, "%s: %s\n\rTo: %s\n\r",
ch->pnote->sender,
ch->pnote->subject,
ch->pnote->to_list );
send_to_char( buf, ch );
send_to_char( ch->pnote->text, ch );
return;
}
if ( !str_cmp( arg, "post" ) || !str_prefix( arg, "send" ) )
{
FILE *fp;
char *strtime;
if ( !ch->pnote )
{
send_to_char( "You have no letter in progress.\n\r", ch );
return;
}
if ( !str_cmp( ch->pnote->to_list, "" ) )
{
send_to_char(
"You need to provide recipient name(s).\n\r",
ch );
return;
}
if ( !str_cmp( ch->pnote->subject, "" ) )
{
send_to_char( "You need to provide a subject.\n\r", ch );
return;
}
ch->pnote->next = NULL;
strtime = ctime( ¤t_time );
strtime[strlen(strtime)-1] = '\0';
free_string( ch->pnote->date );
ch->pnote->date = str_dup( strtime );
ch->pnote->date_stamp = current_time;
LINK(ch->pnote, first_note, last_note, next, prev);
pnote = ch->pnote;
ch->pnote = NULL;
fclose( fpReserve );
if ( !( fp = fopen( NOTE_FILE, "a" ) ) )
{
perror( NOTE_FILE );
}
else
{
fprintf( fp, "Sender %s~\n", pnote->sender );
fprintf( fp, "Date %s~\n", pnote->date );
fprintf( fp, "Stamp %ld\n", pnote->date_stamp );
fprintf( fp, "To %s~\n", pnote->to_list );
fprintf( fp, "Subject %s~\n", pnote->subject );
fprintf( fp, "Text\n%s~\n\n", pnote->text );
fclose( fp );
}
fpReserve = fopen( NULL_FILE, "r" );
send_to_char( "Ok.\n\r", ch );
return;
}
if ( !str_cmp( arg, "remove" ) )
{
if ( !is_number( argument ) )
{
send_to_char( "Remove which letter number?\n\r", ch );
return;
}
anum = atoi( argument );
vnum = 0;
for ( pnote = first_note; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote ) && vnum++ == anum )
{
note_remove( ch, pnote );
send_to_char( "Ok.\n\r", ch );
return;
}
}
send_to_char( "No such letter.\n\r", ch );
return;
}
send_to_char( "Huh? Type 'help letter' for usage.\n\r", ch );
return;
}
/*
* Generic channel function.
*/
void talk_channel( CHAR_DATA *ch, char *argument, int channel, const char *verb )
{
char buf[MAX_STRING_LENGTH];
DESCRIPTOR_DATA *d;
int position;
char ansi[MAX_STRING_LENGTH];
buf[0] = '\0';
ansi[0] = '\0';
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) )
&& ( channel != CHANNEL_HOWL ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
/* Allows immortals to communicate in silent rooms */
if ( IS_SET( ch->in_room->room_flags, ROOM_QUIET )
&& !IS_IMMORTAL(ch) ) /* Sssshhh! */
{
send_to_char( "Ssshhh! This is a quiet room!\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
sprintf( buf, "%s what?\n\r", verb );
buf[0] = UPPER(buf[0]);
return;
}
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_SILENCE) )
{
sprintf( buf, "You can't %s.\n\r", verb );
send_to_char( buf, ch );
return;
}
REMOVE_BIT(ch->deaf, channel);
if ( IS_SET( ch->deaf, CHANNEL_HERMIT ) )
send_to_char( "You are hermit right now, and will not hear the response.\n\r ", ch );
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
switch ( channel )
{
default:
sprintf( buf, "You %s '%s'.\n\r", verb, argument );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_GOSSIP:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "gossip" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_CRUSADE:
sprintf( buf, "@@NYou %s@@N '%s'.%s\n\r",
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_AUCTION:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "auction" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_MUSIC:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "music" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_YELL:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "yell" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_ADEPT:
sprintf( buf, "%s%s %s: '%s'.%s\n\r",
colour_string( ch, "clan" ), verb, ch->name,
argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %s: '$t'.", verb );
break;
case CHANNEL_FLAME:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "flame" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.", verb );
break;
case CHANNEL_SHOUT:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "shout" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.\n\r", verb );
break;
case CHANNEL_CLAN:
sprintf( buf, "%s%s %s: '%s'.%s\n\r",
colour_string( ch, "clan" ), verb, ch->name,
argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %s: '$t'.\n\r", verb );
break;
case CHANNEL_FAMILY:
sprintf( buf, "%s%s %s: '%s'.%s\n\r",
colour_string( ch, "clan" ), verb, ch->name,
argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %s: '$t'.\n\r", verb );
break;
case CHANNEL_HOWL:
sprintf( buf, "%sYou %s '%s'.%s\n\r", colour_string( ch, "race" ),
verb, argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'.\n\r", verb );
break;
case CHANNEL_RACE:
sprintf( buf, "%s%s %s: '%s'.%s\n\r",
colour_string( ch, "race" ), verb, ch->name,
argument, colour_string( ch, "normal" ) );
send_to_char( buf, ch );
sprintf( buf, "$n %s: '$t'.\n\r", verb );
break;
case CHANNEL_CREATOR:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_IMMTALK:
sprintf( buf, "$n: $t." );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_REMORTTALK:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_DIPLOMAT:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_QUEST:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_OOC:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
case CHANNEL_GAME:
sprintf( buf, "%s $n: $t.", verb );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
}
{
bool has_howled = FALSE;
for ( d = first_desc; d != NULL; d = d->next )
{
CHAR_DATA *och;
CHAR_DATA *vch;
och = (d->original) ? (d->original) : (d->character);
vch = d->character;
if ( d->connected == CON_PLAYING
&& vch != ch
&& !IS_SET(och->deaf, channel)
&& !IS_SET(och->deaf, CHANNEL_HERMIT) )
{
if ( IS_SET( vch->in_room->room_flags, ROOM_QUIET )
&& !IS_IMMORTAL(ch) )
continue;
if ( channel == CHANNEL_CREATOR && get_trust(och) < MAX_LEVEL )
continue;
if ( channel == CHANNEL_IMMTALK && !IS_HERO(och) )
continue;
if ( channel == CHANNEL_DIPLOMAT && !IS_SET( och->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) )
continue;
if ( channel == CHANNEL_REMORTTALK && !is_remort( och ) )
continue;
if ( channel == CHANNEL_YELL
&& vch->in_room->area != ch->in_room->area )
continue;
if ( channel == CHANNEL_ZZZ && vch->position != POS_SLEEPING && och->level !=85 )
continue;
if ( channel == CHANNEL_RACE && vch->race != ch->race
&& ( och->level != 85 || IS_SET( och->deaf, CHANNEL_ALLRACE ) ) )
continue;
if ( channel == CHANNEL_CLAN && och->pcdata->clan != ch->pcdata->clan
&& ( IS_SET( och->deaf, CHANNEL_ALLCLAN ) || get_trust(och) != MAX_LEVEL ) )
continue;
if ( ( channel == CHANNEL_FAMILY )
&& ( ( !IS_VAMP( och ) || !IS_VAMP( ch ) )
|| (och->pcdata->vamp_bloodline != ch->pcdata->vamp_bloodline ) ) )
continue;
if (channel == CHANNEL_ADEPT && vch->adept_level<1)
continue;
if ( ( channel == CHANNEL_HOWL )
&& ( !IS_WOLF( och ) ) )
{
if ( och->in_room->area != ch->in_room->area )
continue;
else
{
if ( och->in_room == ch->in_room )
{
if ( !has_howled )
{
check_social( ch, "howl", "" );
has_howled = TRUE;
}
}
else
send_to_char( "@@rAn eerie @@bHowl@@r sends chills up your spine.@@N\n\r", och );
continue;
}
}
position = vch->position;
if ( channel != CHANNEL_SHOUT && channel != CHANNEL_YELL )
vch->position = POS_STANDING;
switch ( channel )
{
default:
sprintf( ansi, "%s", buf );
break;
case CHANNEL_SHOUT:
sprintf( ansi, "%s%s%s", colour_string( vch, "shout" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_RACE:
sprintf( ansi, "%s%s%s", colour_string( vch, "race" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_MUSIC:
sprintf( ansi, "%s%s%s", colour_string( vch, "music" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_CLAN:
sprintf( ansi, "%s%s%s", colour_string( vch, "clan" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_FLAME:
sprintf( ansi, "%s%s%s", colour_string( vch, "flame" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_YELL:
sprintf( ansi, "%s%s%s", colour_string( vch, "yell" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_GOSSIP:
sprintf( ansi, "%s%s%s", colour_string( vch, "gossip" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_OOC:
sprintf( ansi, "%s%s%s", colour_string( vch, "gossip" ),
buf, colour_string( vch, "normal" ) );
break;
case CHANNEL_CRUSADE:
sprintf( ansi, "%s%s%s", colour_string( vch, "gossip" ),
buf, colour_string( vch, "normal" ) );
break;
}
act( ansi, ch, argument, vch, TO_VICT );
vch->position = position;
}
}
return;
}
}
void do_creator( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_CREATOR, "[C-Net]" );
return;
}
void do_gossip( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_GOSSIP, "gossip" );
return;
}
void do_crusade( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_CRUSADE, "@@lcrusade");
if ( ( !str_cmp( argument, "what mob?") )
|| ( !str_cmp( argument, "who was the thief?" ) )
|| ( !str_cmp( argument, "who is the thief?" ) )
|| ( !str_cmp( argument, "what item?" ) )
|| ( !str_cmp( argument, "where are you?" ) )
|| ( !str_cmp( argument, "who stole the item?" ) )
|| ( !str_cmp( argument, "where is the thief?" ) ) )
ask_quest_question( ch, argument );
return;
}
void do_music( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_MUSIC, "music" );
return;
}
void do_quest2( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_QUEST, "@@a[@@cQUEST@@a]@@W" );
return;
}
void do_game( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_GAME, "@@y[@@rGAME@@y]@@W" );
return;
}
void do_race( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
if ( IS_NPC( ch ) )
{
send_to_char( "NPCs cannot use this channel.\n\r", ch );
return;
}
sprintf( buf, "[ %s ]", race_table[ch->race].race_name );
talk_channel( ch, argument, CHANNEL_RACE, buf );
return;
}
void do_clan( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
if ( IS_NPC ( ch ) )
{
send_to_char( "NPCs cannot use this channel.\n\r", ch );
return;
}
if (ch->pcdata->clan == 0 )
{
send_to_char( "Only players in clans may use this channel.\n\r", ch );
return;
}
sprintf( buf, "[%s]", clan_table[ch->pcdata->clan].clan_abbr );
talk_channel( ch, argument, CHANNEL_CLAN, buf );
return;
}
void do_familytalk( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
if ( IS_NPC ( ch ) )
{
send_to_char( "NPCs cannot use this channel.\n\r", ch );
return;
}
if (!IS_VAMP( ch ) )
{
send_to_char( "Huh?\n\r", ch );
return;
}
sprintf( buf, "[%s]", get_family_name ( ch ) );
talk_channel( ch, argument, CHANNEL_FAMILY, buf );
return;
}
void do_howl( CHAR_DATA *ch, char *argument )
{
/* char buf[MAX_STRING_LENGTH]; */
if ( IS_NPC ( ch ) )
{
send_to_char( "NPCs cannot use this channel.\n\r", ch );
return;
}
if (!IS_WOLF( ch ) )
{
check_social( ch, "howl", "" );
return;
}
/* sprintf( buf, "[%s]", get_family_name ( ch ) ); */
talk_channel( ch, argument, CHANNEL_HOWL, "@@bHowl@@N" );
return;
}
void do_newbie( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_NEWBIE, "newbie" );
return;
}
void do_question( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_QUESTION, "question" );
return;
}
void do_answer( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_QUESTION, "answer" );
return;
}
void do_shout( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_SHOUT, "shout" );
WAIT_STATE( ch, 12 );
return;
}
/*
* Flame and zzz added by Stephen
* zzz will only be available to sleeping chars ;)
*/
void do_flame( CHAR_DATA *ch, char *argument )
{
if (ch->level < 3)
{
send_to_char( "You must be level 3 to use this channel.\n\r", ch );
return;
}
talk_channel( ch, argument, CHANNEL_FLAME, "flame" );
return;
}
void do_zzz( CHAR_DATA *ch, char *argument )
{
if (ch->level < 3)
{
send_to_char( "You must be level 3 to use this channel.\n\r", ch );
if ( !(ch->position == POS_SLEEPING) )
{
send_to_char( "And you have to be asleep anyway!!!\n\r", ch );
}
return;
}
/* check is asleep, if not then say not when awake, and return */
if ( !( ch->position == POS_SLEEPING) )
{
send_to_char( "You can only use this channel when asleep!\n\r", ch );
return;
}
talk_channel( ch, argument, CHANNEL_ZZZ, "zzz" );
return;
}
void do_yell( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_YELL, "yell" );
return;
}
void do_immtalk( CHAR_DATA *ch, char *argument )
{
char check[MSL];
one_argument( argument, check );
#if 0
if ( !str_cmp( check, "+" ) )
{
argument = one_argument( argument, check );
do_allimm( ch, argument );
}
else
#endif
talk_channel( ch, argument, CHANNEL_IMMTALK, "immtalk" );
return;
}
void do_diptalk( CHAR_DATA *ch, char *argument )
{
if ( !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) )
{
send_to_char( "You are not a clan diplomat.\n\r", ch );
return;
}
talk_channel( ch, argument, CHANNEL_DIPLOMAT, "@@lNEGOTIATE@@N" );
return;
}
void do_remorttalk( CHAR_DATA *ch, char *argument )
{
if (!is_remort( ch ) )
{
send_to_char( "You are not a @@mREMORT@@N!!!\n\r", ch );
return;
}
talk_channel( ch, argument, CHANNEL_REMORTTALK, "[@@mREMORT@@N]" );
return;
}
void do_ooc( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_OOC, "[OOC]" );
return;
}
void do_adepttalk(CHAR_DATA *ch, char *argument)
{
if (ch->adept_level<1)
{
send_to_char("You are not @@cADEPT!!@@N\n\r",ch);
return;
}
talk_channel(ch,argument,CHANNEL_ADEPT,"[@@lADEPT@@N]");
return;
}
void do_say( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *ppl;
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( IS_SET( ch->in_room->room_flags, ROOM_QUIET )
&& !IS_IMMORTAL(ch) )
{
send_to_char( "Sssshhhh! This is a quiet room!\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Say what?\n\r", ch );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
sprintf( buf, "You say '%s$T%s'.",
colour_string( ch, "say" ), colour_string( ch, "normal" ) );
act( buf, ch, NULL, argument, TO_CHAR );
for ( ppl = ch->in_room->first_person; ppl != NULL; ppl = ppl->next_in_room )
{
sprintf( buf, "$n says '%s$t%s'.",
colour_string( ppl, "say" ), colour_string( ppl, "normal" ) );
act( buf, ch, argument, ppl, TO_VICT );
}
mprog_speech_trigger(argument,ch);
return;
}
/* added by Eligan, July 10 */
void do_ignore( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
char *arg[3];
int i;
if ( IS_NPC( ch ) )
{
send_to_char( "NOT for NPCs!\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "\n@@ySyntax@@g: ignore <victim>\n\n\r", ch );
send_to_char( "Current people to be ignored:\n\r ", ch );
for( i=0 ; i<3 ; i++ )
{
if( ch->pcdata->ignore_list[i] != NULL )
{
sprintf(buf, " %d) @@R%s@@g\n\r",i+1,ch->pcdata->ignore_list[i]);
send_to_char( buf, ch );
}
else
{
sprintf( buf, " %d) @@Rnobody@@g\n\r", i+1 );
send_to_char( buf, ch );
}
}
return;
}
if ( !str_cmp( argument, "self" ) )
{
send_to_char( "Why would you want to do that?\n\r", ch);
return;
}
if ( ( victim = get_char_world( ch, argument ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( IS_NPC( victim ) )
{
send_to_char( "You can only ignore players!!\n\r", ch );
return;
}
if ( IS_IMMORTAL( victim ) )
{
send_to_char( "You cannot ignore immortals!\n\r", ch );
return;
}
/*
if ( argument[0] == '\0' )
{
send_to_char( "\n@@ySyntax@@g: ignore <victim>\n\n\r", ch );
send_to_char( "Current people to be ignored:\n\r ", ch );
for( i=0 ; i<3 ; i++ )
{
if( ch->pcdata->ignore_list[i] != NULL )
{
sprintf(buf, " %d) @@R%s@@g\n\r",i+1,ch->pcdata->ignore_list[i]);
send_to_char( buf, ch );
}
else
{
sprintf( buf, " %d) @@Rnobody@@g\n\r", i+1 );
send_to_char( buf, ch );
}
}
return;
}
*/
/* else */ /* it has an argument */
/* { */
for( i=0 ; i<3 ; i++ )
{
if( ch->pcdata->ignore_list[i] == NULL )
{
ch->pcdata->ignore_list[i] = str_dup("nobody");
}
arg[i] = str_dup( ch->pcdata->ignore_list[i] );
}
if ( !str_cmp(victim->name,arg[0]) ||
!str_cmp(victim->name,arg[1]) ||
!str_cmp(victim->name,arg[2]) )
{ /* if already on the list, remove them */
i=0;
while( str_cmp(victim->name,arg[i]) ){ i++; }
while( i < 2 )
{
free_string( ch->pcdata->ignore_list[i] );
ch->pcdata->ignore_list[i] = str_dup( arg[i+1] );
i++;
}
free_string( ch->pcdata->ignore_list[2] );
ch->pcdata->ignore_list[2] = str_dup( "nobody" );
}
else /* if not on list already */
{
if( !( !str_cmp(arg[0],"nobody") || !str_cmp(arg[1],"nobody") ||
!str_cmp(arg[2],"nobody") ) )
{
send_to_char( "Too many names, remove one first.\n\r", ch );
for ( i = 0; i <3; i++ )
free_string( arg[i] );
return;
}
for( i=0 ; i<3 ; i++ )
{
if( !str_cmp(arg[i],"nobody") )
{
free_string( ch->pcdata->ignore_list[i] );
ch->pcdata->ignore_list[i] = str_dup( argument );
break;
}
}
}
send_to_char( "\nCurrent person to be ignored:\n\r", ch );
for( i=0 ; i<3 ; i++ )
{
sprintf( buf, " %d) @@R%s@@g\n\r",i+1,ch->pcdata->ignore_list[i]);
send_to_char( buf, ch );
}
for ( i = 0; i <3; i++ )
free_string( arg[i] );
return;
/* } */
}
void do_tell( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int position;
if ( ch->in_room->vnum == ROOM_VNUM_JAIL
&& !IS_IMMORTAL(ch) )
{
send_to_char( "You cannot send tells from jail.\n\r", ch );
return;
}
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( ( !IS_NPC( ch ) )
&& ( IS_SET( ch->pcdata->pflags, PFLAG_AFK ) ) )
{
REMOVE_BIT( ch->pcdata->pflags, PFLAG_AFK );
act( "You are no longer AFK.", ch, NULL, NULL, TO_CHAR );
}
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_SILENCE) )
{
send_to_char( "Your message didn't get through.\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;
}
/* See if character is playing and visible to ch... if victim is
* an immortal they are told that a player is trying to talk to them.
* -- Stephen
*/
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( !IS_NPC( victim ) && IS_WOLF( victim )
&& ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) )
{
send_to_char( "They can't hear you.\n\r", ch );
return;
}
if ( !IS_NPC( victim ) && !victim->desc )
{
act("Sorry, but $N is currently link dead.", ch, NULL, victim, TO_CHAR );
return;
}
if ( ( !IS_NPC( victim ) )
&& ( IS_SET( victim->pcdata->pflags, PFLAG_AFK ) ) )
{
act( "$N is currently away from keyboard.", ch, NULL, victim, TO_CHAR );
return;
}
if ( IS_SET( victim->in_room->room_flags, ROOM_QUIET )
&& !IS_IMMORTAL(ch) )
{
act( "$N is in a quiet room, $E can't hear you.", ch, NULL, victim, TO_CHAR );
return;
}
if ( ( !IS_NPC( victim ) )
&& ( !str_cmp(victim->pcdata->ignore_list[0], ch->name) ||
!str_cmp(victim->pcdata->ignore_list[1], ch->name) ||
!str_cmp(victim->pcdata->ignore_list[2], ch->name) ) )
{
sprintf( buf, "%s @@Ris ignoring you!!@@g\n\r", victim->name );
send_to_char( buf, ch );
return;
}
/* if( victim->pcdata->ignore_list == ch->name ){ */
/* if( !str_cmp(victim->pcdata->ignore_list, ch->name) ){
send_to_char( "They are ignoring you\n\r", ch);
return;
}
if( victim->pcdata->ignore_list != NULL ){ */ /*{ == ch->name ){*/
/* sprintf( buf, "%s, %s\n\r", victim->pcdata->ignore_list, ch->name );
send_to_char( buf, ch);
return;
}*/
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
sprintf( buf, "You tell $N '%s$t%s'.", colour_string( ch, "tell" ),
colour_string( ch, "normal" ) );
act( buf, ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
sprintf( buf, "$n tells you '%s$t%s'.", colour_string( victim, "tell" ),
colour_string( victim, "normal" ) );
act( buf, ch, argument, victim, TO_VICT );
victim->position = position;
victim->reply = ch;
return;
}
void do_reply( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
int position;
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( !IS_NPC(ch) && IS_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 ) && IS_WOLF( victim )
&& ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) )
{
send_to_char( "They can't hear you.\n\r", ch );
return;
}
if ( IS_SET( victim->in_room->room_flags, ROOM_QUIET )
&& !IS_IMMORTAL(ch) )
{
act( "$N is in a quiet room. $E can't hear you.", ch, NULL, victim, TO_CHAR );
return;
}
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
act( "You tell $N '$t'.", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "$n tells you '$t'.", ch, argument, victim, TO_VICT );
victim->position = position;
victim->reply = ch;
return;
}
void do_emote( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char *plast;
buf[0] = '\0';
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_NO_EMOTE) )
{
send_to_char( "You can't show your emotions.\n\r", ch );
return;
}
if ( IS_SET( ch->in_room->room_flags, ROOM_QUIET ) )
{
send_to_char( "You can't show your emotions in a quiet room!\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Emote what?\n\r", ch );
return;
}
for ( plast = argument; *plast != '\0'; plast++ )
;
strcpy( buf, argument );
if ( isalpha(plast[-1]) )
strcat( buf, "." );
act( "$n $T", ch, NULL, buf, TO_ROOM );
act( "$n $T", ch, NULL, buf, TO_CHAR );
return;
}
/*
* All the posing stuff.
*/
struct pose_table_type
{
/* MAG Mod */
/* OLD char * message[2*MAX_CLASS]; */
/* New */
char * message[8];
};
const struct pose_table_type pose_table [] =
{
{
{
"You sizzle with energy.",
"$n sizzles with energy.",
"You feel very holy.",
"$n looks very holy.",
"You perform a small card trick.",
"$n performs a small card trick.",
"You show your bulging muscles.",
"$n shows $s bulging muscles."
}
},
{
{
"You turn into a butterfly, then return to your normal shape.",
"$n turns into a butterfly, then returns to $s normal shape.",
"You nonchalantly turn wine into water.",
"$n nonchalantly turns wine into water.",
"You wiggle your ears alternately.",
"$n wiggles $s ears alternately.",
"You crack nuts between your fingers.",
"$n cracks nuts between $s fingers."
}
},
{
{
"Blue sparks fly from your fingers.",
"Blue sparks fly from $n's fingers.",
"A halo appears over your head.",
"A halo appears over $n's head.",
"You nimbly tie yourself into a knot.",
"$n nimbly ties $mself into a knot.",
"You grizzle your teeth and look mean.",
"$n grizzles $s teeth and looks mean."
}
},
{
{
"Little red lights dance in your eyes.",
"Little red lights dance in $n's eyes.",
"You recite words of wisdom.",
"$n recites words of wisdom.",
"You juggle with daggers, apples, and eyeballs.",
"$n juggles with daggers, apples, and eyeballs.",
"You hit your head, and your eyes roll.",
"$n hits $s head, and $s eyes roll."
}
},
{
{
"A slimy green monster appears before you and bows.",
"A slimy green monster appears before $n and bows.",
"Deep in prayer, you levitate.",
"Deep in prayer, $n levitates.",
"You steal the underwear off every person in the room.",
"Your underwear is gone! $n stole it!",
"Crunch, crunch -- you munch a bottle.",
"Crunch, crunch -- $n munches a bottle."
}
},
{
{
"You turn everybody into a little pink elephant.",
"You are turned into a little pink elephant by $n.",
"An angel consults you.",
"An angel consults $n.",
"The dice roll ... and you win again.",
"The dice roll ... and $n wins again.",
"... 98, 99, 100 ... you do pushups.",
"... 98, 99, 100 ... $n does pushups."
}
},
{
{
"A small ball of light dances on your fingertips.",
"A small ball of light dances on $n's fingertips.",
"Your body glows with an unearthly light.",
"$n's body glows with an unearthly light.",
"You count the money in everyone's pockets.",
"Check your money, $n is counting it.",
"Arnold Schwarzenegger admires your physique.",
"Arnold Schwarzenegger admires $n's physique."
}
},
{
{
"Smoke and fumes leak from your nostrils.",
"Smoke and fumes leak from $n's nostrils.",
"A spot light hits you.",
"A spot light hits $n.",
"You balance a pocket knife on your tongue.",
"$n balances a pocket knife on your tongue.",
"Watch your feet, you are juggling granite boulders.",
"Watch your feet, $n is juggling granite boulders."
}
},
{
{
"The light flickers as you rap in magical languages.",
"The light flickers as $n raps in magical languages.",
"Everyone levitates as you pray.",
"You levitate as $n prays.",
"You produce a coin from everyone's ear.",
"$n produces a coin from your ear.",
"Oomph! You squeeze water out of a granite boulder.",
"Oomph! $n squeezes water out of a granite boulder."
}
},
{
{
"Your head disappears.",
"$n's head disappears.",
"A cool breeze refreshes you.",
"A cool breeze refreshes $n.",
"You step behind your shadow.",
"$n steps behind $s shadow.",
"You pick your teeth with a spear.",
"$n picks $s teeth with a spear."
}
},
{
{
"A fire elemental singes your hair.",
"A fire elemental singes $n's hair.",
"The sun pierces through the clouds to illuminate you.",
"The sun pierces through the clouds to illuminate $n.",
"Your eyes dance with greed.",
"$n's eyes dance with greed.",
"Everyone is swept off their foot by your hug.",
"You are swept off your feet by $n's hug."
}
},
{
{
"The sky changes color to match your eyes.",
"The sky changes color to match $n's eyes.",
"The ocean parts before you.",
"The ocean parts before $n.",
"You deftly steal everyone's weapon.",
"$n deftly steals your weapon.",
"Your karate chop splits a tree.",
"$n's karate chop splits a tree."
}
},
{
{
"The stones dance to your command.",
"The stones dance to $n's command.",
"A thunder cloud kneels to you.",
"A thunder cloud kneels to $n.",
"The Grey Mouser buys you a beer.",
"The Grey Mouser buys $n a beer.",
"A strap of your armor breaks over your mighty thews.",
"A strap of $n's armor breaks over $s mighty thews."
}
},
{
{
"The heavens and grass change colour as you smile.",
"The heavens and grass change colour as $n smiles.",
"The Burning Man speaks to you.",
"The Burning Man speaks to $n.",
"Everyone's pocket explodes with your fireworks.",
"Your pocket explodes with $n's fireworks.",
"A boulder cracks at your frown.",
"A boulder cracks at $n's frown."
}
},
{
{
"Everyone's clothes are transparent, and you are laughing.",
"Your clothes are transparent, and $n is laughing.",
"An eye in a pyramid winks at you.",
"An eye in a pyramid winks at $n.",
"Everyone discovers your dagger a centimeter from their eye.",
"You discover $n's dagger a centimeter from your eye.",
"Mercenaries arrive to do your bidding.",
"Mercenaries arrive to do $n's bidding."
}
},
{
{
"A black hole swallows you.",
"A black hole swallows $n.",
"Valentine Michael Smith offers you a glass of water.",
"Valentine Michael Smith offers $n a glass of water.",
"Where did you go?",
"Where did $n go?",
"Four matched Percherons bring in your chariot.",
"Four matched Percherons bring in $n's chariot."
}
},
{
{
"The world shimmers in time with your whistling.",
"The world shimmers in time with $n's whistling.",
"The great god Mota dances on your soul.",
"The great god Mota dances on $n's soul.",
"Click.",
"Click.",
"Atlas asks you to relieve him.",
"Atlas asks $n to relieve him."
}
}
};
void do_pose( CHAR_DATA *ch, char *argument )
{
int level;
int pose;
if ( IS_NPC(ch) )
return;
if ( IS_SET( ch->in_room->room_flags, ROOM_QUIET ) )
{
send_to_char( "You can't pose in a quiet room!\n\r", ch );
return;
}
level = UMIN( ch->level, (sizeof(pose_table) / sizeof(pose_table[0]) - 1) );
pose = number_range(0, level);
act( pose_table[pose].message[2*ch->class+0],
ch, NULL, NULL, TO_CHAR );
act( pose_table[pose].message[2*ch->class+1],
ch, NULL, NULL, TO_ROOM );
return;
}
void do_bug( CHAR_DATA *ch, char *argument )
{
append_file( ch, BUG_FILE, argument );
send_to_char( "Ok. Thanks.\n\r", ch );
return;
}
void do_idea( CHAR_DATA *ch, char *argument )
{
append_file( ch, IDEA_FILE, argument );
send_to_char( "Ok. Thanks.\n\r", ch );
return;
}
void do_typo( CHAR_DATA *ch, char *argument )
{
append_file( ch, TYPO_FILE, argument );
send_to_char( "Ok. Thanks.\n\r", ch );
return;
}
void do_rent( CHAR_DATA *ch, char *argument )
{
send_to_char( "There is no rent here. Just save and quit.\n\r", ch );
return;
}
void do_qui( CHAR_DATA *ch, char *argument )
{
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 )
{
DESCRIPTOR_DATA *d;
DESCRIPTOR_DATA *other_logins;
DESCRIPTOR_DATA *other_logins_next;
if ( IS_NPC(ch) )
return;
if ( ch->position == POS_FIGHTING )
{
send_to_char( "No way! You are fighting.\n\r", ch );
return;
}
if ( ch->position < POS_STUNNED )
{
send_to_char( "You're not DEAD yet.\n\r", ch );
return;
}
/* Quit message changed to cheesy bye text ;)
* -- Stephen
*/
send_to_char( "\n\r", ch );
act( " @@WFarewell, $n. Return safe to these realms.", ch, NULL, NULL, TO_CHAR );
send_to_char( "\n\r", ch );
send_to_char(
"@@y'If both the past and the external world exist only in the mind,\n\r"
, ch );
send_to_char( "and if the mind itself is controllable, what then?'\n\r"
, ch );
send_to_char( "@@W-- George Orwell, '1984'@@g\n\r", ch );
act( "$n waves, and leaves the game.", ch, NULL, NULL, TO_ROOM );
sprintf( log_buf, "%s quits ACK!", ch->name );
if ( ch->level != 85 )
notify( log_buf, MAX_LEVEL-2 );
log_string( log_buf );
/*
* After extract_char the ch is no longer valid!
*/
d = ch->desc;
for ( other_logins = first_desc; other_logins != NULL; other_logins = other_logins_next )
{
other_logins_next = other_logins->next;
if ( (other_logins != d )
&& ( other_logins->character != NULL )
&& ( other_logins->connected != CON_RECONNECTING )
&& ( !str_cmp( other_logins->character->name, ch->name ) ) )
{
if ( other_logins->connected == CON_GET_OLD_PASSWORD )
{
char logbuf[MSL];
sprintf( logbuf, "CHEATER!!! Possible attempt to utilize eq dup bug, %s", other_logins->character->name );
log_string( logbuf );
}
close_socket( other_logins );
}
}
save_char_obj( ch );
ch->is_quitting = TRUE;
extract_char( ch, TRUE );
if ( d != NULL )
close_socket( d );
return;
}
void do_save( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
if ( IS_NPC(ch) )
{
send_to_char( "NPCs are not able to save (at the moment?)\n\r", ch );
return;
}
if ( ch->level < 2 )
{
send_to_char( "You must be at least second level to save.\n\r", ch );
return;
}
save_char_obj( ch );
sprintf( buf, "Saving %s.\n\r", ch->name );
send_to_char( buf, ch );
return;
}
void do_follow( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
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_AFFECTED(ch, AFF_CHARM) && ch->master != NULL )
{
act( "But you'd rather follow $N!",
ch, NULL, ch->master, TO_CHAR );
return;
}
if ( victim == ch )
{
if ( ch->master == NULL )
{
send_to_char( "You already follow yourself.\n\r", ch );
return;
}
stop_follower( ch );
return;
}
if ( ( ch->level - victim->level < -20 || ch->level - victim->level > 20 )
&& !IS_HERO(ch) )
{
send_to_char( "You are not of the right caliber to follow.\n\r", ch );
return;
}
if ( IS_RIDING( ch ) && is_same_group( ch, ch->riding ) )
do_group( ch, ch->riding->name );
if ( ch->master != NULL )
stop_follower( ch );
add_follower( ch, victim );
return;
}
void add_follower( CHAR_DATA *ch, CHAR_DATA *master )
{
if ( ch->master != NULL )
{
bug( "Add_follower: non-null master.", 0 );
return;
}
if ( IS_NPC( ch ) && !IS_NPC( master ) )
{
short max_orders;
max_orders = ( get_curr_int( master ) / 5 );
if ( ( !IS_NPC( master ) )
&& ( master->pcdata->learned[gsn_unit_tactics] > 10 ) )
max_orders += master->pcdata->learned[gsn_unit_tactics]/28;
if ( max_orders <= master->num_followers )
{
send_to_char( "You cannot control anymore followers.\n\r", master );
ch->extract_timer = 1;
return;
}
else
{
master->num_followers++;
}
}
ch->master = master;
ch->leader = NULL;
if ( can_see( master, ch ) )
act( "$n starts following you.", ch, NULL, master, TO_VICT );
act( "You start following $N.", ch, NULL, master, TO_CHAR );
return;
}
void stop_follower( CHAR_DATA *ch )
{
if ( ch->master == NULL )
{
bug( "Stop_follower: null master.", 0 );
return;
}
if ( IS_AFFECTED(ch, AFF_CHARM) )
{
REMOVE_BIT( ch->affected_by, AFF_CHARM );
affect_strip( ch, gsn_charm_person );
}
if ( can_see( ch->master, ch ) )
act( "$n stops following you.",
ch, NULL, ch->master, TO_VICT );
act( "You stop following $N.",
ch, NULL, ch->master, TO_CHAR );
ch->master->num_followers--;
ch->master = NULL;
ch->leader = NULL;
return;
}
void die_follower( CHAR_DATA *ch )
{
CHAR_DATA *fch;
if ( ch->master != NULL )
stop_follower( ch );
ch->leader = NULL;
for ( fch = first_char; fch != NULL; 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_DATA *victim;
CHAR_DATA *och;
CHAR_DATA *och_next;
bool found;
bool fAll;
short num_followers = 0, max_orders = 0;
argument = one_argument( argument, arg );
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 ( !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_AFFECTED(victim, AFF_CHARM) || victim->master != ch )
{
send_to_char( "Do it yourself!\n\r", ch );
return;
}
}
one_argument ( argument, arg );
if ( ( !str_prefix( arg, "murder" ) )
|| ( !str_prefix( arg, "punch" ) )
|| ( !str_prefix( arg, "kick" ) )
|| ( !str_prefix( arg, "frenzy" ) )
|| ( !str_prefix( arg, "backstab" ) )
|| ( !str_prefix( arg, "circle" ) )
|| ( !str_prefix( arg, "dirt" ) )
|| ( !str_prefix( arg, "headbutt" ) )
|| ( !str_prefix( arg, "knee" ) )
|| ( !str_prefix( arg, "trip" ) )
|| ( !str_prefix( arg, "smash" ) )
|| ( !str_prefix( arg, "stake" ) )
|| ( !str_prefix( arg, "kill" ) )
|| ( !str_prefix( arg, "assassinate" ) )
|| ( !str_prefix( arg, "stun" ) )
|| ( !str_prefix( arg, "loot" ) )
|| ( !str_prefix( arg, "bs" ) )
|| ( !str_prefix( arg, "charge" ) )
|| ( !str_prefix( arg, "disarm" ) )
|| ( !str_prefix( arg, "steal" ) )
|| ( !str_prefix( arg, "target" ) )
|| ( !str_prefix( arg, "bash" ) )
)
{
send_to_char( "I won't do that, it's @@eEVIL!!!@@N\n\r", ch );
return;
}
if ( ( !str_prefix( arg, "recall" ) )
|| ( !str_prefix( arg, "/" ) )
|| ( !str_prefix( arg, "beep" ) )
|| ( !str_prefix( arg, "tell" ) )
|| ( !str_prefix( arg, "gossip" ) )
|| ( !str_prefix( arg, "shout" ) )
|| ( !str_prefix( arg, "flame" ) )
|| ( !str_prefix( arg, "home" ) )
|| ( !str_prefix( arg, "music" ) )
|| ( !str_prefix( arg, "." ) )
|| ( !str_prefix( arg, "crusade" ) )
|| ( !str_prefix( arg, "{" ) )
|| ( !str_prefix( arg, "answer" ) )
|| ( !str_prefix( arg, "diplomat" ) )
|| ( !str_prefix( arg, "enter" ) )
|| ( !str_prefix( arg, "vampyre" ) )
|| ( !str_prefix( arg, "newbie" ) )
|| ( !str_prefix( arg, "adept") )
|| ( !str_prefix( arg, "zzz" ) )
|| ( !str_prefix( arg, "quest" ) )
|| ( !str_prefix( arg, "disguise" ) )
|| ( !str_prefix( arg, "question" ) )
|| ( !str_prefix( arg, "game" ) )
|| ( !str_prefix( arg, "ooc" ) )
|| ( !str_prefix( arg, "auction" ) )
|| ( !str_prefix( arg, "bid" ) )
)
{
send_to_char( "I won't do that, it's @@eNOT NICE!!!@@N\n\r", ch );
return;
}
if ( ( fAll != TRUE )
&& ( victim->master == ch )
&& ( victim->is_free == FALSE ) )
{
act( "$n orders you to '$t'.", ch, argument, victim, TO_VICT );
interpret ( victim, argument );
send_to_char ( "Ok.\n\r", ch );
return;
}
found = FALSE;
max_orders = ( get_curr_int( ch ) / 5 );
if ( !IS_NPC( ch )
&& ( ch->pcdata->learned[gsn_unit_tactics] > 10 ) )
max_orders += ch->pcdata->learned[gsn_unit_tactics]/28;
CREF( och_next, CHAR_NEXTROOM );
for ( och = ch->in_room->first_person; och != NULL; och = och_next )
{
och_next = och->next_in_room;
if ( och->is_free == FALSE )
{
num_followers ++;
if ( num_followers <= max_orders )
{
if ( IS_AFFECTED(och, AFF_CHARM)
&& och->master == ch
&& ( fAll ) )
{
found = TRUE;
act( "$n orders you to '$t'.", ch, argument, och, TO_VICT );
interpret( och, argument);
}
}
else
{
send_to_char( "@@eYou can't control anymore followers!!@@N", ch );
break;
}
}
}
CUREF( och_next );
if ( found )
send_to_char( "Ok.\n\r", ch );
else
send_to_char( "You have no followers here.\n\r", ch );
return;
}
void group_all ( CHAR_DATA * ch )
{
CHAR_DATA *gch;
int new_members = 0;
bool ch_adept = FALSE, victim_adept = FALSE, ch_dremort = FALSE, victim_dremort = FALSE, ch_sremort = FALSE, victim_sremort = FALSE;
bool legal_group = FALSE;
for ( gch = ch->in_room->first_person; gch != NULL;
gch = gch->next_in_room )
{
if ( ( gch->master == ch ) && ( gch->leader != ch ) )
{
if ( ch->adept_level > 0 )
ch_adept = TRUE;
if ( gch->adept_level > 0 )
victim_adept = TRUE;
if ( get_psuedo_level( ch ) > 97 )
ch_dremort = TRUE;
if ( get_psuedo_level( gch ) > 97 )
victim_dremort = TRUE;
if ( get_psuedo_level( ch ) > 80 )
ch_sremort = TRUE;
if ( get_psuedo_level( gch ) > 80 )
victim_sremort = TRUE;
/* sprintf( buf, "%s level %i Adept: %s DREMORT: %s SREMORT: %s\n\r %s level %i ADEPT: %s DREMORT: %s SREMORT: %s \n\r",
ch->name, get_psuedo_level( ch ), ( ch_adept == TRUE ) ? "YES" : "NO", ( ch_dremort == TRUE) : "YES" : "NO", ( ch_sremort == TRUE ) ? "YES" : "NO",
victim->name, get_psuedo_level( victim ), ( victim_adept == TRUE ) ? "YES" : "NO", ( victim_dremort == TRUE ) ? "YES" : "NO", ( victim_sremort == TRUE ) ? "YES" : "NO" );
*/
if ( ch_adept && victim_adept )
{
legal_group = TRUE;
/* send_to_char( "Two Adepts\n\r", ch ); */
}
else
if ( ( ch_adept && victim_dremort )
|| ( victim_adept && ch_dremort ) )
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( gch ) ) < 9 )
legal_group = TRUE;
/* send_to_char( "Adept and dremort\n\r", ch ); */
}
else
if ( ch_dremort || victim_dremort || ch_sremort || victim_sremort )
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( gch ) ) < 8 )
legal_group = TRUE;
else
legal_group = FALSE;
/* send_to_char( "One Remort\n\r", ch ); */
}
else
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( gch ) ) < 21 )
legal_group = TRUE;
/* send_to_char( "No Remorts\n\r", ch ); */
}
if ( !( legal_group ) )
{
act( "$N cannot join $n's group.", ch, NULL, gch, TO_NOTVICT );
act( "You cannot join $n's group.", ch, NULL, gch, TO_VICT );
act( "$N cannot join your group.", ch, NULL, gch, TO_CHAR );
}
else
{
gch->leader = ch;
act( "$N joins $n's group.", ch, NULL, gch, TO_NOTVICT );
act( "You join $n's group.", ch, NULL, gch, TO_VICT );
act( "$N joins your group.", ch, NULL, gch, TO_CHAR );
new_members = new_members + 1;
}
}
}
if ( new_members == 0 )
send_to_char( "No one else wants to join your group.\n\r", ch );
return;
}
void do_group( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
bool ch_adept = FALSE, victim_adept = FALSE, ch_dremort = FALSE, victim_dremort = FALSE, ch_sremort = FALSE, victim_sremort = FALSE;
bool legal_group = FALSE;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
CHAR_DATA *gch;
CHAR_DATA *leader;
leader = (ch->leader != NULL) ? ch->leader : ch;
sprintf( buf, "%s's group:\n\r", PERS(leader, ch) );
send_to_char( buf, ch );
for ( gch = first_char; gch != NULL; gch = gch->next )
{
if ( is_same_group( gch, ch ) )
{
if ( !IS_NPC( ch ) && IS_SET( ch->pcdata->pflags, PFLAG_BLIND_PLAYER ) )
{
sprintf( buf,
"%-16s %4d of %4d hp %4d of %4d mana %4d of %4d move %5d xp\n\r",
capitalize( PERS(gch, ch) ),
gch->hit, gch->max_hit,
gch->mana, gch->max_mana,
gch->move, gch->max_move,
gch->exp );
}
else
{
sprintf( buf,
"[%2d %s] %-16s %4d/%4d hp %4d/%4d mana %4d/%4d mv %5d xp\n\r",
gch->level,
IS_NPC(gch) ? "Mob" : class_table[gch->class].who_name,
capitalize( PERS(gch, ch) ),
gch->hit, gch->max_hit,
gch->mana, gch->max_mana,
gch->move, gch->max_move,
gch->exp );
}
send_to_char( buf, ch );
}
}
return;
}
/* if ( !str_cmp ( arg, "all" ) )
{
group_all ( ch );
return;
} */
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( ch->master != NULL || ( ch->leader != NULL && ch->leader != ch ) )
{
send_to_char( "But you are following someone else!\n\r", ch );
return;
}
if ( victim->master != ch && ch != victim )
{
act( "$N isn't following you.", ch, NULL, victim, TO_CHAR );
return;
}
if ( is_same_group( victim, ch ) && ch != victim )
{
victim->leader = NULL;
act( "$n removes $N from $s group.", ch, NULL, victim, TO_NOTVICT );
act( "$n removes you from $s group.", ch, NULL, victim, TO_VICT );
act( "You remove $N from your group.", ch, NULL, victim, TO_CHAR );
return;
}
/* Multiple grouping restriction checks Zen */
if ( ch->adept_level > 0 )
ch_adept = TRUE;
if ( victim->adept_level > 0 )
victim_adept = TRUE;
if ( get_psuedo_level( ch ) > 97 )
ch_dremort = TRUE;
if ( get_psuedo_level( victim ) > 97 )
victim_dremort = TRUE;
if ( get_psuedo_level( ch ) > 80 )
ch_sremort = TRUE;
if ( get_psuedo_level( victim ) > 80 )
victim_sremort = TRUE;
/* sprintf( buf, "%s level %i Adept: %s DREMORT: %s SREMORT: %s\n\r %s level %i ADEPT: %s DREMORT: %s SREMORT: %s \n\r",
ch->name, get_psuedo_level( ch ), ( ch_adept == TRUE ) ? "YES" : "NO", ( ch_dremort == TRUE) : "YES" : "NO", ( ch_sremort == TRUE ) ? "YES" : "NO",
victim->name, get_psuedo_level( victim ), ( victim_adept == TRUE ) ? "YES" : "NO", ( victim_dremort == TRUE ) ? "YES" : "NO", ( victim_sremort == TRUE ) ? "YES" : "NO" );
*/
if ( ch_adept && victim_adept )
{
legal_group = TRUE;
/* send_to_char( "Two Adepts\n\r", ch ); */
}
else
if ( ( ch_adept && victim_dremort )
|| ( victim_adept && ch_dremort ) )
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( victim ) ) < 9 )
legal_group = TRUE;
/* send_to_char( "Adept and dremort\n\r", ch ); */
}
else
if ( ch_dremort || victim_dremort || ch_sremort || victim_sremort )
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( victim ) ) < 8 )
legal_group = TRUE;
else
legal_group = FALSE;
/* send_to_char( "One Remort\n\r", ch ); */
}
else
{
if ( abs( get_psuedo_level( ch ) - get_psuedo_level( victim ) ) < 21 )
legal_group = TRUE;
/* send_to_char( "No Remorts\n\r", ch ); */
}
/* if ( ( ch->adept_level > 1 && victim->adept_level <= 0 )
|| ( victim->adept
if ( get_psuedo_level(ch) - get_psuedo_level(victim) < -30
|| get_psuedo_level(ch) - get_psuedo_level(victim) > 30 ) */
if ( ch->riding == victim )
legal_group = TRUE;
if ( !( legal_group ) )
{
act( "$N cannot join $n's group.", ch, NULL, victim, TO_NOTVICT );
act( "You cannot join $n's group.", ch, NULL, victim, TO_VICT );
act( "$N cannot join your group.", ch, NULL, victim, TO_CHAR );
return;
}
victim->leader = ch;
act( "$N joins $n's group.", ch, NULL, victim, TO_NOTVICT );
act( "You join $n's group.", ch, NULL, victim, TO_VICT );
act( "$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 gold.\n\r", ch );
return;
}
members = 0;
for ( gch = ch->in_room->first_person; gch != NULL; gch = gch->next_in_room )
{
if ( is_same_group( gch, ch ) )
members++;
}
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;
sprintf( buf,
"You split %d gold coins. Your share is %d gold coins.\n\r",
amount, share + extra );
send_to_char( buf, ch );
sprintf( buf, "$n splits %d gold coins. Your share is %d gold coins.",
amount, share );
for ( gch = ch->in_room->first_person; gch != NULL; gch = gch->next_in_room )
{
if ( gch != ch && is_same_group( gch, ch ) )
{
act( buf, ch, NULL, gch, TO_VICT );
gch->gold += share;
}
}
return;
}
void do_gtell( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *gch;
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Tell your group what?\n\r", ch );
return;
}
if ( IS_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.
*/
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
sprintf( buf, "%s tells the group '%s'.\n\r", ch->name, argument );
for ( gch = first_char; gch != NULL; gch = gch->next )
{
if ( is_same_group( gch, ch ) )
send_to_char( buf, gch );
}
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 != NULL ) ach = ach->leader;
if ( bch->leader != NULL ) bch = bch->leader;
return ach == bch;
}
bool is_group_leader(CHAR_DATA *ch)
{
CHAR_DATA * vch;
bool rvalue;
rvalue=FALSE;
for (vch=ch->in_room->first_person; vch != NULL; vch=vch->next_in_room)
{
if ( vch != ch
&& vch->leader == ch)
{
rvalue=TRUE;
break;
}
}
return rvalue;
}
void do_pemote( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char *plast;
buf[0] = '\0';
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_NO_EMOTE) )
{
send_to_char( "You can't pemote.\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Pemote what?\n\r", ch );
return;
}
for ( plast = argument; *plast != '\0'; plast++ )
;
strcpy( buf, argument );
if ( isalpha(plast[-1]) )
strcat( buf, "." );
act( "$n's $T", ch, NULL, buf, TO_ROOM );
act( "$n's $T", ch, NULL, buf, TO_CHAR );
return;
}
void do_pray( CHAR_DATA *ch, char *argument )
{
char buf[MAX_INPUT_LENGTH];
if ( ch->level > LEVEL_HERO )
{
send_to_char( "Hey, try immtalk why don't you?\n\r", ch );
return;
}
if ( IS_NPC( ch ) )
{
send_to_char( "You pray hard... who knows if it got heard?\n\r", ch );
return;
}
/* allows mortals to send messages to immortals...
* uses notify to send the message.
* -- Stephen
*/
if ( argument[0] == '\0' )
{
send_to_char( "What do you wish to pray?\n\r", ch );
return;
}
if ( IS_SET( ch->act, PLR_NO_PRAY ) )
{
send_to_char( "The Gods are not listening to you today.\n\r", ch );
return;
}
send_to_char( "You pray, concentrating on your message.\n\r", ch );
sprintf( buf, "%s sends the following message via prayer:\n\r`%s'\n\r",
ch->name, argument );
notify( buf, LEVEL_HERO );
return;
}
void do_tongue( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
char buf2 [MAX_STRING_LENGTH];
char buf3 [MAX_STRING_LENGTH];
CHAR_DATA *rch;
char *pName;
int iSyl;
int length;
struct syl_type
{
char * old;
char * new;
};
static const struct syl_type syl_table[] =
{
{ " ", " " },
{ "fuck", "love" },
{ "go", "swim" },
{ "the", "woi" },
{ "hi", "yibba" },
{ "hello", "smeg" },
{ "me", "ug" },
{ "follow", "grep" },
{ "kill", "banzai" },
{ "ing", "pft" },
{ "er", "sf" },
{ "you", "lpt" },
{ "ast", "pal" },
{ "nd", "ja" },
{ "re", "qa" },
{ "tell", "argh" },
{ "who", "wib" },
{ "which", "fvl" },
{ "ts", "glup" },
{ "st", "plop" },
{ "ck", "fim" },
{ "ord", "xio" },
{ "sw", "cow" },
{ "ic", "er" },
{ "ea", "ox" },
{ "?", "?" }, { "!", "!" }, { ":", ":" }, { ")", ")" },
{ "(", "(" }, { ";", ";" }, { "*", "*" }, { "-", "-" },
{ ".", "," }, { ",", "," },
{ "a", "y" }, { "b", "d" }, { "c", "g" }, { "d", "b" },
{ "e", "q" }, { "f", "i" }, { "g", "u" }, { "h", "r" },
{ "i", "t" }, { "j", "m" }, { "k", "j" }, { "l", "v" },
{ "m", "o" }, { "n", "t" }, { "o", "s" }, { "p", "f" },
{ "q", "k" }, { "r", "x" }, { "s", "z" }, { "t", "e" },
{ "u", "p" }, { "v", "c" }, { "w", "n" }, { "x", "h" },
{ "y", "a" }, { "z", "l" },
{ "", "" }
};
buf[0] = '\0';
buf2[0] = '\0';
buf3[0] = '\0';
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
for (pName = argument; *pName != '\0'; pName += length)
{
for ( iSyl = 0; (length = strlen(syl_table[iSyl].old)) != 0; iSyl++ )
{
if ( !str_prefix( syl_table[iSyl].old, pName ) )
{
strcat( buf, syl_table[iSyl].new );
break;
}
}
if ( length == 0 )
length=1;
}
sprintf( buf3, "$n tongues, '%s'", buf );
sprintf( buf2, "$n tongues, '%s'.", argument );
for ( rch = ch->in_room->first_person; rch; rch = rch->next_in_room )
{
if ( IS_NPC(rch) )
{
act( buf3, ch, NULL, rch, TO_VICT );
continue;
}
if ( rch != ch )
act( ( ch->race==rch->race || rch->level > LEVEL_IMMORTAL ) ? buf2 : buf3, ch, NULL, rch, TO_VICT );
}
sprintf( buf2, "You tongue, '%s'.\n\r", buf );
send_to_char( buf2, ch );
sprintf( buf2, "Translation: %s.\n\r", argument );
send_to_char( buf2, ch );
return;
}
char *slur_text( char *argument )
{
/* Used to slur text, if a player is DRUNK. */
static char buf[MAX_STRING_LENGTH];
char *pName;
int iSyl;
int length;
struct syl_type
{
char * old;
char * new;
};
static const struct syl_type syl_table[] =
{
{ " ", " " },
{ "th", "f" },
{ "ck", "k" },
{ "?", "?" }, { "!", "!" }, { ":", ":" }, { ")", ")" },
{ "(", "(" }, { ";", ";" }, { "*", "*" }, { "-", "-" },
{ ".", "," }, { ",", "," },
{ "a", "a" }, { "b", "b" }, { "c", "see" }, { "d", "d" },
{ "e", "e" }, { "f", "f" }, { "g", "g" }, { "h", "h" },
{ "i", "i" }, { "j", "j" }, { "k", "g" }, { "l", "l" },
{ "m", "m" }, { "n", "n" }, { "o", "o" }, { "p", "p" },
{ "q", "q" }, { "r", "r" }, { "s", "ss" }, { "t", "t" },
{ "u", "u" }, { "v", "s" }, { "w", "w" }, { "x", "x" },
{ "y", "y" }, { "z", "s" },
{ NULL, NULL }
};
/* might be fixed now! return argument; */
buf[0] = '\0';
for (pName = argument; *pName != '\0'; pName += length)
{
length=1;
if ( *pName == '$' ) /* do not modify args to act. */
{
if (*pName != '\0' )
length++;
continue;
}
for ( iSyl = 0; syl_table[iSyl].old != NULL; iSyl++ )
{
if ( !str_prefix( syl_table[iSyl].old, pName ) )
{
strcat( buf, syl_table[iSyl].new );
length=strlen(syl_table[iSyl].old);
break;
}
}
}
return( buf );
}
void do_whisper( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int position;
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_SILENCE) )
{
send_to_char( "Your whispering skills seem rusty today.\n\r", ch );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Whisper what to whom?\n\r", ch );
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( ch->in_room != victim->in_room )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( !IS_NPC( victim ) && IS_WOLF( victim )
&& ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) )
{
send_to_char( "They can't hear you.\n\r", ch );
return;
}
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
act( "You whisper to $N '$t'.", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "$n whispers to you '$t'.", ch, argument, victim, TO_VICT );
act( "$n whispers something secret to $N.", ch, NULL, victim, TO_NOTVICT );
victim->position = position;
return;
}
void do_ask( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int position;
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_SILENCE) )
{
send_to_char( "You seem to have problems speaking!\n\r", ch );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Ask whom what?\n\r", ch );
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( ch->in_room != victim->in_room )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( !IS_NPC( victim ) && IS_WOLF( victim )
&& ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) )
{
send_to_char( "They can't hear you.\n\r", ch );
return;
}
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
argument = slur_text( argument );
act( "You ask $N '$t'.", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "$n asks you '$t'.", ch, argument, victim, TO_VICT );
act( "$n asks $N a question.", ch, NULL, victim, TO_NOTVICT );
victim->position = position;
return;
}
void send_to_room( char *message, ROOM_INDEX_DATA *room )
{
CHAR_DATA *vch;
for ( vch = first_char; vch != NULL; vch = vch->next )
if ( IS_AWAKE(vch) && vch->in_room == room )
{
send_to_char( message, vch );
send_to_char( "\n\r", vch );
}
return;
}
void do_beep( CHAR_DATA *ch, char *argument )
{
int pos;
char arg1[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg1 );
if ( !IS_NPC( ch ) && IS_WOLF( ch )
&& ( IS_SHIFTED( ch ) || IS_RAGED( ch ) ) )
{
send_to_char( "You are too @@rENRAGED @@NTo talk to mortals!\n\r", ch );
return;
}
if ( arg1[0] =='\0' )
{
send_to_char( "Usage: BEEP <victim>\n\r", ch );
return;
}
if ( ( victim = get_char_world( ch, arg1 ) ) == NULL )
{
send_to_char( "Couldn't find the victim.\n\r", ch );
return;
}
if ( !IS_NPC( victim ) && IS_WOLF( victim )
&& ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) )
{
send_to_char( "They can't hear you.\n\r", ch );
return;
}
if ( IS_NPC( victim ) )
{
send_to_char( "Can only beep players...\n\r", ch );
return;
}
if ( ch == victim )
{
send_to_char( "Beep yourself? Sure, ok... beep! beep! beep!\n\r", ch );
return;
}
if ( IS_SET( victim->deaf, CHANNEL_BEEP ) )
{
send_to_char( "Your victim is ignoring beeps. Sorry!\n\r", ch );
return;
}
pos = victim->position;
victim->position = POS_STANDING;
act( "You beep $N...", ch, NULL, victim, TO_CHAR );
act( "\a$n is beeping you...", ch, NULL, victim, TO_VICT );
victim->position = pos;
return;
}
void ask_quest_question( CHAR_DATA *ch, char *argument )
{
extern CHAR_DATA * quest_mob;
extern CHAR_DATA * quest_target;
extern OBJ_DATA * quest_object;
extern short quest_timer;
extern bool quest;
char buf[MAX_STRING_LENGTH];
buf[0] = '\0';
if ( !quest || IS_NPC( ch ) )
return;
if ( ( !str_cmp( argument, "who is the thief?") )
|| ( !str_cmp( argument, "who was the thief?" ) )
|| ( !str_cmp( argument, "what mob?" ) )
|| ( !str_cmp( argument, "who stole the item?" ) ) )
{
if ( quest_mob )
{
if ( quest_timer < 7 )
{
sprintf( buf, "@@eI don't even know who stole it yet!@@N" );
}
else
if ( quest_object && quest_target )
{
sprintf( buf, "@@NIt was %s @@N who stole my %s@@N.",
quest_target->short_descr, quest_object->short_descr );
}
}
else
if ( quest_object )
{
sprintf( buf, "@@NDon't worry about who stole my %s@@N, he has recieved his just reward!",
quest_object->short_descr );
}
if ( quest_mob != NULL )
do_crusade( quest_mob, buf );
return;
}
if ( !str_cmp( argument, "what item?" ) )
{
if (quest_mob && quest_object )
{
sprintf(buf, "@@NMy %s @@Nwas stolen from me.", quest_object->short_descr );
do_crusade( quest_mob, buf );
return;
}
}
if ( !str_cmp( argument, "where are you?" ) )
if ( quest_mob)
{
sprintf( buf, "@@NYou can find me in %s@@N, please hurry!!", quest_mob->in_room->area->name);
do_crusade( quest_mob, buf );
return;
}
if ( !str_cmp( argument, "where is the thief?" ) )
{
if ( quest_mob )
{
if ( ( quest_target ) && ( quest_timer > 7 ) )
{
if ( quest_timer < 10 )
{
sprintf( buf, "@@NI don't really know where %s@@N is, let me try and find out.",
quest_target->short_descr );
}
else
if ( quest_target )
{
sprintf( buf, "@@NI'm not really sure, but I THINK %s@@N is in %s@@N",
quest_target->short_descr, quest_target->in_room->area->name);
}
}
else if ( ( quest_target ) && ( quest_timer <= 7 ) )
{
sprintf( buf, "@@eI don't even know who stole it yet!@@N" );
}
else
{
sprintf( buf, "@@NDon't worry about where the thief who stole my %s@@N is, he has recieved his just reward",
quest_object->short_descr );
}
do_crusade( quest_mob, buf );
}
}
return;
}
void list_who_to_output( )
{
char buf[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char who_file[MAX_STRING_LENGTH];
char counter_file[MAX_STRING_LENGTH];
DESCRIPTOR_DATA *d;
FILE *fp;
short count = 0;
short column = 0;
buf[0] = '\0';
buf2[0] = '\0';
sprintf( who_file, "%s", WHO_HTML_FILE );
sprintf( counter_file, "%s", WHO_COUNT_FILE );
fclose( fpReserve );
if ( ( fp = fopen( who_file, "w" ) ) == NULL )
{
/* sprintf( buf, "Error opening %s.", WHO_HTML_FILE );
bug( buf, 0 ); */
fpReserve = fopen( NULL_FILE, "r" );
return;
}
buf2[0] = '\0';
for ( d = first_desc; d != NULL; d = d->next )
{
if ( ( d->character != NULL )
&& ( ( d->character->invis < 81 ) || ( d->character->incog < 81 ) ) )
{
count++;
column++;
sprintf( buf , "%-18s",
d->original ? d->original->name :
d->character ? d->character->name : "(none)"
);
strcat( buf2, buf );
if ( column == 4 )
{
column = 0;
sprintf( buf, "\n\r" );
strcat( buf2, buf );
}
}
}
fprintf( fp, "<HTML>\n<META HTTP-EQUIV=\"refresh\" content=20>\n<HEAD>" );
fprintf( fp, "<TITLE>Shades of Evil Current Players</TITLE>\n</HEAD>\n<BODY BGCOLOR=\"#0000A0\" TEXT=\"#FFFFFF\">\n<PRE>" );
sprintf( buf, "THERE ARE %i PLAYERS CURRENTLY EXPLORING SHADES OF EVIL:\n\r\n\r", count );
fprintf( fp, buf );
fprintf( fp, buf2 );
fprintf( fp, "</PRE>\n</BODY>\n</HTML>" );
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
/* Counter File */
fclose( fpReserve );
if ( ( fp = fopen( counter_file, "w" ) ) == NULL )
{
/* sprintf( buf, "Error opening %s.", WHO_COUNT_FILE );
bug( buf, 0 ); */
fpReserve = fopen( NULL_FILE, "r" );
return;
}
fprintf( fp, "<HTML>\n<META HTTP-EQUIV=\"refresh\" content=20>\n<HEAD>" );
fprintf( fp, "<TITLE> Player Count </TITLE>\n</HEAD>" );
fprintf( fp, "<BODY BGCOLOR=\"#0000A0\" TEXT=\"#FFFFFF\">" );
fprintf( fp, "<CENTER><B>CURRENT PLAYERS <BR><BR></B>" );
sprintf( buf, "<I>%i</I>", count );
fprintf( fp, buf );
fprintf( fp, "</CENTER>\n</BODY>\n</HTML>" );
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
/* Print header for page */ /*
fprintf( fp, "<HTML>\n<HEAD>" );
fprintf( fp, "<TITLE>Shades of Evil - WHO List</TITLE>\n" );
fprintf( fp, "</HEAD>\n" );
fprintf( fp, "<BODY BGCOLOR=\"#000000\" TEXT=\"#FFFFFF\">\n" );
fprintf( fp, "<BASEFONT SIZE=3 FACE=\"Courier\">\n" );
fprintf( fp, "<CENTER><U><FONT SIZE=+3>Shades of Evil : </FONT> " );
fprintf( fp, "<FONT SIZE=+2>WHO Listing:</FONT></U></CENTER>\n" );
fprintf( fp, "<BR><HR WIDTH=75%><BR>\n" );
*/ /* Start table for output */ /*
fprintf( fp, "<TABLE BORDER=2 WIDTH=100%>\n"> );
*/ /* Output table headers */ /*
fprintf( fp, "<TR>\n<TH ALIGN=CENTER>Level(s)</TH>\n" );
fprintf( fp, "<TH ALIGN=CENTER>Race</TH>\n" );
fprintf( fp, "<TH ALIGN=CENTER>Clan</TH>\n" );
fprintf( fp, "<TH ALIGN=LEFT>Name & Title</TH>\n</TR>\n" );
*/ /* Now, for each player, output one table row... */ /*
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *wch;
if ( d->connected != CON_PLAYING )
continue;
wch = ( d->original ? d->original : d->character );
if ( IS_SET( wch->act, PLR_WIZINVIS ) || IS_SET( wch->act, PLR_INCOG))
continue;
count++;
fprintf( fp, "<TR>\n<TD ALIGN=CENTER>" );
if ( wch->level >= LEVEL_HERO )
{
switch( wch->level )
{
case MAX_LEVEL:
fprintf( fp, "<FONT COLOR=\"#00FFFF\">CREATOR</FONT></TD>\n" ); break;
case MAX_LEVEL - 1:
fprintf( fp, "<FONT COLOR=\"#FF0000\">SUPREME</FONT></TD>\n" ); break;
case MAX_LEVEL - 2:
fprintf( fp, "<FONT COLOR=\"#00FF00\">DEITY</FONT></TD>\n" ); break;
case MAX_LEVEL - 3:
fprintf( fp, "<FONT COLOR=\"#0000FF\">IMMORTAL</FONT></TD>\n" ); break;
case MAX_LEVEL - 4:
fprintf( fp, "<FONT COLOR=\"FFFF00\">ADEPT</FONT></TD>\n" ); break;
}
}
else
{
buf2[0] = '\0';
for ( i = 0; i < MAX_CLASS; i++ )
{
sprintf( buf, "%2.2d ", wch->lvl[wch] );
strcat( buf2, buf );
}
fprintf( fp, "%s</TD>\n", buf2 );
}
*/ /* Add race */ /*
fprintf( fp, "<TD ALIGN=CENTER>%s</TD>\n", race_table[wch->race].race_title );
*/ /* Add Clan... note different way to get name w/o dealing with color codes */ /*
fprintf( fp, "<TD ALIGN=CENTER>" );
switch( wch->pcdata->clan )
{
default:
fprintf( fp, "<FONT COLOR=\"#AAAAAA">None</FONT>" ); break;
case 1:
fprintf( fp, "<FONT COLOR=\"#FFFF00\">Shadow Dragons</FONT>" ); break;
case 2:
fprintf( fp, "<FONT COLOR=\"#0000FF\">Army of Discord</FONT>" ); break;
case 3:
fprintf( fp, "<FONT COLOR=\"#FF0000\">Swashbucklers</FONT>" ); break;
case 4:
fprintf( fp, "<FONT COLOR=\"#0000FF\">Nightshift</FONT>" ); break;
case 5:
fprintf( fp, "Clan Protectorate" ); break;
case 6:
fprintf( fp, "<FONT COLOR=\"#00FF00\">Valkyries</FONT>" ); break;
case 7:
fprintf( fp, "<FONT COLOR=\"#0000FF\">Legion of Dawn</FONT>" ); break;
case 8:
fprintf( fp, "<FONT COLOR=\"#FF0000\">Cult of the Red Dragon</FONT>" ); break;
}
fprintf( fp, "</TD>\n" );
*/ /* Now name and title... */ /*
fprintf( fp, "<TD ALIGN=LEFT>%s%s</TD>\n</TR>\n",
wch->name, wch->pcdata->title );
*/ /* End of processing this player... */ /*
}
*/ /* Close table, etc */ /*
fprintf( fp, "</TABLE>\n<BR><HR WIDTH=75%><BR>\n</BODY>\n</HTML>\n" );*/
return;
}