/*
 * RAM $Id: interp.c 66 2009-01-05 00:18:53Z 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 <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#include "merc.h"
#include "strings.h"
#include "random.h"
#include "db.h"
#include "act.h"
#include "interp.h"

/*
 * Command logging types.
 */
#define LOG_NORMAL        0
#define LOG_ALWAYS        1
#define LOG_NEVER         2

/*
 * Log-all switch.
 */
bool                    fLogAll = false;

/*
 * Command table.
 */
const struct cmd_type   cmd_table[] = {
    /*
     * Common movement commands.
     */
    {"north", do_north, POS_STANDING, 0, LOG_NEVER, 0},
    {"east", do_east, POS_STANDING, 0, LOG_NEVER, 0},
    {"south", do_south, POS_STANDING, 0, LOG_NEVER, 0},
    {"west", do_west, POS_STANDING, 0, LOG_NEVER, 0},
    {"up", do_up, POS_STANDING, 0, LOG_NEVER, 0},
    {"down", do_down, POS_STANDING, 0, LOG_NEVER, 0},

    /*
     * Common other commands.
     * Placed here so one and two letter abbreviations work.
     */
    {"at", do_at, POS_DEAD, L6, LOG_NORMAL, 1},
    {"cast", do_cast, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"auction", do_auction, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"buy", do_buy, POS_RESTING, 0, LOG_NORMAL, 1},
    {"channels", do_channels, POS_DEAD, 0, LOG_NORMAL, 1},
    {"exits", do_exits, POS_RESTING, 0, LOG_NORMAL, 1},
    {"get", do_get, POS_RESTING, 0, LOG_NORMAL, 1},
    {"goto", do_goto, POS_DEAD, L8, LOG_NORMAL, 1},
    {"group", do_group, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"guild", do_guild, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"hit", do_kill, POS_FIGHTING, 0, LOG_NORMAL, 0},
    {"inventory", do_inventory, POS_DEAD, 0, LOG_NORMAL, 1},
    {"kill", do_kill, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"look", do_look, POS_RESTING, 0, LOG_NORMAL, 1},
    {"clan", do_clantalk, POS_SLEEPING, 0, LOG_NORMAL, 1},
/*  { "music",          do_music,           POS_SLEEPING,    0,  LOG_NORMAL, 1 }, */
    {"order", do_order, POS_RESTING, 0, LOG_NORMAL, 1},
    {"practice", do_practice, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"rest", do_rest, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"sit", do_sit, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"sockets", do_sockets, POS_DEAD, L4, LOG_NORMAL, 1},
    {"stand", do_stand, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"tell", do_tell, POS_RESTING, 0, LOG_NORMAL, 1},
    {"unlock", do_unlock, POS_RESTING, 0, LOG_NORMAL, 1},
    {"wield", do_wear, POS_RESTING, 0, LOG_NORMAL, 1},
    {"wizhelp", do_wizhelp, POS_DEAD, IM, LOG_NORMAL, 1},

    /*
     * Informational commands.
     */
    {"affects", do_affects, POS_DEAD, 0, LOG_NORMAL, 1},
    {"areas", do_areas, POS_DEAD, 0, LOG_NORMAL, 1},
    {"bug", do_bug, POS_DEAD, 0, LOG_NORMAL, 1},
    {"changes", do_changes, POS_DEAD, 0, LOG_NORMAL, 1},
    {"commands", do_commands, POS_DEAD, 0, LOG_NORMAL, 1},
    {"compare", do_compare, POS_RESTING, 0, LOG_NORMAL, 1},
    {"consider", do_consider, POS_RESTING, 0, LOG_NORMAL, 1},
    {"count", do_count, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"credits", do_credits, POS_DEAD, 0, LOG_NORMAL, 1},
    {"equipment", do_equipment, POS_DEAD, 0, LOG_NORMAL, 1},
    {"examine", do_examine, POS_RESTING, 0, LOG_NORMAL, 1},
/*  { "groups",                do_groups,        POS_SLEEPING,         0,  LOG_NORMAL, 1 }, */
    {"help", do_help, POS_DEAD, 0, LOG_NORMAL, 1},
    {"idea", do_idea, POS_DEAD, 0, LOG_NORMAL, 1},
    {"info", do_groups, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"motd", do_motd, POS_DEAD, 0, LOG_NORMAL, 1},
    {"news", do_news, POS_DEAD, 0, LOG_NORMAL, 1},
    {"read", do_read, POS_RESTING, 0, LOG_NORMAL, 1},
    {"report", do_report, POS_RESTING, 0, LOG_NORMAL, 1},
    {"rules", do_rules, POS_DEAD, 0, LOG_NORMAL, 1},
    {"score", do_score, POS_DEAD, 0, LOG_NORMAL, 1},
    {"skills", do_skills, POS_DEAD, 0, LOG_NORMAL, 1},
    {"socials", do_socials, POS_DEAD, 0, LOG_NORMAL, 1},
    {"show", do_show, POS_DEAD, 0, LOG_NORMAL, 1},
    {"spells", do_spells, POS_DEAD, 0, LOG_NORMAL, 1},
    {"story", do_story, POS_DEAD, 0, LOG_NORMAL, 1},
    {"time", do_time, POS_DEAD, 0, LOG_NORMAL, 1},
    {"typo", do_typo, POS_DEAD, 0, LOG_NORMAL, 1},
    {"weather", do_weather, POS_RESTING, 0, LOG_NORMAL, 1},
    {"who", do_who, POS_DEAD, 0, LOG_NORMAL, 1},
    {"whois", do_whois, POS_DEAD, 0, LOG_NORMAL, 1},
    {"wizlist", do_wizlist, POS_DEAD, 0, LOG_NORMAL, 1},
    {"worth", do_worth, POS_SLEEPING, 0, LOG_NORMAL, 1},

    /*
     * Configuration commands.
     */
    {"alia", do_alia, POS_DEAD, 0, LOG_NORMAL, 0},
    {"alias", do_alias, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autolist", do_autolist, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autoassist", do_autoassist, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autoexit", do_autoexit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autogold", do_autogold, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autoloot", do_autoloot, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autosac", do_autosac, POS_DEAD, 0, LOG_NORMAL, 1},
    {"autosplit", do_autosplit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"brief", do_brief, POS_DEAD, 0, LOG_NORMAL, 1},
/*  { "channels",        do_channels,        POS_DEAD,         0,  LOG_NORMAL, 1 }, */
    {"combine", do_combine, POS_DEAD, 0, LOG_NORMAL, 1},
    {"compact", do_compact, POS_DEAD, 0, LOG_NORMAL, 1},
    {"description", do_description, POS_DEAD, 0, LOG_NORMAL, 1},
    {"delet", do_delet, POS_DEAD, 0, LOG_ALWAYS, 0},
    {"delete", do_delete, POS_STANDING, 0, LOG_ALWAYS, 1},
    {"nofollow", do_nofollow, POS_DEAD, 0, LOG_NORMAL, 1},
    {"noloot", do_noloot, POS_DEAD, 0, LOG_NORMAL, 1},
    {"nosummon", do_nosummon, POS_DEAD, 0, LOG_NORMAL, 1},
    {"outfit", do_outfit, POS_RESTING, 0, LOG_NORMAL, 1},
    {"password", do_password, POS_DEAD, 0, LOG_NEVER, 1},
    {"prompt", do_prompt, POS_DEAD, 0, LOG_NORMAL, 1},
    {"scroll", do_scroll, POS_DEAD, 0, LOG_NORMAL, 1},
    {"title", do_title, POS_DEAD, 0, LOG_NORMAL, 1},
    {"unalias", do_unalias, POS_DEAD, 0, LOG_NORMAL, 1},
    {"wimpy", do_wimpy, POS_DEAD, 0, LOG_NORMAL, 1},

    /*
     * Communication commands.
     */
    {"afk", do_afk, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"answer", do_answer, POS_SLEEPING, 0, LOG_NORMAL, 1},
/*  { "auction",        do_auction,        POS_SLEEPING,         0,  LOG_NORMAL, 1 }, */
    {"deaf", do_deaf, POS_DEAD, 0, LOG_NORMAL, 1},
    {"emote", do_emote, POS_RESTING, 0, LOG_NORMAL, 1},
    {"pmote", do_pmote, POS_RESTING, 0, LOG_NORMAL, 1},
    {".", do_gossip, POS_SLEEPING, 0, LOG_NORMAL, 0},
    {"gossip", do_gossip, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {",", do_emote, POS_RESTING, 0, LOG_NORMAL, 0},
    {"grats", do_grats, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"gtell", do_gtell, POS_DEAD, 0, LOG_NORMAL, 1},
    {";", do_gtell, POS_DEAD, 0, LOG_NORMAL, 0},
/*  { "music",                do_music,        POS_SLEEPING,         0,  LOG_NORMAL, 1 }, */
    {"note", do_note, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"pose", do_pose, POS_RESTING, 0, LOG_NORMAL, 1},
    {"question", do_question, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"quote", do_quote, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"quiet", do_quiet, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"reply", do_reply, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"replay", do_replay, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"say", do_say, POS_RESTING, 0, LOG_NORMAL, 1},
    {"'", do_say, POS_RESTING, 0, LOG_NORMAL, 0},
    {"shout", do_shout, POS_RESTING, 3, LOG_NORMAL, 1},
    {"unread", do_unread, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"yell", do_yell, POS_RESTING, 0, LOG_NORMAL, 1},

    /*
     * Object manipulation commands.
     */
    {"brandish", do_brandish, POS_RESTING, 0, LOG_NORMAL, 1},
    {"close", do_close, POS_RESTING, 0, LOG_NORMAL, 1},
    {"drink", do_drink, POS_RESTING, 0, LOG_NORMAL, 1},
    {"drop", do_drop, POS_RESTING, 0, LOG_NORMAL, 1},
    {"eat", do_eat, POS_RESTING, 0, LOG_NORMAL, 1},
    {"envenom", do_envenom, POS_RESTING, 0, LOG_NORMAL, 1},
    {"fill", do_fill, POS_RESTING, 0, LOG_NORMAL, 1},
    {"give", do_give, POS_RESTING, 0, LOG_NORMAL, 1},
    {"heal", do_heal, POS_RESTING, 0, LOG_NORMAL, 1},
    {"hold", do_wear, POS_RESTING, 0, LOG_NORMAL, 1},
    {"list", do_list, POS_RESTING, 0, LOG_NORMAL, 1},
    {"lock", do_lock, POS_RESTING, 0, LOG_NORMAL, 1},
    {"open", do_open, POS_RESTING, 0, LOG_NORMAL, 1},
    {"pick", do_pick, POS_RESTING, 0, LOG_NORMAL, 1},
    {"pour", do_pour, POS_RESTING, 0, LOG_NORMAL, 1},
    {"put", do_put, POS_RESTING, 0, LOG_NORMAL, 1},
    {"quaff", do_quaff, POS_RESTING, 0, LOG_NORMAL, 1},
    {"recite", do_recite, POS_RESTING, 0, LOG_NORMAL, 1},
    {"remove", do_remove, POS_RESTING, 0, LOG_NORMAL, 1},
    {"sell", do_sell, POS_RESTING, 0, LOG_NORMAL, 1},
    {"take", do_get, POS_RESTING, 0, LOG_NORMAL, 1},
    {"sacrifice", do_sacrifice, POS_RESTING, 0, LOG_NORMAL, 1},
    {"junk", do_sacrifice, POS_RESTING, 0, LOG_NORMAL, 0},
    {"tap", do_sacrifice, POS_RESTING, 0, LOG_NORMAL, 0},
/*  { "unlock",                do_unlock,        POS_RESTING,         0,  LOG_NORMAL, 1 }, */
    {"value", do_value, POS_RESTING, 0, LOG_NORMAL, 1},
    {"wear", do_wear, POS_RESTING, 0, LOG_NORMAL, 1},
    {"zap", do_zap, POS_RESTING, 0, LOG_NORMAL, 1},

    /*
     * Combat commands.
     */
    {"backstab", do_backstab, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"bash", do_bash, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"bs", do_backstab, POS_FIGHTING, 0, LOG_NORMAL, 0},
    {"berserk", do_berserk, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"dirt", do_dirt, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"disarm", do_disarm, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"flee", do_flee, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"kick", do_kick, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"murde", do_murde, POS_FIGHTING, 0, LOG_NORMAL, 0},
    {"murder", do_murder, POS_FIGHTING, 5, LOG_ALWAYS, 1},
    {"rescue", do_rescue, POS_FIGHTING, 0, LOG_NORMAL, 0},
    {"surrender", do_surrender, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"trip", do_trip, POS_FIGHTING, 0, LOG_NORMAL, 1},

    /*
     * Mob command interpreter (placed here for faster scan...)
     */
    {"mob", do_mob, POS_DEAD, 0, LOG_NEVER, 0},

    /*
     * Miscellaneous commands.
     */
    {"enter", do_enter, POS_STANDING, 0, LOG_NORMAL, 1},
    {"follow", do_follow, POS_RESTING, 0, LOG_NORMAL, 1},
    {"gain", do_gain, POS_STANDING, 0, LOG_NORMAL, 1},
    {"go", do_enter, POS_STANDING, 0, LOG_NORMAL, 0},
/*  { "group",                do_group,        POS_SLEEPING,         0,  LOG_NORMAL, 1 }, */
    {"groups", do_groups, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"hide", do_hide, POS_RESTING, 0, LOG_NORMAL, 1},
/*  { "play",                do_play,        POS_RESTING,         0,  LOG_NORMAL, 1 }, */
/*  { "practice",        do_practice,        POS_SLEEPING,         0,  LOG_NORMAL, 1 }, */
    {"qui", do_qui, POS_DEAD, 0, LOG_NORMAL, 0},
    {"quit", do_quit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"recall", do_recall, POS_FIGHTING, 0, LOG_NORMAL, 1},
    {"/", do_recall, POS_FIGHTING, 0, LOG_NORMAL, 0},
    {"rent", do_rent, POS_DEAD, 0, LOG_NORMAL, 0},
    {"save", do_save, POS_DEAD, 0, LOG_NORMAL, 1},
    {"sleep", do_sleep, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"sneak", do_sneak, POS_STANDING, 0, LOG_NORMAL, 1},
    {"split", do_split, POS_RESTING, 0, LOG_NORMAL, 1},
    {"steal", do_steal, POS_STANDING, 0, LOG_NORMAL, 1},
    {"train", do_train, POS_RESTING, 0, LOG_NORMAL, 1},
    {"visible", do_visible, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"wake", do_wake, POS_SLEEPING, 0, LOG_NORMAL, 1},
    {"where", do_where, POS_RESTING, 0, LOG_NORMAL, 1},

    /*
     * Immortal commands.
     */
    {"advance", do_advance, POS_DEAD, ML, LOG_ALWAYS, 1},
    {"dump", do_dump, POS_DEAD, ML, LOG_ALWAYS, 0},
    {"trust", do_trust, POS_DEAD, ML, LOG_ALWAYS, 1},
    {"violate", do_violate, POS_DEAD, ML, LOG_ALWAYS, 1},

    {"allow", do_allow, POS_DEAD, L2, LOG_ALWAYS, 1},
    {"ban", do_ban, POS_DEAD, L2, LOG_ALWAYS, 1},
    {"deny", do_deny, POS_DEAD, L1, LOG_ALWAYS, 1},
    {"disconnect", do_disconnect, POS_DEAD, L3, LOG_ALWAYS, 1},
    {"flag", do_flag, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"freeze", do_freeze, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"permban", do_permban, POS_DEAD, L1, LOG_ALWAYS, 1},
    {"protect", do_protect, POS_DEAD, L1, LOG_ALWAYS, 1},
    {"reboo", do_reboo, POS_DEAD, L1, LOG_NORMAL, 0},
    {"reboot", do_reboot, POS_DEAD, L1, LOG_ALWAYS, 1},
    {"set", do_set, POS_DEAD, L2, LOG_ALWAYS, 1},
    {"shutdow", do_shutdow, POS_DEAD, L1, LOG_NORMAL, 0},
    {"shutdown", do_shutdown, POS_DEAD, L1, LOG_ALWAYS, 1},
/*  { "sockets",        do_sockets,        POS_DEAD,        L4,  LOG_NORMAL, 1 }, */
    {"wizlock", do_wizlock, POS_DEAD, L2, LOG_ALWAYS, 1},

    {"force", do_force, POS_DEAD, L7, LOG_ALWAYS, 1},
    {"load", do_load, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"newlock", do_newlock, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"nochannels", do_nochannels, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"noemote", do_noemote, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"noshout", do_noshout, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"notell", do_notell, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"pecho", do_pecho, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"pardon", do_pardon, POS_DEAD, L3, LOG_ALWAYS, 1},
    {"purge", do_purge, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"restore", do_restore, POS_DEAD, L4, LOG_ALWAYS, 1},
    {"sla", do_sla, POS_DEAD, L3, LOG_NORMAL, 0},
    {"slay", do_slay, POS_DEAD, L3, LOG_ALWAYS, 1},
    {"teleport", do_transfer, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"transfer", do_transfer, POS_DEAD, L5, LOG_ALWAYS, 1},

/*  { "at", do_at, POS_DEAD, L6,  LOG_NORMAL, 1 }, */
    {"poofin", do_bamfin, POS_DEAD, L8, LOG_NORMAL, 1},
    {"poofout", do_bamfout, POS_DEAD, L8, LOG_NORMAL, 1},
    {"gecho", do_echo, POS_DEAD, L4, LOG_ALWAYS, 1},
/*  { "goto", do_goto, POS_DEAD, L8,  LOG_NORMAL, 1 }, */
    {"holylight", do_holylight, POS_DEAD, IM, LOG_NORMAL, 1},
    {"incognito", do_incognito, POS_DEAD, IM, LOG_NORMAL, 1},
    {"invis", do_invis, POS_DEAD, IM, LOG_NORMAL, 0},
    {"log", do_log, POS_DEAD, L1, LOG_ALWAYS, 1},
    {"memory", do_memory, POS_DEAD, IM, LOG_NORMAL, 1},
    {"mwhere", do_mwhere, POS_DEAD, IM, LOG_NORMAL, 1},
    {"owhere", do_owhere, POS_DEAD, IM, LOG_NORMAL, 1},
    {"peace", do_peace, POS_DEAD, L5, LOG_NORMAL, 1},
    {"penalty", do_penalty, POS_DEAD, L7, LOG_NORMAL, 1},
    {"echo", do_recho, POS_DEAD, L6, LOG_ALWAYS, 1},
    {"return", do_return, POS_DEAD, L6, LOG_NORMAL, 1},
    {"snoop", do_snoop, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"stat", do_stat, POS_DEAD, IM, LOG_NORMAL, 1},
    {"string", do_string, POS_DEAD, L5, LOG_ALWAYS, 1},
    {"switch", do_switch, POS_DEAD, L6, LOG_ALWAYS, 1},
    {"wizinvis", do_invis, POS_DEAD, IM, LOG_NORMAL, 1},
    {"vnum", do_vnum, POS_DEAD, L4, LOG_NORMAL, 1},
    {"zecho", do_zecho, POS_DEAD, L4, LOG_ALWAYS, 1},

    {"clone", do_clone, POS_DEAD, L5, LOG_ALWAYS, 1},

    {"wiznet", do_wiznet, POS_DEAD, IM, LOG_NORMAL, 1},
    {"immtalk", do_immtalk, POS_DEAD, IM, LOG_NORMAL, 1},
    {"imotd", do_imotd, POS_DEAD, IM, LOG_NORMAL, 1},
    {":", do_immtalk, POS_DEAD, IM, LOG_NORMAL, 0},
    {"smote", do_smote, POS_DEAD, IM, LOG_NORMAL, 1},
    {"prefi", do_prefi, POS_DEAD, IM, LOG_NORMAL, 0},
    {"prefix", do_prefix, POS_DEAD, IM, LOG_NORMAL, 1},
    {"mpdump", do_mpdump, POS_DEAD, IM, LOG_NEVER, 1},
    {"mpstat", do_mpstat, POS_DEAD, IM, LOG_NEVER, 1},

    /*
     * OLC
     */
    {"edit", do_olc, POS_DEAD, 0, LOG_NORMAL, 1},
    {"asave", do_asave, POS_DEAD, 0, LOG_NORMAL, 1},
    {"alist", do_alist, POS_DEAD, 0, LOG_NORMAL, 1},
    {"resets", do_resets, POS_DEAD, 0, LOG_NORMAL, 1},
    {"redit", do_redit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"medit", do_medit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"aedit", do_aedit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"oedit", do_oedit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"mpedit", do_mpedit, POS_DEAD, 0, LOG_NORMAL, 1},
    {"hedit", do_hedit, POS_DEAD, 0, LOG_NORMAL, 1},

    /*
     * End of list.
     */
    {"", 0, POS_DEAD, 0, LOG_NORMAL, 0}
};

/*
 * The main entry point for executing commands.
 * Can be recursively called from 'at', 'order', 'force'.
 */
void interpret( CHAR_DATA *ch, const char *argument )
{
    char                    command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
    char                    logline[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
    int                     cmd = 0;
    int                     trust = 0;
    bool                    found = false;

    /*
     * Strip leading spaces.
     */
    while ( isspace( *argument ) )
        argument++;
    if ( argument[0] == '\0' )
        return;

    /*
     * No hiding.
     */
    REMOVE_BIT( ch->affected_by, AFF_HIDE );

    /*
     * Implement freeze command.
     */
    if ( !IS_NPC( ch ) && IS_SET( ch->act, PLR_FREEZE ) )
    {
        ch_printf( ch, "You're totally frozen!\r\n" );
        return;
    }

    /*
     * Grab the command word.
     * Special parsing so ' can be a command,
     *   also no spaces needed after punctuation.
     */
    strcpy( logline, argument );
    if ( !isalpha( argument[0] ) && !isdigit( argument[0] ) )
    {
        command[0] = argument[0];
        command[1] = '\0';
        argument++;
        while ( isspace( *argument ) )
            argument++;
    }
    else
    {
        argument = one_argument( argument, command );
    }

    /*
     * Look for command in command table.
     */
    found = false;
    trust = get_trust( ch );
    for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
    {
        if ( command[0] == cmd_table[cmd].name[0]
             && !str_prefix( command, cmd_table[cmd].name )
             && cmd_table[cmd].level <= trust )
        {
            found = true;
            break;
        }
    }

    /*
     * Log and snoop.
     */
    if ( cmd_table[cmd].log == LOG_NEVER )
        strcpy( logline, "" );

    if ( ( !IS_NPC( ch ) && IS_SET( ch->act, PLR_LOG ) )
         || fLogAll || cmd_table[cmd].log == LOG_ALWAYS )
    {
        log_auth( ch, "Caught %s doing %s", NAME( ch ), logline );
        wiz_printf( ch, NULL, WIZ_SECURE, 0, get_trust( ch ),
                    "Caught %s doing %s", NAME( ch ), logline );
    }

    if ( ch->desc != NULL && ch->desc->snoop_by != NULL )
    {
        desc_printf( ch->desc->snoop_by, "%% %s\r\n", logline );
    }

    if ( !found )
    {
        /*
         * Look for command in socials table.
         */
        if ( !check_social( ch, command, argument ) )
            ch_printf( ch, "Huh?\r\n" );
        return;
    }

    /*
     * Character not in position for command?
     */
    if ( ch->position < cmd_table[cmd].position )
    {
        switch ( ch->position )
        {
            case POS_DEAD:
                ch_printf( ch, "Lie still; you are DEAD.\r\n" );
                break;

            case POS_MORTAL:
            case POS_INCAP:
                ch_printf( ch, "You are hurt far too bad for that.\r\n" );
                break;

            case POS_STUNNED:
                ch_printf( ch, "You are too stunned to do that.\r\n" );
                break;

            case POS_SLEEPING:
                ch_printf( ch, "In your dreams, or what?\r\n" );
                break;

            case POS_RESTING:
                ch_printf( ch, "Nah... You feel too relaxed...\r\n" );
                break;

            case POS_SITTING:
                ch_printf( ch, "Better stand up first.\r\n" );
                break;

            case POS_FIGHTING:
                ch_printf( ch, "No way!  You are still fighting!\r\n" );
                break;

        }
        return;
    }

    /*
     * Dispatch the command.
     */
    ( *cmd_table[cmd].do_fun ) ( ch, argument );

    tail_chain(  );
    return;
}

/* function to keep argument safe in all commands -- no static strings */
void do_function( CHAR_DATA *ch, DO_FUN *do_fun, const char *argument )
{
    char                   *command_string = NULL;

    /*
     * copy the string 
     */
    command_string = str_dup( argument );

    /*
     * dispatch the command 
     */
    ( *do_fun ) ( ch, command_string );

    /*
     * free the string 
     */
    free_string( command_string );
}

bool check_social( CHAR_DATA *ch, const char *command, const char *argument )
{
    char                    arg[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
    CHAR_DATA              *victim = NULL;
    int                     cmd = 0;
    bool                    found = false;

    for ( cmd = 0; social_table[cmd].name[0] != '\0'; cmd++ )
    {
        if ( command[0] == social_table[cmd].name[0]
             && !str_prefix( command, social_table[cmd].name ) )
        {
            found = true;
            break;
        }
    }

    if ( !found )
        return false;

    if ( !IS_NPC( ch ) && IS_SET( ch->comm, COMM_NOEMOTE ) )
    {
        ch_printf( ch, "You are anti-social!\r\n" );
        return true;
    }

    switch ( ch->position )
    {
        case POS_DEAD:
            ch_printf( ch, "Lie still; you are DEAD.\r\n" );
            return true;

        case POS_INCAP:
        case POS_MORTAL:
            ch_printf( ch, "You are hurt far too bad for that.\r\n" );
            return true;

        case POS_STUNNED:
            ch_printf( ch, "You are too stunned to do that.\r\n" );
            return true;

        case POS_SLEEPING:
            /*
             * I just know this is the path to a 12" 'if' statement.  :(
             * But two players asked for it already!  -- Furey
             */
            if ( !str_cmp( social_table[cmd].name, "snore" ) )
                break;
            ch_printf( ch, "In your dreams, or what?\r\n" );
            return true;

    }

    one_argument( argument, arg );
    victim = NULL;
    if ( arg[0] == '\0' )
    {
        act( social_table[cmd].others_no_arg, ch, NULL, victim, TO_ROOM );
        act( social_table[cmd].char_no_arg, ch, NULL, victim, TO_CHAR );
    }
    else if ( ( victim = get_char_room( ch, arg ) ) == NULL )
    {
        ch_printf( ch, "They aren't here.\r\n" );
    }
    else if ( victim == ch )
    {
        act( social_table[cmd].others_auto, ch, NULL, victim, TO_ROOM );
        act( social_table[cmd].char_auto, ch, NULL, victim, TO_CHAR );
    }
    else
    {
        act( social_table[cmd].others_found, ch, NULL, victim, TO_NOTVICT );
        act( social_table[cmd].char_found, ch, NULL, victim, TO_CHAR );
        act( social_table[cmd].vict_found, ch, NULL, victim, TO_VICT );

        if ( !IS_NPC( ch ) && IS_NPC( victim )
             && !IS_AFFECTED( victim, AFF_CHARM )
             && IS_AWAKE( victim ) && victim->desc == NULL )
        {
            switch ( number_bits( 4 ) )
            {
                case 0:

                case 1:
                case 2:
                case 3:
                case 4:
                case 5:
                case 6:
                case 7:
                case 8:
                    act( social_table[cmd].others_found, victim, NULL, ch, TO_NOTVICT );
                    act( social_table[cmd].char_found, victim, NULL, ch, TO_CHAR );
                    act( social_table[cmd].vict_found, victim, NULL, ch, TO_VICT );
                    break;

                case 9:
                case 10:
                case 11:
                case 12:
                    act( "$n slaps $N.", victim, NULL, ch, TO_NOTVICT );
                    act( "You slap $N.", victim, NULL, ch, TO_CHAR );
                    act( "$n slaps you.", victim, NULL, ch, TO_VICT );
                    break;
            }
        }
    }

    return true;
}

/*
 * Return true if an argument is completely numeric.
 */
bool is_number( const char *arg )
{
    if ( *arg == '\0' )
        return false;

    if ( *arg == '+' || *arg == '-' )
        arg++;

    for ( ; *arg != '\0'; arg++ )
    {
        if ( !isdigit( *arg ) )
            return false;
    }

    return true;
}

/*
 * Given a string like 14.foo, return 14 and 'foo'
 */
int number_argument( const char *argument, char *arg )
{
    const char             *pdot = NULL;
    int                     number = 0;
    char                    num[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
    char                   *ndot = num;

    for ( pdot = argument; *pdot != '\0'; pdot++ )
    {
        *ndot++ = *pdot;
        if ( *pdot == '.' )
        {
            *ndot = '\0';
            number = atoi( num );
            strcpy( arg, pdot + 1 );
            return number;
        }
    }
    strcpy( arg, argument );
    return 1;
}

/* 
 * Given a string like 14*foo, return 14 and 'foo'
 */
int mult_argument( const char *argument, char *arg )
{
    const char             *pdot = NULL;
    int                     number = 0;
    char                    num[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
    char                   *ndot = num;

    for ( pdot = argument; *pdot != '\0'; pdot++ )
    {
        *ndot++ = *pdot;
        if ( *pdot == '*' )
        {
            *ndot = '\0';
            number = atoi( num );
            strcpy( arg, pdot + 1 );
            return number;
        }
    }
    strcpy( arg, argument );
    return 1;
}

/*
 * Pick off one argument from a string and return the rest.
 * Understands quotes.
 */
const char             *one_argument( const char *argument, char *arg_first )
{
    char                    cEnd = '\0';

    while ( isspace( *argument ) )
        argument++;

    cEnd = ' ';
    if ( *argument == '\'' || *argument == '"' )
        cEnd = *argument++;

    while ( *argument != '\0' )
    {
        if ( *argument == cEnd )
        {
            argument++;
            break;
        }
        *arg_first = LOWER( *argument );
        arg_first++;
        argument++;
    }
    *arg_first = '\0';

    while ( isspace( *argument ) )
        argument++;

    return argument;
}

/*
 * Contributed by Alander.
 */
void do_commands( CHAR_DATA *ch, const char *argument )
{
    int                     cmd = 0;
    int                     col = 0;

    for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
    {
        if ( cmd_table[cmd].level < LEVEL_HERO
             && cmd_table[cmd].level <= get_trust( ch ) && cmd_table[cmd].show )
        {
            ch_printf( ch, "%-12s", cmd_table[cmd].name );
            if ( ++col % 6 == 0 )
                ch_printf( ch, "\r\n" );
        }
    }

    if ( col % 6 != 0 )
        ch_printf( ch, "\r\n" );
    return;
}

void do_wizhelp( CHAR_DATA *ch, const char *argument )
{
    int                     cmd = 0;
    int                     col = 0;

    for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
    {
        if ( cmd_table[cmd].level >= LEVEL_HERO
             && cmd_table[cmd].level <= get_trust( ch ) && cmd_table[cmd].show )
        {
            ch_printf( ch, "%-12s", cmd_table[cmd].name );
            if ( ++col % 6 == 0 )
                ch_printf( ch, "\r\n" );
        }
    }

    if ( col % 6 != 0 )
        ch_printf( ch, "\r\n" );
    return;
}