Re:demon_summon spec_proc

From: Daniel Durnin (durnin@popmail.dircon.co.uk)
Date: 01/15/97


I have no idea if this is the sort of thing you want, but take a look and
check if there's anything in there that can help you. Personally, I'm sure
some of the more advanced coders will come up with something more simple;)

Where you've got the cases for the demons to be summoned:

SPECIAL(Instructor);

 else {
    for (tch = world[instructor->in_room].people; tch; tch =
tch->next_in_room) {
      if (IS_NPC(tch))
        if ((GET_MOB_VNUM(tch) == 11118) || (GET_MOB_VNUM(tch) == 11119)) {
           return (FALSE);
        } else {
           r_num =
(world[world[world[world[ch->in_room].dir_option[2]->to_room].dir_option[2]-
>
           to_room].dir_option[2]->to_room].dir_option[2]->to_room);
           for (tch = world[r_num].people; tch; tch = tch->next_in_room)
              if (IS_NPC(tch))
                if ((GET_MOB_VNUM(tch) == 11118) && !FIGHTING(tch)) {
                   sprintf(shout, "Robots!! Come to my aid!");
                   do_gen_comm(instructor, shout, 0, SCMD_SHOUT);
                   char_from_room(tch);
                   char_to_room(tch, instructor->in_room);
                   act("A Huge Combat Robot has arrived.", FALSE, instructor, 0,
                   ch, TO_ROOM);
                   hit(tch, FIGHTING(instructor), TYPE_UNDEFINED);
                }
           r_num = (world[r_num].dir_option[2]->to_room);
           for (tch = world[r_num].people; tch; tch = tch->next_in_room)
              if (IS_NPC(tch))
                if ((GET_MOB_VNUM(tch) == 11119) && !FIGHTING(tch)) {
                   sprintf(shout, "Robots!! Come to my aid!");
                   do_gen_comm(clean, shout, 0, SCMD_SHOUT);
                   char_from_room(tch);
                   char_to_room(tch, instructor->in_room);
                   act("A Combat Robot has arrived.", FALSE, instructor, 0, ch,
                   TO_ROOM);
                   hit(tch, FIGHTING(instructor), TYPE_UNDEFINED);
                }
           return(TRUE);



Daniel Durnin

<I'm best at what I do worst, and for this gift I feel blessed.>
   - Kurt Cobain


+-----------------------------------------------------------+
| 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