/***************************************************************************
* STAR WARS REALITY 1.0 *
*--------------------------------------------------------------------------*
* Star Wars Reality Code Additions and changes from the Smaug Code *
* copyright (c) 1997 by Sean Cooper *
* -------------------------------------------------------------------------*
* Starwars and Starwars Names copyright(c) Lucas Film Ltd. *
*--------------------------------------------------------------------------*
* SMAUG 1.0 (C) 1994, 1995, 1996 by Derek Snider *
* SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, *
* Scryn, Rennard, Swordbearer, Gorog, Grishnakh and Tricops *
* ------------------------------------------------------------------------ *
* Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* ------------------------------------------------------------------------ *
* Informational module *
****************************************************************************/
#include <sys/types.h>
#include <sys/stat.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include "mud.h"
int check_preg args( ( CHAR_DATA *ch ) );
ROOM_INDEX_DATA *generate_exit( ROOM_INDEX_DATA *in_room, EXIT_DATA **pexit );
char * const where_name [] =
{
"<used as light> ",
"<worn on finger> ",
"<worn on finger> ",
"<worn around neck> ",
"<worn around neck> ",
"<worn on body> ",
"<worn on head> ",
"<worn on legs> ",
"<worn on feet> ",
"<worn on hands> ",
"<worn on arms> ",
"<energy shield> ",
"<worn about body> ",
"<worn about waist> ",
"<worn around wrist> ",
"<worn around wrist> ",
"<wielded> ",
"<held> ",
"<dual wielded> ",
"<worn on ears> ",
"<worn on eyes> ",
"<missile wielded> ",
"<worn on back> ",
"<worn over face> ",
"<worn around ankle> ",
"<worn around ankle> ",
"<BUG Inform Gavinx1 ",
"<BUG Inform Gavinx2 ",
"<BUG Inform Gavinx3 ",
};
/*
* Local functions.
*/
void show_char_to_char_0 args( ( CHAR_DATA *victim, CHAR_DATA *ch ) );
void show_char_to_char_1 args( ( CHAR_DATA *victim, CHAR_DATA *ch ) );
void show_char_to_char args( ( CHAR_DATA *list, CHAR_DATA *ch ) );
void show_char_to_char args( ( CHAR_DATA *list, CHAR_DATA *ch ) );
void show_ships_to_char args( ( SHIP_DATA *ship, CHAR_DATA *ch ) );
bool check_blind args( ( CHAR_DATA *ch ) );
void show_condition args( ( CHAR_DATA *ch, CHAR_DATA *victim ) );
int get_comfreq args( ( CHAR_DATA *ch ) );
/*
* External functions
*/
bool has_comlink args( ( CHAR_DATA *ch ) );
char *format_obj_to_char( OBJ_DATA *obj, CHAR_DATA *ch, bool fShort )
{
static char buf[MAX_STRING_LENGTH];
buf[0] = '\0';
if ( IS_OBJ_STAT(obj, ITEM_INVIS) ) strcat( buf, "(Invis) " );
if ( ( IS_AFFECTED(ch, AFF_DETECT_MAGIC) || IS_IMMORTAL(ch) )
&& IS_OBJ_STAT(obj, ITEM_MAGIC) ) strcat( buf, "&B(Blue Aura)&w " );
if ( IS_OBJ_STAT(obj, ITEM_GLOW) ) strcat( buf, "(Glowing) " );
if ( IS_OBJ_STAT(obj, ITEM_HUM) ) strcat( buf, "(Humming) " );
if ( IS_OBJ_STAT(obj, ITEM_HIDDEN) ) strcat( buf, "(Hidden) " );
if ( IS_OBJ_STAT(obj, ITEM_BURRIED) ) strcat( buf, "(Burried) " );
if ( IS_IMMORTAL(ch)
&& IS_OBJ_STAT(obj, ITEM_PROTOTYPE) ) strcat( buf, "(PROTO) " );
if ( fShort )
{
if ( obj->short_descr )
strcat( buf, obj->short_descr );
}
else
{
if ( obj->description )
strcat( buf, obj->description );
}
return buf;
}
/*
* Some increasingly freaky halucinated objects -Thoric
*/
char *halucinated_object( int ms, bool fShort )
{
int sms = URANGE( 1, (ms+10)/5, 20 );
if ( fShort )
switch( number_range( 6-URANGE(1,sms/2,5), sms ) )
{
case 1: return "a sword";
case 2: return "a stick";
case 3: return "something shiny";
case 4: return "something";
case 5: return "something interesting";
case 6: return "something colorful";
case 7: return "something that looks cool";
case 8: return "a nifty thing";
case 9: return "a cloak of flowing colors";
case 10: return "a mystical flaming sword";
case 11: return "a swarm of insects";
case 12: return "a deathbane";
case 13: return "a figment of your imagination";
case 14: return "your gravestone";
case 15: return "the long lost boots of Ranger Thoric";
case 16: return "a glowing tome of arcane knowledge";
case 17: return "a long sought secret";
case 18: return "the meaning of it all";
case 19: return "the answer";
case 20: return "the key to life, the universe and everything";
}
switch( number_range( 6-URANGE(1,sms/2,5), sms ) )
{
case 1: return "A nice looking sword catches your eye.";
case 2: return "The ground is covered in small sticks.";
case 3: return "Something shiny catches your eye.";
case 4: return "Something catches your attention.";
case 5: return "Something interesting catches your eye.";
case 6: return "Something colorful flows by.";
case 7: return "Something that looks cool calls out to you.";
case 8: return "A nifty thing of great importance stands here.";
case 9: return "A cloak of flowing colors asks you to wear it.";
case 10: return "A mystical flaming sword awaits your grasp.";
case 11: return "A swarm of insects buzzes in your face!";
case 12: return "The extremely rare Deathbane lies at your feet.";
case 13: return "A figment of your imagination is at your command.";
case 14: return "You notice a gravestone here... upon closer examination, it reads your name.";
case 15: return "The long lost boots of Ranger Thoric lie off to the side.";
case 16: return "A glowing tome of arcane knowledge hovers in the air before you.";
case 17: return "A long sought secret of all mankind is now clear to you.";
case 18: return "The meaning of it all, so simple, so clear... of course!";
case 19: return "The answer. One. It's always been One.";
case 20: return "The key to life, the universe and everything awaits your hand.";
}
return "Whoa!!!";
}
/* This is the punct snippet from Desden el Chaman Tibetano - Nov 1998
Email: jlalbatros@mx2.redestb.es
*/
char *num_punct(int foo)
{
int index, index_new, rest;
char buf[16];
static char buf_new[16];
sprintf(buf,"%d",foo);
rest = strlen(buf)%3;
for (index=index_new=0;index<strlen(buf);index++,index_new++)
{
if (index!=0 && (index-rest)%3==0 )
{
buf_new[index_new]=',';
index_new++;
buf_new[index_new]=buf[index];
}
else
buf_new[index_new] = buf[index];
}
buf_new[index_new]='\0';
return buf_new;
}
/*
* Show a list to a character.
* Can coalesce duplicated items.
*/
void show_list_to_char( OBJ_DATA *list, CHAR_DATA *ch, bool fShort, bool fShowNothing )
{
char **prgpstrShow;
int *prgnShow;
int *pitShow;
char *pstrShow;
OBJ_DATA *obj;
int nShow;
int iShow;
int count, offcount, tmp, ms, cnt;
bool fCombine;
if ( !ch->desc )
return;
/*
* if there's no list... then don't do all this crap! -Thoric
*/
if ( !list )
{
if ( fShowNothing )
{
if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
send_to_char( " ", ch );
send_to_char( "Nothing.\n\r", ch );
}
return;
}
/*
* Alloc space for output lines.
*/
count = 0;
for ( obj = list; obj; obj = obj->next_content )
count++;
ms = (ch->mental_state ? ch->mental_state : 1)
* (IS_NPC(ch) ? 1 : (ch->pcdata->condition[COND_DRUNK] ? (ch->pcdata->condition[COND_DRUNK]/12) : 1));
/*
* If not mentally stable...
*/
if ( abs(ms) > 40 )
{
offcount = URANGE( -(count), (count * ms) / 100, count*2 );
if ( offcount < 0 )
offcount += number_range(0, abs(offcount));
else
if ( offcount > 0 )
offcount -= number_range(0, offcount);
}
else
offcount = 0;
if ( count + offcount <= 0 )
{
if ( fShowNothing )
{
if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
send_to_char( " ", ch );
send_to_char( "Nothing.\n\r", ch );
}
return;
}
CREATE( prgpstrShow, char*, count + ((offcount > 0) ? offcount : 0) );
CREATE( prgnShow, int, count + ((offcount > 0) ? offcount : 0) );
CREATE( pitShow, int, count + ((offcount > 0) ? offcount : 0) );
nShow = 0;
tmp = (offcount > 0) ? offcount : 0;
cnt = 0;
/*
* Format the list of objects.
*/
for ( obj = list; obj; obj = obj->next_content )
{
if ( offcount < 0 && ++cnt > (count + offcount) )
break;
if ( tmp > 0 && number_bits(1) == 0 )
{
prgpstrShow [nShow] = str_dup( halucinated_object(ms, fShort) );
prgnShow [nShow] = 1;
pitShow [nShow] = number_range( ITEM_LIGHT, ITEM_CONTAINER );
nShow++;
--tmp;
}
if ( obj->wear_loc == WEAR_NONE
&& can_see_obj( ch, obj ) )
{
pstrShow = format_obj_to_char( obj, ch, fShort );
fCombine = FALSE;
if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
{
/*
* Look for duplicates, case sensitive.
* Matches tend to be near end so run loop backwords.
*/
for ( iShow = nShow - 1; iShow >= 0; iShow-- )
{
if ( !strcmp( prgpstrShow[iShow], pstrShow ) )
{
prgnShow[iShow] += obj->count;
fCombine = TRUE;
break;
}
}
}
pitShow[nShow] = obj->item_type;
/*
* Couldn't combine, or didn't want to.
*/
if ( !fCombine )
{
prgpstrShow [nShow] = str_dup( pstrShow );
prgnShow [nShow] = obj->count;
nShow++;
}
}
}
if ( tmp > 0 )
{
int x;
for ( x = 0; x < tmp; x++ )
{
prgpstrShow [nShow] = str_dup( halucinated_object(ms, fShort) );
prgnShow [nShow] = 1;
pitShow [nShow] = number_range( ITEM_LIGHT, ITEM_CONTAINER );
nShow++;
}
}
/*
* Output the formatted list. -Color support by Thoric
*/
for ( iShow = 0; iShow < nShow; iShow++ )
{
switch(pitShow[iShow])
{
default:
set_char_color( AT_OBJECT, ch );
break;
case ITEM_CONTRACEPTIVE:
set_char_color( AT_RED, ch );
break;
case ITEM_MONEY:
case ITEM_TREASURE:
set_char_color( AT_YELLOW, ch );
break;
case ITEM_FOOD:
set_char_color( AT_HUNGRY, ch );
break;
case ITEM_DRINK_CON:
case ITEM_FOUNTAIN:
set_char_color( AT_THIRSTY, ch );
break;
case ITEM_FIRE:
set_char_color( AT_FIRE, ch );
break;
}
if ( fShowNothing )
send_to_char( " ", ch );
send_to_char( prgpstrShow[iShow], ch );
/* if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) ) */
{
if ( prgnShow[iShow] != 1 )
ch_printf( ch, " (%d)", prgnShow[iShow] );
}
send_to_char( "\n\r", ch );
DISPOSE( prgpstrShow[iShow] );
}
if ( fShowNothing && nShow == 0 )
{
if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
send_to_char( " ", ch );
send_to_char( "Nothing.\n\r", ch );
}
/*
* Clean up.
*/
DISPOSE( prgpstrShow );
DISPOSE( prgnShow );
DISPOSE( pitShow );
return;
}
/*
* Show fancy descriptions for certain spell affects -Thoric
*/
void show_visible_affects_to_char( CHAR_DATA *victim, CHAR_DATA *ch )
{
char buf[MAX_STRING_LENGTH];
if ( IS_AFFECTED(victim, AFF_SANCTUARY) )
{
if ( IS_GOOD(victim) )
{
set_char_color( AT_WHITE, ch );
ch_printf( ch, "%s glows with an aura of divine radiance.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
else if ( IS_EVIL(victim) )
{
set_char_color( AT_WHITE, ch );
ch_printf( ch, "%s shimmers beneath an aura of dark energy.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
else
{
set_char_color( AT_WHITE, ch );
ch_printf( ch, "%s is shrouded in flowing shadow and light.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
}
if ( IS_AFFECTED(victim, AFF_FIRESHIELD) )
{
set_char_color( AT_FIRE, ch );
ch_printf( ch, "%s is engulfed within a blaze of mystical flame.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
if ( IS_AFFECTED(victim, AFF_SHOCKSHIELD) )
{
set_char_color( AT_BLUE, ch );
ch_printf( ch, "%s is surrounded by cascading torrents of energy.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
/*Scryn 8/13*/
if ( IS_AFFECTED(victim, AFF_ICESHIELD) )
{
set_char_color( AT_LBLUE, ch );
ch_printf( ch, "%s is ensphered by shards of glistening ice.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
if ( IS_AFFECTED(victim, AFF_CHARM) )
{
set_char_color( AT_MAGIC, ch );
ch_printf( ch, "%s looks ahead free of expression.\n\r",
IS_NPC( victim ) ? capitalize(victim->short_descr) : (victim->name) );
}
if ( !IS_NPC(victim) && !victim->desc
&& victim->switched && IS_AFFECTED(victim->switched, AFF_POSSESS) )
{
set_char_color( AT_MAGIC, ch );
strcpy( buf, PERS( victim, ch ) );
strcat( buf, " appears to be in a deep trance...\n\r" );
}
}
void show_char_to_char_0( CHAR_DATA *victim, CHAR_DATA *ch )
{
char buf[MAX_STRING_LENGTH];
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char message[MAX_STRING_LENGTH];
buf[0] = '\0';
if ( IS_NPC(victim) )
strcat( buf, " " );
if ( !IS_NPC(victim) && !victim->desc )
{
if ( !victim->switched )
strcat( buf, "(Link Dead) " );
else if ( !IS_AFFECTED(victim->switched, AFF_POSSESS) )
strcat( buf, "(Switched) " );
}
if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_AFK) )
strcat( buf, "[AFK] ");
if ( (!IS_NPC(victim) && IS_SET(victim->act, PLR_WIZINVIS))
|| (IS_NPC(victim) && IS_SET(victim->act, ACT_MOBINVIS)) )
{
if (!IS_NPC(victim))
sprintf( buf1,"(Invis %d) ", victim->pcdata->wizinvis );
else
sprintf( buf1,"(Mobinvis %d) ", victim->mobinvis);
strcat( buf, buf1 );
}
if ( IS_AFFECTED(victim, AFF_INVISIBLE) ) strcat( buf, "(Invis) " );
if ( IS_AFFECTED(victim, AFF_HIDE) ) strcat( buf, "(Hide) " );
if ( IS_AFFECTED(victim, AFF_PASS_DOOR) ) strcat( buf, "(Translucent) ");
if ( IS_AFFECTED(victim, AFF_FAERIE_FIRE) ) strcat( buf, "&P(Pink Aura)&w " );
if ( IS_EVIL(victim)
&& IS_AFFECTED(ch, AFF_DETECT_EVIL) ) strcat( buf, "&R(Red Aura)&w " );
if ( ( victim->mana > 10 )
&& ( IS_AFFECTED( ch , AFF_DETECT_MAGIC ) || IS_IMMORTAL( ch ) ) )
strcat( buf, "&B(Blue Aura)&w " );
if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_LITTERBUG ) )
strcat( buf, "(LITTERBUG) " );
if ( IS_NPC(victim) && IS_IMMORTAL(ch)
&& IS_SET(victim->act, ACT_PROTOTYPE) ) strcat( buf, "(PROTO) " );
if ( victim->desc && victim->desc->connected == CON_EDITING )
strcat( buf, "(Writing) " );
if (IS_NPC(victim) &&ch->questmob > 0 && victim->pIndexData->vnum == ch->questmob)
strcat( buf, "&R[&WTARGET&R]&w ");
set_char_color( AT_PERSON, ch );
if ( victim->position == victim->defposition && victim->long_descr[0] != '\0' )
{
strcat( buf, victim->long_descr );
send_to_char( buf, ch );
show_visible_affects_to_char( victim, ch );
return;
}
/* strcat( buf, PERS( victim, ch ) ); old system of titles
* removed to prevent prepending of name to title -Kuran
*
* But added back bellow so that you can see mobs too :P -Durga
*/
if ( !IS_NPC(victim) && !IS_NPC(ch) && victim->pcdata->clan
&& ch->pcdata->clan && !IS_IMMORTAL(ch) )
{
CLAN_DATA *pclan;
CLAN_DATA *zclan;
if ( victim->pcdata->clan )
pclan = victim->pcdata->clan;
if ( ch->pcdata->clan )
zclan = ch->pcdata->clan;
if (((pclan == zclan) || IS_IMMORTAL(ch)) && victim->pcdata->clan_rank ) {
sprintf( buf2,"&G&W[&R%s&W]&P ", victim->pcdata->clan->ranks[victim->pcdata->clan_rank].name);
strcat( buf , buf2 );
}
}
else if ( (!IS_NPC(victim) && !IS_NPC(ch) && victim->pcdata->clan && IS_IMMORTAL(ch) ) )
{
CLAN_DATA *pclan = victim->pcdata->clan;
if ( victim->pcdata->clan_rank )
{
sprintf( buf2, "&G&W[&R%s&W]&P ", pclan->ranks[victim->pcdata->clan_rank].name);
strcat(buf, buf2 );
}
}
if ( !IS_NPC(victim) && !IS_SET(ch->act, PLR_BRIEF) )
strcat( buf, victim->pcdata->title );
else
strcat( buf, PERS( victim, ch ) );
switch ( victim->position )
{
case POS_DEAD: strcat( buf, " is DEAD!!" ); break;
case POS_MORTAL: strcat( buf, " is mortally wounded." ); break;
case POS_INCAP: strcat( buf, " is incapacitated." ); break;
case POS_STUNNED: strcat( buf, " is lying here stunned." ); break;
/* Furniture ideas taken from ROT
Furniture 1.01 is provided by Xerves
Info rewrite for sleeping/resting/standing/sitting on Objects -- Xerves */
case POS_SLEEPING:
{
if (victim->on != NULL)
{
if (IS_SET(victim->on->value[2],SLEEP_AT))
{
sprintf(message,"&P is sleeping at %s.", victim->on->short_descr);
strcat(buf,message);
}
else if (IS_SET(victim->on->value[2],SLEEP_ON))
{
sprintf(message,"&P is sleeping on %s.", victim->on->short_descr);
strcat(buf,message);
}
else
{
sprintf(message, "&P is sleeping in %s.", victim->on->short_descr);
strcat(buf,message);
}
}
else
{
if (ch->position == POS_SITTING || ch->position == POS_RESTING )
strcat( buf, "&P is sleeping nearby.&G" );
else
strcat( buf, "&P is deep in slumber here.&G" );
}
break;
}
case POS_RESTING:
{
if (victim->on != NULL)
{
if (IS_SET(victim->on->value[2],REST_AT))
{
sprintf(message,"&P is resting at %s.", victim->on->short_descr);
strcat(buf,message);
}
else if (IS_SET(victim->on->value[2],REST_ON))
{
sprintf(message,"&P is resting on %s.", victim->on->short_descr);
strcat(buf,message);
}
else
{
sprintf(message, "&P is resting in %s.", victim->on->short_descr);
strcat(buf,message);
}
}
else
{
if (ch->position == POS_RESTING)
strcat ( buf, "&P is sprawled out alongside you.&G" );
else if (ch->position == POS_MOUNTED)
strcat ( buf, "&P is sprawled out at the foot of your mount.&G" );
else
strcat (buf, "&P is sprawled out here.&G" );
}
break;
}
case POS_SITTING:
{
if (victim->on != NULL)
{
if (IS_SET(victim->on->value[2],SIT_AT))
{
sprintf(message,"&P is sitting at %s.", victim->on->short_descr);
strcat(buf,message);
}
else if (IS_SET(victim->on->value[2],SIT_ON))
{
sprintf(message,"&P is sitting on %s.", victim->on->short_descr);
strcat(buf,message);
}
else
{
sprintf(message, "&P is sitting in %s.", victim->on->short_descr);
strcat(buf,message);
}
}
else
strcat(buf, "&P is sitting here.");
break;
}
case POS_STANDING:
{
if (victim->on != NULL)
{
if (IS_SET(victim->on->value[2],STAND_AT))
{
sprintf(message,"&P is standing at %s.", victim->on->short_descr);
strcat(buf,message);
}
else if (IS_SET(victim->on->value[2],STAND_ON))
{
sprintf(message,"&P is standing on %s.", victim->on->short_descr);
strcat(buf,message);
}
else
{
sprintf(message, "&P is standing in %s.", victim->on->short_descr);
strcat(buf,message);
}
}
else if ( IS_IMMORTAL(victim) )
strcat( buf, "&P is here before you.&G" );
else if ( ( victim->in_room->sector_type == SECT_UNDERWATER ) && !IS_AFFECTED(victim, AFF_AQUA_BREATH) && !IS_NPC(victim) )
strcat( buf, "&P is drowning here.&G" );
else if ( victim->in_room->sector_type == SECT_UNDERWATER )
strcat( buf, "&P is here in the water.&G" );
else if ( ( victim->in_room->sector_type == SECT_OCEANFLOOR )
&& !IS_AFFECTED(victim, AFF_AQUA_BREATH) && !IS_NPC(victim) )
strcat( buf, "&P is drowning here.&G" );
else if ( victim->in_room->sector_type == SECT_OCEANFLOOR )
strcat( buf, "&P is standing here in the water.&G" );
else if ( IS_AFFECTED(victim, AFF_FLOATING)
|| IS_AFFECTED(victim, AFF_FLYING) )
strcat( buf, "&P is hovering here.&G" );
else
strcat( buf, "&P is standing here.&G" );
break;
}
case POS_SHOVE: strcat( buf, " is being shoved around." ); break;
case POS_DRAG: strcat( buf, " is being dragged around." ); break;
case POS_MOUNTED:
{
strcat( buf, " is here, upon " );
if ( !victim->mount )
strcat( buf, "thin air???" );
else if ( victim->mount == ch )
strcat( buf, "your back." );
else if ( victim->in_room == victim->mount->in_room )
{
strcat( buf, PERS( victim->mount, ch ) );
strcat( buf, "." );
}
else
strcat( buf, "someone who left??" );
break;
}
case POS_FIGHTING:
{
strcat( buf, " is here, fighting " );
if ( !victim->fighting )
strcat( buf, "thin air???" );
else if ( who_fighting( victim ) == ch )
strcat( buf, "YOU!" );
else if ( victim->in_room == victim->fighting->who->in_room )
{
strcat( buf, PERS( victim->fighting->who, ch ) );
strcat( buf, "." );
}
else
strcat( buf, "someone who left??" );
break;
}
case POS_CARRIED:
{
strcat( buf, " is here, being carried by " );
if ( !victim->char_carriedby )
strcat( buf, "thin air???" );
else if ( victim->char_carriedby == ch )
strcat( buf, "you." );
else if ( victim->in_room == victim->char_carriedby->in_room )
{
strcat( buf, PERS( victim->char_carriedby, ch ) );
strcat( buf, "." );
}
else
strcat( buf, "someone who left??" );
break;
}
case POS_CARRYING:
{
strcat( buf, " is here, carrying " );
if ( !victim->char_carrying )
strcat( buf, "thin air???" );
else if ( victim->char_carrying == ch )
strcat( buf, "you." );
else if ( victim->in_room == victim->char_carrying->in_room )
{
strcat( buf, PERS( victim->char_carrying, ch ) );
strcat( buf, "." );
}
else
strcat( buf, "someone who left??" );
break;
}
}
strcat( buf, "\n\r" );
buf[0] = UPPER(buf[0]);
send_to_char( buf, ch );
show_visible_affects_to_char( victim, ch );
return;
}
void show_char_to_char_1( CHAR_DATA *victim, CHAR_DATA *ch )
{
OBJ_DATA *obj;
int iWear;
bool found;
if ( can_see( victim, ch ) )
{
act( AT_ACTION, "$n looks at you.", ch, NULL, victim, TO_VICT );
act( AT_ACTION, "$n looks at $N.", ch, NULL, victim, TO_NOTVICT );
}
if ( victim->description[0] != '\0' )
send_to_char( victim->description, ch );
else
act( AT_PLAIN, "You see nothing special about $M.", ch, NULL, victim, TO_CHAR );
show_race_line( ch, victim );
show_preg_line( ch, victim );
show_condition( ch, victim );
show_infect_line( ch, victim );
found = FALSE;
for ( iWear = 0; iWear < MAX_WEAR; iWear++ )
{
if ( ( obj = get_eq_char( victim, iWear ) ) != NULL
&& can_see_obj( ch, obj ) )
{
if ( !found )
{
send_to_char( "\n\r", ch );
if ( victim != ch )
act( AT_PLAIN, "$N is using:", ch, NULL, victim, TO_CHAR );
else
act( AT_PLAIN, "You are using:", ch, NULL, NULL, TO_CHAR );
found = TRUE;
}
send_to_char( where_name[iWear], ch );
send_to_char( format_obj_to_char( obj, ch, TRUE ), ch );
send_to_char( "\n\r", ch );
}
}
/*
* Crash fix here by Thoric
*/
if ( IS_NPC(ch) || victim == ch )
return;
if ( number_percent( ) < ch->pcdata->learned[gsn_peek] )
{
send_to_char( "\n\rYou peek at the inventory:\n\r", ch );
show_list_to_char( victim->first_carrying, ch, TRUE, TRUE );
learn_from_success( ch, gsn_peek );
}
else
if ( ch->pcdata->learned[gsn_peek] )
learn_from_failure( ch, gsn_peek );
return;
}
void show_char_to_char( CHAR_DATA *list, CHAR_DATA *ch )
{
CHAR_DATA *rch;
for ( rch = list; rch; rch = rch->next_in_room )
{
if ( rch == ch )
continue;
if ( can_see( ch, rch ) )
{
show_char_to_char_0( rch, ch );
}
else if ( rch->race == RACE_DEFEL )
{
set_char_color( AT_BLOOD, ch );
send_to_char( "You see a pair of red eyes staring back at you.\n\r", ch );
}
else if ( room_is_dark( ch->in_room )
&& IS_AFFECTED(rch, AFF_INFRARED ) )
{
set_char_color( AT_BLOOD, ch );
send_to_char( "The red form of a living creature is here.\n\r", ch );
}
}
return;
}
void show_ships_to_char( SHIP_DATA *ship, CHAR_DATA *ch )
{
SHIP_DATA *rship;
SHIP_DATA *nship=NULL;
for ( rship = ship; rship; rship = nship )
{
ch_printf( ch , "&C%s%-35s ", get_colortext(rship->color),rship->name );
if ( ( nship = rship->next_in_room ) !=NULL )
{
ch_printf( ch , "%s%-35s", get_colortext(nship->color),nship->name );
nship = nship->next_in_room;
}
ch_printf( ch, "\n\r&w");
}
return;
}
bool check_blind( CHAR_DATA *ch )
{
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_HOLYLIGHT) )
return TRUE;
if ( IS_AFFECTED(ch, AFF_TRUESIGHT) )
return TRUE;
if ( IS_AFFECTED(ch, AFF_BLIND) )
{
send_to_char( "You can't see a thing!\n\r", ch );
return FALSE;
}
return TRUE;
}
/*
* Returns classical DIKU door direction based on text in arg -Thoric
*/
int get_door( char *arg )
{
int door;
if ( !str_cmp( arg, "n" ) || !str_cmp( arg, "north" ) ) door = 0;
else if ( !str_cmp( arg, "e" ) || !str_cmp( arg, "east" ) ) door = 1;
else if ( !str_cmp( arg, "s" ) || !str_cmp( arg, "south" ) ) door = 2;
else if ( !str_cmp( arg, "w" ) || !str_cmp( arg, "west" ) ) door = 3;
else if ( !str_cmp( arg, "u" ) || !str_cmp( arg, "up" ) ) door = 4;
else if ( !str_cmp( arg, "d" ) || !str_cmp( arg, "down" ) ) door = 5;
else if ( !str_cmp( arg, "ne" ) || !str_cmp( arg, "northeast" ) ) door = 6;
else if ( !str_cmp( arg, "nw" ) || !str_cmp( arg, "northwest" ) ) door = 7;
else if ( !str_cmp( arg, "se" ) || !str_cmp( arg, "southeast" ) ) door = 8;
else if ( !str_cmp( arg, "sw" ) || !str_cmp( arg, "southwest" ) ) door = 9;
else door = -1;
return door;
}
void do_look( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
char arg1 [MAX_INPUT_LENGTH];
char arg2 [MAX_INPUT_LENGTH];
char arg3 [MAX_INPUT_LENGTH];
EXIT_DATA *pexit;
CHAR_DATA *victim;
OBJ_DATA *obj;
ROOM_INDEX_DATA *original;
char *pdesc;
bool doexaprog;
sh_int door;
int number, cnt;
if ( !ch->desc )
return;
if ( ch->position < POS_SLEEPING )
{
send_to_char( "You can't see anything but stars!\n\r", ch );
return;
}
if ( ch->position == POS_SLEEPING )
{
send_to_char( "You can't see anything, you're sleeping!\n\r", ch );
return;
}
if ( !check_blind( ch ) )
return;
if ( !IS_NPC(ch)
&& !IS_SET(ch->act, PLR_HOLYLIGHT)
&& !IS_AFFECTED(ch, AFF_TRUESIGHT)
&& room_is_dark( ch->in_room ) )
{
set_char_color( AT_DGREY, ch );
send_to_char( "It is pitch black ... \n\r", ch );
show_char_to_char( ch->in_room->first_person, ch );
return;
}
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
argument = one_argument( argument, arg3 );
doexaprog = str_cmp( "noprog", arg2 ) && str_cmp( "noprog", arg3 );
if ( arg1[0] == '\0' || !str_cmp( arg1, "auto" ) )
{
SHIP_DATA * ship;
/* 'look' or 'look auto' */
set_char_color( AT_RMNAME, ch);
if ( IS_SET( ch->act2, PCFLAG_MXP) )
ch_printf( ch, "\033[10z%s\033[0z",ch->in_room->name);
else
send_to_char( ch->in_room->name, ch);
send_to_char(" ", ch);
if ( ! ch->desc->original )
{
if ((get_trust(ch) >= LEVEL_IMMORTAL) && (IS_SET(ch->pcdata->flags, PCFLAG_ROOMVNUM)))
{
set_char_color(AT_BLUE, ch); /* Added 10/17 by Kuran of */
send_to_char("{", ch); /* SWReality */
if ( IS_SET( ch->act2, PCFLAG_MXP) )
ch_printf( ch, "\033[0z<RNum>%d\033[0z</RNum>",ch->in_room->vnum);
else
ch_printf(ch, "%d", ch->in_room->vnum);
send_to_char("}", ch);
}
if ((get_trust(ch) >= LEVEL_IMMORTAL) && (IS_SET(ch->pcdata->flags, PCFLAG_ROOM)))
{
set_char_color(AT_CYAN, ch);
send_to_char("[", ch);
send_to_char(ext_flag_string(&ch->in_room->room_flags, r_flags), ch);
send_to_char("]", ch);
}
}
send_to_char( "\n\r", ch );
set_char_color( AT_RMNAME, ch);
set_char_color( AT_RMDESC, ch );
if ( arg1[0] == '\0' || ( !IS_NPC(ch) && !IS_SET(ch->act, PLR_BRIEF) ) )
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
ch_printf( ch, "\033[11z%s\033[0z",ch->in_room->description);
else
send_to_char( ch->in_room->description, ch );
}
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_AUTOEXIT) )
do_exits( ch, "" );
if ( str_cmp( arg1, "auto" ) )
show_ships_to_char( ch->in_room->first_ship, ch );
show_list_to_char( ch->in_room->first_content, ch, FALSE, FALSE );
show_char_to_char( ch->in_room->first_person, ch );
if ( str_cmp( arg1, "auto" ) )
if ( (ship = ship_from_cockpit(ch->in_room->vnum)) != NULL )
{
set_char_color( AT_WHITE, ch );
ch_printf( ch , "\n\rThrough the transparisteel windows you see:\n\r" );
if (ship->starsystem)
{
MISSILE_DATA *missile;
SHIP_DATA *target;
set_char_color( AT_GREEN, ch );
if ( ship->starsystem->star1 && str_cmp(ship->starsystem->star1,"") )
ch_printf(ch, "&Y%s\n\r" ,
ship->starsystem->star1);
if ( ship->starsystem->star2 && str_cmp(ship->starsystem->star2,"") )
ch_printf(ch, "&Y%s\n\r" ,
ship->starsystem->star2 );
if ( ship->starsystem->planet1 && str_cmp(ship->starsystem->planet1,"") )
ch_printf(ch, "&G%s\n\r" ,
ship->starsystem->planet1 );
if ( ship->starsystem->planet2 && str_cmp(ship->starsystem->planet2,"") )
ch_printf(ch, "&G%s\n\r" ,
ship->starsystem->planet2 );
if ( ship->starsystem->planet3 && str_cmp(ship->starsystem->planet3,"") )
ch_printf(ch, "&G%s\n\r" ,
ship->starsystem->planet3 );
for ( target = ship->starsystem->first_ship; target; target = target->next_in_starsystem )
{
if ( target != ship )
ch_printf(ch, "&Y%s\n\r",
target->name);
}
for ( missile = ship->starsystem->first_missile; missile; missile = missile->next_in_starsystem )
{
ch_printf(ch, "&R%s\n\r",
missile->missiletype == CONCUSSION_MISSILE ? "A Concusion Missile" :
( missile->missiletype == PROTON_TORPEDO ? "A Torpedo" :
( missile->missiletype == HEAVY_ROCKET ? "A Heavy Rocket" : "A Heavy Bomb" ) ) );
}
}
else if ( ship->location == ship->lastdoc )
{
ROOM_INDEX_DATA *to_room;
if ( (to_room = get_room_index( ship->location ) ) != NULL )
{
ch_printf( ch, "\n\r" );
original = ch->in_room;
char_from_room( ch );
char_to_room( ch, to_room );
do_glance( ch, "" );
char_from_room( ch );
char_to_room( ch, original );
}
}
}
return;
}
if ( !str_cmp( arg1, "under" ) )
{
int count;
/* 'look under' */
if ( arg2[0] == '\0' )
{
send_to_char( "Look beneath what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg2 ) ) == NULL )
{
send_to_char( "You do not see that here.\n\r", ch );
return;
}
if ( ch->carry_weight + obj->weight > can_carry_w( ch ) )
{
send_to_char( "It's too heavy for you to look under.\n\r", ch );
return;
}
count = obj->count;
obj->count = 1;
act( AT_PLAIN, "You lift $p and look beneath it:", ch, obj, NULL, TO_CHAR );
act( AT_PLAIN, "$n lifts $p and looks beneath it:", ch, obj, NULL, TO_ROOM );
obj->count = count;
if ( IS_OBJ_STAT( obj, ITEM_COVERING ) )
show_list_to_char( obj->first_content, ch, TRUE, TRUE );
else
send_to_char( "Nothing.\n\r", ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
if ( !str_cmp( arg1, "i" ) || !str_cmp( arg1, "in" ) )
{
int count;
/* 'look in' */
if ( arg2[0] == '\0' )
{
send_to_char( "Look in what?\n\r", ch );
return;
}
if ( ( obj = get_obj_here( ch, arg2 ) ) == NULL )
{
send_to_char( "You do not see that here.\n\r", ch );
return;
}
switch ( obj->item_type )
{
default:
send_to_char( "That is not a container.\n\r", ch );
break;
case ITEM_DRINK_CON:
if ( obj->value[1] <= 0 )
{
send_to_char( "It is empty.\n\r", ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
break;
}
ch_printf( ch, "It's %s full of a %s liquid.\n\r",
obj->value[1] < obj->value[0] / 4
? "less than" :
obj->value[1] < 3 * obj->value[0] / 4
? "about" : "more than",
liq_table[obj->value[2]].liq_color
);
if ( doexaprog ) oprog_examine_trigger( ch, obj );
break;
case ITEM_CONTAINER:
case ITEM_CORPSE_NPC:
case ITEM_CORPSE_PC:
case ITEM_DROID_CORPSE:
if ( IS_SET(obj->value[1], CONT_CLOSED) )
{
send_to_char( "It is closed.\n\r", ch );
break;
}
count = obj->count;
obj->count = 1;
act( AT_PLAIN, "$p contains:", ch, obj, NULL, TO_CHAR );
obj->count = count;
show_list_to_char( obj->first_content, ch, TRUE, TRUE );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
break;
}
return;
}
if ( (pdesc=get_extra_descr(arg1, ch->in_room->first_extradesc)) != NULL )
{
send_to_char( pdesc, ch );
return;
}
door = get_door( arg1 );
if ( ( pexit = find_door( ch, arg1, TRUE ) ) != NULL )
{
if ( pexit->keyword )
{
if ( IS_SET(pexit->exit_info, EX_CLOSED)
&& !IS_SET(pexit->exit_info, EX_WINDOW) )
{
if ( IS_SET(pexit->exit_info, EX_SECRET)
&& door != -1 )
send_to_char( "Nothing special there.\n\r", ch );
else
act( AT_PLAIN, "The $d is closed.", ch, NULL, pexit->keyword, TO_CHAR );
return;
}
if ( IS_SET( pexit->exit_info, EX_BASHED ) )
act(AT_RED, "The $d has been bashed from its hinges!",ch, NULL, pexit->keyword, TO_CHAR);
}
if ( pexit->description && pexit->description[0] != '\0' )
send_to_char( pexit->description, ch );
else
send_to_char( "Nothing special there.\n\r", ch );
/*
* Ability to look into the next room -Thoric
*/
if ( pexit->to_room
&& ( IS_AFFECTED( ch, AFF_SCRYING )
|| IS_SET( pexit->exit_info, EX_xLOOK )
|| get_trust(ch) >= LEVEL_IMMORTAL ) )
{
if ( !IS_SET( pexit->exit_info, EX_xLOOK )
&& get_trust( ch ) < LEVEL_IMMORTAL )
{
set_char_color( AT_MAGIC, ch );
send_to_char( "You attempt to scry...\n\r", ch );
/* Change by Narn, Sept 96 to allow characters who don't have the
scry spell to benefit from objects that are affected by scry.
*/
if (!IS_NPC(ch) )
{
int percent = ch->pcdata->learned[ skill_lookup("scry") ];
if ( !percent )
percent = 99;
if( number_percent( ) > percent )
{
send_to_char( "You fail.\n\r", ch );
return;
}
}
}
if ( room_is_private( ch,pexit->to_room )
&& get_trust(ch) < sysdata.level_override_private )
{
set_char_color( AT_WHITE, ch );
send_to_char( "That room is private buster!\n\r", ch );
return;
}
original = ch->in_room;
if ( pexit->distance > 1 )
{
ROOM_INDEX_DATA * to_room;
if ( (to_room=generate_exit(ch->in_room, &pexit)) != NULL )
{
char_from_room( ch );
char_to_room( ch, to_room );
}
else
{
char_from_room( ch );
char_to_room( ch, pexit->to_room );
}
}
else
{
char_from_room( ch );
char_to_room( ch, pexit->to_room );
}
do_look( ch, "auto" );
char_from_room( ch );
char_to_room( ch, original );
}
return;
}
else
if ( door != -1 )
{
send_to_char( "Nothing special there.\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg1 ) ) != NULL )
{
show_char_to_char_1( victim, ch );
return;
}
/* finally fixed the annoying look 2.obj desc bug -Thoric */
number = number_argument( arg1, arg );
for ( cnt = 0, obj = ch->last_carrying; obj; obj = obj->prev_content )
{
if ( can_see_obj( ch, obj ) )
{
if ( (pdesc=get_extra_descr(arg, obj->first_extradesc)) != NULL )
{
if ( (cnt += obj->count) < number )
continue;
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
if ( (pdesc=get_extra_descr(arg, obj->pIndexData->first_extradesc)) != NULL )
{
if ( (cnt += obj->count) < number )
continue;
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
if ( nifty_is_name_prefix( arg, obj->name ) )
{
if ( (cnt += obj->count) < number )
continue;
pdesc = get_extra_descr( obj->name, obj->pIndexData->first_extradesc );
if ( !pdesc )
pdesc = get_extra_descr( obj->name, obj->first_extradesc );
if ( !pdesc )
send_to_char( "You see nothing special.\r\n", ch );
else
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
}
}
for ( obj = ch->in_room->last_content; obj; obj = obj->prev_content )
{
if ( can_see_obj( ch, obj ) )
{
if ( (pdesc=get_extra_descr(arg, obj->first_extradesc)) != NULL )
{
if ( (cnt += obj->count) < number )
continue;
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
if ( (pdesc=get_extra_descr(arg, obj->pIndexData->first_extradesc)) != NULL )
{
if ( (cnt += obj->count) < number )
continue;
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
if ( nifty_is_name_prefix( arg, obj->name ) )
{
if ( (cnt += obj->count) < number )
continue;
pdesc = get_extra_descr( obj->name, obj->pIndexData->first_extradesc );
if ( !pdesc )
pdesc = get_extra_descr( obj->name, obj->first_extradesc );
if ( !pdesc )
send_to_char( "You see nothing special.\r\n", ch );
else
send_to_char( pdesc, ch );
if ( doexaprog ) oprog_examine_trigger( ch, obj );
return;
}
}
}
send_to_char( "You do not see that here.\n\r", ch );
return;
}
void show_preg_line( CHAR_DATA *ch, CHAR_DATA *victim )
{
char buf[MAX_STRING_LENGTH];
int days = 0;
if ( victim->sex != SEX_FEMALE )
return;
if ( IS_SET(victim->act2,EXTRA_PREGNANT) )
days = check_preg(victim);
else
return;
if ( !IS_NPC(victim) && (victim != ch) && days >= 120)
{
sprintf( buf, "%s looks like she could be pregnant.\n\r", PERS(victim, ch) );
send_to_char( buf, ch);
if ( days >= 240 )
{
sprintf( buf, "%s looks like her back is killing her... Maybe you want to offer her a seat\n\r",
PERS(victim,ch) );
send_to_char(buf, ch);
}
return;
}
if ( !IS_NPC(victim) && (victim == ch) && days >= 120 )
{
sprintf( buf, "You look like you could be pregnant.\n\r" );
send_to_char( buf, ch);
return;
}
return;
}
void show_race_line( CHAR_DATA *ch, CHAR_DATA *victim )
{
char buf[MAX_STRING_LENGTH];
int feet, inches;
if ( !IS_NPC(victim) && (victim != ch) )
{
feet = victim->height / 12;
inches = victim->height % 12;
sprintf( buf, "%s is %d'%d\" and weighs %d pounds.\n\r", PERS(victim, ch), feet, inches, victim->weight );
send_to_char( buf, ch);
return;
}
if ( !IS_NPC(victim) && (victim == ch) )
{
feet = victim->height / 12;
inches = victim->height % 12;
sprintf( buf, "You are %d'%d\" and weigh %d pounds.\n\r", feet, inches, victim->weight );
send_to_char( buf, ch);
return;
}
}
void show_condition( CHAR_DATA *ch, CHAR_DATA *victim )
{
char buf[MAX_STRING_LENGTH];
int percent;
if ( victim->max_hit > 0 )
percent = ( 100 * victim->hit ) / victim->max_hit;
else
percent = -1;
strcpy( buf, PERS(victim, ch) );
if ( IS_NPC ( victim ) && IS_SET( victim->act , ACT_DROID ) )
{
if ( percent >= 100 ) strcat( buf, " is in perfect condition.\n\r" );
else if ( percent >= 90 ) strcat( buf, " is slightly scratched.\n\r" );
else if ( percent >= 80 ) strcat( buf, " has a few scrapes.\n\r" );
else if ( percent >= 70 ) strcat( buf, " has some dents.\n\r" );
else if ( percent >= 60 ) strcat( buf, " has a couple holes in its plating.\n\r" );
else if ( percent >= 50 ) strcat( buf, " has a many broken pieces.\n\r" );
else if ( percent >= 40 ) strcat( buf, " has many exposed circuits.\n\r" );
else if ( percent >= 30 ) strcat( buf, " is leaking oil.\n\r" );
else if ( percent >= 20 ) strcat( buf, " has smoke coming out of it.\n\r" );
else if ( percent >= 10 ) strcat( buf, " is almost completely broken.\n\r" );
else strcat( buf, " is about to EXPLODE.\n\r" );
}
else
{
if ( percent >= 100 ) strcat( buf, " is in perfect health.\n\r" );
else if ( percent >= 90 ) strcat( buf, " is slightly scratched.\n\r" );
else if ( percent >= 80 ) strcat( buf, " has a few bruises.\n\r" );
else if ( percent >= 70 ) strcat( buf, " has some cuts.\n\r" );
else if ( percent >= 60 ) strcat( buf, " has several wounds.\n\r" );
else if ( percent >= 50 ) strcat( buf, " has many nasty wounds.\n\r" );
else if ( percent >= 40 ) strcat( buf, " is bleeding freely.\n\r" );
else if ( percent >= 30 ) strcat( buf, " is covered in blood.\n\r" );
else if ( percent >= 20 ) strcat( buf, " is leaking guts.\n\r" );
else if ( percent >= 10 ) strcat( buf, " is almost dead.\n\r" );
else strcat( buf, " is DYING.\n\r" );
}
buf[0] = UPPER(buf[0]);
send_to_char( buf, ch );
return;
}
/* A much simpler version of look, this function will show you only
the condition of a mob or pc, or if used without an argument, the
same you would see if you enter the room and have config +brief.
-- Narn, winter '96
*/
void do_glance( CHAR_DATA *ch, char *argument )
{
char arg1 [MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int save_act;
if ( !ch->desc )
return;
if ( ch->position < POS_SLEEPING )
{
send_to_char( "You can't see anything but stars!\n\r", ch );
return;
}
if ( ch->position == POS_SLEEPING )
{
send_to_char( "You can't see anything, you're sleeping!\n\r", ch );
return;
}
if ( !check_blind( ch ) )
return;
argument = one_argument( argument, arg1 );
if ( arg1[0] == '\0' )
{
save_act = ch->act;
SET_BIT( ch->act, PLR_BRIEF );
do_look( ch, "auto" );
ch->act = save_act;
return;
}
if ( ( victim = get_char_room( ch, arg1 ) ) == NULL )
{
send_to_char( "They're not here.", ch );
return;
}
else
{
if ( can_see( victim, ch ) )
{
act( AT_ACTION, "$n glances at you.", ch, NULL, victim, TO_VICT );
act( AT_ACTION, "$n glances at $N.", ch, NULL, victim, TO_NOTVICT );
}
show_condition( ch, victim );
return;
}
return;
}
void do_examine( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
BOARD_DATA *board;
sh_int dam;
if ( !argument )
{
bug( "do_examine: null argument.", 0);
return;
}
if ( !ch )
{
bug( "do_examine: null ch.", 0);
return;
}
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Examine what?\n\r", ch );
return;
}
sprintf( buf, "%s noprog", arg );
do_look( ch, buf );
/*
* Support for looking at boards, checking equipment conditions,
* and support for trigger positions by Thoric
*/
if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
{
if ( (board = get_board( obj )) != NULL )
{
if ( board->num_posts )
ch_printf( ch, "There are about %d notes posted here. Type 'note list' to list them.\n\r", board->num_posts );
else
send_to_char( "There aren't any notes posted here.\n\r", ch );
}
switch ( obj->item_type )
{
default:
break;
case ITEM_ARMOR:
if ( obj->value[1] == 0 )
obj->value[1] = obj->value[0];
if ( obj->value[1] == 0 )
obj->value[1] = 1;
dam = (sh_int) ((obj->value[0] * 10) / obj->value[1]);
strcpy( buf, "As you look more closely, you notice that it is ");
if (dam >= 10) strcat( buf, "in superb condition.");
else if (dam == 9) strcat( buf, "in very good condition.");
else if (dam == 8) strcat( buf, "in good shape.");
else if (dam == 7) strcat( buf, "showing a bit of wear.");
else if (dam == 6) strcat( buf, "a little run down.");
else if (dam == 5) strcat( buf, "in need of repair.");
else if (dam == 4) strcat( buf, "in great need of repair.");
else if (dam == 3) strcat( buf, "in dire need of repair.");
else if (dam == 2) strcat( buf, "very badly worn.");
else if (dam == 1) strcat( buf, "practically worthless.");
else if (dam <= 0) strcat( buf, "broken.");
strcat( buf, "\n\r" );
send_to_char( buf, ch );
break;
case ITEM_WEAPON:
dam = INIT_WEAPON_CONDITION - obj->value[0];
strcpy( buf, "As you look more closely, you notice that it is ");
if (dam == 0) strcat( buf, "in superb condition.");
else if (dam == 1) strcat( buf, "in excellent condition.");
else if (dam == 2) strcat( buf, "in very good condition.");
else if (dam == 3) strcat( buf, "in good shape.");
else if (dam == 4) strcat( buf, "showing a bit of wear.");
else if (dam == 5) strcat( buf, "a little run down.");
else if (dam == 6) strcat( buf, "in need of repair.");
else if (dam == 7) strcat( buf, "in great need of repair.");
else if (dam == 8) strcat( buf, "in dire need of repair.");
else if (dam == 9) strcat( buf, "very badly worn.");
else if (dam == 10) strcat( buf, "practically worthless.");
else if (dam == 11) strcat( buf, "almost broken.");
else if (dam == 12) strcat( buf, "broken.");
strcat( buf, "\n\r" );
send_to_char( buf, ch );
if (obj->value[3] == WEAPON_BLASTER )
{
if (obj->blaster_setting == BLASTER_FULL)
ch_printf( ch, "It is set on FULL power.\n\r");
else if (obj->blaster_setting == BLASTER_HIGH)
ch_printf( ch, "It is set on HIGH power.\n\r");
else if (obj->blaster_setting == BLASTER_NORMAL)
ch_printf( ch, "It is set on NORMAL power.\n\r");
else if (obj->blaster_setting == BLASTER_HALF)
ch_printf( ch, "It is set on HALF power.\n\r");
else if (obj->blaster_setting == BLASTER_LOW)
ch_printf( ch, "It is set on LOW power.\n\r");
else if (obj->blaster_setting == BLASTER_STUN)
ch_printf( ch, "It is set on STUN.\n\r");
ch_printf( ch, "It has from %d to %d shots remaining.\n\r", obj->value[4]/5 , obj->value[4] );
}
else if ( ( obj->value[3] == WEAPON_LIGHTSABER ||
obj->value[3] == WEAPON_VIBRO_BLADE ||
obj->value[3] == WEAPON_FORCE_PIKE ) )
{
ch_printf( ch, "It has %d/%d units of charge remaining.\n\r", obj->value[4] , obj->value[5] );
}
break;
case ITEM_FOOD:
if ( obj->timer > 0 && obj->value[1] > 0 )
dam = (obj->timer * 10) / obj->value[1];
else
dam = 10;
strcpy( buf, "As you examine it carefully you notice that it " );
if (dam >= 10) strcat( buf, "is fresh.");
else if (dam == 9) strcat( buf, "is nearly fresh.");
else if (dam == 8) strcat( buf, "is perfectly fine.");
else if (dam == 7) strcat( buf, "looks good.");
else if (dam == 6) strcat( buf, "looks ok.");
else if (dam == 5) strcat( buf, "is a little stale.");
else if (dam == 4) strcat( buf, "is a bit stale.");
else if (dam == 3) strcat( buf, "smells slightly off.");
else if (dam == 2) strcat( buf, "smells quite rank.");
else if (dam == 1) strcat( buf, "smells revolting.");
else if (dam <= 0) strcat( buf, "is crawling with maggots.");
strcat( buf, "\n\r" );
send_to_char( buf, ch );
break;
case ITEM_BUTTON:
if ( IS_SET( obj->value[0], TRIG_UP ) )
send_to_char( "You notice that it is depressed.\n\r", ch );
else
send_to_char( "You notice that it is not depressed.\n\r", ch );
break;
case ITEM_CORPSE_PC:
case ITEM_CORPSE_NPC:
{
sh_int timerfrac = obj->timer;
if ( obj->item_type == ITEM_CORPSE_PC )
timerfrac = (int)obj->timer / 8 + 1;
switch (timerfrac)
{
default:
send_to_char( "This corpse has recently been slain.\n\r", ch );
break;
case 4:
send_to_char( "This corpse was slain a little while ago.\n\r", ch );
break;
case 3:
send_to_char( "A foul smell rises from the corpse, and it is covered in flies.\n\r", ch );
break;
case 2:
send_to_char( "A writhing mass of maggots and decay, you can barely go near this corpse.\n\r", ch );
break;
case 1:
case 0:
send_to_char( "Little more than bones, there isn't much left of this corpse.\n\r", ch );
break;
}
}
if ( IS_OBJ_STAT( obj, ITEM_COVERING ) )
break;
send_to_char( "When you look inside, you see:\n\r", ch );
sprintf( buf, "in %s noprog", arg );
do_look( ch, buf );
break;
case ITEM_DROID_CORPSE:
{
sh_int timerfrac = obj->timer;
switch (timerfrac)
{
default:
send_to_char( "These remains are still smoking.\n\r", ch );
break;
case 4:
send_to_char( "The parts of this droid have cooled down completely.\n\r", ch );
break;
case 3:
send_to_char( "The broken droid components are beginning to rust.\n\r", ch );
break;
case 2:
send_to_char( "The pieces are completely covered in rust.\n\r", ch );
break;
case 1:
case 0:
send_to_char( "All that remains of it is a pile of crumbling rust.\n\r", ch );
break;
}
}
case ITEM_CONTAINER:
if ( IS_OBJ_STAT( obj, ITEM_COVERING ) )
break;
case ITEM_DRINK_CON:
case ITEM_KEYRING:
sprintf( buf, "in %s noprog", arg );
do_look( ch, buf );
break;
}
if ( IS_OBJ_STAT( obj, ITEM_COVERING ) )
{
sprintf( buf, "under %s noprog", arg );
do_look( ch, buf );
}
oprog_examine_trigger( ch, obj );
if ( char_died(ch) || obj_extracted(obj) )
return;
}
return;
}
void do_exits( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
EXIT_DATA *pexit;
bool found;
bool fAuto;
int x;
set_char_color( AT_EXITS, ch );
buf[0] = '\0';
fAuto = !str_cmp( argument, "auto" );
if ( !check_blind( ch ) )
return;
strcpy( buf, fAuto ? "Exits:" : "Obvious exits:\n\r" );
found = FALSE;
for( x = 0 ; x < 13 ; x++)
sprintf( buf + strlen(buf),"&R-" );
sprintf( buf + strlen(buf),"\n\r&G&W" );
for ( pexit = ch->in_room->first_exit; pexit; pexit = pexit->next )
{
if ( pexit->to_room
&& !IS_SET(pexit->exit_info, EX_HIDDEN) )
{
found = TRUE;
if ( !fAuto )
{
if ( IS_SET(pexit->exit_info, EX_CLOSED) )
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
sprintf( buf + strlen(buf), "\033[12z%-5s\033[0z &B-&W (closed)\n\r",
capitalize( dir_name[pexit->vdir] ) );
else
sprintf( buf + strlen(buf), "%-5s &B-&W (closed)\n\r",
capitalize( dir_name[pexit->vdir] ) );
}
else if ( IS_SET(pexit->exit_info, EX_WINDOW) )
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
sprintf( buf + strlen(buf), "\033[12z%-5s\033[0z &B-&W (window)\n\r",
capitalize( dir_name[pexit->vdir] ) );
else
sprintf( buf + strlen(buf), "%-5s &B-&W (window)\n\r",
capitalize( dir_name[pexit->vdir] ) );
}
else if ( IS_SET(pexit->exit_info, EX_xAUTO) )
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
sprintf( buf + strlen(buf), "\033[12z%-5s\033[0z &B-&W %s\n\r",
capitalize( pexit->keyword ),
room_is_dark( pexit->to_room ) ? "Too dark to tell" :
pexit->to_room->name );
else
sprintf( buf + strlen(buf), "%-5s &B-&W %s\n\r",
capitalize( pexit->keyword ),
room_is_dark( pexit->to_room )
? "Too dark to tell" :
pexit->to_room->name );
}
else
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
sprintf( buf + strlen(buf), "\033[12z%-5s\033[0z &B-&W %s\n\r",
capitalize( dir_name[pexit->vdir] ),
room_is_dark( pexit->to_room )
? "Too dark to tell"
: pexit->to_room->name );
else
sprintf( buf + strlen(buf), "%-5s &B-&W %s\n\r",
capitalize( dir_name[pexit->vdir] ),
room_is_dark( pexit->to_room )
? "Too dark to tell"
: pexit->to_room->name );
}
}
else
{
if ( IS_SET( ch->act2, PCFLAG_MXP) )
sprintf( buf + strlen(buf), "\033[12z %s\033[0z",
capitalize( dir_name[pexit->vdir] ) );
else
sprintf( buf + strlen(buf), " %s",
capitalize( dir_name[pexit->vdir] ) );
}
}
}
if ( !found )
strcat( buf, fAuto ? " none.\n\r" : "None.\n\r" );
else
if ( fAuto )
strcat( buf, ".\n\r" );
send_to_char( buf, ch );
return;
}
char * const day_name [] =
{
"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
};
char * const month_name [] =
{
"January", "February", "March", "April",
"May", "June", "July", "August", "September",
"October", "November", "December"
};
void do_time( CHAR_DATA *ch, char *argument )
{
char *suf;
int day;
day = time_info.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";
set_char_color( AT_YELLOW, ch );
ch_printf( ch,
"It is %d o'clock %s on %s %s the %d%s.\n\r",
(time_info.hour % 12 == 0) ? 12 : time_info.hour % 12,
time_info.hour >= 12 ? "pm" : "am",
day_name[day % 7],
month_name[time_info.month],
day, suf
);
return;
}
void do_uptime( CHAR_DATA *ch, char *argument )
{
extern char str_boot_time[];
extern char reboot_time[];
set_char_color( AT_YELLOW, ch );
ch_printf( ch,
"The mud started up at: %s\r"
"The system time (PST): %s\r"
"Next Reboot is set for: %s\r",
str_boot_time,
(char *) ctime( ¤t_time ),
reboot_time
);
return;
}
/*
* Produce a description of the weather based on area weather using
* the following sentence format:
* <combo-phrase> and <single-phrase>.
* Where the combo-phrase describes either the precipitation and
* temperature or the wind and temperature. The single-phrase
* describes either the wind or precipitation depending upon the
* combo-phrase.
* Last Modified: July 31, 1997
* Fireblade - Under Construction
*/
void do_weather(CHAR_DATA *ch, char *argument)
{
char *combo, *single;
char buf[MAX_INPUT_LENGTH];
int temp, precip, wind;
if ( !IS_OUTSIDE(ch) )
{
ch_printf(ch, "You can't see the sky from here.\n\r");
return;
}
temp = (ch->in_room->area->weather->temp + 3*weath_unit - 1)/
weath_unit;
precip = (ch->in_room->area->weather->precip + 3*weath_unit - 1)/
weath_unit;
wind = (ch->in_room->area->weather->wind + 3*weath_unit - 1)/
weath_unit;
if ( precip >= 3 )
{
combo = preciptemp_msg[precip][temp];
single = wind_msg[wind];
}
else
{
combo = windtemp_msg[wind][temp];
single = precip_msg[precip];
}
sprintf(buf, "%s and %s.\n\r", combo, single);
set_char_color(AT_BLUE, ch);
ch_printf(ch, buf);
}
/*
* Moved into a separate function so it can be used for other things
* ie: online help editing -Thoric
*/
HELP_DATA *get_help( CHAR_DATA *ch, char *argument )
{
char argall[MAX_INPUT_LENGTH];
char argone[MAX_INPUT_LENGTH];
char argnew[MAX_INPUT_LENGTH];
HELP_DATA *pHelp;
int lev;
if ( argument[0] == '\0' )
argument = "summary";
if ( isdigit(argument[0]) )
{
lev = number_argument( argument, argnew );
argument = argnew;
}
else
lev = -2;
/*
* Tricky argument handling so 'help a b' doesn't match a.
*/
argall[0] = '\0';
while ( argument[0] != '\0' )
{
argument = one_argument( argument, argone );
if ( argall[0] != '\0' )
strcat( argall, " " );
strcat( argall, argone );
}
for ( pHelp = first_help; pHelp; pHelp = pHelp->next )
{
if ( pHelp->level > get_trust( ch ) )
continue;
if ( lev != -2 && pHelp->level != lev )
continue;
if ( is_name( argall, pHelp->keyword ) )
return pHelp;
}
return NULL;
}
/*
* Now this is cleaner
*/
void do_help( CHAR_DATA *ch, char *argument )
{
HELP_DATA *pHelp;
char nohelp[MAX_STRING_LENGTH];
strcpy(nohelp, argument); /* For Finding "needed" helpfiles */
if ( argument[0] == '\0' )
{
do_help(ch,"newbie");
return;
}
if ( (pHelp = get_help( ch, argument )) == NULL )
{
send_to_char( "No help on that word.\n\r", ch );
append_file( ch, HELP_FILE, nohelp ); /*Makes a Huge File, And hardly gets Checked - Gavin Oct 26 2000 */
return;
}
/* Make newbies do a help start. --Shaddai */
if ( !IS_NPC(ch) && !str_cmp( argument, "start" ) )
SET_BIT(ch->pcdata->flags, PCFLAG_HELPSTART);
if ( pHelp->level >= 0 && str_cmp( argument, "imotd" ) )
{
send_to_pager( pHelp->keyword, ch );
send_to_pager( "\n\r", ch );
}
if ( !IS_NPC(ch) && IS_SET( ch->act , PLR_SOUND ) )
send_to_pager( "!!SOUND(help)", ch );
/*
* Strip leading '.' to allow initial blanks.
*/
if ( pHelp->text[0] == '.' )
send_to_pager_color( pHelp->text+1, ch );
else
send_to_pager_color( pHelp->text , ch );
return;
}
/*
* Help editor -Thoric
*/
void do_hedit( CHAR_DATA *ch, char *argument )
{
HELP_DATA *pHelp;
if ( !ch->desc )
{
send_to_char( "You have no descriptor.\n\r", ch );
return;
}
switch( ch->substate )
{
default:
break;
case SUB_HELP_EDIT:
if ( (pHelp = ch->dest_buf) == NULL )
{
bug( "hedit: sub_help_edit: NULL ch->dest_buf", 0 );
stop_editing( ch );
return;
}
STRFREE( pHelp->text );
pHelp->text = copy_buffer( ch );
stop_editing( ch );
return;
}
if ( (pHelp = get_help( ch, argument )) == NULL ) /* new help */
{
char argnew[MAX_INPUT_LENGTH];
int lev;
if ( isdigit(argument[0]) )
{
lev = number_argument( argument, argnew );
argument = argnew;
}
else
lev = get_trust(ch);
CREATE( pHelp, HELP_DATA, 1 );
pHelp->keyword = STRALLOC( strupper(argument) );
pHelp->text = STRALLOC( "" );
pHelp->level = lev;
add_help( pHelp );
}
ch->substate = SUB_HELP_EDIT;
ch->dest_buf = pHelp;
start_editing( ch, pHelp->text );
}
/*
* Stupid leading space muncher fix -Thoric
*/
char *help_fix( char *text )
{
char *fixed;
if ( !text )
return "";
fixed = strip_cr(text);
if ( fixed[0] == ' ' )
fixed[0] = '.';
return fixed;
}
void do_hset( CHAR_DATA *ch, char *argument )
{
HELP_DATA *pHelp;
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
smash_tilde( argument );
argument = one_argument( argument, arg1 );
if ( arg1[0] == '\0' )
{
send_to_char( "Syntax: hset <field> [value] [help page]\n\r", ch );
send_to_char( "\n\r", ch );
send_to_char( "Field being one of:\n\r", ch );
send_to_char( " level keyword remove save\n\r", ch );
return;
}
if ( !str_cmp( arg1, "save" ) )
{
FILE *fpout;
log_string_plus( "Saving help.are...", LOG_NORMAL, LEVEL_GREATER );
rename( "help.are", "help.are.bak" );
fclose( fpReserve );
if ( ( fpout = fopen( "help.are", "w" ) ) == NULL )
{
bug( "hset save: fopen", 0 );
perror( "help.are" );
fpReserve = fopen( NULL_FILE, "r" );
return;
}
fprintf( fpout, "#HELPS\n\n" );
for ( pHelp = first_help; pHelp; pHelp = pHelp->next )
fprintf( fpout, "%d %s~\n%s~\n\n",
pHelp->level, pHelp->keyword, help_fix(pHelp->text) );
fprintf( fpout, "0 $~\n\n\n#$\n" );
fclose( fpout );
fpReserve = fopen( NULL_FILE, "r" );
send_to_char( "Saved.\n\r", ch );
return;
}
if ( str_cmp( arg1, "remove" ) )
argument = one_argument( argument, arg2 );
if ( (pHelp = get_help( ch, argument )) == NULL )
{
send_to_char( "Cannot find help on that subject.\n\r", ch );
return;
}
if ( !str_cmp( arg1, "remove" ) )
{
UNLINK( pHelp, first_help, last_help, next, prev );
STRFREE( pHelp->text );
STRFREE( pHelp->keyword );
DISPOSE( pHelp );
send_to_char( "Removed.\n\r", ch );
return;
}
if ( !str_cmp( arg1, "level" ) )
{
pHelp->level = atoi( arg2 );
send_to_char( "Done.\n\r", ch );
return;
}
if ( !str_cmp( arg1, "keyword" ) )
{
STRFREE( pHelp->keyword );
pHelp->keyword = STRALLOC( strupper(arg2) );
send_to_char( "Done.\n\r", ch );
return;
}
do_hset( ch, "" );
}
/*
* Show help topics in a level range -Thoric
* Idea suggested by Gorog
*/
void do_hlist( CHAR_DATA *ch, char *argument )
{
int min, max, minlimit, maxlimit, cnt;
char arg[MAX_INPUT_LENGTH];
HELP_DATA *help;
bool minfound, maxfound;
char *idx;
maxlimit = get_trust(ch);
minlimit = maxlimit >= LEVEL_GREATER ? -1 : 0;
min = minlimit;
max = maxlimit;
idx = NULL;
minfound = FALSE;
maxfound = FALSE;
for ( argument = one_argument(argument, arg); arg[0] != '\0';
argument = one_argument(argument, arg))
{
if( !isdigit(arg[0]) )
{
if ( idx )
{
set_char_color(AT_GREEN, ch);
ch_printf(ch, "You may only use a single keyword to index the list.\n\r");
return;
}
idx = STRALLOC(arg);
}
else
{
if ( !minfound )
{
min = URANGE(minlimit, atoi(arg), maxlimit);
minfound = TRUE;
}
else
if ( !maxfound )
{
max = URANGE(minlimit, atoi(arg), maxlimit);
maxfound = TRUE;
}
else
{
set_char_color(AT_GREEN, ch);
ch_printf(ch, "You may only use two level limits.\n\r");
return;
}
}
}
if ( min > max )
{
int temp = min;
min = max;
max = temp;
}
set_pager_color( AT_GREEN, ch );
pager_printf( ch, "&WHelp Topics in level range &B%d &Wto &B%d&W:\n\r\n\r", min, max );
for ( cnt = 0, help = first_help; help; help = help->next )
if ( help->level >= min && help->level <= max
&& (!idx || nifty_is_name_prefix(idx, help->keyword)) )
{
pager_printf( ch, "&B[&W%3.3d&B] &B[&W%70.70s&B]\n\r", help->level, help->keyword );
++cnt;
}
if ( cnt )
pager_printf( ch, "\n\r&B%d &Wpages found.\n\r", cnt );
else
send_to_char( "&WNone found.\n\r", ch );
if ( idx )
STRFREE(idx);
return;
}
/*
* New do_who with WHO REQUEST, clan, council and race support. -Thoric
*
* Latest version of do_who eliminates redundant code by using linked lists.
* Shows imms separately, indicates guest and retired immortals.
* Narn, Oct/96
*
* Who group by Altrag, Feb 28/97
*/
struct whogr_s
{
struct whogr_s *next;
struct whogr_s *follower;
struct whogr_s *l_follow;
DESCRIPTOR_DATA *d;
int indent;
} *first_whogr, *last_whogr;
struct whogr_s *find_whogr(DESCRIPTOR_DATA *d, struct whogr_s *first)
{
struct whogr_s *whogr, *whogr_t;
for (whogr = first; whogr; whogr = whogr->next)
if (whogr->d == d)
return whogr;
else if (whogr->follower && (whogr_t = find_whogr(d, whogr->follower)))
return whogr_t;
return NULL;
}
void indent_whogr(CHAR_DATA *looker, struct whogr_s *whogr, int ilev)
{
for ( ; whogr; whogr = whogr->next )
{
if (whogr->follower)
{
int nlev = ilev;
CHAR_DATA *wch =
(whogr->d->original ? whogr->d->original : whogr->d->character);
if (can_see(looker, wch) && !IS_IMMORTAL(wch))
nlev += 3;
indent_whogr(looker, whogr->follower, nlev);
}
whogr->indent = ilev;
}
}
/* This a great big mess to backwards-structure the ->leader character
fields */
void create_whogr(CHAR_DATA *looker)
{
DESCRIPTOR_DATA *d;
CHAR_DATA *wch;
struct whogr_s *whogr, *whogr_t;
int dc = 0, wc = 0;
while ((whogr = first_whogr) != NULL)
{
first_whogr = whogr->next;
DISPOSE(whogr);
}
first_whogr = last_whogr = NULL;
/* Link in the ones without leaders first */
for (d = last_descriptor; d; d = d->prev)
{
if (d->connected != CON_PLAYING && d->connected != CON_EDITING)
continue;
++dc;
wch = (d->original ? d->original : d->character);
if (!wch->leader || wch->leader == wch || !wch->leader->desc ||
IS_NPC(wch->leader) || IS_IMMORTAL(wch) || IS_IMMORTAL(wch->leader))
{
CREATE(whogr, struct whogr_s, 1);
if (!last_whogr)
first_whogr = last_whogr = whogr;
else
{
last_whogr->next = whogr;
last_whogr = whogr;
}
whogr->next = NULL;
whogr->follower = whogr->l_follow = NULL;
whogr->d = d;
whogr->indent = 0;
++wc;
}
}
/* Now for those who have leaders.. */
while (wc < dc)
for (d = last_descriptor; d; d = d->prev)
{
if (d->connected != CON_PLAYING && d->connected != CON_EDITING)
continue;
if (find_whogr(d, first_whogr))
continue;
wch = (d->original ? d->original : d->character);
if (wch->leader && wch->leader != wch && wch->leader->desc &&
!IS_NPC(wch->leader) && !IS_IMMORTAL(wch) &&
!IS_IMMORTAL(wch->leader) &&
(whogr_t = find_whogr(wch->leader->desc, first_whogr)))
{
CREATE(whogr, struct whogr_s, 1);
if (!whogr_t->l_follow)
whogr_t->follower = whogr_t->l_follow = whogr;
else
{
whogr_t->l_follow->next = whogr;
whogr_t->l_follow = whogr;
}
whogr->next = NULL;
whogr->follower = whogr->l_follow = NULL;
whogr->d = d;
whogr->indent = 0;
++wc;
}
}
/* Set up indentation levels */
indent_whogr(looker, first_whogr, 0);
/* And now to linear link them.. */
for (whogr_t = NULL, whogr = first_whogr; whogr; )
if (whogr->l_follow)
{
whogr->l_follow->next = whogr;
whogr->l_follow = NULL;
if (whogr_t)
whogr_t->next = whogr = whogr->follower;
else
first_whogr = whogr = whogr->follower;
}
else
{
whogr_t = whogr;
whogr = whogr->next;
}
}
void do_who( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
char clan_name[MAX_INPUT_LENGTH];
char council_name[MAX_INPUT_LENGTH];
char invis_str[MAX_INPUT_LENGTH];
char char_name[MAX_INPUT_LENGTH];
char extra_title[MAX_STRING_LENGTH];
char race_text[MAX_INPUT_LENGTH];
struct whogr_s *whogr, *whogr_p;
DESCRIPTOR_DATA *d;
int iRace;
int iLevelLower;
int iLevelUpper;
int nNumber;
int nMatch;
bool rgfRace[MAX_RACE];
bool fRaceRestrict;
bool fImmortalOnly;
bool fLeader;
bool fClanMatch; /* SB who clan (order),who guild, and who council */
bool fCouncilMatch;
bool fGroup;
CLAN_DATA *pClan = NULL;
COUNCIL_DATA *pCouncil = NULL;
FILE *whoout = NULL;
WHO_DATA *cur_who = NULL;
WHO_DATA *next_who = NULL;
WHO_DATA *first_mortal = NULL;
WHO_DATA *first_newbie = NULL;
WHO_DATA *first_imm = NULL;
WHO_DATA *first_grouped = NULL;
WHO_DATA *first_groupwho = NULL;
/*
* Set default arguments.
*/
iLevelLower = 0;
iLevelUpper = MAX_LEVEL;
fRaceRestrict = FALSE;
fImmortalOnly = FALSE;
fClanMatch = FALSE; /* SB who clan (order), who guild, who council */
fCouncilMatch = FALSE;
fGroup = FALSE; /* Alty who group */
fLeader = FALSE;
for ( iRace = 0; iRace < MAX_RACE; iRace++ )
rgfRace[iRace] = FALSE;
/*
* Parse arguments.
*/
nNumber = 0;
for ( ;; )
{
char arg[MAX_STRING_LENGTH];
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
break;
if ( is_number( arg ) )
{
switch ( ++nNumber )
{
case 1: iLevelLower = atoi( arg ); break;
case 2: iLevelUpper = atoi( arg ); break;
default:
send_to_char( "Only two level numbers allowed.\n\r", ch );
return;
}
}
else
{
if ( strlen(arg) < 3 )
{
send_to_char( "Be a little more specific please.\n\r", ch );
return;
}
/*
* Look for classes to turn on.
*/
if ( !str_cmp( arg, "imm" ) || !str_cmp( arg, "gods" ) )
fImmortalOnly = TRUE;
else if ( !str_cmp( arg, "leader" ) )
fLeader = TRUE;
else if ( !str_cmp( arg, "group" ) && ch )
fGroup = TRUE;
else if ( ( pClan = get_clan (arg) ) && IS_IMMORTAL(ch) )
fClanMatch = TRUE;
else if ( ( pCouncil = get_council (arg) ) )
fCouncilMatch = TRUE;
else
{
for ( iRace = 0; iRace < MAX_RACE; iRace++ )
{
if ( !str_cmp( arg, race_table[iRace]->race_name ) )
{
rgfRace[iRace] = TRUE;
break;
}
}
if ( iRace != MAX_RACE )
fRaceRestrict = TRUE;
if ( iRace == MAX_RACE && fClanMatch == FALSE && fCouncilMatch == FALSE )
{
send_to_char( "That's not a race, order, guild or council.\n\r", ch );
/* send_to_char( "That's not a race, or organization.\n\r", ch );*/
return;
}
}
}
}
/*
* Now find matching chars.
*/
nMatch = 0;
buf[0] = '\0';
if ( ch )
set_pager_color( AT_WHITE, ch );
else
{
whoout = fopen( WHO_FILE, "w" );
if ( !whoout )
{
bug( "do_who: cannot open who file!" );
return;
}
}
/* start from last to first to get it in the proper order */
if (fGroup)
{
create_whogr(ch);
whogr = first_whogr;
d = whogr->d;
}
else
{
whogr = NULL;
d = last_descriptor;
}
whogr_p = NULL;
for ( d = last_descriptor; d; d = d->prev )
{
CHAR_DATA *wch;
char const *race;
if ( (d->connected != CON_PLAYING && d->connected != CON_EDITING)
|| ( !can_see( ch, d->character ) && IS_IMMORTAL( d->character ) )
|| d->original)
continue;
wch = d->original ? d->original : d->character;
if ( wch->top_level < iLevelLower
|| wch->top_level > iLevelUpper
|| ( fImmortalOnly && wch->top_level < LEVEL_IMMORTAL )
|| ( fRaceRestrict && !rgfRace[wch->race] )
|| ( fClanMatch && ( pClan != wch->pcdata->clan )) /* SB */
|| ( fCouncilMatch && ( pCouncil != wch->pcdata->council )) /* SB */ )
continue;
if ( fLeader && !(wch->pcdata->council &&
((wch->pcdata->council->head2 &&
!str_cmp(wch->pcdata->council->head2, wch->name)) ||
(wch->pcdata->council->head &&
!str_cmp(wch->pcdata->council->head, wch->name)))) &&
!(wch->pcdata->clan && ( /*||*/ (wch->pcdata->clan->leader
&& !str_cmp(wch->pcdata->clan->leader, wch->name ) )
|| (wch->pcdata->clan->number1
&& !str_cmp(wch->pcdata->clan->number1, wch->name ) )
|| (wch->pcdata->clan->number2
&& !str_cmp(wch->pcdata->clan->number2, wch->name )))))
continue;
if (fGroup && !wch->leader &&
!IS_SET(wch->pcdata->flags, PCFLAG_GROUPWHO) &&
(!whogr_p || !whogr_p->indent))
continue;
nMatch++;
strcpy( char_name, "" );
sprintf( race_text, "&G&W%s(%s) ", NOT_AUTHED(wch) ? "N" : "", race_table[wch->race]->race_name);
race = race_text;
switch ( wch->top_level )
{
default: break;
case 300: race = "The Ghost in the Machine"; break;
case MAX_LEVEL - 0: race = "Supreme Entity"; break;
case MAX_LEVEL - 1: race = "Infinite"; break;
case MAX_LEVEL - 2: race = "Eternal"; break;
case MAX_LEVEL - 3: race = "Ancient"; break;
case MAX_LEVEL - 4: race = "Exalted God"; break;
case MAX_LEVEL - 5: race = "Ascendant God"; break;
case MAX_LEVEL - 6: race = "Greater God"; break;
case MAX_LEVEL - 7: race = "God"; break;
case MAX_LEVEL - 8: race = "Lesser God"; break;
case MAX_LEVEL - 9: race = "Immortal"; break;
case MAX_LEVEL - 10: race = "Demi God"; break;
case MAX_LEVEL - 11: race = "Savior"; break;
case MAX_LEVEL - 12: race = "Creator"; break;
case MAX_LEVEL - 13: race = "Acolyte"; break;
case MAX_LEVEL - 14: race = "Neophyte"; break;
case MAX_LEVEL - 15: race = "Avatar"; break;
}
if ( !nifty_is_name(wch->name, wch->pcdata->title) && ch->top_level > wch->top_level )
sprintf( extra_title , " [%s]" , wch->name );
else
strcpy(extra_title, "");
if ( IS_RETIRED( wch ) )
race = "Retired";
else if ( IS_GUEST( wch ) )
race = "Guest";
else if ( wch->pcdata->rank && wch->pcdata->rank[0] != '\0' )
race = wch->pcdata->rank;
/*****************************************
** Showing Members Of Wch's Clan **
** Using "clan_name" in who list **
******************************************/
if ( (!IS_NPC(ch) && wch->pcdata->clan && ch->pcdata->clan ) || ( !IS_NPC(ch) && wch->pcdata->clan && IS_IMMORTAL(ch)))
{
CLAN_DATA *pclan;
CLAN_DATA *zclan;
if ( wch->pcdata->clan )
pclan = wch->pcdata->clan;
if ( ch->pcdata->clan )
zclan = ch->pcdata->clan;
if ( (pclan == zclan) || ( IS_IMMORTAL(ch)))
{
strcpy( clan_name, " &R(&P" );
if ( !str_cmp( wch->name, wch->pcdata->clan->leader ) )
strcat( clan_name, "&RL&reader,&P " );
else if ( !str_cmp( wch->name, wch->pcdata->clan->number1 ) )
strcat( clan_name, "&RF&rirst,&P " );
else if ( !str_cmp( wch->name, wch->pcdata->clan->number2 ) )
strcat( clan_name, "&RS&recond,&P " );
else if ( wch->pcdata->clan_rank )
{
strcat( clan_name, "&R");
strcat( clan_name, pclan->ranks[wch->pcdata->clan_rank].name);
strcat( clan_name, ",&P ");
}
strcat( clan_name, wch->pcdata->clan->name );
strcat( clan_name, "&R)&W" );
}
else
clan_name[0] = '\0';
}
else
clan_name[0] = '\0';
/*****************************************
** Showing council members **
******************************************/
if ( wch->pcdata->council )
{
strcpy( council_name, " &G&W[" );
if (wch->pcdata->council->head && !str_cmp (wch->name, wch->pcdata->council->head))
strcat (council_name, "Head of ");
if (wch->pcdata->council->head2 && !str_cmp(wch->name, wch->pcdata->council->head2))
strcat (council_name, "Co-Head of ");
strcat( council_name, wch->pcdata->council_name );
strcat( council_name, "&W]" );
}
else
council_name[0] = '\0';
/*****************************************
** Showing WizInvis Level If Can See **
** Using "invis_str" on who list **
******************************************/
if ( IS_SET(wch->act, PLR_WIZINVIS) )
sprintf( invis_str, "(%d) ", wch->pcdata->wizinvis );
else
invis_str[0] = '\0';
/*****************************************
** Showing Who List **
******************************************/
sprintf( buf, "&G&W%*s%s%s %s%s%s%s%s %s%s\n\r",
(fGroup ? whogr->indent : 0), "",
race,
invis_str,
(wch->desc && wch->desc->connected) ? "&W[WRITING] " : "",
IS_SET(wch->act, PLR_AFK) ? "&R[&PAFK&R]&W " : "&W",
IS_SET(wch->pcdata->flags, PCFLAG_QUESTING ) ? "&R[&GQUESTING&R]&W " : "&W",
wch->pcdata->title,
extra_title,
clan_name,
council_name);
/*
* This is where the old code would display the found player to the ch.
* What we do instead is put the found data into a linked list
*/
/* First make the structure. */
CREATE( cur_who, WHO_DATA, 1 );
cur_who->text = str_dup( buf );
if ( IS_IMMORTAL( wch ) ) { cur_who->type = WT_IMM; }
else if ( fGroup )
{
if ( wch->leader || (whogr_p && whogr_p->indent) )
cur_who->type = WT_GROUPED;
else
cur_who->type = WT_GROUPWHO;
}
else if ( get_trust( wch ) <= 5 ) { cur_who->type = WT_NEWBIE; }
else { cur_who->type = WT_MORTAL; }
/* Then put it into the appropriate list. */
switch ( cur_who->type )
{
case WT_MORTAL:
cur_who->next = first_mortal;
first_mortal = cur_who;
break;
case WT_GROUPED:
cur_who->next = first_grouped;
first_grouped = cur_who;
break;
case WT_GROUPWHO:
cur_who->next = first_groupwho;
first_groupwho = cur_who;
break;
case WT_IMM:
cur_who->next = first_imm;
first_imm = cur_who;
break;
case WT_NEWBIE:
cur_who->next = first_newbie;
first_newbie = cur_who;
break;
}
} /* END For loop for descriptors */
if ( first_newbie )
{
if ( !ch )
{
fprintf( whoout,"\n\r&P+&B-------------------------&G&W[ &PT&phe &PU&pn&P-&PI&pnformed &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B---------------------------------------------------------------------&P+&G&W\n\r");
}
else
{
send_to_pager( "\n\r&P+&B-------------------------&G&W[ &PT&phe &PU&pn&P-&PI&pnformed &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B---------------------------------------------------------------------&P+&G&W\n\r", ch );
}
}
for ( cur_who = first_newbie; cur_who; cur_who = next_who )
{
if ( !ch )
fprintf( whoout, cur_who->text );
else
send_to_pager( cur_who->text, ch );
next_who = cur_who->next;
DISPOSE( cur_who->text );
DISPOSE( cur_who );
}
if ( first_mortal )
{
if ( !ch )
{
fprintf( whoout,"\n\r&P+&B-------------------------&G&W[ &PG&palactic &PM&pisfits &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B----------------------------------------------------------------------&P+&G&W\n\r" );
}
else
{
send_to_pager( "\n\r&P+&B-------------------------&G&W[ &PG&palactic &PM&pisfits &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B----------------------------------------------------------------------&P+&G&W\n\r", ch );
}
}
for ( cur_who = first_mortal; cur_who; cur_who = next_who )
{
if ( !ch )
fprintf( whoout, cur_who->text );
else
send_to_pager( cur_who->text, ch );
next_who = cur_who->next;
DISPOSE( cur_who->text );
DISPOSE( cur_who );
}
if (first_grouped)
{
/*if ( !ch )
{
fprintf( whoout, "\n\r&P+&B-------------------------&G&W[ &BG&Wroupies &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B--------------------------------------------------------------&P+&G&W\n\r" );
}
else*/
{
send_to_pager( "\n\r&P+&B-------------------------&G&W[ &PG&proupies &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B--------------------------------------------------------------&P+&G&W\n\r", ch );
}
}
for ( cur_who = first_grouped; cur_who; cur_who = next_who )
{
/*if ( !ch )
fprintf( whoout, cur_who->text );
else*/
send_to_pager( cur_who->text, ch );
next_who = cur_who->next;
DISPOSE( cur_who->text );
DISPOSE( cur_who );
}
if (first_groupwho)
{
if ( !ch )
{
fprintf( whoout, "\n\r&P+&B-------------------------&G&W[ &PL&poners &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B------------------------------------------------------------&P+&G&W\n\r" );
}
else
{
send_to_pager( "\n\r&P+&B-------------------------&G&W[ &PL&poners &B]&B-------------------------&P+&G&W\n\r"
"&P+&B------------------------------------------------------------&P+&G&W\n\r", ch );
}
}
for ( cur_who = first_groupwho; cur_who; cur_who = next_who )
{
if ( !ch )
fprintf( whoout, cur_who->text );
else
send_to_pager( cur_who->text, ch );
next_who = cur_who->next;
DISPOSE( cur_who->text );
DISPOSE( cur_who );
}
if ( first_imm )
{
if ( !ch )
{
fprintf( whoout, "\n\r&P+&B-------------------------&G&W[ &PT&phe &PW&pell &PI&pnformed &PO&pnes &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B----------------------------------------------------------------------------&P+&G&W\n\r" );
}
else
{
send_to_pager( "\n\r&P+&B-------------------------&G&W[ &PT&phe &PW&pell &PI&pnformed &PO&pnes &G&W]&B-------------------------&P+&G&W\n\r"
"&P+&B----------------------------------------------------------------------------&P+&G&W\n\r", ch );
}
}
for ( cur_who = first_imm; cur_who; cur_who = next_who )
{
if ( !ch )
fprintf( whoout, cur_who->text );
else
send_to_pager( cur_who->text, ch );
next_who = cur_who->next;
DISPOSE( cur_who->text );
DISPOSE( cur_who );
}
if ( !ch )
{
fprintf( whoout, "%d player%s.\n\r", nMatch, nMatch == 1 ? "" : "s" );
fclose( whoout );
return;
}
set_char_color( AT_YELLOW, ch );
ch_printf( ch, "%d player%s.\n\r", nMatch, nMatch == 1 ? "" : "s" );
return;
}
void do_compare( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
OBJ_DATA *obj1;
OBJ_DATA *obj2;
int value1;
int value2;
char *msg;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' )
{
send_to_char( "Compare what to what?\n\r", ch );
return;
}
if ( ( obj1 = get_obj_carry( ch, arg1 ) ) == NULL )
{
send_to_char( "You do not have that item.\n\r", ch );
return;
}
if ( arg2[0] == '\0' )
{
for ( obj2 = ch->first_carrying; obj2; obj2 = obj2->next_content )
{
if ( obj2->wear_loc != WEAR_NONE
&& can_see_obj( ch, obj2 )
&& obj1->item_type == obj2->item_type
&& ( obj1->wear_flags & obj2->wear_flags & ~ITEM_TAKE) != 0 )
break;
}
if ( !obj2 )
{
send_to_char( "You aren't wearing anything comparable.\n\r", ch );
return;
}
}
else
{
if ( ( obj2 = get_obj_carry( ch, arg2 ) ) == NULL )
{
send_to_char( "You do not have that item.\n\r", ch );
return;
}
}
msg = NULL;
value1 = 0;
value2 = 0;
if ( obj1 == obj2 )
{
msg = "You compare $p to itself. It looks about the same.";
}
else if ( obj1->item_type != obj2->item_type )
{
msg = "You can't compare $p and $P.";
}
else
{
switch ( obj1->item_type )
{
default:
msg = "You can't compare $p and $P.";
break;
case ITEM_ARMOR:
value1 = obj1->value[0];
value2 = obj2->value[0];
break;
case ITEM_WEAPON:
value1 = obj1->value[1] + obj1->value[2];
value2 = obj2->value[1] + obj2->value[2];
break;
}
}
if ( !msg )
{
if ( value1 == value2 ) msg = "$p and $P look about the same.";
else if ( value1 > value2 ) msg = "$p looks better than $P.";
else msg = "$p looks worse than $P.";
}
act( AT_PLAIN, msg, ch, obj1, obj2, TO_CHAR );
return;
}
void do_where( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
DESCRIPTOR_DATA *d;
bool found;
if (get_trust(ch) < LEVEL_IMMORTAL)
{
send_to_char( "If only life were really that simple...\n\r" , ch);
return;
}
one_argument( argument, arg );
if ( arg[0]!='\0' && (victim=get_char_world(ch, arg)) && !IS_NPC(victim)
&& IS_SET(victim->pcdata->flags, PCFLAG_DND)
&& get_trust(ch) < get_trust(victim) )
{
act( AT_PLAIN, "You didn't find any $T.", ch, NULL, arg, TO_CHAR );
return;
}
set_pager_color( AT_PERSON, ch );
if ( arg[0] == '\0' )
{
if (get_trust(ch) >= LEVEL_IMMORTAL)
send_to_pager( "Players logged in:\n\r", ch );
else
pager_printf( ch, "Players near you in %s:\n\r", ch->in_room->area->name );
found = FALSE;
for ( d = first_descriptor; d; d = d->next )
if ( (d->connected == CON_PLAYING || d->connected == CON_EDITING )
&& ( victim = d->character ) != NULL
&& !IS_NPC(victim)
&& victim->in_room
&& victim->in_room->area == ch->in_room->area
&& can_see( ch, victim )
&& ( get_trust(ch) >= get_trust(victim)
|| !IS_SET(victim->pcdata->flags, PCFLAG_DND) )
) /* if victim has the DND flag ch must outrank them */
{
found = TRUE;
pager_printf( ch, "%-28s %s\n\r",
victim->name, victim->in_room->name );
}
if ( !found )
send_to_char( "None\n\r", ch );
}
else
{
found = FALSE;
for ( victim = first_char; victim; victim = victim->next )
if ( victim->in_room
&& victim->in_room->area == ch->in_room->area
&& !IS_AFFECTED(victim, AFF_HIDE)
&& !IS_AFFECTED(victim, AFF_SNEAK)
&& can_see( ch, victim )
&& is_name( arg, victim->name ) )
{
found = TRUE;
pager_printf( ch, "%-28s %s\n\r",
PERS(victim, ch), victim->in_room->name );
break;
}
if ( !found )
act( AT_PLAIN, "You didn't find any $T.", ch, NULL, arg, TO_CHAR );
}
return;
}
#if 0
void do_consider( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
char *msg;
int diff;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Consider killing whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They're not here.\n\r", ch );
return;
}
diff = ( victim->top_level - ch->top_level ) * 10 ;
diff += (int) (victim->max_hit - ch->max_hit) / 10;
if ( diff <= -200) msg = "$N looks like a feather!";
else if ( diff <= -150) msg = "Hey! Where'd $N go?";
else if ( diff <= -100) msg = "Easy as picking off womp rats at beggers canyon!";
else if ( diff <= -50) msg = "$N is a wimp.";
else if ( diff <= 0) msg = "$N looks weaker than you.";
else if ( diff <= 50) msg = "$N looks about as strong as you.";
else if ( diff <= 100) msg = "It would take a bit of luck...";
else if ( diff <= 150) msg = "It would take a lot of luck, and a really big blaster!";
else if ( diff <= 200) msg = "Why don't you just attack a star destoyer with a vibroblade?";
else msg = "$N is built like an AT-AT!";
act( AT_CONSIDER, msg, ch, NULL, victim, TO_CHAR );
return;
}
#endif
void do_consider( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
char *msg;
int diff;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Consider killing whom?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They're not here.\n\r", ch );
return;
}
if ( victim == ch )
{
send_to_char( "You decide you're pretty sure you could take yourself in a fight.\n\r", ch );
return;
}
diff = victim->top_level - ch->top_level;
if ( diff <= -10 ) msg = "You are far more experienced than $N.";
else if ( diff <= -5 ) msg = "$N is not nearly as experienced as you.";
else if ( diff <= -2 ) msg = "You are more experienced than $N.";
else if ( diff <= 1 ) msg = "You are just about as experienced as $N.";
else if ( diff <= 4 ) msg = "You are not nearly as experienced as $N.";
else if ( diff <= 9 ) msg = "$N is far more experienced than you!";
else msg = "$N would make a great teacher for you!";
act( AT_CONSIDER, msg, ch, NULL, victim, TO_CHAR );
diff = (int) (victim->max_hit - ch->max_hit) / 6;
if ( diff <= -200) msg = "$N looks like a feather!";
else if ( diff <= -150) msg = "You could kill $N with your hands tied!";
else if ( diff <= -100) msg = "Hey! Where'd $N go?";
else if ( diff <= -50) msg = "$N is a wimp.";
else if ( diff <= 0) msg = "$N looks weaker than you.";
else if ( diff <= 50) msg = "$N looks about as strong as you.";
else if ( diff <= 100) msg = "It would take a bit of luck...";
else if ( diff <= 150) msg = "It would take a lot of luck, and equipment!";
else if ( diff <= 200) msg = "Why don't you dig a grave for yourself first?";
else msg = "$N is built like a TANK!";
act( AT_CONSIDER, msg, ch, NULL, victim, TO_CHAR );
return;
}
/*
* Place any skill types you don't want them to be able to practice
* normally in this list. Separate each with a space.
* (Uses an is_name check). -- Altrag
*/
#define CANT_PRAC "Tongue"
void do_practice( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
int sn;
if ( IS_NPC(ch) )
return;
if ( argument[0] == '\0' )
{
int col;
sh_int lasttype, cnt;
col = cnt = 0; lasttype = SKILL_SPELL;
set_pager_color( AT_MAGIC, ch );
for ( sn = 0; sn < top_sn; sn++ )
{
if ( !skill_table[sn]->name )
break;
if ( skill_table[sn]->guild < 0 || skill_table[sn]->guild >= MAX_ABILITY )
continue;
if ( skill_table[sn]->type != lasttype )
{
if ( !cnt )
send_to_pager( " (none)\n\r", ch );
else if ( col % 3 != 0 )
send_to_pager( "\n\r", ch );
pager_printf( ch,
"&B--------------------------------&W[&B%ss&W]&B--------------------------------&W\n\r",
skill_tname[skill_table[sn]->type]);
col = cnt = 0;
}
lasttype = skill_table[sn]->type;
if ( skill_table[sn]->guild < 0 || skill_table[sn]->guild >= MAX_ABILITY )
continue;
if ( ch->pcdata->learned[sn] <= 0 && ch->skill_level[skill_table[sn]->guild] < skill_table[sn]->min_level )
continue;
if ( ch->pcdata->learned[sn] == 0
&& SPELL_FLAG(skill_table[sn], SF_SECRETSKILL) )
continue;
++cnt;
pager_printf( ch, "&B[&W%14.14s&B] &B[%s%3d%%&B] ",
skill_table[sn]->name,
( ch->pcdata->learned[sn] <= 25 ) ? "&B" :
( ch->pcdata->learned[sn] <= 50 ) ? "&R" :
( ch->pcdata->learned[sn] <= 75 ) ? "&P" :"&Y" ,
ch->pcdata->learned[sn] );
if ( ++col % 3 == 0 )
send_to_pager( "\n\r", ch );
}
if ( col % 3 != 0 )
send_to_pager( "\n\r", ch );
}
else
{
CHAR_DATA *mob;
int adept;
bool can_prac = TRUE;
if ( !IS_AWAKE(ch) )
{
send_to_char( "In your dreams, or what?\n\r", ch );
return;
}
for ( mob = ch->in_room->first_person; mob; mob = mob->next_in_room )
{
if ( IS_NPC(mob) && IS_SET(mob->act, ACT_PRACTICE) )
break;
}
if ( !mob )
{
send_to_char( "You can't do that here.\n\r", ch );
return;
}
sn = skill_lookup( argument );
if ( sn == -1 )
{
act( AT_TELL, "$n tells you 'I've never heard of that one...'", mob, NULL, ch, TO_VICT );
return;
}
if ( skill_table[sn]->guild < 0 || skill_table[sn]->guild >= MAX_ABILITY )
{
act( AT_TELL, "$n tells you 'I cannot teach you that...'", mob, NULL, ch, TO_VICT );
return;
}
if ( can_prac && !IS_NPC(ch)
&& ch->skill_level[skill_table[sn]->guild] < skill_table[sn]->min_level )
{
act( AT_TELL, "$n tells you 'You're not ready to learn that yet...'",mob, NULL, ch, TO_VICT );
return;
}
if ( is_name( skill_tname[skill_table[sn]->type], CANT_PRAC ) )
{
act( AT_TELL, "$n tells you 'I do not know how to teach that.'",
mob, NULL, ch, TO_VICT );
return;
}
/*
* Skill requires a special teacher
*/
if ( skill_table[sn]->teachers && skill_table[sn]->teachers[0] != '\0' )
{
sprintf( buf, "%d", mob->pIndexData->vnum );
if ( !is_name( buf, skill_table[sn]->teachers ) )
{
act( AT_TELL, "$n tells you, 'I know not how to teach that.'",
mob, NULL, ch, TO_VICT );
return;
}
}
else
{
act( AT_TELL, "$n tells you, 'I know not how to teach that.'",
mob, NULL, ch, TO_VICT );
return;
}
adept = 30;
if ( ch->gold < skill_table[sn]->min_level*10 )
{
sprintf ( buf , "$n tells you, 'I charge %d credits to teach that. You don't have enough.'" , skill_table[sn]->min_level*10 );
act( AT_TELL, buf,mob, NULL, ch, TO_VICT );
return;
}
if ( ch->pcdata->learned[sn] >= adept )
{
sprintf( buf, "$n tells you, 'I've taught you everything I can about %s.'",
skill_table[sn]->name );
act( AT_TELL, buf, mob, NULL, ch, TO_VICT );
act( AT_TELL, "$n tells you, 'You'll have to practice it on your own now...'",mob, NULL, ch, TO_VICT );
}
else
{
ch->gold -= skill_table[sn]->min_level*10;
ch->pcdata->learned[sn] += int_app[get_curr_int(ch)].learn;
act( AT_ACTION, "You practice $T.",
ch, NULL, skill_table[sn]->name, TO_CHAR );
act( AT_ACTION, "$n practices $T.",
ch, NULL, skill_table[sn]->name, TO_ROOM );
if ( ch->pcdata->learned[sn] >= adept )
{
ch->pcdata->learned[sn] = adept;
act( AT_TELL,
"$n tells you. 'You'll have to practice it on your own now...'",
mob, NULL, ch, TO_VICT );
}
} }
return;
}
void do_teach( CHAR_DATA *ch, char *argument )
{
char buf[MAX_STRING_LENGTH];
int sn;
char arg[MAX_INPUT_LENGTH];
if ( IS_NPC(ch) )
return;
argument = one_argument(argument, arg);
if ( argument[0] == '\0' )
{
send_to_char( "Teach who, what?\n\r", ch );
return;
}
else
{
CHAR_DATA *victim;
int adept;
if ( !IS_AWAKE(ch) )
{
send_to_char( "In your dreams, or what?\n\r", ch );
return;
}
if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They don't seem to be here...\n\r", ch );
return;
}
if (IS_NPC(victim))
{
send_to_char( "You can't teach that to them!\n\r", ch );
return;
}
sn = skill_lookup( argument );
if ( sn == -1 )
{
act( AT_TELL, "You have no idea what that is.",
victim, NULL, ch, TO_VICT );
return;
}
if ( skill_table[sn]->guild < 0 || skill_table[sn]->guild >= MAX_ABILITY )
{
act( AT_TELL, "Thats just not going to happen.",
victim, NULL, ch, TO_VICT );
return;
}
if ( victim->skill_level[skill_table[sn]->guild] < skill_table[sn]->min_level )
{
act( AT_TELL, "$n isn't ready to learn that yet.",
victim, NULL, ch, TO_VICT );
return;
}
if ( is_name( skill_tname[skill_table[sn]->type], CANT_PRAC ) )
{
act( AT_TELL, "You are unable to teach that skill.",
victim, NULL, ch, TO_VICT );
return;
}
adept = 15;
if ( victim->pcdata->learned[sn] >= adept )
{
act( AT_TELL, "$n must practice that on their own.", victim, NULL, ch, TO_VICT );
return;
}
if ( ch->pcdata->learned[sn] < 100 )
{
act( AT_TELL, "You must perfect that yourself before teaching others.", victim, NULL, ch, TO_VICT );
return;
}
else
{
victim->pcdata->learned[sn] += int_app[get_curr_int(ch)].learn;
sprintf( buf, "You teach %s $T.", victim->name );
act( AT_ACTION, buf,
ch, NULL, skill_table[sn]->name, TO_CHAR );
sprintf( buf, "%s teaches you $T.", ch->name );
act( AT_ACTION, buf,
victim, NULL, skill_table[sn]->name, TO_CHAR );
}
}
return;
}
void do_wimpy( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
int wimpy;
one_argument( argument, arg );
if ( arg[0] == '\0' )
wimpy = (int) ch->max_hit / 5;
else
wimpy = atoi( arg );
if ( wimpy < 0 )
{
send_to_char( "Your courage exceeds your wisdom.\n\r", ch );
return;
}
if ( wimpy > ch->max_hit )
{
send_to_char( "Such cowardice ill becomes you.\n\r", ch );
return;
}
ch->wimpy = wimpy;
ch_printf( ch, "Wimpy set to %d hit points.\n\r", wimpy );
return;
}
void do_password( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char *pArg;
char *pwdnew;
char *p;
char cEnd;
if ( IS_NPC(ch) )
return;
/*
* Can't use one_argument here because it smashes case.
* So we just steal all its code. Bleagh.
*/
pArg = arg1;
while ( isspace(*argument) )
argument++;
cEnd = ' ';
if ( *argument == '\'' || *argument == '"' )
cEnd = *argument++;
while ( *argument != '\0' )
{
if ( *argument == cEnd )
{
argument++;
break;
}
*pArg++ = *argument++;
}
*pArg = '\0';
pArg = arg2;
while ( isspace(*argument) )
argument++;
cEnd = ' ';
if ( *argument == '\'' || *argument == '"' )
cEnd = *argument++;
while ( *argument != '\0' )
{
if ( *argument == cEnd )
{
argument++;
break;
}
*pArg++ = *argument++;
}
*pArg = '\0';
if ( arg1[0] == '\0' || arg2[0] == '\0' )
{
send_to_char( "Syntax: password <old> <new>.\n\r", ch );
return;
}
if ( strcmp( crypt( arg1, ch->pcdata->pwd ), ch->pcdata->pwd ) )
{
WAIT_STATE( ch, 40 );
send_to_char( "Wrong password. Wait 10 seconds.\n\r", ch );
return;
}
if ( strlen(arg2) < 5 )
{
send_to_char(
"New password must be at least five characters long.\n\r", ch );
return;
}
/*
* No tilde allowed because of player file format.
*/
pwdnew = crypt( arg2, ch->name );
for ( p = pwdnew; *p != '\0'; p++ )
{
if ( *p == '~' )
{
send_to_char(
"New password not acceptable, try again.\n\r", ch );
return;
}
}
DISPOSE( ch->pcdata->pwd );
ch->pcdata->pwd = str_dup( pwdnew );
if ( IS_SET(sysdata.save_flags, SV_PASSCHG) )
save_char_obj( ch );
send_to_char( "Ok.\n\r", ch );
return;
}
void do_socials( CHAR_DATA *ch, char *argument )
{
int iHash;
int col = 0;
SOCIALTYPE *social;
set_pager_color( AT_PLAIN, ch );
for ( iHash = 0; iHash < 27; iHash++ )
for ( social = social_index[iHash]; social; social = social->next )
{
pager_printf( ch, "%-10.10s ", social->name );
if ( ++col % 6 == 0 )
send_to_pager( "\n\r", ch );
}
if ( col % 6 != 0 )
send_to_pager( "\n\r", ch );
return;
}
void do_commands( CHAR_DATA *ch, char *argument )
{
int col;
bool found;
int hash;
CMDTYPE *command;
col = 0;
set_pager_color( AT_PLAIN, ch );
if ( argument[0] == '\0' )
{
for ( hash = 0; hash < 126; hash++ )
for ( command = command_hash[hash]; command; command = command->next )
if ( command->level < LEVEL_HERO
&& command->level <= get_trust( ch )
&& (command->name[0] != 'm'
&& command->name[1] != 'p') )
{
pager_printf( ch, "%-10.10s ", command->name );
if ( ++col % 6 == 0 )
send_to_pager( "\n\r", ch );
}
if ( col % 6 != 0 )
send_to_pager( "\n\r", ch );
}
else
{
found = FALSE;
for ( hash = 0; hash < 126; hash++ )
for ( command = command_hash[hash]; command; command = command->next )
if ( command->level < LEVEL_HERO
&& command->level <= get_trust( ch )
&& !str_prefix(argument, command->name)
&& (command->name[0] != 'm'
&& command->name[1] != 'p'))
{
pager_printf( ch, "%-10.10s ", command->name );
found = TRUE;
if ( ++col % 6 == 0 )
send_to_pager( "\n\r", ch );
}
if ( col % 6 != 0 )
send_to_pager( "\n\r", ch );
if ( !found )
ch_printf( ch, "No command found under %s.\n\r", argument);
}
return;
}
/*
* display WIZLIST file -Thoric
*/
void do_wizlist( CHAR_DATA *ch, char *argument )
{
set_pager_color( AT_IMMORT, ch );
show_file( ch, WIZLIST_FILE );
}
/*
* Contributed by Grodyn.
*/
void do_config( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
if ( IS_NPC(ch) )
return;
one_argument( argument, arg );
set_char_color( AT_GREEN, ch );
if ( arg[0] == '\0' )
{
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\rConfigurations ", ch );
set_char_color( AT_GREEN, ch );
send_to_char( "(use 'config +/- <keyword>' to toggle, see 'help config')\n\r\n\r", ch );
set_char_color( AT_DGREEN, ch );
send_to_char( "Display: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "%-12s %-12s %-12s %-12s\n\r %-12s %-12s %-12s",
IS_SET( ch->pcdata->flags, PCFLAG_PAGERON ) ? "[+] PAGER"
: "[-] pager",
IS_SET( ch->pcdata->flags, PCFLAG_GAG ) ? "[+] GAG"
: "[-] gag",
IS_SET(ch->act, PLR_BRIEF ) ? "[+] BRIEF"
: "[-] brief",
IS_SET(ch->act, PLR_COMBINE ) ? "[+] COMBINE"
: "[-] combine",
IS_SET(ch->act, PLR_BLANK ) ? "[+] BLANK"
: "[-] blank",
IS_SET(ch->act, PLR_PROMPT ) ? "[+] PROMPT"
: "[-] prompt",
IS_SET(ch->act, PLR_ANSI ) ? "[+] ANSI"
: "[-] ansi");
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rAuto: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "%-12s %-12s %-12s %-12s",
IS_SET(ch->act, PLR_AUTOSAC ) ? "[+] AUTOSAC"
: "[-] autosac",
IS_SET(ch->act, PLR_AUTOGOLD ) ? "[+] AUTOGOLD"
: "[-] autogold",
IS_SET(ch->act, PLR_AUTOLOOT ) ? "[+] AUTOLOOT"
: "[-] autoloot",
IS_SET(ch->act, PLR_AUTOEXIT ) ? "[+] AUTOEXIT"
: "[-] autoexit" );
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rSafeties: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "%-12s",
IS_SET(ch->act, PLR_NICE ) ? "[+] NICE"
: "[-] nice" );
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rMisc: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "%-12s %-12s %-12s\n\r %-12s %-12s",
IS_SET(ch->act, PLR_TELNET_GA ) ? "[+] TELNETGA"
: "[-] telnetga",
IS_SET( ch->pcdata->flags, PCFLAG_GROUPWHO ) ? "[+] GROUPWHO"
: "[-] groupwho",
IS_SET(ch->act, PLR_FLEE) ? "[+] FLEE"
: "[-] not fleeing",
IS_SET(ch->act, PLR_SOUND) ? "[+] SOUND"
: "[-] nosound",
IS_SET(ch->pcdata->flags, PCFLAG_QUESTING ) ? "[+] QUESTING"
: "[-] questing");
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rSettings: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "Pager Length (%d) Wimpy (&W%d&w)",
ch->pcdata->pagerlen,
ch->wimpy );
if ( IS_IMMORTAL( ch ) )
{
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rImmortal toggles: ", ch );
set_char_color( AT_GREY, ch );
ch_printf( ch, "Roomvnum [%s] Roomflags [%s]",
IS_SET(ch->pcdata->flags, PCFLAG_ROOMVNUM ) ? "+" : "-",
IS_SET(ch->pcdata->flags, PCFLAG_ROOM ) ? "+" : "-" );
set_char_color( AT_DGREEN, ch );
send_to_char( "\n\r\n\rSentences imposed on you (if any):", ch );
set_char_color( AT_YELLOW, ch );
ch_printf( ch, "\n\r%s%s%s%s",
IS_SET(ch->act, PLR_SILENCE ) ?
" For your abuse of channels, you are currently silenced.\n\r" : "",
IS_SET(ch->act, PLR_NO_EMOTE ) ?
" The gods have removed your emotes.\n\r" : "",
IS_SET(ch->act, PLR_NO_TELL ) ?
" You are not permitted to send 'tells' to others.\n\r" : "",
IS_SET(ch->act, PLR_LITTERBUG )?
" A convicted litterbug. You cannot drop anything.\n\r" : "");
}
}
else
{
bool fSet;
int bit = 0;
if ( arg[0] == '+' ) fSet = TRUE;
else if ( arg[0] == '-' ) fSet = FALSE;
else
{
send_to_char( "Config -option or +option?\n\r", ch );
return;
}
if ( !str_prefix( arg+1, "autoexit" ) ) bit = PLR_AUTOEXIT;
else if ( !str_prefix( arg+1, "autoloot" ) ) bit = PLR_AUTOLOOT;
else if ( !str_prefix( arg+1, "autosac" ) ) bit = PLR_AUTOSAC;
else if ( !str_prefix( arg+1, "autocred" ) ) bit = PLR_AUTOGOLD;
else if ( !str_prefix( arg+1, "blank" ) ) bit = PLR_BLANK;
else if ( !str_prefix( arg+1, "brief" ) ) bit = PLR_BRIEF;
else if ( !str_prefix( arg+1, "combine" ) ) bit = PLR_COMBINE;
else if ( !str_prefix( arg+1, "prompt" ) ) bit = PLR_PROMPT;
else if ( !str_prefix( arg+1, "telnetga" ) ) bit = PLR_TELNET_GA;
else if ( !str_prefix( arg+1, "ansi" ) ) bit = PLR_ANSI;
else if ( !str_prefix( arg+1, "sound" ) ) bit = PLR_SOUND;
else if ( !str_prefix( arg+1, "flee" ) ) bit = PLR_FLEE;
else if ( !str_prefix( arg+1, "nice" ) ) bit = PLR_NICE;
if (bit)
{
if ( fSet )
SET_BIT (ch->act, bit);
else
REMOVE_BIT (ch->act, bit);
send_to_char( "Ok.\n\r", ch );
return;
}
else
{
if ( !str_prefix( arg+1, "gag" ) ) bit = PCFLAG_GAG;
else if ( !str_prefix( arg+1, "pager" ) ) bit = PCFLAG_PAGERON;
else if ( !str_prefix( arg+1, "groupwho" ) ) bit = PCFLAG_GROUPWHO;
else if ( !str_prefix( arg+1, "questing" ) ) bit = PCFLAG_QUESTING;
else if ( !str_prefix( arg+1, "roomflags")
&& (IS_IMMORTAL(ch))) bit = PCFLAG_ROOM;
else if ( IS_IMMORTAL( ch )
&& !str_prefix( arg+1, "vnum" ) ) bit = PCFLAG_ROOMVNUM;
else
{
send_to_char( "Config which option?\n\r", ch );
return;
}
if ( fSet )
SET_BIT (ch->pcdata->flags, bit);
else
REMOVE_BIT (ch->pcdata->flags, bit);
send_to_char( "Ok.\n\r", ch );
return;
}
}
return;
}
void do_credits( CHAR_DATA *ch, char *argument )
{
do_help( ch, "credits" );
}
extern int top_area;
/*
* New do_areas, written by Fireblade, last modified - 4/27/97
*
* Syntax: area -> lists areas in alphanumeric order
* area <a> -> lists areas with soft max less than
* parameter a
* area <a> <b> -> lists areas with soft max bewteen
* numbers a and b
* area old -> list areas in order loaded
*
*/
void do_areas( CHAR_DATA *ch, char *argument )
{
char *header_string1 = "\n\r &PA&puthor &p| &PA&prea"
" &p|&P "
"&PR&pecommended &p|&W &PE&pnforced\n\r";
char *header_string2 = "&G&W-------------&P+&W-----------------"
"---------------------&P+&W----"
"---------&P+&W-----------\n\r";
char *print_string = "&B%-12.12s &W| &B%-36.36s &W| &B%4d &W- &B%-4d &W| &B%3d &W- "
"&B%-3d \n\r";
AREA_DATA *pArea;
int lower_bound = 0;
int upper_bound = MAX_LEVEL + 1;
/* make sure is to init. > max area level */
char arg[MAX_STRING_LENGTH];
argument = one_argument(argument,arg);
if(arg[0] != '\0')
{
if(!is_number(arg))
{
if(!strcmp(arg,"old"))
{
set_pager_color( AT_PLAIN, ch );
send_to_pager(header_string1, ch);
send_to_pager(header_string2, ch);
for (pArea = first_area; pArea;pArea = pArea->next)
{
pager_printf(ch, print_string,
pArea->author, pArea->name,
pArea->low_soft_range,
pArea->hi_soft_range,
pArea->low_hard_range,
pArea->hi_hard_range);
}
return;
}
else
{
send_to_char("Area may only be followed by numbers, or 'old'.\n\r", ch);
return;
}
}
upper_bound = atoi(arg);
lower_bound = upper_bound;
argument = one_argument(argument,arg);
if(arg[0] != '\0')
{
if(!is_number(arg))
{
send_to_char("Area may only be followed by numbers.\n\r", ch);
return;
}
upper_bound = atoi(arg);
argument = one_argument(argument,arg);
if(arg[0] != '\0')
{
send_to_char("Only two level numbers allowed.\n\r",ch);
return;
}
}
}
if(lower_bound > upper_bound)
{
int swap = lower_bound;
lower_bound = upper_bound;
upper_bound = swap;
}
set_pager_color( AT_PLAIN, ch );
send_to_pager(header_string1, ch);
send_to_pager(header_string2, ch);
for (pArea = first_area_name; pArea; pArea = pArea->next_sort_name)
{
if (pArea->hi_soft_range >= lower_bound
&& pArea->low_soft_range <= upper_bound)
{
pager_printf(ch, print_string,
pArea->author, pArea->name,
pArea->low_soft_range,
pArea->hi_soft_range,
pArea->low_hard_range,
pArea->hi_hard_range);
}
}
return;
}
void do_afk( CHAR_DATA *ch, char *argument )
{
if ( IS_NPC(ch) )
return;
if IS_SET(ch->act, PLR_AFK)
{
REMOVE_BIT(ch->act, PLR_AFK);
send_to_char( "You are no longer afk.\n\r", ch );
act(AT_GREY,"$n is no longer afk.", ch, NULL, NULL, TO_ROOM);
}
else
{
SET_BIT(ch->act, PLR_AFK);
send_to_char( "You are now afk.\n\r", ch );
act(AT_GREY,"$n is now afk.", ch, NULL, NULL, TO_ROOM);
return;
}
}
void do_slist( CHAR_DATA *ch, char *argument )
{
int sn, i, lFound;
char skn[MAX_INPUT_LENGTH];
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
int lowlev, hilev;
int col = 0;
int ability;
if ( IS_NPC(ch) )
return;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
lowlev=1;
hilev=150;
if (arg1[0]!='\0')
lowlev=atoi(arg1);
if ( lowlev < 1 || lowlev > 200 )
lowlev=1;
if (arg2[0]!='\0')
hilev=atoi(arg2);
if ( hilev < 0 || hilev > 200 )
hilev=LEVEL_HERO;
if( lowlev > hilev )
lowlev=hilev;
set_pager_color( AT_MAGIC, ch );
send_to_pager("&B| &BS&WKILL &BL&WIST &B|\n\r",ch);
send_to_pager("&B---------------&W\n\r",ch);
for ( ability = 0 ; ability < MAX_ABILITY ; ability++ )
{
if ( ability >= 0 )
sprintf(skn, "\n\r&B<&W%s&B>&W\n\r", ability_name[ability] );
else
sprintf(skn, "\n\rGeneral Skills\n\r" );
send_to_pager(skn,ch);
for (i=lowlev; i <= hilev; i++)
{
lFound= 0;
for ( sn = 0; sn < top_sn; sn++ )
{
if ( !skill_table[sn]->name )
break;
if ( skill_table[sn]->guild != ability)
continue;
if ( ch->pcdata->learned[sn] == 0
&& SPELL_FLAG(skill_table[sn], SF_SECRETSKILL) )
continue;
if(i==skill_table[sn]->min_level )
{
pager_printf(ch, "&B(&W%3d&B) &B[&W%-17.17s&B] ",
i, skill_table[sn]->name );
if ( ++col == 3 )
{
pager_printf(ch, "\n\r");
col = 0;
}
}
}
}
if ( col != 0 )
{
pager_printf(ch, "\n\r");
col = 0;
}
}
return;
}
void do_whois( CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char height[MAX_STRING_LENGTH];
char weight[MAX_STRING_LENGTH];
int feet, inches;
buf[0] = '\0';
if(IS_NPC(ch))
return;
if(argument[0] == '\0')
{
send_to_char("You must input the name of a player online.\n\r", ch);
return;
}
strcat(buf, "0.");
strcat(buf, argument);
if( ( ( victim = get_char_world(ch, buf) ) == NULL ))
{
send_to_char("No such player online.\n\r", ch);
return;
}
if(IS_NPC(victim))
{
send_to_char("That's not a player!\n\r", ch);
return;
}
feet = victim->height / 12;
inches = victim->height % 12;
sprintf(height, "%d'%d\"", feet , inches);
sprintf(weight, "%d pounds", victim->weight);
ch_printf(ch, "&P+&B--------------------------------------------------------------&P+\n\r");
ch_printf(ch, "&B| &PN&pame&P: &G&W%-20.20s &PA&pge&P: &G&W%-3d &B|\n\r",
victim->name, get_age(victim));
ch_printf(ch, "&B| &PP&p.&PO&p.&PB&P: &G&W%-20.20s &PP&parents&P: &G&W%-20.20s &B|\n\r",
victim->pcdata->pob, ( victim->pcdata->parents && victim->pcdata->parents[0] != '\0' ) ? victim->pcdata->parents : "Unknown ");
ch_printf(ch, "&P+&B--------------------------------------------------------------&P+\n\r");
ch_printf(ch, "&B| &PS&pex&P: &G&W%-s &PR&pace&P: &G&W%-20.20s &B|\n\r",
victim->sex == SEX_MALE ? "Male " : victim->sex == SEX_FEMALE ? "Female " : "Neutral",
race_table[victim->race]->race_name );
ch_printf(ch, "&B| &PH&pair&P: &G&W%-20.20s &PE&pyes&P: &G&W%-20.20s &B|\n\r",
victim->pcdata->haircolor >= 0 ? hair_color[victim->pcdata->haircolor] : "Unknown ",
victim->pcdata->eyes >= 0 ? eye_color[victim->pcdata->eyes] : "Unknown ");
ch_printf(ch, "&B| &PH&peight&P: &G&W%-20.20s &PW&peight&P: &G&W%-20.20s &B|\n\r",height,weight);
ch_printf(ch, "&B| &PB&puild&P: &G&W%-20.20s &B|\n\r",
victim->pcdata->build >= 0 ? build_type[victim->pcdata->build] : "Unknown ");
ch_printf(ch, "&P+&B--------------------------------------------------------------&P+\n\r");
if ( ( victim->pcdata->marriage && victim->pcdata->marriage[0] != '\0' )
&& IS_SET(victim->act2,EXTRA_MARRIED) )
{
ch_printf(ch, "&B| &PM&parital &PS&ptatus&P: &G&W%-14.14s &PS&ppouse&p: &G&W%-20.20s &B|\n\r",
"Married ",victim->pcdata->marriage);
}
else if ( ( victim->pcdata->marriage && victim->pcdata->marriage[0] != '\0' )
&& !IS_SET(victim->act2,EXTRA_MARRIED) )
{
ch_printf(ch, "&B| &PM&parital &PS&ptatus&P: &G&W%-14.14s &PF&piancee&P: &G&W%-20.20s &B|\n\r",
"Engaged ",victim->pcdata->marriage);
}
else
ch_printf(ch, "&B| &PM&parital &PS&ptatus&P: &G&W%-14.14s &B|\n\r",
"Single ");
ch_printf(ch, "&P+&B--------------------------------------------------------------&P+\n\r");
if(victim->pcdata->bio && victim->pcdata->bio[0] != '\0')
ch_printf(ch, "&PR&pemarks&P:&G&W\n\r%s\n\r", victim->pcdata->bio);
else
ch_printf(ch, "&PR&pemarks&P: &G&WNone\n\r");
if(IS_IMMORTAL(ch))
{
set_char_color(AT_PLAIN, ch);
ch_printf(ch, "&P+&B--------------------------------------------------------------&P+&G&W\n\r");
ch_printf(ch, "&B| &PI&pnfo &Pf&por &Pi&pmmortals: &B|\n\r");
if ( victim->pcdata->authed_by && victim->pcdata->authed_by[0] != '\0' )
ch_printf(ch, "&R%s &PW&pas &PA&puthorized &PB&py &R%s&P.\n\r",
victim->name, victim->pcdata->authed_by);
ch_printf(ch, "&R%s &PI&ps &PA &PL&pevel &R%d &R%s&P.\n\r",
victim->name, victim->top_level, get_race(victim) );
if ( victim->pcdata->pkills || victim->pcdata->pdeaths )
ch_printf(ch, "&R%s &PH&pas &PK&pilled &R%d &PP&players, &PA&pnd &PB&peen &PK&pilled &PB&py &PA &PP&player &R%d &PT&pimes.\n\r",
victim->name, victim->pcdata->pkills, victim->pcdata->pdeaths );
if ( victim->pcdata->illegal_pk )
ch_printf(ch, "&R%s &PH&pas &PC&pommitted &R%d &PI&pllegal &PP&player &PK&pills.\n\r",
victim->name, victim->pcdata->illegal_pk );
ch_printf(ch, "%s is %shelled at the moment.\n\r",
victim->name,
(victim->pcdata->release_date == 0) ? "not " : "");
if(victim->pcdata->release_date != 0)
ch_printf(ch, "%s was helled by %s, and will be released on %24.24s.\n\r",
victim->sex == SEX_MALE ? "He" :
victim->sex == SEX_FEMALE ? "She" : "It",
victim->pcdata->helled_by,
ctime(&victim->pcdata->release_date));
if(get_trust(victim) < get_trust(ch))
{
sprintf(buf2, "list %s", buf);
do_comment(ch, buf2);
}
if(IS_SET(victim->act, PLR_SILENCE) || IS_SET(victim->act, PLR_NO_EMOTE)
|| IS_SET(victim->act, PLR_NO_TELL) )
{
sprintf(buf2, "This player has the following flags set:");
if(IS_SET(victim->act, PLR_SILENCE))
strcat(buf2, " silence");
if(IS_SET(victim->act, PLR_NO_EMOTE))
strcat(buf2, " noemote");
if(IS_SET(victim->act, PLR_NO_TELL) )
strcat(buf2, " notell");
strcat(buf2, ".\n\r");
send_to_char(buf2, ch);
}
if ( victim->desc && victim->desc->host[0]!='\0' ) /* added by Gorog */
{
sprintf (buf2, "%s's IP info: %s ", victim->name, victim->desc->hostip);
if (get_trust(ch) >= LEVEL_GOD)
{
strcat (buf2, victim->desc->user);
strcat (buf2, "@");
strcat (buf2, victim->desc->host);
}
strcat (buf2, "\n\r");
send_to_char(buf2, ch);
}
if (victim->pcdata->nuisance )
{
pager_printf_color( ch, "&RNuisance &cStage: (&R%d&c/%d) Power: &w%d &cTime: &w%s.\n\r", victim->pcdata->nuisance->flags,
MAX_NUISANCE_STAGE, victim->pcdata->nuisance->power,
ctime(&victim->pcdata->nuisance->time));
}
}
}
void do_pager( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
if ( IS_NPC(ch) )
return;
argument = one_argument(argument, arg);
if ( !*arg )
{
if ( IS_SET(ch->pcdata->flags, PCFLAG_PAGERON) )
do_config(ch, "-pager");
else
do_config(ch, "+pager");
return;
}
if ( !is_number(arg) )
{
send_to_char( "Set page pausing to how many lines?\n\r", ch );
return;
}
ch->pcdata->pagerlen = atoi(arg);
if ( ch->pcdata->pagerlen < 5 )
ch->pcdata->pagerlen = 5;
ch_printf( ch, "Page pausing set to %d lines.\n\r", ch->pcdata->pagerlen );
return;
}
void do_channels( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
int count = 0;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
ch_printf( ch, "&BC&Whannels &Bt&What &W%s &Bi&Ws &Bl&Wistening &Bt&Wo:\n\r", ch->name ); /* Next Line */
send_to_char( !IS_SET(ch->deaf, CHANNEL_CHAT)
? " [&B+CHAT&G&W ]"
: " [&R-chat&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_OOC)
? " [&B+OOC&G&W ]"
: " [&R-ooc&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_QUEST)
? " [&B+QUEST&G&W ]"
: " [&R-quest&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET( ch->deaf, CHANNEL_TELLS )
? " [&B+TELLS&G&W ]"
: " [&R-tells&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET( ch->deaf, CHANNEL_WARTALK )
? " [&B+WARTALK&G&W ]"
: " [&R-wartalk&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_SHOUT)
? " [&B+SHOUT&G&W ]"
: " [&R-shout&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_YELL)
? " [&B+YELL&G&W ]"
: " [&R-yell&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_NEWBIE)
? " [&B+NEWBIE&G&W ]"
: " [&R-newbie&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_MUSIC)
? " [&B+MUSIC&G&W ]"
: " [&R-music&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( IS_HERO(ch) )
{
send_to_char( !IS_SET(ch->deaf, CHANNEL_AVTALK)
? " [&B+AVATAR&G&W ]"
: " [&R-avatar&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
if ( get_trust( ch ) > 2 && !NEW_AUTH( ch ) ) /* new auth */
{
send_to_char( !IS_SET(ch->deaf, CHANNEL_AUCTION)
? " [&B+AUCTION&G&W ]"
: " [&R-auction&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
if ( !IS_NPC( ch ) && ch->pcdata->clan )
{
send_to_char( !IS_SET(ch->deaf, CHANNEL_CLAN)
? " [&B+CLAN&G&W ]"
: " [&R-clan&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_EMOTE)
? " [&B+G-EMOTE&G&W ]"
: " [&R-g-emote&G&W ]",
ch );
count++;
if ( IS_IMMORTAL(ch) )
{
count = 0;
ch_printf( ch, "\n\r&G&WIMM Channels:\n\r" ); /* Next Line */
send_to_char( !IS_SET(ch->deaf, CHANNEL_IMMTALK)
? " [&B+IMMTALK&G&W ]"
: " [&R-immtalk&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_MONITOR)
? " [&B+MONITOR&G&W ]"
: " [&R-monitor&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
if ( get_trust(ch) >= sysdata.log_level )
{
send_to_char( !IS_SET(ch->deaf, CHANNEL_AUTH)
? " [&B+AUTH&G&W ]"
: " [&R-auth&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_LOG)
? " [&B+LOG&G&W ]"
: " [&R-log&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_BUILD)
? " [&B+BUILD&G&W ]"
: " [&R-build&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(ch->deaf, CHANNEL_COMM)
? " [&B+COMM&G&W ]"
: " [&R-comm&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
if ( get_comfreq(ch) != 0 )
{
ch_printf( ch, "\n\r&G&W%s's comlink is currently tuned to %d\n\r", ch->name, get_comfreq(ch) );
}
}
else
{
bool fClear;
bool ClearAll;
int bit;
bit=0;
ClearAll = FALSE;
if ( arg[0] == '+' ) fClear = TRUE;
else if ( arg[0] == '-' ) fClear = FALSE;
else
{
send_to_char( "Channels -channel or +channel?\n\r", ch );
return;
}
if ( !str_cmp( arg+1, "auction" ) ) bit = CHANNEL_AUCTION;
else if ( !str_cmp( arg+1, "chat" ) ) bit = CHANNEL_CHAT;
else if ( !str_cmp( arg+1, "ooc" ) ) bit = CHANNEL_OOC;
else if ( !str_cmp( arg+1, "clan" ) ) bit = CHANNEL_CLAN;
else if ( !str_cmp( arg+1, "guild" ) ) bit = CHANNEL_GUILD;
else if ( !str_cmp( arg+1, "quest" ) ) bit = CHANNEL_QUEST;
else if ( !str_cmp( arg+1, "tells" ) ) bit = CHANNEL_TELLS;
else if ( !str_cmp( arg+1, "immtalk" ) ) bit = CHANNEL_IMMTALK;
else if ( !str_cmp( arg+1, "log" ) ) bit = CHANNEL_LOG;
else if ( !str_cmp( arg+1, "auth" ) ) bit = CHANNEL_AUTH;
else if ( !str_cmp( arg+1, "build" ) ) bit = CHANNEL_BUILD;
else if ( !str_cmp( arg+1, "avatar" ) ) bit = CHANNEL_AVTALK;
else if ( !str_cmp( arg+1, "monitor" ) ) bit = CHANNEL_MONITOR;
else if ( !str_cmp( arg+1, "newbie" ) ) bit = CHANNEL_NEWBIE;
else if ( !str_cmp( arg+1, "shout" ) ) bit = CHANNEL_SHOUT;
else if ( !str_cmp( arg+1, "yell" ) ) bit = CHANNEL_YELL;
else if ( !str_cmp( arg+1, "comm" ) ) bit = CHANNEL_COMM;
else if ( !str_cmp( arg+1, "music" ) ) bit = CHANNEL_MUSIC;
else if ( !str_cmp( arg+1, "order" ) ) bit = CHANNEL_ORDER;
else if ( !str_cmp( arg+1, "wartalk" ) ) bit = CHANNEL_WARTALK;
else if ( !str_cmp( arg+1, "g-emote" ) ) bit = CHANNEL_EMOTE;
else if ( !str_cmp( arg+1, "all" ) ) ClearAll = TRUE;
else
{
send_to_char( "Set or clear which channel?\n\r", ch );
return;
}
if (( fClear ) && ( ClearAll ))
{
REMOVE_BIT (ch->deaf, CHANNEL_AUCTION);
REMOVE_BIT (ch->deaf, CHANNEL_CHAT);
REMOVE_BIT (ch->deaf, CHANNEL_OOC);
REMOVE_BIT (ch->deaf, CHANNEL_QUEST);
REMOVE_BIT (ch->deaf, CHANNEL_IMMTALK);
REMOVE_BIT (ch->deaf, CHANNEL_SHOUT);
REMOVE_BIT (ch->deaf, CHANNEL_YELL);
/* if (ch->pcdata->clan)
REMOVE_BIT (ch->deaf, CHANNEL_CLAN);
if (ch->pcdata->guild)
REMOVE_BIT (ch->deaf, CHANNEL_GUILD); */
if (ch->top_level >= LEVEL_IMMORTAL)
REMOVE_BIT (ch->deaf, CHANNEL_AVTALK);
if (ch->top_level >= sysdata.log_level )
REMOVE_BIT (ch->deaf, CHANNEL_COMM);
} else if ((!fClear) && (ClearAll))
{
SET_BIT (ch->deaf, CHANNEL_AUCTION);
SET_BIT (ch->deaf, CHANNEL_CHAT);
SET_BIT (ch->deaf, CHANNEL_OOC);
SET_BIT (ch->deaf, CHANNEL_QUEST);
SET_BIT (ch->deaf, CHANNEL_IMMTALK);
SET_BIT (ch->deaf, CHANNEL_SHOUT);
SET_BIT (ch->deaf, CHANNEL_YELL);
if (ch->top_level >= LEVEL_IMMORTAL)
SET_BIT (ch->deaf, CHANNEL_AVTALK);
if (ch->top_level >= sysdata.log_level)
SET_BIT (ch->deaf, CHANNEL_COMM);
} else if (fClear)
{
REMOVE_BIT (ch->deaf, bit);
} else
{
SET_BIT (ch->deaf, bit);
}
send_to_char( "Ok.\n\r", ch );
}
return;
}
/*
* Get the com freq for a player.
*/
int get_comfreq( CHAR_DATA *ch )
{
if ( IS_NPC(ch) )
return -1;
if( !has_comlink(ch) )
return 0;
else if ( ch->pcdata->comchan )
return ch->pcdata->comchan;
else
return 0;
return 0;
}
void do_chanuser( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
int count = 0;
argument = one_argument( argument, arg );
victim = get_char_world(ch, arg);
if ( victim == NULL )
{
send_to_char("There is nobody around by that name\n\r", ch);
return;
}
else if ( IS_IMMORTAL(ch) && ( get_trust( victim ) <= get_trust( ch ) ) )
{
ch_printf( ch, "&G&WChannels that %s is listening to:\n\r", victim->name ); /* Next Line */
send_to_char( !IS_SET(victim->deaf, CHANNEL_CHAT)
? " [&B+CHAT&G&W ]"
: " [&R-chat&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_OOC)
? " [&B+OOC&G&W ]"
: " [&R-ooc&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_QUEST)
? " [&B+QUEST&G&W ]"
: " [&R-quest&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET( victim->deaf, CHANNEL_TELLS )
? " [&B+TELLS&G&W ]"
: " [&R-tells&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET( victim->deaf, CHANNEL_WARTALK )
? " [&B+WARTALK&G&W ]"
: " [&R-wartalk&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_SHOUT)
? " [&B+SHOUT&G&W ]"
: " [&R-shout&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_YELL)
? " [&B+YELL&G&W ]"
: " [&R-yell&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_NEWBIE)
? " [&B+NEWBIE&G&W ]"
: " [&R-newbie&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( IS_HERO(victim) )
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_AVTALK)
? " [&B+AVATAR&G&W ]"
: " [&R-avatar&G&W ]",
ch );
count++;
}
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( IS_IMMORTAL(victim) )
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_IMMTALK)
? " [&B+IMMTALK&G&W ]"
: " [&R-immtalk&G&W ]",
ch );
count++;
}
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( IS_IMMORTAL(victim) )
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_MONITOR)
? " [&B+MONITOR&G&W ]"
: " [&R-monitor&G&W ]",
ch );
count++;
}
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( get_trust(victim) >= sysdata.log_level )
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_AUTH)
? " [&B+AUTH&G&W ]"
: " [&R-auth&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_LOG)
? " [&B+LOG&G&W ]"
: " [&R-log&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_BUILD)
? " [&B+BUILD&G&W ]"
: " [&R-build&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
send_to_char( !IS_SET(victim->deaf, CHANNEL_COMM)
? " [&B+COMM&G&W ]"
: " [&R-comm&G&W ]",
ch );
count++;
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
}
if ( get_trust( victim ) > 2 && !NEW_AUTH( victim ) ) /* new auth */
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_AUCTION)
? " [&B+AUCTION&G&W ]"
: " [&R-auction&G&W ]",
ch );
count++;
}
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( !IS_NPC( victim ) && victim->pcdata->clan )
{
send_to_char( !IS_SET(victim->deaf, CHANNEL_CLAN)
? " [&B+CLAN&G&W ]"
: " [&R-clan&G&W ]",
ch );
count++;
}
if ( count == 3 )
{
count = 0;
send_to_char( "&G&W\n\r", ch ); /* Next Line */
}
if ( get_comfreq(victim) != 0 )
{
ch_printf( ch, "\n\r&G&W%s's comlink is currently tuned to %d\n\r", victim->name, get_comfreq(victim) );
}
else
send_to_char( "&G&W\n\r", ch );
return;
}
}
/*
* The ignore command allows players to ignore up to MAX_IGN
* other players. Players may ignore other characters whether
* they are online or not. This is to prevent people from
* spamming someone and then logging off quickly to evade
* being ignored.
* Syntax:
* ignore - lists players currently ignored
* ignore none - sets it so no players are ignored
* ignore <player> - start ignoring player if not already
* ignored otherwise stop ignoring player
* ignore reply - start ignoring last player to send a
* tell to ch, to deal with invis spammers
* Last Modified: June 26, 1997
* - Fireblade
*/
void do_ignore(CHAR_DATA *ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
IGNORE_DATA *temp, *next;
char fname[1024];
struct stat fst;
CHAR_DATA *victim;
if(IS_NPC(ch))
return;
argument = one_argument(argument, arg);
sprintf(fname, "%s%c/%s", PLAYER_DIR,
tolower(arg[0]), capitalize(arg));
victim = NULL;
/* If no arguements, then list players currently ignored */
if(arg[0] == '\0')
{
set_char_color(AT_DIVIDER, ch);
ch_printf(ch, "\n\r----------------------------------------\n\r");
set_char_color(AT_DGREEN, ch);
ch_printf(ch, "You are currently ignoring:\n\r");
set_char_color(AT_DIVIDER, ch);
ch_printf(ch, "----------------------------------------\n\r");
set_char_color(AT_IGNORE, ch);
if(!ch->pcdata->first_ignored)
{
ch_printf(ch, "\t no one\n\r");
return;
}
for(temp = ch->pcdata->first_ignored; temp;
temp = temp->next)
{
ch_printf(ch,"\t - %s\n\r",temp->name);
}
return;
}
/* Clear players ignored if given arg "none" */
else if(!strcmp(arg, "none"))
{
for(temp = ch->pcdata->first_ignored; temp; temp = next)
{
next = temp->next;
UNLINK(temp, ch->pcdata->first_ignored,
ch->pcdata->last_ignored,
next, prev);
STRFREE(temp->name);
DISPOSE(temp);
}
set_char_color(AT_IGNORE, ch);
ch_printf(ch, "You now ignore no one.\n\r");
return;
}
/* Prevent someone from ignoring themself... */
else if(!strcmp(arg, "self") || nifty_is_name(arg, ch->name))
{
set_char_color(AT_IGNORE, ch);
ch_printf(ch, "Did you type something?\n\r");
return;
}
else
{
int i;
/* get the name of the char who last sent tell to ch */
if(!strcmp(arg, "reply"))
{
if(!ch->reply)
{
set_char_color(AT_IGNORE, ch);
ch_printf(ch, "They're not here.\n\r");
return;
}
else
{
strcpy(arg, ch->reply->name);
}
}
/* Loop through the linked list of ignored players */
/* keep track of how many are being ignored */
for(temp = ch->pcdata->first_ignored, i = 0; temp;
temp = temp->next, i++)
{
/* If the argument matches a name in list remove it */
if(!strcmp(temp->name, capitalize(arg)))
{
UNLINK(temp, ch->pcdata->first_ignored,
ch->pcdata->last_ignored,
next, prev);
set_char_color(AT_IGNORE, ch);
ch_printf(ch,"You no longer ignore %s.\n\r",
temp->name);
STRFREE(temp->name);
DISPOSE(temp);
return;
}
}
/* if there wasn't a match check to see if the name */
/* is valid. This if-statement may seem like overkill */
/* but it is intended to prevent people from doing the*/
/* spam and log thing while still allowing ya to */
/* ignore new chars without pfiles yet... */
if( stat(fname, &fst) == -1 &&
(!(victim = get_char_world(ch, arg)) ||
IS_NPC(victim) ||
strcmp(capitalize(arg),victim->name) != 0))
{
set_char_color(AT_IGNORE, ch);
ch_printf(ch,"No player exists by that"
" name.\n\r");
return;
}
if(victim)
{
strcpy(capitalize(arg),victim->name);
}
/* If its valid and the list size limit has not been */
/* reached create a node and at it to the list */
if(i < MAX_IGN)
{
IGNORE_DATA *new;
CREATE(new, IGNORE_DATA, 1);
new->name = STRALLOC(capitalize(arg));
new->next = NULL;
new->prev = NULL;
LINK(new, ch->pcdata->first_ignored,
ch->pcdata->last_ignored, next, prev);
set_char_color(AT_IGNORE, ch);
ch_printf(ch,"You now ignore %s.\n\r", new->name);
return;
}
else
{
set_char_color(AT_IGNORE, ch);
ch_printf(ch,"You may only ignore %d players.\n\r",
MAX_IGN);
return;
}
}
}
/*
* This function simply checks to see if ch is ignoring ign_ch.
* Last Modified: October 10, 1997
* - Fireblade
*/
bool is_ignoring(CHAR_DATA *ch, CHAR_DATA *ign_ch)
{
IGNORE_DATA *temp;
if(IS_NPC(ch) || IS_NPC(ign_ch))
return FALSE;
for(temp = ch->pcdata->first_ignored; temp; temp = temp->next)
{
if(nifty_is_name(temp->name, ign_ch->name))
return TRUE;
}
return FALSE;
}
/* Version info -- Scryn */
void do_version(CHAR_DATA* ch, char* argument)
{
if(IS_NPC(ch))
return;
set_char_color(AT_YELLOW, ch);
ch_printf(ch, "Unknown Regions %s.%s\n\r", UR_VERSION_MAJOR, UR_VERSION_MINOR);
if(IS_IMMORTAL(ch))
ch_printf(ch, "Compiled on %s at %s.\n\r", __DATE__, __TIME__);
return;
}