[Spec Proc] Blinking Spirit

From: Alvoria MUD (mudguy@conan.ids.net)
Date: 12/11/96


Er.. previously someone posted about making more active mobs... well, a
mob assigned with this gets really hard to catch :P.

Enjoy...

  - mendar

--

SPECIAL(blinking_spirit)
{
  int new_dir,mv_ok=TRUE,next_targ=0,new_loc=FALSE;

  if(cmd)
    return (0);

  if(!AWAKE(ch))
    return (0);

  new_dir=number(0,(NUM_OF_DIRS-1));
  next_targ=ch->in_room;

  while(mv_ok)
    {
      if((world[next_targ].dir_option[new_dir]) &&
         (world[next_targ].dir_option[new_dir]->to_room != NOWHERE) &&
         (!IS_SET(world[next_targ].dir_option[new_dir]->exit_info,EX_CLOSED)))
        {
          if(!(ROOM_FLAGS(world[next_targ].dir_option[new_dir]->to_room)&
              (ROOM_DEATH | ROOM_NOMOB | ROOM_TUNNEL | ROOM_PRIVATE )))
            {
              next_targ=world[next_targ].dir_option[new_dir]->to_room;
              new_loc=TRUE;
            }
          else
            mv_ok=FALSE;
        }
      else
        mv_ok=FALSE;
    }

  if(new_loc)
    {
      char_from_room(ch);
      char_to_room(ch,next_targ);
    }

  return (1);

}

Alvoria MUD -- "Yeah... put that on those stupid fidos... :P"
  Address   -- telnet://conan.ids.net:4000/
  Homepage  -- http://users.ids.net/~mudguy/
  (under construction, perhaps not even updated for months to come)

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