Date sent:        	Wed, 16 Jul 1997 18:42:51 -0200
To:               "Liner/Nosferatu" <tgilly@teleport.com>
From:             Rick Rogers <frogers@engr.mun.ca> (by way of Rick Rogers <frogers@engr.mun.ca>)
Subject:          RCL 5: More spec examples

Well unless there are any questions, from now on I'll just be
throwing out spec examples.  If you have any requests, let
me know.

This spec will be a spec for a room.  Details follow.

--------------
/*  Here is a spec to transport mortals from a particular
room to Market Square.  It was originally written as
an object spec, but I've changed it to room for this
example.
*/

#define MRKT_SQUARE      3014
#define RANGER_ROOM      1265

int rangers_room (int room, CHAR *ch, int cmd, char *arg) {
  CHAR *vict=0,*next_vict;

  if(!ch) return FALSE;
  if(GET_LEVEL(ch)<LEVEL_IMM || IS_NPC(ch)) return FALSE;
  if(V_ROOM(ch)!= RANGER_ROOM) return FALSE;

  /* These three lines make sure a character types the
     command, makes sure the character is a god and is
     not a mob, and lastly it makes sure the character
     is in the right room. The room check is really
     redundant, but we like to play it safe
     The function V_ROOM returns the virtual room number
     the character is in. */

  if ((cmd == CMD_OPEN) && !(str_cmp(arg, " hole")) ) {

  /* First the command we want is OPEN, however we also
     want to make sure the character is opening a hole.
     This is where the str_cmp function comes in.  When
     two strings are identical, it returns 0, this means
     FALSE.  So we need the ! to change the False to True.
     This is also the first time we've looked at the arg
     variable. */

    act("You open a large hole in the floor!",FALSE,ch,0,0,TO_CHAR);
    act("$n opens a large hole in the floor!",FALSE,ch,0,0,TO_ROOM);

    /* Standard messages */

    for(vict = world[CHAR_REAL_ROOM(ch)].people; vict;vict = next_vict)
{
      next_vict = vict->next_in_room;

    /* We loop over the characters in the room */

      if(IS_MORTAL(vict) {
        act("$n falls through!",FALSE,vict,0,0,TO_ROOM);
        act("You fall through!",FALSE,vict,0,0,TO_CHAR);
        char_from_room(vict);
        char_to_room(vict, real_room(MRKT_SQUARE));
        do_look(vict,"",0);
        act("$n falls from the heavens.",0,vict,0,0,TO_ROOM);

    /* The IS_MORTAL function checks to make sure the victim
       is a player under the IMM level.

       The functions char_from_room and char_to_room are
       pretty self explanatory.  However, note we use the
       real_room function to find the current real room
       number of market square. This is impt to remember.

       Then we make the victim look at his new surroundings
       out of politeness, and tell other players at market
       square that the player has arrived. */
      } /* if mortal check */
    } /* for loop */

    return TRUE;
    /* We return true since the open command was successful and
       we want the mud to stop processing it. */

  } /* if cmd_open check */
  return FALSE;
}

void assign_immortal(void) {
   assign_room(RANGER_ROOM, ranger_room);
}

-----------------
The End

Rick (Ranger)