[code][snippet] elevators and do_push

From: Scott Warren (dswarren@MAIL.CLT.BELLSOUTH.NET)
Date: 08/19/97

Hi all,

        Here's a little snippet I did for Reimsmud last spring. I used the extra
descripts in
a room to create an elevator, along with a new command 'do_push' for things
like 'push button'.
I think this code will just drop in. Just need to add the following:
                        do_push in interpreter.c
                        ROOM_ELEVATOR and ROOM_ENTRANCE flags in structs.h and
                                other places (olc, flag name arrays, etc)

Now you are ready to create an elevator. I think the current code has fixed
directions. East goes
into an elevator, west exits the elevator. That would be easy to change
though (Reimsmud never
really opened so I got very little feedback on this stuff). Create a
room with an extra description keyword VNUM_e
The extra description associated with that keyword should contain the VNUM
of the room that is
the 'inside' of the elevator.
Create the other rooms that the elevator can visit. Higher VNUMS are
considered 'up' so keep
that in
At this point create the elevator room and flag it as ROOM_ELEVATOR.
Be sure to put in the elevator's description some type of panel with
labelled buttons.
Use the extra description keywords to define which button goes to what room
(similar to above).
Example, you want 'button one' to goto room 1202. You have a keyword 'one'
and the extra desc.
is '1202'.

To use:
 calling an elevator is done by 'push button' in a ROOM_ENTRANCE
 inside, going to a room is done by 'push button one' in the ROOM_ELEVATOR

I think (trying to remember) you should set up the elevator as being open to
a room when the
I think there was some other problem the builders were having with it too.
Can't remember what
was (I would create an example to show builders and that example worked fine).

Good luck and Happy Mudding.

Scott Warren

/* ************************************************************************
Winter/Spring 1997
Some new commands by DSW
************************************************************************ */
  char *desc;
  int room_boundary, old_room;
  char arg1[MAX_STRING_LENGTH];
  char arg2[MAX_STRING_LENGTH];

  two_arguments(argument, arg1, arg2);

  if (!*arg1) {
    send_to_char("Push what?\r\n", ch);
/* a list of valid push words and their results
  push button checks for room type
  currently only works for elevators
  if(!str_cmp(arg1,"button") && ROOM_FLAGGED(ch->in_room, ROOM_ELEVATOR))
     if((desc = find_exdesc(arg2, world[ch->in_room].ex_description)))
      room_boundary = atoi(desc);
      old_room = world[ch->in_room].dir_option[3]->to_room;
      if(world[old_room].number < room_boundary)
      act("$n pushes the button and the elevator moves upward", TRUE,
                   ch, 0, 0, TO_ROOM);
      send_to_char("You push the button and the elevator moves upward.\r\n",
      } else if(world[old_room].number > room_boundary)
      act("$n pushes the button and the elevator moves downward", TRUE,
                   ch, 0, 0, TO_ROOM);
       send_to_char("You push the button and the elevator moves
downward.\r\n", ch);
      world[old_room].dir_option[1]->to_room = -1;
      world[ch->in_room].dir_option[3]->to_room =
      world[real_room(room_boundary)].dir_option[1]->to_room = ch->in_room;
      send_to_char("Error in this elevator.\r\n", ch);

  if(!str_cmp(arg1,"button") && ROOM_FLAGGED(ch->in_room, ROOM_ENTRANCE))
     if((desc = find_exdesc("VNUM_e", world[ch->in_room].ex_description)))

      room_boundary = atoi(desc);
      if(world[ch->in_room].dir_option[1]->to_room == real_room(room_boundary))
        send_to_char("The elevator is already here!\r\n", ch);
      old_room = world[real_room(room_boundary)].dir_option[3]->to_room;
      world[old_room].dir_option[1]->to_room = -1;
      world[real_room(room_boundary)].dir_option[3]->to_room =
      world[ch->in_room].dir_option[1]->to_room = real_room(room_boundary);
      send_to_char("The elevator has arrived.\r\n", ch);
     send_to_char("You see nothing to push here.\r\n", ch);

     | 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