/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* Envy Diku Mud improvements copyright (C) 1994 by Michael Quan, David *
* Love, Guilherme 'Willie' Arnold, and Mitchell Tse. *
* *
* EnvyMud 2.0 improvements copyright (C) 1995 by Michael Quan and *
* Mitchell Tse. *
* *
* EnvyMud 2.2 improvements copyright (C) 1996, 1997 by Michael Quan. *
* *
* In order to use any part of this Envy Diku Mud, you must comply with *
* the original Diku license in 'license.doc', the Merc license in *
* 'license.txt', as well as the Envy license in 'license.nvy'. *
* In particular, you may not remove either of these copyright notices. *
* *
* 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.
*/
bool is_note_to args( ( CHAR_DATA *ch, NOTE_DATA *pnote ) );
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 ) );
bool is_note_to( CHAR_DATA *ch, NOTE_DATA *pnote )
{
if ( !str_cmp( ch->name, pnote->sender ) )
return TRUE;
if ( is_name( "all", pnote->to_list ) )
return TRUE;
if ( IS_IMMORTAL( ch ) && ( is_name( "immortal", pnote->to_list )
|| is_name( "immortals", pnote->to_list )
|| is_name( "imm", pnote->to_list )
|| is_name( "immort", pnote->to_list ) ) )
return TRUE;
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;
if ( !note_free )
{
pnote = alloc_perm( sizeof( *ch->pnote ) );
}
else
{
pnote = note_free;
note_free = note_free->next;
}
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;
NOTE_DATA *prev;
char *to_list;
char to_new [ MAX_INPUT_LENGTH ];
char to_one [ MAX_INPUT_LENGTH ];
char strsave [ MAX_INPUT_LENGTH ];
/*
* Build a new to_list.
* Strip out this recipient.
*/
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.
*/
if ( pnote == note_list )
{
note_list = pnote->next;
}
else
{
for ( prev = note_list; prev; prev = prev->next )
{
if ( prev->next == pnote )
break;
}
if ( !prev )
{
bug( "Note_remove: pnote not found.", 0 );
return;
}
prev->next = pnote->next;
}
free_string( pnote->text );
free_string( pnote->subject );
free_string( pnote->to_list );
free_string( pnote->date );
free_string( pnote->sender );
pnote->next = note_free;
note_free = pnote;
/*
* Rewrite entire list.
*/
fclose( fpReserve );
sprintf( strsave, "%s%s", SYSTEM_DIR, NOTE_FILE );
if ( !( fp = fopen( strsave, "w" ) ) )
{
perror( NOTE_FILE );
}
else
{
for ( pnote = note_list; pnote; pnote = pnote->next )
{
fprintf( fp, "Sender %s~\n", pnote->sender );
fprintf( fp, "Date %s~\n", pnote->date );
fprintf( fp, "Stamp %ld\n", (unlong) 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", fix_string( 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 )
{
NOTE_DATA *pnote;
char buf [ MAX_STRING_LENGTH ];
char buf1 [ MAX_STRING_LENGTH*7 ];
char arg [ MAX_INPUT_LENGTH ];
char strsave [ MAX_INPUT_LENGTH ];
int vnum;
int anum;
if ( IS_NPC( 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 = note_list; 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++;
}
}
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 = note_list; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote )
&& str_cmp( ch->name, pnote->sender )
&& ch->last_note < pnote->date_stamp )
{
break;
}
else
{
if ( is_note_to( ch, pnote ) )
vnum++;
}
}
if ( pnote )
{
sprintf( buf, "[%3d] %s: %s\n\r%s\n\rTo: %s\n\r",
vnum,
pnote->sender,
pnote->subject,
pnote->date,
pnote->to_list );
strcat( buf1, buf );
strcat( buf1, pnote->text );
ch->last_note = UMAX( ch->last_note, pnote->date_stamp );
send_to_char( buf1, ch );
return;
}
send_to_char( "You have no unread notes.\n\r", ch );
return;
}
else if ( is_number( argument ) )
{
fAll = FALSE;
anum = atoi( argument );
}
else
{
send_to_char( "Note read which number?\n\r", ch );
return;
}
vnum = 0;
buf1[0] = '\0';
for ( pnote = note_list; pnote; pnote = pnote->next )
{
if ( is_note_to( ch, pnote ) )
{
if ( vnum == anum || fAll )
{
sprintf( buf, "[%3d] %s: %s\n\r%s\n\rTo: %s\n\r",
vnum,
pnote->sender,
pnote->subject,
pnote->date,
pnote->to_list );
strcat( buf1, buf );
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;
}
vnum++;
}
}
if ( !fAll )
send_to_char( "No such note.\n\r", ch );
else
send_to_char( buf1, ch );
return;
}
if ( !str_cmp( arg, "edit" ) )
{
note_attach( ch );
string_append( ch, &ch->pnote->text );
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 );
ch->pnote->next = note_free;
note_free = ch->pnote;
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 note 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 note in progress.\n\r", ch );
return;
}
if ( !str_cmp( ch->pnote->to_list, "" ) )
{
send_to_char(
"You need to provide a recipient (name, all, or immortal).\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;
if ( !note_list )
{
note_list = ch->pnote;
}
else
{
for ( pnote = note_list; pnote->next; pnote = pnote->next )
;
pnote->next = ch->pnote;
}
pnote = ch->pnote;
ch->pnote = NULL;
fclose( fpReserve );
sprintf( strsave, "%s%s", SYSTEM_DIR, NOTE_FILE );
if ( !( fp = fopen( strsave, "a" ) ) )
{
perror( NOTE_FILE );
}
else
{
fprintf( fp, "Sender %s~\n", pnote->sender );
fprintf( fp, "Date %s~\n", pnote->date );
fprintf( fp, "Stamp %ld\n", (unlong) 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", fix_string( 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( "Note remove which number?\n\r", ch );
return;
}
anum = atoi( argument );
vnum = 0;
for ( pnote = note_list; 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 note.\n\r", ch );
return;
}
send_to_char( "Huh? Type 'help note' for usage.\n\r", ch );
return;
}
/*
* How to make a string look drunk by Apex <robink@htsa.hva.nl>
* Modified and enhanced by Maniac from Mythran
*/
char *makedrunk( char *string, CHAR_DATA *ch )
{
char buf[ MAX_STRING_LENGTH ];
char temp;
int randomnum;
int drunkpos;
int drunklevel = 0;
int pos = 0;
/* Check how drunk a person is... */
if ( !IS_NPC( ch ) )
{
if ( ( drunklevel = ch->pcdata->condition[ COND_DRUNK ] ) > 0 )
{
do {
temp = UPPER( *string );
drunkpos = temp - 'A';
if ( ( temp >= 'A' ) && ( temp <= 'Z' ) )
{
if ( drunklevel > drunk[ drunkpos ].min_drunk_level )
{
randomnum =
number_range( 0, drunk[ drunkpos ].number_of_rep );
strcpy( &buf[ pos ],
drunk[ drunkpos ].replacement[ randomnum ] );
pos +=
strlen( drunk[ drunkpos ].replacement[ randomnum ] );
}
else
buf[ pos++ ] = *string;
}
else
{
if ( ( temp >= '0' ) && ( temp <= '9' ) )
{
temp = '0' + number_range( 0, 9 );
buf[ pos++ ] = temp;
}
else
buf[ pos++ ] = *string;
}
}
while ( *string++ );
buf[ pos ] = '\0';
strcpy( string, buf );
}
}
return( string );
}
/*
* Generic channel function.
*/
void talk_channel( CHAR_DATA *ch, char *argument, int channel,
const char *verb )
{
DESCRIPTOR_DATA *d;
char buf [ MAX_STRING_LENGTH ];
int position;
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;
}
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\n\r", ch );
return;
}
REMOVE_BIT( ch->deaf, channel );
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_SHOUT:
sprintf( buf, "You %s '%s'\n\r", verb, argument );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'", verb );
break;
case CHANNEL_YELL:
sprintf( buf, "You %s '%s'\n\r", verb, argument );
send_to_char( buf, ch );
sprintf( buf, "$n %ss '$t'", verb );
break;
case CHANNEL_CLANTALK:
sprintf( buf, "[$n]: $t" );
act( buf, ch, argument, NULL, TO_CHAR );
break;
case CHANNEL_IMMTALK:
sprintf( buf, "&+L[&+r$n&+L]&n: $t" );
position = ch->position;
ch->position = POS_STANDING;
act( buf, ch, argument, NULL, TO_CHAR );
ch->position = position;
break;
}
/*
* Make the words look drunk if needed...
*/
argument = makedrunk( argument, ch );
for ( d = descriptor_list; 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
&& vch != ch
&& !IS_SET( och->deaf, channel )
&& !IS_SET( och->in_room->room_flags, ROOM_SILENT ) )
{
if ( channel == CHANNEL_IMMTALK && !IS_IMMORTAL( och ) )
continue;
if ( channel == CHANNEL_CLANTALK
&& ( !is_clan( och )
|| !is_same_clan( ch, och ) ) )
continue;
if ( channel == CHANNEL_YELL
&& vch->in_room->area != ch->in_room->area )
continue;
position = vch->position;
if ( channel != CHANNEL_SHOUT && channel != CHANNEL_YELL )
vch->position = POS_STANDING;
if( channel == CHANNEL_SHOUT || channel == CHANNEL_YELL )
{
if( !IS_NPC( vch ) && IS_SET( vch->act, PLR_SHOUT ))
act( buf, ch, argument, vch, TO_VICT );
}
else
{
act( buf, ch, argument, vch, TO_VICT );
}
vch->position = position;
}
}
return;
}
void do_shout( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_SHOUT, "shout" );
WAIT_STATE( ch, 12 );
return;
}
void do_yell( CHAR_DATA *ch, char *argument )
{
talk_channel( ch, argument, CHANNEL_YELL, "shout" );
WAIT_STATE( ch, 12 );
return;
}
void do_immtalk( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *rch;
rch = get_char( ch );
if ( !authorized( rch, "wiz" ) )
return;
talk_channel( ch, argument, CHANNEL_IMMTALK, "immtalk" );
return;
}
void do_wartalk( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *rch;
rch = get_char( ch );
if ( IS_NPC( rch ) || !is_clan( rch ) )
{
send_to_char( "You aren't a clansman!\n\r", ch );
return;
}
talk_channel( ch, argument, CHANNEL_CLANTALK, "clantalk" );
return;
}
void do_say( CHAR_DATA *ch, char *argument )
{
if ( argument[0] == '\0' )
{
send_to_char_bw( "Say what?\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\n\r", ch );
return;
}
argument = makedrunk( argument, ch );
act( "$n says '$T'", ch, NULL, argument, TO_ROOM );
MOBtrigger = FALSE;
act( "You say '$T'", ch, NULL, argument, TO_CHAR );
mprog_speech_trigger( argument, ch );
return;
}
void do_tell( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [ MAX_INPUT_LENGTH ];
int position;
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\n\r", ch );
return;
}
one_argument( argument, arg );
/*
* Can tell to PC's anywhere, but NPC's only in same room.
* -- Furey
*/
if ( !( victim = get_char_world( ch, arg ) )
|| ( IS_NPC( victim ) && victim->in_room != ch->in_room ) )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( ( !IS_NPC( ch ) && ( IS_SET( ch->act, PLR_SILENCE )
|| IS_SET( ch->act, PLR_NO_TELL ) ) )
|| IS_SET( victim->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your message didn't get through.\n\r", ch );
return;
}
if ( !victim->desc )
{
act( "$N&n is link dead.", ch, 0, victim, TO_CHAR );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Tell whom what?\n\r", ch );
return;
}
if ( !IS_IMMORTAL( ch ) && !IS_AWAKE( victim ) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
argument = makedrunk( argument, ch );
act( "&+WYou tell $N '$t'&n", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "&+W$n tells you '$t'&n", ch, argument, victim, TO_VICT );
victim->position = position;
victim->reply = ch;
if ( IS_SET( victim->act, PLR_AFK ) )
act( "Just so you know, $E is AFK.", ch, NULL, victim, TO_CHAR );
return;
}
void do_reply( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
int position;
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\n\r", ch );
return;
}
if ( !( victim = ch->reply ) )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( ( !IS_NPC( ch ) && ( IS_SET( ch->act, PLR_SILENCE )
|| IS_SET( ch->act, PLR_NO_TELL ) ) )
|| IS_SET( victim->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your message didn't get through.\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Reply what?\n\r", ch );
return;
}
if ( !victim->desc )
{
act( "$N is link dead.", ch, 0, victim, TO_CHAR );
return;
}
if ( !IS_IMMORTAL( ch ) && !IS_AWAKE( victim ) )
{
act( "$E can't hear you.", ch, 0, victim, TO_CHAR );
return;
}
argument = makedrunk( argument, ch );
act( "&+WYou tell $N '$t'&n", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "&+W$n tells you '$t'&n", ch, argument, victim, TO_VICT );
victim->position = position;
victim->reply = ch;
if ( IS_SET( victim->act, PLR_AFK ) )
act( "Just so you know, $E is AFK.", ch, NULL, victim, TO_CHAR );
return;
}
void do_emote( CHAR_DATA *ch, char *argument )
{
char buf [ MAX_STRING_LENGTH ];
char *plast;
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 ( 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 );
MOBtrigger = FALSE;
act( "$n $T", ch, NULL, buf, TO_CHAR );
return;
}
void do_bug( CHAR_DATA *ch, char *argument )
{
char strsave [ MAX_INPUT_LENGTH ];
char buf [ MAX_STRING_LENGTH ];
char *strtime;
strtime = ctime( ¤t_time );
strtime[strlen( strtime )-1] = '\0';
sprintf( strsave, "%s%s", SYSTEM_DIR, BUG_FILE );
if ( argument[0] == '\0' )
{
send_to_char( "The Implementors look at you quizzically.\n\r", ch );
return;
}
sprintf( buf, "%s bugged at %s", argument, strtime );
append_file( ch, strsave, buf );
send_to_char( "Ok. Thanks.\n\r", ch );
return;
}
void do_idea( CHAR_DATA *ch, char *argument )
{
char strsave [ MAX_INPUT_LENGTH ];
sprintf( strsave, "%s%s", SYSTEM_DIR, IDEA_FILE );
if ( argument[0] == '\0' )
{
send_to_char( "The Implementors look at you quizzically.\n\r", ch );
return;
}
append_file( ch, strsave, argument );
send_to_char( "Ok. Thanks.\n\r", ch );
return;
}
void do_typo( CHAR_DATA *ch, char *argument )
{
char strsave [ MAX_INPUT_LENGTH ];
sprintf( strsave, "%s%s", SYSTEM_DIR, TYPO_FILE );
if ( argument[0] == '\0' )
{
send_to_char( "The Implementors look at you quizzically.\n\r", ch );
return;
}
append_file( ch, strsave, argument );
send_to_char( "Ok. Thanks.\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;
}
// This code is basically a hack, and I'm adding a boatload of log
// messages until I am satisfied that this code works and is stable.
// When messing with code like this, it is easy to have players that
// don't enter or leave the game completely, causing ghost images,
// player duplicates, weird dangling pointers, etc., so we have to
// be especially careful. If anyone happens upon this and has a
// suggestion for how to handle anything better than I have it will
// be greatly appreciated. - Veygoth
void do_rent( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *room;
CHAR_DATA *wch;
if ( IS_NPC( ch ) )
return;
if( !IS_SET( ch->in_room->room_flags, ROOM_INN ))
{
send_to_char( "You must be in an inn to rent.\n\r", ch );
return;
}
if ( ch->position == POS_FIGHTING || ch->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;
}
send_to_char( "The innkeeper stores your stuff in the safe and shows you to your room.\n\r\n\r", ch );
act( "$n&n has left the game.", ch, NULL, NULL, TO_ROOM );
sprintf( log_buf, "%s has rented.", ch->name );
log_string( log_buf );
wiznet ( ch, WIZ_LOGINS, get_trust( ch ), log_buf );
/*
* After extract_char the ch is no longer valid
* that is why we aren't extracting the character but rather
* sending them to our version of the "menu". - Veygoth
*/
// I know we checked for position fighting, but I'm paranoid...
if( ch->fighting )
stop_fighting( ch, TRUE );
die_follower( ch, ch->name );
// I can't see any reason why ch would not have an ->in_room, but that
// may just be shortsighted of me - Veygoth
if( ch->in_room )
{
log_string( "Character had a room when they rented." );
room = ch->in_room;
}
else
{
log_string( "Character did not have a room when they rented." );
}
char_from_room( ch );
if( room )
ch->in_room = room;
// Put them in the correct body
if( ch->desc && ch->desc->original )
{
log_string( "Returning character to original body." );
do_return( ch, "" );
}
for( wch = char_list; wch; wch = wch->next )
if( wch->reply == ch )
wch->reply = NULL;
log_string( "Saving character..." );
save_char_obj( ch );
// Now the part that is easy to screw up... we remove them from
// the character list - Veygoth
for( wch = char_list; wch; wch = wch->next )
{
// This should only happen if they are at the start of the char_list
if( wch == ch )
{
log_string( "Removing character from top of char_list..." );
char_list = ch->next;
}
// This should happen if they're on any other part of the list...
else if( wch->next && wch->next == ch )
{
// Unnecessary statement, but it makes me feel better.
if( ch->next )
{
log_string( "Removing character from middle of char_list..." );
wch->next = ch->next;
}
else
{
log_string( "Removing character from end of char_list..." );
wch->next = NULL;
}
}
}
log_string( "Sending character to the menu." );
do_help( ch, "login_menu" );
ch->desc->connected = CON_MENU; // Con_menu is when they enter
// the game... this shows menu
// before they enter the game
//This was the original code - Veygoth
//d = ch->desc;
//extract_char( ch, TRUE );
//if ( d )
//close_socket( d );
return;
}
// This code is basically a hack, and I'm adding a boatload of log
// messages until I am satisfied that this code works and is stable.
// When messing with code like this, it is easy to have players that
// don't enter or leave the game completely, causing ghost images,
// player duplicates, weird dangling pointers, etc., so we have to
// be especially careful. If anyone happens upon this and has a
// suggestion for how to handle anything better than I have it will
// be greatly appreciated. - Veygoth
void do_quit( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *room;
CHAR_DATA *wch;
if ( IS_NPC( ch ) )
return;
if ( ch->position == POS_FIGHTING || ch->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;
}
send_to_char( "You leave the game.\n\r\n\r", ch );
act( "$n&n has left the game.", ch, NULL, NULL, TO_ROOM );
sprintf( log_buf, "%s has rented.", ch->name );
log_string( log_buf );
wiznet ( ch, WIZ_LOGINS, get_trust( ch ), log_buf );
/*
* After extract_char the ch is no longer valid
* that is why we aren't extracting the character but rather
* sending them to our version of the "menu". - Veygoth
*/
// I know we checked for position fighting, but I'm paranoid...
if( ch->fighting )
stop_fighting( ch, TRUE );
die_follower( ch, ch->name );
// I can't see any reason why ch would not have an ->in_room, but that
// may just be shortsighted of me - Veygoth
if( ch->in_room )
{
log_string( "Character had a room when they rented." );
room = ch->in_room;
}
else
{
log_string( "Character did not have a room when they rented." );
}
char_from_room( ch );
if( room )
ch->in_room = room;
// Put them in the correct body
if( ch->desc && ch->desc->original )
{
log_string( "Returning character to original body." );
do_return( ch, "" );
}
for( wch = char_list; wch; wch = wch->next )
if( wch->reply == ch )
wch->reply = NULL;
log_string( "Saving character..." );
save_char_obj( ch );
// Now the part that is easy to screw up... we remove them from
// the character list - Veygoth
for( wch = char_list; wch; wch = wch->next )
{
// This should only happen if they are at the start of the char_list
if( wch == ch )
{
log_string( "Removing character from top of char_list..." );
char_list = ch->next;
}
// This should happen if they're on any other part of the list...
else if( wch->next && wch->next == ch )
{
// Unnecessary statement, but it makes me feel better.
if( ch->next )
{
log_string( "Removing character from middle of char_list..." );
wch->next = ch->next;
}
else
{
log_string( "Removing character from end of char_list..." );
wch->next = NULL;
}
}
}
log_string( "Sending character to the menu" );
do_help( ch, "login_menu" );
ch->desc->connected = CON_MENU; // Con_menu is when they enter
// the game... this shows menu
// before they enter the game
//This was the original code - Veygoth
//d = ch->desc;
//extract_char( ch, TRUE );
//if ( d )
//close_socket( d );
return;
}
void do_save( CHAR_DATA *ch, char *argument )
{
if ( IS_NPC( ch ) )
return;
save_char_obj( ch );
send_to_char( "Ok.\n\r", ch );
return;
}
void do_follow( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [ MAX_INPUT_LENGTH ];
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Follow whom?\n\r", ch );
return;
}
if ( !( victim = get_char_room( ch, arg ) ) )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_CHARM ) && ch->master )
{
act( "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->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;
if ( can_see( master, ch ) )
act( "$n now follows you.", ch, NULL, master, TO_VICT );
act( "You now follow $N.", ch, NULL, master, TO_CHAR );
return;
}
void add_follower_nomsg( CHAR_DATA *ch, CHAR_DATA *master )
{
if ( ch->master )
{
bug( "Add_follower_nomsg: non-null master.", 0 );
return;
}
ch->master = master;
ch->leader = NULL;
return;
}
void stop_follower( CHAR_DATA *ch )
{
if ( !ch->master )
{
bug( "Stop_follower: null master.", 0 );
return;
}
if ( IS_AFFECTED( ch, AFF_CHARM ) )
{
REMOVE_AFF_BIT( ch, AFF_CHARM );
affect_strip( ch, 0, spl_charm_person );
affect_strip( ch, 0, spl_domination );
}
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 = NULL;
ch->leader = NULL;
return;
}
void die_follower( CHAR_DATA *ch, char *name )
{
CHAR_DATA *fch;
if ( ch->master )
stop_follower( ch );
ch->leader = NULL;
for ( fch = char_list; fch; fch = fch->next )
{
if ( fch->deleted )
continue;
if ( fch->master == ch )
stop_follower( fch );
if ( fch->leader == ch )
fch->leader = NULL;
}
return;
}
void do_order( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
CHAR_DATA *och;
CHAR_DATA *och_next;
char arg [ MAX_INPUT_LENGTH ];
bool found;
bool fAll;
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 ) ) )
{
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;
}
}
found = FALSE;
for ( och = ch->in_room->people; och; och = och_next )
{
och_next = och->next_in_room;
if ( och->deleted )
continue;
if ( IS_AFFECTED( och, AFF_CHARM )
&& och->master == ch
&& ( fAll || och == victim ) )
{
found = TRUE;
act( "$n orders you to '$t'.", ch, argument, och, TO_VICT );
interpret( och, argument );
}
}
if ( found )
send_to_char( "Ok.\n\r", ch );
else
send_to_char( "You have no followers here.\n\r", ch );
return;
}
void do_group( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char buf [ MAX_STRING_LENGTH ];
char arg [ MAX_INPUT_LENGTH ];
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
CHAR_DATA *gch;
CHAR_DATA *leader;
leader = ( ch->leader ) ? ch->leader : ch;
sprintf( buf, "%s's group:\n\r", PERS( leader, ch ) );
send_to_char( buf, ch );
for ( gch = char_list; gch; gch = gch->next )
{
if ( gch->deleted )
continue;
if ( is_same_group( gch, ch ) )
{
sprintf( buf,
"[%2d %s] %-16s %4d/%4d hp %4d/%4d mana %4d/%4d mv\n\r",
gch->level,
IS_NPC( gch ) ? "Mob"
: (char *)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 );
send_to_char( buf, ch );
}
}
return;
}
if ( !( victim = get_char_room( ch, arg ) ) )
{
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( "$N isn't following you.", ch, NULL, victim, TO_CHAR );
return;
}
if ( is_same_group( victim, ch ) && ch != victim )
{
victim->leader = NULL;
act( "You remove $N from your group.", ch, NULL, victim, TO_CHAR );
act( "$n removes you from $s group.", ch, NULL, victim, TO_VICT );
act( "$n removes $N from $s group.", ch, NULL, victim, TO_NOTVICT );
return;
}
if ( ch->level - victim->level < -5
|| ch->level - victim->level > 5 )
{
act( "$N cannot join your group.", ch, NULL, victim, TO_CHAR );
act( "You cannot join $n's group.", ch, NULL, victim, TO_VICT );
act( "$N cannot join $n's group.", ch, NULL, victim, TO_NOTVICT );
return;
}
victim->leader = ch;
act( "$N&n joins your group.", ch, NULL, victim, TO_CHAR );
act( "You join $n&n's group.", ch, NULL, victim, TO_VICT );
act( "$N&n joins $n&n's group.", ch, NULL, victim, TO_NOTVICT );
return;
}
/*
* 'Split' originally by Gnort, God of Chaos.
*
* This modified version for the 4-type coin system by Veygoth
*/
void do_split( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *gch;
char buf [ MAX_STRING_LENGTH ];
char arg [ MAX_INPUT_LENGTH ];
char arg2 [ MAX_INPUT_LENGTH ];
int members;
int amount;
int share;
int extra;
argument = one_argument( argument, arg );
one_argument( argument, arg2 );
if ( arg[0] == '\0' )
{
send_to_char( "Split how much?\n\r", ch );
return;
}
if ( arg2[0] == '\0' )
{
send_to_char( "Split what kind of coin?\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;
}
members = 0;
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( gch->deleted )
continue;
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;
}
if( !str_prefix( arg2, "platinum" ))
{
if ( ch->money.platinum < amount )
{
send_to_char( "You don't have that much money.\n\r", ch );
return;
}
ch->money.platinum -= amount;
sprintf( buf,
"You split %d &+Wplatinum&n. Your share is %d coins.\n\r",
amount, share + extra );
send_to_char( buf, ch );
sprintf( buf, "$n splits some &+Wplatinum&n. Your share is %d coins.",
share );
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( gch->deleted )
continue;
if ( gch != ch && is_same_group( gch, ch ) )
{
act( buf, ch, NULL, gch, TO_VICT );
gch->money.platinum += share;
}
else if( gch == ch )
gch->money.platinum += share + extra;
}
}
else if( !str_prefix( arg2, "gold" ))
{
if ( ch->money.gold < amount )
{
send_to_char( "You don't have that much money.\n\r", ch );
return;
}
ch->money.gold -= amount;
sprintf( buf,
"You split %d &+Ygold&n. Your share is %d coins.\n\r",
amount, share + extra );
send_to_char( buf, ch );
sprintf( buf, "$n splits some &+Ygold&n. Your share is %d coins.",
share );
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( gch->deleted )
continue;
if ( gch != ch && is_same_group( gch, ch ) )
{
act( buf, ch, NULL, gch, TO_VICT );
gch->money.gold += share;
}
else if( gch == ch )
gch->money.gold += share + extra;
}
}
else if( !str_prefix( arg2, "silver" ))
{
if ( ch->money.silver < amount )
{
send_to_char( "You don't have that much money.\n\r", ch );
return;
}
ch->money.silver -= amount;
sprintf( buf,
"You split %d silver. Your share is %d coins.\n\r",
amount, share + extra );
send_to_char( buf, ch );
sprintf( buf, "$n splits some silver. Your share is %d coins.",
share );
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( gch->deleted )
continue;
if ( gch != ch && is_same_group( gch, ch ) )
{
act( buf, ch, NULL, gch, TO_VICT );
gch->money.silver += share;
}
else if( gch == ch )
gch->money.silver += share + extra;
}
}
else if( !str_prefix( arg2, "copper" ))
{
if ( ch->money.copper < amount )
{
send_to_char( "You don't have that much money.\n\r", ch );
return;
}
ch->money.copper -= amount;
sprintf( buf,
"You split %d &+ycopper&n. Your share is %d coins.\n\r",
amount, share + extra );
send_to_char( buf, ch );
sprintf( buf, "$n splits some &+ycopper&n. Your share is %d coins.",
share );
for ( gch = ch->in_room->people; gch; gch = gch->next_in_room )
{
if ( gch->deleted )
continue;
if ( gch != ch && is_same_group( gch, ch ) )
{
act( buf, ch, NULL, gch, TO_VICT );
gch->money.copper += share;
}
else if( gch == ch )
gch->money.copper += share + extra;
}
}
else
{
send_to_char( "What the hell type of coins do they use on YOUR planet!?\n\r", ch );
return;
}
return;
}
void do_gtell( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *gch;
char buf [ MAX_STRING_LENGTH ];
if ( argument[0] == '\0' )
{
send_to_char( "Tell your group what?\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\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;
}
argument = makedrunk( argument, ch );
/*
* Note use of send_to_char, so gtell works on sleepers.
*/
sprintf( buf, "&+G%s tells the group '%s'.\n\r&n", ch->name, argument );
for ( gch = char_list; gch; gch = gch->next )
{
if ( is_same_group( gch, ch )
&& !IS_SET( gch->in_room->room_flags, ROOM_SILENT )
&& !IS_SET( race_table[gch->race].race_abilities, RACE_MUTE )
&& !IS_AFFECTED( gch, AFF_MUTE ) )
send_to_char( buf, gch );
}
return;
}
/* Sent in by Judson Knott <jek@conga.oit.unc.edu> */
void do_beep( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
if ( IS_NPC( ch ) )
return;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Beep who?\n\r", ch );
return;
}
if ( !( victim = get_char_world( ch, arg ) ) )
{
send_to_char( "They are not here.\n\r", ch );
return;
}
if ( IS_NPC( victim ) )
{
send_to_char( "They are not beepable.\n\r", ch );
return;
}
sprintf( buf, "You beep %s.\n\r", victim->name );
send_to_char( buf, ch );
sprintf( buf, "\a\a%s has beeped you.\n\r", ch->name );
send_to_char( buf, victim );
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->deleted || bch->deleted )
return FALSE;
if ( ach->leader ) ach = ach->leader;
if ( bch->leader ) bch = bch->leader;
return ach == bch;
}
/*
* 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_clan( CHAR_DATA *ach, CHAR_DATA *bch )
{
if ( ach->deleted || bch->deleted )
return FALSE;
if ( is_clan( ach ) && is_clan( bch ) )
return ach->pcdata->clan == bch->pcdata->clan;
else
return FALSE;
}
/*
* Colour setting and unsetting, way cool, Lope Oct '94
*/
void do_colour( CHAR_DATA *ch, char *argument )
{
char arg[ MAX_STRING_LENGTH ];
argument = one_argument( argument, arg );
if ( !*arg )
{
if( !IS_SET( ch->act, PLR_COLOUR ) )
{
SET_BIT( ch->act, PLR_COLOUR );
send_to_char( "Colour is now ON, Way Cool!\n\r", ch );
}
else
{
send_to_char_bw( "Colour is now OFF, <sigh>\n\r", ch );
REMOVE_BIT( ch->act, PLR_COLOUR );
}
return;
}
else
{
send_to_char_bw( "Colour Configuration is unavailable in this\n\r", ch );
send_to_char_bw( "version of colour, sorry\n\r", ch );
}
return;
}
/*
* "retir" command is a trap to the "retire" command. (Zen)
*/
void do_retir( CHAR_DATA *ch, char *argument )
{
send_to_char( "If you want to RETIRE, you have to spell it out.\n\r", ch );
return;
}
/*
* Made by Zen :)
* some inspiration from bits here and there in the Envy code...
*/
void do_retire( CHAR_DATA *ch, char *argument )
{
extern const char echo_off_str [ ];
if ( IS_NPC( ch ) )
return;
if ( ch->position == POS_FIGHTING || ch->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;
}
/* If playes does not have level 2 he should not have a file... */
if ( ch->level < 2 )
{
send_to_char( "You're a newbie and you and you want to retire? I think not.\n\r", ch );
return;
}
write_to_buffer( ch->desc, "Password: ", 0 );
write_to_buffer( ch->desc, echo_off_str, 0 );
ch->desc->connected = CON_RETIRE_GET_PASSWORD;
return;
}
void send_ansi_title( DESCRIPTOR_DATA *d )
{
FILE *titlefile;
char buf [ MAX_STRING_LENGTH*2 ];
char strsave [ MAX_INPUT_LENGTH ];
int num;
num = 0;
fclose( fpReserve );
sprintf( strsave, "%s%s", SYSTEM_DIR, ANSI_TITLE_FILE );
if ( ( titlefile = fopen( strsave, "r" ) ) )
{
while ( ( buf[num] = fgetc( titlefile ) ) != EOF )
num++;
fclose( titlefile );
buf[num] = '\0';
write_to_buffer( d, buf, num );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
void send_ascii_title( DESCRIPTOR_DATA *d )
{
FILE *titlefile;
char buf [ MAX_STRING_LENGTH*2 ];
char strsave [ MAX_INPUT_LENGTH ];
int num;
num = 0;
fclose( fpReserve );
sprintf( strsave, "%s%s", SYSTEM_DIR, ANSI_TITLE_FILE );
if ( ( titlefile = fopen( strsave, "r" ) ) )
{
while ( ( buf[num] = fgetc( titlefile ) ) != EOF )
num++;
fclose( titlefile );
buf[num] = '\0';
write_to_buffer( d, buf, num );
}
fpReserve = fopen( NULL_FILE, "r" );
return;
}
// Mainly used for quest files, but can be used in conversation
// - Veygoth
void do_ask( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
QUEST_INDEX_DATA *quest;
TALK_DATA *message;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Ask who?\n\r", ch );
return;
}
if( !(victim = get_char_room( ch, arg )))
{
send_to_char( "They're not here\n\r", ch );
return;
}
if( argument[0] == '\0' )
{
send_to_char( "Ask them what?\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_MUTE )
|| IS_SET( race_table[ch->race].race_abilities, RACE_MUTE )
|| IS_SET( ch->in_room->room_flags, ROOM_SILENT ) )
{
send_to_char( "Your lips move but no sound comes out.\n\r", ch );
return;
}
argument = makedrunk( argument, ch );
act( "$n&n asks $N&n a question.", ch, NULL, victim, TO_ROOM );
sprintf( buf, "$n&n asks you '%s'", argument );
act( buf, ch, NULL, victim, TO_VICT );
sprintf( buf, "You ask $N&n '%s'", argument );
act( buf, ch, NULL, victim, TO_CHAR );
// players can't have talk files -- go home!
if( !IS_NPC( victim ))
return;
for( quest = quest_first; quest; quest = quest->next )
{
if( !quest->messages || (quest->vnum != victim->pIndexData->vnum ))
continue;
for( message = quest->messages; message; message = message->next )
{
if( is_name( argument, message->keywords ))
{
send_to_char( "\n\r", ch );
send_to_char( message->message, ch );
}
}
}
return;
}
// For players to talk to the gods - Veygoth
void do_petition( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
if( argument[0] == '\0' )
{
send_to_char( "Petition what?\n\r", ch );
return;
}
sprintf( buf, "&+r%s petitions '%s'&n", ch->name, argument );
wiznet( ch, WIZ_PETITION, L_AVA, buf );
sprintf( buf, "&+rYou petition '%s'&n\n\r", argument );
send_to_char( buf, ch );
return;
}
// For gods to respond to the players - Veygoth
void do_ptell( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
char arg [ MAX_INPUT_LENGTH ];
int position;
char buf [MAX_STRING_LENGTH];
if( !authorized( ch, "ptell" ) )
{
send_to_char( "You cannot respond to petitions.\n\r", ch );
return;
}
one_argument( argument, arg );
/*
* Can tell to PC's anywhere, but NPC's only in same room.
* -- Furey
*/
if ( !( victim = get_char_world( ch, arg ) ) )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( !victim->desc )
{
act( "$N&n is link dead.", ch, 0, victim, TO_CHAR );
return;
}
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Ptell whom what?\n\r", ch );
return;
}
argument = makedrunk( argument, ch );
act( "&+rYou tell $N&n&+r '&+R$t&n&+r'&n", ch, argument, victim, TO_CHAR );
position = victim->position;
victim->position = POS_STANDING;
act( "&+r$n&n&+r responds to your petition with '&+R$t&n&+r'&n", ch, argument, victim, TO_VICT );
sprintf( buf, "&+r%s responds to %s's petition with '&+R%s&n&+r'&n", ch->name, victim->name, argument );
wiznet( ch, WIZ_PETITION, L_AVA, buf );
victim->position = position;
victim->reply = ch;
if ( IS_SET( victim->act, PLR_AFK ) )
act( "Just so you know, $E is &+RAFK&n.", ch, NULL, victim, TO_CHAR );
return;
}
void do_consent( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
CHAR_DATA *wch;
char arg[ MAX_INPUT_LENGTH ];
if( IS_NPC( ch ) )
return;
one_argument( argument, arg );
if( arg[0] == '\0' )
{
send_to_char( "Consent who?\n\r", ch );
return;
}
if( !str_cmp( arg, "who" ))
{
if( !ch->pcdata->consent )
send_to_char( "You are not consenting anyone.\n\r", ch );
else
act( "You are consenting $N&n.", ch, NULL, ch->pcdata->consent, TO_CHAR );
for( wch = char_list; wch; wch = wch->next )
{
if( IS_NPC( wch ))
continue;
if( wch->pcdata->consent && wch->pcdata->consent == ch )
act( "$N&n is consenting you.", ch, NULL, wch, TO_CHAR );
}
return;
}
if( !(victim = get_char_world( ch, arg )))
{
send_to_char( "That person doesen't exist.\n\r", ch );
return;
}
if( victim == ch )
{
send_to_char( "You no longer give consent to anyone.\n\r", ch );
return;
}
if( ch->pcdata->consent )
{
act( "$N&n stops consenting you.", ch->pcdata->consent, NULL, ch, TO_CHAR );
act( "You stop consenting $N&n.", ch, NULL, ch->pcdata->consent, TO_CHAR );
}
ch->pcdata->consent = victim;
act( "You now give consent to $N&n.", ch, NULL, victim, TO_CHAR );
act( "$n&n has given you $s consent.", ch, NULL, victim, TO_VICT );
return;
}
void do_guard( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
CHAR_DATA *wch;
char arg[ MAX_INPUT_LENGTH ];
if( IS_NPC( ch ) )
return;
if( ch->level < skills_table[gsn_guard].skill_level[ch->class] )
{
send_to_char( "Guard!? You can't even protect yourself!\n\r", ch );
return;
}
one_argument( argument, arg );
if( arg[0] == '\0' )
{
send_to_char( "Guard who?\n\r", ch );
return;
}
if( !str_cmp( arg, "who" ))
{
if( !ch->pcdata->guarding )
send_to_char( "You are not guarding anyone.\n\r", ch );
else
act( "You are guarding $N&n.", ch, NULL, ch->pcdata->guarding, TO_CHAR );
for( wch = char_list; wch; wch = wch->next )
{
if( IS_NPC( wch ))
continue;
if( wch->pcdata->guarding && wch->pcdata->guarding == ch )
act( "$N&n is guarding you.", ch, NULL, wch, TO_CHAR );
}
return;
}
if( !(victim = get_char_world( ch, arg )))
{
send_to_char( "That person doesen't exist.\n\r", ch );
return;
}
if( victim == ch )
{
send_to_char( "You no longer guard anyone.\n\r", ch );
return;
}
if( ch->pcdata->consent )
{
act( "$N&n stops guarding you.", ch->pcdata->guarding, NULL, ch, TO_CHAR );
act( "You stop guarding $N&n.", ch, NULL, ch->pcdata->guarding, TO_CHAR );
}
ch->pcdata->guarding = victim;
act( "You now guard $N&n.", ch, NULL, victim, TO_CHAR );
act( "$n&n is now guarding you.", ch, NULL, victim, TO_VICT );
return;
}