diff -i smaug14/src/player.c smaug18/src/player.c
8c8
< * Tricops and Fireblade | *
---
> * Tricops, Fireblade, Edmond, Conran | *
37a38,61
> /*
> * Returns a string from the honour_rank matrix for display purpose
> * -- Raltaris
> */
> char *get_honour( CHAR_DATA * ch )
> {
> int honour = ch->pcdata->honour;
> int class = ch->class > 11 ? 3 : ch->class;
>
> if ( honour > 99 )
> return honour_rank[class][6];
> else if ( honour > 64 )
> return honour_rank[class][5];
> else if ( honour > 39 )
> return honour_rank[class][4];
> else if ( honour > 19 )
> return honour_rank[class][3];
> else if ( honour > 9 )
> return honour_rank[class][2];
> else if ( honour > 4 )
> return honour_rank[class][1];
>
> return honour_rank[class][0];
> }
47,49c71,73
< set_pager_color( AT_SCORE, ch );
< pager_printf( ch, "\n\rWorth for %s%s.\n\r", ch->name, ch->pcdata->title );
< send_to_pager( " ----------------------------------------------------------------------------\n\r", ch );
---
> set_pager_color( AT_GREEN, ch );
> pager_printf_color( ch, "\n\r&GWorth for &w%s&G%s.\n\r", ch->name, ch->pcdata->title );
> send_to_pager_color( " &g----------------------------------------------------------------------------\n\r", ch );
110,112c134,137
< pager_printf( ch, "|Level: %-4d |Favor: %-10s |Alignment: %-9s |Experience: %-9d|\n\r",
< ch->level, buf, buf2, ch->exp );
< send_to_pager( " ----------------------------------------------------------------------------\n\r", ch );
---
> pager_printf_color( ch,
> "&g|&GLevel: &w%-4d &g|&GFavor: &w%-10s &g|&GAlignment: &w%-9s &g|&GExperience: &w%-9d&g|\n\r", ch->level, buf,
> buf2, ch->exp );
> send_to_pager_color( "&g ----------------------------------------------------------------------------\n\r", ch );
131c156,157
< pager_printf( ch, "|Glory: %-4d |Weight: %-9d |Style: %-13s |Gold: %-14s |\n\r",
---
> pager_printf_color
> ( ch, "&g|&GGlory: &w%-4d &g|&GWeight: &w%-9d &g|&GStyle: &w%-13s &g|&GGold: &w%-14s &g|\n\r",
133c159
< send_to_pager( " ----------------------------------------------------------------------------\n\r", ch );
---
> send_to_pager_color( "&g ----------------------------------------------------------------------------\n\r", ch );
135c161,166
< pager_printf( ch, "| |Hitroll: -------- |Damroll: ----------- | |\n\r" );
---
> pager_printf_color( ch,
> "&g| |&GHitroll: &g-------- |&GDamroll: &g----------- | |\n\r" );
> else if ( ch->level >= 50 )
> pager_printf_color( ch,
> "&g|&GHonour: &w%-3d &g|&GRank: &w%-11s &g|&GHitroll: &w%-11d &g|&GDamroll: &w%-11d &g|\n\r",
> ch->pcdata->honour, get_honour( ch ), GET_HITROLL( ch ), GET_DAMROLL( ch ) );
137,139c168,170
< pager_printf( ch, "| |Hitroll: %-8d |Damroll: %-11d | |\n\r", GET_HITROLL( ch ),
< GET_DAMROLL( ch ) );
< send_to_pager( " ----------------------------------------------------------------------------\n\r", ch );
---
> pager_printf_color( ch, "&g| |&GHitroll: &w%-8d &g|&GDamroll: &w%-11d &g| |\n\r",
> GET_HITROLL( ch ), GET_DAMROLL( ch ) );
> send_to_pager_color( "&g ----------------------------------------------------------------------------\n\r", ch );
142a174
>
144a177,178
> * This version is left for the people who have lost sight of reality so badly as to
> * become violently problematic over the colors added to do_score
150c184,185
< int iLang;
---
>
> // int iLang;
173c208
< pager_printf( ch, "STR : %2.2d(%2.2d) HitRoll: %-4d Saved: %s\r",
---
> pager_printf( ch, "STR : %2.2d(%2.2d) HitRoll: %-4d Saved: %s\r",
177c212
< pager_printf( ch, "INT : %2.2d(%2.2d) DamRoll: %-4d Time: %s\r",
---
> pager_printf( ch, "INT : %2.2d(%2.2d) DamRoll: %-4d Time: %s\r",
302c337,339
< pager_printf( ch, "CHA : %2.2d(%2.2d) Wimpy: %-5d ", get_curr_cha( ch ), ch->perm_cha, ch->wimpy );
---
> pager_printf( ch, "CHA : %2.2d(%2.2d) Wimpy: %-5d \n\r", get_curr_cha( ch ), ch->perm_cha, ch->wimpy );
>
> pager_printf( ch, "LCK : %2.2d(%2.2d) ", get_curr_lck( ch ), ch->perm_lck );
322a360,361
> if ( ch->level >= 50 )
> pager_printf( ch, "Honour: %3.3d Rank: %s\n\r", ch->pcdata->honour, get_honour( ch ) );
324,326c363,368
< pager_printf( ch, "LCK : %2.2d(%2.2d) \n\r", get_curr_lck( ch ), ch->perm_lck );
<
< pager_printf( ch, "Glory: %4.4d(%4.4d) \n\r", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
---
> #ifdef SHADDAI
> pager_printf( ch, "Glory: %4.4d(%4.4d) Stance: %s\n\r",
> ch->pcdata->quest_curr, ch->pcdata->quest_accum, get_stance_name( ch->stance ) );
> #else
> pager_printf( ch, "Glory: %4.4d(%4.4d)\n\r", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
> #endif
347d388
<
432,443c473,487
< send_to_pager( "Languages: ", ch );
< for ( iLang = 0; lang_array[iLang] != LANG_UNKNOWN; iLang++ )
< if ( knows_language( ch, lang_array[iLang], ch ) || ( IS_NPC( ch ) && ch->speaks == 0 ) )
< {
< if ( lang_array[iLang] & ch->speaking || ( IS_NPC( ch ) && !ch->speaking ) )
< set_pager_color( AT_RED, ch );
< send_to_pager( lang_names[iLang], ch );
< send_to_pager( " ", ch );
< set_pager_color( AT_SCORE, ch );
< }
< send_to_pager( "\n\r", ch );
<
---
> /*
> send_to_pager("Languages: ", ch );
> for ( iLang = 0; lang_array[iLang] != LANG_UNKNOWN; iLang++ )
> if ( knows_language( ch, lang_array[iLang], ch )
> || (IS_NPC(ch) && ch->speaks == 0) )
> {
> if ( lang_array[iLang] & ch->speaking
> || (IS_NPC(ch) && !ch->speaking) )
> set_pager_color( AT_RED, ch );
> send_to_pager( lang_names[iLang], ch );
> send_to_pager( " ", ch );
> set_pager_color( AT_SCORE, ch );
> }
> send_to_pager( "\n\r", ch );
> */
593c637,721
< void do_newscore( CHAR_DATA * ch, char *argument )
---
> void do_colorscheme( CHAR_DATA * ch, char *argument )
> {
> char arg[MAX_INPUT_LENGTH];
>
> argument = one_argument( argument, arg );
>
> if ( IS_NPC( ch ) )
> return;
>
> if ( !strcmp( arg, "1" ) )
> {
> ch->pcdata->colorize[24] = 2;
> ch->pcdata->colorize[25] = 3;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "2" ) )
> {
> ch->pcdata->colorize[24] = 2;
> ch->pcdata->colorize[25] = 15;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "3" ) )
> {
> ch->pcdata->colorize[24] = 2;
> ch->pcdata->colorize[25] = 7;
> ch->pcdata->colorize[38] = 15;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "4" ) )
> {
> ch->pcdata->colorize[24] = 3;
> ch->pcdata->colorize[25] = 2;
> ch->pcdata->colorize[38] = 15;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "5" ) )
> {
> ch->pcdata->colorize[24] = 3;
> ch->pcdata->colorize[25] = 15;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "6" ) )
> {
> ch->pcdata->colorize[24] = 3;
> ch->pcdata->colorize[25] = 7;
> ch->pcdata->colorize[38] = 15;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "7" ) )
> {
> ch->pcdata->colorize[24] = 15;
> ch->pcdata->colorize[25] = 2;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "8" ) )
> {
> ch->pcdata->colorize[24] = 15;
> ch->pcdata->colorize[25] = 10;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "9" ) )
> {
> ch->pcdata->colorize[24] = 15;
> ch->pcdata->colorize[25] = 3;
> ch->pcdata->colorize[38] = 7;
> send_to_char_color( "&GColor scheme set.\n\r", ch );
> }
> else if ( !strcmp( arg, "default" ) )
> {
> ch->pcdata->colorize[25] = -1;
> ch->pcdata->colorize[24] = -1;
> ch->pcdata->colorize[38] = -1;
> send_to_char_color( "&GColor scheme set to MUD default.\n\r", ch );
> }
> else
> do_help( ch, "colorscheme" );
> return;
> }
>
> void do_compass( CHAR_DATA * ch, char *argument )
595d722
< char buf[MAX_STRING_LENGTH];
596a724,763
>
> one_argument( argument, arg );
>
> if ( arg[0] == '\0' )
> {
> if ( xIS_SET( ch->act, PLR_COMPASS ) )
> {
> xREMOVE_BIT( ch->act, PLR_COMPASS );
> send_to_char( "Compass is now off.\n\r", ch );
> return;
> }
> else
> {
> xSET_BIT( ch->act, PLR_COMPASS );
> do_look( ch, "auto" );
> return;
> }
> }
> if ( ( strcmp( arg, "on" ) == 0 ) || ( strcmp( arg, "ON" ) == 0 ) )
> {
> xSET_BIT( ch->act, PLR_COMPASS );
> do_look( ch, "auto" );
> return;
> }
> if ( ( strcmp( arg, "off" ) == 0 ) || ( strcmp( arg, "OFF" ) == 0 ) )
> {
> xREMOVE_BIT( ch->act, PLR_COMPASS );
> send_to_char( "Compass is now off.\n\r", ch );
> return;
> }
> }
>
>
> /*
> * New score command by Haus
> * Colorized in 2001
> */
> void do_cscore( CHAR_DATA * ch, char *argument )
> {
> char buf[MAX_STRING_LENGTH];
598a766,767
> // int iLang;
>
604c773
< set_pager_color( AT_SCORE, ch );
---
> set_pager_color( AT_GREEN, ch );
606c775
< pager_printf_color( ch, "\n\r&C%s%s.\n\r", ch->name, ch->pcdata->title );
---
> pager_printf_color( ch, "\n\r&GScore for %s%s.\n\r", ch->name, ch->pcdata->title );
608c777
< pager_printf( ch, "You are trusted at level %d.\n\r", get_trust( ch ) );
---
> pager_printf_color( ch, "&GYou are trusted at level &Y%d.\n\r", get_trust( ch ) );
610c779
< send_to_pager_color( "&W----------------------------------------------------------------------------\n\r", ch );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
612c781
< pager_printf_color( ch, "Level: &W%-3d &CRace : &W%-10.10s &CPlayed: &W%d &Chours\n\r",
---
> pager_printf_color( ch, "&GLEVEL: &w%-3d &GRace : &w%-10.10s &gPlayed: &w%d hours\n\r",
614c783,784
< pager_printf_color( ch, "&CYears: &W%-6d &CClass: &W%-11.11s &CLog In: %s\r",
---
>
> pager_printf_color( ch, "&GYEARS: &w%-6d &GClass: &w%-11.11s &gLog In: &w%s\r",
619c789
< pager_printf_color( ch, "&CSTR : &W%2.2d&C(&w%2.2d&C) HitRoll: &R%-4d &CSaved: %s\r",
---
> pager_printf_color( ch, "&GSTR : &w%2.2d&g(&W%2.2d&g) &GHitRoll: &R%-4d &gSaved: &w%s\r",
623c793
< pager_printf_color( ch, "&CINT : &W%2.2d&C(&w%2.2d&C) DamRoll: &R%-4d &CTime: %s\r",
---
> pager_printf_color( ch, "&GINT : &w%2.2d&g(&W%2.2d&g) &GDamRoll: &R%-4d &gTime: &w%s\r",
628c798
< pager_printf_color( ch, "&CSTR : &W%2.2d&C(&w%2.2d&C) Saved: %s\r",
---
> pager_printf_color( ch, "&GSTR : &w%2.2d&g(&W%2.2d&g) &gSaved: &w%s\r",
631c801
< pager_printf_color( ch, "&CINT : &W%2.2d&C(&w%2.2d&C) Time: %s\r",
---
> pager_printf_color( ch, "&GINT : &w%2.2d&g(&W%2.2d&g) &gTime: &w%s\r",
666c836
< pager_printf_color( ch, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%-d; %s\n\r",
---
> pager_printf_color( ch, "&GWIS : &w%2.2d&g(&W%2.2d&g) &GArmor: &w%4.4d, %s\n\r",
669c839
< pager_printf_color( ch, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%s \n\r",
---
> pager_printf_color( ch, "&GWIS : &w%2.2d&g(&W%2.2d&g) &WArmor: &w%s \n\r",
691c861,862
< pager_printf_color( ch, "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%-20.20s &CItems: &W%d (max %d)\n\r",
---
> pager_printf_color( ch,
> "&GDEX : &w%2.2d&g(&W%2.2d&g) &GAlign: &w%-20.20s &GItems: &W%5.5d &g(&wmax %5.5d&g)\n\r",
695c866
< "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%4d; %-14.14s &CItems: &W%d &w(max %d)\n\r",
---
> "&GDEX : &w%2.2d&g(&W%2.2d&g) &GAlign: &w%+4.4d, %-14.14s &GItems: &W%5.5d &g(&wmax %5.5d&g)\n\r",
743c914,915
< pager_printf_color( ch, "&CCON : &W%2.2d&C(&w%2.2d&C) Pos'n: &W%-21.21s &CWeight: &W%d &w(max %d)\n\r",
---
> pager_printf_color( ch,
> "&GCON : &w%2.2d&g(&W%2.2d&g) &GPos'n: &w%-21.21s &GWeight: &W%5.5d &g(&wmax %7.7d&g)\n\r",
750c922
< pager_printf_color( ch, "&CCHA : &W%2.2d&C(&w%2.2d&C) Wimpy: &Y%-5d ",
---
> pager_printf_color( ch, "&GCHA : &w%2.2d&g(&W%2.2d&g) &GWimpy: &Y%-5d \n\r",
752a925,926
> pager_printf_color( ch, "&GLCK : &w%2.2d&g(&W%2.2d&g) ", get_curr_lck( ch ), ch->perm_lck );
>
771,774c945,954
< pager_printf_color( ch, "\n\r&CLCK : &W%2.2d&C(&w%2.2d&C) Style: &W%-10.10s\n\r",
< get_curr_lck( ch ), ch->perm_lck, buf );
<
< pager_printf_color( ch, "&CGlory: &W%d&C/&w%d\n\r", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
---
> pager_printf_color( ch, "&GStyle: &W%-10.10s\n\r", buf );
> if ( ch->level >= 50 )
> pager_printf_color( ch, "&GHonour: &w%3.3d &GRank: &w%s\n\r", ch->pcdata->honour, get_honour( ch ) );
>
> #ifdef SHADDAI
> pager_printf_color( ch, "&GGlory: &w%4.4d&g(&W%4.4d&g) &GStance: &W%s\n\r",
> ch->pcdata->quest_curr, ch->pcdata->quest_accum, get_stance_name( ch->stance ) );
> #else
> pager_printf_color( ch, "&GGlory: &w%4.4d&g(&W%4.4d&g)\n\r", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
> #endif
777c957
< "&CPRACT: &W%3d &CHitpoints: &G%-5d &Cof &g%5d &CPager: (&W%c&C) &W%3d &CAutoExit(&W%c&C)\n\r",
---
> "&GPRACT: &w%3.3d &GHitpoints: &W%-5d &gof &W%5d &GPager: &g(&w%c&g) &w%3d &GAutoExit&g(&w%c&g)\n\r",
783,784c963,964
< "&CEXP : &W%-9d &CBlood: &R%-5d &Cof &r%5d &CMKills: &W%5d &CAutoLoot(&W%c&C)\n\r", ch->exp,
< ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->pcdata->mkills, xIS_SET( ch->act,
---
> "&GXP : &w%-9d &GBlood: &R%-5d &Gof &R%5d &GMKills: &w%-5.5d &GAutoLoot&g(&w%c&g)\n\r",
> ch->exp, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->pcdata->mkills, xIS_SET( ch->act,
788c968
< "&CEXP : &W%-9d &CMKills: &W%5d &CAutoLoot(&W%c&C)\n\r", ch->exp,
---
> "&GXP : &w%-9d &GMKills: &w%-5.5d &GAutoLoot&g(&w%c&g)\n\r", ch->exp,
792,793c972,973
< "&CEXP : &W%-9d &CMana: &B%-5d &Cof &b%5d &CMKills: &W%5d &CAutoLoot(&W%c&C)\n\r", ch->exp,
< ch->mana, ch->max_mana, ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
---
> "&GXP : &w%-9d &GMana: &C%-5d &Gof &C%5d &GMKills: &w%-5.5d &GAutoLoot&g(&w%c&g)\n\r",
> ch->exp, ch->mana, ch->max_mana, ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
796c976
< "&CGOLD : &Y%-13s &CMove: &W%-5d &Cof &w%5d &CMdeaths: &W%5d &CAutoSac (&W%c&C)\n\r",
---
> "&GGOLD : &Y%-13s &GMove: &w%-5d &Gof &w%5d &GMdeaths: &w%-5.5d &GAutoSac &g(&w%c&g)\n\r",
799a980
> set_char_color( AT_GREEN, ch );
884c1065,1066
< /* send_to_pager("Languages: ", ch );
---
> /*
> send_to_pager("Languages: ", ch );
899c1081
< pager_printf_color( ch, "&CYou are bestowed with the command(s): &Y%s\n\r", ch->pcdata->bestowments );
---
> pager_printf( ch, "You are bestowed with the command(s): %s.\n\r", ch->pcdata->bestowments );
903,904c1085
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
910,911c1091
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
915,917c1095,1097
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
< pager_printf_color( ch, "&CPKILL DATA: Pkills (&W%d&C) Illegal Pkills (&W%d&C) Pdeaths (&W%d&C)\n\r",
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
> pager_printf_color( ch,
> "&GPKILL DATA: Pkills &g(&w%3.3d&g) &GIllegal Pkills &g(&w%3.3d&g) &GPdeaths &g(&w%3.3d&g)\n\r",
922,928c1102,1106
< /*
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r", ch);
< */
< pager_printf_color( ch, "&CCLAN STATS: &W%-14.14s &CClan AvPkills : &W%-5d &CClan NonAvpkills : &W%-5d\n\r",
< ch->pcdata->clan->name, ch->pcdata->clan->pkills[5],
< ( ch->pcdata->clan->pkills[0] + ch->pcdata->clan->pkills[1] +
< ch->pcdata->clan->pkills[2] + ch->pcdata->clan->pkills[3] + ch->pcdata->clan->pkills[4] ) );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
> pager_printf_color( ch, "&GCLAN STATS: &w%-14.14s &GClan AvPkills : &w%-5d &GClan NonAvpkills : &w%-5d\n\r",
> ch->pcdata->clan->name, ch->pcdata->clan->pkills[6],
> ( ch->pcdata->clan->pkills[1] + ch->pcdata->clan->pkills[2] +
> ch->pcdata->clan->pkills[3] + ch->pcdata->clan->pkills[4] + ch->pcdata->clan->pkills[5] ) );
930,933c1108,1111
< "&C Clan AvPdeaths: &W%-5d &CClan NonAvpdeaths: &W%-5d\n\r",
< ch->pcdata->clan->pdeaths[5],
< ( ch->pcdata->clan->pdeaths[0] + ch->pcdata->clan->pdeaths[1] + ch->pcdata->clan->pdeaths[2] +
< ch->pcdata->clan->pdeaths[3] + ch->pcdata->clan->pdeaths[4] ) );
---
> " &GClan AvPdeaths: &w%-5d &GClan NonAvpdeaths: &w%-5d\n\r",
> ch->pcdata->clan->pdeaths[6],
> ( ch->pcdata->clan->pdeaths[1] + ch->pcdata->clan->pdeaths[2] + ch->pcdata->clan->pdeaths[3] +
> ch->pcdata->clan->pdeaths[4] + ch->pcdata->clan->pdeaths[5] ) );
937,938c1115
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
973c1150
< pager_printf_color( ch, "&CDeity: &W%-20s &CFavor: &W%s&C\n\r", ch->pcdata->deity->name, buf );
---
> pager_printf_color( ch, "&GDeity: &w%-20s &GFavor: &w%s\n\r", ch->pcdata->deity->name, buf );
977,979c1154,1155
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
< pager_printf_color( ch, "&COrder: &W%-20s &COrder Mkills: &W%-6d &COrder MDeaths: &W%-6d\n\r",
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
> pager_printf_color( ch, "&GOrder: &w%-20s &GOrder Mkills: &w%-6d &GOrder MDeaths: &w%-6d\n\r",
984,986c1160,1161
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
< pager_printf_color( ch, "&CGuild: &W%-20s &CGuild Mkills: &W%-6d &CGuild MDeaths: &W%-6d\n\r",
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
> pager_printf_color( ch, "&GGuild: &w%-20s &GGuild Mkills: &w%-6d &GGuild MDeaths: &w%-6d\n\r",
989,990c1164,1190
< argument = one_argument( argument, arg );
< if ( ch->first_affect && !str_cmp( arg, "affects" ) )
---
> if ( IS_IMMORTAL( ch ) )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
>
> pager_printf_color( ch, "&GIMMORTAL DATA: Wizinvis &g[&w%s&g] &GWizlevel &g(&w%d&g)\n\r",
> xIS_SET( ch->act, PLR_WIZINVIS ) ? "X" : " ", ch->pcdata->wizinvis );
>
> pager_printf_color( ch, "&GBamfin: &W%s %s\n\r", ch->name, ( ch->pcdata->bamfin[0] != '\0' )
> ? ch->pcdata->bamfin : "appears in a swirling mist." );
> pager_printf_color( ch, "&GBamfout: &W%s %s\n\r", ch->name, ( ch->pcdata->bamfout[0] != '\0' )
> ? ch->pcdata->bamfout : "leaves in a swirling mist." );
>
>
> /*
> * Area Loaded info - Scryn 8/11
> */
> if ( ch->pcdata->area )
> {
> pager_printf_color( ch,
> "&GVnums: Room &g(&w%-5.5d - %-5.5d&g) &GObject &g(&w%-5.5d - %-5.5d&g) &GMob &g(&w%-5.5d - %-5.5d&g)\n\r",
> ch->pcdata->area->low_r_vnum, ch->pcdata->area->hi_r_vnum, ch->pcdata->area->low_o_vnum,
> ch->pcdata->area->hi_o_vnum, ch->pcdata->area->low_m_vnum, ch->pcdata->area->hi_m_vnum );
> pager_printf_color( ch, "&GArea Loaded &g[&w%s&g]\n\r", ( IS_SET( ch->pcdata->area->status,
> AREA_LOADED ) ) ? "yes" : "no" );
> }
> }
> if ( ch->first_affect )
996,998c1196,1198
< send_to_pager_color( "&W----------------------------------------------------------------------------&C\n\r",
< ch );
< send_to_pager_color( "AFFECT DATA: ", ch );
---
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
> send_to_pager_color( "&GAFFECT DATA: ", ch );
> set_char_color( AT_WHITE, ch );
1005c1205
< pager_printf_color( ch, "&C[&W%-34.34s&C] ", sktmp->name );
---
> pager_printf( ch, "[%-34.34s] ", sktmp->name );
1014c1214
< pager_printf_color( ch, "&C[&W%-24.24s;%5d &Crds] ", sktmp->name, paf->duration );
---
> pager_printf( ch, "[%-24.24s;%5d rds] ", sktmp->name, paf->duration );
1016c1216
< pager_printf_color( ch, "&C[&W%-15.15s; %7.7s;%5d &Crds] ",
---
> pager_printf( ch, "[%-15.15s; %7.7s;%5d rds] ",
1019c1219
< pager_printf_color( ch, "&C[&W%-11.11s;%+-3.3d %7.7s;%5d &Crds] ",
---
> pager_printf( ch, "[%-11.11s;%+-3.3d %7.7s;%5d rds] ",
1032,1035c1232
< /*
< * Return ascii name of an affect location.
< */
< char *tiny_affect_loc_name( int location )
---
> void do_newscore( CHAR_DATA * ch, char *argument )
1037c1234,1238
< switch ( location )
---
> char buf[MAX_STRING_LENGTH];
> char arg[MAX_INPUT_LENGTH];
> AFFECT_DATA *paf;
>
> if ( IS_NPC( ch ) )
1039,1129c1240,1769
< case APPLY_NONE:
< return "NIL";
< case APPLY_STR:
< return " STR ";
< case APPLY_DEX:
< return " DEX ";
< case APPLY_INT:
< return " INT ";
< case APPLY_WIS:
< return " WIS ";
< case APPLY_CON:
< return " CON ";
< case APPLY_CHA:
< return " CHA ";
< case APPLY_LCK:
< return " LCK ";
< case APPLY_SEX:
< return " SEX ";
< case APPLY_CLASS:
< return " CLASS";
< case APPLY_LEVEL:
< return " LVL ";
< case APPLY_AGE:
< return " AGE ";
< case APPLY_MANA:
< return " MANA ";
< case APPLY_HIT:
< return " HV ";
< case APPLY_MOVE:
< return " MOVE ";
< case APPLY_GOLD:
< return " GOLD ";
< case APPLY_EXP:
< return " EXP ";
< case APPLY_AC:
< return " AC ";
< case APPLY_HITROLL:
< return " HITRL";
< case APPLY_DAMROLL:
< return " DAMRL";
< case APPLY_SAVING_POISON:
< return "SV POI";
< case APPLY_SAVING_ROD:
< return "SV ROD";
< case APPLY_SAVING_PARA:
< return "SV PARA";
< case APPLY_SAVING_BREATH:
< return "SV BRTH";
< case APPLY_SAVING_SPELL:
< return "SV SPLL";
< case APPLY_HEIGHT:
< return "HEIGHT";
< case APPLY_WEIGHT:
< return "WEIGHT";
< case APPLY_AFFECT:
< return "AFF BY";
< case APPLY_RESISTANT:
< return "RESIST";
< case APPLY_IMMUNE:
< return "IMMUNE";
< case APPLY_SUSCEPTIBLE:
< return "SUSCEPT";
< case APPLY_WEAPONSPELL:
< return " WEAPON";
< case APPLY_BACKSTAB:
< return "BACKSTB";
< case APPLY_PICK:
< return " PICK ";
< case APPLY_TRACK:
< return " TRACK ";
< case APPLY_STEAL:
< return " STEAL ";
< case APPLY_SNEAK:
< return " SNEAK ";
< case APPLY_HIDE:
< return " HIDE ";
< case APPLY_PALM:
< return " PALM ";
< case APPLY_DETRAP:
< return " DETRAP";
< case APPLY_DODGE:
< return " DODGE ";
< case APPLY_PEEK:
< return " PEEK ";
< case APPLY_SCAN:
< return " SCAN ";
< case APPLY_GOUGE:
< return " GOUGE ";
< case APPLY_SEARCH:
< return " SEARCH";
< case APPLY_MOUNT:
---
> do_oldscore( ch, argument );
> return;
> }
> set_pager_color( AT_GREEN, ch );
>
> pager_printf_color( ch, "\n\r&G%s%s.\n\r", ch->name, ch->pcdata->title );
> if ( get_trust( ch ) != ch->level )
> pager_printf( ch, "You are trusted at level %d.\n\r", get_trust( ch ) );
>
> send_to_pager_color( "&g----------------------------------------------------------------------------\n\r", ch );
>
> pager_printf_color( ch, "&gLevel: &W%-3d &gRace : &W%-10.10s &gPlayed: &W%d &ghours\n\r",
> ch->level, capitalize( get_race( ch ) ), ( get_age( ch ) - 17 ) * 2 );
> pager_printf_color( ch, "&gYears: &W%-6d &gClass: &W%-11.11s &gLog In: %s\r",
> get_age( ch ), capitalize( get_class( ch ) ), ctime( &( ch->logon ) ) );
>
> if ( ch->level >= 15 || IS_PKILL( ch ) )
> {
> pager_printf_color( ch, "&GSTR : &W%2.2d&g(&w%2.2d&g)&G HitRoll: &R%-4d &gSaved: %s\r",
> get_curr_str( ch ), ch->perm_str, GET_HITROLL( ch ),
> ch->save_time ? ctime( &( ch->save_time ) ) : "no save this session\n" );
>
> pager_printf_color( ch, "&GINT : &W%2.2d&g(&w%2.2d&g)&G DamRoll: &R%-4d &gTime: %s\r",
> get_curr_int( ch ), ch->perm_int, GET_DAMROLL( ch ), ctime( ¤t_time ) );
> }
> else
> {
> pager_printf_color( ch, "&GSTR : &W%2.2d&g(&w%2.2d&g)&G Saved: %s\r",
> get_curr_str( ch ), ch->perm_str, ch->save_time ? ctime( &( ch->save_time ) ) : "no\n" );
>
> pager_printf_color( ch, "&GINT : &W%2.2d&g(&w%2.2d&g)&G Time: %s\r",
> get_curr_int( ch ), ch->perm_int, ctime( ¤t_time ) );
> }
>
> if ( GET_AC( ch ) >= 101 )
> sprintf( buf, "the rags of a beggar" );
> else if ( GET_AC( ch ) >= 80 )
> sprintf( buf, "improper for adventure" );
> else if ( GET_AC( ch ) >= 55 )
> sprintf( buf, "shabby and threadbare" );
> else if ( GET_AC( ch ) >= 40 )
> sprintf( buf, "of poor quality" );
> else if ( GET_AC( ch ) >= 20 )
> sprintf( buf, "scant protection" );
> else if ( GET_AC( ch ) >= 10 )
> sprintf( buf, "that of a knave" );
> else if ( GET_AC( ch ) >= 0 )
> sprintf( buf, "moderately crafted" );
> else if ( GET_AC( ch ) >= -10 )
> sprintf( buf, "well crafted" );
> else if ( GET_AC( ch ) >= -20 )
> sprintf( buf, "the envy of squires" );
> else if ( GET_AC( ch ) >= -40 )
> sprintf( buf, "excellently crafted" );
> else if ( GET_AC( ch ) >= -60 )
> sprintf( buf, "the envy of knights" );
> else if ( GET_AC( ch ) >= -80 )
> sprintf( buf, "the envy of barons" );
> else if ( GET_AC( ch ) >= -100 )
> sprintf( buf, "the envy of dukes" );
> else if ( GET_AC( ch ) >= -200 )
> sprintf( buf, "the envy of emperors" );
> else
> sprintf( buf, "that of an avatar" );
> if ( ch->level > 24 )
> pager_printf_color( ch, "&GWIS : &W%2.2d&g(&w%2.2d&g)&G Armor: &O%-d; %s\n\r",
> get_curr_wis( ch ), ch->perm_wis, GET_AC( ch ), buf );
> else
> pager_printf_color( ch, "&GWIS : &W%2.2d&g(&w%2.2d&g)&G Armor: &O%s \n\r",
> get_curr_wis( ch ), ch->perm_wis, buf );
>
> if ( ch->alignment > 900 )
> sprintf( buf, "devout" );
> else if ( ch->alignment > 700 )
> sprintf( buf, "noble" );
> else if ( ch->alignment > 350 )
> sprintf( buf, "honorable" );
> else if ( ch->alignment > 100 )
> sprintf( buf, "worthy" );
> else if ( ch->alignment > -100 )
> sprintf( buf, "neutral" );
> else if ( ch->alignment > -350 )
> sprintf( buf, "base" );
> else if ( ch->alignment > -700 )
> sprintf( buf, "evil" );
> else if ( ch->alignment > -900 )
> sprintf( buf, "ignoble" );
> else
> sprintf( buf, "fiendish" );
> if ( ch->level < 10 )
> pager_printf_color( ch, "&GDEX : &W%2.2d&g(&w%2.2d&g)&G Align: &W%-20.20s &GItems: &W%d (max %d)\n\r",
> get_curr_dex( ch ), ch->perm_dex, buf, ch->carry_number, can_carry_n( ch ) );
> else
> pager_printf_color( ch,
> "&GDEX : &W%2.2d&g(&w%2.2d&g)&G Align: &W%4d; %-14.14s &GItems: &W%d &g(&wmax %d&g)\n\r",
> get_curr_dex( ch ), ch->perm_dex, ch->alignment, buf, ch->carry_number, can_carry_n( ch ) );
>
> switch ( ch->position )
> {
> case POS_DEAD:
> sprintf( buf, "slowly decomposing" );
> break;
> case POS_MORTAL:
> sprintf( buf, "mortally wounded" );
> break;
> case POS_INCAP:
> sprintf( buf, "incapacitated" );
> break;
> case POS_STUNNED:
> sprintf( buf, "stunned" );
> break;
> case POS_SLEEPING:
> sprintf( buf, "sleeping" );
> break;
> case POS_RESTING:
> sprintf( buf, "resting" );
> break;
> case POS_STANDING:
> sprintf( buf, "standing" );
> break;
> case POS_FIGHTING:
> sprintf( buf, "fighting" );
> break;
> case POS_EVASIVE:
> sprintf( buf, "fighting (evasive)" ); /* Fighting style support -haus */
> break;
> case POS_DEFENSIVE:
> sprintf( buf, "fighting (defensive)" );
> break;
> case POS_AGGRESSIVE:
> sprintf( buf, "fighting (aggressive)" );
> break;
> case POS_BERSERK:
> sprintf( buf, "fighting (berserk)" );
> break;
> case POS_MOUNTED:
> sprintf( buf, "mounted" );
> break;
> case POS_SITTING:
> sprintf( buf, "sitting" );
> break;
> }
> pager_printf_color( ch, "&GCON : &W%2.2d&g(&w%2.2d&g)&G Pos'n: &W%-21.21s &GWeight: &W%d &g(&wmax %d&g)\n\r",
> get_curr_con( ch ), ch->perm_con, buf, ch->carry_weight, can_carry_w( ch ) );
>
>
> /*
> * Fighting style support -haus
> */
> pager_printf_color( ch, "&GCHA : &W%2.2d&g(&w%2.2d&g)&G Wimpy: &Y%-5d ",
> get_curr_cha( ch ), ch->perm_cha, ch->wimpy );
>
> switch ( ch->style )
> {
> case STYLE_EVASIVE:
> sprintf( buf, "evasive" );
> break;
> case STYLE_DEFENSIVE:
> sprintf( buf, "defensive" );
> break;
> case STYLE_AGGRESSIVE:
> sprintf( buf, "aggressive" );
> break;
> case STYLE_BERSERK:
> sprintf( buf, "berserk" );
> break;
> default:
> sprintf( buf, "standard" );
> break;
> }
> pager_printf_color( ch, "\n\r&GLCK : &W%2.2d&g(&w%2.2d&g)&G Style: &W%-10.10s\n\r",
> get_curr_lck( ch ), ch->perm_lck, buf );
>
> pager_printf_color( ch, "&GGlory: &W%d&g/&w%d\n\r", ch->pcdata->quest_curr, ch->pcdata->quest_accum );
>
> pager_printf_color( ch,
> "&GPRACT: &W%3d &GHitpoints: &Y%-5d &Gof &Y%5d &GPager: &G(&W%c&g) &W%3d &GAutoExit&g(&W%c&g)\n\r",
> ch->practice, ch->hit, ch->max_hit, IS_SET( ch->pcdata->flags, PCFLAG_PAGERON ) ? 'X' : ' ',
> ch->pcdata->pagerlen, xIS_SET( ch->act, PLR_AUTOEXIT ) ? 'X' : ' ' );
>
> if ( IS_VAMPIRE( ch ) )
> pager_printf_color( ch,
> "&GEXP : &P%-9d &GBlood: &R%-5d &Gof &R%5d &GMKills: &W%5d &GAutoLoot&g(&W%c&g)\n\r", ch->exp,
> ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->pcdata->mkills, xIS_SET( ch->act,
> PLR_AUTOLOOT ) ? 'X' : ' ' );
> else if ( ch->class == CLASS_WARRIOR )
> pager_printf_color( ch,
> "&GEXP : &P%-9d &GMKills: &W%5d &GAutoLoot&g(&W%c&g)\n\r", ch->exp,
> ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
> else
> pager_printf_color( ch,
> "&GEXP : &P%-9d &GMana: &B%-5d &Gof &B%5d &GMKills: &W%5d &GAutoLoot&g(&W%c&g)\n\r", ch->exp,
> ch->mana, ch->max_mana, ch->pcdata->mkills, xIS_SET( ch->act, PLR_AUTOLOOT ) ? 'X' : ' ' );
>
> pager_printf_color( ch,
> "&GGOLD : &Y%-13s &GMove: &O%-5d &Gof &O%5d &GMdeaths: &W%5d &GAutoSac &g(&W%c&g)\n\r",
> num_punct( ch->gold ), ch->move, ch->max_move, ch->pcdata->mdeaths, xIS_SET( ch->act,
> PLR_AUTOSAC ) ? 'X' : ' ' );
>
> if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_DRUNK] > 10 )
> send_to_pager( "You are drunk.\n\r", ch );
> if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_THIRST] == 0 )
> send_to_pager( "You are in danger of dehydrating.\n\r", ch );
> if ( !IS_NPC( ch ) && ch->pcdata->condition[COND_FULL] == 0 )
> send_to_pager( "You are starving to death.\n\r", ch );
> if ( ch->position != POS_SLEEPING )
> switch ( ch->mental_state / 10 )
> {
> default:
> send_to_pager( "You're completely messed up!\n\r", ch );
> break;
> case -10:
> send_to_pager( "You're barely conscious.\n\r", ch );
> break;
> case -9:
> send_to_pager( "You can barely keep your eyes open.\n\r", ch );
> break;
> case -8:
> send_to_pager( "You're extremely drowsy.\n\r", ch );
> break;
> case -7:
> send_to_pager( "You feel very unmotivated.\n\r", ch );
> break;
> case -6:
> send_to_pager( "You feel sedated.\n\r", ch );
> break;
> case -5:
> send_to_pager( "You feel sleepy.\n\r", ch );
> break;
> case -4:
> send_to_pager( "You feel tired.\n\r", ch );
> break;
> case -3:
> send_to_pager( "You could use a rest.\n\r", ch );
> break;
> case -2:
> send_to_pager( "You feel a little under the weather.\n\r", ch );
> break;
> case -1:
> send_to_pager( "You feel fine.\n\r", ch );
> break;
> case 0:
> send_to_pager( "You feel great.\n\r", ch );
> break;
> case 1:
> send_to_pager( "You feel energetic.\n\r", ch );
> break;
> case 2:
> send_to_pager( "Your mind is racing.\n\r", ch );
> break;
> case 3:
> send_to_pager( "You can't think straight.\n\r", ch );
> break;
> case 4:
> send_to_pager( "Your mind is going 100 miles an hour.\n\r", ch );
> break;
> case 5:
> send_to_pager( "You're high as a kite.\n\r", ch );
> break;
> case 6:
> send_to_pager( "Your mind and body are slipping apart.\n\r", ch );
> break;
> case 7:
> send_to_pager( "Reality is slipping away.\n\r", ch );
> break;
> case 8:
> send_to_pager( "You have no idea what is real, and what is not.\n\r", ch );
> break;
> case 9:
> send_to_pager( "You feel immortal.\n\r", ch );
> break;
> case 10:
> send_to_pager( "You are a Supreme Entity.\n\r", ch );
> break;
> }
> else if ( ch->mental_state > 45 )
> send_to_pager( "Your sleep is filled with strange and vivid dreams.\n\r", ch );
> else if ( ch->mental_state > 25 )
> send_to_pager( "Your sleep is uneasy.\n\r", ch );
> else if ( ch->mental_state < -35 )
> send_to_pager( "You are deep in a much needed sleep.\n\r", ch );
> else if ( ch->mental_state < -25 )
> send_to_pager( "You are in deep slumber.\n\r", ch );
> /* send_to_pager("Languages: ", ch );
> for ( iLang = 0; lang_array[iLang] != LANG_UNKNOWN; iLang++ )
> if ( knows_language( ch, lang_array[iLang], ch )
> || (IS_NPC(ch) && ch->speaks == 0) )
> {
> if ( lang_array[iLang] & ch->speaking
> || (IS_NPC(ch) && !ch->speaking) )
> set_pager_color( AT_RED, ch );
> send_to_pager( lang_names[iLang], ch );
> send_to_pager( " ", ch );
> set_pager_color( AT_SCORE, ch );
> }
> send_to_pager( "\n\r", ch );
> */
> if ( ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0' )
> pager_printf_color( ch, "&GYou are bestowed with the command(s): &Y%s\n\r", ch->pcdata->bestowments );
>
> if ( ch->morph && ch->morph->morph )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> if ( IS_IMMORTAL( ch ) )
> pager_printf( ch, "Morphed as (%d) %s with a timer of %d.\n\r",
> ch->morph->morph->vnum, ch->morph->morph->short_desc, ch->morph->timer );
> else
> pager_printf( ch, "You are morphed into a %s.\n\r", ch->morph->morph->short_desc );
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> }
> if ( CAN_PKILL( ch ) )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> pager_printf_color( ch, "&GPKILL DATA: Pkills (&W%d&G) Illegal Pkills (&W%d&G) Pdeaths (&W%d&G)\n\r",
> ch->pcdata->pkills, ch->pcdata->illegal_pk, ch->pcdata->pdeaths );
> }
> if ( ch->pcdata->clan && ch->pcdata->clan->clan_type != CLAN_ORDER && ch->pcdata->clan->clan_type != CLAN_GUILD )
> {
> /*
> send_to_pager_color( "&W----------------------------------------------------------------------------&G\n\r", ch);
> */
> pager_printf_color( ch, "&GCLAN STATS: &W%-14.14s &GClan AvPkills : &W%-5d &GClan NonAvpkills : &W%-5d\n\r",
> ch->pcdata->clan->name, ch->pcdata->clan->pkills[5],
> ( ch->pcdata->clan->pkills[0] + ch->pcdata->clan->pkills[1] +
> ch->pcdata->clan->pkills[2] + ch->pcdata->clan->pkills[3] + ch->pcdata->clan->pkills[4] ) );
> pager_printf_color( ch,
> "&G Clan AvPdeaths: &W%-5d &GClan NonAvpdeaths: &W%-5d\n\r",
> ch->pcdata->clan->pdeaths[5],
> ( ch->pcdata->clan->pdeaths[0] + ch->pcdata->clan->pdeaths[1] + ch->pcdata->clan->pdeaths[2] +
> ch->pcdata->clan->pdeaths[3] + ch->pcdata->clan->pdeaths[4] ) );
> }
> if ( ch->pcdata->deity )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> if ( ch->pcdata->favor > 2250 )
> sprintf( buf, "loved" );
> else if ( ch->pcdata->favor > 2000 )
> sprintf( buf, "cherished" );
> else if ( ch->pcdata->favor > 1750 )
> sprintf( buf, "honored" );
> else if ( ch->pcdata->favor > 1500 )
> sprintf( buf, "praised" );
> else if ( ch->pcdata->favor > 1250 )
> sprintf( buf, "favored" );
> else if ( ch->pcdata->favor > 1000 )
> sprintf( buf, "respected" );
> else if ( ch->pcdata->favor > 750 )
> sprintf( buf, "liked" );
> else if ( ch->pcdata->favor > 250 )
> sprintf( buf, "tolerated" );
> else if ( ch->pcdata->favor > -250 )
> sprintf( buf, "ignored" );
> else if ( ch->pcdata->favor > -750 )
> sprintf( buf, "shunned" );
> else if ( ch->pcdata->favor > -1000 )
> sprintf( buf, "disliked" );
> else if ( ch->pcdata->favor > -1250 )
> sprintf( buf, "dishonored" );
> else if ( ch->pcdata->favor > -1500 )
> sprintf( buf, "disowned" );
> else if ( ch->pcdata->favor > -1750 )
> sprintf( buf, "abandoned" );
> else if ( ch->pcdata->favor > -2000 )
> sprintf( buf, "despised" );
> else if ( ch->pcdata->favor > -2250 )
> sprintf( buf, "hated" );
> else
> sprintf( buf, "damned" );
> pager_printf_color( ch, "&GDeity: &W%-20s &GFavor: &W%s&G\n\r", ch->pcdata->deity->name, buf );
> }
> if ( ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_ORDER )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> pager_printf_color( ch, "&GOrder: &W%-20s &GOrder Mkills: &W%-6d &GOrder MDeaths: &W%-6d\n\r",
> ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths );
> }
> if ( ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_GUILD )
> {
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> pager_printf_color( ch, "&GGuild: &W%-20s &GGuild Mkills: &W%-6d &GGuild MDeaths: &W%-6d\n\r",
> ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths );
> }
> argument = one_argument( argument, arg );
> if ( ch->first_affect && !str_cmp( arg, "affects" ) )
> {
> int i;
> SKILLTYPE *sktmp;
>
> i = 0;
> send_to_pager_color( "&g----------------------------------------------------------------------------&G\n\r",
> ch );
> send_to_pager_color( "AFFECT DATA: ", ch );
> for ( paf = ch->first_affect; paf; paf = paf->next )
> {
> if ( ( sktmp = get_skilltype( paf->type ) ) == NULL )
> continue;
> if ( ch->level < 20 )
> {
> pager_printf_color( ch, "&G[&W%-34.34s&G] ", sktmp->name );
> if ( i == 0 )
> i = 2;
> if ( ( ++i % 3 ) == 0 )
> send_to_pager( "\n\r", ch );
> }
> if ( ch->level >= 20 )
> {
> if ( paf->modifier == 0 )
> pager_printf_color( ch, "&G[&W%-24.24s;%5d &Grds] ", sktmp->name, paf->duration );
> else if ( paf->modifier > 999 )
> pager_printf_color( ch, "&G[&W%-15.15s; %7.7s;%5d &Grds] ",
> sktmp->name, tiny_affect_loc_name( paf->location ), paf->duration );
> else
> pager_printf_color( ch, "&G[&W%-11.11s;%+-3.3d %7.7s;%5d &Grds] ",
> sktmp->name, paf->modifier, tiny_affect_loc_name( paf->location ), paf->duration );
> if ( i == 0 )
> i = 1;
> if ( ( ++i % 2 ) == 0 )
> send_to_pager( "\n\r", ch );
> }
> }
> }
> send_to_pager( "\n\r", ch );
> return;
> }
>
>
> /*
> * Return ascii name of an affect location.
> */
> char *tiny_affect_loc_name( int location )
> {
> switch ( location )
> {
> case APPLY_NONE:
> return "NIL";
> case APPLY_STR:
> return " STR ";
> case APPLY_DEX:
> return " DEX ";
> case APPLY_INT:
> return " INT ";
> case APPLY_WIS:
> return " WIS ";
> case APPLY_CON:
> return " CON ";
> case APPLY_CHA:
> return " CHA ";
> case APPLY_LCK:
> return " LCK ";
> case APPLY_SEX:
> return " SEX ";
> case APPLY_CLASS:
> return " CLASS";
> case APPLY_LEVEL:
> return " LVL ";
> case APPLY_AGE:
> return " AGE ";
> case APPLY_MANA:
> return " MANA ";
> case APPLY_HIT:
> return " HV ";
> case APPLY_MOVE:
> return " MOVE ";
> case APPLY_GOLD:
> return " GOLD ";
> case APPLY_EXP:
> return " EXP ";
> case APPLY_AC:
> return " AC ";
> case APPLY_HITROLL:
> return " HITRL";
> case APPLY_DAMROLL:
> return " DAMRL";
> case APPLY_SAVING_POISON:
> return "SV POI";
> case APPLY_SAVING_ROD:
> return "SV ROD";
> case APPLY_SAVING_PARA:
> return "SV PARA";
> case APPLY_SAVING_BREATH:
> return "SV BRTH";
> case APPLY_SAVING_SPELL:
> return "SV SPLL";
> case APPLY_HEIGHT:
> return "HEIGHT";
> case APPLY_WEIGHT:
> return "WEIGHT";
> case APPLY_AFFECT:
> return "AFF BY";
> case APPLY_RESISTANT:
> return "RESIST";
> case APPLY_IMMUNE:
> return "IMMUNE";
> case APPLY_SUSCEPTIBLE:
> return "SUSCEPT";
> case APPLY_WEAPONSPELL:
> return " WEAPON";
> case APPLY_BACKSTAB:
> return "BACKSTB";
> case APPLY_PICK:
> return " PICK ";
> case APPLY_TRACK:
> return " TRACK ";
> case APPLY_STEAL:
> return " STEAL ";
> case APPLY_SNEAK:
> return " SNEAK ";
> case APPLY_HIDE:
> return " HIDE ";
> case APPLY_PALM:
> return " PALM ";
> case APPLY_DETRAP:
> return " DETRAP";
> case APPLY_DODGE:
> return " DODGE ";
> case APPLY_PEEK:
> return " PEEK ";
> case APPLY_SCAN:
> return " SCAN ";
> case APPLY_GOUGE:
> return " GOUGE ";
> case APPLY_SEARCH:
> return " SEARCH";
> case APPLY_MOUNT:
1223c1863
< "You are %s%s, level %d, %d years old (%d hours).\n\r",
---
> "You are %s%s.\n\rLevel %d, %d years old (%d hours).\n\r",
1234c1874
< "You have %d/%d hit, %d/%d blood level, %d/%d movement, %d practices.\n\r",
---
> "You have %d/%d hit, %d/%d blood level, %d/%d moves, %d practices.\n\r",
1239c1879
< "You have %d/%d hit, %d/%d mana, %d/%d movement, %d practices.\n\r",
---
> "You have %d/%d hit, %d/%d mana, %d/%d moves, %d practices.\n\r",
1252,1253c1892,1896
< pager_printf( ch,
< "You have scored %s exp, and have %s gold coins.\n\r", num_punct( ch->exp ), num_punct( ch->gold ) );
---
> /*
> * Can no longer have 2 occurences of num_punct on the same line -Shaddai
> */
> pager_printf( ch, "You have scored %s exp, and have ", num_punct( ch->exp ) );
> pager_printf( ch, "%s gold coins.\n\r", num_punct( ch->gold ) );
1439a2083,2085
> #ifdef SHADDAI
> pager_printf( ch, "Stance: %s \n\r", get_stance_name( ch->stance ) );
> #endif
1487,1492c2133,2138
< set_char_color( AT_SCORE, ch );
< ch_printf( ch,
< "\n\rExperience required, levels %d to %d:\n\r______________________________________________\n\r\n\r", lowlvl,
< hilvl );
< sprintf( buf, " exp (Current: %12s)", num_punct( ch->exp ) );
< sprintf( buf2, " exp (Needed: %12s)", num_punct( exp_level( ch, ch->level + 1 ) - ch->exp ) );
---
> set_char_color( AT_GREEN, ch );
> ch_printf_color( ch,
> "\n\r&GExperience required, levels &W%d &Gto &W%d&G:\n\r&g______________________________________________\n\r\n\r",
> lowlvl, hilvl );
> sprintf( buf, "&W exp (Current: %12s)", num_punct( ch->exp ) );
> sprintf( buf2, "&W exp (Needed: &G%12s&W)", num_punct( exp_level( ch, ch->level + 1 ) - ch->exp ) );
1494c2140
< ch_printf( ch, " (%2d) %12s%s\n\r", x, num_punct( exp_level( ch, x ) ),
---
> ch_printf_color( ch, "&G (&W%2d&G) &W%12s%s\n\r", x, num_punct( exp_level( ch, x ) ),
1496c2142
< send_to_char( "______________________________________________\n\r", ch );
---
> send_to_char_color( "&g______________________________________________\n\r", ch );
1539,1547c2185,2364
< /* Affects-at-a-glance, Blodkai */
< void do_affected( CHAR_DATA * ch, char *argument )
< {
< char arg[MAX_INPUT_LENGTH];
< AFFECT_DATA *paf;
< SKILLTYPE *skill;
<
< if ( IS_NPC( ch ) )
< return;
---
> /* Affects-at-a-glance, Blodkai */
> void do_affected( CHAR_DATA * ch, char *argument )
> {
> char arg[MAX_INPUT_LENGTH];
> AFFECT_DATA *paf;
> SKILLTYPE *skill;
>
> if ( IS_NPC( ch ) )
> return;
>
> set_char_color( AT_GREEN, ch );
>
> argument = one_argument( argument, arg );
> if ( !str_cmp( arg, "by" ) )
> {
> send_to_char_color( "\n\r&BImbued with:\n\r", ch );
> ch_printf_color( ch, "&C%s\n\r",
> !xIS_EMPTY( ch->affected_by ) ? affect_bit_name( &ch->affected_by ) : "nothing" );
> if ( ch->level >= 20 )
> {
>
> send_to_char( "\n\r", ch );
> if ( ch->resistant > 0 || ch->stance_resistant > 0 )
> {
> send_to_char_color( "&BResistances: ", ch );
> #ifdef SHADDAI
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->resistant || ch->stance_resistant, ris_flags ) );
> #endif
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->resistant, ris_flags ) );
> }
> if ( ch->immune > 0 || ch->stance_immune > 0 )
> {
> send_to_char_color( "&BImmunities: ", ch );
> #ifdef SHADDAI
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->immune || ch->stance_immune, ris_flags ) );
> #endif
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->immune, ris_flags ) );
> }
> if ( ch->susceptible > 0 || ch->stance_susceptible > 0 )
> {
> send_to_char_color( "&BSuscepts: ", ch );
> #ifdef SHADDAI
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->susceptible || ch->stance_susceptible, ris_flags ) );
> #endif
> ch_printf_color( ch, "&C%s\n\r", flag_string( ch->susceptible, ris_flags ) );
> }
> }
> return;
> }
>
> if ( !ch->first_affect )
> {
> send_to_char_color( "\n\r&CNo cantrip or skill affects you.\n\r", ch );
> }
> else
> {
> send_to_char( "\n\r", ch );
> for ( paf = ch->first_affect; paf; paf = paf->next )
> if ( ( skill = get_skilltype( paf->type ) ) != NULL )
> {
> set_char_color( AT_BLUE, ch );
> send_to_char( "Affected: ", ch );
> set_char_color( AT_SCORE, ch );
> if ( ch->level >= 20 || IS_PKILL( ch ) )
> {
> if ( paf->duration < 25 )
> set_char_color( AT_WHITE, ch );
> ch_printf( ch, "(%5d) ", paf->duration );
> }
> ch_printf( ch, "%-18s\n\r", skill->name );
> }
> }
> return;
> }
>
> /*
> * Support for GOD+ to view inventory of others -Thoric
> */
> void do_inventory( CHAR_DATA * ch, char *argument )
> {
> CHAR_DATA *victim = ch;
> bool invtarget = FALSE;
>
> if ( get_trust( ch ) >= LEVEL_GOD && argument[0] != '\0' )
> {
> if ( ( victim = get_char_world( ch, argument ) ) == NULL )
> {
> send_to_char( "They're not here.\n\r", ch );
> return;
> }
> invtarget = TRUE;
> }
>
> ch_printf_color( ch, "&R%s %s carrying:\n\r",
> invtarget ? capitalize( victim->name ) : "You", invtarget ? "is" : "are" );
> show_list_to_char( victim->first_carrying, ch, TRUE, TRUE );
>
> }
> void do_condition( CHAR_DATA * ch, char *argument )
> {
> CHAR_DATA *victim = ch;
> OBJ_DATA *obj;
> int iWear;
> bool found;
> int cond;
>
> if ( get_trust( ch ) > LEVEL_GOD && argument[0] != '\0' )
> {
> if ( ( victim = get_char_world( ch, argument ) ) == NULL )
> {
> send_to_char( "They're not here.\n\r", ch );
> return;
> }
> act( AT_RED, "$n is using:", victim, NULL, ch, TO_VICT );
> }
> else
> {
> set_char_color( AT_RED, ch );
> send_to_char( "You are using:\n\r", ch );
> }
> found = FALSE;
> set_char_color( AT_OBJECT, ch );
> for ( iWear = 0; iWear < MAX_WEAR; iWear++ )
> {
> for ( obj = victim->first_carrying; obj; obj = obj->next_content )
> if ( obj->wear_loc == iWear )
> {
> if ( ( !IS_NPC( ch ) ) && ( ch->race > 0 ) && ( ch->race < MAX_PC_RACE ) )
> send_to_char( race_table[ch->race]->where_name[iWear], ch );
> else
> send_to_char( where_name[iWear], ch );
>
>
>
> if ( can_see_obj( ch, obj ) )
> {
> switch ( obj->item_type )
> {
> case ITEM_ARMOR:
> cond = ( int ) ( ( 10 * obj->value[0] / obj->value[1] ) );
> break;
> case ITEM_WEAPON:
> cond = ( int ) ( ( 10 * obj->value[0] / 12 ) );
> break;
> default:
> cond = -1;
> break;
> }
> /*
> send_to_char_color("&g<&Y",ch);
> */
> if ( cond >= 0 )
> {
> if ( cond > 8 )
> ch_printf_color( ch, "&w[&G+&w]&G " );
> else if ( cond > 5 )
> ch_printf_color( ch, "&w[&Y-&w]&G " );
> else
> ch_printf_color( ch, "&w[&R!&w]&G " );
> }
> else
> send_to_char( " ", ch );
> /*
> send_to_char_color("&g>&G ",ch);
> */
> send_to_char( format_obj_to_char( obj, ch, TRUE ), ch );
> send_to_char( "\n\r", ch );
> }
> else
> send_to_char( "something.\n\r", ch );
> found = TRUE;
> }
> }
>
> if ( !found )
> send_to_char( "Nothing.\n\r", ch );
>
> return;
> }
>
1549c2366,2371
< set_char_color( AT_SCORE, ch );
---
> void do_equipment( CHAR_DATA * ch, char *argument )
> {
> CHAR_DATA *victim = ch;
> OBJ_DATA *obj;
> int iWear;
> bool found;
1551,1552c2373
< argument = one_argument( argument, arg );
< if ( !str_cmp( arg, "by" ) )
---
> if ( get_trust( ch ) > LEVEL_GOD && argument[0] != '\0' )
1554,1557c2375
< send_to_char_color( "\n\r&BImbued with:\n\r", ch );
< ch_printf_color( ch, "&C%s\n\r",
< !xIS_EMPTY( ch->affected_by ) ? affect_bit_name( &ch->affected_by ) : "nothing" );
< if ( ch->level >= 20 )
---
> if ( ( victim = get_char_world( ch, argument ) ) == NULL )
1559,1574c2377,2378
< send_to_char( "\n\r", ch );
< if ( ch->resistant > 0 )
< {
< send_to_char_color( "&BResistances: ", ch );
< ch_printf_color( ch, "&C%s\n\r", flag_string( ch->resistant, ris_flags ) );
< }
< if ( ch->immune > 0 )
< {
< send_to_char_color( "&BImmunities: ", ch );
< ch_printf_color( ch, "&C%s\n\r", flag_string( ch->immune, ris_flags ) );
< }
< if ( ch->susceptible > 0 )
< {
< send_to_char_color( "&BSuscepts: ", ch );
< ch_printf_color( ch, "&C%s\n\r", flag_string( ch->susceptible, ris_flags ) );
< }
---
> send_to_char( "They're not here.\n\r", ch );
> return;
1576c2380
< return;
---
> act( AT_RED, "$n is using:", victim, NULL, ch, TO_VICT );
1578,1579c2382
<
< if ( !ch->first_affect )
---
> else
1581c2384,2385
< send_to_char_color( "\n\r&CNo cantrip or skill affects you.\n\r", ch );
---
> set_char_color( AT_RED, ch );
> send_to_char( "You are using:\n\r", ch );
1583c2387,2389
< else
---
> found = FALSE;
> set_char_color( AT_OBJECT, ch );
> for ( iWear = 0; iWear < MAX_WEAR; iWear++ )
1585,1587c2391,2392
< send_to_char( "\n\r", ch );
< for ( paf = ch->first_affect; paf; paf = paf->next )
< if ( ( skill = get_skilltype( paf->type ) ) != NULL )
---
> for ( obj = victim->first_carrying; obj; obj = obj->next_content )
> if ( obj->wear_loc == iWear )
1589,1592c2394,2399
< set_char_color( AT_BLUE, ch );
< send_to_char( "Affected: ", ch );
< set_char_color( AT_SCORE, ch );
< if ( ch->level >= 20 || IS_PKILL( ch ) )
---
> if ( ( !IS_NPC( ch ) ) && ( ch->race > 0 ) && ( ch->race < MAX_PC_RACE ) )
> send_to_char( race_table[ch->race]->where_name[iWear], ch );
> else
> send_to_char( where_name[iWear], ch );
>
> if ( can_see_obj( ch, obj ) )
1594,1598c2401,2402
< if ( paf->duration < 25 )
< set_char_color( AT_WHITE, ch );
< if ( paf->duration < 6 )
< set_char_color( AT_WHITE + AT_BLINK, ch );
< ch_printf( ch, "(%5d) ", paf->duration );
---
> send_to_char( format_obj_to_char( obj, ch, TRUE ), ch );
> send_to_char( "\n\r", ch );
1600c2404,2406
< ch_printf( ch, "%-18s\n\r", skill->name );
---
> else
> send_to_char( "something.\n\r", ch );
> found = TRUE;
1603,1604d2408
< return;
< }
1606,1610c2410,2413
< void do_inventory( CHAR_DATA * ch, char *argument )
< {
< set_char_color( AT_RED, ch );
< send_to_char( "You are carrying:\n\r", ch );
< show_list_to_char( ch->first_carrying, ch, TRUE, TRUE );
---
> if ( !found )
> send_to_char( "Nothing.\n\r", ch );
>
> send_to_char_color( "&g(type 'garb' for a list of all wear locations)\n\r", ch );
1615c2418
< void do_equipment( CHAR_DATA * ch, char *argument )
---
> void do_equipment_full( CHAR_DATA * ch, char *argument )
1619c2422,2423
< bool found;
---
> bool ankler = FALSE, anklel = FALSE;
> bool candual, hasloc;
1620a2425
> candual = FALSE;
1623c2428
< found = FALSE;
---
>
1624a2430,2437
> if ( LEARNED( ch, gsn_dual_wield ) )
> {
> candual = TRUE;
> }
> if ( get_eq_char( ch, WEAR_HOLD ) )
> candual = FALSE;
> if ( get_eq_char( ch, WEAR_MISSILE_WIELD ) )
> candual = FALSE;
1626a2440
> hasloc = FALSE;
1627a2442
> {
1634c2449,2454
<
---
> if ( iWear == WEAR_SHIELD )
> candual = FALSE;
> if ( iWear == WEAR_ANKLE_L )
> anklel = TRUE;
> if ( iWear == WEAR_ANKLE_R )
> ankler = TRUE;
1642c2462,2476
< found = TRUE;
---
> hasloc = TRUE;
> }
> }
> if ( !hasloc )
> {
> if ( iWear <= WEAR_EYES )
> {
> if ( ( candual ) && ( iWear == WEAR_SHIELD ) )
> continue;
> if ( ( candual ) && ( iWear == WEAR_HOLD ) )
> continue;
> if ( ( !candual ) && ( iWear == WEAR_DUAL_WIELD ) )
> continue;
> send_to_char( where_name[iWear], ch );
> send_to_char( "[nothing] \n\r", ch );
1643a2478,2488
> }
> }
> if ( !anklel )
> {
> send_to_char( where_name[WEAR_ANKLE_L], ch );
> send_to_char( "[nothing] \n\r", ch );
> }
> if ( !ankler )
> {
> send_to_char( where_name[WEAR_ANKLE_R], ch );
> send_to_char( "[nothing] \n\r", ch );
1645,1648d2489
<
< if ( !found )
< send_to_char( "Nothing.\n\r", ch );
<
1653d2493
<
1685,1689c2525
< if ( ch->level < 5 )
< {
< send_to_char( "Sorry... you must be at least level 5 to set your title...\n\r", ch );
< return;
< }
---
>
1706a2543
> smash_color_token( argument );
1708c2545,2583
< send_to_char( "Ok.\n\r", ch );
---
> send_to_char( "Your new title has been set.\n\r", ch );
> }
>
> void do_email( CHAR_DATA * ch, char *argument )
> {
> char arg[MAX_STRING_LENGTH];
>
> if ( IS_NPC( ch ) )
> return;
>
> if ( ch->level < 5 )
> {
> send_to_char( "Sorry... you must be at least level 5 to do that.\n\r", ch );
> return;
> }
>
> one_argument( argument, arg );
> smash_tilde( arg );
> if ( arg[0] == '\0' )
> {
> if ( !ch->pcdata->email )
> ch->pcdata->email = str_dup( "" );
> ch_printf( ch, "Your email is: %s\n\r", show_tilde( ch->pcdata->email ) );
> return;
> }
>
> if ( !str_cmp( arg, "clear" ) )
> {
> if ( ch->pcdata->email )
> DISPOSE( ch->pcdata->email );
> ch->pcdata->email = str_dup( "" );
> send_to_char( "Email cleared.\n\r", ch );
> return;
> }
>
> if ( ch->pcdata->email )
> DISPOSE( ch->pcdata->email );
> ch->pcdata->email = str_dup( arg );
> send_to_char( "Email set.\n\r", ch );
1710a2586,2623
> void do_icq( CHAR_DATA * ch, char *argument )
> {
> char arg[MAX_STRING_LENGTH];
>
> if ( IS_NPC( ch ) )
> return;
>
> if ( ch->level < 5 )
> {
> send_to_char( "Sorry... you must be at least level 5 to do that.\n\r", ch );
> return;
> }
>
> one_argument( argument, arg );
> smash_tilde( arg );
> if ( arg[0] == '\0' )
> {
> if ( !ch->pcdata->icq )
> ch->pcdata->icq = str_dup( "" );
> ch_printf( ch, "Your icq is: %s\n\r", show_tilde( ch->pcdata->icq ) );
> return;
> }
>
> if ( !str_cmp( arg, "clear" ) )
> {
> if ( ch->pcdata->icq )
> DISPOSE( ch->pcdata->icq );
> ch->pcdata->icq = str_dup( "" );
> send_to_char( "ICQ cleared.\n\r", ch );
> return;
> }
>
> hide_tilde( arg );
> if ( ch->pcdata->icq )
> DISPOSE( ch->pcdata->icq );
> ch->pcdata->icq = str_dup( arg );
> send_to_char( "ICQ set.\n\r", ch );
> }
1724a2638,2643
> if ( xIS_SET( ch->act, PLR_NOHOMEPAGE ) )
> {
> send_to_char( "The Gods prohibit you from changing your homepage.\n\r", ch );
> return;
> }
>
1756a2676,2726
> void do_delete_char( CHAR_DATA * ch, char *argument )
> {
> char arg[MAX_INPUT_LENGTH];
> char arg1[MAX_INPUT_LENGTH];
> char buf[MAX_INPUT_LENGTH];
>
> argument = case_argument( argument, arg );
> argument = one_argument( argument, arg1 );
>
> if ( IS_NPC( ch ) )
> return;
>
> if ( get_trust( ch ) > 5 )
> {
> send_to_char( "A character must be between levels 2 and 5, and 18 years of age, to delete itself.\n\r", ch );
> return;
> }
>
> if ( get_age( ch ) < 18 )
> {
> send_to_char( "A character must be between levels 2 and 5, and 18 years of age, to delete itself.\n\r", ch );
> return;
> }
>
> if ( arg[0] == '\0' )
> {
> send_to_char( "Syntax: chardelete <password> yes\n\r", ch );
> return;
> }
>
> if ( strcmp( crypt( arg, ch->pcdata->pwd ), ch->pcdata->pwd ) )
> {
> send_to_char( "Incorrect password.\n\r", ch );
> return;
> }
>
> if ( arg1[0] == '\0' || ( str_cmp( arg1, "yes" ) ) )
> {
> send_to_char( "Syntax: chardelete <password> yes\n\r", ch );
> return;
> }
> else
> {
> sprintf( buf, "%s deleted pfile from site %s", ch->name, ch->desc->host );
> send_to_char_color( "&RYour character has been deleted.\n\r", ch );
> do_destroy( ch, ch->name );
> log_string_plus( log_buf, LOG_NORMAL, 65 );
> }
> return;
> }
>
1768a2739,2744
> if ( IS_SET( ch->pcdata->flags, PCFLAG_NODESC ) )
> {
> send_to_char( "You cannot set your description.\n\r", ch );
> return;
> }
>
1812a2789,2796
>
> if ( IS_SET( ch->pcdata->flags, PCFLAG_NOBIO ) )
> {
> set_char_color( AT_RED, ch );
> send_to_char( "The gods won't allow you to do that!\n\r", ch );
> return;
> }
>
1993a2978,2979
> else if ( !str_cmp( arg, "none" ) )
> ch->pcdata->fprompt = STRALLOC( ch->pcdata->prompt );
2034a3021,3022
> else if ( !str_cmp( arg, "fprompt" ) )
> ch->pcdata->prompt = STRALLOC( ch->pcdata->fprompt );
2067a3056,3124
>
> void do_die( CHAR_DATA * ch, char *argument )
> {
> if ( ch->position > POS_STUNNED )
> {
> send_to_char( "You don't feel like throwing your life away just yet....\n\r", ch );
> return;
> }
> ch->hit = -11;
> update_pos( ch );
> act( AT_DEAD, "$n is DEAD!!", ch, 0, 0, TO_ROOM );
> act( AT_DEAD, "You have been KILLED!!\n\r", ch, 0, 0, TO_CHAR );
> raw_kill( ch, ch );
> return;
> }
>
> /*
> * Command to show current favor by Edmond
> */
> void do_favor( CHAR_DATA * ch, char *argument )
> {
> char buf[MAX_STRING_LENGTH];
>
> if ( IS_NPC( ch ) )
> {
> send_to_char( "Huh?\n\r", ch );
> return;
> }
> set_char_color( AT_GREEN, ch );
> if ( !ch->pcdata->deity )
> sprintf( buf, "N/A" );
> else if ( ch->pcdata->favor > 2250 )
> sprintf( buf, "loved" );
> else if ( ch->pcdata->favor > 2000 )
> sprintf( buf, "cherished" );
> else if ( ch->pcdata->favor > 1750 )
> sprintf( buf, "honored" );
> else if ( ch->pcdata->favor > 1500 )
> sprintf( buf, "praised" );
> else if ( ch->pcdata->favor > 1250 )
> sprintf( buf, "favored" );
> else if ( ch->pcdata->favor > 1000 )
> sprintf( buf, "respected" );
> else if ( ch->pcdata->favor > 750 )
> sprintf( buf, "liked" );
> else if ( ch->pcdata->favor > 250 )
> sprintf( buf, "tolerated" );
> else if ( ch->pcdata->favor > -250 )
> sprintf( buf, "ignored" );
> else if ( ch->pcdata->favor > -750 )
> sprintf( buf, "shunned" );
> else if ( ch->pcdata->favor > -1000 )
> sprintf( buf, "disliked" );
> else if ( ch->pcdata->favor > -1250 )
> sprintf( buf, "dishonored" );
> else if ( ch->pcdata->favor > -1500 )
> sprintf( buf, "disowned" );
> else if ( ch->pcdata->favor > -1750 )
> sprintf( buf, "abandoned" );
> else if ( ch->pcdata->favor > -2000 )
> sprintf( buf, "despised" );
> else if ( ch->pcdata->favor > -2250 )
> sprintf( buf, "hated" );
> else
> sprintf( buf, "damned" );
>
> ch_printf( ch, "%s considers you to be %s.\n\r", ch->pcdata->deity->name, buf );
> return;
> }