/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvements 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 *
* benefiting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <assert.h>
#include <unistd.h>
#include <string.h>
#include "merc.h"
#include "interp.h"
#include "tables.h"
#include "recycle.h"
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, erwin@andreasen.org. 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://www.andreasen.org/
===========================================================================
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 99 /* show only 1 - 100*100 */
#define NUL '\0'
extern ROOM_INDEX_DATA *room_index_hash[MAX_KEY_HASH]; /* db.c */
/* opposite directions */
const sh_int 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->file_name, 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;
}
sprintf (buffer, "%5ld %-26.26s %s%5ld %-26.26s(%-8.8s)\n\r",
left->vnum, left->name,
sExit, right->vnum, right->name, area_name (right->area));
}
/* 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 */
sprintf (buf2, "%3d %-8.8s ", vnum,
room ? area_name (room->area) : "-");
/* something there or unused ? */
strcat (buffer, buf2);
}
} /* for columns */
send_to_char (buffer, ch);
send_to_char ("\n\r", ch);
} /* for rows */
}
/* 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
*/
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->people; rch && (rch != ch); rch = rch->next_in_room)
if (is_name (name, rch->name))
count++;
sprintf (outbuf, "%d.%s", count, name);
return outbuf;
}
void
do_for (CHAR_DATA * ch, char *argument)
{
char range[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
bool fGods = FALSE, fMortals = FALSE, fMobs = FALSE, fEverywhere =
FALSE, found;
ROOM_INDEX_DATA *room, *old_room;
CHAR_DATA *p, *p_next;
int i;
argument = one_argument (argument, range);
if (!range[0] || !argument[0]) /* invalid usage? */
{
do_help (ch, "for");
return;
}
if (!str_prefix ("quit", argument))
{
send_to_char ("Are you trying to crash the MUD or something?\n\r", ch);
return;
}
if (!str_cmp (range, "all"))
{
fMortals = TRUE;
fGods = TRUE;
}
else if (!str_cmp (range, "gods"))
fGods = TRUE;
else if (!str_cmp (range, "mortals"))
fMortals = TRUE;
else if (!str_cmp (range, "mobs"))
fMobs = TRUE;
else if (!str_cmp (range, "everywhere"))
fEverywhere = TRUE;
else
do_help (ch, "for"); /* show syntax */
/* do not allow # to make it easier */
if (fEverywhere && strchr (argument, '#'))
{
send_to_char ("Cannot use FOR EVERYWHERE with the # thingie.\n\r", ch);
return;
}
if (strchr (argument, '#')) /* replace # ? */
{
for (p = char_list; p; p = p_next)
{
p_next = p->next; /* In case someone DOES try to AT MOBS SLAY # */
found = FALSE;
if (!(p->in_room) || room_is_private (p->in_room) || (p == ch))
continue;
if (IS_NPC (p) && fMobs)
found = TRUE;
else if (!IS_NPC (p) && p->level >= LEVEL_IMMORTAL && fGods)
found = TRUE;
else if (!IS_NPC (p) && p->level < LEVEL_IMMORTAL && fMortals)
found = TRUE;
/* It looks ugly to me.. but it works :) */
if (found) /* p is 'appropriate' */
{
char *pSource = argument; /* head of buffer to be parsed */
char *pDest = buf; /* parse into this */
while (*pSource)
{
if (*pSource == '#') /* Replace # with name of target */
{
const char *namebuf = name_expand (p);
if (namebuf) /* in case there is no mob name ?? */
while (*namebuf) /* copy name over */
*(pDest++) = *(namebuf++);
pSource++;
}
else
*(pDest++) = *(pSource++);
} /* while */
*pDest = '\0'; /* Terminate */
/* Execute */
old_room = ch->in_room;
char_from_room (ch);
char_to_room (ch, p->in_room);
interpret (ch, buf);
char_from_room (ch);
char_to_room (ch, old_room);
} /* if found */
} /* for every char */
}
else /* just for every room with the appropriate people in it */
{
for (i = 0; i < MAX_KEY_HASH; i++) /* run through all the buckets */
for (room = room_index_hash[i]; room; room = room->next)
{
found = FALSE;
/* Anyone in here at all? */
if (fEverywhere) /* Everywhere executes always */
found = TRUE;
else if (!room->people) /* Skip it if room is empty */
continue;
/* Check if there is anyone here of the requried type */
/* Stop as soon as a match is found or there are no more ppl in room */
for (p = room->people; p && !found; p = p->next_in_room)
{
if (p == ch) /* do not execute on oneself */
continue;
if (IS_NPC (p) && fMobs)
found = TRUE;
else if (!IS_NPC (p) && (p->level >= LEVEL_IMMORTAL) && fGods)
found = TRUE;
else if (!IS_NPC (p) && (p->level <= LEVEL_IMMORTAL)
&& fMortals)
found = TRUE;
} /* for everyone inside the room */
if (found && !room_is_private (room)) /* Any of the required type here AND room not private? */
{
/* This may be ineffective. Consider moving character out of old_room
once at beginning of command then moving back at the end.
This however, is more safe?
*/
old_room = ch->in_room;
char_from_room (ch);
char_to_room (ch, room);
interpret (ch, argument);
char_from_room (ch);
char_to_room (ch, old_room);
} /* if found */
} /* for every room in a bucket */
} /* if strchr */
} /* do_for */