[Code]do_sac

From: Hydragon (doogie@amnesiac.NMSU.Edu)
Date: 12/07/96


I just noticed that I still have the file on my account that I sent to 
the ftp site.  Here ya go.

   _/  _/  _/  _/  _/_/    _/_/      _/_/     _/_/_/    _/_/   _/_/  _/
   _/  _/  _/  _/  _/ _/   _/ _/    _/  _/  _/_/   _/  _/  _/  _/ _/ _/
   _/_/_/   _/_/   _/  _/  _/_/    _/_//_/  _/         _/  _/  _/ _/ _/
   _/  _/    _/    _/  _/  _/ _/   _/   _/  _/  _/_/   _/  _/  _/  _/_/
   _/  _/    _/    _/__/   _/  _/  _/   _/   _/_/_/     _/_/   _/   _/_



ACMD(do_sac)
{
  struct obj_data *obj;

  one_argument(argument, buf);

  if (*buf) {
    if ((obj = get_obj_in_list_vis(ch, buf, world[ch->in_room].contents)) &&
       (CAN_WEAR(obj, ITEM_WEAR_TAKE))) {
      act("$n sacrifices $p.", FALSE, ch, obj, 0, TO_ROOM);
      act("You sacrifice $p to your god.", FALSE, ch, obj, 0, TO_CHAR);
      extract_obj(obj);
    } else if (!(CAN_WEAR(obj, ITEM_WEAR_TAKE))) {
        send_to_char("You can't sacrifice that!\r\n", ch);
    }
  } else 
    send_to_char("Sacrifice what?\r\n", ch);
  return;
}
+-----------------------------------------------------------+
| Ensure that you have read the CircleMUD Mailing List FAQ: |
|   http://cspo.queensu.ca/~fletcher/Circle/list_faq.html   |
+-----------------------------------------------------------+



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