This command does a lot for CircleMuds but isn't big enough
to make a patch for.  This was made for CircleMUD 3.0 bpl 14
and should work with any of them for that matter.

   This command will drain a corpse of its left over internal
energy and will transfer it to the person who drains it.  Can
also be made into a skill for mages and/or clerics(which i have
done).  I won't get into how you make it a skill cause I hope
you are at least that competent. 

IN act.informative.c add the following

ACMD(do_drain)
{
  int HIT = 0, MANA = 0, MOVE = 0;
  struct obj_Data *obj;

  one_argument(argument, arg);

  if(!*arg)
  {
    send_to_char("Drain what?\n\r", ch);
    return;
  }
  
  if (!(obj = get_obj_in_list_vis(ch, arg, world[ch->in_room].contents)))
  {
    send_to_char("That object is not here\r\n", ch);
    return;
  }

  act("$n bends down and touches $p which slowly dissapears.\r\n", FALSE, ch,
      0, TO_ROOM);
  act("You bend down and drain $p.\r\n", FALSE, ch, 0, TO_ROOM);

  // Now let's add the energy to the players hp, mana, and move

  HIT = number(1, GET_LEVEL(ch)) * 2;
  MANA = number(1, GET_LEVEL(ch));
  MOVE = number(1, 15);
  GET_HIT(ch) = GET_HIT(ch) + HIT;
  GET_MANA(ch) = GET_MANA(ch) + MANA;
  GET_MOVE(ch) = GET_MOVE(ch) + MOVE;
  extract_obj(obj);
}

Next add the following to the interpreter.c file.

ACMD(do_display); 
ACMD(do_drain);            <==Add this one here.

{ "drain"    , "dr"  , POS_STANDING, do_drain     , 0, 0 };



Once you add those you will be all set, compile, pray, and have fun!

Contact me at forrest@attitude.com if you want more!

Mythran the Implementor
R.I.O.T. MUD
GENESIS MUD
riot.midsouth.net 9990
users.midsouth.net 9992

Please e-mail me if you use this out of respect.