R2b5/deity/
R2b5/gods/
R2b5/log/
R2b5/player/
/***************************************************************************
*   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-1995 Russ Taylor                         *
*       ROM has been brought to you by the ROM consortium                  *
*           Russ Taylor (rtaylor@pacinfo.com)                              *
*           Gabrielle Taylor (gtaylor@pacinfo.com)                         *
*           Brian Moore (rom@rom.efn.org)                                  *
*       By using this code, you have agreed to follow the terms of the     *
*       ROM license, in the file 'rom.license'                             *
***************************************************************************/
/***************************************************************************
*       ROT 2.0 is copyright 1996-1999 by Russ Walsh                       *
*       By using this code, you have agreed to follow the terms of the     *
*       ROT license, in the file 'rot.license'                             *
***************************************************************************/

#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "interp.h"

//  Interp.c - At the top add:
char    last_command[MSL];

bool	check_social	args( ( CHAR_DATA *ch, char *command,
			    char *argument ) );



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



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

bool				global_gquest	= FALSE;
bool				global_xpq	= FALSE;
bool				global_prq	= FALSE;
bool				global_damq	= FALSE;
// bool				global_quest	= FALSE;


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

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

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

    /*
     * Configuration commands.
     */
    { "alia",		do_alia,	POS_DEAD,	 0,  1,  LOG_NORMAL, 0 },
    { "alias",		do_alias,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "autoall",        do_autoall,     POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autolist",	do_autolist,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "autoassist",	do_autoassist,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autoexit",	do_autoexit,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autogold",	do_autogold,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autoloot",	do_autoloot,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autosac",	do_autosac,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autosplit",	do_autosplit,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autostore",	do_autostore,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "autopeek",	do_autopeek,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "brief",		do_brief,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
/*  { "channels",	do_channels,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 }, */
    { "colour",         do_colour,      POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "color",          do_colour,      POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "combine",	do_combine,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "compact",	do_compact,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "description",	do_description,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "long",		do_long,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "nofollow",	do_nofollow,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "noloot",		do_noloot,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "nosummon",	do_nosummon,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "notran",		do_notran,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "nocancel",	do_nocancel,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "outfit",		do_outfit,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "password",	do_password,	POS_DEAD,	 0,  1,  LOG_NEVER,  1 },
    { "prompt",		do_prompt,	POS_DEAD,        0,  1,  LOG_NORMAL, 1 },
    { "scroll",		do_scroll,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "title",		do_title,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "titlelock",	do_titlelock,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "unalias",	do_unalias,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "wimpy",		do_wimpy,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },

    /*
     * Communication commands.
     */

// { "arena",		do_arena,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
   { "gocial",		do_gocial,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
// { "=",		do_gocial,     	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 0 },
   { "gmote",		do_gmote,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
// { "flame ",		do_flame,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
   { "gquest",		do_gquest,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
   { "drive",		do_drive,	POS_SITTING,	 0,  1,  LOG_NORMAL, 1 },
// { "5", 		do_5,		POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "stance",		do_stance,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
// { "call",		do_call,	POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
// { "claim",		do_claim,	POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
   { "locate",		do_locate,	POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
   { "showclass",	do_showclass,	POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
   { "autostance", 	do_autostance, 	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
   { "leave", 		do_leave, 	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
   { "jab",		do_jab,		POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "uppercut",        do_uppercut,    POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "right cross",	do_right_cross, POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "critical strike",	do_critical_strike,	POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "kidney punch",	do_kidney_punch,	POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
   { "left hook",	do_left_hook,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },



    { "afk",		do_afk,		POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "answer",		do_answer,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "ansi",		do_colour,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "deaf",		do_deaf,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "emote",		do_emote,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "pmote",		do_pmote,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { ".",		do_ooc,		POS_SLEEPING,	 0,  1,  LOG_NORMAL, 0 },
    { "ooc",		do_ooc,		POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "=",		do_cgossip,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 0 },
    { "cgossip",	do_cgossip,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "-",		do_qgossip,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 0 },
    { "qgossip",	do_qgossip,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { ",",		do_emote,	POS_RESTING,	 0,  1,  LOG_NORMAL, 0 },
    { "grats",		do_grats,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "gtell",		do_gtell,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { ";",		do_gtell,	POS_DEAD,	 0,  1,  LOG_NORMAL, 0 },
/*  { "music",		do_music,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 }, */
    { "mud",		do_mud,		POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "note",		do_note,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "pose",		do_pose,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "quest",		do_quest,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "aquest",		do_aquest,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "ask",		do_ask,		POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "quote",		do_quote,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "quiet",		do_quiet,	POS_SLEEPING, 	 0,  1,  LOG_NORMAL, 1 },
    { "reply",		do_reply,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "replay",		do_replay,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "say",		do_say,		POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "'",		do_say,		POS_RESTING,	 0,  1,  LOG_NORMAL, 0 },
    { "shout",		do_shout,	POS_RESTING,	 3,  1,  LOG_NORMAL, 1 },
    { "unread",		do_unread,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 1 },
    { "weddings",	do_weddings,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "yell",		do_yell,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },

    /*
     * Object manipulation commands.
     */
    { "brandish",	do_brandish,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "close",		do_close,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "drink",		do_drink,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "drop",		do_drop,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "eat",		do_eat,		POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "envenom",	do_envenom,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "fill",		do_fill,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "give",		do_give,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "heal",		do_heal,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 }, 
    { "inscribe",	do_inscribe,	POS_RESTING,	HE,  1,  LOG_NORMAL, 1 }, 
    { "repent",		do_repent,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "curse",		do_curse,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "hold",		do_wear,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "list",		do_list,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "lock",		do_lock,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "open",		do_open,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "pick",		do_pick,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "pour",		do_pour,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "put",		do_put,		POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "quaff",		do_quaff,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "recite",		do_recite,	POS_RESTING,	 102,  1,  LOG_NORMAL, 1 },
    { "remove",		do_remove,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "rob",		do_rob,		POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "route",		do_route,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "sell",		do_sell,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "second",		do_second,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "take",		do_get,		POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "sacrifice",	do_sacrifice,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "junk",           do_sacrifice,   POS_RESTING,     0,  1,  LOG_NORMAL, 0 },
    { "tap",      	do_sacrifice,   POS_RESTING,     0,  1,  LOG_NORMAL, 0 },   
/*  { "unlock",		do_unlock,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 }, */
    { "value",		do_value,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "sskill",	        do_sskill,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "challenge",      do_challenge,   POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "dismiss",        do_dismiss,     POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "accept",         do_accept,      POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "decline",        do_decline,     POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "bet",            do_bet,         POS_RESTING,     0,  1,  LOG_NORMAL, 1 },
    { "drag",           do_drag,        POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "push",		do_push,	POS_STANDING,    0,  1,  LOG_NORMAL, 1 },
    { "wear",		do_wear,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "zap",		do_zap,		POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "auction",	do_auction,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },

    /*
     * Combat commands.
     */
    { "backstab",	do_backstab,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "bash",		do_bash,	POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
    { "bs",		do_backstab,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 0 },
    { "berserk",	do_berserk,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "circle",		do_circle,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "feed",		do_feed,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "dirt",		do_dirt,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "disarm",		do_disarm,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "flee",		do_flee,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "gouge",		do_gouge,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "kick",		do_kick,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "murde",		do_murde,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 0 },
    { "murder",		do_murder,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "surrender",	do_surrender,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "rescue",		do_rescue,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 0 },
    { "trip",		do_trip,	POS_FIGHTING,    0,  1,  LOG_NORMAL, 1 },
    { "crush",		do_crush,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "tail",		do_tail,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },

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

    /*
     * Miscellaneous commands.
     */
    { "enter", 		do_enter, 	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "follow",		do_follow,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "gain",		do_gain,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "go",		do_enter,	POS_STANDING,	 0,  1,  LOG_NORMAL, 0 },
/*  { "group",		do_group,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 }, */
    { "groups",		do_groups,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 1 },
    { "hide",		do_hide,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "member",		do_member,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "enlist",		do_enlist,		POS_DEAD,	12,  1,  LOG_NORMAL, 1 },
    { "play",		do_play,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
/*  { "practice",	do_practice,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 }, */
    { "qui",		do_qui,		POS_DEAD,	 0,  1,  LOG_NORMAL, 0 },
    { "quit",		do_quit,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "recall",		do_recall,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 1 },
    { "/",		do_recall,	POS_FIGHTING,	 0,  1,  LOG_NORMAL, 0 },
    { "rent",		do_rent,	POS_DEAD,	 0,  1,  LOG_NORMAL, 0 },
    { "save",		do_save,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "sleep",		do_sleep,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "sneak",		do_sneak,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "split",		do_split,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "steal",		do_steal,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "train",		do_train,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "track",		do_track,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "visible",	do_visible,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "wake",		do_wake,	POS_SLEEPING,	 0,  1,  LOG_NORMAL, 1 },
    { "where",		do_where,	POS_RESTING,	 0,  1,  LOG_NORMAL, 1 },
    { "deposit",	do_deposit,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "donate",		do_donate,	POS_STANDING,	 5,  1,  LOG_NORMAL, 1 },
    { "cdonate",	do_cdonate,	POS_STANDING,	 5,  1,  LOG_NORMAL, 1 },
    { "class",		do_class,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 1 },
    { "forge",		do_forge,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 0 },
    { "forget",		do_forget,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 1 },
    { "remembe",	do_remembe,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 0 },
    { "remember",	do_remember,	POS_SLEEPING,    0,  1,  LOG_NORMAL, 1 },
    { "voodoo",		do_voodoo,	POS_STANDING,	20,  1,  LOG_NORMAL, 1 },
    { "withdraw",	do_withdraw,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },

    /*
     * Deity commands.
     */
    { "devote",		do_devote,	POS_STANDING,	10,  1,  LOG_NORMAL, 1 },
    { "supplicate",	do_supplicate,	POS_STANDING,	10,  1,  LOG_NORMAL, 1 },
    { "deity",		do_deities,	POS_STANDING,	10,  1,  LOG_NORMAL, 1 },

    /*
     * Immortal commands.
     */
    { "advance",	do_advance,	POS_DEAD,	HE,  1,  LOG_NORMAL, 1 },
    { "chlevel",	do_chlevel,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "copyover",	do_copyover,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "authorize",	do_authorize,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "dump",		do_dump,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 0 },
   { "xpq",	do_xpq,	POS_RESTING,	ML,  1,  LOG_NORMAL, 1 },
   { "pquest",	do_prq,	POS_RESTING,	ML,  1,  LOG_NORMAL, 1 },
   { "gldamb",	do_damq,	POS_RESTING,	ML,  1,  LOG_NORMAL, 1 },
    { "trust",		do_trust,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "violate",	do_violate,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "rename",		do_rename,	POS_DEAD,	L1,  1,  LOG_NORMAL, 1 },
    { "allow",		do_allow,	POS_DEAD,	L2,  1,  LOG_ALWAYS, 1 },
    { "ban",		do_ban,		POS_DEAD,	L2,  1,  LOG_ALWAYS, 1 },
    { "deny",		do_deny,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "disconnect",	do_disconnect,	POS_DEAD,	L3,  1,  LOG_ALWAYS, 1 },
    { "dupe",		do_dupe,	POS_DEAD,	L1,  1,  LOG_NORMAL, 1 },
    { "finger",		do_finger,	POS_DEAD,	 0,  1,  LOG_NORMAL, 1 },
    { "flag",		do_flag,	POS_DEAD,	L5,  1,  LOG_ALWAYS, 1 },
    { "freeze",		do_freeze,	POS_DEAD,	L4,  1,  LOG_ALWAYS, 1 },
    { "permban",	do_permban,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "protect",	do_protect,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "spellup",	do_qspell,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "reboo",		do_reboo,	POS_DEAD,	L1,  1,  LOG_NORMAL, 0 },
    { "reboot",		do_reboot,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "set",		do_set,		POS_DEAD,	L5,  1,  LOG_NORMAL, 1 },
    { "shutdow",	do_shutdow,	POS_DEAD,	ML,  1,  LOG_NORMAL, 0 },
    { "shutdown",	do_shutdown,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
/*  { "sockets",	do_sockets,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 }, */
    { "wedpost",	do_wedpost,	POS_DEAD,	ML,  1,  LOG_NORMAL, 1 },
    { "wizlock",	do_wizlock,	POS_DEAD,	L2,  1,  LOG_ALWAYS, 1 },
    { "award",		do_award,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },

    { "force",		do_force,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },
    { "confiscate",	do_confiscate,	POS_DEAD,	L2,  1,  LOG_NORMAL, 0 },
    { "nuke",		do_nuke,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "load",		do_load,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },
    { "newlock",	do_newlock,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "nochannels",	do_nochannels,	POS_DEAD,	L6,  1,  LOG_ALWAYS, 1 },
    { "noemote",	do_noemote,	POS_DEAD,	L5,  1,  LOG_ALWAYS, 1 },
    { "noclan",		do_noclan,	POS_DEAD,	L3,  1,  LOG_ALWAYS, 1 },
    { "norestore",	do_norestore,	POS_DEAD,	L3,  1,  LOG_ALWAYS, 1 },
    { "noshout",	do_noshout,	POS_DEAD,	L6,  1,  LOG_ALWAYS, 1 },
    { "notell",		do_notell,	POS_DEAD,	L5,  1,  LOG_ALWAYS, 1 },
    { "notitle",	do_notitle,	POS_DEAD,	L3,  1,  LOG_ALWAYS, 1 },
    { "pack",		do_pack,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },
    { "levnet",		do_levnet,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },
    { "pecho",		do_pecho,	POS_DEAD,	L5,  1,  LOG_NORMAL, 1 }, 
    { "purge",		do_purge,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "restore",	do_restore,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },
    { "sla",		do_sla,		POS_DEAD,	L3,  1,  LOG_NORMAL, 0 },
    { "slay",		do_slay,	POS_DEAD,	L3,  1,  LOG_NORMAL, 1 },
    { "teleport",	do_transfer,    POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },	
    { "transfer",	do_transfer,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },
    { "corner",		do_corner,	POS_DEAD,	IM,  1,  LOG_ALWAYS, 1 },
//  { "match",		do_arena,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "twit",		do_twit,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },
    { "pardon",		do_pardon,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },

/*  { "at",		do_at,		POS_DEAD,	L6,  1,  LOG_NORMAL, 1 }, */
    { "poofin",		do_bamfin,	POS_DEAD,	L8,  1,  LOG_NORMAL, 1 },
    { "poofout",	do_bamfout,	POS_DEAD,	L8,  1,  LOG_NORMAL, 1 },
    { "ftick",		do_ftick,	POS_DEAD,	ML,  1,  LOG_NORMAL, 1 },
    { "gecho",		do_echo,	POS_DEAD,	L4,  1,  LOG_NORMAL, 1 },
    { "dm",		do_dmecho,	POS_DEAD,	ML,  1,  LOG_NORMAL, 1 },
/*  { "goto",		do_goto,	POS_DEAD,	L8,  1,  LOG_NORMAL, 1 }, */
    { "ghost",		do_ghost,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "holylight",	do_holylight,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "incognito",	do_incognito,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "invis",		do_invis,	POS_DEAD,	IM,  1,  LOG_NORMAL, 0 },
    { "log",		do_log,		POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "memory",		do_memory,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "mwhere",		do_mwhere,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "owhere",		do_owhere,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "olevel",         do_olevel,      POS_DEAD,       L6,  1,  LOG_ALWAYS, 1 },
    { "mlevel",         do_mlevel,      POS_DEAD,       L6,  1,  LOG_ALWAYS, 1 },
    { "peace",		do_peace,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },
    { "allpeace",	do_allpeace,	POS_DEAD,	L1,  1,  LOG_NORMAL, 1 },
    { "penalty",	do_penalty,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "echo",		do_recho,	POS_DEAD,	L8,  1,  LOG_NORMAL, 1 },
    { "return",         do_return,      POS_DEAD,       L7,  1,  LOG_NORMAL, 1 },
    { "snoop",		do_snoop,	POS_DEAD,	L4,  1,  LOG_ALWAYS, 1 },
    { "stat",		do_stat,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "string",		do_string,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },
    { "switch",		do_switch,	POS_DEAD,	L7,  1,  LOG_NORMAL, 1 },
    { "wizinvis",	do_invis,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "wecho",		do_wecho,	POS_DEAD,	ML,  1,  LOG_NORMAL, 1 },
    { "vnum",		do_vnum,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "zecho",		do_zecho,	POS_DEAD,	L4,  1,  LOG_NORMAL, 1 },
    { "clead",		do_clead,	POS_DEAD,	L1,  1,  LOG_NORMAL, 1 },
    { "clone",		do_clone,	POS_DEAD,	L6,  1,  LOG_NORMAL, 1 },

    { "wiznet",		do_wiznet,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "immtalk",	do_immtalk,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "imotd",          do_imotd,       POS_DEAD,       IM,  1,  LOG_NORMAL, 1 },
    { ":",		do_immtalk,	POS_DEAD,	IM,  1,  LOG_NORMAL, 0 },
    { "smote",		do_smote,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "prefi",		do_prefi,	POS_DEAD,	IM,  1,  LOG_NORMAL, 0 },
    { "prefix",		do_prefix,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "mpoint",		do_mpoint,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "mquest",		do_mquest,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "randclan",	do_randclan,	POS_DEAD,	ML,  1,  LOG_NORMAL, 1 },
    { "sign",		do_sign,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "immkiss",	do_immkiss,	POS_DEAD,	L4,  1,  LOG_NORMAL, 1 },
    { "squire",		do_squire,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "knight",		do_knight,	POS_DEAD,	ML,  1,  LOG_ALWAYS, 1 },
    { "recover",	do_recover,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "gset",		do_gset,	POS_DEAD,	IM,  1,  LOG_NORMAL, 1 },
    { "wizslap",	do_wizslap,	POS_DEAD,	L5,  1,  LOG_NORMAL, 1 },
    { "wipe",		do_wipe,	POS_DEAD,	L1,  1,  LOG_ALWAYS, 1 },
    { "mpdump",         do_mpdump,      POS_DEAD,       IM,  1,  LOG_NEVER, 1 },
    { "mpstat",         do_mpstat,      POS_DEAD,       IM,  1,  LOG_NEVER, 1 },
    { "pload",          do_pload,   POS_STANDING,       L1,  1,  LOG_NORMAL, 1 },
    { "punload",        do_punload, POS_STANDING,       L1,  1,  LOG_NORMAL, 1 },

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

    /*
     * Commands needed last on list
     */
    { "lone",		do_lone,	POS_DEAD,	15,  1,  LOG_NORMAL, 0 },
    { "loner",		do_loner,	POS_STANDING,	15,  1,  LOG_NORMAL, 1 },
    { "restring",	do_restring,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "delet",		do_delet,	POS_DEAD,	 0,  1,  LOG_NORMAL, 0 },
    { "delete",		do_delete,	POS_STANDING,	 0,  1,  LOG_NORMAL, 1 },
    { "rerol",		do_rerol,	POS_DEAD,	 0,  2,  LOG_NORMAL, 0 },
    { "reroll",		do_reroll,	POS_STANDING,	 1,  1,  LOG_NORMAL, 1 },

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


/*
 * The main entry point for executing commands.
 * Can be recursively called from 'at', 'order', 'force'.
 */
void interpret( CHAR_DATA *ch, char *argument )
{
    char command[MIL];
    char logline[MIL];
    char buf[MSL];
    char cmd_copy[MIL] ;
    int cmd;
    int trust;
    bool found;

    /*
     * Placed here, so we don't have to worry about tildes, period.
     * RW
     */
    smash_tilde( argument );

    /*
     * 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) )
    {
	send_to_char( "You're totally frozen!\n\r", ch );
	return;
    }

    /*
     * Grab the command word.
     * Special parsing so ' can be a command,
     *   also no spaces needed after punctuation.
     */
    strcpy( logline, argument );
    strcpy( buf, argument);
    sprintf(last_command,"%s in room[%d]: %s.",ch->name,ch->in_room->vnum,buf);
    strcpy( cmd_copy, 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 )
	{
	    if (IS_NPC(ch))
	    {
		found = TRUE;
		break;
	    }
	    if (cmd_table[cmd].tier == 1)
	    {
		found = TRUE;
		break;
	    }
	    if ((cmd_table[cmd].tier == 2) && ((ch->pcdata->tier >= 1)
	    ||  (IS_HERO(ch))))
	    {
		found = TRUE;
		break;
	    }
	    if ((cmd_table[cmd].tier == 3) && (ch->pcdata->tier == 2))
	    {
		found = TRUE;
		break;
	    }
	    if ((cmd_table[cmd].tier == 3) && (ch->pcdata->tier == 1)
	    &&  (IS_HERO(ch)))
	    {
		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
    &&   ch->level != MAX_LEVEL ) )
    {
	sprintf( log_buf, "Log %s: %s", ch->name, logline );
	wiznet(log_buf,ch,NULL,WIZ_SECURE,0,get_trust(ch));
	log_string( log_buf );
    }

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

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

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

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

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

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

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

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

	case POS_FIGHTING:
	    send_to_char( "No way!  You are still fighting!\n\r", ch);
	    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, char *argument)
{
    char *command_string;

    /* 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, char *command, char *argument )
{
    char arg[MIL];
    CHAR_DATA *victim;
    int cmd;
    bool found;

    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) )
    {
	send_to_char( "You are anti-social!\n\r", ch );
	return TRUE;
    }

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

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

    case POS_STUNNED:
	send_to_char( "You are too stunned to do that.\n\r", ch );
	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;
	send_to_char( "In your dreams, or what?\n\r", ch );
	return TRUE;

    }

    if (ch->shadow)
    {
	ch->shadowing->shadowed = FALSE;
	ch->shadowing->shadower = NULL;
	ch->shadowing = NULL;
	ch->shadow = FALSE;
    }
    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 )
    {
	send_to_char( "They aren't here.\n\r", ch );
    }
    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:

	if (!str_cmp(race_table[victim->race].name, "centipede"))
                {
                        act( "$n looks as though its been squashed by $N.",  victim, NULL, ch, TO_NOTVICT );
                        act( "You feel as though you've been squashed by $N.",  victim, NULL, ch, TO_CHAR    );
                        act( "$n looks as though its been squashed by you.", victim, NULL, ch, TO_VICT    );
                        break;
                }
                else
                {
			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: if (!str_cmp(race_table[victim->race].name, "centipede"))
                {
                        act( "$n crawls away from $N.",  victim, NULL, ch, TO_NOTVICT );
                        act( "You crawl away from $N.",  victim, NULL, ch, TO_CHAR    );
                        act( "$n crawls away from you.", victim, NULL, ch, TO_VICT    );
                        break;
                }
                else
                {
                        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 10: case 11: 
	case 12: if (!str_cmp(race_table[victim->race].name, "centipede"))
                {
                        act( "$n tries to bite $N.",  victim, NULL, ch, TO_NOTVICT );
                        act( "You try to bite $N.",  victim, NULL, ch, TO_CHAR    );
                        act( "$n tries to bite you.", victim, NULL, ch, TO_VICT    );
                        break;
                }
                else
                {
			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 ( 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( char *argument, char *arg )
{
    char *pdot;
    int number;
    
    for ( pdot = argument; *pdot != '\0'; pdot++ )
    {
	if ( *pdot == '.' )
	{
	    *pdot = '\0';
	    number = atoi( argument );
	    *pdot = '.';
	    strcpy( arg, pdot+1 );
	    return number;
	}
    }

    strcpy( arg, argument );
    return 1;
}

/* 
 * Given a string like 14*foo, return 14 and 'foo'
*/
int mult_argument(char *argument, char *arg)
{
    char *pdot;
    int number;

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



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

    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;
}


void do_commands( CHAR_DATA *ch, char *argument )
{
    char buf[MSL];
    int cmd;
    int col;
 
    col = 0;
    for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
    {
        if ( cmd_table[cmd].level <  LEVEL_IMMORTAL
        &&   cmd_table[cmd].level <= get_trust( ch ) 
	&&   cmd_table[cmd].show)
	{
	    if (IS_NPC(ch))
	    {
		sprintf( buf, "%-12s", cmd_table[cmd].name );
		send_to_char( buf, ch );
		if ( ++col % 6 == 0 )
		    send_to_char( "\n\r", ch );
	    } else if (cmd_table[cmd].tier == 1)
	    {
		sprintf( buf, "%-12s", cmd_table[cmd].name );
		send_to_char( buf, ch );
		if ( ++col % 6 == 0 )
		    send_to_char( "\n\r", ch );
	    } else if ((cmd_table[cmd].tier == 2) && ((ch->pcdata->tier >= 1)
	    ||  (IS_HERO(ch))))
	    {
		sprintf( buf, "%-12s", cmd_table[cmd].name );
		send_to_char( buf, ch );
		if ( ++col % 6 == 0 )
		    send_to_char( "\n\r", ch );
	    } else if ((cmd_table[cmd].tier == 3) && (ch->pcdata->tier == 2))
	    {
		sprintf( buf, "%-12s", cmd_table[cmd].name );
		send_to_char( buf, ch );
		if ( ++col % 6 == 0 )
		    send_to_char( "\n\r", ch );
	    } else if ((cmd_table[cmd].tier == 3) && (ch->pcdata->tier == 1)
	    &&  (IS_HERO(ch)))
	    {
		sprintf( buf, "%-12s", cmd_table[cmd].name );
		send_to_char( buf, ch );
		if ( ++col % 6 == 0 )
		    send_to_char( "\n\r", ch );
	    }
	}
    }
 
    if ( col % 6 != 0 )
	send_to_char( "\n\r", ch );
    return;
}


void do_wizhelp( CHAR_DATA *ch, char *argument )
{
    char buf[MAX_STRING_LENGTH];
    int cmd;
    int col;
    int clevel;
    col = 0;

    for( clevel=MAX_LEVEL; clevel>0; clevel-- )
    {
      switch(clevel)
      {
      case ML:
              if (ch->level == MAX_LEVEL || ch->trust == MAX_LEVEL)
              {
              send_to_char("\n\r{D--{cLevel 110{D--{X\n\r", ch);
              }
              break;
      case L1:
              if (ch->level >= CREATOR || ch->trust == CREATOR)
              {
              send_to_char("\n\r{D--{cLevel 109{D--{X\n\r", ch);
              }
              break;
      case L2:
              if (ch->level >= SUPREME || ch->trust == SUPREME)
              {
              send_to_char("\n\r{D--{cLevel 108{D--{X\n\r", ch);
              }
              break;
      case L3:
              if (ch->level >= DEITY || ch->trust == DEITY)
              {
              send_to_char("\n\r{D--{cLevel 107{D--{X\n\r", ch);
              }
              break;
      case L4:
              if (ch->level >= GOD || ch->trust == GOD)
              {
              send_to_char("\n\r{D--{cLevel 106{D--{X\n\r", ch);
              }
              break;
      case L5:
              if (ch->level >= IMMORTAL || ch->trust == IMMORTAL)
              {
              send_to_char("\n\r{D--{cLevel 105{D--{X\n\r", ch);
              }
              break;
      case L6:
              if (ch->level >= DEMI || ch->trust == DEMI)
              {
              send_to_char("\n\r{D--{cLevel 104{D--{X\n\r", ch);
              }
              break;
      case L7:
              if (ch->level >= KNIGHT || ch->trust == KNIGHT)
              {
              send_to_char("\n\r{D--{cLevel 103{D--{X\n\r", ch);
              }
              break;

      case L8:
              if (ch->level >= SQUIRE || ch->trust == SQUIRE)
              {
              send_to_char("\n\r{D--{cLevel 102{D--{X\n\r", ch);
              }
              break;
      }
        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 
            &&   cmd_table[cmd].level == clevel)
	    ||   ( ( cmd_table[cmd].tier == 2 )
	    &&   ( cmd_table[cmd].level <= get_trust( ch ) )
            &&   cmd_table[cmd].show 
            &&   cmd_table[cmd].level == clevel))
            {
                sprintf( buf, "%-11s", cmd_table[cmd].name );
                send_to_char( buf, ch );
                if ( ++col % 6 == 0 )
                    send_to_char( "\n\r", ch );
            }
        }

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