/**************************************************************************** * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// * * -----------------------------------------------------------| (0...0) * * SMAUG 1.4 (C) 1994, 1995, 1996, 1998 by Derek Snider | ).:.( * * -----------------------------------------------------------| {o o} * * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ * * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek, |~'~.VxvxV.~'~* * Tricops and Fireblade | * * ------------------------------------------------------------------------ * * 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. * * ------------------------------------------------------------------------ * * Commands for personal player settings/statictics * ****************************************************************************/ /**************************************************************************** * |Dragon Ball Z Universe, Version FINAL | * * -----------------------------------------------------------| * * |DBZUCodebase V. FINAL, 2005, 2006, 2007, Jessie Reidl | * * -----------------------------------------------------------| * ****************************************************************************/ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <string.h> #include <time.h> #include "mud.h" /* * Locals */ char *tiny_affect_loc_name(int location); void do_gold(CHAR_DATA * ch, char *argument) { set_char_color( AT_GOLD, ch ); ch_printf( ch, "You have %s gold pieces.\n\r", num_punct(ch->gold) ); return; } void do_style( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; if ( IS_NPC(ch) ) return; if (ch->position == POS_STUNNED) { send_to_char( "You are too stunned to do that.\n\r", ch ); return; } one_argument( argument, arg ); if ( arg[0] == '\0' ) { ch_printf(ch, "&wAdopt which fighting style? (current: %s&w)\n\r", ch->style == STYLE_AGGRESSIVE ? "&Raggressive" : ch->style == STYLE_DEFENSIVE ? "&Ydefensive" : "&Ydefensive" ); return; } else if( !str_prefix(arg, "defensive")) { if(ch->fighting) { act( AT_ACTION, "$n moves into a defensive posture.", ch, NULL, NULL, TO_ROOM ); } ch->style = STYLE_DEFENSIVE; send_to_char( "You adopt a defensive fighting style.\n\r",ch); return; } else if( !str_prefix(arg,"aggressive")) { if(ch->fighting) { act( AT_ACTION, "$n assumes an aggressive stance.", ch, NULL, NULL, TO_ROOM ); } ch->style = STYLE_AGGRESSIVE; send_to_char( "You adopt an aggressive fighting style.\n\r", ch); return; } else ch_printf(ch,"&wAdopt which fighting style?\n\r"); } void do_worth(CHAR_DATA *ch, char *argument) { char buf[MAX_STRING_LENGTH]; char buf2[MAX_STRING_LENGTH]; if (IS_NPC(ch)) return; 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); 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" ); if ( ch->level < 10 ) { if (ch->alignment > 900) sprintf(buf2, "devout"); else if (ch->alignment > 700) sprintf(buf2, "noble"); else if (ch->alignment > 350) sprintf(buf2, "honorable"); else if (ch->alignment > 100) sprintf(buf2, "worthy"); else if (ch->alignment > -100) sprintf(buf2, "neutral"); else if (ch->alignment > -350) sprintf(buf2, "base"); else if (ch->alignment > -700) sprintf(buf2, "evil"); else if (ch->alignment > -900) sprintf(buf2, "ignoble"); else sprintf(buf2, "fiendish"); } else sprintf(buf2, "%d", ch->alignment ); 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); 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(ch, "|Glory: %-4d |Weight: %-9d |Style: %-13s |Gold: %-14s |\n\r", ch->pcdata->quest_curr, ch->carry_weight, buf, num_punct(ch->gold) ); send_to_pager(" ----------------------------------------------------------------------------\n\r", ch); if ( ch->level < 15 && !IS_PKILL(ch) ) pager_printf(ch, "| |Hitroll: -------- |Damroll: ----------- | |\n\r" ); else pager_printf(ch, "| |Hitroll: %-8d |Damroll: %-11d | |\n\r", GET_HITROLL(ch), GET_DAMROLL(ch) ); send_to_pager(" ----------------------------------------------------------------------------\n\r", ch); return; } void do_delete( CHAR_DATA *ch, char *argument ) { extern const char echo_off_str[]; if( IS_NPC(ch) ) { send_to_char ( "Yeah, right. Mobs can't delete themselves.\r\n", ch ); return; } if( ch->fighting != NULL ) { send_to_char( "Wait until the fight is over before deleting yourself.\r\n", ch ); return; } /* Reimbursement warning added to code by Samson 1-18-98 */ set_char_color( AT_YELLOW, ch ); send_to_char( "Remember, this decision is IRREVERSABLE. There are no reimbursements!\r\n", ch ); /* Immortals warning added to code by Samson 1-18-98 */ if( IS_IMMORTAL(ch) ) { ch_printf( ch, "Consider this carefuly %s, if you delete, you will not\r\nbe reinstated as an immortal!\r\n", ch->name ); send_to_char( "Any area data you have will also be lost if you proceed.\r\n", ch ); } set_char_color( AT_RED, ch ); send_to_char( "\r\nType your password if you wish to delete your character.\r\n", ch ); send_to_char( "[DELETE] Password: ", ch ); write_to_buffer( ch->desc, echo_off_str, 0 ); ch->desc->connected = CON_DELETE; return; } void do_newscore(CHAR_DATA * ch, char *argument) { char buf[MAX_STRING_LENGTH]; if (IS_NPC(ch)) { do_oldscore(ch, argument); return; } set_char_color(AT_SCORE, ch); ch_printf(ch, "\n\r&C%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_char("&W----------------------------------------------------------------------------\n\r", ch); if (ch->level > 49) { ch_printf(ch, "&CLevel: &W%-3d &CRace : &W%-10.10s &CPlayed: &W%d &Chours\n\r", ch->level, capitalize(get_race(ch)), (get_age(ch) - 4) * 2); ch_printf(ch, "&CYears: &W%-6d &CClass: &W%-11.11s &CLog In:&W %s\r", get_age(ch), capitalize(get_class(ch)), ctime(&(ch->logon)) ); } else { ch_printf(ch,"&CBless: &W%-6d &CRace : &W%-10.10s &CPlayed: &W%d &Chours\n\r", ch->pcdata->quest_curr, capitalize(get_race(ch)), (get_age(ch) - 4)* 2); ch_printf(ch,"&CYears: &W%-6d &CClass: &W%-11.11s &CLog In: &W%s\r", get_age(ch), capitalize(get_class(ch)), ctime(&(ch->logon)) ); } ch_printf(ch, "&CSTR : &W%2.2d&C(&w%2.2d&C) Saved:&W %s\r", get_curr_str(ch), ch->perm_str, ch->save_time ? ctime(&(ch->save_time)) : "no\n" ); ch_printf(ch, "&CINT : &W%2.2d&C(&w%2.2d&C) Time:&W %s\r", get_curr_int(ch), ch->perm_int, ctime(¤t_time) ); if (GET_AC(ch) <= 1) sprintf(buf, "the rags of a beggar"); else if (GET_AC(ch) <= 30) sprintf(buf, "improper for adventure"); else if (GET_AC(ch) <= 75) sprintf(buf, "shabby and threadbare"); else if (GET_AC(ch) <= 100) sprintf(buf, "of poor quality"); else if (GET_AC(ch) <= 125) sprintf(buf, "scant protection"); else if (GET_AC(ch) <= 150) sprintf(buf, "that of a knave"); else if (GET_AC(ch) <= 175) sprintf(buf, "moderately crafted"); else if (GET_AC(ch) <= 200) sprintf(buf, "well crafted"); else if (GET_AC(ch) <= 225) sprintf(buf, "the envy of squires"); else if (GET_AC(ch) <= 250) sprintf(buf, "excellently crafted"); else if (GET_AC(ch) <= 275) sprintf(buf, "the envy of knights"); else if (GET_AC(ch) <= 300) sprintf(buf, "the envy of barons"); else if (GET_AC(ch) <= 325) sprintf(buf, "the envy of dukes"); else if (GET_AC(ch) <= 350) sprintf(buf, "the envy of emperors"); else sprintf(buf, "that of an avatar"); if (ch->level > 49) ch_printf(ch, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%-d; %s\n\r", get_curr_wis(ch), ch->perm_wis, GET_AC(ch), buf); else ch_printf(ch, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%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) ch_printf(ch, "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%-20.20s &CItems: &W%d &w(max %d)\n\r", get_curr_dex(ch), ch->perm_dex, buf, ch->carry_number, can_carry_n(ch)); else ch_printf(ch, "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%4d; %-14.14s &CItems: &W%d &w(max %d)\n\r", get_curr_dex(ch), ch->perm_dex, ch->alignment, buf, ch->carry_number, can_carry_n(ch)); ch_printf(ch, "&CCON : &W%2.2d&C(&w%2.2d&C) Pos'n: &W%-21.21s &CWeight: &W%d &w(max %d)\n\r", get_curr_con(ch), ch->perm_con, ch->position == POS_DEAD ? "&Wdead" : ch->position == POS_MORTAL ? "&Wmortal" : ch->position == POS_INCAP ? "&Wincapacitated" : ch->position == POS_STUNNED ? "&Wstunned" : ch->position == POS_SLEEPING ? "&Wsleeping" : ch->position == POS_RESTING ? "&Wresting" : ch->position == POS_STANDING ? "&Wstanding" : ch->position == POS_FIGHTING ? "&Wfighting" : ch->position == POS_MOUNTED ? "&Wmounted" : ch->position == POS_SITTING ? "&Wsitting" : "&Wstanding", ch->carry_weight, can_carry_w(ch)); ch_printf(ch, "&CCHA : &W%2.2d&C(&w%2.2d&C) Wimpy: &Y%-5d", get_curr_cha(ch), ch->perm_cha, ch->wimpy); ch_printf(ch, "\n\r&CLCK : &W%2.2d&C(&w%2.2d&C)\n\r", get_curr_lck(ch), ch->perm_lck ); pager_printf(ch, "&CRplevel: &w%d\n\r&CYou need &w%d&C complete roleplays to level up.&z\n\r", ch->rplevel, ch->rplevel * 2 -ch->rpneed ); // ch_printf(ch, "&CCombat Points:&R %d", ch->battlexp ); ch_printf(ch, " &CLF : &G%-5d &Cof &g%5d\n\r", ch->hit, ch->max_hit); ch_printf(ch, "&CStyle: &W%-10s &CKi : &B%-5d &Cof &b%5d &CMKills: &W%5d\n\r", ch->style == STYLE_AGGRESSIVE ? "Agg" : "Def", ch->mana, ch->max_mana, ch->pcdata->mkills); ch_printf(ch, "&CGold : &Y%-13d", ch->gold ); ch_printf(ch, " &CPL : &R%-11d &CMdeaths: &W%5d\n\r",ch->exp, ch->pcdata->mdeaths); if (ch->pcdata->release_date) ch_printf(ch, "&YYou will be released from hell at %24.24s.\n\r", ctime(&ch->pcdata->release_date)); if (ch->pcdata->silenced_date) ch_printf(ch, "&YYou will be unsilenced %24.24s.\n\r", ctime(&ch->pcdata->silenced_date)); send_to_char("&W----------------------------------------------------------------------------\n\r", ch); if (IS_BIODROID(ch) ) { if ( ch-> biomass >= 1000 ) sprintf(buf, "&G||||||||||" ); else if ( ch->biomass > 900 ) sprintf(buf, "&G|||||||||&g|" ); else if ( ch->biomass > 800 ) sprintf(buf, "&G||||||||&g||" ); else if ( ch->biomass > 700 ) sprintf(buf, "&G|||||||&g|||" ); else if ( ch->biomass > 600 ) sprintf(buf, "&G||||||&g||||" ); else if ( ch->biomass > 500 ) sprintf(buf, "&G|||||&g|||||" ); else if ( ch->biomass > 400 ) sprintf(buf, "&G|||||&g|||||" ); else if ( ch->biomass > 300 ) sprintf(buf, "&G||||&g||||||" ); else if ( ch->biomass > 200 ) sprintf(buf, "&G|||&g|||||||" ); else if ( ch->biomass > 100 ) sprintf(buf, "&G||&g||||||||" ); else if ( ch->biomass > 10 ) sprintf(buf, "&G|&g|||||||||" ); else sprintf(buf, "&g||||||||||" ); pager_printf(ch, "&z Biomass Meter&O:&W %s\n\r", buf ); send_to_char("&W----------------------------------------------------------------------------\n\r", ch); } if ( CAN_PKILL( ch ) ) { ch_printf(ch, "&CPKILL DATA: Pkills (&W%d&C) Illegal Pkills (&W%d&C) Pdeaths (&W%d&C)\n\r", ch->pcdata->pkills, ch->pcdata->illegal_pk, ch->pcdata->pdeaths ); } if (ch->pcdata->clan ) { ch_printf( ch, "&CCLAN STATS: &W%s", ch->pcdata->clan->name); } if (ch->level > 6) { send_to_pager("\n\r&W---------&CImmortal Data&W------------------------------------------------------\n\r", ch); pager_printf(ch, "&CEnter:&W %s %s\n\r", ch->name, (ch->pcdata->bamfin[0] != '\0') ? ch->pcdata->bamfin : "appears in a swirling mist."); pager_printf(ch, "&CExit :&W %s %s\n\r", ch->name, (ch->pcdata->bamfout[0] != '\0') ? ch->pcdata->bamfout : "leaves in a swirling mist."); if ( ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0' ) ch_printf(ch, "&CYou are bestowed with the command(s): &W%s\n\r", ch->pcdata->bestowments ); } send_to_pager("\n\r", ch); return; } /* * New score command by Haus */ void do_score(CHAR_DATA * ch, char *argument) { char buf[MAX_STRING_LENGTH]; AFFECT_DATA *paf; int iLang; if (IS_NPC(ch)) { do_oldscore(ch, argument); return; } set_pager_color(AT_SCORE, ch); pager_printf(ch, "\n\r &Y%s&B%s.\n\r", ch->name, ch->pcdata->title); send_to_pager("&W---&RStats&W-----------------------------------------------------------\n\r", ch); if (IS_IMMORTAL(ch) ) { if ( IS_MUTANT(ch) ) sprintf(buf, "&pMu&Yta&pnt" ); else if ( IS_NAMEK(ch) ) sprintf(buf, "&GNa&gm&Gek" ); else if ( IS_ANDROID(ch) ) sprintf(buf, "&zA&wnd&Wr&woi&zd" ); else if ( IS_BIODROID(ch) ) sprintf(buf, "&WB&Gio&gdr&Goi&Wd" ); else if ( IS_ICER(ch) ) sprintf(buf, "&cI&Cce&cr" ); else if ( IS_HUMAN(ch) ) sprintf(buf, "&wHu&Wm&wan" ); else if ( IS_SAIYAN(ch) ) sprintf(buf, "&YSa&Oiy&Yan" ); else if ( IS_HALFBREED(ch) ) sprintf(buf, "&RHal&Ofbr&Yeed" ); else sprintf(buf, "Unknown" ); pager_printf(ch, "&z Level&O:&w %-7d&z Race&O:&w %-18.18s&z Played&O:&w %-7d&z\n\r", ch->level, buf, (get_age(ch) - 4) * 2 ); } else { if ( IS_MUTANT(ch) ) sprintf(buf, "&pMu&Yta&pnt" ); else if ( IS_NAMEK(ch) ) sprintf(buf, "&GNa&gm&Gek" ); else if ( IS_ANDROID(ch) ) sprintf(buf, "&zA&wnd&Wr&woi&zd" ); else if ( IS_BIODROID(ch) ) sprintf(buf, "&WB&Gio&gdr&Goi&Wd" ); else if ( IS_ICER(ch) ) sprintf(buf, "&cI&Cce&cr" ); else if ( IS_HUMAN(ch) ) sprintf(buf, "&wHu&Wm&wan" ); else if ( IS_SAIYAN(ch) ) sprintf(buf, "&YSa&Oiy&Yan" ); else if ( IS_HALFBREED(ch) ) sprintf(buf, "&RHal&Ofbr&Yeed" ); else sprintf(buf, "Unknown" ); pager_printf(ch, "&z Bless&O:&w %-7d&z Race&O:&w %-18.18s&z Played&O:&w %-7d&z\n\r", ch->pcdata->quest_curr, buf, (get_age(ch) - 4) * 2 ); } pager_printf(ch, "&z Years&O:&w %-7d&z Class&O:&w %-10.10s&z Sex&O:&w %-8s\n\r", get_age(ch), capitalize(get_class(ch)), ch->sex == SEX_MALE ? "Male" : ch->sex == SEX_FEMALE ? "Female" : "Neutral" ); if (ch->alignment > 900) sprintf(buf, "Angelic"); else if (ch->alignment > 700) sprintf(buf, "Devout"); else if (ch->alignment > 350) sprintf(buf, "Devout"); else if (ch->alignment > 100) sprintf(buf, "Devout"); else if (ch->alignment > -100) sprintf(buf, "Neutral"); else if (ch->alignment > -350) sprintf(buf, "Evil"); else if (ch->alignment > -700) sprintf(buf, "Evil"); else if (ch->alignment > -900) sprintf(buf, "Demonic"); else sprintf(buf, "Demonic"); pager_printf(ch, "&z Str&O:&W %2.2d&z(&w%2.2d&z) Align&O:&w %s&z Items&O:&w %d&z (&Wmax %d&z)\n\r", get_curr_str(ch), ch->perm_str, buf, ch->carry_number, can_carry_n(ch)); switch (ch->style) { case STYLE_DEFENSIVE: sprintf(buf, "Defensive"); break; case STYLE_AGGRESSIVE: sprintf(buf, "Aggressive"); break; default: sprintf(buf, "Aggressive"); break; } pager_printf(ch, "&z Int&O:&W %2.2d&z(&w%2.2d&z) Style&O:&w %s&z Weight&O:&w %d&z (&Wmax %d&z)\n\r", get_curr_int(ch), ch->perm_int, buf, ch->carry_weight, can_carry_w(ch) ); pager_printf(ch, "&z Wis&O:&W %2.2d&z(&w%2.2d&z) LF&O:&G %d&z/&g%d&z Mkills&O:&w %d\n\r", get_curr_wis(ch), ch->perm_wis, ch->hit, ch->max_hit, ch->pcdata->mkills ); pager_printf(ch, "&z Dex&O:&W %2.2d&z(&w%2.2d&z) Ki&O:&B %5.5d&z/&b%5.5d&z Mdeaths&O:&w %d\n\r", get_curr_dex(ch), ch->perm_dex, ch->mana, ch->max_mana, ch->pcdata->mdeaths); pager_printf(ch, "&z Con&O:&W %2.2d&z(&w%2.2d&z) PL&O:&R %-11s&z Autoloot&O:&z (&w%c&z)\n\r", get_curr_con(ch), ch->perm_con, num_punct(ch->exp), xIS_SET(ch->act, PLR_AUTOLOOT) ? 'X' : ' ' ); pager_printf(ch, "&z Cha&O:&W %2.2d&z(&w%2.2d&z) Gold&O:&Y %-9d&z Autogold&O:&z (&w%c&z)\n\r",get_curr_cha(ch), ch->perm_cha, ch->gold, xIS_SET(ch->act, PLR_AUTOGOLD) ? 'X' : ' ' ); if ( xIS_SET(ch->act, PLR_TOGGLE) ) sprintf(buf, "Spare" ); else sprintf(buf, "Kill" ); pager_printf(ch, "&z Lck&O:&W %2.2d&z(&w%2.2d&z) Toggle&O:&w %-6s&z Autosac&O:&z (&w%c&z)\n\r", get_curr_lck(ch), ch->perm_lck, buf, xIS_SET(ch->act, PLR_AUTOSAC) ? 'X' : ' ' ); pager_printf(ch, "&z Armor&O:&G %3d&z Wimpy&O:&w %-2d&z\n\r", GET_AC(ch), ch->wimpy ); pager_printf(ch, "&zRplevel&O:&C %3d&z Needed&O:&C %-2d&z\n\r\n\r", ch->rplevel, ch->rplevel * 2 - ch->rpneed ); if (IS_SAIYAN(ch) || IS_HALFBREED(ch) ) { send_to_pager("&W---&RRacial Stats&W----------------------------------------------------&D\n\r", ch); if ( ch->rage >= 100 ) sprintf(buf, "&Y||||||||||&R |&r||||" ); else if ( ch->rage > 90 ) sprintf(buf, "&Y|||||||||&O|&r |||||" ); else if ( ch->rage > 80 ) sprintf(buf, "&Y||||||||&O||&r |||||" ); else if ( ch->rage > 70 ) sprintf(buf, "&Y|||||||&O|||&r |||||" ); else if ( ch->rage > 60 ) sprintf(buf, "&Y||||||&O||||&r |||||" ); else if ( ch->rage > 50 ) sprintf(buf, "&Y|||||&O|||||&r |||||" ); else if ( ch->rage > 40 ) sprintf(buf, "&Y|||||&O|||||&r |||||" ); else if ( ch->rage > 30 ) sprintf(buf, "&Y||||&O||||||&r |||||" ); else if ( ch->rage > 20 ) sprintf(buf, "&Y|||&O|||||||&r |||||" ); else if ( ch->rage > 10 ) sprintf(buf, "&Y||&O||||||||&r |||||" ); else if ( ch->rage > 1 ) sprintf(buf, "&Y|&O|||||||||&r |||||" ); else sprintf(buf, "&O||||||||||&r |||||" ); pager_printf(ch, "&z Rage Meter&O:&W %s\n\r", buf ); } if (IS_BIODROID(ch) ) { send_to_pager("&W---&RRacial Stats&W----------------------------------------------------&D\n\r", ch); if ( ch-> biomass >= 100 ) sprintf(buf, "&G||||||||||" ); else if ( ch->biomass > 90 ) sprintf(buf, "&G|||||||||&g|" ); else if ( ch->biomass > 80 ) sprintf(buf, "&G||||||||&g||" ); else if ( ch->biomass > 70 ) sprintf(buf, "&G|||||||&g|||" ); else if ( ch->biomass > 60 ) sprintf(buf, "&G||||||&g||||" ); else if ( ch->biomass > 50 ) sprintf(buf, "&G|||||&g|||||" ); else if ( ch->biomass > 40 ) sprintf(buf, "&G|||||&g|||||" ); else if ( ch->biomass > 30 ) sprintf(buf, "&G||||&g||||||" ); else if ( ch->biomass > 20 ) sprintf(buf, "&G|||&g|||||||" ); else if ( ch->biomass > 10 ) sprintf(buf, "&G||&g||||||||" ); else if ( ch->biomass > 1 ) sprintf(buf, "&G|&g|||||||||" ); else sprintf(buf, "&g||||||||||" ); pager_printf(ch, "&z Biomass Meter&O:&W %s\n\r", buf ); if ( ch-> biomass >= 500 ) sprintf(buf, "&R||||||||||" ); else if ( ch->biomass > 450 ) sprintf(buf, "&R|||||||||&r|" ); else if ( ch->biomass > 400 ) sprintf(buf, "&R||||||||&r||" ); else if ( ch->biomass > 350 ) sprintf(buf, "&R|||||||&r|||" ); else if ( ch->biomass > 300 ) sprintf(buf, "&R||||||&r||||" ); else if ( ch->biomass > 250 ) sprintf(buf, "&R|||||&r|||||" ); else if ( ch->biomass > 200 ) sprintf(buf, "&R|||||&r|||||" ); else if ( ch->biomass > 150 ) sprintf(buf, "&R||||&r||||||" ); else if ( ch->biomass > 100 ) sprintf(buf, "&R|||&r|||||||" ); else if ( ch->biomass > 50 ) sprintf(buf, "&R||&r||||||||" ); else if ( ch->biomass > 1 ) sprintf(buf, "&R|&r|||||||||" ); else sprintf(buf, "&r||||||||||" ); pager_printf(ch, "&z %s\n\r", buf ); if ( ch-> biomass >= 1000 ) sprintf(buf, "&P||||||||||" ); else if ( ch->biomass > 900 ) sprintf(buf, "&P|||||||||&p|" ); else if ( ch->biomass > 800 ) sprintf(buf, "&P||||||||&p||" ); else if ( ch->biomass > 700 ) sprintf(buf, "&P|||||||&p|||" ); else if ( ch->biomass > 600 ) sprintf(buf, "&P||||||&p||||" ); else if ( ch->biomass > 500 ) sprintf(buf, "&P|||||&p|||||" ); else if ( ch->biomass > 400 ) sprintf(buf, "&P|||||&p|||||" ); else if ( ch->biomass > 300 ) sprintf(buf, "&P||||&p||||||" ); else if ( ch->biomass > 200 ) sprintf(buf, "&P|||&p|||||||" ); else if ( ch->biomass > 100 ) sprintf(buf, "&P||&p||||||||" ); else if ( ch->biomass > 1 ) sprintf(buf, "&P|&p|||||||||" ); else sprintf(buf, "&p||||||||||" ); pager_printf(ch, "&z %s\n\r", buf ); if ( ch-> biomass >= 5000 ) sprintf(buf, "&W||||" ); else if ( ch->biomass > 4000 ) sprintf(buf, "&W|||&z|" ); else if ( ch->biomass > 3000 ) sprintf(buf, "&W||&z||" ); else if ( ch->biomass > 2000 ) sprintf(buf, "&W|&z|||" ); else sprintf(buf, "&z||||" ); pager_printf(ch, "&z %s\n\r", buf ); } if (IS_MUTANT(ch) ) { send_to_pager("&W---&RRacial Stats&W----------------------------------------------------&D\n\r", ch); if ( xIS_SET(ch->act, PLR_PRIMARY_STONESKIN) ) sprintf(buf, "Stoneskin" ); else if ( xIS_SET(ch->act, PLR_PRIMARY_LARGESIZE) ) sprintf(buf, "LargeSize" ); else if ( xIS_SET(ch->act, PLR_PRIMARY_SMALLSIZE) ) sprintf(buf, "SmallSize" ); else if ( xIS_SET(ch->act, PLR_PRIMARY_MEGABRAIN) ) sprintf(buf, "MegaBrain" ); else if ( xIS_SET(ch->act, PLR_PRIMARY_HIKI) ) sprintf(buf, "HighKi" ); else sprintf(buf, "None" ); pager_printf(ch, "&z Primary&O:&W %-8s\n\r\n\r", buf ); if ( xIS_SET(ch->act, PLR_SECONDARY_ULTRABODY) ) sprintf(buf, "UltraBody" ); else if ( xIS_SET(ch->act, PLR_SECONDARY_KICONTROL) ) sprintf(buf, "Ki Control" ); else if ( xIS_SET(ch->act, PLR_SECONDARY_SPIKES) ) sprintf(buf, "Spikes" ); else if ( xIS_SET(ch->act, PLR_SECONDARY_IMPROVEDSKIN) ) sprintf(buf, "Improved Skin" ); else if ( xIS_SET(ch->act, PLR_SECONDARY_CORTEX) ) sprintf(buf, "Cortex" ); else sprintf(buf, "None" ); pager_printf(ch, "&z Secondary&O:&W %-8s\n\r\n\r", buf ); } send_to_pager("&W---&RPkill Data&W------------------------------------------------------&D\n\r", ch); pager_printf(ch, "&z Pkills&O:&z (&W%3.3d&z) Illegal Pkills&O:&z (&W%3.3d&z) Pdeaths&O:&z (&W%3.3d&z)\n\r\n\r", ch->pcdata->pkills, ch->pcdata->illegal_pk, ch->pcdata->pdeaths ); if ( ch->morph && ch->morph->morph ) { 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 ("&z------------------------------------------\n\r", ch); } if (ch->pcdata->clan && ch->pcdata->clan->clan_type != CLAN_ORDER && ch->pcdata->clan->clan_type != CLAN_GUILD ) { send_to_pager("&W---&RClan Data&W-------------------------------------------------------&D\n\r", ch); pager_printf(ch, " &zClan&O:&W %-14.14s&z Clan AvPkills&O:&W %-5d&z Clan NonAvpkills&O:&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]) ); pager_printf(ch, "&z Clan AvPdeaths&O:&W %-5d&z Clan NonAvpdeaths&O:&W %-5d\n\r\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] ) ); } if (ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_ORDER ) { send_to_pager( "----------------------------------------------------------------------------\n\r", ch); pager_printf(ch, "Order: %-20s Order Mkills: %-6d Order MDeaths: %-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( "----------------------------------------------------------------------------\n\r", ch); pager_printf(ch, "Guild: %-20s Guild Mkills: %-6d Guild MDeaths: %-6d\n\r", ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths); } if (IS_IMMORTAL(ch)) { send_to_pager("&W---&RImmortal Data&W---------------------------------------------------&D\n\r", ch); pager_printf(ch, "&zWizinvis &z(&w%s&z) Wizlevel&z (&w%d&z)\n\r", xIS_SET(ch->act, PLR_WIZINVIS) ? "X" : " ", ch->pcdata->wizinvis ); pager_printf(ch, "&zBamfin&O:&W %s %s\n\r", ch->name, (ch->pcdata->bamfin[0] != '\0') ? ch->pcdata->bamfin : "appears in a swirling mist."); pager_printf(ch, "&zBamfout&O:&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(ch, "&zVnums&O:&z Room &G(&g%-5.5d&z -&g %-5.5d&G)&z Object &G(&g%-5.5d&z -&g %-5.5d&G) &zMob &G(&g%-5.5d&z -&g %-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(ch, "&zArea Loaded &r[&R%s&r]&D\n\r", (IS_SET (ch->pcdata->area->status, AREA_LOADED)) ? "yes" : "no"); } } send_to_pager("\n\r", ch); if ( ch->pcdata->bestowments && ch->pcdata->bestowments[0] != '\0' ) pager_printf( ch, "You are bestowed with the command(s): %s.\n\r", ch->pcdata->bestowments ); return; } /* void do_newscore(CHAR_DATA * ch, char *argument) { char buf[MAX_STRING_LENGTH]; char arg[MAX_INPUT_LENGTH]; AFFECT_DATA *paf; if (IS_NPC(ch)) { do_oldscore(ch, argument); return; } set_pager_color(AT_SCORE, ch); pager_printf_color(ch, "\n\r&C%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("&W----------------------------------------------------------------------------\n\r", ch); pager_printf_color(ch, "Level: &W%-3d &CRace : &W%-10.10s &CPlayed: &W%d &Chours\n\r", ch->level, capitalize(get_race(ch)), (get_age(ch) - 4) * 2); pager_printf_color(ch, "&CYears: &W%-6d &CClass: &W%-11.11s &CLog In: %s\r", get_age(ch), capitalize(get_class(ch)), ctime(&(ch->logon)) ); if (ch->level >= 15 || IS_PKILL( ch ) ) { pager_printf_color(ch, "&CSTR : &W%2.2d&C(&w%2.2d&C) HitRoll: &R%-4d &CSaved: %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, "&CINT : &W%2.2d&C(&w%2.2d&C) DamRoll: &R%-4d &CTime: %s\r", get_curr_int(ch), ch->perm_int, GET_DAMROLL(ch), ctime(¤t_time) ); } else { pager_printf_color(ch, "&CSTR : &W%2.2d&C(&w%2.2d&C) Saved: %s\r", get_curr_str(ch), ch->perm_str, ch->save_time ? ctime(&(ch->save_time)) : "no\n" ); pager_printf_color(ch, "&CINT : &W%2.2d&C(&w%2.2d&C) 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, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%-d; %s\n\r", get_curr_wis(ch), ch->perm_wis, GET_AC(ch), buf); else pager_printf_color(ch, "&CWIS : &W%2.2d&C(&w%2.2d&C) Armor: &W%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, "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%-20.20s &CItems: &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, "&CDEX : &W%2.2d&C(&w%2.2d&C) Align: &W%4d; %-14.14s &CItems: &W%d &w(max %d)\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)"); 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, "&CCON : &W%2.2d&C(&w%2.2d&C) Pos'n: &W%-21.21s &CWeight: &W%d &w(max %d)\n\r", get_curr_con(ch), ch->perm_con, buf, ch->carry_weight, can_carry_w(ch)); pager_printf_color(ch, "&CCHA : &W%2.2d&C(&w%2.2d&C) 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&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, "&CPRACT: &W%3d &CHitpoints: &G%-5d &Cof &g%5d &CPager: (&W%c&C) &W%3d &CAutoExit(&W%c&C)\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, "&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, PLR_AUTOLOOT) ? 'X' : ' '); else if (ch->class == CLASS_WARRIOR) pager_printf_color(ch, "&CEXP : &W%-9d &CMKills: &W%5d &CAutoLoot(&W%c&C)\n\r", ch->exp, ch->pcdata->mkills, xIS_SET(ch->act, PLR_AUTOLOOT) ? 'X' : ' '); else pager_printf_color(ch, "&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' : ' '); pager_printf_color(ch, "&CGOLD : &Y%-13s &CMove: &W%-5d &Cof &w%5d &CMdeaths: &W%5d &CAutoSac (&W%c&C)\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, "&CYou are bestowed with the command(s): &Y%s\n\r", ch->pcdata->bestowments ); if ( ch->morph && ch->morph->morph ) { send_to_pager_color("&W----------------------------------------------------------------------------&C\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("&W----------------------------------------------------------------------------&C\n\r", ch); } if ( CAN_PKILL( ch ) ) { 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", 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----------------------------------------------------------------------------&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]) ); pager_printf_color(ch, "&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] ) ); } if (ch->pcdata->deity) { send_to_pager_color( "&W----------------------------------------------------------------------------&C\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, "&CDeity: &W%-20s &CFavor: &W%s&C\n\r", ch->pcdata->deity->name, buf ); } if (ch->pcdata->clan && ch->pcdata->clan->clan_type == CLAN_ORDER ) { 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", 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( "&W----------------------------------------------------------------------------&C\n\r", ch); pager_printf_color(ch, "&CGuild: &W%-20s &CGuild Mkills: &W%-6d &CGuild MDeaths: &W%-6d\n\r", ch->pcdata->clan->name, ch->pcdata->clan->mkills, ch->pcdata->clan->mdeaths); } 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 "Strength"; case APPLY_DEX: return "Dexterity"; case APPLY_INT: return "Intelligence"; case APPLY_WIS: return "Wisdom"; case APPLY_CON: return "Conditioning"; case APPLY_CHA: return "Charisma"; case APPLY_LCK: return "Luck"; case APPLY_SEX: return "Sex"; case APPLY_CLASS: return "Class"; case APPLY_LEVEL: return " LVL "; case APPLY_AGE: return "Age"; case APPLY_MANA: return "Mp"; case APPLY_HIT: return "Hp"; case APPLY_MOVE: return "Move"; case APPLY_GOLD: return "Gold"; case APPLY_EXP: return "Experience"; case APPLY_AC: return "Armor Class"; case APPLY_HITROLL: return "Hitroll"; case APPLY_DAMROLL: return "Damroll"; 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 "Saving Spell"; case APPLY_HEIGHT: return "HEIGHT"; case APPLY_WEIGHT: return "WEIGHT"; case APPLY_AFFECT: return "Nothing"; 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: return " MOUNT "; case APPLY_DISARM: return " DISARM"; case APPLY_KICK: return " KICK "; case APPLY_PARRY: return " PARRY "; case APPLY_BASH: return " BASH "; case APPLY_STUN: return " STUN "; case APPLY_PUNCH: return " PUNCH "; case APPLY_CLIMB: return " CLIMB "; case APPLY_GRIP: return " GRIP "; case APPLY_SCRIBE: return " SCRIBE"; case APPLY_BREW: return " BREW "; case APPLY_WEARSPELL: return " WEAR "; case APPLY_REMOVESPELL: return " REMOVE"; case APPLY_EMOTION: return "EMOTION"; case APPLY_MENTALSTATE: return " MENTAL"; case APPLY_STRIPSN: return " DISPEL"; case APPLY_REMOVE: return " REMOVE"; case APPLY_DIG: return " DIG "; case APPLY_FULL: return " HUNGER"; case APPLY_THIRST: return " THIRST"; case APPLY_DRUNK: return " DRUNK "; case APPLY_BLOOD: return " BLOOD "; case APPLY_COOK: return " COOK "; case APPLY_RECURRINGSPELL: return " RECURR"; case APPLY_CONTAGIOUS: return "CONTGUS"; case APPLY_ODOR: return " ODOR "; case APPLY_ROOMFLAG: return " RMFLG "; case APPLY_SECTORTYPE: return " SECTOR"; case APPLY_ROOMLIGHT: return " LIGHT "; case APPLY_TELEVNUM: return " TELEVN"; case APPLY_TELEDELAY: return " TELEDY"; }; bug("Affect_location_name: unknown location %d.", location); return "(???)"; } char * get_class(CHAR_DATA *ch) { if ( IS_NPC(ch) && ch->class < MAX_NPC_CLASS && ch->class >= 0) return ( npc_class[ch->class] ); else if ( !IS_NPC(ch) && ch->class < MAX_PC_CLASS && ch->class >= 0 ) return class_table[ch->class]->who_name; return ("Unknown"); } char * get_race( CHAR_DATA *ch) { if( ch->race < MAX_PC_RACE && ch->race >= 0) return (race_table[ch->race]->race_name); if ( ch->race < MAX_NPC_RACE && ch->race >= 0) return ( npc_race[ch->race] ); return ("Unknown"); } void do_oldscore( CHAR_DATA *ch, char *argument ) { AFFECT_DATA *paf; SKILLTYPE *skill; set_pager_color( AT_SCORE, ch ); pager_printf( ch, "You are %s%s, level %d, %d years old (%d hours).\n\r", ch->name, IS_NPC(ch) ? "" : ch->pcdata->title, ch->level, get_age(ch), (get_age(ch) - 17) * 2 ); if ( get_trust( ch ) != ch->level ) pager_printf( ch, "You are trusted at level %d.\n\r", get_trust( ch ) ); if ( IS_NPC(ch) && xIS_SET(ch->act, ACT_MOBINVIS) ) pager_printf( ch, "You are mobinvis at level %d.\n\r", ch->mobinvis); if ( !IS_NPC(ch) && IS_VAMPIRE(ch) ) pager_printf( ch, "You have %d/%d hit, %d/%d blood level, %d/%d movement, %d practices.\n\r", ch->hit, ch->max_hit, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->move, ch->max_move, ch->practice ); else pager_printf( ch, "You have %d/%d hit, %d/%d mana, %d/%d movement, %d practices.\n\r", ch->hit, ch->max_hit, ch->mana, ch->max_mana, ch->move, ch->max_move, ch->practice ); pager_printf( ch, "You are carrying %d/%d items with weight %d/%d kg.\n\r", ch->carry_number, can_carry_n(ch), ch->carry_weight, can_carry_w(ch) ); pager_printf( ch, "Str: %d Int: %d Wis: %d Dex: %d Con: %d Cha: %d Lck: %d.\n\r", get_curr_str(ch), get_curr_int(ch), get_curr_wis(ch), get_curr_dex(ch), get_curr_con(ch), get_curr_cha(ch), get_curr_lck(ch) ); 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) ); if ( !IS_NPC(ch) ) pager_printf( ch, "You have achieved %d glory during your life, and currently have %d.\n\r", ch->pcdata->quest_accum, ch->pcdata->quest_curr ); pager_printf( ch, "Autoexit: %s Autoloot: %s Autosac: %s Autogold: %s\n\r", (!IS_NPC(ch) && xIS_SET(ch->act, PLR_AUTOEXIT)) ? "yes" : "no", (!IS_NPC(ch) && xIS_SET(ch->act, PLR_AUTOLOOT)) ? "yes" : "no", (!IS_NPC(ch) && xIS_SET(ch->act, PLR_AUTOSAC) ) ? "yes" : "no", (!IS_NPC(ch) && xIS_SET(ch->act, PLR_AUTOGOLD)) ? "yes" : "no" ); pager_printf( ch, "Wimpy set to %d hit points.\n\r", ch->wimpy ); if ( !IS_NPC(ch) ) { if ( ch->pcdata->condition[COND_DRUNK] > 10 ) send_to_pager( "You are drunk.\n\r", ch ); if ( ch->pcdata->condition[COND_THIRST] == 0 ) send_to_pager( "You are thirsty.\n\r", ch ); if ( ch->pcdata->condition[COND_FULL] == 0 ) send_to_pager( "You are hungry.\n\r", ch ); } 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 appart.\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; } switch ( ch->position ) { case POS_DEAD: send_to_pager( "You are DEAD!!\n\r", ch ); break; case POS_MORTAL: send_to_pager( "You are mortally wounded.\n\r", ch ); break; case POS_INCAP: send_to_pager( "You are incapacitated.\n\r", ch ); break; case POS_STUNNED: send_to_pager( "You are stunned.\n\r", ch ); break; case POS_SLEEPING: send_to_pager( "You are sleeping.\n\r", ch ); break; case POS_RESTING: send_to_pager( "You are resting.\n\r", ch ); break; case POS_STANDING: send_to_pager( "You are standing.\n\r", ch ); break; case POS_FIGHTING: send_to_pager( "You are fighting.\n\r", ch ); break; case POS_MOUNTED: send_to_pager( "Mounted.\n\r", ch ); break; case POS_SHOVE: send_to_pager( "Being shoved.\n\r", ch ); break; case POS_DRAG: send_to_pager( "Being dragged.\n\r", ch ); break; } if ( ch->level >= 25 ) pager_printf( ch, "AC: %d. ", GET_AC(ch) ); send_to_pager( "You are ", ch ); if ( GET_AC(ch) >= 101 ) send_to_pager( "WORSE than naked!\n\r", ch ); else if ( GET_AC(ch) >= 80 ) send_to_pager( "naked.\n\r", ch ); else if ( GET_AC(ch) >= 60 ) send_to_pager( "wearing clothes.\n\r", ch ); else if ( GET_AC(ch) >= 40 ) send_to_pager( "slightly armored.\n\r", ch ); else if ( GET_AC(ch) >= 20 ) send_to_pager( "somewhat armored.\n\r", ch ); else if ( GET_AC(ch) >= 0 ) send_to_pager( "armored.\n\r", ch ); else if ( GET_AC(ch) >= - 20 ) send_to_pager( "well armored.\n\r", ch ); else if ( GET_AC(ch) >= - 40 ) send_to_pager( "strongly armored.\n\r", ch ); else if ( GET_AC(ch) >= - 60 ) send_to_pager( "heavily armored.\n\r", ch ); else if ( GET_AC(ch) >= - 80 ) send_to_pager( "superbly armored.\n\r", ch ); else if ( GET_AC(ch) >= -100 ) send_to_pager( "divinely armored.\n\r", ch ); else send_to_pager( "invincible!\n\r", ch ); if ( ch->level >= 15 || IS_PKILL( ch ) ) pager_printf( ch, "Hitroll: %d Damroll: %d.\n\r", GET_HITROLL(ch), GET_DAMROLL(ch) ); if ( ch->level >= 10 ) pager_printf( ch, "Alignment: %d. ", ch->alignment ); send_to_pager( "You are ", ch ); if ( ch->alignment > 900 ) send_to_pager( "angelic.\n\r", ch ); else if ( ch->alignment > 700 ) send_to_pager( "saintly.\n\r", ch ); else if ( ch->alignment > 350 ) send_to_pager( "good.\n\r", ch ); else if ( ch->alignment > 100 ) send_to_pager( "kind.\n\r", ch ); else if ( ch->alignment > -100 ) send_to_pager( "neutral.\n\r", ch ); else if ( ch->alignment > -350 ) send_to_pager( "mean.\n\r", ch ); else if ( ch->alignment > -700 ) send_to_pager( "evil.\n\r", ch ); else if ( ch->alignment > -900 ) send_to_pager( "demonic.\n\r", ch ); else send_to_pager( "satanic.\n\r", ch ); if ( ch->first_affect ) { send_to_pager( "You are affected by:\n\r", ch ); for ( paf = ch->first_affect; paf; paf = paf->next ) if ( (skill=get_skilltype(paf->type)) != NULL ) { pager_printf( ch, "Spell: '%s'", skill->name ); if ( ch->level >= 20 ) pager_printf( ch, " modifies %s by %d for %d rounds", affect_loc_name( paf->location ), paf->modifier, paf->duration ); send_to_pager( ".\n\r", ch ); } } if ( !IS_NPC( ch ) && IS_IMMORTAL( ch ) ) { pager_printf( ch, "\n\rWizInvis level: %d WizInvis is %s\n\r", ch->pcdata->wizinvis, xIS_SET(ch->act, PLR_WIZINVIS) ? "ON" : "OFF" ); if ( ch->pcdata->r_range_lo && ch->pcdata->r_range_hi ) pager_printf( ch, "Room Range: %d - %d\n\r", ch->pcdata->r_range_lo, ch->pcdata->r_range_hi ); if ( ch->pcdata->o_range_lo && ch->pcdata->o_range_hi ) pager_printf( ch, "Obj Range : %d - %d\n\r", ch->pcdata->o_range_lo, ch->pcdata->o_range_hi ); if ( ch->pcdata->m_range_lo && ch->pcdata->m_range_hi ) pager_printf( ch, "Mob Range : %d - %d\n\r", ch->pcdata->m_range_lo, ch->pcdata->m_range_hi ); } return; } /* -Thoric * Display your current exp, level, and surrounding level exp requirements */ void do_level( CHAR_DATA *ch, char *argument ) { char buf [MAX_STRING_LENGTH]; char buf2[MAX_STRING_LENGTH]; int x, lowlvl, hilvl; if ( ch->level == 1 ) lowlvl = 1; else lowlvl = UMAX( 2, ch->level - 5 ); hilvl = URANGE( ch->level, ch->level + 5, MAX_LEVEL ); 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) ); for ( x = lowlvl; x <= hilvl; x++ ) ch_printf( ch, " (%2d) %12s%s\n\r", x, num_punct( exp_level( ch, x ) ), (x == ch->level) ? buf : (x == ch->level+1) ? buf2 : " exp" ); send_to_char( "______________________________________________\n\r", ch ); } /* 1997, Blodkai */ void do_remains( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; OBJ_DATA *obj; bool found = FALSE; if ( IS_NPC( ch ) ) return; set_char_color( AT_MAGIC, ch ); if ( !ch->pcdata->deity ) { send_to_pager( "You have no deity from which to seek such assistance...\n\r", ch ); return; } if ( ch->pcdata->favor < ch->level*2 ) { send_to_pager( "Your favor is insufficient for such assistance...\n\r", ch ); return; } pager_printf( ch, "%s appears in a vision, revealing that your remains... ", ch->pcdata->deity->name ); sprintf( buf, "the corpse of %s", ch->name ); for ( obj = first_object; obj; obj = obj->next ) { if ( obj->in_room && !str_cmp( buf, obj->short_descr ) && ( obj->pIndexData->vnum == 11 ) ) { found = TRUE; pager_printf( ch, "\n\r - at %s will endure for %d ticks", obj->in_room->name, obj->timer ); } } if ( !found ) send_to_pager( " no longer exist.\n\r", ch ); else { send_to_pager( "\n\r", ch ); ch->pcdata->favor -= ch->level*2; } 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_SCORE, 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 ) { 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) ); } } return; } if ( !ch->first_affect ) { send_to_char_color( "&RYou are not affected by any spells.\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( "Spell: ", ch ); set_char_color( AT_SCORE, ch ); if ( ch->level >= 1 || IS_PKILL( ch ) ) { 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, "&c%s&b:&G affects&c %s&G by&c %d&G for&c %d&G seconds", skill->name, tiny_affect_loc_name(paf->location), paf->modifier, paf->duration ); } ch_printf( ch, "\n\r" ); } } return; } void do_inventory( CHAR_DATA *ch, char *argument ) { set_char_color( AT_WHITE, ch ); send_to_char( "\n\r&GInventory:\n\r&g-------------------------\n\r", ch ); show_list_to_char( ch->first_carrying, ch, TRUE, TRUE ); return; } void do_equipment( CHAR_DATA *ch, char *argument ) { OBJ_DATA *obj; int iWear; bool found; set_char_color( AT_RED, ch ); send_to_char( "&GEquipment:\n\r\n\r", ch ); found = FALSE; set_char_color( AT_OBJECT, ch ); for ( iWear = 0; iWear < MAX_WEAR; iWear++ ) { for ( obj = ch->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 ) ) { 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; } void set_title( CHAR_DATA *ch, char *title ) { char buf[MAX_STRING_LENGTH]; if ( IS_NPC(ch) ) { bug( "Set_title: NPC.", 0 ); return; } if ( isalpha(title[0]) || isdigit(title[0]) ) { buf[0] = ' '; strcpy( buf+1, title ); } else strcpy( buf, title ); STRFREE( ch->pcdata->title ); ch->pcdata->title = STRALLOC( buf ); return; } void do_title( CHAR_DATA *ch, char *argument ) { if ( IS_NPC(ch) ) return; set_char_color( AT_SCORE, ch ); if ( ch->exp < 45000000 ) { send_to_char( "Sorry... you must have at least 45,000,000 PL to set your title...\n\r", ch ); return; } if ( IS_SET( ch->pcdata->flags, PCFLAG_NOTITLE )) { set_char_color( AT_IMMORT, ch ); send_to_char( "The Gods prohibit you from changing your title.\n\r", ch ); return; } if ( argument[0] == '\0' ) { send_to_char( "Change your title to what?\n\r", ch ); return; } if ( strlen(argument) > 50 ) argument[50] = '\0'; smash_tilde( argument ); set_title( ch, argument ); send_to_char( "Ok.\n\r", ch ); } void do_homepage( CHAR_DATA *ch, char *argument ) { char buf[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; } if ( argument[0] == '\0' ) { if ( !ch->pcdata->homepage ) ch->pcdata->homepage = str_dup( "" ); ch_printf( ch, "Your homepage is: %s\n\r", show_tilde( ch->pcdata->homepage ) ); return; } if ( !str_cmp( argument, "clear" ) ) { if ( ch->pcdata->homepage ) DISPOSE(ch->pcdata->homepage); ch->pcdata->homepage = str_dup(""); send_to_char( "Homepage cleared.\n\r", ch ); return; } if ( strstr( argument, "://" ) ) strcpy( buf, argument ); else sprintf( buf, "http://%s", argument ); if ( strlen(buf) > 70 ) buf[70] = '\0'; hide_tilde( buf ); if ( ch->pcdata->homepage ) DISPOSE(ch->pcdata->homepage); ch->pcdata->homepage = str_dup(buf); send_to_char( "Homepage set.\n\r", ch ); } /* * Set your personal description -Thoric */ void do_description( CHAR_DATA *ch, char *argument ) { if ( IS_NPC( ch ) ) { send_to_char( "Monsters are too dumb to do that!\n\r", ch ); return; } if ( !ch->desc ) { bug( "do_description: no descriptor", 0 ); return; } switch( ch->substate ) { default: bug( "do_description: illegal substate", 0 ); return; case SUB_RESTRICTED: send_to_char( "You cannot use this command from within another command.\n\r", ch ); return; case SUB_NONE: ch->substate = SUB_PERSONAL_DESC; ch->dest_buf = ch; start_editing( ch, ch->description ); return; case SUB_PERSONAL_DESC: STRFREE( ch->description ); ch->description = copy_buffer( ch ); stop_editing( ch ); return; } } /* Ripped off do_description for whois bio's -- Scryn*/ void do_bio( CHAR_DATA *ch, char *argument ) { if ( IS_NPC( ch ) ) { send_to_char( "Mobs cannot set a bio.\n\r", ch ); return; } if ( ch->level < 5 ) { set_char_color( AT_SCORE, ch ); send_to_char( "You must be at least level five to write your bio...\n\r", ch ); return; } if ( !ch->desc ) { bug( "do_bio: no descriptor", 0 ); return; } switch( ch->substate ) { default: bug( "do_bio: illegal substate", 0 ); return; case SUB_RESTRICTED: send_to_char( "You cannot use this command from within another command.\n\r", ch ); return; case SUB_NONE: ch->substate = SUB_PERSONAL_BIO; ch->dest_buf = ch; start_editing( ch, ch->pcdata->bio ); return; case SUB_PERSONAL_BIO: STRFREE( ch->pcdata->bio ); ch->pcdata->bio = copy_buffer( ch ); stop_editing( ch ); return; } } /* * New stat and statreport command coded by Morphina * Bug fixes by Shaddai */ void do_statreport( CHAR_DATA *ch, char *argument ) { char buf[MAX_INPUT_LENGTH]; if ( IS_NPC(ch) ) { send_to_char("Huh?\n\r", ch ); return; } if ( IS_VAMPIRE(ch) ) { ch_printf( ch, "You report: %d/%d hp %d/%d blood %d/%d mv %d xp.\n\r", ch->hit, ch->max_hit, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->move, ch->max_move, ch->exp ); sprintf( buf, "$n reports: %d/%d hp %d/%d blood %d/%d mv %d xp.", ch->hit, ch->max_hit, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->move, ch->max_move, ch->exp ); act( AT_REPORT, buf, ch, NULL, NULL, TO_ROOM ); } else { ch_printf( ch, "You report: %d/%d hp %d/%d mana %d/%d mv %d xp.\n\r", ch->hit, ch->max_hit, ch->mana, ch->max_mana, ch->move, ch->max_move, ch->exp ); sprintf( buf, "$n reports: %d/%d hp %d/%d mana %d/%d mv %d xp.", ch->hit, ch->max_hit, ch->mana, ch->max_mana, ch->move, ch->max_move, ch->exp ); act( AT_REPORT, buf, ch, NULL, NULL, TO_ROOM ); } ch_printf( ch, "Your base stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.\n\r", ch->perm_str, ch->perm_wis, ch->perm_int, ch->perm_dex, ch->perm_con, ch->perm_cha, ch->perm_lck ); sprintf( buf, "$n's base stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.", ch->perm_str, ch->perm_wis, ch->perm_int, ch->perm_dex, ch->perm_con, ch->perm_cha, ch->perm_lck ); act( AT_REPORT, buf, ch, NULL, NULL, TO_ROOM ); ch_printf( ch, "Your current stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.\n\r", get_curr_str(ch), get_curr_wis(ch), get_curr_int(ch), get_curr_dex(ch), get_curr_con(ch), get_curr_cha(ch), get_curr_lck(ch) ); sprintf( buf, "$n's current stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.", get_curr_str(ch), get_curr_wis(ch), get_curr_int(ch), get_curr_dex(ch), get_curr_con(ch), get_curr_cha(ch), get_curr_lck(ch) ); act( AT_REPORT, buf, ch, NULL, NULL, TO_ROOM ); return; } void do_stat( CHAR_DATA *ch, char *argument ) { if ( IS_NPC(ch) ) { send_to_char("Huh?\n\r", ch ); return; } if ( IS_VAMPIRE(ch) ) ch_printf( ch, "You report: %d/%d hp %d/%d blood %d/%d mv %d xp.\n\r", ch->hit, ch->max_hit, ch->pcdata->condition[COND_BLOODTHIRST], 10 + ch->level, ch->move, ch->max_move, ch->exp ); else ch_printf( ch, "You report: %d/%d hp %d/%d mana %d/%d mv %d xp.\n\r", ch->hit, ch->max_hit, ch->mana, ch->max_mana, ch->move, ch->max_move, ch->exp ); ch_printf( ch, "Your base stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.\n\r", ch->perm_str, ch->perm_wis, ch->perm_int, ch->perm_dex, ch->perm_con, ch->perm_cha, ch->perm_lck ); ch_printf( ch, "Your current stats: %-2d str %-2d wis %-2d int %-2d dex %-2d con %-2d cha %-2d lck.\n\r", get_curr_str(ch), get_curr_wis(ch), get_curr_int(ch), get_curr_dex(ch), get_curr_con(ch), get_curr_cha(ch), get_curr_lck(ch) ); return; } void do_report( CHAR_DATA *ch, char *argument ) { char buf[MAX_INPUT_LENGTH]; if ( IS_NPC( ch ) && ch->fighting ) return; if ( IS_AFFECTED(ch, AFF_POSSESS) ) { send_to_char("You can't do that in your current state of mind!\n\r", ch); return; } if (xIS_SET(ch->act, PLR_SUPPRESS)) { ch_printf( ch, "You report: %d Life %d/%d Ki %s Powerlevel.\n\r", ch->hit, ch->mana, ch->max_mana, num_punct(ch->suppress)); sprintf( buf, "$n reports: %d Life %d/%d Ki %s Powerlevel.", ch->hit, ch->mana, ch->max_mana, num_punct(ch->suppress)); } else ch_printf( ch, "You report: %d Life %d/%d Ki %s Powerlevel.\n\r", ch->hit, ch->mana, ch->max_mana, num_punct(ch->exp * ch->mod)); sprintf( buf, "$n reports: %d Life %d/%d Ki %s Powerlevel.", ch->hit, ch->mana, ch->max_mana, num_punct(ch->exp * ch->mod)); act( AT_REPORT, buf, ch, NULL, NULL, TO_ROOM ); return; } void do_fprompt( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; set_char_color( AT_GREY, ch ); if ( IS_NPC(ch) ) { send_to_char( "NPC's can't change their prompt..\n\r", ch ); return; } smash_tilde( argument ); one_argument( argument, arg ); if ( !*arg || !str_cmp( arg, "display" ) ) { send_to_char( "Your current fighting prompt string:\n\r", ch ); set_char_color( AT_WHITE, ch ); ch_printf( ch, "%s", !str_cmp( ch->pcdata->fprompt, "" ) ? "(default prompt)" : ch->pcdata->fprompt ); set_char_color( AT_GREY, ch ); send_to_char( "Type 'help prompt' for information on changing your prompt.\n\r", ch ); return; } send_to_char( "Replacing old prompt of:\n\r", ch ); set_char_color( AT_WHITE, ch ); ch_printf( ch, "%s", !str_cmp( ch->pcdata->fprompt, "" ) ? "(default prompt)" : ch->pcdata->fprompt ); if (ch->pcdata->fprompt) STRFREE(ch->pcdata->fprompt); if ( strlen(argument) > 128 ) argument[128] = '\0'; /* Can add a list of pre-set prompts here if wanted.. perhaps 'prompt 1' brings up a different, pre-set prompt */ if ( !str_cmp(arg, "default") ) ch->pcdata->fprompt = STRALLOC(""); else ch->pcdata->fprompt = STRALLOC(argument); return; } void do_prompt( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; set_char_color( AT_GREY, ch ); if ( IS_NPC(ch) ) { send_to_char( "NPC's can't change their prompt..\n\r", ch ); return; } smash_tilde( argument ); one_argument( argument, arg ); if ( !*arg || !str_cmp( arg, "display" ) ) { send_to_char( "Your current prompt string:\n\r", ch ); set_char_color( AT_WHITE, ch ); ch_printf( ch, "%s", !str_cmp( ch->pcdata->prompt, "" ) ? "(default prompt)" : ch->pcdata->prompt ); set_char_color( AT_GREY, ch ); send_to_char( "Type 'help prompt' for information on changing your prompt.\n\r", ch ); return; } send_to_char( "Replacing old prompt of:\n\r", ch ); set_char_color( AT_WHITE, ch ); ch_printf( ch, "%s", !str_cmp( ch->pcdata->prompt, "" ) ? "(default prompt)" : ch->pcdata->prompt ); if (ch->pcdata->prompt) STRFREE(ch->pcdata->prompt); if ( strlen(argument) > 128 ) argument[128] = '\0'; /* Can add a list of pre-set prompts here if wanted.. perhaps 'prompt 1' brings up a different, pre-set prompt */ if ( !str_cmp(arg, "default") ) ch->pcdata->prompt = STRALLOC(""); else ch->pcdata->prompt = STRALLOC(argument); return; } /* * Figured this belonged here seeing it involves players... * really simple little function to tax players with a large * amount of gold to help reduce the overall gold pool... * --TRI */ void tax_player( CHAR_DATA *ch ) { /* int gold = ch->gold; int mgold = (ch->level * 2000000); int tax = (ch->gold * .05); if ( gold > mgold ) { set_char_color( AT_WHITE, ch ); ch_printf( ch, "You are level %d and carry more than %d coins.\n\r", ch->level, mgold ); ch_printf( ch, "You are being taxed \%5 percent (%d coins) of your %d coins,\n\r", tax, ch->gold ); ch_printf( ch, "and that leaves you with %d coins.\n\r", (ch->gold - tax)); ch->gold -= tax; } return; */ }