/*
* RAM $Id: alias.c 42 2008-11-07 13:00:29Z quixadhal $
*/
/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, 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 *
***************************************************************************/
#include <sys/types.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "strings.h"
#include "interp.h"
/* does aliasing and other fun stuff */
void substitute_alias( DESCRIPTOR_DATA *d, char *argument )
{
CHAR_DATA *ch = NULL;
char buf[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
char prefix[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char name[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *point = NULL;
int alias = 0;
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 )
ch_printf( ch, "Line to long, prefix not processed.\r\n" );
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 ) )
{
buf[0] = '\0';
strcat( buf, ch->pcdata->alias_sub[alias] );
strcat( buf, " " );
strcat( buf, point );
if ( strlen( buf ) > MAX_INPUT_LENGTH - 1 )
{
ch_printf( ch, "Alias substitution too long. Truncated.\r\n" );
buf[MAX_INPUT_LENGTH - 1] = '\0';
}
break;
}
}
}
interpret( d->character, buf );
}
void do_alia( CHAR_DATA *ch, const char *argument )
{
ch_printf( ch, "I'm sorry, alias must be entered in full.\r\n" );
return;
}
void do_alias( CHAR_DATA *ch, const char *argument )
{
CHAR_DATA *rch = NULL;
char arg[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int pos = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
strcpy( local_argument, argument );
smash_tilde( local_argument );
if ( ch->desc == NULL )
rch = ch;
else
rch = ch->desc->original ? ch->desc->original : ch;
if ( IS_NPC( rch ) )
return;
lap = one_argument( lap, arg );
if ( arg[0] == '\0' )
{
if ( rch->pcdata->alias[0] == NULL )
{
ch_printf( ch, "You have no aliases defined.\r\n" );
return;
}
ch_printf( ch, "Your current aliases are:\r\n" );
for ( pos = 0; pos < MAX_ALIAS; pos++ )
{
if ( rch->pcdata->alias[pos] == NULL || rch->pcdata->alias_sub[pos] == NULL )
break;
ch_printf( ch, " %s: %s\r\n", rch->pcdata->alias[pos],
rch->pcdata->alias_sub[pos] );
}
return;
}
if ( !str_prefix( "una", arg ) || !str_cmp( "alias", arg ) )
{
ch_printf( ch, "Sorry, that word is reserved.\r\n" );
return;
}
if ( lap[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] ) )
{
ch_printf( ch, "%s aliases to '%s'.\r\n", rch->pcdata->alias[pos],
rch->pcdata->alias_sub[pos] );
return;
}
}
ch_printf( ch, "That alias is not defined.\r\n" );
return;
}
if ( !str_prefix( lap, "delete" ) || !str_prefix( lap, "prefix" ) )
{
ch_printf( ch, "That shall not be done!\r\n" );
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( lap );
ch_printf( ch, "%s is now realiased to '%s'.\r\n", arg, lap );
return;
}
}
if ( pos >= MAX_ALIAS )
{
ch_printf( ch, "Sorry, you have reached the alias limit.\r\n" );
return;
}
/*
* make a new alias
*/
rch->pcdata->alias[pos] = str_dup( arg );
rch->pcdata->alias_sub[pos] = str_dup( lap );
ch_printf( ch, "%s is now aliased to '%s'.\r\n", arg, lap );
}
void do_unalias( CHAR_DATA *ch, const char *argument )
{
CHAR_DATA *rch = NULL;
char arg[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int pos = 0;
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' )
{
ch_printf( ch, "Unalias what?\r\n" );
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] ) )
{
ch_printf( ch, "Alias removed.\r\n" );
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 )
ch_printf( ch, "No alias of that name to remove.\r\n" );
}