开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
ACT_INFO.C
资源名称：mercwsrc.zip　[点击查看]
上传用户：kesirui
上传日期：2007-01-07
资源大小：263k
文件大小：54k
源码类别：

Internet/网络编程

开发平台：

WINDOWS

ACT_INFO.C：源码内容
  1. /***************************************************************************
  2.  *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
  3.  *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
  4.  *                                                                         *
  5.  *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
  6.  *  Chastain, Michael Quan, and Mitchell Tse.                              *
  7.  *                                                                         *
  8.  *  In order to use any part of this Merc Diku Mud, you must comply with   *
  9.  *  both the original Diku license in 'license.doc' as well the Merc       *
  10.  *  license in 'license.txt'.  In particular, you may not remove either of *
  11.  *  these copyright notices.                                               *
  12.  *                                                                         *
  13.  *  Much time and thought has gone into this software and you are          *
  14.  *  benefitting.  We hope that you share your changes too.  What goes      *
  15.  *  around, comes around.                                                  *
  16.  ***************************************************************************/
  18. #if defined(macintosh)
  19. #include <types.h>
  20. #else
  21. #include <sys/types.h>
  22. #endif
  23. #include <ctype.h>
  24. #include <stdio.h>
  25. #include <stdlib.h>
  26. #include <string.h>
  27. #include <time.h>
  28. #include "merc.h"
  30. //#ifdef WIN32s
  31. //#define crypt(d,s) strcpy(d,s)
  32. //#endif
  34. char * const where_name [] =
  35. {
  36.     "<used as light>     ",
  37.     "<worn on finger>    ",
  38.     "<worn on finger>    ",
  39.     "<worn around neck>  ",
  40.     "<worn around neck>  ",
  41.     "<worn on body>      ",
  42.     "<worn on head>      ",
  43.     "<worn on legs>      ",
  44.     "<worn on feet>      ",
  45.     "<worn on hands>     ",
  46.     "<worn on arms>      ",
  47.     "<worn as shield>    ",
  48.     "<worn about body>   ",
  49.     "<worn about waist>  ",
  50.     "<worn around wrist> ",
  51.     "<worn around wrist> ",
  52.     "<wielded>           ",
  53.     "<held>              "
  54. };
  58. /*
  59.  * Local functions.
  60.  */
  61. char * format_obj_to_char args( ( OBJ_DATA *obj, CHAR_DATA *ch,
  62.     bool fShort ) );
  63. void show_list_to_char args( ( OBJ_DATA *list, CHAR_DATA *ch,
  64.     bool fShort, bool fShowNothing ) );
  65. void show_char_to_char_0 args( ( CHAR_DATA *victim, CHAR_DATA *ch ) );
  66. void show_char_to_char_1 args( ( CHAR_DATA *victim, CHAR_DATA *ch ) );
  67. void show_char_to_char args( ( CHAR_DATA *list, CHAR_DATA *ch ) );
  68. bool check_blind args( ( CHAR_DATA *ch ) );
  72. char *format_obj_to_char( OBJ_DATA *obj, CHAR_DATA *ch, bool fShort )
  73. {
  74.     static char buf[MAX_STRING_LENGTH];
  76.     buf[0] = '';
  77.     if ( IS_OBJ_STAT(obj, ITEM_INVIS)     )   strcat( buf, "(Invis) "     );
  78.     if ( IS_AFFECTED(ch, AFF_DETECT_EVIL)
  79.          && IS_OBJ_STAT(obj, ITEM_EVIL)   )   strcat( buf, "(Red Aura) "  );
  80.     if ( IS_AFFECTED(ch, AFF_DETECT_MAGIC)
  81.          && IS_OBJ_STAT(obj, ITEM_MAGIC)  )   strcat( buf, "(Magical) "   );
  82.     if ( IS_OBJ_STAT(obj, ITEM_GLOW)      )   strcat( buf, "(Glowing) "   );
  83.     if ( IS_OBJ_STAT(obj, ITEM_HUM)       )   strcat( buf, "(Humming) "   );
  85.     if ( fShort )
  86.     {
  87. if ( obj->short_descr != NULL )
  88.     strcat( buf, obj->short_descr );
  89.     }
  90.     else
  91.     {
  92. if ( obj->description != NULL )
  93.     strcat( buf, obj->description );
  94.     }
  96.     return buf;
  97. }
  101. /*
  102.  * Show a list to a character.
  103.  * Can coalesce duplicated items.
  104.  */
  105. void show_list_to_char( OBJ_DATA *list, CHAR_DATA *ch, bool fShort, bool fShowNothing )
  106. {
  107.     char buf[MAX_STRING_LENGTH];
  108.     char **prgpstrShow;
  109.     int *prgnShow;
  110.     char *pstrShow;
  111.     OBJ_DATA *obj;
  112.     int nShow;
  113.     int iShow;
  114.     int count;
  115.     bool fCombine;
  117.     if ( ch->desc == NULL )
  118. return;
  120.     /*
  121.      * Alloc space for output lines.
  122.      */
  123.     count = 0;
  124.     for ( obj = list; obj != NULL; obj = obj->next_content )
  125. count++;
  126.     prgpstrShow = alloc_mem( count * sizeof(char *) );
  127.     prgnShow    = alloc_mem( count * sizeof(int)    );
  128.     nShow = 0;
  130.     /*
  131.      * Format the list of objects.
  132.      */
  133.     for ( obj = list; obj != NULL; obj = obj->next_content )
  134.     { 
  135. if ( obj->wear_loc == WEAR_NONE && can_see_obj( ch, obj ) )
  136. {
  137.     pstrShow = format_obj_to_char( obj, ch, fShort );
  138.     fCombine = FALSE;
  140.     if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
  141.     {
  142. /*
  143.  * Look for duplicates, case sensitive.
  144.  * Matches tend to be near end so run loop backwords.
  145.  */
  146. for ( iShow = nShow - 1; iShow >= 0; iShow-- )
  147. {
  148.     if ( !strcmp( prgpstrShow[iShow], pstrShow ) )
  149.     {
  150. prgnShow[iShow]++;
  151. fCombine = TRUE;
  152. break;
  153.     }
  154. }
  155.     }
  157.     /*
  158.      * Couldn't combine, or didn't want to.
  159.      */
  160.     if ( !fCombine )
  161.     {
  162. prgpstrShow [nShow] = str_dup( pstrShow );
  163. prgnShow    [nShow] = 1;
  164. nShow++;
  165.     }
  166. }
  167.     }
  169.     /*
  170.      * Output the formatted list.
  171.      */
  172.     for ( iShow = 0; iShow < nShow; iShow++ )
  173.     {
  174. if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
  175. {
  176.     if ( prgnShow[iShow] != 1 )
  177.     {
  178. sprintf( buf, "(%2d) ", prgnShow[iShow] );
  179. send_to_char( buf, ch );
  180.     }
  181.     else
  182.     {
  183. send_to_char( "     ", ch );
  184.     }
  185. }
  186. send_to_char( prgpstrShow[iShow], ch );
  187. send_to_char( "nr", ch );
  188. free_string( prgpstrShow[iShow] );
  189.     }
  191.     if ( fShowNothing && nShow == 0 )
  192.     {
  193. if ( IS_NPC(ch) || IS_SET(ch->act, PLR_COMBINE) )
  194.     send_to_char( "     ", ch );
  195. send_to_char( "Nothing.nr", ch );
  196.     }
  198.     /*
  199.      * Clean up.
  200.      */
  201.     free_mem( prgpstrShow, count * sizeof(char *) );
  202.     free_mem( prgnShow,    count * sizeof(int)    );
  204.     return;
  205. }
  209. void show_char_to_char_0( CHAR_DATA *victim, CHAR_DATA *ch )
  210. {
  211.     char buf[MAX_STRING_LENGTH];
  213.     buf[0] = '';
  215.     if ( IS_AFFECTED(victim, AFF_INVISIBLE)   ) strcat( buf, "(Invis) "      );
  216.     if ( IS_AFFECTED(victim, AFF_HIDE)        ) strcat( buf, "(Hide) "       );
  217.     if ( IS_AFFECTED(victim, AFF_CHARM)       ) strcat( buf, "(Charmed) "    );
  218.     if ( IS_AFFECTED(victim, AFF_PASS_DOOR)   ) strcat( buf, "(Translucent) ");
  219.     if ( IS_AFFECTED(victim, AFF_FAERIE_FIRE) ) strcat( buf, "(Pink Aura) "  );
  220.     if ( IS_EVIL(victim)
  221.     &&   IS_AFFECTED(ch, AFF_DETECT_EVIL)     ) strcat( buf, "(Red Aura) "   );
  222.     if ( IS_AFFECTED(victim, AFF_SANCTUARY)   ) strcat( buf, "(White Aura) " );
  223.     if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_KILLER ) )
  224. strcat( buf, "(KILLER) "     );
  225.     if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_THIEF  ) )
  226. strcat( buf, "(THIEF) "      );
  228.     if ( victim->position == POS_STANDING && victim->long_descr[0] != '' )
  229.     {
  230. strcat( buf, victim->long_descr );
  231. send_to_char( buf, ch );
  232. return;
  233.     }
  235.     strcat( buf, PERS( victim, ch ) );
  236.     if ( !IS_NPC(victim) && !IS_SET(ch->act, PLR_BRIEF) )
  237. strcat( buf, victim->pcdata->title );
  239.     switch ( victim->position )
  240.     {
  241.     case POS_DEAD:     strcat( buf, " is DEAD!!" );              break;
  242.     case POS_MORTAL:   strcat( buf, " is mortally wounded." );   break;
  243.     case POS_INCAP:    strcat( buf, " is incapacitated." );      break;
  244.     case POS_STUNNED:  strcat( buf, " is lying here stunned." ); break;
  245.     case POS_SLEEPING: strcat( buf, " is sleeping here." );      break;
  246.     case POS_RESTING:  strcat( buf, " is resting here." );       break;
  247.     case POS_STANDING: strcat( buf, " is here." );               break;
  248.     case POS_FIGHTING:
  249. strcat( buf, " is here, fighting " );
  250. if ( victim->fighting == NULL )
  251.     strcat( buf, "thin air??" );
  252. else if ( victim->fighting == ch )
  253.     strcat( buf, "YOU!" );
  254. else if ( victim->in_room == victim->fighting->in_room )
  255. {
  256.     strcat( buf, PERS( victim->fighting, ch ) );
  257.     strcat( buf, "." );
  258. }
  259. else
  260.     strcat( buf, "somone who left??" );
  261. break;
  262.     }
  264.     strcat( buf, "nr" );
  265.     buf[0] = UPPER(buf[0]);
  266.     send_to_char( buf, ch );
  267.     return;
  268. }
  272. void show_char_to_char_1( CHAR_DATA *victim, CHAR_DATA *ch )
  273. {
  274.     char buf[MAX_STRING_LENGTH];
  275.     OBJ_DATA *obj;
  276.     int iWear;
  277.     int percent;
  278.     bool found;
  280.     if ( can_see( victim, ch ) )
  281.     {
  282. act( "$n looks at you.", ch, NULL, victim, TO_VICT    );
  283. act( "$n looks at $N.",  ch, NULL, victim, TO_NOTVICT );
  284.     }
  286.     if ( victim->description[0] != '' )
  287.     {
  288. send_to_char( victim->description, ch );
  289.     }
  290.     else
  291.     {
  292. act( "You see nothing special about $M.", ch, NULL, victim, TO_CHAR );
  293.     }
  295.     if ( victim->max_hit > 0 )
  296. percent = ( 100 * victim->hit ) / victim->max_hit;
  297.     else
  298. percent = -1;
  300.     strcpy( buf, PERS(victim, ch) );
  302.          if ( percent >= 100 ) strcat( buf, " is in perfect health.nr"  );
  303.     else if ( percent >=  90 ) strcat( buf, " is slightly scratched.nr" );
  304.     else if ( percent >=  80 ) strcat( buf, " has a few bruises.nr"     );
  305.     else if ( percent >=  70 ) strcat( buf, " has some cuts.nr"         );
  306.     else if ( percent >=  60 ) strcat( buf, " has several wounds.nr"    );
  307.     else if ( percent >=  50 ) strcat( buf, " has many nasty wounds.nr" );
  308.     else if ( percent >=  40 ) strcat( buf, " is bleeding freely.nr"    );
  309.     else if ( percent >=  30 ) strcat( buf, " is covered in blood.nr"   );
  310.     else if ( percent >=  20 ) strcat( buf, " is leaking guts.nr"       );
  311.     else if ( percent >=  10 ) strcat( buf, " is almost dead.nr"        );
  312.     else                       strcat( buf, " is DYING.nr"              );
  314.     buf[0] = UPPER(buf[0]);
  315.     send_to_char( buf, ch );
  317.     found = FALSE;
  318.     for ( iWear = 0; iWear < MAX_WEAR; iWear++ )
  319.     {
  320. if ( ( obj = get_eq_char( victim, iWear ) ) != NULL
  321. &&   can_see_obj( ch, obj ) )
  322. {
  323.     if ( !found )
  324.     {
  325. send_to_char( "nr", ch );
  326. act( "$N is using:", ch, NULL, victim, TO_CHAR );
  327. found = TRUE;
  328.     }
  329.     send_to_char( where_name[iWear], ch );
  330.     send_to_char( format_obj_to_char( obj, ch, TRUE ), ch );
  331.     send_to_char( "nr", ch );
  332. }
  333.     }
  335.     if ( victim != ch
  336.     &&   !IS_NPC(ch)
  337.     &&   number_percent( ) < ch->pcdata->learned[gsn_peek] )
  338.     {
  339. send_to_char( "nrYou peek at the inventory:nr", ch );
  340. show_list_to_char( victim->carrying, ch, TRUE, TRUE );
  341.     }
  343.     return;
  344. }
  348. void show_char_to_char( CHAR_DATA *list, CHAR_DATA *ch )
  349. {
  350.     CHAR_DATA *rch;
  352.     for ( rch = list; rch != NULL; rch = rch->next_in_room )
  353.     {
  354. if ( rch == ch )
  355.     continue;
  357. if ( !IS_NPC(rch)
  358. &&   IS_SET(rch->act, PLR_WIZINVIS)
  359. &&   get_trust( ch ) < get_trust( rch ) )
  360.     continue;
  362. if ( can_see( ch, rch ) )
  363. {
  364.     show_char_to_char_0( rch, ch );
  365. }
  366. else if ( room_is_dark( ch->in_room )
  367. &&        IS_AFFECTED(rch, AFF_INFRARED ) )
  368. {
  369.     send_to_char( "You see glowing red eyes watching YOU!nr", ch );
  370. }
  371.     }
  373.     return;
  374. } 
  378. bool check_blind( CHAR_DATA *ch )
  379. {
  380.     if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_HOLYLIGHT) )
  381. return TRUE;
  383.     if ( IS_AFFECTED(ch, AFF_BLIND) )
  384.     {
  385. send_to_char( "You can't see a thing!nr", ch );
  386. return FALSE;
  387.     }
  389.     return TRUE;
  390. }
  394. void do_look( CHAR_DATA *ch, char *argument )
  395. {
  396.     char buf  [MAX_STRING_LENGTH];
  397.     char arg1 [MAX_INPUT_LENGTH];
  398.     char arg2 [MAX_INPUT_LENGTH];
  399.     EXIT_DATA *pexit;
  400.     CHAR_DATA *victim;
  401.     OBJ_DATA *obj;
  402.     char *pdesc;
  403.     int door;
  405.     if ( !IS_NPC( ch ) && ch->desc == NULL ) 
  406. return;
  408.     if ( ch->position < POS_SLEEPING )
  409.     {
  410. send_to_char( "You can't see anything but stars!nr", ch );
  411. return;
  412.     }
  414.     if ( ch->position == POS_SLEEPING )
  415.     {
  416. send_to_char( "You can't see anything, you're sleeping!nr", ch );
  417. return;
  418.     }
  420.     if ( !check_blind( ch ) )
  421. return;
  423.     if ( !IS_NPC(ch)
  424.     &&   !IS_SET(ch->act, PLR_HOLYLIGHT)
  425.     &&   room_is_dark( ch->in_room ) )
  426.     {
  427. send_to_char( "It is pitch black ... nr", ch );
  428. show_char_to_char( ch->in_room->people, ch );
  429. return;
  430.     }
  432.     argument = one_argument( argument, arg1 );
  433.     argument = one_argument( argument, arg2 );
  435.     if ( arg1[0] == '' || !str_cmp( arg1, "auto" ) )
  436.     {
  437. /* 'look' or 'look auto' */
  438. send_to_char( ch->in_room->name, ch );
  439. if ( IS_HERO(ch) )
  440.        {
  441.        static char *szSectorTypes[] = { "inside", "city", "field", "forest",
  442.           "hills", "mountain", "water/swim", "water/boat", "error(8)", "air",
  443.           "desert", "error(11)" };
  444.        sprintf(buf, "nr#%4d <%s> %s%s%s%s%s%s%s%s%s", ch->in_room->vnum,
  445.           szSectorTypes[ch->in_room->sector_type],
  446.           (ch->in_room->room_flags &     1) ? "[DARK]" : "",
  447.           (ch->in_room->room_flags &     4) ? "[NO MOB]" : "",
  448.           (ch->in_room->room_flags &     8) ? "[INDOORS]" : "",
  449.           (ch->in_room->room_flags &   512) ? "[PRIVATE]" : "",
  450.           (ch->in_room->room_flags &  1024) ? "[SAFE]" : "",
  451.           (ch->in_room->room_flags &  2048) ? "[SOLITARY]" : "",
  452.           (ch->in_room->room_flags &  4096) ? "[PET SHOP]" : "",
  453.           (ch->in_room->room_flags &  8192) ? "[NO RECALL]" : "",
  454.           (ch->in_room->room_flags & 16384) ? "[PEACEFUL]" : "");
  455.      send_to_char( buf, ch );
  456.        }
  457. send_to_char( "nr", ch );
  459. if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_AUTOEXIT) )
  460.     do_exits( ch, "auto" );
  462. if ( arg1[0] == ''
  463. || ( !IS_NPC(ch) && !IS_SET(ch->act, PLR_BRIEF) ) )
  464.     send_to_char( ch->in_room->description, ch );
  466. show_list_to_char( ch->in_room->contents, ch, FALSE, FALSE );
  467. show_char_to_char( ch->in_room->people,   ch );
  468. return;
  469.     }
  471.     if ( !str_cmp( arg1, "i" ) || !str_cmp( arg1, "in" ) )
  472.     {
  473. /* 'look in' */
  474. if ( arg2[0] == '' )
  475. {
  476.     send_to_char( "Look in what?nr", ch );
  477.     return;
  478. }
  480. if ( ( obj = get_obj_here( ch, arg2 ) ) == NULL )
  481. {
  482.     send_to_char( "You do not see that here.nr", ch );
  483.     return;
  484. }
  486. switch ( obj->item_type )
  487. {
  488. default:
  489.     send_to_char( "That is not a container.nr", ch );
  490.     break;
  492. case ITEM_DRINK_CON:
  493.     if ( obj->value[1] <= 0 )
  494.     {
  495. send_to_char( "It is empty.nr", ch );
  496. break;
  497.     }
  499.     sprintf( buf, "It's %s full of a %s liquid.nr",
  500. obj->value[1] <     obj->value[0] / 4
  501.     ? "less than" :
  502. obj->value[1] < 3 * obj->value[0] / 4
  503.     ? "about"     : "more than",
  504. liq_table[obj->value[2]].liq_color
  505. );
  507.     send_to_char( buf, ch );
  508.     break;
  510. case ITEM_CONTAINER:
  511. case ITEM_CORPSE_NPC:
  512. case ITEM_CORPSE_PC:
  513.     if ( IS_SET(obj->value[1], CONT_CLOSED) )
  514.     {
  515. send_to_char( "It is closed.nr", ch );
  516. break;
  517.     }
  519.     act( "$p contains:", ch, obj, NULL, TO_CHAR );
  520.     show_list_to_char( obj->contains, ch, TRUE, TRUE );
  521.     break;
  522. }
  523. return;
  524.     }
  526.     if ( ( victim = get_char_room( ch, arg1 ) ) != NULL )
  527.     {
  528. show_char_to_char_1( victim, ch );
  529. return;
  530.     }
  532.     for ( obj = ch->carrying; obj != NULL; obj = obj->next_content )
  533.     {
  534. if ( can_see_obj( ch, obj ) )
  535. {
  536.     pdesc = get_extra_descr( arg1, obj->extra_descr );
  537.     if ( pdesc != NULL )
  538.     {
  539. send_to_char( pdesc, ch );
  540. return;
  541.     }
  543.     pdesc = get_extra_descr( arg1, obj->pIndexData->extra_descr );
  544.     if ( pdesc != NULL )
  545.     {
  546. send_to_char( pdesc, ch );
  547. return;
  548.     }
  549. }
  551. if ( is_name( arg1, obj->name ) )
  552. {
  553.     send_to_char( obj->description, ch );
  554.     return;
  555. }
  556.     }
  558.     for ( obj = ch->in_room->contents; obj != NULL; obj = obj->next_content )
  559.     {
  560. if ( can_see_obj( ch, obj ) )
  561. {
  562.     pdesc = get_extra_descr( arg1, obj->extra_descr );
  563.     if ( pdesc != NULL )
  564.     {
  565. send_to_char( pdesc, ch );
  566. return;
  567.     }
  569.     pdesc = get_extra_descr( arg1, obj->pIndexData->extra_descr );
  570.     if ( pdesc != NULL )
  571.     {
  572. send_to_char( pdesc, ch );
  573. return;
  574.     }
  575. }
  577. if ( is_name( arg1, obj->name ) )
  578. {
  579.     send_to_char( obj->description, ch );
  580.     return;
  581. }
  582.     }
  584.     pdesc = get_extra_descr( arg1, ch->in_room->extra_descr );
  585.     if ( pdesc != NULL )
  586.     {
  587. send_to_char( pdesc, ch );
  588. return;
  589.     }
  591.          if ( !str_cmp( arg1, "n" ) || !str_cmp( arg1, "north" ) ) door = 0;
  592.     else if ( !str_cmp( arg1, "e" ) || !str_cmp( arg1, "east"  ) ) door = 1;
  593.     else if ( !str_cmp( arg1, "s" ) || !str_cmp( arg1, "south" ) ) door = 2;
  594.     else if ( !str_cmp( arg1, "w" ) || !str_cmp( arg1, "west"  ) ) door = 3;
  595.     else if ( !str_cmp( arg1, "u" ) || !str_cmp( arg1, "up"    ) ) door = 4;
  596.     else if ( !str_cmp( arg1, "d" ) || !str_cmp( arg1, "down"  ) ) door = 5;
  597.     else
  598.     {
  599. send_to_char( "You do not see that here.nr", ch );
  600. return;
  601.     }
  603.     /* 'look direction' */
  604.     if ( ( pexit = ch->in_room->exit[door] ) == NULL )
  605.     {
  606. send_to_char( "Nothing special there.nr", ch );
  607. return;
  608.     }
  610.     if ( pexit->description != NULL && pexit->description[0] != '' )
  611. send_to_char( pexit->description, ch );
  612.     else
  613. send_to_char( "Nothing special there.nr", ch );
  615.     if ( pexit->keyword    != NULL
  616.     &&   pexit->keyword[0] != ''
  617.     &&   pexit->keyword[0] != ' ' )
  618.     {
  619. if ( IS_SET(pexit->exit_info, EX_CLOSED) )
  620. {
  621.     act( "The $d is closed.", ch, NULL, pexit->keyword, TO_CHAR );
  622. }
  623. else if ( IS_SET(pexit->exit_info, EX_ISDOOR) )
  624. {
  625.     act( "The $d is open.",   ch, NULL, pexit->keyword, TO_CHAR );
  626. }
  627.     }
  629.     return;
  630. }
  634. void do_examine( CHAR_DATA *ch, char *argument )
  635. {
  636.     char buf[MAX_STRING_LENGTH];
  637.     char arg[MAX_INPUT_LENGTH];
  638.     OBJ_DATA *obj;
  640.     one_argument( argument, arg );
  642.     if ( arg[0] == '' )
  643.     {
  644. send_to_char( "Examine what?nr", ch );
  645. return;
  646.     }
  648.     do_look( ch, arg );
  650.     if ( ( obj = get_obj_here( ch, arg ) ) != NULL )
  651.     {
  652. switch ( obj->item_type )
  653. {
  654. default:
  655.     break;
  657. case ITEM_DRINK_CON:
  658. case ITEM_CONTAINER:
  659. case ITEM_CORPSE_NPC:
  660. case ITEM_CORPSE_PC:
  661.     send_to_char( "When you look inside, you see:nr", ch );
  662.     sprintf( buf, "in %s", arg );
  663.     do_look( ch, buf );
  664. }
  665.     }
  667.     return;
  668. }
  672. /*
  673.  * Thanks to Zrin for auto-exit part.
  674.  */
  675. void do_exits( CHAR_DATA *ch, char *argument )
  676. {
  677.     extern char * const dir_name[];
  678.     char buf[MAX_STRING_LENGTH];
  679.     EXIT_DATA *pexit;
  680.     bool found;
  681.     bool fAuto;
  682.     int door;
  684.     buf[0] = '';
  685.     fAuto  = !str_cmp( argument, "auto" );
  687.     if ( !check_blind( ch ) )
  688. return;
  690.     strcpy( buf, fAuto ? "[Exits:" : "Obvious exits:nr" );
  692.     found = FALSE;
  693.     for ( door = 0; door <= 5; door++ )
  694.     {
  695. if ( ( pexit = ch->in_room->exit[door] ) != NULL
  696. &&   pexit->to_room != NULL
  697. &&   !IS_SET(pexit->exit_info, EX_CLOSED) )
  698. {
  699.     found = TRUE;
  700.     if ( fAuto )
  701.     {
  702. strcat( buf, " " );
  703. strcat( buf, dir_name[door] );
  704.     }
  705.     else
  706.     {
  707. sprintf( buf + strlen(buf), "%-5s - %snr",
  708.     capitalize( dir_name[door] ),
  709.     room_is_dark( pexit->to_room )
  710. ?  "Too dark to tell"
  711. : pexit->to_room->name
  712.     );
  713.     }
  714. }
  715.     }
  717.     if ( !found )
  718. strcat( buf, fAuto ? " none" : "None.nr" );
  720.     if ( fAuto )
  721. strcat( buf, "]nr" );
  723.     send_to_char( buf, ch );
  724.     return;
  725. }
  729. void do_score( CHAR_DATA *ch, char *argument )
  730. {
  731.     char buf[MAX_STRING_LENGTH];
  732.     AFFECT_DATA *paf;
  734.     sprintf( buf,
  735. "You are %s%s, level %d, %d years old (%d hours).nr",
  736. ch->name,
  737. IS_NPC(ch) ? "" : ch->pcdata->title,
  738. ch->level,
  739. get_age(ch),
  740. (get_age(ch) - 17) * 2 );
  741.     send_to_char( buf, ch );
  743.     if ( get_trust( ch ) != ch->level )
  744.     {
  745. sprintf( buf, "You are trusted at level %d.nr",
  746.     get_trust( ch ) );
  747. send_to_char( buf, ch );
  748.     }
  750.     sprintf( buf,
  751. "You have %d/%d hit, %d/%d mana, %d/%d movement, %d practices.nr",
  752. ch->hit,  ch->max_hit,
  753. ch->mana, ch->max_mana,
  754. ch->move, ch->max_move,
  755. ch->practice );
  756.     send_to_char( buf, ch );
  758.     sprintf( buf,
  759. "You are carrying %d/%d items with weight %d/%d kg.nr",
  760. ch->carry_number, can_carry_n(ch),
  761. ch->carry_weight, can_carry_w(ch) );
  762.     send_to_char( buf, ch );
  764.     sprintf( buf,
  765. "Str: %d  Int: %d  Wis: %d  Dex: %d  Con: %d.nr",
  766. get_curr_str(ch),
  767. get_curr_int(ch),
  768. get_curr_wis(ch),
  769. get_curr_dex(ch),
  770. get_curr_con(ch) );
  771.     send_to_char( buf, ch );
  773.     sprintf( buf,
  774. "You have scored %d exp, and have %d gold coins.nr",
  775. ch->exp,  ch->gold );
  776.     send_to_char( buf, ch );
  778.     sprintf( buf,
  779. "Autoexit: %s.  Autoloot: %s.  Autosac: %s.nr",
  780. (!IS_NPC(ch) && IS_SET(ch->act, PLR_AUTOEXIT)) ? "yes" : "no",
  781. (!IS_NPC(ch) && IS_SET(ch->act, PLR_AUTOLOOT)) ? "yes" : "no",
  782. (!IS_NPC(ch) && IS_SET(ch->act, PLR_AUTOSAC) ) ? "yes" : "no" );
  783.     send_to_char( buf, ch );
  784.     
  785.     sprintf( buf, "Wimpy set to %d hit points.nr", ch->wimpy );
  786.     send_to_char( buf, ch );
  788.     if ( !IS_NPC( ch ) )
  789.     {
  790. sprintf( buf, "Page pausing set to %d lines of text.nr",
  791. ch->pcdata->pagelen );
  792. send_to_char( buf, ch );
  793.     }
  795.     if ( !IS_NPC(ch) && ch->pcdata->condition[COND_DRUNK]   > 10 )
  796. send_to_char( "You are drunk.nr",   ch );
  797.     if ( !IS_NPC(ch) && ch->pcdata->condition[COND_THIRST] ==  0 )
  798. send_to_char( "You are thirsty.nr", ch );
  799.     if ( !IS_NPC(ch) && ch->pcdata->condition[COND_FULL]   ==  0 )
  800. send_to_char( "You are hungry.nr",  ch );
  802.     switch ( ch->position )
  803.     {
  804.     case POS_DEAD:     
  805. send_to_char( "You are DEAD!!nr", ch );
  806. break;
  807.     case POS_MORTAL:
  808. send_to_char( "You are mortally wounded.nr", ch );
  809. break;
  810.     case POS_INCAP:
  811. send_to_char( "You are incapacitated.nr", ch );
  812. break;
  813.     case POS_STUNNED:
  814. send_to_char( "You are stunned.nr", ch );
  815. break;
  816.     case POS_SLEEPING:
  817. send_to_char( "You are sleeping.nr", ch );
  818. break;
  819.     case POS_RESTING:
  820. send_to_char( "You are resting.nr", ch );
  821. break;
  822.     case POS_STANDING:
  823. send_to_char( "You are standing.nr", ch );
  824. break;
  825.     case POS_FIGHTING:
  826. send_to_char( "You are fighting.nr", ch );
  827. break;
  828.     }
  830.     if ( ch->level >= 25 )
  831.     {
  832. sprintf( buf, "AC: %d.  ", GET_AC(ch) );
  833. send_to_char( buf, ch );
  834.     }
  836.     send_to_char( "You are ", ch );
  837.          if ( GET_AC(ch) >=  101 ) send_to_char( "WORSE than naked!nr", ch );
  838.     else if ( GET_AC(ch) >=   80 ) send_to_char( "naked.nr",            ch );
  839.     else if ( GET_AC(ch) >=   60 ) send_to_char( "wearing clothes.nr",  ch );
  840.     else if ( GET_AC(ch) >=   40 ) send_to_char( "slightly armored.nr", ch );
  841.     else if ( GET_AC(ch) >=   20 ) send_to_char( "somewhat armored.nr", ch );
  842.     else if ( GET_AC(ch) >=    0 ) send_to_char( "armored.nr",          ch );
  843.     else if ( GET_AC(ch) >= - 20 ) send_to_char( "well armored.nr",     ch );
  844.     else if ( GET_AC(ch) >= - 40 ) send_to_char( "strongly armored.nr", ch );
  845.     else if ( GET_AC(ch) >= - 60 ) send_to_char( "heavily armored.nr",  ch );
  846.     else if ( GET_AC(ch) >= - 80 ) send_to_char( "superbly armored.nr", ch );
  847.     else if ( GET_AC(ch) >= -100 ) send_to_char( "divinely armored.nr", ch );
  848.     else                           send_to_char( "invincible!nr",       ch );
  850.     if ( ch->level >= 15 )
  851.     {
  852. sprintf( buf, "Hitroll: %d  Damroll: %d.nr",
  853.     GET_HITROLL(ch), GET_DAMROLL(ch) );
  854. send_to_char( buf, ch );
  855.     }
  856.     
  857.     if ( ch->level >= 10 )
  858.     {
  859. sprintf( buf, "Alignment: %d.  ", ch->alignment );
  860. send_to_char( buf, ch );
  861.     }
  863.     send_to_char( "You are ", ch );
  864.          if ( ch->alignment >  900 ) send_to_char( "angelic.nr", ch );
  865.     else if ( ch->alignment >  700 ) send_to_char( "saintly.nr", ch );
  866.     else if ( ch->alignment >  350 ) send_to_char( "good.nr",    ch );
  867.     else if ( ch->alignment >  100 ) send_to_char( "kind.nr",    ch );
  868.     else if ( ch->alignment > -100 ) send_to_char( "neutral.nr", ch );
  869.     else if ( ch->alignment > -350 ) send_to_char( "mean.nr",    ch );
  870.     else if ( ch->alignment > -700 ) send_to_char( "evil.nr",    ch );
  871.     else if ( ch->alignment > -900 ) send_to_char( "demonic.nr", ch );
  872.     else                             send_to_char( "satanic.nr", ch );
  873.     
  874.     if ( ch->affected != NULL )
  875.     {
  876. send_to_char( "You are affected by:nr", ch );
  877. for ( paf = ch->affected; paf != NULL; paf = paf->next )
  878. {
  879.     sprintf( buf, "Spell: '%s'", skill_table[paf->type].name );
  880.     send_to_char( buf, ch );
  882.     if ( ch->level >= 20 )
  883.     {
  884. sprintf( buf,
  885.     " modifies %s by %d for %d hours",
  886.     affect_loc_name( paf->location ),
  887.     paf->modifier,
  888.     paf->duration );
  889. send_to_char( buf, ch );
  890.     }
  892.     send_to_char( ".nr", ch );
  893. }
  894.     }
  896.     return;
  897. }
  901. char * const day_name [] =
  902. {
  903.     "the Moon", "the Bull", "Deception", "Thunder", "Freedom",
  904.     "the Great Gods", "the Sun"
  905. };
  907. char * const month_name [] =
  908. {
  909.     "Winter", "the Winter Wolf", "the Frost Giant", "the Old Forces",
  910.     "the Grand Struggle", "the Spring", "Nature", "Futility", "the Dragon",
  911.     "the Sun", "the Heat", "the Battle", "the Dark Shades", "the Shadows",
  912.     "the Long Shadows", "the Ancient Darkness", "the Great Evil"
  913. };
  915. void do_time( CHAR_DATA *ch, char *argument )
  916. {
  917.     extern char str_boot_time[];
  918.     char buf[MAX_STRING_LENGTH];
  919.     char *suf;
  920.     int day;
  922.     day     = time_info.day + 1;
  924.          if ( day > 4 && day <  20 ) suf = "th";
  925.     else if ( day % 10 ==  1       ) suf = "st";
  926.     else if ( day % 10 ==  2       ) suf = "nd";
  927.     else if ( day % 10 ==  3       ) suf = "rd";
  928.     else                             suf = "th";
  930.     sprintf( buf,
  931. "It is %d o'clock %s, Day of %s, %d%s the Month of %s.nrMerc started up at %srThe system time is %sr",
  933. (time_info.hour % 12 == 0) ? 12 : time_info.hour % 12,
  934. time_info.hour >= 12 ? "pm" : "am",
  935. day_name[day % 7],
  936. day, suf,
  937. month_name[time_info.month],
  938. str_boot_time,
  939. (char *) ctime( &current_time )
  940. );
  942.     send_to_char( buf, ch );
  943.     return;
  944. }
  948. void do_weather( CHAR_DATA *ch, char *argument )
  949. {
  950.     char buf[MAX_STRING_LENGTH];
  952.     static char * const sky_look[4] =
  953.     {
  954. "cloudless",
  955. "cloudy",
  956. "rainy",
  957. "lit by flashes of lightning"
  958.     };
  960.     if ( !IS_OUTSIDE(ch) )
  961.     {
  962. send_to_char( "You can't see the weather indoors.nr", ch );
  963. return;
  964.     }
  966.     sprintf( buf, "The sky is %s and %s.nr",
  967. sky_look[weather_info.sky],
  968. weather_info.change >= 0
  969. ? "a warm southerly breeze blows"
  970. : "a cold northern gust blows"
  971. );
  972.     send_to_char( buf, ch );
  973.     return;
  974. }
  978. void do_help( CHAR_DATA *ch, char *argument )
  979. {
  980.     HELP_DATA *pHelp;
  982.     if ( argument[0] == '' )
  983. argument = "summary";
  985.     for ( pHelp = help_first; pHelp != NULL; pHelp = pHelp->next )
  986.     {
  987. if ( pHelp->level > get_trust( ch ) )
  988.     continue;
  990. if ( is_name( argument, pHelp->keyword ) )
  991. {
  992.     if ( pHelp->level >= 0 && str_cmp( argument, "imotd" ) )
  993.     {
  994. send_to_char( pHelp->keyword, ch );
  995. send_to_char( "nr", ch );
  996.     }
  998.     /*
  999.      * Strip leading '.' to allow initial blanks.
  1000.      */
  1001.     if ( pHelp->text[0] == '.' )
  1002. send_to_char( pHelp->text+1, ch );
  1003.     else
  1004. send_to_char( pHelp->text  , ch );
  1005.     return;
  1006. }
  1007.     }
  1009.     send_to_char( "No help on that word.nr", ch );
  1010.     return;
  1011. }
  1015. /*
  1016.  * New 'who' command originally by Alander of Rivers of Mud.
  1017.  */
  1018. void do_who( CHAR_DATA *ch, char *argument )
  1019. {
  1020.     char buf[MAX_STRING_LENGTH];
  1021.     char buf2[MAX_STRING_LENGTH];
  1022.     DESCRIPTOR_DATA *d;
  1023.     int iClass;
  1024.     int iLevelLower;
  1025.     int iLevelUpper;
  1026.     int nNumber;
  1027.     int nMatch;
  1028.     bool rgfClass[MAX_CLASS];
  1029.     bool fClassRestrict;
  1030.     bool fImmortalOnly;
  1031.  
  1032.     /*
  1033.      * Set default arguments.
  1034.      */
  1035.     iLevelLower    = 0;
  1036.     iLevelUpper    = MAX_LEVEL;
  1037.     fClassRestrict = FALSE;
  1038.     fImmortalOnly  = FALSE;
  1039.     for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1040. rgfClass[iClass] = FALSE;
  1042.     /*
  1043.      * Parse arguments.
  1044.      */
  1045.     nNumber = 0;
  1046.     for ( ;; )
  1047.     {
  1048. char arg[MAX_STRING_LENGTH];
  1050. argument = one_argument( argument, arg );
  1051. if ( arg[0] == '' )
  1052.     break;
  1054. if ( is_number( arg ) )
  1055. {
  1056.     switch ( ++nNumber )
  1057.     {
  1058.     case 1: iLevelLower = atoi( arg ); break;
  1059.     case 2: iLevelUpper = atoi( arg ); break;
  1060.     default:
  1061. send_to_char( "Only two level numbers allowed.nr", ch );
  1062. return;
  1063.     }
  1064. }
  1065. else
  1066. {
  1067.     int iClass;
  1069.     if ( strlen(arg) < 3 )
  1070.     {
  1071. send_to_char( "Classes must be longer than that.nr", ch );
  1072. return;
  1073.     }
  1075.     /*
  1076.      * Look for classes to turn on.
  1077.      */
  1078.     arg[3]    = '';
  1079.     if ( !str_cmp( arg, "imm" ) )
  1080.     {
  1081. fImmortalOnly = TRUE;
  1082.     }
  1083.     else
  1084.     {
  1085. fClassRestrict = TRUE;
  1086. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1087. {
  1088.     if ( !str_cmp( arg, class_table[iClass].who_name ) )
  1089.     {
  1090. rgfClass[iClass] = TRUE;
  1091. break;
  1092.     }
  1093. }
  1095. if ( iClass == MAX_CLASS )
  1096. {
  1097.     send_to_char( "That's not a class.nr", ch );
  1098.     return;
  1099. }
  1100.     }
  1101. }
  1102.     }
  1104.     /*
  1105.      * Now show matching chars.
  1106.      */
  1107.     nMatch = 0;
  1108.     buf[0] = '';
  1109.     for ( d = descriptor_list; d != NULL; d = d->next )
  1110.     {
  1111. CHAR_DATA *wch;
  1112. char const *class;
  1114. /*
  1115.  * Check for match against restrictions.
  1116.  * Don't use trust as that exposes trusted mortals.
  1117.  */
  1118. if ( d->connected != CON_PLAYING || !can_see( ch, d->character ) )
  1119.     continue;
  1121. wch   = ( d->original != NULL ) ? d->original : d->character;
  1122. if ( wch->level < iLevelLower
  1123. ||   wch->level > iLevelUpper
  1124. || ( fImmortalOnly  && wch->level < LEVEL_HERO )
  1125. || ( fClassRestrict && !rgfClass[wch->class] ) )
  1126.     continue;
  1128. nMatch++;
  1130. /*
  1131.  * Figure out what to print for class.
  1132.  */
  1133. class = class_table[wch->class].who_name;
  1134. switch ( wch->level )
  1135. {
  1136. default: break;
  1137. case MAX_LEVEL - 0: class = "GOD"; break;
  1138. case MAX_LEVEL - 1: class = "SUP"; break;
  1139. case MAX_LEVEL - 2: class = "DEI"; break;
  1140. case MAX_LEVEL - 3: class = "ANG"; break;
  1141. }
  1143. /*
  1144.  * Format it up.
  1145.  */
  1146. sprintf( buf + strlen(buf), "[%s][%2d %s] %s%s%s%snr",
  1147.        race_table[wch->race].who_name,
  1148.     wch->level,
  1149.     class,
  1150.     IS_SET(wch->act, PLR_KILLER) ? "(KILLER) " : "",
  1151.     IS_SET(wch->act, PLR_THIEF)  ? "(THIEF) "  : "",
  1152.     wch->name,
  1153.     wch->pcdata->title );
  1154.     }
  1156.     sprintf( buf2, "You see %d player%s in the game.nr",
  1157.     nMatch, nMatch == 1 ? "" : "s" );
  1158.     strcat( buf, buf2 );
  1159.     send_to_char( buf, ch );
  1160.     return;
  1161. }
  1165. void do_inventory( CHAR_DATA *ch, char *argument )
  1166. {
  1167.     send_to_char( "You are carrying:nr", ch );
  1168.     show_list_to_char( ch->carrying, ch, TRUE, TRUE );
  1169.     return;
  1170. }
  1174. void do_equipment( CHAR_DATA *ch, char *argument )
  1175. {
  1176.     OBJ_DATA *obj;
  1177.     int iWear;
  1178.     bool found;
  1180.     send_to_char( "You are using:nr", ch );
  1181.     found = FALSE;
  1182.     for ( iWear = 0; iWear < MAX_WEAR; iWear++ )
  1183.     {
  1184. if ( ( obj = get_eq_char( ch, iWear ) ) == NULL )
  1185.     continue;
  1187. send_to_char( where_name[iWear], ch );
  1188. if ( can_see_obj( ch, obj ) )
  1189. {
  1190.     send_to_char( format_obj_to_char( obj, ch, TRUE ), ch );
  1191.     send_to_char( "nr", ch );
  1192. }
  1193. else
  1194. {
  1195.     send_to_char( "something.nr", ch );
  1196. }
  1197. found = TRUE;
  1198.     }
  1200.     if ( !found )
  1201. send_to_char( "Nothing.nr", ch );
  1203.     return;
  1204. }
  1208. void do_compare( CHAR_DATA *ch, char *argument )
  1209. {
  1210.     char arg1[MAX_INPUT_LENGTH];
  1211.     char arg2[MAX_INPUT_LENGTH];
  1212.     OBJ_DATA *obj1;
  1213.     OBJ_DATA *obj2;
  1214.     int value1;
  1215.     int value2;
  1216.     char *msg;
  1218.     argument = one_argument( argument, arg1 );
  1219.     argument = one_argument( argument, arg2 );
  1220.     if ( arg1[0] == '' )
  1221.     {
  1222. send_to_char( "Compare what to what?nr", ch );
  1223. return;
  1224.     }
  1226.     if ( ( obj1 = get_obj_carry( ch, arg1 ) ) == NULL )
  1227.     {
  1228. send_to_char( "You do not have that item.nr", ch );
  1229. return;
  1230.     }
  1232.     if ( arg2[0] == '' )
  1233.     {
  1234. for ( obj2 = ch->carrying; obj2 != NULL; obj2 = obj2->next_content )
  1235. {
  1236.     if ( obj2->wear_loc != WEAR_NONE
  1237.     &&   can_see_obj( ch, obj2 )
  1238.     &&   obj1->item_type == obj2->item_type
  1239.     && ( obj1->wear_flags & obj2->wear_flags & ~ITEM_TAKE) != 0 )
  1240. break;
  1241. }
  1243. if ( obj2 == NULL )
  1244. {
  1245.     send_to_char( "You aren't wearing anything comparable.nr", ch );
  1246.     return;
  1247. }
  1248.     }
  1249.     else
  1250.     {
  1251. if ( ( obj2 = get_obj_carry( ch, arg2 ) ) == NULL )
  1252. {
  1253.     send_to_char( "You do not have that item.nr", ch );
  1254.     return;
  1255. }
  1256.     }
  1257.     
  1258.     msg = NULL;
  1259.     value1 = 0;
  1260.     value2 = 0;
  1262.     if ( obj1 == obj2 )
  1263.     {
  1264. msg = "You compare $p to itself.  It looks about the same.";
  1265.     }
  1266.     else if ( obj1->item_type != obj2->item_type )
  1267.     {
  1268. msg = "You can't compare $p and $P.";
  1269.     }
  1270.     else
  1271.     {
  1272. switch ( obj1->item_type )
  1273. {
  1274. default:
  1275.     msg = "You can't compare $p and $P.";
  1276.     break;
  1278. case ITEM_ARMOR:
  1279.     value1 = obj1->value[0];
  1280.     value2 = obj2->value[0];
  1281.     break;
  1283. case ITEM_WEAPON:
  1284.     value1 = obj1->value[1] + obj1->value[2];
  1285.     value2 = obj2->value[1] + obj2->value[2];
  1286.     break;
  1287. }
  1288.     }
  1290.     if ( msg == NULL )
  1291.     {
  1292.      if ( value1 == value2 ) msg = "$p and $P look about the same.";
  1293. else if ( value1  > value2 ) msg = "$p looks better than $P.";
  1294. else                         msg = "$p looks worse than $P.";
  1295.     }
  1297.     act( msg, ch, obj1, obj2, TO_CHAR );
  1298.     return;
  1299. }
  1303. void do_credits( CHAR_DATA *ch, char *argument )
  1304. {
  1305.     do_help( ch, "diku" );
  1306.     return;
  1307. }
  1311. void do_where( CHAR_DATA *ch, char *argument )
  1312. {
  1313.     char buf[MAX_STRING_LENGTH];
  1314.     char arg[MAX_INPUT_LENGTH];
  1315.     CHAR_DATA *victim;
  1316.     DESCRIPTOR_DATA *d;
  1317.     bool found;
  1319.     one_argument( argument, arg );
  1321.     if ( arg[0] == '' )
  1322.     {
  1323. send_to_char( "Players near you:nr", ch );
  1324. found = FALSE;
  1325. for ( d = descriptor_list; d; d = d->next )
  1326. {
  1327.     if ( d->connected == CON_PLAYING
  1328.     && ( victim = d->character ) != NULL
  1329.     &&   !IS_NPC(victim)
  1330.     &&   victim->in_room != NULL
  1331.     &&   victim->in_room->area == ch->in_room->area
  1332.     &&   can_see( ch, victim ) )
  1333.     {
  1334. found = TRUE;
  1335. sprintf( buf, "%-28s %snr",
  1336.     victim->name, victim->in_room->name );
  1337. send_to_char( buf, ch );
  1338.     }
  1339. }
  1340. if ( !found )
  1341.     send_to_char( "Nonenr", ch );
  1342.     }
  1343.     else
  1344.     {
  1345. found = FALSE;
  1346. for ( victim = char_list; victim != NULL; victim = victim->next )
  1347. {
  1348.     if ( victim->in_room != NULL
  1349.     &&   victim->in_room->area == ch->in_room->area
  1350.     &&   !IS_AFFECTED(victim, AFF_HIDE)
  1351.     &&   !IS_AFFECTED(victim, AFF_SNEAK)
  1352.     &&   can_see( ch, victim )
  1353.     &&   is_name( arg, victim->name ) )
  1354.     {
  1355. found = TRUE;
  1356. sprintf( buf, "%-28s %snr",
  1357.     PERS(victim, ch), victim->in_room->name );
  1358. send_to_char( buf, ch );
  1359. break;
  1360.     }
  1361. }
  1362. if ( !found )
  1363.     act( "You didn't find any $T.", ch, NULL, arg, TO_CHAR );
  1364.     }
  1366.     return;
  1367. }
  1372. void do_consider( CHAR_DATA *ch, char *argument )
  1373. {
  1374.     char arg[MAX_INPUT_LENGTH];
  1375.     CHAR_DATA *victim;
  1376.     char *msg = '';
  1377.     char *buf = '';
  1378.     int diff;
  1379.     int hpdiff;
  1381.     one_argument( argument, arg );
  1383.     if ( arg[0] == '' )
  1384.     {
  1385. send_to_char( "Consider killing whom?nr", ch );
  1386. return;
  1387.     }
  1389.     if ( ( victim = get_char_room( ch, arg ) ) == NULL )
  1390.     {
  1391. send_to_char( "They're not here.nr", ch );
  1392. return;
  1393.     }
  1395.     if ( !IS_NPC( victim ) )
  1396.     {
  1397. send_to_char( "The gods do not accept this type of sacrafice.nr",
  1398.      ch );
  1399. return;
  1400.     }
  1402.     diff = victim->level - ch->level;
  1404.          if ( diff <= -10 ) msg = "You can kill $N naked and weaponless.";
  1405.     else if ( diff <=  -5 ) msg = "$N is no match for you.";
  1406.     else if ( diff <=  -2 ) msg = "$N looks like an easy kill.";
  1407.     else if ( diff <=   1 ) msg = "The perfect match!";
  1408.     else if ( diff <=   4 ) msg = "$N says 'Do you feel lucky, punk?'.";
  1409.     else if ( diff <=   9 ) msg = "$N laughs at you mercilessly.";
  1410.     else                    msg = "Death will thank you for your gift.";
  1412.     act( msg, ch, NULL, victim, TO_CHAR );
  1414.     /* additions by king@tinuviel.cs.wcu.edu */
  1415.     hpdiff = ( ch->hit - victim->hit );
  1417.     if ( ( ( diff >= 0) && ( hpdiff <= 0 ) )
  1418. || ( ( diff <= 0 ) && ( hpdiff >= 0 ) ) )
  1419.     {
  1420.         send_to_char( "Also,", ch );
  1421.     }
  1422.     else
  1423.     {
  1424.         send_to_char( "However,", ch );
  1425.     }
  1427.     if ( hpdiff >= 101 )
  1428.         buf = " you are currently much healthier than $E.";
  1429.     if ( hpdiff <= 100 )
  1430.         buf = " you are currently healthier than $E.";
  1431.     if ( hpdiff <= 50 ) 
  1432.         buf = " you are currently slightly healthier than $E.";
  1433.     if ( hpdiff <= 25 )
  1434.         buf = " you are a teensy bit healthier than $E.";
  1435.     if ( hpdiff <= 0 )
  1436.         buf = " $E is a teensy bit healthier than you.";
  1437.     if ( hpdiff <= -25 )
  1438.         buf = " $E is slightly healthier than you.";
  1439.     if ( hpdiff <= -50 )
  1440.         buf = " $E is healthier than you.";
  1441.     if ( hpdiff <= -100 )
  1442.         buf = " $E is much healthier than you.";
  1444.     act( buf, ch, NULL, victim, TO_CHAR );
  1445.     return;
  1446. }
  1450. void set_title( CHAR_DATA *ch, char *title )
  1451. {
  1452.     char buf[MAX_STRING_LENGTH];
  1454.     if ( IS_NPC(ch) )
  1455.     {
  1456. bug( "Set_title: NPC.", 0 );
  1457. return;
  1458.     }
  1460.     if ( isalpha(title[0]) || isdigit(title[0]) )
  1461.     {
  1462. buf[0] = ' ';
  1463. strcpy( buf+1, title );
  1464.     }
  1465.     else
  1466.     {
  1467. strcpy( buf, title );
  1468.     }
  1470.     free_string( ch->pcdata->title );
  1471.     ch->pcdata->title = str_dup( buf );
  1472.     return;
  1473. }
  1477. void do_title( CHAR_DATA *ch, char *argument )
  1478. {
  1479.     if ( IS_NPC(ch) )
  1480. return;
  1482.     if ( argument[0] == '' )
  1483.     {
  1484. send_to_char( "Change your title to what?nr", ch );
  1485. return;
  1486.     }
  1488.     if ( strlen(argument) > 50 )
  1489. argument[50] = '';
  1491.     smash_tilde( argument );
  1492.     set_title( ch, argument );
  1493.     send_to_char( "Ok.nr", ch );
  1494. }
  1498. void do_description( CHAR_DATA *ch, char *argument )
  1499. {
  1500.     char buf[MAX_STRING_LENGTH];
  1502.     if ( argument[0] != '' )
  1503.     {
  1504. buf[0] = '';
  1505. smash_tilde( argument );
  1506. if ( argument[0] == '+' )
  1507. {
  1508.     if ( ch->description != NULL )
  1509. strcat( buf, ch->description );
  1510.     argument++;
  1511.     while ( isspace(*argument) )
  1512. argument++;
  1513. }
  1515. if ( strlen(buf) + strlen(argument) >= MAX_STRING_LENGTH - 2 )
  1516. {
  1517.     send_to_char( "Description too long.nr", ch );
  1518.     return;
  1519. }
  1521. strcat( buf, argument );
  1522. strcat( buf, "nr" );
  1523. free_string( ch->description );
  1524. ch->description = str_dup( buf );
  1525.     }
  1527.     send_to_char( "Your description is:nr", ch );
  1528.     send_to_char( ch->description ? ch->description : "(None).nr", ch );
  1529.     return;
  1530. }
  1534. void do_report( CHAR_DATA *ch, char *argument )
  1535. {
  1536.     char buf[MAX_INPUT_LENGTH];
  1538.     sprintf( buf,
  1539. "You report: %d/%d hp %d/%d mana %d/%d mv %d xp.nr",
  1540. ch->hit,  ch->max_hit,
  1541. ch->mana, ch->max_mana,
  1542. ch->move, ch->max_move,
  1543. ch->exp   );
  1545.     send_to_char( buf, ch );
  1547.     sprintf( buf, "$n reports: %d/%d hp %d/%d mana %d/%d mv %d xp.",
  1548. ch->hit,  ch->max_hit,
  1549. ch->mana, ch->max_mana,
  1550. ch->move, ch->max_move,
  1551. ch->exp   );
  1553.     act( buf, ch, NULL, NULL, TO_ROOM );
  1555.     return;
  1556. }
  1560. void do_practice( CHAR_DATA *ch, char *argument )
  1561. {
  1562.     char buf[MAX_STRING_LENGTH];
  1563.     char buf1[MAX_STRING_LENGTH*2];
  1564.     int sn;
  1566.     if ( IS_NPC(ch) )
  1567. return;
  1569.     buf1[0] = '';
  1571.     if ( ch->level < 3 )
  1572.     {
  1573. send_to_char(
  1574.     "You must be third level to practice.  Go train instead!nr",
  1575.     ch );
  1576. return;
  1577.     }
  1579.     if ( argument[0] == '' )
  1580.     {
  1581. int col;
  1583. col    = 0;
  1584. for ( sn = 0; sn < MAX_SKILL; sn++ )
  1585. {
  1586.     if ( skill_table[sn].name == NULL )
  1587. break;
  1588.     if ( ch->level < skill_table[sn].skill_level[ch->class] )
  1589. continue;
  1591.     sprintf( buf, "%18s %3d%%  ",
  1592. skill_table[sn].name, ch->pcdata->learned[sn] );
  1593.     strcat( buf1, buf );
  1594.     if ( ++col % 3 == 0 )
  1595. strcat( buf1, "nr" );
  1596. }
  1598. if ( col % 3 != 0 )
  1599.     strcat( buf1, "nr" );
  1601. sprintf( buf, "You have %d practice sessions left.nr",
  1602.     ch->practice );
  1603. strcat( buf1, buf );
  1604. send_to_char( buf1, ch );
  1605.     }
  1606.     else
  1607.     {
  1608. CHAR_DATA *mob;
  1609. int adept;
  1611. if ( !IS_AWAKE(ch) )
  1612. {
  1613.     send_to_char( "In your dreams, or what?nr", ch );
  1614.     return;
  1615. }
  1617. for ( mob = ch->in_room->people; mob != NULL; mob = mob->next_in_room )
  1618. {
  1619.     if ( IS_NPC(mob) && IS_SET(mob->act, ACT_PRACTICE) )
  1620. break;
  1621. }
  1623. if ( mob == NULL )
  1624. {
  1625.     send_to_char( "You can't do that here.nr", ch );
  1626.     return;
  1627. }
  1629. if ( ch->practice <= 0 )
  1630. {
  1631.     send_to_char( "You have no practice sessions left.nr", ch );
  1632.     return;
  1633. }
  1635. if ( ( sn = skill_lookup( argument ) ) < 0
  1636. || ( !IS_NPC(ch)
  1637. &&   ch->level < skill_table[sn].skill_level[ch->class] ) )
  1638. {
  1639.     send_to_char( "You can't practice that.nr", ch );
  1640.     return;
  1641. }
  1643. adept = IS_NPC(ch) ? 100 : class_table[ch->class].skill_adept;
  1645. if ( ch->pcdata->learned[sn] >= adept )
  1646. {
  1647.     sprintf( buf, "You are already an adept of %s.nr",
  1648. skill_table[sn].name );
  1649.     send_to_char( buf, ch );
  1650. }
  1651. else
  1652. {
  1653.     ch->practice--;
  1654.     ch->pcdata->learned[sn] += int_app[get_curr_int(ch)].learn;
  1655.     if ( ch->pcdata->learned[sn] < adept )
  1656.     {
  1657. act( "You practice $T.",
  1658.     ch, NULL, skill_table[sn].name, TO_CHAR );
  1659. act( "$n practices $T.",
  1660.     ch, NULL, skill_table[sn].name, TO_ROOM );
  1661.     }
  1662.     else
  1663.     {
  1664. ch->pcdata->learned[sn] = adept;
  1665. act( "You are now an adept of $T.",
  1666.     ch, NULL, skill_table[sn].name, TO_CHAR );
  1667. act( "$n is now an adept of $T.",
  1668.     ch, NULL, skill_table[sn].name, TO_ROOM );
  1669.     }
  1670. }
  1671.     }
  1672.     return;
  1673. }
  1677. /*
  1678.  * 'Wimpy' originally by Dionysos.
  1679.  */
  1680. void do_wimpy( CHAR_DATA *ch, char *argument )
  1681. {
  1682.     char buf[MAX_STRING_LENGTH];
  1683.     char arg[MAX_INPUT_LENGTH];
  1684.     int wimpy;
  1686.     one_argument( argument, arg );
  1688.     if ( arg[0] == '' )
  1689. wimpy = ch->max_hit / 5;
  1690.     else
  1691. wimpy = atoi( arg );
  1693.     if ( wimpy < 0 )
  1694.     {
  1695. send_to_char( "Your courage exceeds your wisdom.nr", ch );
  1696. return;
  1697.     }
  1699.     if ( wimpy > ch->max_hit )
  1700.     {
  1701. send_to_char( "Such cowardice ill becomes you.nr", ch );
  1702. return;
  1703.     }
  1705.     ch->wimpy = wimpy;
  1706.     sprintf( buf, "Wimpy set to %d hit points.nr", wimpy );
  1707.     send_to_char( buf, ch );
  1708.     return;
  1709. }
  1713. void do_password( CHAR_DATA *ch, char *argument )
  1714. {
  1715.     char arg1[MAX_INPUT_LENGTH];
  1716.     char arg2[MAX_INPUT_LENGTH];
  1717.     char *pArg;
  1718.     char *pwdnew;
  1719.     char *p;
  1720.     char cEnd;
  1722.     if ( IS_NPC(ch) )
  1723. return;
  1725.     /*
  1726.      * Can't use one_argument here because it smashes case.
  1727.      * So we just steal all its code.  Bleagh.
  1728.      */
  1729.     pArg = arg1;
  1730.     while ( isspace(*argument) )
  1731. argument++;
  1733.     cEnd = ' ';
  1734.     if ( *argument == ''' || *argument == '"' )
  1735. cEnd = *argument++;
  1737.     while ( *argument != '' )
  1738.     {
  1739. if ( *argument == cEnd )
  1740. {
  1741.     argument++;
  1742.     break;
  1743. }
  1744. *pArg++ = *argument++;
  1745.     }
  1746.     *pArg = '';
  1748.     pArg = arg2;
  1749.     while ( isspace(*argument) )
  1750. argument++;
  1752.     cEnd = ' ';
  1753.     if ( *argument == ''' || *argument == '"' )
  1754. cEnd = *argument++;
  1756.     while ( *argument != '' )
  1757.     {
  1758. if ( *argument == cEnd )
  1759. {
  1760.     argument++;
  1761.     break;
  1762. }
  1763. *pArg++ = *argument++;
  1764.     }
  1765.     *pArg = '';
  1767.     if ( arg1[0] == '' || arg2[0] == '' )
  1768.     {
  1769. send_to_char( "Syntax: password <old> <new>.nr", ch );
  1770. return;
  1771.     }
  1773.     if ( strcmp( crypt( arg1, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1774.     {
  1775. WAIT_STATE( ch, 40 );
  1776. send_to_char( "Wrong password.  Wait 10 seconds.nr", ch );
  1777. return;
  1778.     }
  1780.     if ( strlen(arg2) < 5 )
  1781.     {
  1782. send_to_char(
  1783.     "New password must be at least five characters long.nr", ch );
  1784. return;
  1785.     }
  1787.     /*
  1788.      * No tilde allowed because of player file format.
  1789.      */
  1790.     pwdnew = crypt( arg2, ch->name );
  1791.     for ( p = pwdnew; *p != ''; p++ )
  1792.     {
  1793. if ( *p == '~' )
  1794. {
  1795.     send_to_char(
  1796. "New password not acceptable, try again.nr", ch );
  1797.     return;
  1798. }
  1799.     }
  1801.     free_string( ch->pcdata->pwd );
  1802.     ch->pcdata->pwd = str_dup( pwdnew );
  1803.     save_char_obj( ch );
  1804.     send_to_char( "Ok.nr", ch );
  1805.     return;
  1806. }
  1810. void do_socials( CHAR_DATA *ch, char *argument )
  1811. {
  1812.     char buf[MAX_STRING_LENGTH];
  1813.     int iSocial;
  1814.     int col;
  1815.  
  1816.     col = 0;
  1817.     for ( iSocial = 0; social_table[iSocial].name[0] != ''; iSocial++ )
  1818.     {
  1819. sprintf( buf, "%-12s", social_table[iSocial].name );
  1820. send_to_char( buf, ch );
  1821. if ( ++col % 6 == 0 )
  1822.     send_to_char( "nr", ch );
  1823.     }
  1824.  
  1825.     if ( col % 6 != 0 )
  1826. send_to_char( "nr", ch );
  1827.     return;
  1828. }
  1832. /*
  1833.  * Contributed by Alander.
  1834.  */
  1835. void do_commands( CHAR_DATA *ch, char *argument )
  1836. {
  1837.     char buf[MAX_STRING_LENGTH];
  1838.     char buf1[MAX_STRING_LENGTH];
  1839.     int cmd;
  1840.     int col;
  1841.  
  1842.     buf1[0] = '';
  1843.     col = 0;
  1844.     for ( cmd = 0; cmd_table[cmd].name[0] != ''; cmd++ )
  1845.     {
  1846.         if ( cmd_table[cmd].level <  LEVEL_HERO
  1847.         &&   cmd_table[cmd].level <= get_trust( ch ) )
  1848. {
  1849.     sprintf( buf, "%-12s", cmd_table[cmd].name );
  1850.     strcat( buf1, buf );
  1851.     if ( ++col % 6 == 0 )
  1852. strcat( buf1, "nr" );
  1853. }
  1854.     }
  1855.  
  1856.     if ( col % 6 != 0 )
  1857. strcat( buf1, "nr" );
  1859.     send_to_char( buf1, ch );
  1860.     return;
  1861. }
  1865. void do_channels( CHAR_DATA *ch, char *argument )
  1866. {
  1867.     char arg[MAX_INPUT_LENGTH];
  1869.     one_argument( argument, arg );
  1871.     if ( arg[0] == '' )
  1872.     {
  1873. if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_SILENCE) )
  1874. {
  1875.     send_to_char( "You are silenced.nr", ch );
  1876.     return;
  1877. }
  1879. send_to_char( "Channels:", ch );
  1881. send_to_char( !IS_SET(ch->deaf, CHANNEL_AUCTION)
  1882.     ? " +AUCTION"
  1883.     : " -auction",
  1884.     ch );
  1886. send_to_char( !IS_SET(ch->deaf, CHANNEL_CHAT)
  1887.     ? " +CHAT"
  1888.     : " -chat",
  1889.     ch );
  1891. #if 0
  1892. send_to_char( !IS_SET(ch->deaf, CHANNEL_HACKER)
  1893.     ? " +HACKER"
  1894.     : " -hacker",
  1895.     ch );
  1896. #endif
  1898. if ( IS_HERO(ch) )
  1899. {
  1900.     send_to_char( !IS_SET(ch->deaf, CHANNEL_IMMTALK)
  1901. ? " +IMMTALK"
  1902. : " -immtalk",
  1903. ch );
  1904. }
  1906. send_to_char( !IS_SET(ch->deaf, CHANNEL_MUSIC)
  1907.     ? " +MUSIC"
  1908.     : " -music",
  1909.     ch );
  1911. send_to_char( !IS_SET(ch->deaf, CHANNEL_QUESTION)
  1912.     ? " +QUESTION"
  1913.     : " -question",
  1914.     ch );
  1916. send_to_char( !IS_SET(ch->deaf, CHANNEL_SHOUT)
  1917.     ? " +SHOUT"
  1918.     : " -shout",
  1919.     ch );
  1921. send_to_char( !IS_SET(ch->deaf, CHANNEL_YELL)
  1922.     ? " +YELL"
  1923.     : " -yell",
  1924.     ch );
  1926. send_to_char( ".nr", ch );
  1927.     }
  1928.     else
  1929.     {
  1930. bool fClear;
  1931. int bit;
  1933.      if ( arg[0] == '+' ) fClear = TRUE;
  1934. else if ( arg[0] == '-' ) fClear = FALSE;
  1935. else
  1936. {
  1937.     send_to_char( "Channels -channel or +channel?nr", ch );
  1938.     return;
  1939. }
  1941.      if ( !str_cmp( arg+1, "auction"  ) ) bit = CHANNEL_AUCTION;
  1942.         else if ( !str_cmp( arg+1, "chat"     ) ) bit = CHANNEL_CHAT;
  1943. #if 0
  1944. else if ( !str_cmp( arg+1, "hacker"   ) ) bit = CHANNEL_HACKER;
  1945. #endif
  1946. else if ( !str_cmp( arg+1, "immtalk"  ) ) bit = CHANNEL_IMMTALK;
  1947. else if ( !str_cmp( arg+1, "music"    ) ) bit = CHANNEL_MUSIC;
  1948. else if ( !str_cmp( arg+1, "question" ) ) bit = CHANNEL_QUESTION;
  1949. else if ( !str_cmp( arg+1, "shout"    ) ) bit = CHANNEL_SHOUT;
  1950. else if ( !str_cmp( arg+1, "yell"     ) ) bit = CHANNEL_YELL;
  1951. else
  1952. {
  1953.     send_to_char( "Set or clear which channel?nr", ch );
  1954.     return;
  1955. }
  1957. if ( fClear )
  1958.     REMOVE_BIT (ch->deaf, bit);
  1959. else
  1960.     SET_BIT    (ch->deaf, bit);
  1962. send_to_char( "Ok.nr", ch );
  1963.     }
  1965.     return;
  1966. }
  1970. /*
  1971.  * Contributed by Grodyn.
  1972.  */
  1973. void do_config( CHAR_DATA *ch, char *argument )
  1974. {
  1975.     char arg[MAX_INPUT_LENGTH];
  1977.     if ( IS_NPC(ch) )
  1978. return;
  1980.     one_argument( argument, arg );
  1982.     if ( arg[0] == '' )
  1983.     {
  1984.         send_to_char( "[ Keyword  ] Optionnr", ch );
  1986. send_to_char(  IS_SET(ch->act, PLR_AUTOEXIT)
  1987.             ? "[+AUTOEXIT ] You automatically see exits.nr"
  1988.     : "[-autoexit ] You don't automatically see exits.nr"
  1989.     , ch );
  1991. send_to_char(  IS_SET(ch->act, PLR_AUTOLOOT)
  1992.     ? "[+AUTOLOOT ] You automatically loot corpses.nr"
  1993.     : "[-autoloot ] You don't automatically loot corpses.nr"
  1994.     , ch );
  1996. send_to_char(  IS_SET(ch->act, PLR_AUTOSAC)
  1997.     ? "[+AUTOSAC  ] You automatically sacrifice corpses.nr"
  1998.     : "[-autosac  ] You don't automatically sacrifice corpses.nr"
  1999.     , ch );
  2001. send_to_char(  IS_SET(ch->act, PLR_BLANK)
  2002.     ? "[+BLANK    ] You have a blank line before your prompt.nr"
  2003.     : "[-blank    ] You have no blank line before your prompt.nr"
  2004.     , ch );
  2006. send_to_char(  IS_SET(ch->act, PLR_BRIEF)
  2007.     ? "[+BRIEF    ] You see brief descriptions.nr"
  2008.     : "[-brief    ] You see long descriptions.nr"
  2009.     , ch );
  2010.          
  2011. send_to_char(  IS_SET(ch->act, PLR_COMBINE)
  2012.     ? "[+COMBINE  ] You see object lists in combined format.nr"
  2013.     : "[-combine  ] You see object lists in single format.nr"
  2014.     , ch );
  2016. send_to_char(  IS_SET(ch->act, PLR_PROMPT)
  2017.     ? "[+PROMPT   ] You have a prompt.nr"
  2018.     : "[-prompt   ] You don't have a prompt.nr"
  2019.     , ch );
  2021. send_to_char(  IS_SET(ch->act, PLR_TELNET_GA)
  2022.     ? "[+TELNETGA ] You receive a telnet GA sequence.nr"
  2023.     : "[-telnetga ] You don't receive a telnet GA sequence.nr"
  2024.     , ch );
  2026. send_to_char(  IS_SET(ch->act, PLR_SILENCE)
  2027.     ? "[+SILENCE  ] You are silenced.nr"
  2028.     : ""
  2029.     , ch );
  2031. send_to_char( !IS_SET(ch->act, PLR_NO_EMOTE)
  2032.     ? ""
  2033.     : "[-emote    ] You can't emote.nr"
  2034.     , ch );
  2036. send_to_char( !IS_SET(ch->act, PLR_NO_TELL)
  2037.     ? ""
  2038.     : "[-tell     ] You can't use 'tell'.nr"
  2039.     , ch );
  2040.     }
  2041.     else
  2042.     {
  2043. bool fSet;
  2044. int bit;
  2046.      if ( arg[0] == '+' ) fSet = TRUE;
  2047. else if ( arg[0] == '-' ) fSet = FALSE;
  2048. else
  2049. {
  2050.     send_to_char( "Config -option or +option?nr", ch );
  2051.     return;
  2052. }
  2054.              if ( !str_cmp( arg+1, "autoexit" ) ) bit = PLR_AUTOEXIT;
  2055. else if ( !str_cmp( arg+1, "autoloot" ) ) bit = PLR_AUTOLOOT;
  2056. else if ( !str_cmp( arg+1, "autosac"  ) ) bit = PLR_AUTOSAC;
  2057. else if ( !str_cmp( arg+1, "blank"    ) ) bit = PLR_BLANK;
  2058. else if ( !str_cmp( arg+1, "brief"    ) ) bit = PLR_BRIEF;
  2059. else if ( !str_cmp( arg+1, "combine"  ) ) bit = PLR_COMBINE;
  2060.         else if ( !str_cmp( arg+1, "prompt"   ) ) bit = PLR_PROMPT;
  2061. else if ( !str_cmp( arg+1, "telnetga" ) ) bit = PLR_TELNET_GA;
  2062. else
  2063. {
  2064.     send_to_char( "Config which option?nr", ch );
  2065.     return;
  2066. }
  2068. if ( fSet )
  2069.     SET_BIT    (ch->act, bit);
  2070. else
  2071.     REMOVE_BIT (ch->act, bit);
  2073. send_to_char( "Ok.nr", ch );
  2074.     }
  2076.     return;
  2077. }
  2079. void do_wizlist ( CHAR_DATA *ch, char *argument )
  2080. {
  2082.     do_help ( ch, "wizlist" );
  2083.     return;
  2085. }
  2087. void do_spells ( CHAR_DATA *ch, char *argument )
  2088. {
  2089.     char buf [MAX_STRING_LENGTH];
  2090.     char buf1[MAX_STRING_LENGTH];
  2091.     int sn;
  2092.     int col;
  2094.     if ( ( !IS_NPC( ch ) &&
  2095.    !class_table[ch->class].fMana )
  2096.     ||  IS_NPC ( ch ) )
  2097.     {  
  2098.        send_to_char ( "You do not know how to cast spells!nr", ch );
  2099.        return;
  2100.     }
  2102.     buf1[0] = '';
  2104.     col = 0;
  2105.     for ( sn = 0; sn < MAX_SKILL; sn++ )
  2106.     {
  2107.         if ( skill_table[sn].name == NULL )
  2108.    break;
  2109. if ( ( ch->level < skill_table[sn].skill_level[ch->class] )
  2110. || ( skill_table[sn].skill_level[ch->class] > LEVEL_HERO ) )
  2111.    continue;
  2113. sprintf ( buf, "%18s %3dpts ",
  2114.            skill_table[sn].name, MANA_COST( ch, sn ) );
  2115. strcat( buf1, buf );
  2116. if ( ++col % 3 == 0 )
  2117.    strcat( buf1, "nr" );
  2118.     }
  2120.     if ( col % 3 != 0 )
  2121.       strcat( buf1, "nr" );
  2123.     send_to_char ( buf1, ch );
  2124.     return;
  2126. }
  2128. void do_slist ( CHAR_DATA *ch, char *argument )
  2129. {
  2130.     char buf [MAX_STRING_LENGTH];
  2131.     char buf1[MAX_STRING_LENGTH];
  2132.     int sn;
  2133.     int col;
  2134.     int level;
  2135.     bool pSpell;
  2137.     if ( ( !IS_NPC( ch ) &&
  2138.    !class_table[ch->class].fMana )
  2139.     ||  IS_NPC ( ch ) )
  2140.     {  
  2141.        send_to_char ( "You do not need any stinking spells!nr", ch );
  2142.        return;
  2143.     }
  2145.     buf1[0] = '';
  2147.     strcat ( buf1, "ALL Spells available for your class.nrnr" );
  2148.     strcat ( buf1, "Lv          Spellsnrnr" );
  2150.     for ( level = 1; level < LEVEL_IMMORTAL; level++ )
  2151.     {
  2153.       col = 0;
  2154.       pSpell = TRUE;
  2156.       for ( sn = 0; sn < MAX_SKILL; sn++ )
  2157.       {
  2158. if ( skill_table[sn].name == NULL )
  2159.   break;
  2160. if ( skill_table[sn].skill_level[ch->class] != level )
  2161.   continue;
  2163. if (pSpell)
  2164. {
  2165.   sprintf ( buf, "%2d:", level );
  2166.   strcat ( buf1, buf );
  2167.   pSpell = FALSE;
  2168. }
  2170. if ( ++col % 5 == 0 )
  2171.   strcat ( buf1, "   " );
  2173. sprintf ( buf, "%18s", skill_table[sn].name );
  2174. strcat ( buf1, buf );
  2176. if ( col % 4 == 0 )
  2177.   strcat ( buf1, "nr" );
  2179.       }
  2181.       if ( col % 4 != 0 )
  2182. strcat ( buf1, "nr" );
  2184.     }
  2186.     send_to_char( buf1, ch );
  2187.     return;
  2189. }
  2191. /* by passing the conf command - Kahn */
  2193. void do_autoexit ( CHAR_DATA *ch, char *argument )
  2194. {
  2196.     ( IS_SET ( ch->act, PLR_AUTOEXIT )
  2197.      ? do_config( ch, "-autoexit" )
  2198.      : do_config( ch, "+autoexit" ) );
  2200. }
  2202. void do_autoloot ( CHAR_DATA *ch, char *argument )
  2203. {
  2205.     ( IS_SET ( ch->act, PLR_AUTOLOOT )
  2206.      ? do_config( ch, "-autoloot" )
  2207.      : do_config( ch, "+autoloot" ) );
  2209. }
  2211. void do_autosac ( CHAR_DATA *ch, char *argument )
  2212. {
  2214.     ( IS_SET ( ch->act, PLR_AUTOSAC )
  2215.      ? do_config( ch, "-autosac" )
  2216.      : do_config( ch, "+autosac" ) );
  2218. }
  2220. void do_blank ( CHAR_DATA *ch, char *argument )
  2221. {
  2223.     ( IS_SET ( ch->act, PLR_BLANK )
  2224.      ? do_config( ch, "-blank" )
  2225.      : do_config( ch, "+blank" ) );
  2227. }
  2229. void do_brief ( CHAR_DATA *ch, char *argument )
  2230. {
  2232.     ( IS_SET ( ch->act, PLR_BRIEF )
  2233.      ? do_config( ch, "-brief" )
  2234.      : do_config( ch, "+brief" ) );
  2236. }
  2238. void do_combine ( CHAR_DATA *ch, char *argument )
  2239. {
  2241.     ( IS_SET ( ch->act, PLR_COMBINE )
  2242.      ? do_config( ch, "-combine" )
  2243.      : do_config( ch, "+combine" ) );
  2245. }
  2246.  
  2247. void do_pagelen ( CHAR_DATA *ch, char *argument )
  2248. {
  2249.     char buf[MAX_STRING_LENGTH];
  2250.     char arg[MAX_INPUT_LENGTH];
  2251.     int lines;
  2253.     one_argument( argument, arg );
  2255.     if ( arg[0] == '' )
  2256. lines = 20;
  2257.     else
  2258. lines = atoi( arg );
  2260.     if ( lines < 1 )
  2261.     {
  2262. send_to_char(
  2263. "Negative or Zero values for a page pause is not legal.nr",
  2264.      ch );
  2265. return;
  2266.     }
  2268.     ch->pcdata->pagelen = lines;
  2269.     sprintf( buf, "Page pause set to %d lines.nr", lines );
  2270.     send_to_char( buf, ch );
  2271.     return;
  2272. }
  2274. /* Do_prompt from Morgenes from Aldara Mud */
  2275. void do_prompt( CHAR_DATA *ch, char *argument )
  2276. {
  2277.    char buf[MAX_STRING_LENGTH];
  2279.    // Next line is the Sands fix
  2280.    ch = ( ch->desc->original != NULL ? ch->desc->original :
  2281.           ch->desc->character);
  2283.    if ( argument[0] == '' )
  2284.    {
  2285.        ( IS_SET ( ch->act, PLR_PROMPT )
  2286. ? do_config( ch, "-prompt" )
  2287. : do_config( ch, "+prompt" ) );
  2288.        return;
  2289.    }
  2291.    if( !strcmp( argument, "all" ) )
  2292.       strcpy( buf, "<%hhp %mm %vmv> ");
  2293.    else
  2294.    {
  2295.       if ( strlen(argument) > 50 )
  2296.          argument[50] = '';
  2297.       strcpy( buf, argument );
  2298.       smash_tilde( buf );
  2299.    }
  2301. // Sands erases this
  2302. //   free_string( ch->prompt );
  2303.    ch->prompt = str_dup( buf );
  2304.    send_to_char( "Ok.nr", ch );
  2305.    return;
  2306. } 
  2308. void do_auto( CHAR_DATA *ch, char *argument )
  2309. {
  2311.     do_config( ch, "" );
  2312.     return;
  2314. }