Autoeat/autodrink

From: George (greerga@MIAVX1.ACS.MUOHIO.EDU)
Date: 07/25/97


On Fri, 25 Jul 1997, Robert J. Owens wrote:

>Does Anyone know how to create an perm food that you leave in your
>inventory and it will autodrink and autoeat for you ??

structs.h:
#define PRF_AUTOEAT     (1 << 22)
#define PRF_AUTODRINK   (1 << 23)

limits.c: line 321
  switch (condition) {
  case FULL:
    if (!PRF_FLAGGED(ch, PRF_AUTOEAT))
      send_to_char("You are hungry.\r\n", ch);
    else
      command_interpreter(ch, "eat food"); /* not do_eat for a reason */
    return;
  case THIRST:
    if (!PRF_FLAGGED(ch, PRF_AUTODRINK))
      send_to_char("You are thirsty.\r\n", ch);
    else
      command_interpreter(ch, "drink water"); /* pos/freeze/dead check */
    return;

act.item.c: line 855
  if (GET_OBJ_VAL(food, 0)) == -1)
    return;
  else if (subcmd == SCMD_EAT)
    extract_obj(food);
  else {

act.item.c: line 755
  if (GET_OBJ_VAL(temp, 1) != -1)
    weight_change_object(temp, -weight);  /* Subtract amount */

act.other.c: line 820
    {"Autoexits disabled.\r\n",
    "Autoexits enabled.\r\n"},
    {"Auto-eating off.\r\n",
    "Auto-eating on.\r\n"},
    {"Auto-drinking off.\r\n",
    "Auto-drinking on.\r\n"}
  };

        : line 874
  case SCMD_AUTOEXIT:
    result = PRF_TOG_CHK(ch, PRF_AUTOEXIT);
    break;
  case SCMD_AUTOEAT:
    result = PRF_TOG_CHK(ch, PRF_AUTOEAT);
    break;
  case SCMD_AUTODRINK:
    result = PRF_TOG_CHK(ch, PRF_AUTODRINK);
    break;
  default:

interpreter.h: line 111
#define SCMD_AUTOEXIT   15
#define SCMD_AUTOEAT    16
#define SCMD_AUTODRINK  17

interpreter.c: line 215
  { "auction"  , POS_SLEEPING, do_gen_comm , 0, SCMD_AUCTION },
  { "autodrink", POS_DEAD    , do_gen_tog  , 0, SCMD_AUTODRINK },
  { "autoeat"  , POS_DEAD    , do_gen_tog  , 0, SCMD_AUTOEAT },
  { "autoexit" , POS_DEAD    , do_gen_tog  , 0, SCMD_AUTOEXIT },

-George

PS - No I'm not making it a patch and I haven't tested this (mailer) :P


     +------------------------------------------------------------+
     | Ensure that you have read the CircleMUD Mailing List FAQ:  |
     | http://democracy.queensu.ca/~fletcher/Circle/list-faq.html |
     +------------------------------------------------------------+



This archive was generated by hypermail 2b30 : 12/08/00 PST