/***************************************************************************
* 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. *
* *
* Ack 2.2 improvements copyright (C) 1994 by Stephen Dooley *
* *
* 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. *
* *
* _/ _/_/_/ _/ _/ _/ ACK! MUD is modified *
* _/_/ _/ _/ _/ _/ Merc2.0/2.1/2.2 code *
* _/ _/ _/ _/_/ _/ (c)Stephen Zepp 1998 *
* _/_/_/_/ _/ _/ _/ Version #: 4.3 *
* _/ _/ _/_/_/ _/ _/ _/ *
* *
* http://ackmud.nuc.net/ *
* zenithar@ackmud.nuc.net *
* 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. *
***************************************************************************/
/***************************************************************************
* _/_/_/_/ _/ _/ _/_/_/_/ _/_/_/_/ AckFUSS is modified ACK!MUD 4.3.1 *
* _/ _/ _/ _/ _/ copyright Matt Goff (Kline) 2008 *
* _/_/ _/ _/ _/_/_/_/ _/_/_/_/ *
* _/ _/ _/ _/ _/ Support for this code is provided *
* _/ _/_/_/_/ _/_/_/_/ _/_/_/_/ at www.ackmud.net -- check it out!*
***************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <assert.h>
#include <unistd.h>
#include <string.h>
#include "globals.h"
#ifndef DEC_COMM_H
#include "h/comm.h"
#endif
const char wizutil_id[] = "$Id: wizutil.c,v 1.6 1996/01/04 21:30:45 root Exp root $";
/*
===========================================================================
This snippet was written by Erwin S. Andreasen, 4u2@aabc.dk. You may use
this code freely, as long as you retain my name in all of the files. You
also have to mail me telling that you are using it. I am giving this,
hopefully useful, piece of source code to you for free, and all I require
from you is some feedback.
Please mail me if you find any bugs or have any new ideas or just comments.
All my snippets are publically available at:
http://pip.dknet.dk/~pip1773/
If you do not have WWW access, try ftp'ing to pip.dknet.dk and examine
the /pub/pip1773 directory.
===========================================================================
Various administrative utility commands.
Version: 3 - Last update: January 1996.
To use these 2 commands you will have to add a filename field to AREA_DATA.
This value can be found easily in load_area while booting - the filename
of the current area boot_db is reading from is in the strArea global.
Since version 2 following was added:
A rename command which renames a player. Search for do_rename to see
more info on it.
A FOR command which executes a command at/on every player/mob/location.
Fixes since last release: None.
*/
/* To have VLIST show more than vnum 0 - 9900, change the number below: */
#define MAX_SHOW_VNUM 326 /* show only 1 - 100*100 */
#define NUL '\0'
/* opposite directions */
const short opposite_dir[6] = { DIR_SOUTH, DIR_WEST, DIR_NORTH, DIR_EAST, DIR_DOWN, DIR_UP };
/* get the 'short' name of an area (e.g. MIDGAARD, MIRROR etc. */
/* assumes that the filename saved in the AREA_DATA struct is something like midgaard.are */
char *area_name( AREA_DATA * pArea )
{
static char buffer[64]; /* short filename */
char *period;
assert( pArea != NULL );
strncpy( buffer, pArea->filename, 64 ); /* copy the filename */
period = strchr( buffer, '.' ); /* find the period (midgaard.are) */
if( period ) /* if there was one */
*period = '\0'; /* terminate the string there (midgaard) */
return buffer;
}
typedef enum
{ exit_from, exit_to, exit_both } exit_status;
/* depending on status print > or < or <> between the 2 rooms */
void room_pair( ROOM_INDEX_DATA * left, ROOM_INDEX_DATA * right, exit_status ex, char *buffer )
{
char *sExit;
switch ( ex )
{
default:
sExit = "??";
break; /* invalid usage */
case exit_from:
sExit = "< ";
break;
case exit_to:
sExit = " >";
break;
case exit_both:
sExit = "<>";
break;
}
snprintf( buffer, sizeof(buffer), "%5d %-26.26s %s%5d %-26.26s(%-8.8s)\n\r",
left->vnum, left->name, sExit, right->vnum, right->name, area_name( right->area ) );
}
/* for every exit in 'room' which leads to or from pArea but NOT both, print it */
void checkexits( ROOM_INDEX_DATA * room, AREA_DATA * pArea, char *buffer )
{
char buf[MAX_STRING_LENGTH];
int i;
EXIT_DATA *exit;
ROOM_INDEX_DATA *to_room;
strcpy( buffer, "" );
for( i = 0; i < 6; i++ )
{
exit = room->exit[i];
if( !exit )
continue;
else
to_room = exit->to_room;
if( to_room ) /* there is something on the other side */
{
if( ( room->area == pArea ) && ( to_room->area != pArea ) )
{ /* an exit from our area to another area */
/*
* check first if it is a two-way exit
*/
if( to_room->exit[opposite_dir[i]] && to_room->exit[opposite_dir[i]]->to_room == room )
room_pair( room, to_room, exit_both, buf ); /* <> */
else
room_pair( room, to_room, exit_to, buf ); /* > */
strncat( buffer, buf, MSL );
}
else if( ( room->area != pArea ) && ( exit->to_room->area == pArea ) )
{ /* an exit from another area to our area */
if( !( to_room->exit[opposite_dir[i]] && to_room->exit[opposite_dir[i]]->to_room == room ) )
/*
* two-way exits are handled in the other if
*/
{
room_pair( to_room, room, exit_from, buf );
strncat( buffer, buf, MSL );
}
} /* if room->area */
}
} /* for */
}
/* for now, no arguments, just list the current area */
void do_exlist( CHAR_DATA * ch, char *argument )
{
AREA_DATA *pArea;
ROOM_INDEX_DATA *room;
int i;
char buffer[MAX_STRING_LENGTH];
pArea = ch->in_room->area; /* this is the area we want info on */
for( i = 0; i < MAX_KEY_HASH; i++ ) /* room index hash table */
for( room = room_index_hash[i]; room != NULL; room = room->next )
/*
* run through all the rooms on the MUD
*/
{
checkexits( room, pArea, buffer );
send_to_char( buffer, ch );
}
}
/* show a list of all used VNUMS */
#define COLUMNS 5 /* number of columns */
#define MAX_ROW ((MAX_SHOW_VNUM / COLUMNS)+1) /* rows */
void do_vlist( CHAR_DATA * ch, char *argument )
{
int i, j, vnum;
ROOM_INDEX_DATA *room;
char buffer[MAX_ROW * 100]; /* should be plenty */
char buf2[100];
for( i = 0; i < MAX_ROW; i++ )
{
strcpy( buffer, "" ); /* clear the buffer for this row */
for( j = 0; j < COLUMNS; j++ ) /* for each column */
{
vnum = ( ( j * MAX_ROW ) + i ); /* find a vnum whih should be there */
if( vnum < MAX_SHOW_VNUM )
{
room = get_room_index( vnum * 100 + 1 ); /* each zone has to have a XXX01 room */
snprintf( buf2, 100, "%3d %-8.8s ", vnum, room ? area_name( room->area ) : "-" );
/*
* something there or unused ?
*/
strncat( buffer, buf2, MSL );
}
} /* for columns */
send_to_char( buffer, ch );
send_to_char( "\n\r", ch );
} /* for rows */
}
/*
* do_rename renames a player to another name.
* PCs only. Previous file is deleted, if it exists.
* Char is then saved to new file.
* New name is checked against std. checks, existing offline players and
* online players.
* .gz files are checked for too, just in case.
*/
void do_rename( CHAR_DATA * ch, char *argument )
{
char old_name[MAX_INPUT_LENGTH], new_name[MAX_INPUT_LENGTH], strsave[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
FILE *file;
argument = one_argument( argument, old_name ); /* find new/old name */
one_argument( argument, new_name );
/*
* Trivial checks
*/
if( !old_name[0] )
{
send_to_char( "Rename who?\n\r", ch );
return;
}
victim = get_char_world( ch, old_name );
if( !victim )
{
send_to_char( "There is no such a person online.\n\r", ch );
return;
}
if( IS_NPC( victim ) )
{
send_to_char( "You cannot use Rename on NPCs.\n\r", ch );
return;
}
/*
* allow rename self new_name,but otherwise only lower level
*/
if( ( victim != ch ) && ( get_trust( victim ) >= get_trust( ch ) ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
if( !victim->desc || ( victim->desc->connected != CON_PLAYING ) )
{
send_to_char( "This player has lost his link or is inside a pager or the like.\n\r", ch );
return;
}
if( !new_name[0] )
{
send_to_char( "Rename to what new name?\n\r", ch );
return;
}
/*
* Insert check for clan here!!
*/
/*
*
* if (victim->clan)
* {
* send_to_char ("This player is member of a clan, remove him from there first.\n\r",ch);
* return;
* }
*/
if( !check_parse_name( new_name ) )
{
send_to_char( "The new name is illegal.\n\r", ch );
return;
}
/*
* First, check if there is a player named that off-line
*/
#if !defined(machintosh) && !defined(MSDOS)
snprintf( strsave, MIL, "%s%s%s%s", PLAYER_DIR, initial( new_name ), "/", capitalize( new_name ) );
#else
snprintf( strsave, MIL, "%s%s", PLAYER_DIR, capitalize( new_name ) );
#endif
file = file_open( strsave, "r" ); /* attempt to to open pfile */
if( file )
{
send_to_char( "A player with that name already exists!\n\r", ch );
file_close( file );
return;
}
file_close( file );
/*
* Check .gz file !
*/
#if !defined(machintosh) && !defined(MSDOS)
snprintf( strsave, MIL, "%s%s%s%s.gz", PLAYER_DIR, initial( new_name ), "/", capitalize( new_name ) );
#else
snprintf( strsave, MIL, "%s%s.gz", PLAYER_DIR, capitalize( new_name ) );
#endif
file = file_open( strsave, "r" ); /* attempt to to open pfile */
if( file )
{
send_to_char( "A player with that name already exists in a compressed file!\n\r", ch );
file_close( file );
return;
}
file_close( file );
if( get_char_world( ch, new_name ) ) /* check for playing level-1 non-saved */
{
send_to_char( "A player with the name you specified already exists!\n\r", ch );
return;
}
/*
* Save the filename of the old name
*/
#if !defined(machintosh) && !defined(MSDOS)
snprintf( strsave, MIL, "%s%s%s%s", PLAYER_DIR, initial( victim->name ), "/", capitalize( victim->name ) );
#else
snprintf( strsave, MIL, "%s%s", PLAYER_DIR, capitalize( victim->name ) );
#endif
/*
* Rename the character and save him to a new file
*/
/*
* NOTE: Players who are level 1 do NOT get saved under a new name
*/
free_string( victim->name );
victim->name = str_dup( capitalize( new_name ) );
save_char_obj( victim );
/*
* unlink the old file
*/
unlink( strsave ); /* unlink does return a value.. but we do not care */
/*
* That's it!
*/
send_to_char( "Character renamed.\n\r", ch );
victim->position = POS_STANDING; /* I am laaazy */
act( "$n has renamed you to $N!", ch, NULL, victim, TO_VICT );
} /* do_rename */
/* Super-AT command:
FOR ALL <action>
FOR MORTALS <action>
FOR GODS <action>
FOR MOBS <action>
FOR EVERYWHERE <action>
Executes action several times, either on ALL players (not including yourself),
MORTALS (including trusted characters), GODS (characters with level higher than
L_HERO), MOBS (Not recommended) or every room (not recommended either!)
If you insert a # in the action, it will be replaced by the name of the target.
If # is a part of the action, the action will be executed for every target
in game. If there is no #, the action will be executed for every room containg
at least one target, but only once per room. # cannot be used with FOR EVERY-
WHERE. # can be anywhere in the action.
Example:
FOR ALL SMILE -> you will only smile once in a room with 2 players.
FOR ALL TWIDDLE # -> In a room with A and B, you will twiddle A then B.
Destroying the characters this command acts upon MAY cause it to fail. Try to
avoid something like FOR MOBS PURGE (although it actually works at my MUD).
FOR MOBS TRANS 3054 (transfer ALL the mobs to Midgaard temple) does NOT work
though :)
The command works by transporting the character to each of the rooms with
target in them. Private rooms are not violated.
*/
/* Expand the name of a character into a string that identifies THAT
character within a room. E.g. the second 'guard' -> 2. guard
*/
#if 0
const char *name_expand( CHAR_DATA * ch )
{
int count = 1;
CHAR_DATA *rch;
char name[MAX_INPUT_LENGTH]; /* HOPEFULLY no mob has a name longer than THAT */
static char outbuf[MAX_INPUT_LENGTH];
if( !IS_NPC( ch ) )
return ch->name;
one_argument( ch->name, name ); /* copy the first word into name */
if( !name[0] ) /* weird mob .. no keywords */
{
strcpy( outbuf, "" ); /* Do not return NULL, just an empty buffer */
return outbuf;
}
for( rch = ch->in_room->first_person; rch && ( rch != ch ); rch = rch->next_in_room )
if( is_name( name, rch->name ) )
count++;
snprintf( outbuf, MIL, "%d.%s", count, name );
return outbuf;
}
#endif