/**************************************************************************
* Mudprogram's (Mobprogram, Objprogram and Roomprogram) originaly *
* by the SMAUG development team *
* Ported to EmberMUD by Thanatos and Tyrluk of ToED *
* (Temple of Eternal Death) *
* Tyrluk - morn@telmaron.com or dajy@mindspring.com *
* Thanatos - morn@telmaron.com or jonathan_w._rose@ffic.com *
**************************************************************************/
/* act_comm.c */
#if defined(WIN32)
#include <time.h>
#else
#include <sys/time.h>
#endif
#include <sys/types.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
#include "merc.h"
/* command procedures needed */
DECLARE_DO_FUN(do_quit);
extern void ChannelMessage(char *mesg, CHAR_DATA *ch);
/*
* Local functions.
*/
/* RT code to delete yourself */
void do_delet( CHAR_DATA *ch, char *argument)
{
send_to_char("You must type the full command to delete yourself.\n\r",ch);
}
void do_delete( CHAR_DATA *ch, char *argument)
{
char strsave[MAX_INPUT_LENGTH];
if (IS_NPC(ch))
return;
/* This is more of a personal prefference. You dont need this. -Lancelight
*/
if(IS_SET(ch->act,PLR_JAILED))
{
send_to_char("You wont get out of it that easily.",ch);
return;
}
/* Lets make sure they dont get any bright ideas. -Lancelight */
if ( auction_info.high_bidder == ch || auction_info.owner == ch )
{
send_to_char("You still have a stake in the auction!\n\r",ch);
return;
}
if (ch->pcdata->confirm_delete)
{
if (argument[0] != '\0')
{
send_to_char("Delete status removed.\n\r",ch);
ch->pcdata->confirm_delete = FALSE;
return;
}
else
{
sprintf( strsave, "%s/%s", sysconfig.player_dir, capitalize( ch->name ) );
do_quit(ch,"");
unlink(strsave);
return;
}
}
if (argument[0] != '\0')
{
send_to_char("Just type delete. No argument.\n\r",ch);
return;
}
send_to_char("Type delete again to confirm this command.\n\r",ch);
send_to_char("WARNING: this command is irreversible and your character will be permanently gone.\n\r",ch);
send_to_char("Typing delete with an argument will undo delete status.\n\r",
ch);
ch->pcdata->confirm_delete = TRUE;
}
void do_channels( CHAR_DATA *ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
/* lists all channels and their status */
send_to_char("`W channel status`w\n\r",ch);
send_to_char("`K---------------------`w\n\r",ch);
send_to_char("gossip ",ch);
if (!IS_SET(ch->comm,COMM_NOGOSSIP))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
send_to_char("auction ",ch);
if (!IS_SET(ch->comm,COMM_NOAUCTION))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
send_to_char("OOC ",ch);
if (!IS_SET(ch->comm,COMM_NO_OOC))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
send_to_char("Q/A ",ch);
if (!IS_SET(ch->comm,COMM_NOQUESTION))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
if (IS_HERO(ch))
{
send_to_char("imm channel ",ch);
if(!IS_SET(ch->comm,COMM_NOWIZ))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
}
send_to_char("shouts ",ch);
if (!IS_SET(ch->comm,COMM_DEAF))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
send_to_char("info ",ch);
if (!IS_SET(ch->comm,COMM_NOINFO))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
send_to_char("quiet mode ",ch);
if (IS_SET(ch->comm,COMM_QUIET))
send_to_char("`GON`w\n\r",ch);
else
send_to_char("`ROFF`w\n\r",ch);
if (ch->lines != PAGELEN)
{
if (ch->lines)
{
sprintf(buf,"You display %d lines of scroll.\n\r",ch->lines+2);
send_to_char(buf,ch);
}
else
send_to_char("Scroll buffering is off.\n\r",ch);
}
if (IS_SET(ch->comm,COMM_NOSHOUT))
send_to_char("You cannot shout.\n\r",ch);
if (IS_SET(ch->comm,COMM_NOTELL))
send_to_char("You cannot use tell.\n\r",ch);
if (IS_SET(ch->comm,COMM_NOCHANNELS))
send_to_char("You cannot use channels.\n\r",ch);
if (IS_SET(ch->comm,COMM_NOEMOTE))
send_to_char("You cannot emote.\n\r",ch);
}
/* RT deaf blocks out all shouts */
void do_deaf( CHAR_DATA *ch, char *argument)
{
if (IS_SET(ch->comm,COMM_NOSHOUT))
{
send_to_char("The gods have taken away your ability to shout.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_DEAF))
{
send_to_char("You can now hear shouts again.\n\r",ch);
REMOVE_BIT(ch->comm,COMM_DEAF);
}
else
{
send_to_char("From now on, you won't hear shouts.\n\r",ch);
SET_BIT(ch->comm,COMM_DEAF);
}
}
/* RT quiet blocks out all communication */
void do_quiet ( CHAR_DATA *ch, char * argument)
{
char buf[MAX_STRING_LENGTH];
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("Quiet mode removed.\n\r",ch);
REMOVE_BIT(ch->comm,COMM_QUIET);
if (ch->pcdata->message != NULL) {
sprintf(buf, "You have `W%d message%s`w waiting, type `Wmessages`w to read them.\n\r",
ch->pcdata->messages, (ch->pcdata->messages > 1) ? "s" : "" );
send_to_char(buf, ch);
}
}
else
{
send_to_char("From now on, you will only hear says and emotes.\n\r",ch);
send_to_char("Messages are being recorded.\n\r",ch);
SET_BIT(ch->comm,COMM_QUIET);
}
}
/* Bye bye Auction channel. Its been replaced with autoauction. -Lancelight */
/* RT chat replaced with ROM gossip */
void do_gossip( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NOGOSSIP))
{
send_to_char(COLOR_GOS"Gossip channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOGOSSIP);
}
else
{
send_to_char(COLOR_GOS"Gossip channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOGOSSIP);
}
}
else /* gossip message sent, turn gossip on if it isn't already */
{
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("You must turn off quiet mode first.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_NOCHANNELS))
{
send_to_char("The gods have revoked your channel priviliges.\n\r",ch);
return;
}
REMOVE_BIT(ch->comm,COMM_NOGOSSIP);
sprintf( buf, COLOR_GOS"You gossip '%s"COLOR_GOS"'`w\n\r", argument );
send_to_char( buf, ch );
sprintf(buf, COLOR_GOS" gossips '%s"COLOR_GOS"'`w\n\r", argument);
add2last(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
d->character != ch &&
!IS_SET(victim->comm,COMM_NOGOSSIP) &&
!IS_SET(victim->comm,COMM_QUIET) )
{
act_new( COLOR_GOS"$n gossips '$t"COLOR_GOS"'`w",
ch,argument, d->character, TO_VICT,POS_SLEEPING );
}
}
}
}
/* RT question channel */
void do_question( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NOQUESTION))
{
send_to_char(COLOR_QA"Q/A channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOQUESTION);
}
else
{
send_to_char(COLOR_QA"Q/A channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOQUESTION);
}
}
else /* question sent, turn Q/A on if it isn't already */
{
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("You must turn off quiet mode first.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_NOCHANNELS))
{
send_to_char("The gods have revoked your channel priviliges.\n\r",ch);
return;
}
REMOVE_BIT(ch->comm,COMM_NOQUESTION);
sprintf( buf, COLOR_QA"You question '%s"COLOR_QA"'\n\r`w", argument );
send_to_char( buf, ch );
sprintf(buf, COLOR_QA" questions '%s"COLOR_QA"'`w\n\r", argument);
add2last(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
d->character != ch &&
!IS_SET(victim->comm,COMM_NOQUESTION) &&
!IS_SET(victim->comm,COMM_QUIET) )
{
act_new(COLOR_QA"$n questions '$t"COLOR_QA"'`w",
ch,argument,d->character,TO_VICT,POS_SLEEPING);
}
}
}
}
/* RT answer channel - uses same line as questions */
void do_answer( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NOQUESTION))
{
send_to_char(COLOR_QA"Q/A channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOQUESTION);
}
else
{
send_to_char(COLOR_QA"Q/A channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOQUESTION);
}
}
else /* answer sent, turn Q/A on if it isn't already */
{
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("You must turn off quiet mode first.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_NOCHANNELS))
{
send_to_char("The gods have revoked your channel priviliges.\n\r",ch);
return;
}
REMOVE_BIT(ch->comm,COMM_NOQUESTION);
sprintf( buf, COLOR_QA"You answer '%s"COLOR_QA"'\n\r`w", argument );
send_to_char( buf, ch );
sprintf(buf, COLOR_QA" answers '%s"COLOR_QA"'`w\n\r", argument);
add2last(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
d->character != ch &&
!IS_SET(victim->comm,COMM_NOQUESTION) &&
!IS_SET(victim->comm,COMM_QUIET) )
{
act_new(COLOR_QA"$n answers '$t"COLOR_QA"'`w",
ch,argument,d->character,TO_VICT,POS_SLEEPING);
}
}
}
}
/* RT music channel */
void do_ooc( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NO_OOC))
{
send_to_char(COLOR_OOC"OOC channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NO_OOC);
}
else
{
send_to_char(COLOR_OOC"OOC channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NO_OOC);
}
}
else /* ooc sent, turn ooc on if it isn't already */
{
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("You must turn off quiet mode first.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_NOCHANNELS))
{
send_to_char("The gods have revoked your channel priviliges.\n\r",ch);
return;
}
REMOVE_BIT(ch->comm,COMM_NO_OOC);
sprintf( buf, COLOR_OOC"You OOC: '%s"COLOR_OOC"'\n\r`w", argument );
send_to_char( buf, ch );
sprintf(buf, COLOR_OOC" OOC: '%s"COLOR_OOC"'`w\n\r", argument);
add2last(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
d->character != ch &&
!IS_SET(victim->comm,COMM_NO_OOC) &&
!IS_SET(victim->comm,COMM_QUIET) )
{
act_new(COLOR_OOC"$n OOC: '$t"COLOR_OOC"'`w",
ch,argument,d->character,TO_VICT,POS_SLEEPING);
}
}
}
}
void do_immtalk( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if ( argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NOWIZ))
{
send_to_char(COLOR_IMM"Immortal channel is now ON\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOWIZ);
}
else
{
send_to_char(COLOR_IMM"Immortal channel is now OFF\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOWIZ);
}
return;
}
REMOVE_BIT(ch->comm,COMM_NOWIZ);
sprintf( buf, COLOR_IMM"$n: %s`w", argument );
act_new(COLOR_IMM"$n: $t`w",ch,argument,NULL,TO_CHAR,POS_DEAD);
sprintf( buf, COLOR_IMM": %s`w\n\r",argument);
add2last_imm(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
if ( d->connected == CON_PLAYING &&
IS_HERO(d->character) &&
!IS_SET(d->character->comm,COMM_NOWIZ) )
{
act_new(COLOR_IMM"$n: $t`w",ch,argument,d->character,TO_VICT,POS_DEAD);
sprintf(buf, COLOR_IMM"%s: %s`w\n\r", ch->name, argument);
}
}
return;
}
void do_say( CHAR_DATA *ch, char *argument )
{
if ( argument[0] == '\0' )
{
send_to_char( "Say what?\n\r", ch );
return;
}
act( COLOR_SAY"$n says '$T"COLOR_SAY"'`w", ch, NULL, argument, TO_ROOM );
act( COLOR_SAY"You say '$T"COLOR_SAY"'`w", ch, NULL, argument, TO_CHAR );
mprog_speech_trigger( argument, ch );
if ( !ch )
return;
rprog_speech_trigger( argument, ch );
if ( !ch )
return;
oprog_speech_trigger( argument, ch );
return;
}
void do_shout( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
DESCRIPTOR_DATA *d;
if ( IS_SET(ch->comm, COMM_NOSHOUT) )
{
send_to_char( "You can't shout.\n\r", ch );
return;
}
if ( IS_SET(ch->comm, COMM_DEAF))
{
send_to_char( "Deaf people can't shout.\n\r",ch);
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Shout what?\n\r", ch );
return;
}
WAIT_STATE( ch, 12 );
act( COLOR_SHOUT"You shout '$T"COLOR_SHOUT"'`w", ch, NULL, argument, TO_CHAR );
sprintf(buf, COLOR_SHOUT" shouts '%s"COLOR_SHOUT"'`w\n\r", argument);
add2last(buf,ch);
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
d->character != ch &&
!IS_SET(victim->comm, COMM_DEAF) &&
!IS_SET(victim->comm, COMM_QUIET) )
{
act(COLOR_SHOUT"$n shouts '$t"COLOR_SHOUT"'`w",ch,argument,d->character,TO_VICT);
}
}
return;
}
void do_sendinfo( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_NOINFO))
{
send_to_char("`BInfo channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOINFO);
}
else
{
send_to_char("`BInfo channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOINFO);
}
return;
}
sprintf( buf, CFG_INFO );
strcat( buf, argument );
strcat( buf, "`w\n\r" );
add2last( buf, NULL );
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if ( d->connected == CON_PLAYING &&
!IS_SET(victim->comm, COMM_DEAF) &&
!IS_SET(victim->comm, COMM_NOINFO) &&
!IS_SET(victim->comm, COMM_QUIET) )
{
send_to_char(buf,d->character);
}
}
return;
}
void do_beep( CHAR_DATA *ch, char *argument )
{
if (ch->beep)
{
ch->beep = FALSE;
send_to_char("`RBeeps are now off\n\r",ch);
return;
}
ch->beep = TRUE;
send_to_char("`RBeeps are now on\n\r",ch);
return;
}
void do_tell( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
char arg [MAX_INPUT_LENGTH];
CHAR_DATA *victim;
if ( IS_SET(ch->comm, COMM_NOTELL) )
{
send_to_char( "Your message didn't get through.\n\r", ch );
return;
}
if ( IS_SET(ch->comm, COMM_QUIET) )
{
send_to_char( "You must turn off quiet mode first.\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;
}
/*
* Can tell to PC's anywhere, but NPC's only in same room.
* -- Furey
*/
if ( ( victim = get_char_world( ch, arg ) ) == NULL
|| ( IS_NPC(victim) && victim->in_room != ch->in_room ) )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( victim->desc == NULL && !IS_NPC(victim))
{
act("$N seems to have misplaced $S link...please try again later.",
ch,NULL,victim,TO_CHAR);
return;
}
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
return;
}
if ( IS_SET(victim->comm,COMM_QUIET) && !IS_IMMORTAL(ch) )
{
act( "$E is not receiving tells, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
return;
}
if ( IS_SET(victim->act,PLR_AFK) )
{
act( "$E is AFK and can't hear you, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
}
act( COLOR_TELL"You tell $N '$t"COLOR_TELL"'`w", ch, argument, victim, TO_CHAR );
if (victim->beep)
act_new(COLOR_TELL"$n \atells you '$t"COLOR_TELL"'`w",ch,argument,victim,TO_VICT,POS_DEAD);
else
act_new(COLOR_TELL"$n tells you '$t"COLOR_TELL"'`w",ch,argument,victim,TO_VICT,POS_DEAD);
sprintf(buf, COLOR_TELL"%s tells you '%s"COLOR_TELL"'`w\n\r",ch->name, argument);
add2tell(ch, victim, buf);
victim->reply = ch;
return;
}
void do_reply( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
CHAR_DATA *victim;
if ( IS_SET(ch->comm, COMM_NOTELL) )
{
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 ( victim->desc == NULL && !IS_NPC(victim))
{
act("$N seems to have misplaced $S link...please try again later.",
ch,NULL,victim,TO_CHAR);
return;
}
if ( !IS_IMMORTAL(ch) && !IS_AWAKE(victim) )
{
act( "$E can't hear you, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
return;
}
if ( IS_SET(victim->comm,COMM_QUIET) && !IS_IMMORTAL(ch))
{
act( "$E is not receiving tells, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
return;
}
if ( IS_SET(victim->act, PLR_AFK) )
{
act( "$E is AFK and can't hear you, but your message has been recorded.",
ch, 0, victim, TO_CHAR );
add2queue(ch, victim, argument);
}
act(COLOR_TELL"You tell $N '$t"COLOR_TELL"'`w",ch,argument,victim,TO_CHAR);
if (victim->beep)
act_new(COLOR_TELL"$n \atells you '$t"COLOR_TELL"'`w",ch,argument,victim,TO_VICT,POS_DEAD);
else
act_new(COLOR_TELL"$n tells you '$t"COLOR_TELL"'`w",ch,argument,victim,TO_VICT,POS_DEAD);
sprintf(buf, COLOR_TELL"%s tells you '%s"COLOR_TELL"'`w\n\r",ch->name, argument);
add2tell(ch, victim, buf);
victim->reply = ch;
return;
}
void add2queue( CHAR_DATA *ch, CHAR_DATA *victim, char * argument)
{
#ifdef DISABLE_MESSAGE_QUEUEING
return;
#endif
if IS_NPC( ch ) return;
if (victim->pcdata->message == NULL) {
victim->pcdata->message = alloc_mem (sizeof(QUEUE_DATA));
victim->pcdata->message->next = NULL;
victim->pcdata->message->sender = str_dup(ch->name);
victim->pcdata->message->text = str_dup(argument);
victim->pcdata->messages++;
victim->pcdata->fmessage = victim->pcdata->message;
} else {
victim->pcdata->message->next = alloc_mem (sizeof(QUEUE_DATA));
victim->pcdata->message = victim->pcdata->message->next;
victim->pcdata->message->next = NULL;
victim->pcdata->message->sender = str_dup(ch->name);
victim->pcdata->message->text = str_dup(argument);
victim->pcdata->messages++;
}
}
void add2tell( CHAR_DATA *ch, CHAR_DATA *victim, char * argument)
{
#ifdef DISABLE_MESSAGE_QUEUEING
return;
#endif
if IS_NPC( ch ) return; /* not for NPCs */
if (victim->pcdata == NULL) return;
/* Only happens when vict is a switched imm I think */
if (victim->pcdata->tells+1 > MAX_LAST_LENGTH)
{
QUEUE_DATA *tmp;
tmp = victim->pcdata->ftell_q;
victim->pcdata->ftell_q=victim->pcdata->ftell_q->next;
victim->pcdata->tells--;
free_mem(&tmp);
}
if (victim->pcdata->tell_q == NULL) {
victim->pcdata->tell_q = alloc_mem (sizeof(QUEUE_DATA));
victim->pcdata->tell_q->next = NULL;
victim->pcdata->tell_q->sender = str_dup(ch->name);
victim->pcdata->tell_q->text = str_dup(argument);
victim->pcdata->tells++;
victim->pcdata->ftell_q = victim->pcdata->tell_q;
} else {
victim->pcdata->tell_q->next = alloc_mem (sizeof(QUEUE_DATA));
victim->pcdata->tell_q = victim->pcdata->tell_q->next;
victim->pcdata->tell_q->next = NULL;
victim->pcdata->tell_q->sender = str_dup(ch->name);
victim->pcdata->tell_q->text = str_dup(argument);
victim->pcdata->tells++;
}
}
void add2last( char *argument, CHAR_DATA *ch )
{
static int last_length = 0;
LAST_DATA * tmp;
#if defined(cbuilder)
ChannelMessage(argument, ch);
#endif
if ( last_length == MAX_LAST_LENGTH )
{
tmp = flast;
flast = tmp->next;
last_list->next = tmp;
last_list = tmp;
if (last_list->msg)
free_string(&last_list->msg);
if (last_list->sender)
free_string(&last_list->sender);
}
else
{
tmp = alloc_mem(sizeof( LAST_DATA ));
if ( last_list != NULL )
last_list->next = tmp;
last_list = tmp;
if ( flast == NULL )
flast = tmp;
last_length++;
}
last_list->next = NULL;
last_list->msg = str_dup( argument );
if ( ch != NULL )
{
last_list->sender = str_dup(ch->name);
last_list->level = ch->invis_level;
last_list->hidden = (IS_SET(ch->act,PLR_WIZINVIS)) ? TRUE : FALSE;
}
else
{
last_list->sender = str_dup( " " );
last_list->level = 0;
last_list->hidden = FALSE;
}
return;
}
void add2last_imm( char *argument, CHAR_DATA *ch)
{
static int last_imm_length = 0;
LAST_DATA * tmp;
#if defined(cbuilder)
ChannelMessage(argument, ch);
#endif
if ( last_imm_length == MAX_LAST_LENGTH )
{
tmp = flast_imm;
flast_imm = tmp->next;
last_imm->next = tmp;
last_imm = tmp;
if (last_imm->msg)
free_string( &last_imm->msg );
if (last_imm->sender)
free_string( &last_imm->sender );
}
else
{
tmp = alloc_mem(sizeof(LAST_DATA));
if ( last_imm != NULL )
{
last_imm->next = tmp;
}
last_imm = tmp;
if ( flast_imm == NULL )
{
flast_imm = last_imm;
}
++last_imm_length;
}
last_imm->next = NULL;
last_imm->msg = str_dup(argument);
last_imm->sender = str_dup(ch->name);
last_imm->level = ch->invis_level;
last_imm->hidden = (IS_SET(ch->act,PLR_WIZINVIS)) ? TRUE : FALSE;
return;
}
void do_messages ( CHAR_DATA *ch, char *argument )
{
QUEUE_DATA *mq;
char buf[MAX_STRING_LENGTH];
if IS_NPC( ch ) return;
if (ch->pcdata->fmessage == NULL) {
send_to_char( "You have no messages waiting.\n\r", ch );
return;
}
sprintf(buf, "`R%s tells you '%s`R'`w\n\r",ch->pcdata->fmessage->sender,
ch->pcdata->fmessage->text);
send_to_char(buf, ch);
ch->reply = get_char_world (ch, ch->pcdata->fmessage->sender);
mq = ch->pcdata->fmessage;
ch->pcdata->fmessage = ch->pcdata->fmessage->next;
free_string(&mq->text);
free_string(&mq->sender);
free_mem(&mq);
if ( !ch->pcdata->fmessage )
ch->pcdata->message = NULL;
ch->pcdata->messages--;
if (ch->pcdata->messages > 0) {
sprintf(buf, "You still have `C%d`w message%s in your queue.\n\r",
ch->pcdata->messages, (ch->pcdata->messages > 1) ? "s" : "" );
send_to_char(buf, ch);
}
return;
}
void do_tq ( CHAR_DATA *ch, char *argument )
{
QUEUE_DATA *mq;
char buf[MAX_STRING_LENGTH];
if IS_NPC( ch ) return;
if (ch->pcdata->ftell_q == NULL) {
send_to_char( "You have recieved no private messages.\n\r", ch );
return;
}
for (mq = ch->pcdata->ftell_q; mq != NULL; mq = mq->next)
{
sprintf(buf,"%s`w",mq->text);
send_to_char(buf,ch);
}
return;
}
void do_last( CHAR_DATA *ch, char *argument )
{
LAST_DATA * tlast;
char buf[MAX_STRING_LENGTH];
if (!last_list)
{
send_to_char("Nothing has been recorded yet.\n\r", ch);
return;
}
for ( tlast = flast; tlast != NULL; tlast = tlast->next)
{
if (tlast->hidden)
{
if (tlast->level > ch->level)
sprintf(buf,"%s%s","someone",tlast->msg);
else sprintf(buf,"%s%s",tlast->sender,tlast->msg);
}
else sprintf(buf,"%s%s",tlast->sender,tlast->msg);
send_to_char(buf, ch);
}
}
void do_lastimm( CHAR_DATA *ch, char *argument )
{
LAST_DATA * tlast;
char buf[MAX_STRING_LENGTH];
if (!last_imm)
{
send_to_char("Nothing has been recorded yet.\n\r", ch);
return;
}
for ( tlast = flast_imm; tlast != NULL; tlast = tlast->next)
{
if (tlast->hidden)
{
if (tlast->level > ch->level)
sprintf(buf,"%s%s","someone",tlast->msg);
else sprintf(buf,"%s%s",tlast->sender,tlast->msg);
}
else sprintf(buf,"%s%s",tlast->sender,tlast->msg);
send_to_char(buf, ch);
}
}
void do_yell( CHAR_DATA *ch, char *argument )
{
char buf [MAX_STRING_LENGTH];
DESCRIPTOR_DATA *d;
if ( IS_SET(ch->comm, COMM_NOSHOUT) )
{
send_to_char( "You can't yell.\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Yell what?\n\r", ch );
return;
}
act(COLOR_YELL"You yell '$t"COLOR_YELL"'`w",ch,argument,NULL,TO_CHAR);
for ( d = descriptor_list; d != NULL; d = d->next )
{
if ( d->connected == CON_PLAYING
&& d->character != ch
&& d->character->in_room != NULL
&& d->character->in_room->area == ch->in_room->area
&& !IS_SET(d->character->comm,COMM_QUIET) )
{
act(COLOR_YELL"$n yells '$t"COLOR_YELL"'`w",ch,argument,d->character,TO_VICT);
sprintf(buf, COLOR_YELL"%s yells '%s"COLOR_YELL"'`w\n\r",ch->name,argument);
}
}
return;
}
void do_emote( CHAR_DATA *ch, char *argument )
{
if ( !IS_NPC(ch) && IS_SET(ch->comm, COMM_NOEMOTE) )
{
send_to_char( "You can't emote.\n\r", ch );
return;
}
if ( argument[0] == '\0' )
{
send_to_char( "Emote what?\n\r", ch );
return;
}
act( "$n $T`w", ch, NULL, argument, TO_ROOM );
act( "$n $T`w", ch, NULL, argument, TO_CHAR );
return;
}
void do_info( CHAR_DATA *ch)
{
if (IS_SET(ch->comm,COMM_NOINFO))
{
send_to_char("`BInfo channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_NOINFO);
}
else
{
send_to_char("`BInfo channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_NOINFO);
}
return;
}
/*
* All the posing stuff.
*/
struct pose_table_type
{
char * message[2*MAX_CLASS];
};
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 gods give you a staff.",
"The great gods give $n a staff.",
"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;
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 )
{
char buf[MAX_STRING_LENGTH];
sprintf(buf, "%s/%s", sysconfig.area_dir, sysconfig.bug_file);
append_file( ch, buf, argument );
send_to_char( "Bug logged.\n\r", ch );
return;
}
void do_idea( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
sprintf(buf, "%s/%s", sysconfig.area_dir, sysconfig.idea_file);
append_file( ch, buf, argument );
send_to_char( "Idea logged. This is NOT an identify command.\n\r", ch );
return;
}
void do_typo( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
sprintf(buf, "%s/%s", sysconfig.area_dir, sysconfig.typo_file);
append_file( ch, buf, argument );
send_to_char( "Typo logged.\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 *d_next;
char *name;
send_to_char( "\n\r", ch );
if ( IS_NPC(ch) ) return;
if ( ch->position == POS_FIGHTING )
{
send_to_char( "No way! You are fighting.\n\r", ch );
return;
}
/* Is the player trying to leave while his auction is still goin? Lets
inform him that its not that easy ;) -Lancelight */
if ( auction_info.high_bidder == ch || auction_info.owner == ch )
{
send_to_char("You still have a stake in the auction!\n\r",ch);
return;
}
if ( ch->position < POS_STUNNED )
{
send_to_char( "You're not DEAD yet.\n\r", ch );
return;
}
send_to_char( CFG_QUIT, ch );
act( "$n has left the game.", ch, NULL, NULL, TO_ROOM );
sprintf( log_buf, "%s has quit.", ch->name );
log_string( log_buf );
#if defined(cbuilder)
RemoveUser(ch);
#endif
/*
* After extract_char the ch is no longer valid!
*/
save_char_obj( ch );
/* Free note that might be there somehow */
if (ch->pcdata->in_progress)
{
free_note (ch->pcdata->in_progress);
}
name = strdup(ch->name);
d = ch->desc;
extract_char( ch, TRUE );
if ( d )
{
close_socket( d );
}
for (d = descriptor_list; d!=NULL; d = d_next)
{
CHAR_DATA *tch;
d_next=d->next;
tch = d->original ? d->original : d->character;
/* if ((tch) && (!strcmp(tch->name,name)) && (ch != tch)) */
if ((tch) && (!strcmp(tch->name,name)) )
{
extract_char(tch,TRUE);
if ( d )
{
#if defined(cbuilder)
if (d->character)
RemoveUser(d->character);
#endif
close_socket( d );
}
}
}
sprintf( log_buf, "%s left the game", name );
log_string( log_buf );
free(name);
return;
}
void do_save( CHAR_DATA *ch, char *argument )
{
extern bool chaos;
if ( IS_NPC(ch) )
return;
if ( chaos )
{
send_to_char("Saving is not allowed during `rC`RH`YA`RO`rS.\n\r`w",ch);
return;
}
save_char_obj( ch );
send_to_char("Saving.\n\r", ch );
return;
}
void do_follow( CHAR_DATA *ch, char *argument )
{
/* RT changed to allow unlimited following and follow the NOFOLLOW rules */
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 (!IS_NPC(victim) && IS_SET(victim->act,PLR_NOFOLLOW) && !IS_HERO(ch))
{
act("$N doesn't seem to want any followers.\n\r",
ch,NULL,victim, TO_CHAR);
return;
}
REMOVE_BIT(ch->act,PLR_NOFOLLOW);
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;
}
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 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 ) && ch->in_room != NULL)
{
act( "$n stops following you.", ch, NULL, ch->master, TO_VICT );
act( "You stop following $N.", ch, NULL, ch->master, TO_CHAR );
}
if (ch->master->pet == ch)
ch->master->pet = NULL;
ch->master = NULL;
ch->leader = NULL;
return;
}
/* nukes charmed monsters and pets */
void nuke_pets( CHAR_DATA *ch )
{
CHAR_DATA *pet;
if ((pet = ch->pet) != NULL)
{
stop_follower(pet);
if (pet->in_room != NULL)
act("$N slowly fades away.",ch,NULL,pet,TO_NOTVICT);
extract_char(pet,TRUE);
}
ch->pet = NULL;
return;
}
void die_follower( CHAR_DATA *ch )
{
CHAR_DATA *fch;
if ( ch->master != NULL )
{
if (ch->master->pet == ch)
ch->master->pet = NULL;
stop_follower( ch );
}
ch->leader = NULL;
for ( fch = char_list; fch != NULL; fch = fch->next )
{
if ( fch->master == ch )
stop_follower( fch );
if ( fch->leader == ch )
fch->leader = fch;
}
return;
}
/* Order modifications made by Raven (Laurie Zenner) */
void do_order( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char cmd_vi[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *och;
CHAR_DATA *och_next;
bool found;
bool fAll;
bool fUnto;
argument = one_argument( argument, arg );
one_argument(argument,arg2);
if ( arg[0] == '\0' || argument[0] == '\0' )
{
send_to_char( "Order whom to do what?\n\r", ch );
return;
}
if ( IS_AFFECTED( ch, AFF_CHARM ) )
{
send_to_char( "You feel like taking, not giving, orders.\n\r", ch );
return;
}
if ( !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;
}
}
fUnto = FALSE;
found = FALSE;
for ( och = ch->in_room->people; och != NULL; och = och_next )
{
och_next = och->next_in_room;
if ( IS_AFFECTED(och, AFF_CHARM)
&& och->master == ch
&& ( fAll || och == victim ) )
{
found = TRUE;
strcpy( cmd_vi, argument );
chk_command( och, cmd_vi );
if (cmd_vi[0] == '\0')
act( "$N is unable to comply with your order.", ch, NULL, och, TO_CHAR );
else if ( (!strcmp( cmd_vi, "delete" )) ||
(!strcmp( cmd_vi, "quit" )) ||
(!strcmp( cmd_vi, "password" )) ||
(!strcmp( cmd_vi, "pk" )) )
{
act( "I don't think $N appreciated that.", ch, NULL, och, TO_CHAR );
sprintf( buf, "WATCH PLAYER!: %s attempted to make %s %s!",
ch->name, och->name, cmd_vi );
log_string( buf );
stop_follower( och );
if (!IS_NPC( och ))
fUnto = TRUE;
}
else if (( (!strcmp( cmd_vi, "advance" )) && (IS_NPC( och )) ) ||
(!strncmp( cmd_vi, "mp", 2 )) )
{
sprintf( buf, "WATCH PLAYER!: %s attempted to make %s %s!", ch->name, och->name, cmd_vi );
log_string( buf );
act( "$N is unable to comply with your order.", ch, NULL, och, TO_CHAR );
}
else
{
if (!IS_NPC( och ))
{
sprintf( buf, "%s ordered %s to '%s'", ch->name, och->name, argument );
log_string( buf );
}
sprintf( buf, "$n orders you to '%s'.", argument );
act( buf, ch, NULL, och, TO_VICT );
act( "$N does $S best to comply to your order.", ch, NULL, och, TO_CHAR );
interpret( och, argument );
}
}
}
if ( !found )
send_to_char( "You have no followers here.\n\r", ch );
if (fUnto)
{
/* If I feel especially mean spirited one day, I'll check to see
* if they tried to changed another's password and, if so, change
* their's to some random string.
*/
send_to_char( "The warders of this land have a perverse delight in poetic justice./n/r", ch );
interpret( ch, argument );
}
tail_chain( );
return;
}
void do_group( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
CHAR_DATA *gch;
CHAR_DATA *leader;
leader = (ch->leader != NULL) ? ch->leader : ch;
sprintf( buf, "`K[`W%s's group`K]`w\n\r", PERS(leader, ch) );
send_to_char( buf, ch );
for ( gch = char_list; gch != NULL; gch = gch->next )
{
if ( is_same_group( gch, ch ) )
{
sprintf( buf,
"`K[`W%3d `G%s`K] `w%-16s `W%4d`K/`W%4d hp %4d`K/`W%4d mana %4d`K/`W%4d mv %5ld 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 ( ( 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_AFFECTED(victim,AFF_CHARM))
{
send_to_char("You can't remove charmed mobs from your group.\n\r",ch);
return;
}
if (IS_AFFECTED(ch,AFF_CHARM))
{
act("You like your master too much to leave $m!",ch,NULL,victim,TO_VICT);
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;
}
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 arg[MAX_INPUT_LENGTH];
char buf[MAX_STRING_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->people; gch != NULL; gch = gch->next_in_room )
{
if ( is_same_group( gch, ch ) && !IS_AFFECTED(gch,AFF_CHARM))
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->people; gch != NULL; gch = gch->next_in_room )
{
if ( gch != ch && is_same_group( gch, ch ) && !IS_AFFECTED(gch,AFF_CHARM))
{
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 ( argument[0] == '\0' )
{
send_to_char( "Tell your group what?\n\r", ch );
return;
}
if ( IS_SET( ch->comm, COMM_NOTELL ) )
{
send_to_char( "Your message didn't get through!\n\r", ch );
return;
}
/*
* Note use of send_to_char, so gtell works on sleepers.
*/
sprintf( buf, "`C%s tells the group '%s`C'.\n\r`w", ch->name, argument );
add2tell(ch, ch, buf);
for ( gch = char_list; 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;
}
void do_spousetalk( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
if( IS_NPC(ch) )
return;
if( ch->pcdata->spousec == 0 )
{
send_to_char("You are not even married!\n\r", ch);
return;
}
if (argument[0] == '\0' )
{
if (IS_SET(ch->comm,COMM_SPOUSETALK))
{
send_to_char("`BSpouse channel is now ON.\n\r`w",ch);
REMOVE_BIT(ch->comm,COMM_SPOUSETALK);
}
else
{
send_to_char("`BSpouse channel is now OFF.\n\r`w",ch);
SET_BIT(ch->comm,COMM_SPOUSETALK);
}
}
else
{
if (IS_SET(ch->comm,COMM_QUIET))
{
send_to_char("You must turn off quiet mode first.\n\r",ch);
return;
}
if (IS_SET(ch->comm,COMM_NOCHANNELS)
/*|| IS_AFFECTED2(ch,AFF_GHOST_NOCHAN)*/)
{
send_to_char("The gods have revoked your channel priviliges.\n\r",ch);
return;
}
REMOVE_BIT(ch->comm,COMM_SPOUSETALK);
/*clan = get_clan( ch->pcdata->clan );*/
for ( d = descriptor_list; d != NULL; d = d->next )
{
CHAR_DATA *victim;
victim = d->original ? d->original : d->character;
if( IS_NPC( victim ) ) continue;
if( victim == NULL ) continue;
if( victim->pcdata == NULL ) continue;
if( !is_name(victim->pcdata->spouse, ch->name)) continue;
if ( ( d->character != NULL &&
d->connected == CON_PLAYING &&
!IS_SET(victim->comm,COMM_SPOUSETALK) &&
!IS_SET(victim->comm,COMM_QUIET) &&
d->character->position >= POS_SLEEPING
)/* || IS_SET(victim->comm,COMM_SNOOP_CLAN)*/)
{
printf_to_char(victim, "`W{`R%s`W-`YN`W-`R%s`W}`R<`w%s`R>`w %s`w\n\r",
ch->name,victim->name,ch->name, argument);
printf_to_char(ch, "`W{`R%s`W-`YN`W-`R%s`W}`R<`w%s`R>`w %s`w\n\r",
ch->name,victim->name,ch->name, argument);
}
}
}
}