/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik Strfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
**************************************************************************/
/***************************************************************************
* ROM 2.4 is copyright 1993-1998 Russ Taylor *
* ROM has been brought to you by the ROM consortium *
* Russ Taylor (rtaylor@hypercube.org) *
* Gabrielle Taylor (gtaylor@hypercube.org) *
* Brian Moore (zump@rom.org) *
* By using this code, you have agreed to follow the terms of the *
* ROM license, in the file Rom24/doc/rom.license *
**************************************************************************/
/* QuickMUD - The Lazy Man's ROM - $Id: alias.c,v 1.2 2000/12/01 10:48:33 ring0 Exp $ */
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "merc.h"
/* does aliasing and other fun stuff */
void substitute_alias (DESCRIPTOR_DATA * d, char *argument)
{
CHAR_DATA *ch;
char buf[MAX_STRING_LENGTH], prefix[MAX_INPUT_LENGTH],
name[MAX_INPUT_LENGTH];
char *point;
int alias;
ch = d->original ? d->original : d->character;
/* check for prefix */
if (ch->prefix[0] != '\0' && str_prefix ("prefix", argument))
{
if (strlen (ch->prefix) + strlen (argument) > MAX_INPUT_LENGTH - 2)
send_to_char ("Line to long, prefix not processed.\r\n", ch);
else
{
sprintf (prefix, "%s %s", ch->prefix, argument);
argument = prefix;
}
}
if (IS_NPC (ch) || ch->pcdata->alias[0] == NULL
|| !str_prefix ("alias", argument) || !str_prefix ("una", argument)
|| !str_prefix ("prefix", argument))
{
interpret (d->character, argument);
return;
}
strcpy (buf, argument);
for (alias = 0; alias < MAX_ALIAS; alias++)
{ /* go through the aliases */
if (ch->pcdata->alias[alias] == NULL)
break;
if (!str_prefix (ch->pcdata->alias[alias], argument))
{
point = one_argument (argument, name);
if (!strcmp (ch->pcdata->alias[alias], name))
{
/* More Edwin inspired fixes. JR -- 10/15/00 */
buf[0] = '\0';
strcat(buf,ch->pcdata->alias_sub[alias]);
if (point[0])
{
strcat(buf," ");
strcat(buf,point);
}
if (strlen (buf) > MAX_INPUT_LENGTH - 1)
{
send_to_char
("Alias substitution too long. Truncated.\r\n", ch);
buf[MAX_INPUT_LENGTH - 1] = '\0';
}
break;
}
}
}
interpret (d->character, buf);
}
void do_alia (CHAR_DATA * ch, char *argument)
{
send_to_char ("I'm sorry, alias must be entered in full.\n\r", ch);
return;
}
void do_alias (CHAR_DATA * ch, char *argument)
{
CHAR_DATA *rch;
char arg[MAX_INPUT_LENGTH], buf[MAX_STRING_LENGTH];
int pos;
smash_tilde (argument);
if (ch->desc == NULL)
rch = ch;
else
rch = ch->desc->original ? ch->desc->original : ch;
if (IS_NPC (rch))
return;
argument = one_argument (argument, arg);
if (arg[0] == '\0')
{
if (rch->pcdata->alias[0] == NULL)
{
send_to_char ("You have no aliases defined.\n\r", ch);
return;
}
send_to_char ("Your current aliases are:\n\r", ch);
for (pos = 0; pos < MAX_ALIAS; pos++)
{
if (rch->pcdata->alias[pos] == NULL
|| rch->pcdata->alias_sub[pos] == NULL)
break;
sprintf (buf, " %s: %s\n\r", rch->pcdata->alias[pos],
rch->pcdata->alias_sub[pos]);
send_to_char (buf, ch);
}
return;
}
if (!str_prefix ("una", arg) || !str_cmp ("alias", arg))
{
send_to_char ("Sorry, that word is reserved.\n\r", ch);
return;
}
/* More Edwin-inspired fixes. JR -- 10/15/00 */
if (strchr(arg,' ')||strchr(arg,'"')||strchr(arg,'\''))
{
send_to_char("The word to be aliased should not contain a space, "
"a tick or a double-quote.\n\r",ch);
return;
}
if (argument[0] == '\0')
{
for (pos = 0; pos < MAX_ALIAS; pos++)
{
if (rch->pcdata->alias[pos] == NULL
|| rch->pcdata->alias_sub[pos] == NULL)
break;
if (!str_cmp (arg, rch->pcdata->alias[pos]))
{
sprintf (buf, "%s aliases to '%s'.\n\r",
rch->pcdata->alias[pos],
rch->pcdata->alias_sub[pos]);
send_to_char (buf, ch);
return;
}
}
send_to_char ("That alias is not defined.\n\r", ch);
return;
}
if (!str_prefix (argument, "delete") || !str_prefix (argument, "prefix"))
{
send_to_char ("That shall not be done!\n\r", ch);
return;
}
for (pos = 0; pos < MAX_ALIAS; pos++)
{
if (rch->pcdata->alias[pos] == NULL)
break;
if (!str_cmp (arg, rch->pcdata->alias[pos]))
{ /* redefine an alias */
free_string (rch->pcdata->alias_sub[pos]);
rch->pcdata->alias_sub[pos] = str_dup (argument);
sprintf (buf, "%s is now realiased to '%s'.\n\r", arg, argument);
send_to_char (buf, ch);
return;
}
}
if (pos >= MAX_ALIAS)
{
send_to_char ("Sorry, you have reached the alias limit.\n\r", ch);
return;
}
/* make a new alias */
rch->pcdata->alias[pos] = str_dup (arg);
rch->pcdata->alias_sub[pos] = str_dup (argument);
sprintf (buf, "%s is now aliased to '%s'.\n\r", arg, argument);
send_to_char (buf, ch);
}
void do_unalias (CHAR_DATA * ch, char *argument)
{
CHAR_DATA *rch;
char arg[MAX_INPUT_LENGTH];
int pos;
bool found = FALSE;
if (ch->desc == NULL)
rch = ch;
else
rch = ch->desc->original ? ch->desc->original : ch;
if (IS_NPC (rch))
return;
argument = one_argument (argument, arg);
if (arg[0] == '\0')
{
send_to_char ("Unalias what?\n\r", ch);
return;
}
for (pos = 0; pos < MAX_ALIAS; pos++)
{
if (rch->pcdata->alias[pos] == NULL)
break;
if (found)
{
rch->pcdata->alias[pos - 1] = rch->pcdata->alias[pos];
rch->pcdata->alias_sub[pos - 1] = rch->pcdata->alias_sub[pos];
rch->pcdata->alias[pos] = NULL;
rch->pcdata->alias_sub[pos] = NULL;
continue;
}
if (!strcmp (arg, rch->pcdata->alias[pos]))
{
send_to_char ("Alias removed.\n\r", ch);
free_string (rch->pcdata->alias[pos]);
free_string (rch->pcdata->alias_sub[pos]);
rch->pcdata->alias[pos] = NULL;
rch->pcdata->alias_sub[pos] = NULL;
found = TRUE;
}
}
if (!found)
send_to_char ("No alias of that name to remove.\n\r", ch);
}