On Fri, 7 Nov 1997, Ben Britton wrote:
> Could someone give me a hint on how to code a special program so that if
> a character says something the mob will transport them to a corresponding
> location? I've check all the documents, and the ftp sites for hints but
> came up with nothing.
>
I'm in a good mood, and this sound like something neat to code, so here
it is. :) I haven't tested it fully, but it seems fairly straightforward.
Keep in mind that this is all mailer code and may not work at all. :)
As far as coding special procedures.... There really isn't a helpfile or
much documentation on HOW to do it other than the existing code.
Unforunately, RTFC on spec_procs in kinda hard for the first time around
coder.
Maybe I'll spend some time and make a spec_proc.doc for future bpls.
Anyone out there think that that would be handy to have in existance or
just a waste of time. (Please refrain from the snide remarks about it's
only good IF it is read. I realize that some people skip the docs and hit
the list with dumb Q's, but this way we can tell them RTFM or RTFD
Anyways.... Here's the proc. :) Enjoy it and all I ask is that you give
me credit for it somewhere in the MUD. (Like in lib/text/credits) Heck,
you should really give credit to the authors of any and all snippets and
patches that you use just to be nice about it and all. :)
SPECIAL(mob_tele)
{
if (IS_NPC(ch) || !CMD_IS("say"))
return 0;
skip_spaces(&argument);
if (!*argument)
return 0;
if (str_cmp(argument, "teleport"))
return 0;
act("$n points at $N and $E suddenly vanishes!",
FALSE, me, 0, ch, TO_NOTVICT);
act("You point at $N and $E suddenly vanishes!",
FALSE, me, 0, ch, TO_CHAR);
act("$n points at you!", FALSE, me, 0, ch, TO_VICT);
char_from_room(ch);
char_to_room(ch, 3001); /* take them to the stock mortal start room */
look_at_room(ch, FALSE);
act("$n suddenly appears in the room.", TRUE, ch, 0, 0, TO_ROOM);
return 1;
}
John Evans <evansj@hi-line.net>
May the source be with you.
+------------------------------------------------------------+
| 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