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

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

Internet/网络编程

开发平台：

WINDOWS

ACT_OBJ.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 <stdio.h>
  24. #include <stdlib.h>
  25. #include <string.h>
  26. #include <time.h>
  27. #include "merc.h"
  31. /*
  32.  * Local functions.
  33.  */
  34. #define CD CHAR_DATA
  35. void get_obj args( ( CHAR_DATA *ch, OBJ_DATA *obj,
  36.     OBJ_DATA *container ) );
  37. bool remove_obj args( ( CHAR_DATA *ch, int iWear, bool fReplace ) );
  38. void wear_obj args( ( CHAR_DATA *ch, OBJ_DATA *obj, bool fReplace ) );
  39. CD * find_keeper args( ( CHAR_DATA *ch ) );
  40. int get_cost args( ( CHAR_DATA *keeper, OBJ_DATA *obj, bool fBuy ) );
  41. #undef CD
  46. void get_obj( CHAR_DATA *ch, OBJ_DATA *obj, OBJ_DATA *container )
  47. {
  48.     if ( !CAN_WEAR(obj, ITEM_TAKE) )
  49.     {
  50. send_to_char( "You can't take that.nr", ch );
  51. return;
  52.     }
  54.     if ( ch->carry_number + get_obj_number( obj ) > can_carry_n( ch ) )
  55.     {
  56. act( "$d: you can't carry that many items.",
  57.     ch, NULL, obj->name, TO_CHAR );
  58. return;
  59.     }
  61.     if ( ch->carry_weight + get_obj_weight( obj ) > can_carry_w( ch ) )
  62.     {
  63. act( "$d: you can't carry that much weight.",
  64.     ch, NULL, obj->name, TO_CHAR );
  65. return;
  66.     }
  68.     if ( container != NULL )
  69.     {
  70. act( "You get $p from $P.", ch, obj, container, TO_CHAR );
  71. act( "$n gets $p from $P.", ch, obj, container, TO_ROOM );
  72. obj_from_obj( obj );
  73.     }
  74.     else
  75.     {
  76. act( "You get $p.", ch, obj, container, TO_CHAR );
  77. act( "$n gets $p.", ch, obj, container, TO_ROOM );
  78. obj_from_room( obj );
  79.     }
  81.     if ( obj->item_type == ITEM_MONEY )
  82.     {
  83. ch->gold += obj->value[0];
  84. extract_obj( obj );
  85.     }
  86.     else
  87.     {
  88. obj_to_char( obj, ch );
  89.     }
  91.     return;
  92. }
  96. void do_get( CHAR_DATA *ch, char *argument )
  97. {
  98.     char arg1[MAX_INPUT_LENGTH];
  99.     char arg2[MAX_INPUT_LENGTH];
  100.     OBJ_DATA *obj;
  101.     OBJ_DATA *obj_next;
  102.     OBJ_DATA *container;
  103.     bool found;
  105.     argument = one_argument( argument, arg1 );
  106.     argument = one_argument( argument, arg2 );
  108.     /* Get type. */
  109.     if ( arg1[0] == '' )
  110.     {
  111. send_to_char( "Get what?nr", ch );
  112. return;
  113.     }
  115.     if ( arg2[0] == '' )
  116.     {
  117. if ( str_cmp( arg1, "all" ) && str_prefix( "all.", arg1 ) )
  118. {
  119.     /* 'get obj' */
  120.     obj = get_obj_list( ch, arg1, ch->in_room->contents );
  121.     if ( obj == NULL )
  122.     {
  123. act( "I see no $T here.", ch, NULL, arg1, TO_CHAR );
  124. return;
  125.     }
  127.     get_obj( ch, obj, NULL );
  128. }
  129. else
  130. {
  131.     /* 'get all' or 'get all.obj' */
  132.     found = FALSE;
  133.     for ( obj = ch->in_room->contents; obj != NULL; obj = obj_next )
  134.     {
  135. obj_next = obj->next_content;
  136. if ( ( arg1[3] == '' || is_name( &arg1[4], obj->name ) )
  137. &&   can_see_obj( ch, obj ) )
  138. {
  139.     found = TRUE;
  140.     get_obj( ch, obj, NULL );
  141. }
  142.     }
  144.     if ( !found ) 
  145.     {
  146. if ( arg1[3] == '' )
  147.     send_to_char( "I see nothing here.nr", ch );
  148. else
  149.     act( "I see no $T here.", ch, NULL, &arg1[4], TO_CHAR );
  150.     }
  151. }
  152.     }
  153.     else
  154.     {
  155. /* 'get ... container' */
  156. if ( !str_cmp( arg2, "all" ) || !str_prefix( "all.", arg2 ) )
  157. {
  158.     send_to_char( "You can't do that.nr", ch );
  159.     return;
  160. }
  162. if ( ( container = get_obj_here( ch, arg2 ) ) == NULL )
  163. {
  164.     act( "I see no $T here.", ch, NULL, arg2, TO_CHAR );
  165.     return;
  166. }
  168. switch ( container->item_type )
  169. {
  170. default:
  171.     send_to_char( "That's not a container.nr", ch );
  172.     return;
  174. case ITEM_CONTAINER:
  175. case ITEM_CORPSE_NPC:
  176.     break;
  178. case ITEM_CORPSE_PC:
  179.     {
  180. char name[MAX_INPUT_LENGTH];
  181. CHAR_DATA *gch;
  182. char *pd;
  184. if ( IS_NPC(ch) )
  185. {
  186.     send_to_char( "You can't do that.nr", ch );
  187.     return;
  188. }
  190. pd = container->short_descr;
  191. pd = one_argument( pd, name );
  192. pd = one_argument( pd, name );
  193. pd = one_argument( pd, name );
  195. if ( str_cmp( name, ch->name ) && !IS_IMMORTAL(ch) )
  196. {
  197.     bool fGroup;
  199.     fGroup = FALSE;
  200.     for ( gch = char_list; gch != NULL; gch = gch->next )
  201.     {
  202. if ( !IS_NPC(gch)
  203. &&   is_same_group( ch, gch )
  204. &&   !str_cmp( name, gch->name ) )
  205. {
  206.     fGroup = TRUE;
  207.     break;
  208. }
  209.     }
  211.     if ( !fGroup )
  212.     {
  213. send_to_char( "You can't do that.nr", ch );
  214. return;
  215.     }
  216. }
  217.     }
  218. }
  220. if ( IS_SET(container->value[1], CONT_CLOSED) )
  221. {
  222.     act( "The $d is closed.", ch, NULL, container->name, TO_CHAR );
  223.     return;
  224. }
  226. if ( str_cmp( arg1, "all" ) && str_prefix( "all.", arg1 ) )
  227. {
  228.     /* 'get obj container' */
  229.     obj = get_obj_list( ch, arg1, container->contains );
  230.     if ( obj == NULL )
  231.     {
  232. act( "I see nothing like that in the $T.",
  233.     ch, NULL, arg2, TO_CHAR );
  234. return;
  235.     }
  236.     get_obj( ch, obj, container );
  237. }
  238. else
  239. {
  240.     /* 'get all container' or 'get all.obj container' */
  241.     found = FALSE;
  242.     for ( obj = container->contains; obj != NULL; obj = obj_next )
  243.     {
  244. obj_next = obj->next_content;
  245. if ( ( arg1[3] == '' || is_name( &arg1[4], obj->name ) )
  246. &&   can_see_obj( ch, obj ) )
  247. {
  248.     found = TRUE;
  249.     get_obj( ch, obj, container );
  250. }
  251.     }
  253.     if ( !found )
  254.     {
  255. if ( arg1[3] == '' )
  256.     act( "I see nothing in the $T.",
  257. ch, NULL, arg2, TO_CHAR );
  258. else
  259.     act( "I see nothing like that in the $T.",
  260. ch, NULL, arg2, TO_CHAR );
  261.     }
  262. }
  263.     }
  265.     return;
  266. }
  270. void do_put( CHAR_DATA *ch, char *argument )
  271. {
  272.     char arg1[MAX_INPUT_LENGTH];
  273.     char arg2[MAX_INPUT_LENGTH];
  274.     OBJ_DATA *container;
  275.     OBJ_DATA *obj;
  276.     OBJ_DATA *obj_next;
  278.     argument = one_argument( argument, arg1 );
  279.     argument = one_argument( argument, arg2 );
  281.     if ( arg1[0] == '' || arg2[0] == '' )
  282.     {
  283. send_to_char( "Put what in what?nr", ch );
  284. return;
  285.     }
  287.     if ( !str_cmp( arg2, "all" ) || !str_prefix( "all.", arg2 ) )
  288.     {
  289. send_to_char( "You can't do that.nr", ch );
  290. return;
  291.     }
  293.     if ( ( container = get_obj_here( ch, arg2 ) ) == NULL )
  294.     {
  295. act( "I see no $T here.", ch, NULL, arg2, TO_CHAR );
  296. return;
  297.     }
  299.     if ( container->item_type != ITEM_CONTAINER )
  300.     {
  301. send_to_char( "That's not a container.nr", ch );
  302. return;
  303.     }
  305.     if ( IS_SET(container->value[1], CONT_CLOSED) )
  306.     {
  307. act( "The $d is closed.", ch, NULL, container->name, TO_CHAR );
  308. return;
  309.     }
  311.     if ( str_cmp( arg1, "all" ) && str_prefix( "all.", arg1 ) )
  312.     {
  313. /* 'put obj container' */
  314. if ( ( obj = get_obj_carry( ch, arg1 ) ) == NULL )
  315. {
  316.     send_to_char( "You do not have that item.nr", ch );
  317.     return;
  318. }
  320. if ( obj == container )
  321. {
  322.     send_to_char( "You can't fold it into itself.nr", ch );
  323.     return;
  324. }
  326. if ( !can_drop_obj( ch, obj ) )
  327. {
  328.     send_to_char( "You can't let go of it.nr", ch );
  329.     return;
  330. }
  332. if ( get_obj_weight( obj ) + get_obj_weight( container )
  333.      > container->value[0] )
  334. {
  335.     send_to_char( "It won't fit.nr", ch );
  336.     return;
  337. }
  339. obj_from_char( obj );
  340. obj_to_obj( obj, container );
  341. act( "$n puts $p in $P.", ch, obj, container, TO_ROOM );
  342. act( "You put $p in $P.", ch, obj, container, TO_CHAR );
  343.     }
  344.     else
  345.     {
  346. /* 'put all container' or 'put all.obj container' */
  347. for ( obj = ch->carrying; obj != NULL; obj = obj_next )
  348. {
  349.     obj_next = obj->next_content;
  351.     if ( ( arg1[3] == '' || is_name( &arg1[4], obj->name ) )
  352.     &&   can_see_obj( ch, obj )
  353.     &&   obj->wear_loc == WEAR_NONE
  354.     &&   obj != container
  355.     &&   can_drop_obj( ch, obj )
  356.     &&   get_obj_weight( obj ) + get_obj_weight( container )
  357.  <= container->value[0] )
  358.     {
  359. obj_from_char( obj );
  360. obj_to_obj( obj, container );
  361. act( "$n puts $p in $P.", ch, obj, container, TO_ROOM );
  362. act( "You put $p in $P.", ch, obj, container, TO_CHAR );
  363.     }
  364. }
  365.     }
  367.     return;
  368. }
  372. void do_drop( CHAR_DATA *ch, char *argument )
  373. {
  374.     char arg[MAX_INPUT_LENGTH];
  375.     OBJ_DATA *obj;
  376.     OBJ_DATA *obj_next;
  377.     bool found;
  379.     argument = one_argument( argument, arg );
  381.     if ( arg[0] == '' )
  382.     {
  383. send_to_char( "Drop what?nr", ch );
  384. return;
  385.     }
  387.     if ( is_number( arg ) )
  388.     {
  389. /* 'drop NNNN coins' */
  390. int amount;
  392. amount   = atoi(arg);
  393. argument = one_argument( argument, arg );
  394. if ( amount <= 0
  395. || ( str_cmp( arg, "coins" ) && str_cmp( arg, "coin" ) ) )
  396. {
  397.     send_to_char( "Sorry, you can't do that.nr", ch );
  398.     return;
  399. }
  401. if ( ch->gold < amount )
  402. {
  403.     send_to_char( "You haven't got that many coins.nr", ch );
  404.     return;
  405. }
  407. ch->gold -= amount;
  409. for ( obj = ch->in_room->contents; obj != NULL; obj = obj_next )
  410. {
  411.     obj_next = obj->next_content;
  413.     switch ( obj->pIndexData->vnum )
  414.     {
  415.     case OBJ_VNUM_MONEY_ONE:
  416. amount += 1;
  417. extract_obj( obj );
  418. break;
  420.     case OBJ_VNUM_MONEY_SOME:
  421. amount += obj->value[0];
  422. extract_obj( obj );
  423. break;
  424.     }
  425. }
  427. obj_to_room( create_money( amount ), ch->in_room );
  428. act( "$n drops some gold.", ch, NULL, NULL, TO_ROOM );
  429. send_to_char( "OK.nr", ch );
  430. return;
  431.     }
  433.     if ( str_cmp( arg, "all" ) && str_prefix( "all.", arg ) )
  434.     {
  435. /* 'drop obj' */
  436. if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  437. {
  438.     send_to_char( "You do not have that item.nr", ch );
  439.     return;
  440. }
  442. if ( !can_drop_obj( ch, obj ) )
  443. {
  444.     send_to_char( "You can't let go of it.nr", ch );
  445.     return;
  446. }
  448. obj_from_char( obj );
  449. obj_to_room( obj, ch->in_room );
  450. act( "$n drops $p.", ch, obj, NULL, TO_ROOM );
  451. act( "You drop $p.", ch, obj, NULL, TO_CHAR );
  452.     }
  453.     else
  454.     {
  455. /* 'drop all' or 'drop all.obj' */
  456. found = FALSE;
  457. for ( obj = ch->carrying; obj != NULL; obj = obj_next )
  458. {
  459.     obj_next = obj->next_content;
  461.     if ( ( arg[3] == '' || is_name( &arg[4], obj->name ) )
  462.     &&   can_see_obj( ch, obj )
  463.     &&   obj->wear_loc == WEAR_NONE
  464.     &&   can_drop_obj( ch, obj ) )
  465.     {
  466. found = TRUE;
  467. obj_from_char( obj );
  468. obj_to_room( obj, ch->in_room );
  469. act( "$n drops $p.", ch, obj, NULL, TO_ROOM );
  470. act( "You drop $p.", ch, obj, NULL, TO_CHAR );
  471.     }
  472. }
  474. if ( !found )
  475. {
  476.     if ( arg[3] == '' )
  477. act( "You are not carrying anything.",
  478.     ch, NULL, arg, TO_CHAR );
  479.     else
  480. act( "You are not carrying any $T.",
  481.     ch, NULL, &arg[4], TO_CHAR );
  482. }
  483.     }
  485.     return;
  486. }
  490. void do_give( CHAR_DATA *ch, char *argument )
  491. {
  492.     char arg1 [MAX_INPUT_LENGTH];
  493.     char arg2 [MAX_INPUT_LENGTH];
  494.     CHAR_DATA *victim;
  495.     OBJ_DATA  *obj;
  497.     argument = one_argument( argument, arg1 );
  498.     argument = one_argument( argument, arg2 );
  500.     if ( arg1[0] == '' || arg2[0] == '' )
  501.     {
  502. send_to_char( "Give what to whom?nr", ch );
  503. return;
  504.     }
  506.     if ( is_number( arg1 ) )
  507.     {
  508. /* 'give NNNN coins victim' */
  509. int amount;
  511. amount   = atoi(arg1);
  512. if ( amount <= 0
  513. || ( str_cmp( arg2, "coins" ) && str_cmp( arg2, "coin" ) ) )
  514. {
  515.     send_to_char( "Sorry, you can't do that.nr", ch );
  516.     return;
  517. }
  519. argument = one_argument( argument, arg2 );
  520. if ( arg2[0] == '' )
  521. {
  522.     send_to_char( "Give what to whom?nr", ch );
  523.     return;
  524. }
  526. if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
  527. {
  528.     send_to_char( "They aren't here.nr", ch );
  529.     return;
  530. }
  532. if ( ch->gold < amount )
  533. {
  534.     send_to_char( "You haven't got that much gold.nr", ch );
  535.     return;
  536. }
  538. ch->gold     -= amount;
  539. victim->gold += amount;
  540. act( "$n gives you some gold.", ch, NULL, victim, TO_VICT    );
  541. act( "$n gives $N some gold.",  ch, NULL, victim, TO_NOTVICT );
  542. act( "You give $N some gold.",  ch, NULL, victim, TO_CHAR    );
  543. send_to_char( "OK.nr", ch );
  544. mprog_bribe_trigger(victim,ch,amount);
  545. return;
  546.     }
  548.     if ( ( obj = get_obj_carry( ch, arg1 ) ) == NULL )
  549.     {
  550. send_to_char( "You do not have that item.nr", ch );
  551. return;
  552.     }
  554.     if ( obj->wear_loc != WEAR_NONE )
  555.     {
  556. send_to_char( "You must remove it first.nr", ch );
  557. return;
  558.     }
  560.     if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
  561.     {
  562. send_to_char( "They aren't here.nr", ch );
  563. return;
  564.     }
  566.     if ( !can_drop_obj( ch, obj ) )
  567.     {
  568. send_to_char( "You can't let go of it.nr", ch );
  569. return;
  570.     }
  572.     if ( victim->carry_number + get_obj_number( obj ) > can_carry_n( victim ) )
  573.     {
  574. act( "$N has $S hands full.", ch, NULL, victim, TO_CHAR );
  575. return;
  576.     }
  578.     if ( victim->carry_weight + get_obj_weight( obj ) > can_carry_w( victim ) )
  579.     {
  580. act( "$N can't carry that much weight.", ch, NULL, victim, TO_CHAR );
  581. return;
  582.     }
  584.     if ( !can_see_obj( victim, obj ) )
  585.     {
  586. act( "$N can't see it.", ch, NULL, victim, TO_CHAR );
  587. return;
  588.     }
  590.     obj_from_char( obj );
  591.     obj_to_char( obj, victim );
  592.     MOBtrigger = FALSE;
  593.     act( "$n gives $p to $N.", ch, obj, victim, TO_NOTVICT );
  594.     act( "$n gives you $p.",   ch, obj, victim, TO_VICT    );
  595.     act( "You give $p to $N.", ch, obj, victim, TO_CHAR    );
  596.     mprog_give_trigger(victim,ch,obj);
  597.     return;
  598. }
  603. void do_fill( CHAR_DATA *ch, char *argument )
  604. {
  605.     char arg[MAX_INPUT_LENGTH];
  606.     OBJ_DATA *obj;
  607.     OBJ_DATA *fountain;
  608.     bool found;
  610.     one_argument( argument, arg );
  612.     if ( arg[0] == '' )
  613.     {
  614. send_to_char( "Fill what?nr", ch );
  615. return;
  616.     }
  618.     if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  619.     {
  620. send_to_char( "You do not have that item.nr", ch );
  621. return;
  622.     }
  624.     found = FALSE;
  625.     for ( fountain = ch->in_room->contents; fountain != NULL;
  626. fountain = fountain->next_content )
  627.     {
  628. if ( fountain->item_type == ITEM_FOUNTAIN )
  629. {
  630.     found = TRUE;
  631.     break;
  632. }
  633.     }
  635.     if ( !found )
  636.     {
  637. send_to_char( "There is no fountain here!nr", ch );
  638. return;
  639.     }
  641.     if ( obj->item_type != ITEM_DRINK_CON )
  642.     {
  643. send_to_char( "You can't fill that.nr", ch );
  644. return;
  645.     }
  647.     if ( obj->value[1] != 0 && obj->value[2] != 0 )
  648.     {
  649. send_to_char( "There is already another liquid in it.nr", ch );
  650. return;
  651.     }
  653.     if ( obj->value[1] >= obj->value[0] )
  654.     {
  655. send_to_char( "Your container is full.nr", ch );
  656. return;
  657.     }
  659.     act( "You fill $p.", ch, obj, NULL, TO_CHAR );
  660.     obj->value[2] = 0;
  661.     obj->value[1] = obj->value[0];
  662.     return;
  663. }
  667. void do_drink( CHAR_DATA *ch, char *argument )
  668. {
  669.     char arg[MAX_INPUT_LENGTH];
  670.     OBJ_DATA *obj;
  671.     int amount;
  672.     int liquid;
  674.     one_argument( argument, arg );
  676.     if ( arg[0] == '' )
  677.     {
  678. for ( obj = ch->in_room->contents; obj; obj = obj->next_content )
  679. {
  680.     if ( obj->item_type == ITEM_FOUNTAIN )
  681. break;
  682. }
  684. if ( obj == NULL )
  685. {
  686.     send_to_char( "Drink what?nr", ch );
  687.     return;
  688. }
  689.     }
  690.     else
  691.     {
  692. if ( ( obj = get_obj_here( ch, arg ) ) == NULL )
  693. {
  694.     send_to_char( "You can't find it.nr", ch );
  695.     return;
  696. }
  697.     }
  699.     if ( !IS_NPC(ch) && ch->pcdata->condition[COND_DRUNK] > 10 )
  700.     {
  701. send_to_char( "You fail to reach your mouth.  *Hic*nr", ch );
  702. return;
  703.     }
  705.     switch ( obj->item_type )
  706.     {
  707.     default:
  708. send_to_char( "You can't drink from that.nr", ch );
  709. break;
  711.     case ITEM_FOUNTAIN:
  712. if ( !IS_NPC(ch) )
  713.     ch->pcdata->condition[COND_THIRST] = 48;
  714. act( "$n drinks from $p.", ch, obj, NULL, TO_ROOM ); // @@@
  715. // act( "$n drinks from the fountain.", ch, NULL, NULL, TO_ROOM ); // @@@
  716. send_to_char( "You are not thirsty.nr", ch );
  717. break;
  719.     case ITEM_DRINK_CON:
  720. if ( obj->value[1] <= 0 )
  721. {
  722.     send_to_char( "It is already empty.nr", ch );
  723.     return;
  724. }
  726. if ( ( liquid = obj->value[2] ) >= LIQ_MAX )
  727. {
  728.     bug( "Do_drink: bad liquid number %d.", liquid );
  729.     liquid = obj->value[2] = 0;
  730. }
  732. act( "$n drinks $T from $p.",
  733.     ch, obj, liq_table[liquid].liq_name, TO_ROOM );
  734. act( "You drink $T from $p.",
  735.     ch, obj, liq_table[liquid].liq_name, TO_CHAR );
  737. amount = number_range(3, 10);
  738. amount = UMIN(amount, obj->value[1]);
  740. gain_condition( ch, COND_DRUNK,
  741.     amount * liq_table[liquid].liq_affect[COND_DRUNK  ] );
  742. gain_condition( ch, COND_FULL,
  743.     amount * liq_table[liquid].liq_affect[COND_FULL   ] );
  744. gain_condition( ch, COND_THIRST,
  745.     amount * liq_table[liquid].liq_affect[COND_THIRST ] );
  747. if ( !IS_NPC(ch) && ch->pcdata->condition[COND_DRUNK]  > 10 )
  748.     send_to_char( "You feel drunk.nr", ch );
  749. if ( !IS_NPC(ch) && ch->pcdata->condition[COND_FULL]   > 40 )
  750.     send_to_char( "You are full.nr", ch );
  751. if ( !IS_NPC(ch) && ch->pcdata->condition[COND_THIRST] > 40 )
  752.     send_to_char( "You do not feel thirsty.nr", ch );
  754. if ( obj->value[3] != 0 )
  755. {
  756.     /* The shit was poisoned ! */
  757.     AFFECT_DATA af;
  759.     act( "$n chokes and gags.", ch, NULL, NULL, TO_ROOM );
  760.     send_to_char( "You choke and gag.nr", ch );
  761.     af.type      = gsn_poison;
  762.     af.duration  = 3 * amount;
  763.     af.location  = APPLY_NONE;
  764.     af.modifier  = 0;
  765.     af.bitvector = AFF_POISON;
  766.     affect_join( ch, &af );
  767. }
  769. obj->value[1] -= amount;
  770. if ( obj->value[1] <= 0 )
  771. {
  772.     send_to_char( "The empty container vanishes.nr", ch );
  773.     extract_obj( obj );
  774. }
  775. break;
  776.     }
  778.     return;
  779. }
  783. void do_eat( CHAR_DATA *ch, char *argument )
  784. {
  785.     char arg[MAX_INPUT_LENGTH];
  786.     OBJ_DATA *obj;
  788.     one_argument( argument, arg );
  789.     if ( arg[0] == '' )
  790.     {
  791. send_to_char( "Eat what?nr", ch );
  792. return;
  793.     }
  795.     if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  796.     {
  797. send_to_char( "You do not have that item.nr", ch );
  798. return;
  799.     }
  801.     if ( !IS_IMMORTAL(ch) )
  802.     {
  803. if ( obj->item_type != ITEM_FOOD && obj->item_type != ITEM_PILL )
  804. {
  805.     send_to_char( "That's not edible.nr", ch );
  806.     return;
  807. }
  809. if ( !IS_NPC(ch) && ch->pcdata->condition[COND_FULL] > 40 )
  810. {   
  811.     send_to_char( "You are too full to eat more.nr", ch );
  812.     return;
  813. }
  814.     }
  816.     act( "$n eats $p.",  ch, obj, NULL, TO_ROOM );
  817.     act( "You eat $p.", ch, obj, NULL, TO_CHAR );
  819.     switch ( obj->item_type )
  820.     {
  822.     case ITEM_FOOD:
  823. if ( !IS_NPC(ch) )
  824. {
  825.     int condition;
  827.     condition = ch->pcdata->condition[COND_FULL];
  828.     gain_condition( ch, COND_FULL, obj->value[0] );
  829.     if ( condition == 0 && ch->pcdata->condition[COND_FULL] > 0 )
  830. send_to_char( "You are no longer hungry.nr", ch );
  831.     else if ( ch->pcdata->condition[COND_FULL] > 40 )
  832. send_to_char( "You are full.nr", ch );
  833. }
  835. if ( obj->value[3] != 0 )
  836. {
  837.     /* The shit was poisoned! */
  838.     AFFECT_DATA af;
  840.     act( "$n chokes and gags.", ch, 0, 0, TO_ROOM );
  841.     send_to_char( "You choke and gag.nr", ch );
  843.     af.type      = gsn_poison;
  844.     af.duration  = 2 * obj->value[0];
  845.     af.location  = APPLY_NONE;
  846.     af.modifier  = 0;
  847.     af.bitvector = AFF_POISON;
  848.     affect_join( ch, &af );
  849. }
  850. break;
  852.     case ITEM_PILL:
  853. obj_cast_spell( obj->value[1], obj->value[0], ch, ch, NULL );
  854. obj_cast_spell( obj->value[2], obj->value[0], ch, ch, NULL );
  855. obj_cast_spell( obj->value[3], obj->value[0], ch, ch, NULL );
  856. break;
  857.     }
  859.     extract_obj( obj );
  860.     return;
  861. }
  865. /*
  866.  * Remove an object.
  867.  */
  868. bool remove_obj( CHAR_DATA *ch, int iWear, bool fReplace )
  869. {
  870.     OBJ_DATA *obj;
  872.     if ( ( obj = get_eq_char( ch, iWear ) ) == NULL )
  873. return TRUE;
  875.     if ( !fReplace )
  876. return FALSE;
  878.     if ( IS_SET(obj->extra_flags, ITEM_NOREMOVE) )
  879.     {
  880. act( "You can't remove $p.", ch, obj, NULL, TO_CHAR );
  881. return FALSE;
  882.     }
  884.     unequip_char( ch, obj );
  885.     act( "$n stops using $p.", ch, obj, NULL, TO_ROOM );
  886.     act( "You stop using $p.", ch, obj, NULL, TO_CHAR );
  887.     return TRUE;
  888. }
  892. /*
  893.  * Wear one object.
  894.  * Optional replacement of existing objects.
  895.  * Big repetitive code, ick.
  896.  */
  897. void wear_obj( CHAR_DATA *ch, OBJ_DATA *obj, bool fReplace )
  898. {
  899.     char buf[MAX_STRING_LENGTH];
  901.     if ( ch->level < obj->level )
  902.     {
  903. sprintf( buf, "You must be level %d to use this object.nr",
  904.     obj->level );
  905. send_to_char( buf, ch );
  906. act( "$n tries to use $p, but is too inexperienced.",
  907.     ch, obj, NULL, TO_ROOM );
  908. return;
  909.     }
  911.     if ( obj->item_type == ITEM_LIGHT )
  912.     {
  913. if ( !remove_obj( ch, WEAR_LIGHT, fReplace ) )
  914.     return;
  915. act( "$n lights $p and holds it.", ch, obj, NULL, TO_ROOM );
  916. act( "You light $p and hold it.",  ch, obj, NULL, TO_CHAR );
  917. equip_char( ch, obj, WEAR_LIGHT );
  918. return;
  919.     }
  921.     if ( CAN_WEAR( obj, ITEM_WEAR_FINGER ) )
  922.     {
  923. if ( get_eq_char( ch, WEAR_FINGER_L ) != NULL
  924. &&   get_eq_char( ch, WEAR_FINGER_R ) != NULL
  925. &&   !remove_obj( ch, WEAR_FINGER_L, fReplace )
  926. &&   !remove_obj( ch, WEAR_FINGER_R, fReplace ) )
  927.     return;
  929. if ( get_eq_char( ch, WEAR_FINGER_L ) == NULL )
  930. {
  931.     act( "$n wears $p on $s left finger.",    ch, obj, NULL, TO_ROOM );
  932.     act( "You wear $p on your left finger.",  ch, obj, NULL, TO_CHAR );
  933.     equip_char( ch, obj, WEAR_FINGER_L );
  934.     return;
  935. }
  937. if ( get_eq_char( ch, WEAR_FINGER_R ) == NULL )
  938. {
  939.     act( "$n wears $p on $s right finger.",   ch, obj, NULL, TO_ROOM );
  940.     act( "You wear $p on your right finger.", ch, obj, NULL, TO_CHAR );
  941.     equip_char( ch, obj, WEAR_FINGER_R );
  942.     return;
  943. }
  945. bug( "Wear_obj: no free finger.", 0 );
  946. send_to_char( "You already wear two rings.nr", ch );
  947. return;
  948.     }
  950.     if ( CAN_WEAR( obj, ITEM_WEAR_NECK ) )
  951.     {
  952. if ( get_eq_char( ch, WEAR_NECK_1 ) != NULL
  953. &&   get_eq_char( ch, WEAR_NECK_2 ) != NULL
  954. &&   !remove_obj( ch, WEAR_NECK_1, fReplace )
  955. &&   !remove_obj( ch, WEAR_NECK_2, fReplace ) )
  956.     return;
  958. if ( get_eq_char( ch, WEAR_NECK_1 ) == NULL )
  959. {
  960.     act( "$n wears $p around $s neck.",   ch, obj, NULL, TO_ROOM );
  961.     act( "You wear $p around your neck.", ch, obj, NULL, TO_CHAR );
  962.     equip_char( ch, obj, WEAR_NECK_1 );
  963.     return;
  964. }
  966. if ( get_eq_char( ch, WEAR_NECK_2 ) == NULL )
  967. {
  968.     act( "$n wears $p around $s neck.",   ch, obj, NULL, TO_ROOM );
  969.     act( "You wear $p around your neck.", ch, obj, NULL, TO_CHAR );
  970.     equip_char( ch, obj, WEAR_NECK_2 );
  971.     return;
  972. }
  974. bug( "Wear_obj: no free neck.", 0 );
  975. send_to_char( "You already wear two neck items.nr", ch );
  976. return;
  977.     }
  979.     if ( CAN_WEAR( obj, ITEM_WEAR_BODY ) )
  980.     {
  981. if ( !remove_obj( ch, WEAR_BODY, fReplace ) )
  982.     return;
  983. act( "$n wears $p on $s body.",   ch, obj, NULL, TO_ROOM );
  984. act( "You wear $p on your body.", ch, obj, NULL, TO_CHAR );
  985. equip_char( ch, obj, WEAR_BODY );
  986. return;
  987.     }
  989.     if ( CAN_WEAR( obj, ITEM_WEAR_HEAD ) )
  990.     {
  991. if ( !remove_obj( ch, WEAR_HEAD, fReplace ) )
  992.     return;
  993. act( "$n wears $p on $s head.",   ch, obj, NULL, TO_ROOM );
  994. act( "You wear $p on your head.", ch, obj, NULL, TO_CHAR );
  995. equip_char( ch, obj, WEAR_HEAD );
  996. return;
  997.     }
  999.     if ( CAN_WEAR( obj, ITEM_WEAR_LEGS ) )
  1000.     {
  1001. if ( !remove_obj( ch, WEAR_LEGS, fReplace ) )
  1002.     return;
  1003. act( "$n wears $p on $s legs.",   ch, obj, NULL, TO_ROOM );
  1004. act( "You wear $p on your legs.", ch, obj, NULL, TO_CHAR );
  1005. equip_char( ch, obj, WEAR_LEGS );
  1006. return;
  1007.     }
  1009.     if ( CAN_WEAR( obj, ITEM_WEAR_FEET ) )
  1010.     {
  1011. if ( !remove_obj( ch, WEAR_FEET, fReplace ) )
  1012.     return;
  1013. act( "$n wears $p on $s feet.",   ch, obj, NULL, TO_ROOM );
  1014. act( "You wear $p on your feet.", ch, obj, NULL, TO_CHAR );
  1015. equip_char( ch, obj, WEAR_FEET );
  1016. return;
  1017.     }
  1019.     if ( CAN_WEAR( obj, ITEM_WEAR_HANDS ) )
  1020.     {
  1021. if ( !remove_obj( ch, WEAR_HANDS, fReplace ) )
  1022.     return;
  1023. act( "$n wears $p on $s hands.",   ch, obj, NULL, TO_ROOM );
  1024. act( "You wear $p on your hands.", ch, obj, NULL, TO_CHAR );
  1025. equip_char( ch, obj, WEAR_HANDS );
  1026. return;
  1027.     }
  1029.     if ( CAN_WEAR( obj, ITEM_WEAR_ARMS ) )
  1030.     {
  1031. if ( !remove_obj( ch, WEAR_ARMS, fReplace ) )
  1032.     return;
  1033. act( "$n wears $p on $s arms.",   ch, obj, NULL, TO_ROOM );
  1034. act( "You wear $p on your arms.", ch, obj, NULL, TO_CHAR );
  1035. equip_char( ch, obj, WEAR_ARMS );
  1036. return;
  1037.     }
  1039.     if ( CAN_WEAR( obj, ITEM_WEAR_ABOUT ) )
  1040.     {
  1041. if ( !remove_obj( ch, WEAR_ABOUT, fReplace ) )
  1042.     return;
  1043. act( "$n wears $p about $s body.",   ch, obj, NULL, TO_ROOM );
  1044. act( "You wear $p about your body.", ch, obj, NULL, TO_CHAR );
  1045. equip_char( ch, obj, WEAR_ABOUT );
  1046. return;
  1047.     }
  1049.     if ( CAN_WEAR( obj, ITEM_WEAR_WAIST ) )
  1050.     {
  1051. if ( !remove_obj( ch, WEAR_WAIST, fReplace ) )
  1052.     return;
  1053. act( "$n wears $p about $s waist.",   ch, obj, NULL, TO_ROOM );
  1054. act( "You wear $p about your waist.", ch, obj, NULL, TO_CHAR );
  1055. equip_char( ch, obj, WEAR_WAIST );
  1056. return;
  1057.     }
  1059.     if ( CAN_WEAR( obj, ITEM_WEAR_WRIST ) )
  1060.     {
  1061. if ( get_eq_char( ch, WEAR_WRIST_L ) != NULL
  1062. &&   get_eq_char( ch, WEAR_WRIST_R ) != NULL
  1063. &&   !remove_obj( ch, WEAR_WRIST_L, fReplace )
  1064. &&   !remove_obj( ch, WEAR_WRIST_R, fReplace ) )
  1065.     return;
  1067. if ( get_eq_char( ch, WEAR_WRIST_L ) == NULL )
  1068. {
  1069.     act( "$n wears $p around $s left wrist.",
  1070. ch, obj, NULL, TO_ROOM );
  1071.     act( "You wear $p around your left wrist.",
  1072. ch, obj, NULL, TO_CHAR );
  1073.     equip_char( ch, obj, WEAR_WRIST_L );
  1074.     return;
  1075. }
  1077. if ( get_eq_char( ch, WEAR_WRIST_R ) == NULL )
  1078. {
  1079.     act( "$n wears $p around $s right wrist.",
  1080. ch, obj, NULL, TO_ROOM );
  1081.     act( "You wear $p around your right wrist.",
  1082. ch, obj, NULL, TO_CHAR );
  1083.     equip_char( ch, obj, WEAR_WRIST_R );
  1084.     return;
  1085. }
  1087. bug( "Wear_obj: no free wrist.", 0 );
  1088. send_to_char( "You already wear two wrist items.nr", ch );
  1089. return;
  1090.     }
  1092.     if ( CAN_WEAR( obj, ITEM_WEAR_SHIELD ) )
  1093.     {
  1094. if ( !remove_obj( ch, WEAR_SHIELD, fReplace ) )
  1095.     return;
  1096. act( "$n wears $p as a shield.", ch, obj, NULL, TO_ROOM );
  1097. act( "You wear $p as a shield.", ch, obj, NULL, TO_CHAR );
  1098. equip_char( ch, obj, WEAR_SHIELD );
  1099. return;
  1100.     }
  1102.     if ( CAN_WEAR( obj, ITEM_WIELD ) )
  1103.     {
  1104. if ( !remove_obj( ch, WEAR_WIELD, fReplace ) )
  1105.     return;
  1107. if ( get_obj_weight( obj ) > str_app[get_curr_str(ch)].wield )
  1108. {
  1109.     send_to_char( "It is too heavy for you to wield.nr", ch );
  1110.     return;
  1111. }
  1113. act( "$n wields $p.", ch, obj, NULL, TO_ROOM );
  1114. act( "You wield $p.", ch, obj, NULL, TO_CHAR );
  1115. equip_char( ch, obj, WEAR_WIELD );
  1116. return;
  1117.     }
  1119.     if ( CAN_WEAR( obj, ITEM_HOLD ) )
  1120.     {
  1121. if ( !remove_obj( ch, WEAR_HOLD, fReplace ) )
  1122.     return;
  1123. act( "$n holds $p in $s hands.",   ch, obj, NULL, TO_ROOM );
  1124. act( "You hold $p in your hands.", ch, obj, NULL, TO_CHAR );
  1125. equip_char( ch, obj, WEAR_HOLD );
  1126. return;
  1127.     }
  1129.     if ( fReplace )
  1130. send_to_char( "You can't wear, wield, or hold that.nr", ch );
  1132.     return;
  1133. }
  1137. void do_wear( CHAR_DATA *ch, char *argument )
  1138. {
  1139.     char arg[MAX_INPUT_LENGTH];
  1140.     OBJ_DATA *obj;
  1142.     one_argument( argument, arg );
  1144.     if ( arg[0] == '' )
  1145.     {
  1146. send_to_char( "Wear, wield, or hold what?nr", ch );
  1147. return;
  1148.     }
  1150.     if ( !str_cmp( arg, "all" ) )
  1151.     {
  1152. OBJ_DATA *obj_next;
  1154. for ( obj = ch->carrying; obj != NULL; obj = obj_next )
  1155. {
  1156.     obj_next = obj->next_content;
  1157.     if ( obj->wear_loc == WEAR_NONE && can_see_obj( ch, obj ) )
  1158. wear_obj( ch, obj, FALSE );
  1159. }
  1160. return;
  1161.     }
  1162.     else
  1163.     {
  1164. if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  1165. {
  1166.     send_to_char( "You do not have that item.nr", ch );
  1167.     return;
  1168. }
  1170. wear_obj( ch, obj, TRUE );
  1171.     }
  1173.     return;
  1174. }
  1178. void do_remove( CHAR_DATA *ch, char *argument )
  1179. {
  1180.     char arg[MAX_INPUT_LENGTH];
  1181.     OBJ_DATA *obj;
  1182.     OBJ_DATA *obj_next;
  1184.     one_argument( argument, arg );
  1186.     if ( arg[0] == '' )
  1187.     {
  1188. send_to_char( "Remove what?nr", ch );
  1189. return;
  1190.     }
  1192.     if(!str_cmp(arg,"all"))
  1193.        {
  1194.         for ( obj = ch->carrying; obj != NULL; obj = obj_next )
  1195.           {
  1196.             obj_next=obj->next_content;
  1197.             if( obj->wear_loc != WEAR_NONE) remove_obj(ch,obj->wear_loc,TRUE);
  1198.           }
  1199.         }
  1200.    else 
  1201.     {
  1202.     if ( ( obj = get_obj_wear( ch, arg ) ) == NULL )
  1203.     {
  1204. send_to_char( "You do not have that item.nr", ch );
  1205. return;
  1206.     }
  1208.     remove_obj( ch, obj->wear_loc, TRUE );
  1209.     }
  1210.     return;
  1211. }
  1215. void do_sacrifice( CHAR_DATA *ch, char *argument )
  1216. {
  1217.     char arg[MAX_INPUT_LENGTH];
  1218.     OBJ_DATA *obj;
  1220.     one_argument( argument, arg );
  1222.     if ( arg[0] == '' || !str_cmp( arg, ch->name ) )
  1223.     {
  1224. act( "$n offers $mself to God, who graciously declines.",
  1225.     ch, NULL, NULL, TO_ROOM );
  1226. send_to_char(
  1227.     "God appreciates your offer and may accept it later.", ch );
  1228. return;
  1229.     }
  1231.     obj = get_obj_list( ch, arg, ch->in_room->contents );
  1232.     if ( obj == NULL )
  1233.     {
  1234. send_to_char( "You can't find it.nr", ch );
  1235. return;
  1236.     }
  1238.     if ( !CAN_WEAR(obj, ITEM_TAKE) )
  1239.     {
  1240. act( "$p is not an acceptable sacrifice.", ch, obj, 0, TO_CHAR );
  1241. return;
  1242.     }
  1244.     send_to_char( "God gives you one gold coin for your sacrifice.nr", ch );
  1245.     ch->gold += 1;
  1247.     act( "$n sacrifices $p to God.", ch, obj, NULL, TO_ROOM );
  1248.     extract_obj( obj );
  1249.     return;
  1250. }
  1254. void do_quaff( CHAR_DATA *ch, char *argument )
  1255. {
  1256.     char arg[MAX_INPUT_LENGTH];
  1257.     OBJ_DATA *obj;
  1259.     one_argument( argument, arg );
  1261.     if ( arg[0] == '' )
  1262.     {
  1263. send_to_char( "Quaff what?nr", ch );
  1264. return;
  1265.     }
  1267.     if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  1268.     {
  1269. send_to_char( "You do not have that potion.nr", ch );
  1270. return;
  1271.     }
  1273.     if ( obj->item_type != ITEM_POTION )
  1274.     {
  1275. send_to_char( "You can quaff only potions.nr", ch );
  1276. return;
  1277.     }
  1279.     act( "$n quaffs $p.", ch, obj, NULL, TO_ROOM );
  1280.     act( "You quaff $p.", ch, obj, NULL ,TO_CHAR );
  1282.     obj_cast_spell( obj->value[1], obj->value[0], ch, ch, NULL );
  1283.     obj_cast_spell( obj->value[2], obj->value[0], ch, ch, NULL );
  1284.     obj_cast_spell( obj->value[3], obj->value[0], ch, ch, NULL );
  1286.     extract_obj( obj );
  1287.     return;
  1288. }
  1292. void do_recite( CHAR_DATA *ch, char *argument )
  1293. {
  1294.     char arg1[MAX_INPUT_LENGTH];
  1295.     char arg2[MAX_INPUT_LENGTH];
  1296.     CHAR_DATA *victim;
  1297.     OBJ_DATA *scroll;
  1298.     OBJ_DATA *obj;
  1300.     argument = one_argument( argument, arg1 );
  1301.     argument = one_argument( argument, arg2 );
  1303.     if ( ( scroll = get_obj_carry( ch, arg1 ) ) == NULL )
  1304.     {
  1305. send_to_char( "You do not have that scroll.nr", ch );
  1306. return;
  1307.     }
  1309.     if ( scroll->item_type != ITEM_SCROLL )
  1310.     {
  1311. send_to_char( "You can recite only scrolls.nr", ch );
  1312. return;
  1313.     }
  1315.     obj = NULL;
  1316.     if ( arg2[0] == '' )
  1317.     {
  1318. victim = ch;
  1319.     }
  1320.     else
  1321.     {
  1322. if ( ( victim = get_char_room ( ch, arg2 ) ) == NULL
  1323. &&   ( obj    = get_obj_here  ( ch, arg2 ) ) == NULL )
  1324. {
  1325.     send_to_char( "You can't find it.nr", ch );
  1326.     return;
  1327. }
  1328.     }
  1330.     act( "$n recites $p.", ch, scroll, NULL, TO_ROOM );
  1331.     act( "You recite $p.", ch, scroll, NULL, TO_CHAR );
  1333.     obj_cast_spell( scroll->value[1], scroll->value[0], ch, victim, obj );
  1334.     obj_cast_spell( scroll->value[2], scroll->value[0], ch, victim, obj );
  1335.     obj_cast_spell( scroll->value[3], scroll->value[0], ch, victim, obj );
  1337.     extract_obj( scroll );
  1338.     return;
  1339. }
  1343. void do_brandish( CHAR_DATA *ch, char *argument )
  1344. {
  1345.     CHAR_DATA *vch;
  1346.     CHAR_DATA *vch_next;
  1347.     OBJ_DATA *staff;
  1348.     int sn;
  1350.     if ( ( staff = get_eq_char( ch, WEAR_HOLD ) ) == NULL )
  1351.     {
  1352. send_to_char( "You hold nothing in your hand.nr", ch );
  1353. return;
  1354.     }
  1356.     if ( staff->item_type != ITEM_STAFF )
  1357.     {
  1358. send_to_char( "You can brandish only with a staff.nr", ch );
  1359. return;
  1360.     }
  1362.     if ( ( sn = staff->value[3] ) < 0
  1363.     ||   sn >= MAX_SKILL
  1364.     ||   skill_table[sn].spell_fun == 0 )
  1365.     {
  1366. bug( "Do_brandish: bad sn %d.", sn );
  1367. return;
  1368.     }
  1370.     WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
  1372.     if ( staff->value[2] > 0 )
  1373.     {
  1374. act( "$n brandishes $p.", ch, staff, NULL, TO_ROOM );
  1375. act( "You brandish $p.",  ch, staff, NULL, TO_CHAR );
  1376. for ( vch = ch->in_room->people; vch; vch = vch_next )
  1377. {
  1378.     vch_next = vch->next_in_room;
  1380.     switch ( skill_table[sn].target )
  1381.     {
  1382.     default:
  1383. bug( "Do_brandish: bad target for sn %d.", sn );
  1384. return;
  1386.     case TAR_IGNORE:
  1387. if ( vch != ch )
  1388.     continue;
  1389. break;
  1391.     case TAR_CHAR_OFFENSIVE:
  1392. if ( IS_NPC(ch) ? IS_NPC(vch) : !IS_NPC(vch) )
  1393.     continue;
  1394. break;
  1396.     case TAR_CHAR_DEFENSIVE:
  1397. if ( IS_NPC(ch) ? !IS_NPC(vch) : IS_NPC(vch) )
  1398.     continue;
  1399. break;
  1401.     case TAR_CHAR_SELF:
  1402. if ( vch != ch )
  1403.     continue;
  1404. break;
  1405.     }
  1407.     obj_cast_spell( staff->value[3], staff->value[0], ch, vch, NULL );
  1408. }
  1409.     }
  1411.     if ( --staff->value[2] <= 0 )
  1412.     {
  1413. act( "$n's $p blazes bright and is gone.", ch, staff, NULL, TO_ROOM );
  1414. act( "Your $p blazes bright and is gone.", ch, staff, NULL, TO_CHAR );
  1415. extract_obj( staff );
  1416.     }
  1418.     return;
  1419. }
  1423. void do_zap( CHAR_DATA *ch, char *argument )
  1424. {
  1425.     char arg[MAX_INPUT_LENGTH];
  1426.     CHAR_DATA *victim;
  1427.     OBJ_DATA *wand;
  1428.     OBJ_DATA *obj;
  1430.     one_argument( argument, arg );
  1431.     if ( arg[0] == '' && ch->fighting == NULL )
  1432.     {
  1433. send_to_char( "Zap whom or what?nr", ch );
  1434. return;
  1435.     }
  1437.     if ( ( wand = get_eq_char( ch, WEAR_HOLD ) ) == NULL )
  1438.     {
  1439. send_to_char( "You hold nothing in your hand.nr", ch );
  1440. return;
  1441.     }
  1443.     if ( wand->item_type != ITEM_WAND )
  1444.     {
  1445. send_to_char( "You can zap only with a wand.nr", ch );
  1446. return;
  1447.     }
  1449.     obj = NULL;
  1450.     if ( arg[0] == '' )
  1451.     {
  1452. if ( ch->fighting != NULL )
  1453. {
  1454.     victim = ch->fighting;
  1455. }
  1456. else
  1457. {
  1458.     send_to_char( "Zap whom or what?nr", ch );
  1459.     return;
  1460. }
  1461.     }
  1462.     else
  1463.     {
  1464. if ( ( victim = get_char_room ( ch, arg ) ) == NULL
  1465. &&   ( obj    = get_obj_here  ( ch, arg ) ) == NULL )
  1466. {
  1467.     send_to_char( "You can't find it.nr", ch );
  1468.     return;
  1469. }
  1470.     }
  1472.     WAIT_STATE( ch, 2 * PULSE_VIOLENCE );
  1474.     if ( wand->value[2] > 0 )
  1475.     {
  1476. if ( victim != NULL )
  1477. {
  1478.     act( "$n zaps $N with $p.", ch, wand, victim, TO_ROOM );
  1479.     act( "You zap $N with $p.", ch, wand, victim, TO_CHAR );
  1480. }
  1481. else
  1482. {
  1483.     act( "$n zaps $P with $p.", ch, wand, obj, TO_ROOM );
  1484.     act( "You zap $P with $p.", ch, wand, obj, TO_CHAR );
  1485. }
  1487. obj_cast_spell( wand->value[3], wand->value[0], ch, victim, obj );
  1488.     }
  1490.     if ( --wand->value[2] <= 0 )
  1491.     {
  1492. act( "$n's $p explodes into fragments.", ch, wand, NULL, TO_ROOM );
  1493. act( "Your $p explodes into fragments.", ch, wand, NULL, TO_CHAR );
  1494. extract_obj( wand );
  1495.     }
  1497.     return;
  1498. }
  1502. void do_steal( CHAR_DATA *ch, char *argument )
  1503. {
  1504.     char buf  [MAX_STRING_LENGTH];
  1505.     char arg1 [MAX_INPUT_LENGTH];
  1506.     char arg2 [MAX_INPUT_LENGTH];
  1507.     CHAR_DATA *victim;
  1508.     OBJ_DATA *obj;
  1509.     int percent;
  1511.     argument = one_argument( argument, arg1 );
  1512.     argument = one_argument( argument, arg2 );
  1514.     if ( arg1[0] == '' || arg2[0] == '' )
  1515.     {
  1516. send_to_char( "Steal what from whom?nr", ch );
  1517. return;
  1518.     }
  1520.     if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
  1521.     {
  1522. send_to_char( "They aren't here.nr", ch );
  1523. return;
  1524.     }
  1526.     if ( victim == ch )
  1527.     {
  1528. send_to_char( "That's pointless.nr", ch );
  1529. return;
  1530.     }
  1532.     WAIT_STATE( ch, skill_table[gsn_steal].beats );
  1533.     percent  = number_percent( ) + ( IS_AWAKE(victim) ? 10 : -50 );
  1535.     if ( ch->level + 5 < victim->level
  1536.     ||   victim->position == POS_FIGHTING
  1537.     ||   !IS_NPC(victim)
  1538.     || ( !IS_NPC(ch) && percent > ch->pcdata->learned[gsn_steal] ) )
  1539.     {
  1540. /*
  1541.  * Failure.
  1542.  */
  1543. send_to_char( "Oops.nr", ch );
  1544. act( "$n tried to steal from you.nr", ch, NULL, victim, TO_VICT    );
  1545. act( "$n tried to steal from $N.nr",  ch, NULL, victim, TO_NOTVICT );
  1546. sprintf( buf, "%s is a bloody thief!", ch->name );
  1547. do_shout( victim, buf );
  1548. if ( !IS_NPC(ch) )
  1549. {
  1550.     if ( IS_NPC(victim) )
  1551.     {
  1552. multi_hit( victim, ch, TYPE_UNDEFINED );
  1553.     }
  1554.     else
  1555.     {
  1556. log_string( buf );
  1557. if ( !IS_SET(ch->act, PLR_THIEF) )
  1558. {
  1559.     SET_BIT(ch->act, PLR_THIEF);
  1560.     send_to_char( "*** You are now a THIEF!! ***nr", ch );
  1561.     save_char_obj( ch );
  1562. }
  1563.     }
  1564. }
  1566. return;
  1567.     }
  1569.     if ( !str_cmp( arg1, "coin"  )
  1570.     ||   !str_cmp( arg1, "coins" )
  1571.     ||   !str_cmp( arg1, "gold"  ) )
  1572.     {
  1573. int amount;
  1575. amount = victim->gold * number_range(1, 10) / 100;
  1576. if ( amount <= 0 )
  1577. {
  1578.     send_to_char( "You couldn't get any gold.nr", ch );
  1579.     return;
  1580. }
  1582. ch->gold     += amount;
  1583. victim->gold -= amount;
  1584. sprintf( buf, "Bingo!  You got %d gold coins.nr", amount );
  1585. send_to_char( buf, ch );
  1586. return;
  1587.     }
  1589.     if ( ( obj = get_obj_carry( victim, arg1 ) ) == NULL )
  1590.     {
  1591. send_to_char( "You can't find it.nr", ch );
  1592. return;
  1593.     }
  1595.     if ( !can_drop_obj( ch, obj )
  1596.     ||   IS_SET(obj->extra_flags, ITEM_INVENTORY)
  1597.     ||   obj->level > ch->level )
  1598.     {
  1599. send_to_char( "You can't pry it away.nr", ch );
  1600. return;
  1601.     }
  1603.     if ( ch->carry_number + get_obj_number( obj ) > can_carry_n( ch ) )
  1604.     {
  1605. send_to_char( "You have your hands full.nr", ch );
  1606. return;
  1607.     }
  1609.     if ( ch->carry_weight + get_obj_weight( obj ) > can_carry_w( ch ) )
  1610.     {
  1611. send_to_char( "You can't carry that much weight.nr", ch );
  1612. return;
  1613.     }
  1615.     obj_from_char( obj );
  1616.     obj_to_char( obj, ch );
  1617.     send_to_char( "Ok.nr", ch );
  1618.     return;
  1619. }
  1623. /*
  1624.  * Shopping commands.
  1625.  */
  1626. CHAR_DATA *find_keeper( CHAR_DATA *ch )
  1627. {
  1628.     char buf[MAX_STRING_LENGTH];
  1629.     CHAR_DATA *keeper;
  1630.     SHOP_DATA *pShop;
  1632.     pShop = NULL;
  1633.     for ( keeper = ch->in_room->people; keeper; keeper = keeper->next_in_room )
  1634.     {
  1635. if ( IS_NPC(keeper) && (pShop = keeper->pIndexData->pShop) != NULL )
  1636.     break;
  1637.     }
  1639.     if ( pShop == NULL )
  1640.     {
  1641. send_to_char( "You can't do that here.nr", ch );
  1642. return NULL;
  1643.     }
  1645.     /*
  1646.      * Undesirables.
  1647.      */
  1648.     if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_KILLER) )
  1649.     {
  1650. do_say( keeper, "Killers are not welcome!" );
  1651. sprintf( buf, "%s the KILLER is over here!nr", ch->name );
  1652. do_shout( keeper, buf );
  1653. return NULL;
  1654.     }
  1656.     if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_THIEF) )
  1657.     {
  1658. do_say( keeper, "Thieves are not welcome!" );
  1659. sprintf( buf, "%s the THIEF is over here!nr", ch->name );
  1660. do_shout( keeper, buf );
  1661. return NULL;
  1662.     }
  1664.     /*
  1665.      * Shop hours.
  1666.      */
  1667.     if ( time_info.hour < pShop->open_hour )
  1668.     {
  1669. do_say( keeper, "Sorry, come back later." );
  1670. return NULL;
  1671.     }
  1672.     
  1673.     if ( time_info.hour > pShop->close_hour )
  1674.     {
  1675. do_say( keeper, "Sorry, come back tomorrow." );
  1676. return NULL;
  1677.     }
  1679.     /*
  1680.      * Invisible or hidden people.
  1681.      */
  1682.     if ( !can_see( keeper, ch ) )
  1683.     {
  1684. do_say( keeper, "I don't trade with folks I can't see." );
  1685. return NULL;
  1686.     }
  1688.     return keeper;
  1689. }
  1693. int get_cost( CHAR_DATA *keeper, OBJ_DATA *obj, bool fBuy )
  1694. {
  1695.     SHOP_DATA *pShop;
  1696.     int cost;
  1698.     if ( obj == NULL || ( pShop = keeper->pIndexData->pShop ) == NULL )
  1699. return 0;
  1701.     if ( fBuy )
  1702.     {
  1703. cost = obj->cost * pShop->profit_buy  / 100;
  1704.     }
  1705.     else
  1706.     {
  1707. OBJ_DATA *obj2;
  1708. int itype;
  1710. cost = 0;
  1711. for ( itype = 0; itype < MAX_TRADE; itype++ )
  1712. {
  1713.     if ( obj->item_type == pShop->buy_type[itype] )
  1714.     {
  1715. cost = obj->cost * pShop->profit_sell / 100;
  1716. break;
  1717.     }
  1718. }
  1720. for ( obj2 = keeper->carrying; obj2; obj2 = obj2->next_content )
  1721. {
  1722.     if ( obj->pIndexData == obj2->pIndexData )
  1723. cost /= 2;
  1724. }
  1725.     }
  1727.     if ( obj->item_type == ITEM_STAFF || obj->item_type == ITEM_WAND )
  1728. cost = cost * obj->value[2] / obj->value[1];
  1730.     return cost;
  1731. }
  1735. void do_buy( CHAR_DATA *ch, char *argument )
  1736. {
  1737.     char arg[MAX_INPUT_LENGTH];
  1739.     argument = one_argument( argument, arg );
  1741.     if ( arg[0] == '' )
  1742.     {
  1743. send_to_char( "Buy what?nr", ch );
  1744. return;
  1745.     }
  1747.     if ( IS_SET(ch->in_room->room_flags, ROOM_PET_SHOP) )
  1748.     {
  1749. char buf[MAX_STRING_LENGTH];
  1750. CHAR_DATA *pet;
  1751. ROOM_INDEX_DATA *pRoomIndexNext;
  1752. ROOM_INDEX_DATA *in_room;
  1754. if ( IS_NPC(ch) )
  1755.     return;
  1757. pRoomIndexNext = get_room_index( ch->in_room->vnum + 1 );
  1758. if ( pRoomIndexNext == NULL )
  1759. {
  1760.     bug( "Do_buy: bad pet shop at vnum %d.", ch->in_room->vnum );
  1761.     send_to_char( "Sorry, you can't buy that here.nr", ch );
  1762.     return;
  1763. }
  1765. in_room     = ch->in_room;
  1766. ch->in_room = pRoomIndexNext;
  1767. pet         = get_char_room( ch, arg );
  1768. ch->in_room = in_room;
  1770. if ( pet == NULL || !IS_SET(pet->act, ACT_PET) )
  1771. {
  1772.     send_to_char( "Sorry, you can't buy that here.nr", ch );
  1773.     return;
  1774. }
  1776. #if 0
  1777. if ( IS_SET(ch->act, PLR_BOUGHT_PET) )
  1778. {
  1779.     send_to_char( "You already bought one pet this level.nr", ch );
  1780.     return;
  1781. }
  1782. #endif
  1784. if ( ch->gold < 10 * pet->level * pet->level )
  1785. {
  1786.     send_to_char( "You can't afford it.nr", ch );
  1787.     return;
  1788. }
  1790. if ( ch->level < pet->level )
  1791. {
  1792. //     send_to_char( "You're not ready for this pet.nr", ch );
  1793.     send_to_char( "This slave would probably murder you in your sleep.nr",
  1794.           ch );
  1795.     return;
  1796. }
  1798. ch->gold -= 10 * pet->level * pet->level;
  1799. pet = create_mobile( pet->pIndexData );
  1800. SET_BIT(ch->act, PLR_BOUGHT_PET);
  1801. SET_BIT(pet->act, ACT_PET);
  1802. SET_BIT(pet->affected_by, AFF_CHARM);
  1804. argument = one_argument( argument, arg );
  1805. if ( arg[0] != '' )
  1806. {
  1807.     sprintf( buf, "%s %s", pet->name, arg );
  1808.     free_string( pet->name );
  1809.     pet->name = str_dup( buf );
  1810. }
  1812. sprintf( buf, "%sThis slave bears the brand of %s.nr",
  1813.     pet->description, ch->name );
  1814. free_string( pet->description );
  1815. pet->description = str_dup( buf );
  1817. char_to_room( pet, ch->in_room );
  1818. add_follower( pet, ch );
  1819. send_to_char( "Enjoy your slave.  Please consider buying a lash.nr", ch );
  1820. act( "$N is branded with the mark of $n.", ch, NULL, pet, TO_ROOM );
  1821. return;
  1822.     }
  1823.     else
  1824.     {
  1825. CHAR_DATA *keeper;
  1826. OBJ_DATA *obj;
  1827. int cost;
  1829. if ( ( keeper = find_keeper( ch ) ) == NULL )
  1830.     return;
  1832. obj  = get_obj_carry( keeper, arg );
  1833. cost = get_cost( keeper, obj, TRUE );
  1835. if ( cost <= 0 || !can_see_obj( ch, obj ) )
  1836. {
  1837.     act( "$n tells you 'I don't sell that -- try 'list''.",
  1838. keeper, NULL, ch, TO_VICT );
  1839.     ch->reply = keeper;
  1840.     return;
  1841. }
  1843. if ( ch->gold < cost )
  1844. {
  1845.     act( "$n tells you 'You can't afford to buy $p'.",
  1846. keeper, obj, ch, TO_VICT );
  1847.     ch->reply = keeper;
  1848.     return;
  1849. }
  1851. if ( obj->level > ch->level )
  1852. {
  1853.     act( "$n tells you 'You can't use $p yet'.",
  1854. keeper, obj, ch, TO_VICT );
  1855.     ch->reply = keeper;
  1856.     return;
  1857. }
  1859. if ( ch->carry_number + get_obj_number( obj ) > can_carry_n( ch ) )
  1860. {
  1861.     send_to_char( "You can't carry that many items.nr", ch );
  1862.     return;
  1863. }
  1865. if ( ch->carry_weight + get_obj_weight( obj ) > can_carry_w( ch ) )
  1866. {
  1867.     send_to_char( "You can't carry that much weight.nr", ch );
  1868.     return;
  1869. }
  1871. act( "$n buys $p.", ch, obj, NULL, TO_ROOM );
  1872. act( "You buy $p.", ch, obj, NULL, TO_CHAR );
  1873. ch->gold     -= cost;
  1874. keeper->gold += cost;
  1876. if ( IS_SET( obj->extra_flags, ITEM_INVENTORY ) )
  1877.     obj = create_object( obj->pIndexData, obj->level );
  1878. else
  1879.     obj_from_char( obj );
  1881. obj_to_char( obj, ch );
  1882. return;
  1883.     }
  1884. }
  1888. void do_list( CHAR_DATA *ch, char *argument )
  1889. {
  1890.     char buf[MAX_STRING_LENGTH];
  1891.     char buf1[MAX_STRING_LENGTH];
  1893.     buf1[0] = '';
  1895.     if ( IS_SET(ch->in_room->room_flags, ROOM_PET_SHOP) )
  1896.     {
  1897. ROOM_INDEX_DATA *pRoomIndexNext;
  1898. CHAR_DATA *pet;
  1899. bool found;
  1901. pRoomIndexNext = get_room_index( ch->in_room->vnum + 1 );
  1902. if ( pRoomIndexNext == NULL )
  1903. {
  1904.     bug( "Do_list: bad pet shop at vnum %d.", ch->in_room->vnum );
  1905.     send_to_char( "You can't do that here.nr", ch );
  1906.     return;
  1907. }
  1909. found = FALSE;
  1910. for ( pet = pRoomIndexNext->people; pet; pet = pet->next_in_room )
  1911. {
  1912.     if ( IS_SET(pet->act, ACT_PET) )
  1913.     {
  1914. if ( !found )
  1915. {
  1916.     found = TRUE;
  1917.     strcat( buf1, "Slaves for sale:nr" );
  1918. }
  1919. sprintf( buf, "[%2d] %8d - %snr",
  1920.     pet->level,
  1921.     10 * pet->level * pet->level,
  1922.     pet->short_descr );
  1923. strcat( buf1, buf );
  1924.     }
  1925. }
  1926. if ( !found )
  1927.     send_to_char( "Sorry, there is only one left and it is dying of"
  1928.           " pnemonia.nr", ch );
  1930. send_to_char( buf1, ch );
  1931. return;
  1932.     }
  1933.     else
  1934.     {
  1935. char arg[MAX_INPUT_LENGTH];
  1936. CHAR_DATA *keeper;
  1937. OBJ_DATA *obj;
  1938. int cost;
  1939. bool found;
  1941. one_argument( argument, arg );
  1943. if ( ( keeper = find_keeper( ch ) ) == NULL )
  1944.     return;
  1946. found = FALSE;
  1947. for ( obj = keeper->carrying; obj; obj = obj->next_content )
  1948. {
  1949.     if ( obj->wear_loc == WEAR_NONE
  1950.     &&   can_see_obj( ch, obj )
  1951.     && ( cost = get_cost( keeper, obj, TRUE ) ) > 0
  1952.     && ( arg[0] == '' || is_name( arg, obj->name ) ) )
  1953.     {
  1954. if ( !found )
  1955. {
  1956.     found = TRUE;
  1957.     strcat( buf1, "[Lv Price] Itemnr" );
  1958. }
  1960. sprintf( buf, "[%2d %5d] %s.nr",
  1961.     obj->level, cost, capitalize( obj->short_descr ) );
  1962. strcat( buf1, buf );
  1963.     }
  1964. }
  1966. if ( !found )
  1967. {
  1968.     if ( arg[0] == '' )
  1969. send_to_char( "You can't buy anything here.nr", ch );
  1970.     else
  1971. send_to_char( "You can't buy that here.nr", ch );
  1972.     return;
  1973. }
  1975. send_to_char( buf1, ch );
  1976. return;
  1977.     }
  1978. }
  1982. void do_sell( CHAR_DATA *ch, char *argument )
  1983. {
  1984.     char buf[MAX_STRING_LENGTH];
  1985.     char arg[MAX_INPUT_LENGTH];
  1986.     CHAR_DATA *keeper;
  1987.     OBJ_DATA *obj;
  1988.     int cost;
  1990.     one_argument( argument, arg );
  1992.     if ( arg[0] == '' )
  1993.     {
  1994. send_to_char( "Sell what?nr", ch );
  1995. return;
  1996.     }
  1998.     if ( ( keeper = find_keeper( ch ) ) == NULL )
  1999. return;
  2001.     if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  2002.     {
  2003. act( "$n tells you 'You don't have that item'.",
  2004.     keeper, NULL, ch, TO_VICT );
  2005. ch->reply = keeper;
  2006. return;
  2007.     }
  2009.     if ( !can_drop_obj( ch, obj ) )
  2010.     {
  2011. send_to_char( "You can't let go of it.nr", ch );
  2012. return;
  2013.     }
  2015.     if ( ( cost = get_cost( keeper, obj, FALSE ) ) <= 0 )
  2016.     {
  2017. act( "$n looks uninterested in $p.", keeper, obj, ch, TO_VICT );
  2018. return;
  2019.     }
  2021.     act( "$n sells $p.", ch, obj, NULL, TO_ROOM );
  2022.     sprintf( buf, "You sell $p for %d gold piece%s.",
  2023. cost, cost == 1 ? "" : "s" );
  2024.     act( buf, ch, obj, NULL, TO_CHAR );
  2025.     ch->gold     += cost;
  2026.     keeper->gold -= cost;
  2027.     if ( keeper->gold < 0 )
  2028. keeper->gold = 0;
  2030.     if ( obj->item_type == ITEM_TRASH )
  2031.     {
  2032. extract_obj( obj );
  2033.     }
  2034.     else
  2035.     {
  2036. obj_from_char( obj );
  2037. obj_to_char( obj, keeper );
  2038.     }
  2040.     return;
  2041. }
  2045. void do_value( CHAR_DATA *ch, char *argument )
  2046. {
  2047.     char buf[MAX_STRING_LENGTH];
  2048.     char arg[MAX_INPUT_LENGTH];
  2049.     CHAR_DATA *keeper;
  2050.     OBJ_DATA *obj;
  2051.     int cost;
  2053.     one_argument( argument, arg );
  2055.     if ( arg[0] == '' )
  2056.     {
  2057. send_to_char( "Value what?nr", ch );
  2058. return;
  2059.     }
  2061.     if ( ( keeper = find_keeper( ch ) ) == NULL )
  2062. return;
  2064.     if ( ( obj = get_obj_carry( ch, arg ) ) == NULL )
  2065.     {
  2066. act( "$n tells you 'You don't have that item'.",
  2067.     keeper, NULL, ch, TO_VICT );
  2068. ch->reply = keeper;
  2069. return;
  2070.     }
  2072.     if ( !can_drop_obj( ch, obj ) )
  2073.     {
  2074. send_to_char( "You can't let go of it.nr", ch );
  2075. return;
  2076.     }
  2078.     if ( ( cost = get_cost( keeper, obj, FALSE ) ) <= 0 )
  2079.     {
  2080. act( "$n looks uninterested in $p.", keeper, obj, ch, TO_VICT );
  2081. return;
  2082.     }
  2084.     sprintf( buf, "$n tells you 'I'll give you %d gold coins for $p'.", cost );
  2085.     act( buf, keeper, obj, ch, TO_VICT );
  2086.     ch->reply = keeper;
  2088.     return;
  2089. }