Gate spell [CODE]

From: Jeremy Maloney (
Date: 06/18/00

Hey all, I'm still after several months fiddling with this damnable
gate spell I coded in and I need an idea as to what to put in to
remove or purge the gate once you enter it. Mind you this is a spell.
The primary function of the spell is of course to open a gate to a
location and then after those who want to enter, enter the gate,
and the caster steps through, the gate should immediately vanish.

This is taken from my spells.c file:

#define PORTAL_OBJ  20   /* the vnum of the portal object */
  struct obj_data *portal, *tportal;
  struct extra_descr_data *new_descr, *new_tdescr;
  char buf[80];

  if (ch == NULL || victim == NULL)

  /* create the portal */
  portal = read_object(PORTAL_OBJ, VIRTUAL);
  GET_OBJ_VAL(portal, 0) = victim->in_room;
  GET_OBJ_TIMER(portal) = (int) (GET_LEVEL(ch) / 10);
  CREATE(new_descr, struct extra_descr_data, 1);
  new_descr->keyword = str_dup("portal gate gateway");
  sprintf(buf, "You can barely make out %s.",
  new_descr->description = str_dup(buf);
  new_descr->next = portal->ex_description;
  portal->ex_description = new_descr;
  obj_to_room(portal, ch->in_room);
act("$n conjures a gateway out of thin air.",
       TRUE, ch, 0, 0, TO_ROOM);
  act("You conjure a gateway out of thin air.",
       TRUE, ch, 0, 0, TO_CHAR);
  /* create the portal at the other end */
  tportal = read_object(PORTAL_OBJ, VIRTUAL);
  GET_OBJ_VAL(tportal, 0) = ch->in_room;
  GET_OBJ_TIMER(tportal) = (int) (GET_LEVEL(ch) / 15);
  CREATE(new_tdescr, struct extra_descr_data, 1);
  new_tdescr->keyword = str_dup("portal gate gateway");
  sprintf(buf, "You can barely make out %s.", world[ch->in_room].name);
  new_tdescr->description = str_dup(buf);
  new_tdescr->next = tportal->ex_description;
  tportal->ex_description = new_tdescr;
  obj_to_room(tportal, victim->in_room);
  act("A glowing gateway appears out of thin air.",
       TRUE, victim, 0, 0, TO_ROOM);
  act("A glowing gateway opens here for you.",
       TRUE, victim, 0, 0, TO_CHAR);


     | Ensure that you have read the CircleMUD Mailing List FAQ:  |
     |  |

This archive was generated by hypermail 2b30 : 04/10/01 PDT