bool spec_executioner( CHAR_DATA *ch )
{
char buf[MAX_STRING_LENGTH];
MOB_INDEX_DATA *cityguard;
CHAR_DATA *victim;
CHAR_DATA *v_next;
char *crime;
if ( !IS_AWAKE(ch) || ch->fighting )
return FALSE;
crime = "";
for ( victim = ch->in_room->first_person; victim; victim = v_next )
{
v_next = victim->next_in_room;
if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_KILLER) )
{ crime = "KILLER"; break; }
if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_THIEF) )
{ crime = "THIEF"; break; }
}
if ( !victim )
return FALSE;
if ( xIS_SET( ch->in_room->room_flags, ROOM_SAFE ) )
{
sprintf( buf, "%s is a %s! As well as a COWARD!",
victim->name, crime );
do_yell( ch, buf );
return TRUE;
}
sprintf( buf, "%s is a %s! PROTECT THE INNOCENT! MORE BLOOOOD!!!",
victim->name, crime );
do_yell( ch, buf );
multi_hit( ch, victim, TYPE_UNDEFINED );
if ( char_died(ch) )
return TRUE;
/* Added log in case of missing cityguard -- Tri */
cityguard = get_mob_index( MOB_VNUM_CITYGUARD );
if ( !cityguard )
{
sprintf( buf, "Missing Cityguard - Vnum:[%d]", MOB_VNUM_CITYGUARD );
bug( buf, 0 );
return TRUE;
}
char_to_room( create_mobile( cityguard ), ch->in_room );
char_to_room( create_mobile( cityguard ), ch->in_room );
return TRUE;
}
bool is_tagging( CHAR_DATA *ch )
{
if ( !ch || IS_NPC( ch ) )
return FALSE;
if ( xIS_SET( ch->act, PLR_PLAYING ) && xIS_SET( ch->act, PLR_WAITING )
&& tag_game.status != TAG_OFF )
return TRUE;
return FALSE;
}
void start_tag( void )
{
DESCRIPTOR_DATA *d,
*d_next;
ROOM_INDEX_DATA *loc;
char buf[MAX_INPUT_LENGTH];
int count = 0;
tag_game.status = TAG_ISPLAY;
tag_game.timer = 2 * tag_game.playing;
for ( d = first_descriptor; d; d = d_next ) {
d_next = d->next;
if ( d->connected != CON_PLAYING || !d->character || IS_NPC( d->character ) )
continue;
if ( xIS_SET( d->character->act, PLR_WAITING ) ) {
count++;
loc = get_room_index( number_range( FTAG_MIN_VNUM, FTAG_MAX_VNUM ) );
xREMOVE_BIT( d->character->act, PLR_FROZEN );
xREMOVE_BIT( d->character->act, PLR_WAITING );
xSET_BIT( d->character->act, PLR_PLAYING );
char_from_room( d->character );
char_to_room( d->character, loc );
do_look( d->character, ( char * ) "auto" );
}
}
sprintf( buf, "&R[&WEvento de congelación&R] &C¡El evento va a comenzar! hay &Y%d&C personas jugando.", count );
tag_channel( NULL, buf );
}
CHAR_DATA *find_banker( CHAR_DATA *ch )
{
CHAR_DATA *banker = NULL;
for ( banker = ch->in_room->first_person; banker; banker = banker->next_in_room )
if ( IS_NPC( banker ) && xIS_SET( banker->act, ACT_BANKER ) )
break;
return banker;
}
void do_blue( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d,
*d_next;
char buf[MAX_STRING_LENGTH];
if ( IS_NPC( ch ) )
return;
if ( tag_game.status == TAG_OFF ) {
send_to_char( "No hay ningún evento de congelación.\r\n", ch );
return;
}
if ( !argument || argument[0] == '\0' ) {
send_to_char( "Sintaxis: azul <mensaje>\r\n", ch );
return;
}
if ( !IS_IMMORTAL( ch ) && !xIS_SET( ch->act, PLR_PLAYING )
&& !xIS_SET( ch->act, PLR_WAITING ) ) {
send_to_char( "Debes estar en un evento de congelación para usar este canal.\r\n", ch );
return;
}
if ( xIS_SET( ch->act, PLR_RED ) ) {
send_to_char( "Debes estar en el equipo azul para usar este canal.\r\n", ch );
return;
}
sprintf( buf, "&CAZUL&W %s: %s\r\n", ch->name, argument );
for ( d = first_descriptor; d; d = d_next ) {
d_next = d->next;
if ( d->connected != CON_PLAYING || !d->character || IS_NPC( d->character ) )
continue;
if ( !IS_IMMORTAL( d->character ) && !xIS_SET( d->character->act, PLR_BLUE ) )
continue;
send_to_char( buf, d->character );
}
}
/* if a spell casting mob is hating someone... try and summon them */
void summon_if_hating( CHAR_DATA *ch )
{
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
char name[MAX_INPUT_LENGTH];
bool found = FALSE;
if ( ch->position <= POS_SLEEPING )
return;
if ( ch->fighting || ch->fearing
|| !ch->hating || xIS_SET( ch->in_room->room_flags, ROOM_SAFE ) )
return;
/* if player is close enough to hunt... don't summon */
if ( ch->hunting )
return;
one_argument( ch->hating->name, name );
/* make sure the char exists - works even if player quits */
for (victim = first_char;
victim;
victim = victim->next)
{
if ( !str_cmp( ch->hating->name, victim->name ) )
{
found = TRUE;
break;
}
}
if ( !found )
return;
if ( ch->in_room == victim->in_room )
return;
if ( !IS_NPC( victim ) )
sprintf( buf, "summon 0.%s", name );
else
sprintf( buf, "summon %s", name );
do_cast( ch, buf );
return;
}
void check_team_frozen( CHAR_DATA *ch )
{
DESCRIPTOR_DATA *d,
*d_next;
char buf[MAX_STRING_LENGTH];
bool cblue = FALSE,
cred = FALSE;
if ( IS_NPC( ch ) || !ch->pcdata )
return;
if ( xIS_SET( ch->act, PLR_BLUE ) )
cblue = TRUE;
else if ( xIS_SET( ch->act, PLR_RED ) )
cred = TRUE;
else
return;
for ( d = first_descriptor; d; d = d_next ) {
d_next = d->next;
if ( d->connected != CON_PLAYING || !d->character || IS_NPC( d->character ) )
continue;
if ( !xIS_SET( d->character->act, PLR_PLAYING ) )
continue;
if ( cblue && !xIS_SET( d->character->act, PLR_BLUE ) )
continue;
if ( cred && !xIS_SET( d->character->act, PLR_RED ) )
continue;
if ( !xIS_SET( d->character->act, PLR_FROZEN ) ) /* At least one person on the
* team isn't * frozen */
return;
}
/*
* If we made it this far then everyone on the team has been frozen
*/
snprintf( buf, sizeof( buf ), "&R[&WEvento de congelación&R] &WEl equipo %s &Wha ganado!!!",
cblue ? "&RROJO" : "&CAZUL" );
tag_channel( NULL, buf );
end_tag( );
}
/*
* New score command by Haus
*/
void do_score( CHAR_DATA * ch, const char *argument )
{
AFFECT_DATA *paf;
int iLang, x;
if( IS_NPC( ch ) )
{
do_oldscore( ch, argument );
return;
}
ch_printf( ch, "\r\n&zScore for %s.\r\n", ch->pcdata->title );
if( get_trust( ch ) != ch->top_level )
ch_printf( ch, "You are trusted at level %d.\r\n", get_trust( ch ) );
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
ch_printf( ch, "&r|&zRace &r:&W %-3d&z year old %-10.10s Log In&r:&W %-25.24s&r|\r\n",
get_age( ch ), capitalize( get_race( ch ) ), ctime( &( ch->logon ) ) );
ch_printf( ch, "&r|&zHitroll &r: &W%-5d &zDamroll&r:&W %-5d &zSaved &r:&W %-25.24s&r|\r\n",
GET_HITROLL( ch ), GET_DAMROLL( ch ), ch->save_time ? ctime( &( ch->save_time ) ) : "no" );
ch_printf( ch, "&r|&zGlobal AC &r: &W%-5d &zEvasion&r: &W%-5d &zTime &r: &W%-25.24s&r|\r\n",
GET_ARMOR( ch ), GET_EVASION( ch ), ctime( ¤t_time ) );
ch_printf( ch, "&r|&zAlign &r: &W%-5d &zWimpy &r:&W %-3d &r|\r\n",
ch->alignment, ch->wimpy );
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
send_to_char( " &zBarehand Damtypes&r:", ch );
for( x = 0; x < MAX_DAMTYPE; x++ )
if( xIS_SET( ch->damtype, x ) )
ch_printf( ch, " &W%s&r,", d_type[x] );
send_to_char( "\r\n", ch );
ch_printf( ch, " &r&zHit Points&r: &W%d&z of&W %d &z Move&r: &W%d&z of&W %d &z Force&r:&W %d&z of&W %d&z\r\n",
ch->hit, ch->max_hit, ch->move, ch->max_move, ch->mana, ch->max_mana );
ch_printf( ch, " &zStr&r: &W%2d &zDex&r:&W %2d &zCon&r: &W%2d &zAgi&r:&W %2d &z Int&r:&W %2d &zWis&r:&W %2d&z Cha&r: &w%2d&z\r\n",
get_curr_str( ch ), get_curr_dex( ch ), get_curr_con( ch ), get_curr_agi( ch ), get_curr_int( ch ), get_curr_wis( ch ),
get_curr_cha( ch ) );
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
{
int ability;
for( ability = 0; ability < MAX_ABILITY; ability++ )
{
if( ch->skill_level[ability] < 1 )
continue;
ch_printf( ch, " &W%-15s &zLevel&r: &W%-3d &zMax&r: &W%-3d &zExp&r: &W%-10ld &zNext&r: &W%-10ld&z\r\n",
ability_name[ability], ch->skill_level[ability], max_level( ch, ability ), ch->experience[ability],
exp_level( ch->skill_level[ability] + 1 ) );
if( ability == COMBAT_ABILITY )
{
for( x = 0; x < MAX_DISCIPLINE; x++ )
if( ch->known_disciplines[x] != NULL )
ch_printf( ch, " - %s%s&g\r\n",
is_discipline_set( ch, ch->known_disciplines[x] ) ? "&z" : "&W",
ch->known_disciplines[x]->name );
}
}
}
send_to_char( "&r----------------------------------------------------------------------------\r\n", ch );
send_to_char( "&r|&zDamage &zType &r| &zPenetrate &r| &zResist &r| &zPotency &r|\r\n", ch );
send_to_char( "&r----------------------------------------------------------------------------\r\n", ch );
for( x = 0; x < MAX_DAMTYPE; x++ )
ch_printf( ch, "&r|%-19.19s&r: &W%3d &r| &W%3d &r| &W%3d &r|\r\n",
d_type_score[x], ch->penetration[x], ch->resistance[x], ch->damtype_potency[x] );
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
ch_printf( ch, "&zCREDITS&r:&W %-10d &zBANK&r: &W%-10d &zPkills&r: &W%-5.5d &zMkills&r:&W %-5.5d\r\n",
ch->gold, ch->pcdata->bank, ch->pcdata->pkills, ch->pcdata->mkills );
ch_printf( ch, "&zWeight&r: &W%5.5d &r(&zmax&W %7.7d&r)&z Items&r: &W%5.5d &r(&zmax&W %5.5d&r)\r\n",
ch->carry_weight, can_carry_w( ch ), ch->carry_number, can_carry_n( ch ) );
ch_printf( ch, "&zPager&r: &r(&W%c&r)&W %3d &z AutoExit&r(&W%c&r) &z AutoLoot&r(&W%c&r)&z Autosac&r(&W%c&r)\r\n",
IS_SET( ch->pcdata->flags, PCFLAG_PAGERON ) ? 'X' : ' ',
ch->pcdata->pagerlen, IS_SET( ch->act, PLR_AUTOEXIT ) ? 'X' : ' ',
IS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ', IS_SET( ch->act, PLR_AUTOSAC ) ? 'X' : ' ' );
send_to_char( "\r\n&zLanguages&r: ", ch );
for( iLang = 0; lang_array[iLang] != LANG_UNKNOWN; iLang++ )
if( knows_language( ch, lang_array[iLang], ch ) || ( IS_NPC( ch ) && ch->speaks == 0 ) )
{
if( lang_array[iLang] & ch->speaking || ( IS_NPC( ch ) && !ch->speaking ) )
set_char_color( AT_RED, ch );
send_to_char( lang_names[iLang], ch );
send_to_char( " ", ch );
set_char_color( AT_SCORE, ch );
}
send_to_char( "\r\n", ch );
ch_printf( ch, "&zWANTED ON&r: &W%s\r\n", flag_string( ch->pcdata->wanted_flags, planet_flags ) );
if( ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0' )
ch_printf( ch, "&zYou are bestowed with the command&r(&zs&r):&W %s.\r\n", ch->pcdata->bestowments );
if( ch->pcdata->clan )
{
send_to_char( "&r----------------------------------------------------------------------------\r\n", ch );
ch_printf( ch, "&zORGANIZATION&r:&W %-35s &zPkills&r/&zDeaths&r: &W%3.3d&r/&W%3.3d",
ch->pcdata->clan->name, ch->pcdata->clan->pkills, ch->pcdata->clan->pdeaths );
send_to_char( "\r\n", ch );
}
if( IS_IMMORTAL( ch ) )
{
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
ch_printf( ch, "IMMORTAL DATA: Wizinvis [%s] Wizlevel (%d)\r\n",
IS_SET( ch->act, PLR_WIZINVIS ) ? "X" : " ", ch->pcdata->wizinvis );
ch_printf( ch, "Bamfin: %s\r\n", ( ch->pcdata->bamfin[0] != '\0' )
? ch->pcdata->bamfin : "%s appears in a swirling mist.", ch->name );
ch_printf( ch, "Bamfout: %s\r\n", ( ch->pcdata->bamfout[0] != '\0' )
? ch->pcdata->bamfout : "%s leaves in a swirling mist.", ch->name );
/*
* Area Loaded info - Scryn 8/11
*/
if( ch->pcdata->area )
{
ch_printf( ch, "Vnums: Room (%-5.5d - %-5.5d) Object (%-5.5d - %-5.5d) Mob (%-5.5d - %-5.5d)\r\n",
ch->pcdata->area->low_r_vnum, ch->pcdata->area->hi_r_vnum,
ch->pcdata->area->low_o_vnum, ch->pcdata->area->hi_o_vnum,
ch->pcdata->area->low_m_vnum, ch->pcdata->area->hi_m_vnum );
ch_printf( ch, "Area Loaded [%s]\r\n", ( IS_SET( ch->pcdata->area->status, AREA_LOADED ) ) ? "yes" : "no" );
}
}
if( ch->first_affect )
{
int i;
const char *skname;
i = 0;
send_to_char( "&r----------------------------------------------------------------------------&z\r\n", ch );
send_to_char( "&zAFFECT DATA&r:\r\n", ch );
for( paf = ch->first_affect; paf; paf = paf->next )
{
skname = paf->from;
if( paf->modifier == 0 )
ch_printf( ch, "&r[&W%-63.64s&r;&W%5d &zrds&r]", skname, (int)paf->duration );
else if( paf->modifier > 999 )
ch_printf( ch, "&r[&W%-54.55s&r; &W%7.7s&r;&W%5d &zrds&r]",
skname, tiny_affect_loc_name( paf->location ), (int)paf->duration );
else
ch_printf( ch, "&r[&W%-51.52s&r;&W%+-3.3d %7.7s&r;%5d &zrds&r]",
skname, paf->modifier, tiny_affect_loc_name( paf->location ), (int)paf->duration );
if( i == 0 )
i = 1;
if( ( ++i % 1 ) == 0 )
send_to_char( "\r\n", ch );
}
}
send_to_char( "\r\n&w", ch );
return;
}
bool spec_guard( CHAR_DATA *ch )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *v_next;
CHAR_DATA *ech;
char *crime;
int max_evil;
if ( !IS_AWAKE(ch) || ch->fighting )
return FALSE;
max_evil = 300;
ech = NULL;
crime = "";
for ( victim = ch->in_room->first_person; victim; victim = v_next )
{
v_next = victim->next_in_room;
if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_KILLER) )
{ crime = "KILLER"; break; }
if ( !IS_NPC(victim) && xIS_SET(victim->act, PLR_THIEF) )
{ crime = "THIEF"; break; }
if ( victim->fighting
&& who_fighting( victim ) != ch
&& victim->alignment < max_evil )
{
max_evil = victim->alignment;
ech = victim;
}
}
if ( victim && xIS_SET( ch->in_room->room_flags, ROOM_SAFE ) )
{
sprintf( buf, "%s is a %s! As well as a COWARD!",
victim->name, crime );
do_yell( ch, buf );
return TRUE;
}
if ( victim )
{
sprintf( buf, "%s is a %s! PROTECT THE INNOCENT!! BANZAI!!",
victim->name, crime );
do_yell( ch, buf );
multi_hit( ch, victim, TYPE_UNDEFINED );
return TRUE;
}
if ( ech )
{
act( AT_YELL, "$n screams 'PROTECT THE INNOCENT!! BANZAI!!",
ch, NULL, NULL, TO_ROOM );
multi_hit( ch, ech, TYPE_UNDEFINED );
return TRUE;
}
return FALSE;
}
/*
* Quixadhal - I rewrote this from scratch. It now returns the number of
* characters in the SOURCE string that should be skipped, it always fills
* the DESTINATION string with a valid translation (even if that is itself,
* or an empty string), and the default for ANSI is FALSE, since mobs and
* logfiles shouldn't need colour.
*
* NOTE: dstlen is the length of your pre-allocated buffer that you passed
* in. It must be at least 3 bytes, but should be long enough to hold the
* longest translation sequence (probably around 16-32).
*
* NOTE: vislen is the "visible" length of the translation token. This is
* used by color_strlen to properly figure the visual length of a string.
* If you need the number of bytes (such as for output buffering), use the
* normal strlen function.
*/
int colorcode( const char *src, char *dst, DESCRIPTOR_DATA * d, int dstlen, int *vislen )
{
CHAR_DATA *ch = NULL;
bool ansi = FALSE;
const char *sympos = NULL;
/*
* No descriptor, assume ANSI conversion can't be done.
*/
if( !d )
ansi = FALSE;
/*
* But, if we have one, check for a PC and set accordingly. If no PC, assume ANSI can be done. For color logins.
*/
else
{
ch = d->original ? d->original : d->character;
if( ch )
ansi = ( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_ANSI ) );
else
ansi = TRUE;
}
if( !dst )
return 0; /* HEY, I said at least 3 BYTES! */
dst[0] = '\0'; /* Initialize the the default NOTHING */
/*
* Move along, nothing to see here
*/
if( !src || !*src )
return 0;
switch ( *src )
{
case '&': /* NORMAL, Foreground colour */
switch ( src[1] )
{
case '&': /* Escaped self, return one of us */
dst[0] = src[0];
dst[1] = '\0';
if( vislen )
*vislen = 1;
return 2;
case 'Z': /* Random Ansi Foreground */
if( ansi )
mudstrlcpy( dst, random_ansi( 1 ), dstlen );
break;
case '[': /* Symbolic color name */
if( ( sympos = strchr( src + 2, ']' ) ) )
{
register int subcnt = 0;
unsigned int sublen = 0;
sublen = sympos - src - 2;
for( subcnt = 0; subcnt < MAX_COLORS; subcnt++ )
{
if( !strncmp( src + 2, pc_displays[subcnt], sublen ) )
{
if( strlen( pc_displays[subcnt] ) == sublen )
{
/*
* These can only be used with a logged in char
*/
if( ansi && ch )
mudstrlcpy( dst, color_str( subcnt, ch ), dstlen );
if( vislen )
*vislen = 0;
return sublen + 3;
}
}
}
} /* found matching ] */
/*
* Unknown symbolic name, return just the sequence
*/
dst[0] = src[0];
dst[1] = src[1];
dst[2] = '\0';
if( vislen )
*vislen = 2;
return 2;
case 'i': /* Italic text */
case 'I':
if( ansi )
mudstrlcpy( dst, ANSI_ITALIC, dstlen );
break;
case 'v': /* Reverse colors */
case 'V':
if( ansi )
mudstrlcpy( dst, ANSI_REVERSE, dstlen );
break;
case 'u': /* Underline */
case 'U':
if( ansi )
mudstrlcpy( dst, ANSI_UNDERLINE, dstlen );
break;
case 's': /* Strikeover */
case 'S':
if( ansi )
mudstrlcpy( dst, ANSI_STRIKEOUT, dstlen );
break;
case 'd': /* Player's client default color */
if( ansi )
mudstrlcpy( dst, ANSI_RESET, dstlen );
break;
case 'D': /* Reset to custom color for whatever is being displayed */
if( ansi )
{
/*
* Yes, this reset here is quite necessary to cancel out other things
*/
mudstrlcpy( dst, ANSI_RESET, dstlen );
if( ch && ch->desc )
mudstrlcat( dst, color_str( ch->desc->pagecolor, ch ), dstlen );
}
break;
case 'x': /* Black */
if( ansi )
mudstrlcpy( dst, ANSI_BLACK, dstlen );
break;
case 'O': /* Orange/Brown */
if( ansi )
mudstrlcpy( dst, ANSI_ORANGE, dstlen );
break;
case 'c': /* Cyan */
if( ansi )
mudstrlcpy( dst, ANSI_CYAN, dstlen );
break;
case 'z': /* Dark Grey */
if( ansi )
mudstrlcpy( dst, ANSI_DGREY, dstlen );
break;
case 'g': /* Dark Green */
if( ansi )
mudstrlcpy( dst, ANSI_DGREEN, dstlen );
break;
case 'G': /* Light Green */
if( ansi )
mudstrlcpy( dst, ANSI_GREEN, dstlen );
break;
case 'P': /* Pink/Light Purple */
if( ansi )
mudstrlcpy( dst, ANSI_PINK, dstlen );
break;
case 'r': /* Dark Red */
if( ansi )
mudstrlcpy( dst, ANSI_DRED, dstlen );
break;
case 'b': /* Dark Blue */
if( ansi )
mudstrlcpy( dst, ANSI_DBLUE, dstlen );
break;
case 'w': /* Grey */
if( ansi )
mudstrlcpy( dst, ANSI_GREY, dstlen );
break;
case 'Y': /* Yellow */
if( ansi )
mudstrlcpy( dst, ANSI_YELLOW, dstlen );
break;
case 'C': /* Light Blue */
if( ansi )
mudstrlcpy( dst, ANSI_LBLUE, dstlen );
break;
case 'p': /* Purple */
if( ansi )
mudstrlcpy( dst, ANSI_PURPLE, dstlen );
break;
case 'R': /* Red */
if( ansi )
mudstrlcpy( dst, ANSI_RED, dstlen );
break;
case 'B': /* Blue */
if( ansi )
mudstrlcpy( dst, ANSI_BLUE, dstlen );
break;
case 'W': /* White */
if( ansi )
mudstrlcpy( dst, ANSI_WHITE, dstlen );
break;
default: /* Unknown sequence, return all the chars */
dst[0] = src[0];
dst[1] = src[1];
dst[2] = '\0';
if( vislen )
*vislen = 2;
return 2;
}
break;
case '^': /* BACKGROUND colour */
switch ( src[1] )
{
case '^': /* Escaped self, return one of us */
dst[0] = src[0];
dst[1] = '\0';
if( vislen )
*vislen = 1;
return 2;
case 'Z': /* Random Ansi Background */
if( ansi )
mudstrlcpy( dst, random_ansi( 3 ), dstlen );
break;
case 'x': /* Black */
if( ansi )
mudstrlcpy( dst, BACK_BLACK, dstlen );
break;
case 'r': /* Dark Red */
if( ansi )
mudstrlcpy( dst, BACK_DRED, dstlen );
break;
case 'g': /* Dark Green */
if( ansi )
mudstrlcpy( dst, BACK_DGREEN, dstlen );
break;
case 'O': /* Orange/Brown */
if( ansi )
mudstrlcpy( dst, BACK_ORANGE, dstlen );
break;
case 'b': /* Dark Blue */
if( ansi )
mudstrlcpy( dst, BACK_DBLUE, dstlen );
break;
case 'p': /* Purple */
if( ansi )
mudstrlcpy( dst, BACK_PURPLE, dstlen );
break;
case 'c': /* Cyan */
if( ansi )
mudstrlcpy( dst, BACK_CYAN, dstlen );
break;
case 'w': /* Grey */
if( ansi )
mudstrlcpy( dst, BACK_GREY, dstlen );
break;
case 'z': /* Dark Grey */
if( ansi )
mudstrlcpy( dst, BACK_DGREY, dstlen );
break;
case 'R': /* Red */
if( ansi )
mudstrlcpy( dst, BACK_RED, dstlen );
break;
case 'G': /* Green */
if( ansi )
mudstrlcpy( dst, BACK_GREEN, dstlen );
break;
case 'Y': /* Yellow */
if( ansi )
mudstrlcpy( dst, BACK_YELLOW, dstlen );
break;
case 'B': /* Blue */
if( ansi )
mudstrlcpy( dst, BACK_BLUE, dstlen );
break;
case 'P': /* Pink */
if( ansi )
mudstrlcpy( dst, BACK_PINK, dstlen );
break;
case 'C': /* Light Blue */
if( ansi )
mudstrlcpy( dst, BACK_LBLUE, dstlen );
break;
case 'W': /* White */
if( ansi )
mudstrlcpy( dst, BACK_WHITE, dstlen );
break;
default: /* Unknown sequence, return all the chars */
dst[0] = src[0];
dst[1] = src[1];
dst[2] = '\0';
if( vislen )
*vislen = 2;
return 2;
}
break;
case '}': /* BLINK Foreground colour */
switch ( src[1] )
{
case '}': /* Escaped self, return one of us */
dst[0] = src[0];
dst[1] = '\0';
if( vislen )
*vislen = 1;
return 2;
case 'Z': /* Random Ansi Blink */
if( ansi )
mudstrlcpy( dst, random_ansi( 2 ), dstlen );
break;
case 'x': /* Black */
if( ansi )
mudstrlcpy( dst, BLINK_BLACK, dstlen );
break;
case 'O': /* Orange/Brown */
if( ansi )
mudstrlcpy( dst, BLINK_ORANGE, dstlen );
break;
case 'c': /* Cyan */
if( ansi )
mudstrlcpy( dst, BLINK_CYAN, dstlen );
break;
case 'z': /* Dark Grey */
if( ansi )
mudstrlcpy( dst, BLINK_DGREY, dstlen );
break;
case 'g': /* Dark Green */
if( ansi )
mudstrlcpy( dst, BLINK_DGREEN, dstlen );
break;
case 'G': /* Light Green */
if( ansi )
mudstrlcpy( dst, BLINK_GREEN, dstlen );
break;
case 'P': /* Pink/Light Purple */
if( ansi )
mudstrlcpy( dst, BLINK_PINK, dstlen );
break;
case 'r': /* Dark Red */
if( ansi )
mudstrlcpy( dst, BLINK_DRED, dstlen );
break;
case 'b': /* Dark Blue */
if( ansi )
mudstrlcpy( dst, BLINK_DBLUE, dstlen );
break;
case 'w': /* Grey */
if( ansi )
mudstrlcpy( dst, BLINK_GREY, dstlen );
break;
case 'Y': /* Yellow */
if( ansi )
mudstrlcpy( dst, BLINK_YELLOW, dstlen );
break;
case 'C': /* Light Blue */
if( ansi )
mudstrlcpy( dst, BLINK_LBLUE, dstlen );
break;
case 'p': /* Purple */
if( ansi )
mudstrlcpy( dst, BLINK_PURPLE, dstlen );
break;
case 'R': /* Red */
if( ansi )
mudstrlcpy( dst, BLINK_RED, dstlen );
break;
case 'B': /* Blue */
if( ansi )
mudstrlcpy( dst, BLINK_BLUE, dstlen );
break;
case 'W': /* White */
if( ansi )
mudstrlcpy( dst, BLINK_WHITE, dstlen );
break;
default: /* Unknown sequence, return all the chars */
dst[0] = src[0];
dst[1] = src[1];
dst[2] = '\0';
if( vislen )
*vislen = 2;
return 2;
}
break;
default: /* Just a normal character */
dst[0] = *src;
dst[1] = '\0';
if( vislen )
*vislen = 1;
return 1;
}
if( vislen )
*vislen = 0;
return 2;
}
/*
* The main entry point for executing commands.
* Can be recursively called from 'at', 'order', 'force'.
*/
void interpret( CHAR_DATA * ch, char *argument )
{
char command[MAX_INPUT_LENGTH];
char logline[MAX_INPUT_LENGTH];
char logname[MAX_INPUT_LENGTH];
char log_buf[MAX_STRING_LENGTH];
char *origarg = argument;
char *buf;
TIMER *timer = NULL;
CMDTYPE *cmd = NULL;
int trust;
int loglvl;
bool found;
struct timeval time_used;
long tmptime;
if( !ch )
{
bug( "%s: null ch!", __FUNCTION__ );
return;
}
if( !ch->in_room )
{
bug( "%s: null in_room!", __FUNCTION__ );
return;
}
found = FALSE;
if( ch->substate == SUB_REPEATCMD )
{
DO_FUN *fun;
if( ( fun = ch->last_cmd ) == NULL )
{
ch->substate = SUB_NONE;
bug( "%s: SUB_REPEATCMD with NULL last_cmd", __FUNCTION__ );
return;
}
else
{
int x;
/*
* yes... we lose out on the hashing speediness here...
* but the only REPEATCMDS are wizcommands (currently)
*/
for( x = 0; x < 126; x++ )
{
for( cmd = command_hash[x]; cmd; cmd = cmd->next )
if( cmd->do_fun == fun )
{
found = TRUE;
break;
}
if( found )
break;
}
if( !found )
{
cmd = NULL;
bug( "%s: SUB_REPEATCMD: last_cmd invalid", __FUNCTION__ );
return;
}
snprintf( logline, MAX_INPUT_LENGTH, "(%s) %s", cmd->name, argument );
}
}
if( !cmd )
{
/*
* Changed the order of these ifchecks to prevent crashing.
*/
if( !argument || !strcmp( argument, "" ) )
{
bug( "%s: null argument!", __FUNCTION__ );
return;
}
/*
* Strip leading spaces.
*/
while( isspace( *argument ) )
argument++;
if( argument[0] == '\0' )
return;
/*
* xREMOVE_BIT( ch->affected_by, AFF_HIDE );
*/
/*
* Implement freeze command.
*/
if( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_FREEZE ) )
{
send_to_char( "You're totally frozen!\r\n", ch );
return;
}
/*
* Grab the command word.
* Special parsing so ' can be a command,
* also no spaces needed after punctuation.
*/
mudstrlcpy( logline, argument, MAX_INPUT_LENGTH );
if( !isalpha( argument[0] ) && !isdigit( argument[0] ) )
{
command[0] = argument[0];
command[1] = '\0';
argument++;
while( isspace( *argument ) )
argument++;
}
else
argument = one_argument( argument, command );
/*
* Look for command in command table.
* Check for council powers and/or bestowments
*/
trust = get_trust( ch );
for( cmd = command_hash[LOWER( command[0] ) % 126]; cmd; cmd = cmd->next )
if( !str_prefix( command, cmd->name )
&& ( cmd->level <= trust
|| ( !IS_NPC( ch ) && ch->pcdata->council
&& is_name( cmd->name, ch->pcdata->council->powers )
&& cmd->level <= ( trust + MAX_CPD ) )
|| ( !IS_NPC( ch ) && ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0'
&& is_name( cmd->name, ch->pcdata->bestowments ) && cmd->level <= ( trust + sysdata.bestow_dif ) ) ) )
{
found = TRUE;
break;
}
/*
* Turn off afk bit when any command performed.
*/
if( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_AFK ) && ( str_cmp( command, "AFK" ) ) )
{
xREMOVE_BIT( ch->act, PLR_AFK );
act( AT_GREY, "$n is no longer afk.", ch, NULL, NULL, TO_CANSEE );
}
}
/*
* Log and snoop.
*/
snprintf( lastplayercmd, ( MAX_INPUT_LENGTH * 2 ), "%s used %s", ch->name, logline );
if( found && cmd->log == LOG_NEVER )
mudstrlcpy( logline, "XXXXXXXX XXXXXXXX XXXXXXXX", MAX_INPUT_LENGTH );
loglvl = found ? cmd->log : LOG_NORMAL;
/*
* Write input line to watch files if applicable
*/
if( !IS_NPC( ch ) && ch->desc && valid_watch( logline ) )
{
if( found && IS_SET( cmd->flags, CMD_WATCH ) )
write_watch_files( ch, cmd, logline );
else if( IS_SET( ch->pcdata->flags, PCFLAG_WATCH ) )
write_watch_files( ch, NULL, logline );
}
if( ( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_LOG ) )
|| fLogAll || loglvl == LOG_BUILD || loglvl == LOG_HIGH || loglvl == LOG_ALWAYS )
{
/*
* Added by Narn to show who is switched into a mob that executes
* a logged command. Check for descriptor in case force is used.
*/
if( ch->desc && ch->desc->original )
snprintf( log_buf, MAX_STRING_LENGTH, "Log %s (%s): %s", ch->name, ch->desc->original->name, logline );
else
snprintf( log_buf, MAX_STRING_LENGTH, "Log %s: %s", ch->name, logline );
/*
* Make it so a 'log all' will send most output to the log
* file only, and not spam the log channel to death -Thoric
*/
if( fLogAll && loglvl == LOG_NORMAL && ( IS_NPC( ch ) || !xIS_SET( ch->act, PLR_LOG ) ) )
loglvl = LOG_ALL;
log_string_plus( log_buf, loglvl, get_trust( ch ) );
}
if( ch->desc && ch->desc->snoop_by )
{
snprintf( logname, MAX_INPUT_LENGTH, "%s", ch->name );
write_to_buffer( ch->desc->snoop_by, logname, 0 );
write_to_buffer( ch->desc->snoop_by, "% ", 2 );
write_to_buffer( ch->desc->snoop_by, logline, 0 );
write_to_buffer( ch->desc->snoop_by, "\r\n", 2 );
}
/*
* check for a timer delayed command (search, dig, detrap, etc)
*/
if( ( timer = get_timerptr( ch, TIMER_DO_FUN ) ) != NULL )
{
int tempsub;
tempsub = ch->substate;
ch->substate = SUB_TIMER_DO_ABORT;
( timer->do_fun ) ( ch, "" );
if( char_died( ch ) )
return;
if( ch->substate != SUB_TIMER_CANT_ABORT )
{
ch->substate = tempsub;
extract_timer( ch, timer );
}
else
{
ch->substate = tempsub;
return;
}
}
/*
* Look for command in skill and socials table.
*/
if( !found )
{
if( !check_skill( ch, command, argument ) && !check_ability( ch, command, argument ) // Racial Abilities Support - Kayle 7-8-07
&& !rprog_command_trigger( ch, origarg )
&& !mprog_command_trigger( ch, origarg )
&& !oprog_command_trigger( ch, origarg )
&& !check_social( ch, command, argument ) && !news_cmd_hook( ch, command, argument )
#ifdef IMC
&& !imc_command_hook( ch, command, argument )
#endif
)
{
EXIT_DATA *pexit;
/*
* check for an auto-matic exit command
*/
if( ( pexit = find_door( ch, command, TRUE ) ) != NULL && IS_SET( pexit->exit_info, EX_xAUTO ) )
{
if( IS_SET( pexit->exit_info, EX_CLOSED )
&& ( !IS_AFFECTED( ch, AFF_PASS_DOOR ) || IS_SET( pexit->exit_info, EX_NOPASSDOOR ) ) )
{
if( !IS_SET( pexit->exit_info, EX_SECRET ) )
act( AT_PLAIN, "The $d is closed.", ch, NULL, pexit->keyword, TO_CHAR );
else
send_to_char( "You cannot do that here.\r\n", ch );
return;
}
if( check_pos( ch, POS_STANDING ) )
move_char( ch, pexit, 0 );
return;
}
send_to_char( "Huh?\r\n", ch );
}
return;
}
/*
* Character not in position for command?
*/
if( !check_pos( ch, cmd->position ) )
return;
/*
* Berserk check for flee.. maybe add drunk to this?.. but too much
* hardcoding is annoying.. -- Altrag
* This wasn't catching wimpy --- Blod
* if ( !str_cmp(cmd->name, "flee") &&
* IS_AFFECTED(ch, AFF_BERSERK) )
* {
* send_to_char( "You aren't thinking very clearly..\r\n", ch);
* return;
* }
*/
/*
* So we can check commands for things like Posses and Polymorph
* * But still keep the online editing ability. -- Shaddai
* * Send back the message to print out, so we have the option
* * this function might be usefull elsewhere. Also using the
* * send_to_char_color so we can colorize the strings if need be. --Shaddai
*/
buf = check_cmd_flags( ch, cmd );
if( buf[0] != '\0' )
{
send_to_char_color( buf, ch );
return;
}
/*
* Nuisance stuff -- Shaddai
*/
if( !IS_NPC( ch ) && ch->pcdata->nuisance && ch->pcdata->nuisance->flags > 9
&& number_percent( ) < ( ( ch->pcdata->nuisance->flags - 9 ) * 10 * ch->pcdata->nuisance->power ) )
{
send_to_char( "You can't seem to do that just now.\r\n", ch );
return;
}
/*
* Dispatch the command.
*/
ch->prev_cmd = ch->last_cmd; /* haus, for automapping */
ch->last_cmd = cmd->do_fun;
start_timer( &time_used );
( *cmd->do_fun ) ( ch, argument );
end_timer( &time_used );
/*
* Update the record of how many times this command has been used (haus)
*/
update_userec( &time_used, &cmd->userec );
tmptime = UMIN( time_used.tv_sec, 19 ) * 1000000 + time_used.tv_usec;
/*
* laggy command notice: command took longer than 1.5 seconds
*/
if( tmptime > 1500000 )
{
log_printf_plus( LOG_NORMAL, get_trust( ch ), "[*****] LAG: %s: %s %s (R:%d S:%ld.%06ld)", ch->name,
cmd->name, ( cmd->log == LOG_NEVER ? "XXX" : argument ),
ch->in_room ? ch->in_room->vnum : 0, time_used.tv_sec, time_used.tv_usec );
cmd->lag_count++; /* count the lag flags */
}
tail_chain( );
}
/* Display the map to the player */
void show_map( CHAR_DATA * ch, char *text )
{
char buf[MAX_STRING_LENGTH * 2];
int x, y, pos;
char *p;
bool alldesc = FALSE; /* Has desc been fully displayed? */
if ( !text )
alldesc = TRUE;
pos = 0;
p = text;
buf[0] = '\0';
/*
* Show exits
*/
if ( xIS_SET( ch->act, PLR_AUTOEXIT ) )
snprintf( buf, MAX_STRING_LENGTH * 2, "%s%s", color_str( AT_EXITS, ch ), get_exits( ch ) );
else
mudstrlcpy( buf, "", MAX_STRING_LENGTH * 2 );
/*
* Top of map frame
*/
mudstrlcat( buf, "&z+-----------+&w ", MAX_STRING_LENGTH * 2 );
if ( !alldesc )
{
pos = get_line( p, 63 );
if ( pos > 0 )
{
mudstrlcat( buf, color_str( AT_RMDESC, ch ), MAX_STRING_LENGTH * 2 );
strncat( buf, p, pos );
p += pos;
}
else
{
mudstrlcat( buf, color_str( AT_RMDESC, ch ), MAX_STRING_LENGTH * 2 );
mudstrlcat( buf, p, MAX_STRING_LENGTH * 2 );
alldesc = TRUE;
}
}
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH * 2 );
/*
* Write out the main map area with text
*/
for ( y = 0; y <= MAPY; ++y )
{
mudstrlcat( buf, "&z|&D", MAX_STRING_LENGTH * 2 );
for ( x = 0; x <= MAPX; ++x )
{
switch ( dmap[x][y].tegn )
{
case '-':
case '|':
case '\\':
case '/':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&O%c&d", dmap[x][y].tegn );
break;
case '@': // Character is standing here
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&R%c&d", dmap[x][y].tegn );
break;
case 'O': // Indoors
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&w%c&d", dmap[x][y].tegn );
break;
case '=':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&B%c&d", dmap[x][y].tegn );
break;
case '~':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&C%c&d", dmap[x][y].tegn );
break;
case '+':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&Y%c&d", dmap[x][y].tegn );
break;
case '*':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&g%c&d", dmap[x][y].tegn );
break;
case 'X':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&R%c&d", dmap[x][y].tegn );
break;
case ':':
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "&Y%c&d", dmap[x][y].tegn );
break;
default: // Empty space
snprintf( buf + strlen( buf ), ( MAX_STRING_LENGTH * 2 ) - strlen( buf ), "%c", dmap[x][y].tegn );
break;
}
}
mudstrlcat( buf, "&z|&D ", MAX_STRING_LENGTH * 2 );
/*
* Add the text, if necessary
*/
if ( !alldesc )
{
pos = get_line( p, 63 );
char col[10], c[2];
strcpy( c, whatColor( text, p ) );
if ( c[0] == '\0' )
mudstrlcpy( col, color_str( AT_RMDESC, ch ), 10 );
else
snprintf( col, 10, "%s", c );
if ( pos > 0 )
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
strncat( buf, p, pos );
p += pos;
}
else
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
mudstrlcat( buf, p, MAX_STRING_LENGTH * 2 );
alldesc = TRUE;
}
}
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH * 2 );
}
/*
* Finish off map area
*/
mudstrlcat( buf, "&z+-----------+&D ", MAX_STRING_LENGTH * 2 );
if ( !alldesc )
{
char col[10], c[2];
pos = get_line( p, 63 );
strcpy( c, whatColor( text, p ) );
if ( c[0] == '\0' )
mudstrlcpy( col, color_str( AT_RMDESC, ch ), 10 );
else
snprintf( col, 10, "%s", c );
if ( pos > 0 )
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
strncat( buf, p, pos );
p += pos;
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH * 2 );
}
else
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
mudstrlcat( buf, p, MAX_STRING_LENGTH * 2 );
alldesc = TRUE;
}
}
/*
* Deal with any leftover text
*/
if ( !alldesc )
{
char col[10], c[2];
do
{
/*
* Note the number - no map to detract from width
*/
pos = get_line( p, 78 );
strcpy( c, whatColor( text, p ) );
if ( c[0] == '\0' )
mudstrlcpy( col, color_str( AT_RMDESC, ch ), 10 );
else
snprintf( col, 10, "%s", c );
if ( pos > 0 )
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
strncat( buf, p, pos );
p += pos;
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH * 2 );
}
else
{
mudstrlcat( buf, col, MAX_STRING_LENGTH * 2 );
mudstrlcat( buf, p, MAX_STRING_LENGTH * 2 );
alldesc = TRUE;
}
}
while ( !alldesc );
}
mudstrlcat( buf, "&D\r\n", MAX_STRING_LENGTH * 2 );
send_to_char( buf, ch );
}
/*
* Reset one room.
*/
void reset_room( ROOM_INDEX_DATA * room )
{
RESET_DATA *pReset, *tReset, *gReset;
OBJ_DATA *nestmap[MAX_NEST];
CHAR_DATA *mob;
OBJ_DATA *obj, *lastobj, *to_obj;
ROOM_INDEX_DATA *pRoomIndex = NULL;
MOB_INDEX_DATA *pMobIndex = NULL;
OBJ_INDEX_DATA *pObjIndex = NULL, *pObjToIndex;
EXIT_DATA *pexit;
const char *filename = room->area->filename;
int level = 0, n, num = 0, lastnest, onreset = 0;
mob = NULL;
obj = NULL;
lastobj = NULL;
if ( !room->first_reset )
return;
level = 0;
for ( pReset = room->first_reset; pReset; pReset = pReset->next )
{
++onreset;
switch ( pReset->command )
{
default:
bug( "%s: %s: bad command %c.", __FUNCTION__, filename, pReset->command );
break;
case 'M':
if ( !( pMobIndex = get_mob_index( pReset->arg1 ) ) )
{
bug( "%s: %s: 'M': bad mob vnum %d.", __FUNCTION__, filename, pReset->arg1 );
continue;
}
if ( !( pRoomIndex = get_room_index( pReset->arg3 ) ) )
{
bug( "%s: %s: 'M': bad room vnum %d.", __FUNCTION__, filename, pReset->arg3 );
continue;
}
if ( !pReset->sreset )
{
mob = NULL;
break;
}
mob = create_mobile( pMobIndex );
{
ROOM_INDEX_DATA *pRoomPrev = get_room_index( pReset->arg3 - 1 );
if ( pRoomPrev && xIS_SET( pRoomPrev->room_flags, ROOM_PET_SHOP ) )
xSET_BIT( mob->act, ACT_PET );
}
if ( room_is_dark( pRoomIndex ) )
xSET_BIT( mob->affected_by, AFF_INFRARED );
mob->resetvnum = pRoomIndex->vnum;
mob->resetnum = onreset;
pReset->sreset = false;
char_to_room( mob, pRoomIndex );
level = URANGE( 0, mob->level - 2, LEVEL_AVATAR );
if ( pReset->first_reset )
{
for ( tReset = pReset->first_reset; tReset; tReset = tReset->next_reset )
{
++onreset;
switch ( tReset->command )
{
case 'G':
case 'E':
if ( !( pObjIndex = get_obj_index( tReset->arg1 ) ) )
{
bug( "%s: %s: 'E' or 'G': bad obj vnum %d.", __FUNCTION__, filename, tReset->arg1 );
continue;
}
if ( !mob )
{
lastobj = NULL;
break;
}
if ( mob->pIndexData->pShop )
{
int olevel = generate_itemlevel( room->area, pObjIndex );
obj = create_object( pObjIndex, olevel );
xSET_BIT( obj->extra_flags, ITEM_INVENTORY );
}
else
obj = create_object( pObjIndex, number_fuzzy( level ) );
obj->level = URANGE( 0, obj->level, LEVEL_AVATAR );
obj = obj_to_char( obj, mob );
if ( tReset->command == 'E' )
{
if ( obj->carried_by != mob )
{
bug( "'E' reset: can't give object %d to mob %d.", obj->pIndexData->vnum, mob->pIndexData->vnum );
break;
}
equip_char( mob, obj, tReset->arg3 );
}
for ( n = 0; n < MAX_NEST; n++ )
nestmap[n] = NULL;
nestmap[0] = obj;
lastobj = nestmap[0];
lastnest = 0;
if ( tReset->first_reset )
{
for ( gReset = tReset->first_reset; gReset; gReset = gReset->next_reset )
{
int iNest;
to_obj = lastobj;
++onreset;
switch ( gReset->command )
{
case 'H':
if ( !lastobj )
break;
xSET_BIT( lastobj->extra_flags, ITEM_HIDDEN );
break;
case 'P':
if ( !( pObjIndex = get_obj_index( gReset->arg1 ) ) )
{
bug( "%s: %s: 'P': bad obj vnum %d.", __FUNCTION__, filename, gReset->arg1 );
continue;
}
iNest = gReset->extra;
if ( !( pObjToIndex = get_obj_index( gReset->arg3 ) ) )
{
bug( "%s: %s: 'P': bad objto vnum %d.", __FUNCTION__, filename, gReset->arg3 );
continue;
}
if ( iNest >= MAX_NEST )
{
bug( "%s: %s: 'P': Exceeded nesting limit of %d", __FUNCTION__, filename, MAX_NEST );
obj = NULL;
break;
}
if ( count_obj_list( pObjIndex, to_obj->first_content ) > 0 )
{
obj = NULL;
break;
}
if ( iNest < lastnest )
to_obj = nestmap[iNest];
else if ( iNest == lastnest )
to_obj = nestmap[lastnest];
else
to_obj = lastobj;
obj = create_object( pObjIndex, number_fuzzy( UMAX( generate_itemlevel( room->area, pObjIndex ), to_obj->level ) ) );
if ( num > 1 )
pObjIndex->count += ( num - 1 );
obj->count = gReset->arg2;
obj->level = UMIN( obj->level, LEVEL_AVATAR );
obj->count = gReset->arg2;
obj_to_obj( obj, to_obj );
if ( iNest > lastnest )
{
nestmap[iNest] = to_obj;
lastnest = iNest;
}
lastobj = obj;
/*
* Hackish fix for nested puts
*/
if ( gReset->arg3 == OBJ_VNUM_MONEY_ONE )
gReset->arg3 = to_obj->pIndexData->vnum;
break;
}
}
}
break;
}
}
}
break;
case 'O':
if ( !( pObjIndex = get_obj_index( pReset->arg1 ) ) )
{
bug( "%s: %s: 'O': bad obj vnum %d.", __FUNCTION__, filename, pReset->arg1 );
continue;
}
if ( !( pRoomIndex = get_room_index( pReset->arg3 ) ) )
{
bug( "%s: %s: 'O': bad room vnum %d.", __FUNCTION__, filename, pReset->arg3 );
continue;
}
if ( count_obj_list( pObjIndex, pRoomIndex->first_content ) < 1 )
{
obj = create_object( pObjIndex, number_fuzzy( generate_itemlevel( room->area, pObjIndex ) ) );
if ( num > 1 )
pObjIndex->count += ( num - 1 );
obj->count = pReset->arg2;
obj->level = UMIN( obj->level, LEVEL_AVATAR );
obj->cost = 0;
obj_to_room( obj, pRoomIndex );
}
else
{
int x;
if ( !( obj = get_obj_room( pObjIndex, pRoomIndex ) ) )
{
obj = NULL;
lastobj = NULL;
break;
}
obj->extra_flags = pObjIndex->extra_flags;
for ( x = 0; x < 6; ++x )
obj->value[x] = pObjIndex->value[x];
}
for ( n = 0; n < MAX_NEST; n++ )
nestmap[n] = NULL;
nestmap[0] = obj;
lastobj = nestmap[0];
lastnest = 0;
if ( pReset->first_reset )
{
for ( tReset = pReset->first_reset; tReset; tReset = tReset->next_reset )
{
int iNest;
to_obj = lastobj;
++onreset;
switch ( tReset->command )
{
case 'H':
if ( !lastobj )
break;
xSET_BIT( lastobj->extra_flags, ITEM_HIDDEN );
break;
case 'T':
if ( !IS_SET( tReset->extra, TRAP_OBJ ) )
{
bug( "%s: Room reset found on object reset list", __FUNCTION__ );
break;
}
else
{
/*
* We need to preserve obj for future 'T' checks
*/
OBJ_DATA *pobj;
if ( tReset->arg3 > 0 )
{
if ( !( pObjToIndex = get_obj_index( tReset->arg3 ) ) )
{
bug( "%s: %s: 'T': bad objto vnum %d.", __FUNCTION__, filename, tReset->arg3 );
continue;
}
if ( room->area->nplayer > 0 || !( to_obj = get_obj_type( pObjToIndex ) ) ||
( to_obj->carried_by && !IS_NPC( to_obj->carried_by ) ) || is_trapped( to_obj ) )
break;
}
else
{
if ( !lastobj || !obj )
break;
to_obj = obj;
}
pobj = make_trap( tReset->arg2, tReset->arg1, number_fuzzy( to_obj->level ), tReset->extra );
obj_to_obj( pobj, to_obj );
}
break;
case 'P':
if ( !( pObjIndex = get_obj_index( tReset->arg1 ) ) )
{
bug( "%s: %s: 'P': bad obj vnum %d.", __FUNCTION__, filename, tReset->arg1 );
continue;
}
iNest = tReset->extra;
if ( !( pObjToIndex = get_obj_index( tReset->arg3 ) ) )
{
bug( "%s: %s: 'P': bad objto vnum %d.", __FUNCTION__, filename, tReset->arg3 );
continue;
}
if ( iNest >= MAX_NEST )
{
bug( "%s: %s: 'P': Exceeded nesting limit of %d. Room %d.", __FUNCTION__, filename, MAX_NEST, room->vnum );
obj = NULL;
break;
}
if ( count_obj_list( pObjIndex, to_obj->first_content ) > 0 )
{
obj = NULL;
break;
}
if ( iNest < lastnest )
to_obj = nestmap[iNest];
else if ( iNest == lastnest )
to_obj = nestmap[lastnest];
else
to_obj = lastobj;
obj = create_object( pObjIndex, number_fuzzy( UMAX( generate_itemlevel( room->area, pObjIndex ), to_obj->level ) ) );
if ( num > 1 )
pObjIndex->count += ( num - 1 );
obj->count = tReset->arg2;
obj->level = UMIN( obj->level, LEVEL_AVATAR );
obj->count = tReset->arg2;
obj_to_obj( obj, to_obj );
if ( iNest > lastnest )
{
nestmap[iNest] = to_obj;
lastnest = iNest;
}
lastobj = obj;
/*
* Hackish fix for nested puts
*/
if ( tReset->arg3 == OBJ_VNUM_MONEY_ONE )
tReset->arg3 = to_obj->pIndexData->vnum;
break;
}
}
}
break;
case 'T':
if ( IS_SET( pReset->extra, TRAP_OBJ ) )
{
bug( "%s: Object trap found in room %d reset list", __FUNCTION__, room->vnum );
break;
}
else
{
if ( !( pRoomIndex = get_room_index( pReset->arg3 ) ) )
{
bug( "%s: %s: 'T': bad room %d.", __FUNCTION__, filename, pReset->arg3 );
continue;
}
if ( room->area->nplayer > 0 || count_obj_list( get_obj_index( OBJ_VNUM_TRAP ), pRoomIndex->first_content ) > 0 )
break;
to_obj = make_trap( pReset->arg1, pReset->arg1, 10, pReset->extra );
obj_to_room( to_obj, pRoomIndex );
}
break;
case 'D':
if ( !( pRoomIndex = get_room_index( pReset->arg1 ) ) )
{
bug( "%s: %s: 'D': bad room vnum %d.", __FUNCTION__, filename, pReset->arg1 );
continue;
}
if ( !( pexit = get_exit( pRoomIndex, pReset->arg2 ) ) )
break;
switch ( pReset->arg3 )
{
case 0:
REMOVE_BIT( pexit->exit_info, EX_CLOSED );
REMOVE_BIT( pexit->exit_info, EX_LOCKED );
break;
case 1:
SET_BIT( pexit->exit_info, EX_CLOSED );
REMOVE_BIT( pexit->exit_info, EX_LOCKED );
if ( IS_SET( pexit->exit_info, EX_xSEARCHABLE ) )
SET_BIT( pexit->exit_info, EX_SECRET );
break;
case 2:
SET_BIT( pexit->exit_info, EX_CLOSED );
SET_BIT( pexit->exit_info, EX_LOCKED );
if ( IS_SET( pexit->exit_info, EX_xSEARCHABLE ) )
SET_BIT( pexit->exit_info, EX_SECRET );
break;
}
break;
case 'R':
if ( !( pRoomIndex = get_room_index( pReset->arg1 ) ) )
{
bug( "%s: %s: 'R': bad room vnum %d.", __FUNCTION__, filename, pReset->arg1 );
continue;
}
randomize_exits( pRoomIndex, pReset->arg2 - 1 );
break;
}
}
}
/* Used to update where people are in the quest */
void update_chquest( CHAR_DATA *ch, QUEST_DATA * quest, int nchapter )
{
CHQUEST_DATA *chquest;
CHAP_DATA *chapter;
int mins,
seconds;
bool skipped = FALSE;
if ( !quest || !ch || !ch->pcdata )
return;
for ( chquest = ch->pcdata->first_quest; chquest; chquest = chquest->next ) {
if ( chquest->questnum == quest->number )
break;
}
/*
* If no quest need to start it for them
*/
if ( !chquest ) {
if ( nchapter != 1 ) {
send_to_char( "&GYou have to do the quest in order. Check your &WJOURNAL&D.\r\n", ch );
return;
}
chapter = get_chap_from_quest( 1, quest );
if ( !chapter ) {
send_to_char
( "For now this is all you can do on this quest. Try back another time.\r\n", ch );
return;
}
CREATE( chquest, CHQUEST_DATA, 1 );
chquest->questnum = quest->number;
chquest->questlimit = quest->timelimit;
chquest->progress = 1;
chquest->times = 1;
chquest->kamount = 0;
chquest->chaplimit = chapter->timelimit;
link_chquest( ch, chquest );
send_to_char( "\r\n&G¡has iniciado un nuevo quest!&D\r\n", ch );
if ( xIS_SET( ch->act, PLR_BATTLE ) )
send_to_char( "!!SOUND(sound/quest.wav)\r\n", ch );
send_to_char( ">eclea &WDIARIO &Gpara ver más información sobre el quest.&D\r\n", ch );
if ( chquest->chaplimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar este capítulo.&D\r\n",
show_timeleft( chquest->chaplimit ) );
if ( chquest->questlimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar el quest.&D\r\n",
show_timeleft( chquest->questlimit ) );
return;
}
if ( !quest->skipchapters ) {
if ( nchapter != ( chquest->progress + 1 ) ) {
send_to_char( ">ienes que hacer el quest en orden. Mira tu &WDIARIO&D.\r\n", ch );
return;
}
/*
* Ok so we have the chquest so lets increase it
*/
++chquest->progress;
}
else {
chquest->progress = nchapter; /* If we skip need to set it to
* the new chapter */
skipped = TRUE;
}
/*
* Ok redoing it?
*/
if ( chquest->progress == 1 ) {
int times = chquest->times;
chapter = get_chap_from_quest( 1, quest );
if ( !chapter ) {
send_to_char
( "Por ahora no puedes hacer más. Inténtalo más tarde.\r\n", ch );
return;
}
chquest->questlimit = quest->timelimit;
chquest->chaplimit = chapter->timelimit;
chquest->kamount = 0;
send_to_char( "\r\n&G¡Has iniciado un nuevo quest!&D\r\n", ch );
send_to_char( ">eclea &WDIARIO ¶ más información sobre el quest.&D\r\n", ch );
if ( chquest->chaplimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar el capítulo.&D\r\n",
show_timeleft( chquest->chaplimit ) );
if ( chquest->questlimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar el capítulo.&D\r\n",
show_timeleft( chquest->questlimit ) );
ch_printf( ch, "&Bhas intentado este quest %d %s&D\r\n", times,
times >= 5 ? "veces!" : times == 1 ? "veces." : "vez." );
chquest->times++;
return;
}
/*
* Was this the end of the quest?
*/
if ( chquest->progress == ( quest->chapters + 1 ) ) {
send_to_char( "&G¡has finalizado tu quest!&D\r\n", ch );
if ( quest->glory == 1 ) {
ch->quest_curr += ( quest->level + get_curr_con( ch ) );
ch->quest_accum += ( quest->level + get_curr_con( ch ) );
ch_printf( ch, "&YGanas %d puntos de gloria.&D\r\n",
quest->level + get_curr_con( ch ) );
gain_exp( ch, 0 + ch->level * 100 + quest->level * 2000 );
}
else {
gain_exp( ch, 0 + ch->level * 100 + quest->level * 2000 );
}
if ( ch->pcdata->clan ) {
CLAN_DATA *clan;
clan = ch->pcdata->clan;
ch->pcdata->clanpoints += 1;
clan->totalpoints += 1;
ch_printf( ch,
"&G%s ha ganado 1 punto por tu quest, ¡ahora tiene %d puntos de clan!\r\n",
clan->name, clan->totalpoints );
save_clan( clan );
}
if ( chquest->questlimit )
ch_printf( ch, "&RTenías %s cuando completaste tu quest.&D\r\n",
show_timeleft( chquest->questlimit ) );
chquest->chaplimit = 0;
chquest->questlimit = 0;
chquest->kamount = 0;
return;
}
chapter = get_chap_from_quest( chquest->progress, quest );
if ( !chapter ) {
send_to_char( "Por ahora no puedes hacer más en este quest. Inténtalo más tarde.\r\n",
ch );
return;
}
chquest->chaplimit = chapter->timelimit;
chquest->kamount = 0;
/*
* If they aren't skipping show this message
*/
// if( !quest->skipchapters && skipped )
send_to_char( "&Continúas el quest, teclea &WDIARIO ¶ ver qué sigue.&D\r\n", ch );
if ( chquest->chaplimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar el capítulo.&D\r\n",
show_timeleft( chquest->chaplimit ) );
if ( chquest->questlimit > 0 )
ch_printf( ch, "&RTienes %s para finalizar el quest.&D\r\n",
show_timeleft( chquest->questlimit ) );
}
void do_affected( CHAR_DATA * ch, const char *argument )
{
char arg[MAX_INPUT_LENGTH];
AFFECT_DATA *paf;
SKILLTYPE *skill;
int x;
if( IS_NPC( ch ) )
return;
argument = one_argument( argument, arg );
if( !str_cmp( arg, "by" ) )
{
set_char_color( AT_BLUE, ch );
send_to_char( "\r\nImbued with:\r\n", ch );
set_char_color( AT_SCORE, ch );
ch_printf( ch, "%s\r\n", affect_bit_name( &ch->affected_by ) );
if( ch->top_level >= 20 )
{
send_to_char( "\r\n", ch );
if( ch->resistant > 0 )
{
set_char_color( AT_BLUE, ch );
send_to_char( "Resistances: ", ch );
set_char_color( AT_SCORE, ch );
ch_printf( ch, "%s\r\n", flag_string( ch->resistant, ris_flags ) );
}
if( ch->immune > 0 )
{
set_char_color( AT_BLUE, ch );
send_to_char( "Immunities: ", ch );
set_char_color( AT_SCORE, ch );
ch_printf( ch, "%s\r\n", flag_string( ch->immune, ris_flags ) );
}
if( ch->susceptible > 0 )
{
set_char_color( AT_BLUE, ch );
send_to_char( "Suscepts: ", ch );
set_char_color( AT_SCORE, ch );
ch_printf( ch, "%s\r\n", flag_string( ch->susceptible, ris_flags ) );
}
}
return;
}
if( !ch->first_affect && xIS_EMPTY( ch->affected_by ) )
{
set_char_color( AT_SCORE, ch );
send_to_char( "\r\nNo cantrip or skill affects you.\r\n", ch );
}
else
{
send_to_char( "\r\n", ch );
for( paf = ch->first_affect; paf; paf = paf->next )
if( ( skill = get_skilltype( paf->type ) ) != NULL )
{
set_char_color( AT_BLUE, ch );
send_to_char( "Affected: ", ch );
set_char_color( AT_SCORE, ch );
if( ch->top_level >= 20 )
{
if( paf->duration < 25 )
set_char_color( AT_WHITE, ch );
if( paf->duration < 6 )
set_char_color( AT_WHITE + AT_BLINK, ch );
ch_printf( ch, "(%5d) ", paf->duration );
}
ch_printf( ch, "%-18s\r\n", skill->name );
}
send_to_char( "\r\nAFF_Flags:", ch );
for( x = 0; x < MAX_AFF; x++ )
if( xIS_SET( ch->affected_by, x ) )
ch_printf( ch, " %s,", a_flags[x] );
send_to_char( "\r\n", ch );
}
return;
}
void do_tag( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
DESCRIPTOR_DATA *d;
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
if ( IS_NPC( ch ) || ch->fighting != NULL ) {
send_to_char( "Deja de pelear primero.\r\n", ch );
return;
}
if ( tag_game.status == TAG_OFF ) {
send_to_char( "No hay evento de congelación activo.\r\n", ch );
return;
}
argument = one_argument( argument, arg );
if ( !xIS_SET( ch->act, PLR_PLAYING ) ) {
send_to_char( "No estás jugando ningún evento de congelación.\r\n", ch );
return;
}
if ( !arg || arg[0] == '\0' ) {
send_to_char( "¡congelar a quién?\r\n", ch );
return;
}
if ( !( victim = get_char_room( ch, arg ) ) ) {
send_to_char( "No está aquí.\r\n", ch );
return;
}
if ( victim == ch ) {
send_to_char( "Claro, claaaro...\r\n", ch );
return;
}
if ( IS_NPC( victim ) ) {
send_to_char( "Eso es un bicho.\r\n", ch );
return;
}
if ( !xIS_SET( victim->act, PLR_PLAYING ) ) {
send_to_char( "No está jugando el evento de congelación.\r\n", ch );
return;
}
if ( xIS_SET( ch->act, PLR_FROZEN ) ) {
send_to_char( "¡No puedes tocar, necesitas descongelarte!\r\n", ch );
return;
}
act( AT_GREEN, "$n te toca.", ch, NULL, victim, TO_VICT );
act( AT_GREEN, "$n toca a $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_GREEN, "Tocas a $N.", ch, NULL, victim, TO_CHAR );
if ( ( xIS_SET( ch->act, PLR_RED ) && xIS_SET( victim->act, PLR_RED ) )
|| ( xIS_SET( ch->act, PLR_BLUE ) && xIS_SET( victim->act, PLR_BLUE ) ) ) {
if ( xIS_SET( victim->act, PLR_FROZEN ) ) {
xREMOVE_BIT( victim->act, PLR_FROZEN );
act( AT_YELLOW, "¡Te descongelas!", ch, NULL, victim, TO_VICT );
act( AT_YELLOW, "¡$N se descongela!", ch, NULL, victim, TO_ROOM );
act( AT_YELLOW, "¡$N se descongela!", ch, NULL, victim, TO_CHAR );
snprintf( buf, MIL, "[&WEvento&R] %s &Cacaba de &Ydescongelar &Ra %s&C!!!\r\n", ch->name,
victim->name );
arena_chan( buf );
}
else
act( AT_YELLOW, "¡$N se congela!", ch, NULL, victim, TO_CHAR );
}
else {
if ( xIS_SET( victim->act, PLR_FROZEN ) )
act( AT_YELLOW, "¡$N ya está!", ch, NULL, victim, TO_CHAR );
else {
xSET_BIT( victim->act, PLR_FROZEN );
act( AT_YELLOW, "¡Te han congelado!", ch, NULL, victim, TO_VICT );
act( AT_YELLOW, "¡$N se congela!", ch, NULL, victim, TO_NOTVICT );
act( AT_YELLOW, "¡$N ha sido congelado!", ch, NULL, victim, TO_CHAR );
snprintf( buf, MIL, "[&WEvento&R] %s &Cacaba de &Ccongelar &Ra %s&C!!!\r\n", ch->name,
victim->name );
arena_chan( buf );
check_team_frozen( victim );
}
}
}
void do_ftag( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *victim;
ROOM_INDEX_DATA *loc;
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
if ( IS_NPC( ch ) )
return;
argument = one_argument( argument, arg1 );
if ( !arg1 || arg1[0] == '\0' ) {
send_to_char( "sintaxis: congelacion entrar\r\n", ch );
send_to_char( "para comunicarte usa los canales rojo o azul.\r\n", ch );
send_to_char( "para congelar o descongelar a alguien una vez haya empezado el evento usa el comando tocar.\r\n", ch );
if ( IS_IMMORTAL( ch ) ) {
send_to_char( "\r\nSintaxis: congelacion reset\r\n", ch );
send_to_char( " congelacion next\r\n", ch );
send_to_char( " congelacion start\r\n", ch );
send_to_char( " congelacion rojo <player>\r\n", ch );
send_to_char( " congelacion azul <player>\r\n", ch );
}
return;
}
if ( arena_prep || challenge || arena_underway ) {
send_to_char( "Espera a que termine el evento actual de arena.\r\n", ch );
return;
}
if ( !str_cmp( arg1, "entrar" ) ) {
if ( tag_game.status != TAG_ISWAIT ) {
send_to_char( "no hay ningún evento de congelación activo.\r\n", ch );
return;
}
if ( xIS_SET( ch->act, PLR_PLAYING ) || xIS_SET( ch->act, PLR_WAITING ) ) {
send_to_char( "ya estás jugando.\r\n", ch );
return;
}
if ( !( loc = get_room_index( FTAG_WAIT_ROOM ) ) ) {
send_to_char( "Espera a que termine el que ya hay empezado.\r\n", ch );
return;
}
send_to_char( "Entras al evento de congelación.\r\n", ch );
char_from_room( ch );
char_to_room( ch, loc );
tag_game.playing += 1;
do_look( ch, ( char * ) "auto" );
xSET_BIT( ch->act, PLR_WAITING );
xREMOVE_BIT( ch->act, PLR_FROZEN );
xSET_BIT( ch->act, PLR_PKSAFE );
ch->quest_curr += 5;
ch->quest_accum += 5;
ch_printf( ch, "¡Ganas 5 puntos de gloria por participar en el evento!\r\n" );
if ( ( fRed = !fRed ) ) {
xSET_BIT( ch->act, PLR_RED );
xREMOVE_BIT( ch->act, PLR_BLUE );
send_to_char( "&W¡formas parte del equipo &RROJO&W!\r\n", ch );
tag_channel( ch, "&R[&WEvento de congelación&R] &W¡$n forma parte del equipo &RROJO&W!" );
}
else {
xSET_BIT( ch->act, PLR_BLUE );
xREMOVE_BIT( ch->act, PLR_RED );
send_to_char( "&W¡formas parte del equipo &CAZUL&W!\r\n", ch );
tag_channel( ch, "&R[&WEvento de congelación&R] &W¡$n forma parte del equipo &CAZUL&W!" );
}
return;
}
if ( !str_cmp( arg1, "start" ) ) {
if ( GET_MONEY( ch, CURR_SILVER ) < 10 ) {
send_to_char
( "necesitas 10 monedas de plata para comenzar el evento.\r\n", ch );
return;
}
if ( tag_game.status != TAG_OFF ) {
send_to_char( "ya hay un juego en progreso.\r\n", ch );
return;
}
GET_MONEY( ch, CURR_SILVER ) -= 10;
tag_channel( NULL,
"&R[&WEvento&R] &C¡Ha comenzado un evento de congelación! ¡Teclea '&Wcongelacion entrar&C' para unirte!" );
tag_game.status = TAG_ISWAIT;
tag_game.timer = 3;
tag_game.playing = 0;
tag_game.next = -1;
if ( !IS_IMMORTAL( ch ) ) {
GET_MONEY( ch, CURR_SILVER ) -= 10;
return;
}
return;
}
if ( !IS_IMMORTAL( ch ) ) {
do_ftag( ch, ( char * ) "" );
return;
}
if ( !str_cmp( arg1, "next" ) ) {
tag_game.next = atoi( argument );
ch_printf( ch, "El próximo juego comenzará en %d ticks.\r\n", tag_game.next );
return;
}
if ( !str_cmp( arg1, "reset" ) ) {
end_tag( );
send_to_char( "Jugadores reseteados.\r\n", ch );
return;
}
argument = one_argument( argument, arg2 );
if ( arg2[0] == '\0' || ( str_cmp( arg1, "rojo" ) && str_cmp( arg1, "azul" ) ) ) {
send_to_char( "sintaxis: congelacion rojo <player>\r\n", ch );
send_to_char( " Congelacion azul <player>\r\n", ch );
return;
}
if ( tag_game.status == TAG_ISPLAY ) {
send_to_char( "El juego ya ha comenzado.\r\n", ch );
return;
}
if ( !( victim = get_char_world( ch, arg2 ) ) ) {
send_to_char( "No está aquí.\r\n", ch );
return;
}
if ( IS_NPC( victim ) ) {
send_to_char( "No puede jugar.\r\n", ch );
return;
}
if ( !( loc = get_room_index( FTAG_WAIT_ROOM ) ) ) {
send_to_char( "El evento de congelación todavía no ha finalizado.\r\n", ch );
return;
}
send_to_char( "Alguien te une al evento de congelación.\r\n", victim );
char_from_room( victim );
char_to_room( victim, loc );
tag_game.playing += 1;
do_look( victim, ( char * ) "auto" );
xSET_BIT( victim->act, PLR_WAITING );
xREMOVE_BIT( victim->act, PLR_FROZEN );
xSET_BIT( victim->act, PLR_PKSAFE );
if ( !str_cmp( arg1, "rojo" ) ) {
xSET_BIT( victim->act, PLR_RED );
xREMOVE_BIT( victim->act, PLR_BLUE );
act( AT_WHITE, "¡Formas parte del equipo &RROJO&W!", ch, NULL, victim, TO_VICT );
act( AT_WHITE, "¡$N forma parte del equipo &RROJO&W!", ch, NULL, victim, TO_NOTVICT );
act( AT_WHITE, "¡$N forma parte del equipo &RROJO&W!", ch, NULL, victim, TO_CHAR );
}
else if ( !str_cmp( arg1, "blue" ) ) {
xSET_BIT( victim->act, PLR_BLUE );
xREMOVE_BIT( victim->act, PLR_RED );
act( AT_WHITE, "¡Formas parte del equipo &Cazul&W!", ch, NULL, victim, TO_VICT );
act( AT_WHITE, "¡$N forma parte del equipo &CAZUL&W!", ch, NULL, victim, TO_NOTVICT );
act( AT_WHITE, "¡$N forma parte del equipo &CAZUL&W!", ch, NULL, victim, TO_CHAR );
}
}
bool spec_wanderer( CHAR_DATA *ch )
{
OBJ_DATA *trash;
OBJ_DATA *trash_next;
OBJ_DATA *obj2;
ROOM_INDEX_DATA *was_in_room;
EXIT_DATA *pexit = NULL;
CHAR_DATA *vch;
int door;
int chance=50;
bool found = FALSE; /* Valid direction */
bool thrown = FALSE;/* Whether to be thrown or not */
bool noexit = TRUE; /* Assume there is no valid exits */
was_in_room = ch->in_room;
if ( !IS_AWAKE(ch) )
return FALSE;
if((pexit = ch->in_room->first_exit) !=NULL)
noexit=FALSE;
if(chance>number_percent()){
/****
* Look for objects on the ground and pick it up
****/
for ( trash = ch->in_room->first_content; trash; trash = trash_next )
{
trash_next = trash->next_content;
if ( !IS_SET( trash->wear_flags, ITEM_TAKE )
|| IS_OBJ_STAT( trash, ITEM_BURIED ) )
continue;
if ( trash->item_type == ITEM_WEAPON
|| trash->item_type == ITEM_ARMOR
|| trash->item_type == ITEM_LIGHT ) {
separate_obj( trash ); /* So there is no 'sword <6>' gets only one object off ground */
act( AT_ACTION, "$n leans over and gets $p.", ch, trash, NULL, TO_ROOM );
obj_from_room( trash );
trash = obj_to_char( trash, ch );
/*****
* If object is too high a level throw it away.
*****/
if ( ch->level < trash->level )
{
act( AT_ACTION, "$n tries to use $p, but is too inexperienced.",ch, trash, NULL, TO_ROOM );
thrown = TRUE;
}
/*****
* Wear the object if it is not to be thrown. The FALSE is passed
* so that the mob wont remove a piece of armor already there
* if it is not worn it is assumed that they can't use it or
* they already are wearing something.
*****/
if(!thrown)
wear_obj( ch, trash, FALSE, -1 );
/*****
* Look for an object in the inventory that is not being worn
* then throw it away...
*****/
found=FALSE;
if(!thrown)
for ( obj2 = ch->first_carrying; obj2; obj2 = obj2->next_content ){
if (obj2->wear_loc == WEAR_NONE){
do_say(ch,"Hmm, I can't use this.");
trash=obj2;
thrown=TRUE;
}
}
/*****
* Ugly bit of code..
* Checks if the object is to be thrown & there is a valid exit,
* randomly pick a direction to throw it, and check to make sure no other
* spec_wanderer mobs are in that room.
*****/
if(thrown && !noexit)
while(!found && !noexit){
door=number_door();
if((pexit = get_exit(ch->in_room,door) ) != NULL
&& pexit->to_room
&& !IS_SET(pexit->exit_info, EX_CLOSED)
&& !xIS_SET(pexit->to_room->room_flags, ROOM_NODROP)){
if( (vch = pexit->to_room->first_person) !=NULL)
for( vch = pexit->to_room->first_person; vch; vch = vch->next_in_room){
if (!str_cmp(lookup_spec(vch->spec_fun), "spec_wanderer")){
noexit = TRUE;
/*act( AT_CYAN,"$n spec_wanderer inroom $T", ch, NULL,dir_name[pexit->vdir], TO_ROOM);*/
return FALSE;
}
}
found = TRUE;
}
}
if (!noexit && thrown){
/*if (trash->value*/
set_cur_obj( trash );
if( damage_obj( trash ) != rOBJ_SCRAPPED){
separate_obj(trash);
act( AT_ACTION, "$n growls and throws $p $T.", ch, trash, dir_name[pexit->vdir], TO_ROOM );
obj_from_char( trash );
obj_to_room( trash, pexit->to_room );
char_from_room(ch);
char_to_room(ch, pexit->to_room);
act( AT_CYAN,"$p thrown by $n lands in the room.",ch, trash, ch, TO_ROOM);
char_from_room(ch);
char_to_room(ch, was_in_room);
}
else{
do_say(ch,"This thing is junk!");
act( AT_ACTION, "$n growls and breaks $p.",ch, trash, NULL, TO_ROOM);
}
return TRUE;
}
return TRUE;
}
} /* get next obj */
return FALSE; /* No objects :< */
}
return FALSE;
}
/*
* New score command by Haus
*/
void do_score( CHAR_DATA* ch, const char* argument )
{
char buf[MAX_STRING_LENGTH];
AFFECT_DATA *paf;
int iLang;
/*const char *suf;
short day;
day = ch->pcdata->day + 1;
if( day > 4 && day < 20 )
suf = "th";
else if( day % 10 == 1 )
suf = "st";
else if( day % 10 == 2 )
suf = "nd";
else if( day % 10 == 3 )
suf = "rd";
else
suf = "th";
* - Uncomment this if you want Birthdays dispayed on score for players - Kayle 1/22/08
*/
set_pager_color( AT_SCORE, ch );
pager_printf( ch, "\r\nScore for %s%s.\r\n", ch->name, IS_NPC(ch) ? "" : ch->pcdata->title );
if( get_trust( ch ) != ch->level )
pager_printf( ch, "You are trusted at level %d.\r\n", get_trust( ch ) );
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
/*if( time_info.day == ch->pcdata->day && time_info.month == ch->pcdata->month )
send_to_char( "Today is your birthday!\r\n", ch );
else
ch_printf( ch, "Your birthday is: Day of %s, %d%s day in the Month of %s, in the year %d.\r\n",
day_name[ch->pcdata->day % sysdata.daysperweek], day, suf, month_name[ch->pcdata->month], ch->pcdata->year );
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
* - Uncomment this if you want players to see their birthday's on score. - Kayle 1/22/08
*/
pager_printf( ch, "LEVEL: %-3d Race : %-10.10s Played: %ld hours\r\n",
ch->level, capitalize( get_race( ch ) ), ( long int )GET_TIME_PLAYED( ch ) );
pager_printf( ch, "YEARS: %-6d Class: %-11.11s Log In: %s\r",
calculate_age( ch ), capitalize( get_class( ch ) ), ctime( &( ch->logon ) ) );
if( ch->level >= 15 || IS_PKILL( ch ) )
{
pager_printf( ch, "STR : %2.2d(%2.2d) HitRoll: %-4d Saved: %s\r",
get_curr_str( ch ), ch->perm_str, GET_HITROLL( ch ),
ch->save_time ? ctime( &( ch->save_time ) ) : "no save this session\n" );
pager_printf( ch, "INT : %2.2d(%2.2d) DamRoll: %-4d Time: %s\r",
get_curr_int( ch ), ch->perm_int, GET_DAMROLL( ch ), ctime( ¤t_time ) );
}
else
{
pager_printf( ch, "STR : %2.2d(%2.2d) Saved: %s\r",
get_curr_str( ch ), ch->perm_str, ch->save_time ? ctime( &( ch->save_time ) ) : "no\n" );
pager_printf( ch, "INT : %2.2d(%2.2d) Time: %s\r",
get_curr_int( ch ), ch->perm_int, ctime( ¤t_time ) );
}
if( GET_AC( ch ) >= 101 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the rags of a beggar" );
else if( GET_AC( ch ) >= 80 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "improper for adventure" );
else if( GET_AC( ch ) >= 55 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "shabby and threadbare" );
else if( GET_AC( ch ) >= 40 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "of poor quality" );
else if( GET_AC( ch ) >= 20 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "scant protection" );
else if( GET_AC( ch ) >= 10 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "that of a knave" );
else if( GET_AC( ch ) >= 0 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "moderately crafted" );
else if( GET_AC( ch ) >= -10 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "well crafted" );
else if( GET_AC( ch ) >= -20 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the envy of squires" );
else if( GET_AC( ch ) >= -40 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "excellently crafted" );
else if( GET_AC( ch ) >= -60 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the envy of knights" );
else if( GET_AC( ch ) >= -80 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the envy of barons" );
else if( GET_AC( ch ) >= -100 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the envy of dukes" );
else if( GET_AC( ch ) >= -200 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "the envy of emperors" );
else
snprintf( buf, MAX_STRING_LENGTH, "%s", "that of an avatar" );
if( ch->level > 24 )
pager_printf( ch, "WIS : %2.2d(%2.2d) Armor: %4.4d, %s\r\n",
get_curr_wis( ch ), ch->perm_wis, GET_AC( ch ), buf );
else
pager_printf( ch, "WIS : %2.2d(%2.2d) Armor: %s \r\n", get_curr_wis( ch ), ch->perm_wis, buf );
if( ch->alignment > 900 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "devout" );
else if( ch->alignment > 700 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "noble" );
else if( ch->alignment > 350 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "honorable" );
else if( ch->alignment > 100 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "worthy" );
else if( ch->alignment > -100 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "neutral" );
else if( ch->alignment > -350 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "base" );
else if( ch->alignment > -700 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "evil" );
else if( ch->alignment > -900 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "ignoble" );
else
snprintf( buf, MAX_STRING_LENGTH, "%s", "fiendish" );
if( ch->level < 10 )
pager_printf( ch, "DEX : %2.2d(%2.2d) Align: %-20.20s Items: %5.5d (max %5.5d)\r\n",
get_curr_dex( ch ), ch->perm_dex, buf, ch->carry_number, can_carry_n( ch ) );
else
pager_printf( ch, "DEX : %2.2d(%2.2d) Align: %+4.4d, %-14.14s Items: %5.5d (max %5.5d)\r\n",
get_curr_dex( ch ), ch->perm_dex, ch->alignment, buf, ch->carry_number, can_carry_n( ch ) );
switch ( ch->position )
{
case POS_DEAD:
snprintf( buf, MAX_STRING_LENGTH, "%s", "slowly decomposing" );
break;
case POS_MORTAL:
snprintf( buf, MAX_STRING_LENGTH, "%s", "mortally wounded" );
break;
case POS_INCAP:
snprintf( buf, MAX_STRING_LENGTH, "%s", "incapacitated" );
break;
case POS_STUNNED:
snprintf( buf, MAX_STRING_LENGTH, "%s", "stunned" );
break;
case POS_SLEEPING:
snprintf( buf, MAX_STRING_LENGTH, "%s", "sleeping" );
break;
case POS_RESTING:
snprintf( buf, MAX_STRING_LENGTH, "%s", "resting" );
break;
case POS_STANDING:
snprintf( buf, MAX_STRING_LENGTH, "%s", "standing" );
break;
case POS_FIGHTING:
snprintf( buf, MAX_STRING_LENGTH, "%s", "fighting" );
break;
case POS_EVASIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "fighting (evasive)" ); /* Fighting style support -haus */
break;
case POS_DEFENSIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "fighting (defensive)" );
break;
case POS_AGGRESSIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "fighting (aggressive)" );
break;
case POS_BERSERK:
snprintf( buf, MAX_STRING_LENGTH, "%s", "fighting (berserk)" );
break;
case POS_MOUNTED:
snprintf( buf, MAX_STRING_LENGTH, "%s", "mounted" );
break;
case POS_SITTING:
snprintf( buf, MAX_STRING_LENGTH, "%s", "sitting" );
break;
}
pager_printf( ch, "CON : %2.2d(%2.2d) Pos'n: %-21.21s Weight: %5.5d (max %7.7d)\r\n",
get_curr_con( ch ), ch->perm_con, buf, ch->carry_weight, can_carry_w( ch ) );
/*
* Fighting style support -haus
*/
pager_printf( ch, "CHA : %2.2d(%2.2d) Wimpy: %-5d ", get_curr_cha( ch ), ch->perm_cha, ch->wimpy );
switch ( ch->style )
{
case STYLE_EVASIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "evasive" );
break;
case STYLE_DEFENSIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "defensive" );
break;
case STYLE_AGGRESSIVE:
snprintf( buf, MAX_STRING_LENGTH, "%s", "aggressive" );
break;
case STYLE_BERSERK:
snprintf( buf, MAX_STRING_LENGTH, "%s", "berserk" );
break;
default:
snprintf( buf, MAX_STRING_LENGTH, "%s", "standard" );
break;
}
pager_printf( ch, "Style: %-10.10s\r\n", buf );
pager_printf( ch, "LCK : %2.2d(%2.2d) \r\n", get_curr_lck( ch ), ch->perm_lck );
pager_printf( ch, "Glory: %4.4d(%4.4d) \r\n", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
pager_printf( ch, "PRACT: %3.3d Hitpoints: %-5d of %5d Pager: (%c) %3d AutoExit(%c)\r\n",
ch->practice, ch->hit, ch->max_hit,
IS_SET( ch->pcdata->flags, PCFLAG_PAGERON ) ? 'X' : ' ',
ch->pcdata->pagerlen, xIS_SET( ch->act, PLR_AUTOEXIT ) ? 'X' : ' ' );
if( IS_VAMPIRE( ch ) )
pager_printf( ch, "XP : %-9d Blood: %-5d of %5d MKills: %-5.5d AutoLoot(%c)\r\n",
ch->exp, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->pcdata->mkills,
xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
else if( ch->Class == CLASS_WARRIOR )
pager_printf( ch, "XP : %-9d MKills: %-5.5d AutoLoot(%c)\r\n",
ch->exp, ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
else
pager_printf( ch, "XP : %-9d Mana: %-5d of %5d MKills: %-5.5d AutoLoot(%c)\r\n",
ch->exp, ch->mana, ch->max_mana, ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
pager_printf( ch, "GOLD : %-13s Move: %-5d of %5d Mdeaths: %-5.5d AutoSac (%c)\r\n",
num_punct( ch->gold ), ch->move, ch->max_move, ch->pcdata->mdeaths, xIS_SET( ch->act,
PLR_AUTOSAC ) ? 'X' : ' ' );
if( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
send_to_pager( "You are drunk.\r\n", ch );
if( !IS_NPC( ch ) && ch->pcdata->condition[COND_THIRST] == 0 )
send_to_pager( "You are in danger of dehydrating.\r\n", ch );
if( !IS_NPC( ch ) && ch->pcdata->condition[COND_FULL] == 0 )
send_to_pager( "You are starving to death.\r\n", ch );
if( ch->position != POS_SLEEPING )
switch ( ch->mental_state / 10 )
{
default:
send_to_pager( "You're completely messed up!\r\n", ch );
break;
case -10:
send_to_pager( "You're barely conscious.\r\n", ch );
break;
case -9:
send_to_pager( "You can barely keep your eyes open.\r\n", ch );
break;
case -8:
send_to_pager( "You're extremely drowsy.\r\n", ch );
break;
case -7:
send_to_pager( "You feel very unmotivated.\r\n", ch );
break;
case -6:
send_to_pager( "You feel sedated.\r\n", ch );
break;
case -5:
send_to_pager( "You feel sleepy.\r\n", ch );
break;
case -4:
send_to_pager( "You feel tired.\r\n", ch );
break;
case -3:
send_to_pager( "You could use a rest.\r\n", ch );
break;
case -2:
send_to_pager( "You feel a little under the weather.\r\n", ch );
break;
case -1:
send_to_pager( "You feel fine.\r\n", ch );
break;
case 0:
send_to_pager( "You feel great.\r\n", ch );
break;
case 1:
send_to_pager( "You feel energetic.\r\n", ch );
break;
case 2:
send_to_pager( "Your mind is racing.\r\n", ch );
break;
case 3:
send_to_pager( "You can't think straight.\r\n", ch );
break;
case 4:
send_to_pager( "Your mind is going 100 miles an hour.\r\n", ch );
break;
case 5:
send_to_pager( "You're high as a kite.\r\n", ch );
break;
case 6:
send_to_pager( "Your mind and body are slipping apart.\r\n", ch );
break;
case 7:
send_to_pager( "Reality is slipping away.\r\n", ch );
break;
case 8:
send_to_pager( "You have no idea what is real, and what is not.\r\n", ch );
break;
case 9:
send_to_pager( "You feel immortal.\r\n", ch );
break;
case 10:
send_to_pager( "You are a Supreme Entity.\r\n", ch );
break;
}
else if( ch->mental_state > 45 )
send_to_pager( "Your sleep is filled with strange and vivid dreams.\r\n", ch );
else if( ch->mental_state > 25 )
send_to_pager( "Your sleep is uneasy.\r\n", ch );
else if( ch->mental_state < -35 )
send_to_pager( "You are deep in a much needed sleep.\r\n", ch );
else if( ch->mental_state < -25 )
send_to_pager( "You are in deep slumber.\r\n", ch );
send_to_pager( "Languages: ", ch );
for( iLang = 0; lang_array[iLang] != LANG_UNKNOWN; iLang++ )
if( knows_language( ch, lang_array[iLang], ch ) || ( IS_NPC( ch ) && ch->speaks == 0 ) )
{
if( lang_array[iLang] & ch->speaking || ( IS_NPC( ch ) && !ch->speaking ) )
set_pager_color( AT_RED, ch );
send_to_pager( lang_names[iLang], ch );
send_to_pager( " ", ch );
set_pager_color( AT_SCORE, ch );
}
send_to_pager( "\r\n", ch );
if( ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0' )
pager_printf( ch, "You are bestowed with the command(s): %s.\r\n", ch->pcdata->bestowments );
if( ch->morph && ch->morph->morph )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
if( IS_IMMORTAL( ch ) )
pager_printf( ch, "Morphed as (%d) %s with a timer of %d.\r\n",
ch->morph->morph->vnum, ch->morph->morph->short_desc, ch->morph->timer );
else
pager_printf( ch, "You are morphed into a %s.\r\n", ch->morph->morph->short_desc );
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
}
if( CAN_PKILL( ch ) )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
pager_printf( ch, "PKILL DATA: Pkills (%3.3d) Illegal Pkills (%3.3d) Pdeaths (%3.3d)\r\n",
ch->pcdata->pkills, ch->pcdata->illegal_pk, ch->pcdata->pdeaths );
}
if( ch->pcdata->clan && ch->pcdata->clan->clan_type != CLAN_ORDER && ch->pcdata->clan->clan_type != CLAN_GUILD )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
pager_printf( ch, "CLAN STATS: %-14.14s Clan AvPkills : %-5d Clan NonAvpkills : %-5d\r\n",
ch->pcdata->clan->name, ch->pcdata->clan->pkills[6],
( ch->pcdata->clan->pkills[1] + ch->pcdata->clan->pkills[2] +
ch->pcdata->clan->pkills[3] + ch->pcdata->clan->pkills[4] + ch->pcdata->clan->pkills[5] ) );
pager_printf( ch, " Clan AvPdeaths: %-5d Clan NonAvpdeaths: %-5d\r\n",
ch->pcdata->clan->pdeaths[6],
( ch->pcdata->clan->pdeaths[1] + ch->pcdata->clan->pdeaths[2] +
ch->pcdata->clan->pdeaths[3] + ch->pcdata->clan->pdeaths[4] + ch->pcdata->clan->pdeaths[5] ) );
}
if( ch->pcdata->deity )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
if( ch->pcdata->favor > 2250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "loved" );
else if( ch->pcdata->favor > 2000 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "cherished" );
else if( ch->pcdata->favor > 1750 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "honored" );
else if( ch->pcdata->favor > 1500 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "praised" );
else if( ch->pcdata->favor > 1250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "favored" );
else if( ch->pcdata->favor > 1000 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "respected" );
else if( ch->pcdata->favor > 750 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "liked" );
else if( ch->pcdata->favor > 250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "tolerated" );
else if( ch->pcdata->favor > -250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "ignored" );
else if( ch->pcdata->favor > -750 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "shunned" );
else if( ch->pcdata->favor > -1000 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "disliked" );
else if( ch->pcdata->favor > -1250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "dishonored" );
else if( ch->pcdata->favor > -1500 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "disowned" );
else if( ch->pcdata->favor > -1750 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "abandoned" );
else if( ch->pcdata->favor > -2000 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "despised" );
else if( ch->pcdata->favor > -2250 )
snprintf( buf, MAX_STRING_LENGTH, "%s", "hated" );
else
snprintf( buf, MAX_STRING_LENGTH, "%s", "damned" );
pager_printf( ch, "Deity: %-20s Favor: %s\r\n", ch->pcdata->deity->name, buf );
}
if( ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_ORDER )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
pager_printf( ch, "Order: %-20s Order Mkills: %-6d Order MDeaths: %-6d\r\n",
ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths );
}
if( ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_GUILD )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
pager_printf( ch, "Guild: %-20s Guild Mkills: %-6d Guild MDeaths: %-6d\r\n",
ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths );
}
if( IS_IMMORTAL( ch ) )
{
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
pager_printf( ch, "IMMORTAL DATA: Wizinvis [%s] Wizlevel (%d)\r\n",
xIS_SET( ch->act, PLR_WIZINVIS ) ? "X" : " ", ch->pcdata->wizinvis );
pager_printf( ch, "Bamfin: %s %s\r\n", ch->name, ( ch->pcdata->bamfin[0] != '\0' )
? ch->pcdata->bamfin : "appears in a swirling mist." );
pager_printf( ch, "Bamfout: %s %s\r\n", ch->name, ( ch->pcdata->bamfout[0] != '\0' )
? ch->pcdata->bamfout : "leaves in a swirling mist." );
/*
* Area Loaded info - Scryn 8/11
*/
if( ch->pcdata->area )
{
pager_printf( ch, "Vnums: Room (%-5.5d - %-5.5d) Object (%-5.5d - %-5.5d) Mob (%-5.5d - %-5.5d)\r\n",
ch->pcdata->area->low_r_vnum, ch->pcdata->area->hi_r_vnum,
ch->pcdata->area->low_o_vnum, ch->pcdata->area->hi_o_vnum,
ch->pcdata->area->low_m_vnum, ch->pcdata->area->hi_m_vnum );
pager_printf( ch, "Area Loaded [%s]\r\n", ( IS_SET( ch->pcdata->area->status, AREA_LOADED ) ) ? "yes" : "no" );
}
}
if( ch->first_affect )
{
int i;
SKILLTYPE *sktmp;
i = 0;
send_to_pager( "----------------------------------------------------------------------------\r\n", ch );
send_to_pager( "AFFECT DATA: ", ch );
for( paf = ch->first_affect; paf; paf = paf->next )
{
if( ( sktmp = get_skilltype( paf->type ) ) == NULL )
continue;
if( ch->level < 20 )
{
pager_printf( ch, "[%-34.34s] ", sktmp->name );
if( i == 0 )
i = 2;
if( ( ++i % 3 ) == 0 )
send_to_pager( "\r\n", ch );
}
if( ch->level >= 20 )
{
if( paf->modifier == 0 )
pager_printf( ch, "[%-24.24s;%5d rds] ", sktmp->name, paf->duration );
else if( paf->modifier > 999 )
pager_printf( ch, "[%-15.15s; %7.7s;%5d rds] ",
sktmp->name, tiny_affect_loc_name( paf->location ), paf->duration );
else
pager_printf( ch, "[%-11.11s;%+-3.3d %7.7s;%5d rds] ",
sktmp->name, paf->modifier, tiny_affect_loc_name( paf->location ), paf->duration );
if( i == 0 )
i = 1;
if( ( ++i % 2 ) == 0 )
send_to_pager( "\r\n", ch );
}
}
}
send_to_pager( "\r\n", ch );
return;
}
void hunt_victim( CHAR_DATA *ch )
{
CHAR_DATA *tmp;
int dir;
bool found;
if ( !ch || ch->deleted || !ch->hunting )
return;
/*
* Make sure the victim still exists.
*/
found = FALSE;
for ( tmp = char_list; tmp; tmp = tmp->next )
if ( ch->hunting->who == tmp )
{
found = TRUE;
break;
}
if ( !found )
{
do_say( ch, "Damn! My prey is gone!!" );
stop_hunting( ch );
return;
}
if ( ch->in_room == ch->hunting->who->in_room )
{
if ( ch->fighting )
return;
found_prey( ch, ch->hunting->who );
return;
}
/*
* Give a random direction if the mob misses the die roll.
*/
if ( number_percent( ) > 75 ) /* @ 25% */
{
do
{
dir = number_door( );
}
while ( !( ch->in_room->exit[dir] )
|| !( ch->in_room->exit[dir]->to_room ) );
}
else
{
dir = find_path( ch->in_room, ch->hunting->who->in_room,
500 + ch->level * 25 );
if ( dir < 0 )
{
act( "$n says 'Damn! Lost $M!'", ch, NULL, ch->hunting->who,
TO_ROOM );
stop_hunting( ch );
return;
}
}
{
EXIT_DATA *pexit;
pexit = ch->in_room->exit[dir];
if ( IS_SET( pexit->to_room->room_flags, ROOM_NO_MOB )
|| ( xIS_SET( ch->act, ACT_STAY_AREA )
&& pexit->to_room->area != ch->in_room->area ) )
{
stop_hunting( ch );
return;
}
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
{
do_open( ch, dir_name[dir] );
return;
}
}
move_char( ch, dir );
if ( ch->deleted )
{
return;
}
if ( !ch->hunting )
{
if ( !ch->in_room )
{
char buf [ MAX_STRING_LENGTH ];
sprintf( buf, "Hunt_victim: no ch->in_room! Mob #%d, name: %s. Placing mob in limbo.",
ch->pIndexData->vnum, ch->name );
bug( buf, 0 );
char_to_room( ch, get_room_index( ROOM_VNUM_LIMBO ) );
return;
}
do_say( ch, "Damn! Lost my prey!" );
return;
}
if ( ch->in_room == ch->hunting->who->in_room )
found_prey( ch, ch->hunting->who );
return;
}
void do_mpmset( CHAR_DATA * ch, const char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char arg3[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
char log_buf[MAX_STRING_LENGTH];
char outbuf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
int value, v2;
int minattr, maxattr;
/*
* A desc means switched.. too many loopholes if we allow that..
*/
if ( !IS_NPC( ch ) || IS_AFFECTED( ch, AFF_CHARM ) || ch->desc )
{
send_to_char( "Huh?\r\n", ch );
return;
}
smash_tilde( argument );
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
mudstrlcpy( arg3, argument, MAX_INPUT_LENGTH );
if ( !*arg1 )
{
progbug( "MpMset: no args", ch );
return;
}
if ( ( victim = get_char_room( ch, arg1 ) ) == NULL )
{
progbug( "MpMset: no victim", ch );
return;
}
if ( IS_IMMORTAL( victim ) )
{
send_to_char( "You can't do that!\r\n", ch );
return;
}
if ( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
{
progbug( "MpMset: victim is proto", ch );
return;
}
if ( IS_NPC( victim ) )
{
minattr = 1;
maxattr = 25;
}
else
{
minattr = 3;
maxattr = 18;
}
value = is_number( arg3 ) ? atoi( arg3 ) : -1;
if ( atoi( arg3 ) < -1 && value == -1 )
value = atoi( arg3 );
if ( !str_cmp( arg2, "str" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid str", ch );
return;
}
victim->perm_str = value;
return;
}
if ( !str_cmp( arg2, "int" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid int", ch );
return;
}
victim->perm_int = value;
return;
}
if ( !str_cmp( arg2, "wis" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid wis", ch );
return;
}
victim->perm_wis = value;
return;
}
if ( !str_cmp( arg2, "dex" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid dex", ch );
return;
}
victim->perm_dex = value;
return;
}
if ( !str_cmp( arg2, "con" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid con", ch );
return;
}
victim->perm_con = value;
return;
}
if ( !str_cmp( arg2, "cha" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid cha", ch );
return;
}
victim->perm_cha = value;
return;
}
if ( !str_cmp( arg2, "lck" ) )
{
if ( value < minattr || value > maxattr )
{
progbug( "MpMset: Invalid lck", ch );
return;
}
victim->perm_lck = value;
return;
}
if ( !str_cmp( arg2, "sav1" ) )
{
if ( value < -30 || value > 30 )
{
progbug( "MpMset: Invalid sav1", ch );
return;
}
victim->saving_poison_death = value;
return;
}
if ( !str_cmp( arg2, "sav2" ) )
{
if ( value < -30 || value > 30 )
{
progbug( "MpMset: Invalid sav2", ch );
return;
}
victim->saving_wand = value;
return;
}
if ( !str_cmp( arg2, "sav3" ) )
{
if ( value < -30 || value > 30 )
{
progbug( "MpMset: Invalid sav3", ch );
return;
}
victim->saving_para_petri = value;
return;
}
if ( !str_cmp( arg2, "sav4" ) )
{
if ( value < -30 || value > 30 )
{
progbug( "MpMset: Invalid sav4", ch );
return;
}
victim->saving_breath = value;
return;
}
if ( !str_cmp( arg2, "sav5" ) )
{
if ( value < -30 || value > 30 )
{
progbug( "MpMset: Invalid sav5", ch );
return;
}
victim->saving_spell_staff = value;
return;
}
if ( !str_cmp( arg2, "sex" ) )
{
if ( value < 0 || value > 2 )
{
progbug( "MpMset: Invalid sex", ch );
return;
}
victim->sex = value;
return;
}
if ( !str_cmp( arg2, "class" ) )
{
if ( IS_NPC( victim ) ) /* Broken by Haus... fixed by Thoric */
{
if ( value >= MAX_NPC_CLASS || value < 0 )
{
progbug( "MpMset: Invalid npc class", ch );
return;
}
victim->Class = value;
return;
}
progbug( "MpMset: can't set pc class", ch );
}
if ( !str_cmp( arg2, "race" ) )
{
value = get_npc_race( arg3 );
if ( value < 0 )
value = atoi( arg3 );
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc race", ch );
return;
}
if ( value < 0 || value >= MAX_NPC_RACE )
{
progbug( "MpMset: Invalid npc race", ch );
return;
}
victim->race = value;
return;
}
if ( !str_cmp( arg2, "armor" ) )
{
if ( value < -300 || value > 300 )
{
send_to_char( "AC range is -300 to 300.\r\n", ch );
return;
}
victim->armor = value;
return;
}
if ( !str_cmp( arg2, "level" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc level", ch );
return;
}
if ( value < 0 || value > LEVEL_AVATAR + 5 )
{
progbug( "MpMset: Invalid npc level", ch );
return;
}
victim->level = value;
return;
}
if ( !str_cmp( arg2, "numattacks" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc numattacks", ch );
return;
}
if ( value < 0 || value > 20 )
{
progbug( "MpMset: Invalid npc numattacks", ch );
return;
}
victim->numattacks = value;
return;
}
if ( !str_cmp( arg2, "gold" ) )
{
victim->gold = value;
return;
}
if ( !str_cmp( arg2, "hitroll" ) )
{
victim->hitroll = URANGE( 0, value, 85 );
return;
}
if ( !str_cmp( arg2, "damroll" ) )
{
victim->damroll = URANGE( 0, value, 65 );
return;
}
if ( !str_cmp( arg2, "hp" ) )
{
if ( value < 1 || value > 32700 )
{
progbug( "MpMset: Invalid hp", ch );
return;
}
victim->max_hit = value;
return;
}
if ( !str_cmp( arg2, "mana" ) )
{
if ( value < 0 || value > 30000 )
{
progbug( "MpMset: Invalid mana", ch );
return;
}
victim->max_mana = value;
return;
}
if ( !str_cmp( arg2, "move" ) )
{
if ( value < 0 || value > 30000 )
{
progbug( "MpMset: Invalid move", ch );
return;
}
victim->max_move = value;
return;
}
if ( !str_cmp( arg2, "practice" ) )
{
if ( value < 0 || value > 100 )
{
progbug( "MpMset: Invalid practice", ch );
return;
}
victim->practice = value;
return;
}
if ( !str_cmp( arg2, "align" ) )
{
if ( value < -1000 || value > 1000 )
{
progbug( "MpMset: Invalid align", ch );
return;
}
victim->alignment = value;
return;
}
/* non-functional for now -- Blod
if ( !str_cmp( arg2, "quest" ) )
{
if ( IS_NPC(victim) )
{
progbug("MpMset: can't set npc quest", ch);
return;
}
if ( value < 0 || value > 500 )
{
progbug("MpMset: Invalid pc quest", ch);
return;
}
victim->pcdata->quest = value;
return;
}
*/
if ( !str_cmp( arg2, "questplus" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc qp", ch );
return;
}
if ( value < 0 || value > 5000 )
{
progbug( "MpMset: Invalid pc qp", ch );
return;
}
snprintf( log_buf, MAX_STRING_LENGTH, "%s raising glory of %s by %d ...", ch->name, victim->name, value );
log_string( log_buf );
victim->pcdata->quest_curr += value;
victim->pcdata->quest_accum += value;
return;
}
if ( !str_cmp( arg2, "favor" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc favor", ch );
return;
}
if ( value < -2500 || value > 2500 )
{
progbug( "MpMset: Invalid pc favor", ch );
return;
}
victim->pcdata->favor = value;
return;
}
if ( !str_cmp( arg2, "mentalstate" ) )
{
if ( value < -100 || value > 100 )
{
progbug( "MpMset: Invalid mentalstate", ch );
return;
}
victim->mental_state = value;
return;
}
if ( !str_cmp( arg2, "emotion" ) )
{
if ( value < -100 || value > 100 )
{
progbug( "MpMset: Invalid emotion", ch );
return;
}
victim->emotional_state = value;
return;
}
if ( !str_cmp( arg2, "thirst" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc thirst", ch );
return;
}
if ( value < 0 || value > 100 )
{
progbug( "MpMset: Invalid pc thirst", ch );
return;
}
victim->pcdata->condition[COND_THIRST] = value;
return;
}
if ( !str_cmp( arg2, "drunk" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc drunk", ch );
return;
}
if ( value < 0 || value > 100 )
{
progbug( "MpMset: Invalid pc drunk", ch );
return;
}
victim->pcdata->condition[COND_DRUNK] = value;
return;
}
if ( !str_cmp( arg2, "full" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc full", ch );
return;
}
if ( value < 0 || value > 100 )
{
progbug( "MpMset: Invalid pc full", ch );
return;
}
victim->pcdata->condition[COND_FULL] = value;
return;
}
if ( !str_cmp( arg2, "blood" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc blood", ch );
return;
}
if ( value < 0 || value > MAX_LEVEL + 10 )
{
progbug( "MpMset: Invalid pc blood", ch );
return;
}
victim->pcdata->condition[COND_BLOODTHIRST] = value;
return;
}
if ( !str_cmp( arg2, "name" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc name", ch );
return;
}
STRFREE( victim->name );
victim->name = STRALLOC( arg3 );
return;
}
if ( !str_cmp( arg2, "deity" ) )
{
DEITY_DATA *deity;
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc deity", ch );
return;
}
if ( arg3[0] == '\0' )
{
STRFREE( victim->pcdata->deity_name );
victim->pcdata->deity_name = STRALLOC( "" );
victim->pcdata->deity = NULL;
return;
}
deity = get_deity( arg3 );
if ( !deity )
{
progbug( "MpMset: Invalid deity", ch );
return;
}
STRFREE( victim->pcdata->deity_name );
victim->pcdata->deity_name = QUICKLINK( deity->name );
victim->pcdata->deity = deity;
return;
}
if ( !str_cmp( arg2, "short" ) )
{
STRFREE( victim->short_descr );
victim->short_descr = STRALLOC( arg3 );
return;
}
if ( !str_cmp( arg2, "long" ) )
{
STRFREE( victim->long_descr );
mudstrlcpy( buf, arg3, MAX_STRING_LENGTH );
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH );
victim->long_descr = STRALLOC( buf );
return;
}
if ( !str_cmp( arg2, "title" ) )
{
if ( IS_NPC( victim ) )
{
progbug( "MpMset: can't set npc title", ch );
return;
}
set_title( victim, arg3 );
return;
}
if ( !str_cmp( arg2, "spec" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc spec", ch );
return;
}
if ( !str_cmp( arg3, "none" ) )
{
victim->spec_fun = NULL;
return;
}
if ( ( victim->spec_fun = spec_lookup( arg3 ) ) == 0 )
{
progbug( "MpMset: Invalid spec", ch );
return;
}
return;
}
if ( !str_cmp( arg2, "flags" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc flags", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no flags", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_actflag( arg3 );
if ( value < 0 || value >= MAX_BITS )
progbug( "MpMset: Invalid flag", ch );
else
{
if ( value == ACT_PROTOTYPE )
progbug( "MpMset: can't set prototype flag", ch );
else if ( value == ACT_IS_NPC )
progbug( "MpMset: can't remove npc flag", ch );
else
xTOGGLE_BIT( victim->act, value );
}
}
return;
}
if ( !str_cmp( arg2, "affected" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't modify pc affected", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no affected", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_aflag( arg3 );
if ( value < 0 || value >= MAX_BITS )
progbug( "MpMset: Invalid affected", ch );
else
xTOGGLE_BIT( victim->affected_by, value );
}
return;
}
/*
* save some more finger-leather for setting RIS stuff
* Why there's can_modify checks here AND in the called function, Ill
* never know, so I removed them.. -- Alty
*/
if ( !str_cmp( arg2, "r" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s resistant %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "i" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s immune %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "s" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s susceptible %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "ri" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s resistant %s", arg1, arg3 );
do_mpmset( ch, outbuf );
snprintf( outbuf, MAX_STRING_LENGTH, "%s immune %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "rs" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s resistant %s", arg1, arg3 );
do_mpmset( ch, outbuf );
snprintf( outbuf, MAX_STRING_LENGTH, "%s susceptible %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "is" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s immune %s", arg1, arg3 );
do_mpmset( ch, outbuf );
snprintf( outbuf, MAX_STRING_LENGTH, "%s susceptible %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "ris" ) )
{
snprintf( outbuf, MAX_STRING_LENGTH, "%s resistant %s", arg1, arg3 );
do_mpmset( ch, outbuf );
snprintf( outbuf, MAX_STRING_LENGTH, "%s immune %s", arg1, arg3 );
do_mpmset( ch, outbuf );
snprintf( outbuf, MAX_STRING_LENGTH, "%s susceptible %s", arg1, arg3 );
do_mpmset( ch, outbuf );
return;
}
if ( !str_cmp( arg2, "resistant" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc resistant", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no resistant", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_risflag( arg3 );
if ( value < 0 || value > 31 )
progbug( "MpMset: Invalid resistant", ch );
else
TOGGLE_BIT( victim->resistant, 1 << value );
}
return;
}
if ( !str_cmp( arg2, "immune" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc immune", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no immune", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_risflag( arg3 );
if ( value < 0 || value > 31 )
progbug( "MpMset: Invalid immune", ch );
else
TOGGLE_BIT( victim->immune, 1 << value );
}
return;
}
if ( !str_cmp( arg2, "susceptible" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc susceptible", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no susceptible", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_risflag( arg3 );
if ( value < 0 || value > 31 )
progbug( "MpMset: Invalid susceptible", ch );
else
TOGGLE_BIT( victim->susceptible, 1 << value );
}
return;
}
if ( !str_cmp( arg2, "part" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc part", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no part", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_partflag( arg3 );
if ( value < 0 || value > 31 )
progbug( "MpMset: Invalid part", ch );
else
TOGGLE_BIT( victim->xflags, 1 << value );
}
return;
}
if ( !str_cmp( arg2, "attack" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc attack", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no attack", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_attackflag( arg3 );
if ( value < 0 )
progbug( "MpMset: Invalid attack", ch );
else
xTOGGLE_BIT( victim->attacks, value );
}
return;
}
if ( !str_cmp( arg2, "defense" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc defense", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no defense", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_defenseflag( arg3 );
if ( value < 0 || value >= MAX_BITS )
progbug( "MpMset: Invalid defense", ch );
else
xTOGGLE_BIT( victim->defenses, value );
}
return;
}
if ( !str_cmp( arg2, "pos" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc pos", ch );
return;
}
if ( value < 0 || value > POS_STANDING )
{
progbug( "MpMset: Invalid pos", ch );
return;
}
victim->position = value;
return;
}
if ( !str_cmp( arg2, "defpos" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc defpos", ch );
return;
}
if ( value < 0 || value > POS_STANDING )
{
progbug( "MpMset: Invalid defpos", ch );
return;
}
victim->defposition = value;
return;
}
if ( !str_cmp( arg2, "speaks" ) )
{
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no speaks", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_langflag( arg3 );
v2 = get_langnum( arg3 );
if ( value == LANG_UNKNOWN )
progbug( "MpMset: Invalid speaks", ch );
else if ( !IS_NPC( victim ) )
{
if ( !( value &= VALID_LANGS ) )
{
progbug( "MpMset: Invalid player language", ch );
continue;
}
if ( v2 == -1 )
ch_printf( ch, "Unknown language: %s\r\n", arg3 );
else
TOGGLE_BIT( victim->speaks, 1 << v2 );
}
else
{
if ( v2 == -1 )
ch_printf( ch, "Unknown language: %s\r\n", arg3 );
else
TOGGLE_BIT( victim->speaks, 1 << v2 );
}
}
if ( !IS_NPC( victim ) )
{
REMOVE_BIT( victim->speaks, race_table[victim->race]->language );
if ( !knows_language( victim, victim->speaking, victim ) )
victim->speaking = race_table[victim->race]->language;
}
return;
}
if ( !str_cmp( arg2, "speaking" ) )
{
if ( !IS_NPC( victim ) )
{
progbug( "MpMset: can't set pc speaking", ch );
return;
}
if ( !argument || argument[0] == '\0' )
{
progbug( "MpMset: no speaking", ch );
return;
}
while ( argument[0] != '\0' )
{
argument = one_argument( argument, arg3 );
value = get_langflag( arg3 );
if ( value == LANG_UNKNOWN )
progbug( "MpMset: Invalid speaking", ch );
else
{
v2 = get_langnum( arg3 );
if ( v2 == -1 )
ch_printf( ch, "Unknown language: %s\r\n", arg3 );
else
TOGGLE_BIT( victim->speaks, 1 << v2 );
}
}
return;
}
progbug( "MpMset: Invalid field", ch );
return;
}
void advance_class_level( CHAR_DATA *ch )
{ /* ONLY called for multiclasses */
int level = 0;
if ( ch->firstexp >= exp_class_level( ch, ch->firstlevel + 1, ch->Class ) ) { /* Levelled
*/
ch_printf( ch, "\r\n&WYou have now obtained %s level %d!&D\r\n",
class_table[ch->Class]->who_name, ++ch->firstlevel );
ch->firstexp =
URANGE( 0, ( ch->firstexp - exp_class_level( ch, ch->firstlevel, ch->Class ) ),
ch->firstexp );
advance_level( ch );
}
if ( IS_SECONDCLASS( ch ) && ch->secondexp >= exp_class_level( ch, ch->secondlevel + 1, ch->secondclass ) ) { /* Again
*/
ch_printf( ch, "\r\n&WYou have now obtained %s level %d!&D\r\n",
class_table[ch->secondclass]->who_name, ++ch->secondlevel );
ch->secondexp =
URANGE( 0, ( ch->secondexp - exp_class_level( ch, ch->secondlevel, ch->secondclass ) ),
ch->secondexp );
advance_level( ch );
}
if ( IS_THIRDCLASS( ch ) && ch->thirdexp >= exp_class_level( ch, ch->thirdlevel + 1, ch->thirdclass ) ) { /* Made
* a
* level!
*/
ch_printf( ch, "\r\n&WYou have now obtained %s level %d!&D\r\n",
class_table[ch->thirdclass]->who_name, ++ch->thirdlevel );
ch->thirdexp =
URANGE( 0, ( ch->thirdexp - exp_class_level( ch, ch->thirdlevel, ch->thirdclass ) ),
ch->thirdexp );
advance_level( ch );
}
if ( IS_THIRDCLASS( ch ) )
level = ( ( ch->firstlevel + 1 + ch->secondlevel + ch->thirdlevel ) / 3 );
else if ( IS_SECONDCLASS( ch ) )
level = ( ( ch->firstlevel + 1 + ch->secondlevel ) / 2 );
else
level = ( ch->firstlevel + 1 );
if ( level > ch->level ) { /* Should have gained! */
char buf[MSL];
if ( xIS_SET( ch->act, PLR_EXTREME ) ) {
ch_printf( ch, "&GPlaying 6D EXTREME you gain 5 glory!&D\r\n" );
ch->quest_curr += 5;
}
ch_printf( ch, "\r\n&WYou have now obtained an overall experience level %d!&D\r\n",
++ch->level );
restore_char( ch );
send_to_char_color( "&YYou have gained insight in the realms, and have been restored!\r\n",
ch );
snprintf( buf, MSL, "The realms rejoice as %s has just achieved level %d!&D", ch->name,
ch->level );
announce( buf );
snprintf( buf, MSL, "%24.24s: %s obtained level %d!%s%s&D", ctime( ¤t_time ),
ch->name, ch->level, ( doubleexp ? " (Double)" : "" ),
( happyhouron ? " (HappyHour)" : "" ) );
append_to_file( PLEVEL_FILE, buf );
}
}
char *get_exits( CHAR_DATA * ch )
{
static char buf[MAX_STRING_LENGTH];
EXIT_DATA *pexit;
bool found = FALSE;
buf[0] = '\0';
if ( !check_blind( ch ) )
return buf;
set_char_color( AT_EXITS, ch );
mudstrlcpy( buf, "[Exits:", MAX_STRING_LENGTH );
for ( pexit = ch->in_room->first_exit; pexit; pexit = pexit->next )
{
if ( IS_IMMORTAL( ch ) )
/*
* Immortals see all exits, even secret ones
*/
{
if ( pexit->to_room )
{
found = TRUE;
mudstrlcat( buf, " ", MAX_STRING_LENGTH );
mudstrlcat( buf, capitalize( dir_name[pexit->vdir] ), MAX_STRING_LENGTH );
/*
* New code added to display closed, or otherwise invisible exits to immortals
* Installed by Samson 1-25-98
*/
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
mudstrlcat( buf, "->(Closed)", MAX_STRING_LENGTH );
if ( IS_SET( pexit->exit_info, EX_DIG ) )
mudstrlcat( buf, "->(Dig)", MAX_STRING_LENGTH );
if ( IS_SET( pexit->exit_info, EX_WINDOW ) )
mudstrlcat( buf, "->(Window)", MAX_STRING_LENGTH );
if ( IS_SET( pexit->exit_info, EX_HIDDEN ) )
mudstrlcat( buf, "->(Hidden)", MAX_STRING_LENGTH );
if ( xIS_SET( pexit->to_room->room_flags, ROOM_DEATH ) )
mudstrlcat( buf, "->(Deathtrap)", MAX_STRING_LENGTH );
}
}
else
{
if ( pexit->to_room
&& !IS_SET( pexit->exit_info, EX_SECRET ) && ( !IS_SET( pexit->exit_info, EX_WINDOW ) || IS_SET( pexit->exit_info, EX_ISDOOR ) ) && !IS_SET( pexit->exit_info, EX_HIDDEN ) )
{
found = TRUE;
mudstrlcat( buf, " ", MAX_STRING_LENGTH );
mudstrlcat( buf, capitalize( dir_name[pexit->vdir] ), MAX_STRING_LENGTH );
if ( IS_SET( pexit->exit_info, EX_CLOSED ) )
mudstrlcat( buf, "->(Closed)", MAX_STRING_LENGTH );
if ( IS_AFFECTED( ch, AFF_DETECTTRAPS ) && xIS_SET( pexit->to_room->room_flags, ROOM_DEATH ) )
mudstrlcat( buf, "->(Deathtrap)", MAX_STRING_LENGTH );
}
}
}
if ( !found )
mudstrlcat( buf, " none]", MAX_STRING_LENGTH );
else
mudstrlcat( buf, "]", MAX_STRING_LENGTH );
mudstrlcat( buf, "\r\n", MAX_STRING_LENGTH );
return buf;
}
int gaso_level(CHAR_DATA * ch, int level)
{
char buf[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH];
int count, type, gcount, i;
GASO_STRUCT stats[MAX_ITEM_TYPE+1]; /* duh */
OBJ_DATA *obj;
double dcount;
count = 0;
gcount = 0;
for(type=0;type<=MAX_ITEM_TYPE;type++){
stats[type].weight = stats[type].cost = stats[type].count = 0;
stats[type].value[0] = 0;
stats[type].value[1] = 0;
stats[type].value[2] = 0;
stats[type].value[3] = 0;
stats[type].value[4] = 0;
stats[type].value[5] = 0;
for(i=0;i<32;i++){
stats[type].extra_flags[i]=0;
}
}
for ( obj = first_object; obj; obj = obj->next ){
if(obj->level==level){
count++;
stats[obj->item_type].count++;
stats[obj->item_type].weight+=obj->weight;
stats[obj->item_type].cost+=obj->cost;
stats[obj->item_type].value[0]+=obj->value[0];
stats[obj->item_type].value[1]+=obj->value[1];
stats[obj->item_type].value[2]+=obj->value[2];
stats[obj->item_type].value[3]+=obj->value[3];
stats[obj->item_type].value[4]+=obj->value[4];
stats[obj->item_type].value[5]+=obj->value[5];
for(i=0;i<32;i++){
if(xIS_SET(obj->pIndexData->extra_flags, i))
stats[obj->item_type].extra_flags[i]++;
}
}
gcount++;
}
if(count==0){
/* send_to_pager("No objects in this range.\n\r",ch); */
return(0);
}
for(type=0;type<=MAX_ITEM_TYPE;type++){
if(stats[type].count!=0){
#define TODUB(x) ( (double)(1.0 * x) )
dcount= TODUB(stats[type].count);
sprintf(buf,"%d,%d,%d,%2.2f,%2.2f,%2.2f,%2.2f,%2.2f,%2.2f,%2.2f,%2.2f,%2.2f",
level,
type,
stats[type].count,
(double) (100.0 * (dcount/TODUB(count))), /* %-age of objs at this level */
(double) (TODUB(stats[type].weight) /dcount), /* average weight of this item_type for lev*/
(double) (TODUB(stats[type].cost) /dcount), /* average cost of this item_type for lev*/
(double) (TODUB(stats[type].value[0]) /dcount),
(double) (TODUB(stats[type].value[1]) /dcount),
(double) (TODUB(stats[type].value[2]) /dcount),
(double) (TODUB(stats[type].value[3]) /dcount),
(double) (TODUB(stats[type].value[4]) /dcount),
(double) (TODUB(stats[type].value[5]) /dcount)
);
for(i=0;i<32;i++){
sprintf(buf2,",%2.2f", (double) (TODUB(stats[type].extra_flags[i]) /dcount) );
strcat(buf,buf2);
}
strcat(buf,"\n\r");
send_to_pager(buf,ch);
}
}
#undef TODUB(x)
return count;
}
void found_prey( CHAR_DATA * ch, CHAR_DATA * victim )
{
char buf[MAX_STRING_LENGTH];
char victname[MAX_STRING_LENGTH];
if( victim == NULL )
{
bug( "%s", "Found_prey: null victim" );
return;
}
if( victim->in_room == NULL )
{
bug( "%s", "Found_prey: null victim->in_room" );
return;
}
mudstrlcpy( victname, IS_NPC( victim ) ? victim->short_descr : victim->name, MAX_STRING_LENGTH );
if( !can_see( ch, victim ) )
{
if( number_percent( ) < 90 )
return;
switch ( number_bits( 2 ) )
{
case 0:
snprintf( buf, MAX_STRING_LENGTH, "Don't make me find you, %s!", victname );
do_say( ch, buf );
break;
case 1:
act( AT_ACTION, "$n sniffs around the room for $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_ACTION, "You sniff around the room for $N.", ch, NULL, victim, TO_CHAR );
act( AT_ACTION, "$n sniffs around the room for you.", ch, NULL, victim, TO_VICT );
do_say( ch, "I can smell your blood!" );
break;
case 2:
snprintf( buf, MAX_STRING_LENGTH, "I'm going to tear %s apart!", victname );
do_yell( ch, buf );
break;
case 3:
do_say( ch, "Just wait until I find you..." );
break;
}
return;
}
if( xIS_SET( ch->in_room->room_flags, ROOM_SAFE ) )
{
if( number_percent( ) < 90 )
return;
switch ( number_bits( 2 ) )
{
case 0:
do_say( ch, "C'mon out, you coward!" );
snprintf( buf, MAX_STRING_LENGTH, "%s is a bloody coward!", victname );
do_yell( ch, buf );
break;
case 1:
snprintf( buf, MAX_STRING_LENGTH, "Let's take this outside, %s", victname );
do_say( ch, buf );
break;
case 2:
snprintf( buf, MAX_STRING_LENGTH, "%s is a yellow-bellied wimp!", victname );
do_yell( ch, buf );
break;
case 3:
act( AT_ACTION, "$n takes a few swipes at $N.", ch, NULL, victim, TO_NOTVICT );
act( AT_ACTION, "You try to take a few swipes $N.", ch, NULL, victim, TO_CHAR );
act( AT_ACTION, "$n takes a few swipes at you.", ch, NULL, victim, TO_VICT );
break;
}
return;
}
switch ( number_bits( 2 ) )
{
case 0:
snprintf( buf, MAX_STRING_LENGTH, "Your blood is mine, %s!", victname );
do_yell( ch, buf );
break;
case 1:
snprintf( buf, MAX_STRING_LENGTH, "Alas, we meet again, %s!", victname );
do_say( ch, buf );
break;
case 2:
snprintf( buf, MAX_STRING_LENGTH, "What do you want on your tombstone, %s?", victname );
do_say( ch, buf );
break;
case 3:
act( AT_ACTION, "$n lunges at $N from out of nowhere!", ch, NULL, victim, TO_NOTVICT );
act( AT_ACTION, "You lunge at $N catching $M off guard!", ch, NULL, victim, TO_CHAR );
act( AT_ACTION, "$n lunges at you from out of nowhere!", ch, NULL, victim, TO_VICT );
}
stop_hunting( ch );
set_fighting( ch, victim );
multi_hit( ch, victim, TYPE_UNDEFINED );
return;
}
const char *color_str( short AType, CHAR_DATA * ch )
{
if( !ch )
{
bug( "%s", "color_str: NULL ch!" );
return ( "" );
}
if( IS_NPC( ch ) || !xIS_SET( ch->act, PLR_ANSI ) )
return ( "" );
switch ( ch->colors[AType] )
{
case 0:
return ( ANSI_BLACK );
case 1:
return ( ANSI_DRED );
case 2:
return ( ANSI_DGREEN );
case 3:
return ( ANSI_ORANGE );
case 4:
return ( ANSI_DBLUE );
case 5:
return ( ANSI_PURPLE );
case 6:
return ( ANSI_CYAN );
case 7:
return ( ANSI_GREY );
case 8:
return ( ANSI_DGREY );
case 9:
return ( ANSI_RED );
case 10:
return ( ANSI_GREEN );
case 11:
return ( ANSI_YELLOW );
case 12:
return ( ANSI_BLUE );
case 13:
return ( ANSI_PINK );
case 14:
return ( ANSI_LBLUE );
case 15:
return ( ANSI_WHITE );
/*
* 16 thru 31 are for blinking colors
*/
case 16:
return ( BLINK_BLACK );
case 17:
return ( BLINK_DRED );
case 18:
return ( BLINK_DGREEN );
case 19:
return ( BLINK_ORANGE );
case 20:
return ( BLINK_DBLUE );
case 21:
return ( BLINK_PURPLE );
case 22:
return ( BLINK_CYAN );
case 23:
return ( BLINK_GREY );
case 24:
return ( BLINK_DGREY );
case 25:
return ( BLINK_RED );
case 26:
return ( BLINK_GREEN );
case 27:
return ( BLINK_YELLOW );
case 28:
return ( BLINK_BLUE );
case 29:
return ( BLINK_PINK );
case 30:
return ( BLINK_LBLUE );
case 31:
return ( BLINK_WHITE );
default:
return ( ANSI_RESET );
}
}
bool check_social( CHAR_DATA * ch, const char *command, const char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim, *victim_next;
SOCIALTYPE *social;
CHAR_DATA *removed[128]; /* What are the chances of more than 128? */
ROOM_INDEX_DATA *room;
int i = 0, k = 0;
if( ( social = find_social( command ) ) == NULL )
return FALSE;
if( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_NO_EMOTE ) )
{
send_to_char( "You are anti-social!\r\n", ch );
return TRUE;
}
switch ( ch->position )
{
case POS_DEAD:
send_to_char( "Lie still; you are DEAD.\r\n", ch );
return TRUE;
case POS_INCAP:
case POS_MORTAL:
send_to_char( "You are hurt far too bad for that.\r\n", ch );
return TRUE;
case POS_STUNNED:
send_to_char( "You are too stunned to do that.\r\n", ch );
return TRUE;
case POS_SLEEPING:
/*
* I just know this is the path to a 12" 'if' statement. :(
* But two players asked for it already! -- Furey
*/
if( !str_cmp( social->name, "snore" ) )
break;
send_to_char( "In your dreams, or what?\r\n", ch );
return TRUE;
}
/*
* Search room for chars ignoring social sender and
* remove them from the room until social has been
* completed
*/
room = ch->in_room;
for( victim = ch->in_room->first_person; victim; victim = victim_next )
{
if( i == 127 )
break;
victim_next = victim->next_in_room;
if( is_ignoring( victim, ch ) )
{
if( !IS_IMMORTAL( ch ) || get_trust( victim ) > get_trust( ch ) )
{
removed[i] = victim;
i++;
UNLINK( victim, room->first_person, room->last_person, next_in_room, prev_in_room );
}
else
{
set_char_color( AT_IGNORE, victim );
ch_printf( victim, "You attempt to ignore %s," " but are unable to do so.\r\n", ch->name );
}
}
}
one_argument( argument, arg );
victim = NULL;
if( arg[0] == '\0' )
{
act( AT_SOCIAL, social->others_no_arg, ch, NULL, victim, TO_ROOM );
act( AT_SOCIAL, social->char_no_arg, ch, NULL, victim, TO_CHAR );
}
else if( ( victim = get_char_room( ch, arg ) ) == NULL )
{
/*
* If they aren't in the room, they may be in the list of
* people ignoring...
*/
if( i != 0 )
{
for( k = 0, victim = removed[0]; k < i; k++, victim = removed[k] )
{
if( nifty_is_name( victim->name, arg ) || nifty_is_name_prefix( arg, victim->name ) )
{
set_char_color( AT_IGNORE, ch );
ch_printf( ch, "%s is ignoring you.\r\n", victim->name );
break;
}
}
}
if( !victim )
send_to_char( "They aren't here.\r\n", ch );
}
else if( victim == ch )
{
act( AT_SOCIAL, social->others_auto, ch, NULL, victim, TO_ROOM );
act( AT_SOCIAL, social->char_auto, ch, NULL, victim, TO_CHAR );
}
else
{
act( AT_SOCIAL, social->others_found, ch, NULL, victim, TO_NOTVICT );
act( AT_SOCIAL, social->char_found, ch, NULL, victim, TO_CHAR );
act( AT_SOCIAL, social->vict_found, ch, NULL, victim, TO_VICT );
if( !IS_NPC( ch ) && IS_NPC( victim )
&& !IS_AFFECTED( victim, AFF_CHARM ) && IS_AWAKE( victim ) && !HAS_PROG( victim->pIndexData, ACT_PROG ) )
{
switch ( number_bits( 4 ) )
{
case 0:
if( IS_EVIL( ch ) && !is_safe( victim, ch, TRUE ) ) /* was IS_EVIL(ch) ||.... didn't make sense to me - FB */
multi_hit( victim, ch, TYPE_UNDEFINED );
else if( IS_NEUTRAL( ch ) )
{
act( AT_ACTION, "$n slaps $N.", victim, NULL, ch, TO_NOTVICT );
act( AT_ACTION, "You slap $N.", victim, NULL, ch, TO_CHAR );
act( AT_ACTION, "$n slaps you.", victim, NULL, ch, TO_VICT );
}
else
{
act( AT_ACTION, "$n acts like $N doesn't even exist.", victim, NULL, ch, TO_NOTVICT );
act( AT_ACTION, "You just ignore $N.", victim, NULL, ch, TO_CHAR );
act( AT_ACTION, "$n appears to be ignoring you.", victim, NULL, ch, TO_VICT );
}
break;
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 7:
case 8:
act( AT_SOCIAL, social->others_found, victim, NULL, ch, TO_NOTVICT );
act( AT_SOCIAL, social->char_found, victim, NULL, ch, TO_CHAR );
act( AT_SOCIAL, social->vict_found, victim, NULL, ch, TO_VICT );
break;
case 9:
case 10:
case 11:
case 12:
act( AT_ACTION, "$n slaps $N.", victim, NULL, ch, TO_NOTVICT );
act( AT_ACTION, "You slap $N.", victim, NULL, ch, TO_CHAR );
act( AT_ACTION, "$n slaps you.", victim, NULL, ch, TO_VICT );
break;
}
}
}
/*
* Replace the chars in the ignoring list to the room
* note that the ordering of the players in the room
* might change
*/
if( i != 0 )
{
for( k = 0, victim = removed[0]; k < i; k++, victim = removed[k] )
{
LINK( victim, room->first_person, room->last_person, next_in_room, prev_in_room );
}
}
return TRUE;
}
void fread_pfile( FILE * fp, time_t tdiff, char *fname, bool count )
{
const char *word;
char *name = NULL;
char *clan = NULL;
char *deity = NULL;
short level = 0;
short file_ver = 0;
EXT_BV pact;
bool fMatch;
for( ;; )
{
word = feof( fp ) ? "End" : fread_word( fp );
fMatch = FALSE;
switch ( UPPER( word[0] ) )
{
case '*':
fMatch = TRUE;
fread_to_eol( fp );
break;
case 'A':
KEY( "Act", pact, fread_bitvector( fp ) );
break;
case 'C':
KEY( "Clan", clan, fread_string( fp ) );
break;
case 'D':
KEY( "Deity", deity, fread_string( fp ) );
break;
case 'E':
if( !strcmp( word, "End" ) )
goto timecheck;
break;
case 'L':
KEY( "Level", level, fread_number( fp ) );
break;
case 'N':
KEY( "Name", name, fread_string( fp ) );
break;
case 'V':
KEY( "Version", file_ver, fread_number( fp ) );
break;
}
if( !fMatch )
fread_to_eol( fp );
}
timecheck:
if( count == FALSE && !xIS_SET( pact, PLR_EXEMPT ) )
{
if( level < 10 && tdiff > sysdata.newbie_purge )
{
if( unlink( fname ) == -1 )
perror( "Unlink" );
else
{
days = sysdata.newbie_purge;
snprintf( log_buf, MAX_STRING_LENGTH, "Player %s was deleted. Exceeded time limit of %d days.", name, days );
log_string( log_buf );
#ifdef AUTO_AUTH
remove_from_auth( name );
#endif
deleted++;
return;
}
}
if( level < LEVEL_IMMORTAL && tdiff > sysdata.regular_purge )
{
if( level < LEVEL_IMMORTAL )
{
if( unlink( fname ) == -1 )
perror( "Unlink" );
else
{
days = sysdata.regular_purge;
snprintf( log_buf, MAX_STRING_LENGTH, "Player %s was deleted. Exceeded time limit of %d days.", name, days );
log_string( log_buf );
#ifdef AUTO_AUTH
remove_from_auth( name );
#endif
deleted++;
return;
}
}
}
}
if( clan != NULL )
{
CLAN_DATA *guild = get_clan( clan );
if( guild )
guild->members++;
}
if( deity != NULL )
{
DEITY_DATA *god = get_deity( deity );
if( god )
god->worshippers++;
}
if( clan )
STRFREE( clan );
if( name )
STRFREE( name );
if( deity )
STRFREE( deity );
return;
}
