server/server/commands.c

/*
 * static char *rcsid_commands_c =
 *   "$Id$";
 */

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2002 Mark Wedel & Crossfire Development Team
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The author can be reached via e-mail to crossfire-devel@real-time.com
*/

/*
 * Command parser
 */

#include <global.h>
#include <commands.h>
#ifndef __CEXTRACT__
#include <sproto.h>
#endif
#include <ctype.h>

/* Added times to all the commands.  However, this was quickly done,
 * and probably needs more refinements.  All socket and DM commands
 * take 0 time.
 */

/*
 * Normal game commands
 */
CommArray_s Commands[] = {
  {"save", command_save,        0.0},

  {"sound", command_sound,      0.0},
  {"party", command_party,      0.0},
  {"gsay", command_gsay,        1.0},

#ifdef DEBUG
  {"sstable", command_sstable,  0.0},
#endif
#ifdef DEBUG_MALLOC_LEVEL
  {"verify", command_malloc_verify,0.0},
#endif
  {"apply", command_apply,      1.0},   /* should be variable */
  {"applymode", command_applymode,      1.0},   /* should be variable */
  {"archs", command_archs,      0.0},
  {"body", command_body,        0.0},
  {"brace", command_brace,      0.0},
  {"build", command_build,  0.0},
  {"cast", command_cast,        0.2},   /* Is this right? */
  {"disarm", command_disarm,    1.0},
  {"dm", command_dm,            0.0},
  {"dmhide", command_dmhide,            0.0}, /* Like dm, but don't tell a dm arrived, hide player */
  {"drop", command_drop,        1.0},
  {"dropall", command_dropall,  1.0},
  {"examine", command_examine,  0.5},
  {"explore", command_explore,  0.0},
  {"fix_me", command_fix_me,    0.0},
  {"get", command_take,         1.0},
  {"help", command_help,        0.0},
  {"hiscore", command_hiscore,  0.0},
  {"inventory", command_inventory,0.0},
  {"invoke", command_invoke,    1.0},
  {"killpets", command_kill_pets,0.0},
  {"listen", command_listen,    0.0},
  {"logs", command_logs,        0.0},
  {"malloc", command_malloc,    0.0},
  {"maps", command_maps,        0.0},
  {"mapinfo", command_mapinfo,  0.0},
  {"mark", command_mark,        0.0},
  {"motd", command_motd,        0.0},
  {"output-sync", command_output_sync,  0.0},
  {"output-count", command_output_count,0.0},
  {"peaceful", command_peaceful,0.0},
  {"pickup", command_pickup,    1.0},
  {"players", command_players,  0.0},
  {"prepare", command_prepare,  1.0},
  {"quit", command_quit,        0.0},
  {"quit_character", command_real_quit, 0.0},
  {"rename", command_rename_item,  0.0},
  {"resistances", command_resistances,  0.0},
  {"rotateshoottype", command_rotateshoottype,  0.0},
  {"shutdown", command_shutdown, 0.0},
  {"skills", command_skills,    0.0},   /* shows player list of skills */
  {"use_skill", command_uskill, 1.0},
  {"quests", command_quests, 0.0},
  {"ready_skill", command_rskill, 1.0},
  {"search",command_search,     1.0},
  {"search-items", command_search_items,        0.0},
  {"showpets", command_showpets,        1.0},
  {"statistics", command_statistics,    0.0},
  {"strings", command_strings,  0.0},
  {"take", command_take,        1.0},
  {"throw", command_throw,      1.0},
  {"time", command_time,        0.0},
  {"weather", command_weather,  0.0},
  {"whereabouts", command_whereabouts, 0.0},
  {"whereami", command_whereami, 0.0},
  {"title", command_title,      0.0},
  {"usekeys", command_usekeys,  0.0},
  {"bowmode", command_bowmode, 0.0},
  {"petmode", command_petmode, 0.0},
  {"version", command_version,  0.0},
  {"wimpy", command_wimpy,      0.0},
  {"who", command_who,          0.0},
  {"afk", command_afk,          0.0},

  {"stay", command_stay,        1.0}, /* 1.0 because it is used when using a
                                       *  skill on yourself */
  {"north", command_north,      1.0},
  {"east", command_east,        1.0},
  {"south", command_south,      1.0},
  {"west", command_west,        1.0},
  {"northeast", command_northeast,      1.0},
  {"southeast", command_southeast,      1.0},
  {"southwest", command_southwest,      1.0},
  {"northwest", command_northwest,      1.0},
};

const int CommandsSize =sizeof(Commands) / sizeof(CommArray_s);

CommArray_s CommunicationCommands [] = {
  /* begin emotions */
  {"tell", command_tell,                0.1},
  {"reply", command_reply,              0.0},
  {"say", command_say,                  0.1},
  {"shout", command_shout,              0.1},
  {"chat", command_chat,                0.1},
  {"me", command_me,                   0.1},
  {"nod", command_nod,                  0.0},
  {"dance", command_dance,              0.0},
  {"kiss", command_kiss,                0.0},
  {"bounce", command_bounce,            0.0},
  {"smile", command_smile,              0.0},
  {"cackle", command_cackle,            0.0},
  {"laugh", command_laugh,              0.0},
  {"giggle", command_giggle,            0.0},
  {"shake", command_shake,              0.0},
  {"puke", command_puke,                0.0},
  {"growl", command_growl,              0.0},
  {"scream", command_scream,            0.0},
  {"sigh", command_sigh,                0.0},
  {"sulk", command_sulk,                0.0},
  {"hug", command_hug,                  0.0},
  {"cry", command_cry,                  0.0},
  {"poke", command_poke,                0.0},
  {"accuse", command_accuse,            0.0},
  {"grin", command_grin,                0.0},
  {"bow", command_bow,                  0.0},
  {"clap", command_clap,                0.0},
  {"blush", command_blush,              0.0},
  {"burp", command_burp,                0.0},
  {"chuckle", command_chuckle,          0.0},
  {"cough", command_cough,              0.0},
  {"flip", command_flip,                0.0},
  {"frown", command_frown,              0.0},
  {"gasp", command_gasp,                0.0},
  {"glare", command_glare,              0.0},
  {"groan", command_groan,              0.0},
  {"hiccup", command_hiccup,            0.0},
  {"lick", command_lick,                0.0},
  {"pout", command_pout,                0.0},
  {"shiver", command_shiver,            0.0},
  {"shrug", command_shrug,              0.0},
  {"slap", command_slap,                0.0},
  {"smirk", command_smirk,              0.0},
  {"snap", command_snap,                0.0},
  {"sneeze", command_sneeze,            0.0},
  {"snicker", command_snicker,          0.0},
  {"sniff", command_sniff,              0.0},
  {"snore", command_snore,              0.0},
  {"spit", command_spit,                0.0},
  {"strut", command_strut,              0.0},
  {"thank", command_thank,              0.0},
  {"twiddle", command_twiddle,          0.0},
  {"wave", command_wave,                0.0},
  {"whistle", command_whistle,          0.0},
  {"wink", command_wink,                0.0},
  {"yawn", command_yawn,                0.0},
  {"beg", command_beg,                  0.0},
  {"bleed", command_bleed,              0.0},
  {"cringe", command_cringe,            0.0},
  {"think", command_think,              0.0},
  {"cointoss", command_cointoss, 0.0},
  {"orcknuckle", command_orcknuckle, 0.0},
  {"printlos", command_printlos,0.0},
};

const int CommunicationCommandSize = sizeof(CommunicationCommands)/ sizeof(CommArray_s);

CommArray_s NewServerCommands [] = {
  {"run", command_run, 1.0},
  {"run_stop", command_run_stop, 0.0},
  {"fire", command_fire, 1.0},
  {"fire_stop", command_fire_stop, 0.0}
};

const int NewServerCommandSize = sizeof(NewServerCommands)/ sizeof(CommArray_s);

/*
 * Wizard commands (for both)
 */
CommArray_s WizCommands [] = {
  {"abil", command_abil,0.0},
  {"addexp", command_addexp,0.0},
  {"arrest", command_arrest,0.0},
  {"banish", command_banish,0.0},
  {"create", command_create,0.0},
  {"debug", command_debug,0.0},
  {"diff", command_diff, 0.0 },
  {"dump", command_dump,0.0},
  {"dumpbelow", command_dumpbelow,0.0},
  {"dumpfriendlyobjects", command_dumpfriendlyobjects,0.0},
  {"dumpallarchetypes", command_dumpallarchetypes,0.0},
  {"dumpallmaps", command_dumpallmaps,0.0},
  {"dumpallobjects", command_dumpallobjects,0.0},
  {"dumpmap", command_dumpmap,0.0},
  {"forget_spell", command_forget_spell, 0.0},
  {"free", command_free,0.0},
  {"freeze", command_freeze,0.0},
  {"goto", command_goto,0.0},
  {"hide", command_hide,0.0},
  {"insert_into", command_insert_into,0.0},
  {"invisible", command_invisible,0.0},
  {"kick", command_kick, 0.0},
  {"learn_special_prayer", command_learn_special_prayer, 0.0},
  {"learn_spell", command_learn_spell, 0.0},
  {"plugin",command_loadplugin,0.0},
  {"pluglist",command_listplugins,0.0},
  {"plugout",command_unloadplugin,0.0},
  {"nodm", command_nowiz,0.0},
  {"nowiz", command_nowiz,0.0},
  {"patch", command_patch,0.0},
  {"remove", command_remove,0.0},
  {"reset", command_reset,0.0},
  {"set_god", command_setgod, 0.0},
  {"server_speed", command_speed,0.0},
  {"ssdumptable", command_ssdumptable,0.0},
  {"stack_clear", command_stack_clear, 0.0 },
  {"stack_list", command_stack_list, 0.0},
  {"stack_pop", command_stack_pop, 0.0 },
  {"stack_push", command_stack_push, 0.0 },
  {"stats", command_stats,0.0},
  {"style_info", command_style_map_info, 0.0},  /* Costly command, so make it wiz only */
  {"summon", command_summon,0.0},
  {"teleport", command_teleport,0.0},
  {"toggle_shout", command_toggle_shout,0.0},
  {"wizpass", command_wizpass,0.0},
  {"wizcast", command_wizcast,0.0},
  {"overlay_save", command_save_overlay, 0.0},
/*  {"possess", command_possess, 0.0}, */
  {"mon_aggr", command_mon_aggr, 0.0},
  {"loadtest", command_loadtest, 0.0},
};
const int WizCommandsSize =sizeof(WizCommands) / sizeof(CommArray_s);

/* Socket commands - these should really do nothing more than output things
 * to the various players/sockets.
 */
CommArray_s Socket_Commands[] = {
  {"hiscore", command_hiscore,  0.0},
  {"logs", command_logs,        0.0},
  {"maps", command_maps,        0.0},
  {"motd", command_motd,        0.0},
  {"players", command_players,  0.0},
  {"version", command_version,  0.0},
  {"who", command_who,          0.0},
};

const int Socket_CommandsSize =sizeof(Socket_Commands) / sizeof(CommArray_s);


/* Socket commands - these should really do nothing more than output things
 * to the various players/sockets.
 */
CommArray_s Socket2_Commands[] = {
  {"shout", command_shout,      0.1},
  {"chat", command_chat,        0.1},
  {"tell", command_tell,        0.1},
};

const int Socket2_CommandsSize =sizeof(Socket2_Commands) / sizeof(CommArray_s);


static int compare_A(const void *a, const void *b)
{
  return strcmp(((CommArray_s *)a)->name, ((CommArray_s *)b)->name);
}

void init_commands(void)
{
  qsort(Commands, CommandsSize, sizeof(CommArray_s), compare_A);
  qsort(CommunicationCommands, CommunicationCommandSize, sizeof(CommArray_s), compare_A);
  qsort(NewServerCommands, NewServerCommandSize, sizeof(CommArray_s), compare_A);
  qsort(WizCommands, WizCommandsSize, sizeof(CommArray_s), compare_A);
  qsort(Socket_Commands, Socket_CommandsSize, sizeof(CommArray_s), compare_A);
  qsort(Socket2_Commands, Socket2_CommandsSize, sizeof(CommArray_s), compare_A);
}

#ifndef tolower
#define tolower(C)      (((C) >= 'A' && (C) <= 'Z')? (C) - 'A' + 'a': (C))
#endif


CommFunc find_oldsocket_command(char *cmd)
{
  CommArray_s *asp, dummy;
  char *cp;

  for (cp=cmd; *cp; cp++) {
    *cp =tolower(*cp);
  }

  dummy.name =cmd;
  asp =(CommArray_s *)bsearch((void *)&dummy,
                              (void *)Socket_Commands, Socket_CommandsSize,
                              sizeof(CommArray_s), compare_A);
  if (asp)
    return asp->func;
  return NULL;
}

CommFunc find_oldsocket_command2(char *cmd)
{
  CommArray_s *asp, dummy;
  char *cp;

  for (cp=cmd; *cp; cp++) {
    *cp =tolower(*cp);
  }

  dummy.name =cmd;
  asp =(CommArray_s *)bsearch((void *)&dummy,
                              (void *)Socket2_Commands, Socket2_CommandsSize,
                              sizeof(CommArray_s), compare_A);
  if (asp)
    return asp->func;
  return NULL;
}

static CommFunc find_command(char *cmd)
{
  CommArray_s *asp, dummy;
  char *cp;

  for (cp=cmd; *cp; cp++)
    *cp =tolower(*cp);

  dummy.name =cmd;
  asp =(CommArray_s *)bsearch((void *)&dummy,
                              (void *)Commands, CommandsSize,
                              sizeof(CommArray_s), compare_A);
  LOG(llevDebug, "Getting asp for command string %s\n", cmd);
  if (asp)
    return asp->func;
  else
  {
    LOG(llevDebug, "Now we are here\n");
    asp =(CommArray_s *)bsearch((void *)&dummy,
      (void *)CommunicationCommands, CommunicationCommandSize,
      sizeof(CommArray_s), compare_A);
    if (asp)
      return asp->func;
    else
      return NULL;
  };
}

static CommFunc find_wizcommand(char *cmd)
{
  CommArray_s *asp, dummy;
  char *cp;

  for (cp=cmd; *cp; cp++)
    *cp =tolower(*cp);

  dummy.name =cmd;
  asp =(CommArray_s *)bsearch((void *)&dummy,
                              (void *)WizCommands, WizCommandsSize,
                              sizeof(CommArray_s), compare_A);
  if (asp)
    return asp->func;
  return NULL;
}


/*
 * parse_string may be called from a player in the game or from a socket
 * (op is NULL if it's a socket).
 * It returnes 1 if it recognized the command, otherwise 0.
 * Actually return value is used as can-repeat -flag
 */

int parse_string(object *op, char *str)
{
    CommFunc f;
    char *cp;
    CommArray_s *asp;

#ifdef INPUT_DEBUG
    LOG(llevDebug, "Command: '%s'\n", str);
#endif
    /*
     * remove trailing spaces
     */
    cp = str+strlen(str)-1;
    while ( (cp>=str) && (*cp==' ')){
        *cp='\0';
        cp--;
    }
    /*
     * No arguments?
     */
    if (!(cp=strchr(str, ' '))) {
        /* GROS - If we are here, then maybe this is a plugin-provided command ? */
        asp = find_plugin_command(str, op);
        if (asp)
            return asp->func(op, NULL);

        if ((f=find_command(str)))
            return f(op, NULL);
        if (QUERY_FLAG(op,FLAG_WIZ) && (f=find_wizcommand(str)))
            return f(op, NULL);

        if(op) {
            new_draw_info(NDI_UNIQUE, 0,op, "Unknown command.  Try help.");
        }
        return 0;
    }

    /*
     * Command with some arguments
     */

    *(cp++) ='\0';
    /* Clear all spaces from the start of the optional argument */
    while (*cp==' ') cp++;

    asp = find_plugin_command(str,op);
    if (asp) return asp->func(op,cp);

    if ((f=find_command(str)))
        return f(op, cp);
    if (QUERY_FLAG(op, FLAG_WIZ) && (f=find_wizcommand(str)))
        return f(op, cp);

    if(op) {
        new_draw_info(NDI_UNIQUE, 0,op, "Unknown command.  Try help.");
    }
    return 0;
}


/*  this function handles splitting up a ; separated
 *  compound command into sub-commands:  it is recursive.
 */
int parse_command(object *op, char *str) {
  char *tmp,*tmp2;
  int i;
  /* if it's a keybinding command, ignore semicolons */
  if(strstr(str,"bind")) return parse_string(op,str);
  LOG(llevDebug, "parsin command '%s'\n", str);
  /* If on a socket, you can not do complex commands. */
  if(op && (tmp=strchr(str,';'))!=NULL)  /* we've found a ';' do the 1st and recurse */
         {
            char buf[MAX_BUF];
                /* copy 1st command into buf */
                /* Even if tmp2 points the the input_buf, this should still
                 * be safe operation.
                 */
                for(i=0,tmp2=str;tmp2!=tmp;i++,tmp2++) 
                    buf[i]= (*tmp2);
                buf[i]='\0'; /* null terminate the copy*/
                strncpy(op->contr->input_buf,tmp2+1, MAX_BUF);
                op->contr->input_buf[MAX_BUF-1]=0;
                parse_string(op,buf);
         }
  else {
        /* We need to set the input_buf to 0 so clear any complex keybinding
         * there might be.  However, str can be a pointer to input_buf in
         * the case of a complex keybinding.  So first we process the command,
         * clear the buffer, and then return the value.
         */
        i=parse_string(op,str);
        if (op) op->contr->input_buf[0]=0;
        return i;
  }
  return 0;
}
Revision:	1.2
Committed:	Mon Mar 20 06:25:40 2006 UTC (18 years, 2 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+4 -1 lines
Log Message:	renamed the dreaded quit command to quit_character and made quit warn
#	User	Rev	Content
1	root	1.1	/*
2			* static char *rcsid_commands_c =
3	root	1.2	* "$Id$";
4	root	1.1	*/
5
6			/*
7			CrossFire, A Multiplayer game for X-windows
8
9			Copyright (C) 2002 Mark Wedel & Crossfire Development Team
10			Copyright (C) 1992 Frank Tore Johansen
11
12			This program is free software; you can redistribute it and/or modify
13			it under the terms of the GNU General Public License as published by
14			the Free Software Foundation; either version 2 of the License, or
15			(at your option) any later version.
16
17			This program is distributed in the hope that it will be useful,
18			but WITHOUT ANY WARRANTY; without even the implied warranty of
19			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20			GNU General Public License for more details.
21
22			You should have received a copy of the GNU General Public License
23			along with this program; if not, write to the Free Software
24			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25
26			The author can be reached via e-mail to crossfire-devel@real-time.com
27			*/
28
29			/*
30			* Command parser
31			*/
32
33			#include <global.h>
34			#include <commands.h>
35			#ifndef __CEXTRACT__
36			#include <sproto.h>
37			#endif
38			#include <ctype.h>
39
40			/* Added times to all the commands. However, this was quickly done,
41			* and probably needs more refinements. All socket and DM commands
42			* take 0 time.
43			*/
44
45			/*
46			* Normal game commands
47			*/
48			CommArray_s Commands[] = {
49			{"save", command_save, 0.0},
50
51			{"sound", command_sound, 0.0},
52			{"party", command_party, 0.0},
53			{"gsay", command_gsay, 1.0},
54
55			#ifdef DEBUG
56			{"sstable", command_sstable, 0.0},
57			#endif
58			#ifdef DEBUG_MALLOC_LEVEL
59			{"verify", command_malloc_verify,0.0},
60			#endif
61			{"apply", command_apply, 1.0}, /* should be variable */
62			{"applymode", command_applymode, 1.0}, /* should be variable */
63			{"archs", command_archs, 0.0},
64			{"body", command_body, 0.0},
65			{"brace", command_brace, 0.0},
66			{"build", command_build, 0.0},
67			{"cast", command_cast, 0.2}, /* Is this right? */
68			{"disarm", command_disarm, 1.0},
69			{"dm", command_dm, 0.0},
70			{"dmhide", command_dmhide, 0.0}, /* Like dm, but don't tell a dm arrived, hide player */
71			{"drop", command_drop, 1.0},
72			{"dropall", command_dropall, 1.0},
73			{"examine", command_examine, 0.5},
74			{"explore", command_explore, 0.0},
75			{"fix_me", command_fix_me, 0.0},
76			{"get", command_take, 1.0},
77			{"help", command_help, 0.0},
78			{"hiscore", command_hiscore, 0.0},
79			{"inventory", command_inventory,0.0},
80			{"invoke", command_invoke, 1.0},
81			{"killpets", command_kill_pets,0.0},
82			{"listen", command_listen, 0.0},
83			{"logs", command_logs, 0.0},
84			{"malloc", command_malloc, 0.0},
85			{"maps", command_maps, 0.0},
86			{"mapinfo", command_mapinfo, 0.0},
87			{"mark", command_mark, 0.0},
88			{"motd", command_motd, 0.0},
89			{"output-sync", command_output_sync, 0.0},
90			{"output-count", command_output_count,0.0},
91			{"peaceful", command_peaceful,0.0},
92			{"pickup", command_pickup, 1.0},
93			{"players", command_players, 0.0},
94			{"prepare", command_prepare, 1.0},
95			{"quit", command_quit, 0.0},
96	root	1.2	{"quit_character", command_real_quit, 0.0},
97	root	1.1	{"rename", command_rename_item, 0.0},
98			{"resistances", command_resistances, 0.0},
99			{"rotateshoottype", command_rotateshoottype, 0.0},
100			{"shutdown", command_shutdown, 0.0},
101			{"skills", command_skills, 0.0}, /* shows player list of skills */
102			{"use_skill", command_uskill, 1.0},
103			{"quests", command_quests, 0.0},
104			{"ready_skill", command_rskill, 1.0},
105			{"search",command_search, 1.0},
106			{"search-items", command_search_items, 0.0},
107			{"showpets", command_showpets, 1.0},
108			{"statistics", command_statistics, 0.0},
109			{"strings", command_strings, 0.0},
110			{"take", command_take, 1.0},
111			{"throw", command_throw, 1.0},
112			{"time", command_time, 0.0},
113			{"weather", command_weather, 0.0},
114			{"whereabouts", command_whereabouts, 0.0},
115			{"whereami", command_whereami, 0.0},
116			{"title", command_title, 0.0},
117			{"usekeys", command_usekeys, 0.0},
118			{"bowmode", command_bowmode, 0.0},
119			{"petmode", command_petmode, 0.0},
120			{"version", command_version, 0.0},
121			{"wimpy", command_wimpy, 0.0},
122			{"who", command_who, 0.0},
123			{"afk", command_afk, 0.0},
124
125			{"stay", command_stay, 1.0}, /* 1.0 because it is used when using a
126			* skill on yourself */
127			{"north", command_north, 1.0},
128			{"east", command_east, 1.0},
129			{"south", command_south, 1.0},
130			{"west", command_west, 1.0},
131			{"northeast", command_northeast, 1.0},
132			{"southeast", command_southeast, 1.0},
133			{"southwest", command_southwest, 1.0},
134			{"northwest", command_northwest, 1.0},
135			};
136
137			const int CommandsSize =sizeof(Commands) / sizeof(CommArray_s);
138
139			CommArray_s CommunicationCommands [] = {
140			/* begin emotions */
141			{"tell", command_tell, 0.1},
142			{"reply", command_reply, 0.0},
143			{"say", command_say, 0.1},
144			{"shout", command_shout, 0.1},
145			{"chat", command_chat, 0.1},
146			{"me", command_me, 0.1},
147			{"nod", command_nod, 0.0},
148			{"dance", command_dance, 0.0},
149			{"kiss", command_kiss, 0.0},
150			{"bounce", command_bounce, 0.0},
151			{"smile", command_smile, 0.0},
152			{"cackle", command_cackle, 0.0},
153			{"laugh", command_laugh, 0.0},
154			{"giggle", command_giggle, 0.0},
155			{"shake", command_shake, 0.0},
156			{"puke", command_puke, 0.0},
157			{"growl", command_growl, 0.0},
158			{"scream", command_scream, 0.0},
159			{"sigh", command_sigh, 0.0},
160			{"sulk", command_sulk, 0.0},
161			{"hug", command_hug, 0.0},
162			{"cry", command_cry, 0.0},
163			{"poke", command_poke, 0.0},
164			{"accuse", command_accuse, 0.0},
165			{"grin", command_grin, 0.0},
166			{"bow", command_bow, 0.0},
167			{"clap", command_clap, 0.0},
168			{"blush", command_blush, 0.0},
169			{"burp", command_burp, 0.0},
170			{"chuckle", command_chuckle, 0.0},
171			{"cough", command_cough, 0.0},
172			{"flip", command_flip, 0.0},
173			{"frown", command_frown, 0.0},
174			{"gasp", command_gasp, 0.0},
175			{"glare", command_glare, 0.0},
176			{"groan", command_groan, 0.0},
177			{"hiccup", command_hiccup, 0.0},
178			{"lick", command_lick, 0.0},
179			{"pout", command_pout, 0.0},
180			{"shiver", command_shiver, 0.0},
181			{"shrug", command_shrug, 0.0},
182			{"slap", command_slap, 0.0},
183			{"smirk", command_smirk, 0.0},
184			{"snap", command_snap, 0.0},
185			{"sneeze", command_sneeze, 0.0},
186			{"snicker", command_snicker, 0.0},
187			{"sniff", command_sniff, 0.0},
188			{"snore", command_snore, 0.0},
189			{"spit", command_spit, 0.0},
190			{"strut", command_strut, 0.0},
191			{"thank", command_thank, 0.0},
192			{"twiddle", command_twiddle, 0.0},
193			{"wave", command_wave, 0.0},
194			{"whistle", command_whistle, 0.0},
195			{"wink", command_wink, 0.0},
196			{"yawn", command_yawn, 0.0},
197			{"beg", command_beg, 0.0},
198			{"bleed", command_bleed, 0.0},
199			{"cringe", command_cringe, 0.0},
200			{"think", command_think, 0.0},
201			{"cointoss", command_cointoss, 0.0},
202			{"orcknuckle", command_orcknuckle, 0.0},
203			{"printlos", command_printlos,0.0},
204			};
205
206			const int CommunicationCommandSize = sizeof(CommunicationCommands)/ sizeof(CommArray_s);
207
208			CommArray_s NewServerCommands [] = {
209			{"run", command_run, 1.0},
210			{"run_stop", command_run_stop, 0.0},
211			{"fire", command_fire, 1.0},
212			{"fire_stop", command_fire_stop, 0.0}
213			};
214
215			const int NewServerCommandSize = sizeof(NewServerCommands)/ sizeof(CommArray_s);
216
217			/*
218			* Wizard commands (for both)
219			*/
220			CommArray_s WizCommands [] = {
221			{"abil", command_abil,0.0},
222			{"addexp", command_addexp,0.0},
223	root	1.2	{"arrest", command_arrest,0.0},
224	root	1.1	{"banish", command_banish,0.0},
225			{"create", command_create,0.0},
226			{"debug", command_debug,0.0},
227			{"diff", command_diff, 0.0 },
228			{"dump", command_dump,0.0},
229			{"dumpbelow", command_dumpbelow,0.0},
230			{"dumpfriendlyobjects", command_dumpfriendlyobjects,0.0},
231			{"dumpallarchetypes", command_dumpallarchetypes,0.0},
232			{"dumpallmaps", command_dumpallmaps,0.0},
233			{"dumpallobjects", command_dumpallobjects,0.0},
234			{"dumpmap", command_dumpmap,0.0},
235			{"forget_spell", command_forget_spell, 0.0},
236			{"free", command_free,0.0},
237			{"freeze", command_freeze,0.0},
238			{"goto", command_goto,0.0},
239			{"hide", command_hide,0.0},
240	root	1.2	{"insert_into", command_insert_into,0.0},
241	root	1.1	{"invisible", command_invisible,0.0},
242			{"kick", command_kick, 0.0},
243			{"learn_special_prayer", command_learn_special_prayer, 0.0},
244			{"learn_spell", command_learn_spell, 0.0},
245			{"plugin",command_loadplugin,0.0},
246			{"pluglist",command_listplugins,0.0},
247			{"plugout",command_unloadplugin,0.0},
248			{"nodm", command_nowiz,0.0},
249			{"nowiz", command_nowiz,0.0},
250			{"patch", command_patch,0.0},
251			{"remove", command_remove,0.0},
252			{"reset", command_reset,0.0},
253			{"set_god", command_setgod, 0.0},
254			{"server_speed", command_speed,0.0},
255			{"ssdumptable", command_ssdumptable,0.0},
256			{"stack_clear", command_stack_clear, 0.0 },
257			{"stack_list", command_stack_list, 0.0},
258			{"stack_pop", command_stack_pop, 0.0 },
259			{"stack_push", command_stack_push, 0.0 },
260			{"stats", command_stats,0.0},
261			{"style_info", command_style_map_info, 0.0}, /* Costly command, so make it wiz only */
262			{"summon", command_summon,0.0},
263			{"teleport", command_teleport,0.0},
264			{"toggle_shout", command_toggle_shout,0.0},
265			{"wizpass", command_wizpass,0.0},
266			{"wizcast", command_wizcast,0.0},
267			{"overlay_save", command_save_overlay, 0.0},
268			/* {"possess", command_possess, 0.0}, */
269			{"mon_aggr", command_mon_aggr, 0.0},
270			{"loadtest", command_loadtest, 0.0},
271			};
272			const int WizCommandsSize =sizeof(WizCommands) / sizeof(CommArray_s);
273
274			/* Socket commands - these should really do nothing more than output things
275			* to the various players/sockets.
276			*/
277			CommArray_s Socket_Commands[] = {
278			{"hiscore", command_hiscore, 0.0},
279			{"logs", command_logs, 0.0},
280			{"maps", command_maps, 0.0},
281			{"motd", command_motd, 0.0},
282			{"players", command_players, 0.0},
283			{"version", command_version, 0.0},
284			{"who", command_who, 0.0},
285			};
286
287			const int Socket_CommandsSize =sizeof(Socket_Commands) / sizeof(CommArray_s);
288
289
290			/* Socket commands - these should really do nothing more than output things
291			* to the various players/sockets.
292			*/
293			CommArray_s Socket2_Commands[] = {
294			{"shout", command_shout, 0.1},
295			{"chat", command_chat, 0.1},
296			{"tell", command_tell, 0.1},
297			};
298
299			const int Socket2_CommandsSize =sizeof(Socket2_Commands) / sizeof(CommArray_s);
300
301
302
303			static int compare_A(const void a, const void b)
304			{
305			return strcmp(((CommArray_s )a)->name, ((CommArray_s )b)->name);
306			}
307
308			void init_commands(void)
309			{
310			qsort(Commands, CommandsSize, sizeof(CommArray_s), compare_A);
311			qsort(CommunicationCommands, CommunicationCommandSize, sizeof(CommArray_s), compare_A);
312			qsort(NewServerCommands, NewServerCommandSize, sizeof(CommArray_s), compare_A);
313			qsort(WizCommands, WizCommandsSize, sizeof(CommArray_s), compare_A);
314			qsort(Socket_Commands, Socket_CommandsSize, sizeof(CommArray_s), compare_A);
315			qsort(Socket2_Commands, Socket2_CommandsSize, sizeof(CommArray_s), compare_A);
316			}
317
318			#ifndef tolower
319			#define tolower(C) (((C) >= 'A' && (C) <= 'Z')? (C) - 'A' + 'a': (C))
320			#endif
321
322
323			CommFunc find_oldsocket_command(char *cmd)
324			{
325			CommArray_s *asp, dummy;
326			char *cp;
327
328			for (cp=cmd; *cp; cp++) {
329			cp =tolower(cp);
330			}
331
332			dummy.name =cmd;
333			asp =(CommArray_s )bsearch((void )&dummy,
334			(void *)Socket_Commands, Socket_CommandsSize,
335			sizeof(CommArray_s), compare_A);
336			if (asp)
337			return asp->func;
338			return NULL;
339			}
340
341			CommFunc find_oldsocket_command2(char *cmd)
342			{
343			CommArray_s *asp, dummy;
344			char *cp;
345
346			for (cp=cmd; *cp; cp++) {
347			cp =tolower(cp);
348			}
349
350			dummy.name =cmd;
351			asp =(CommArray_s )bsearch((void )&dummy,
352			(void *)Socket2_Commands, Socket2_CommandsSize,
353			sizeof(CommArray_s), compare_A);
354			if (asp)
355			return asp->func;
356			return NULL;
357			}
358
359			static CommFunc find_command(char *cmd)
360			{
361			CommArray_s *asp, dummy;
362			char *cp;
363
364			for (cp=cmd; *cp; cp++)
365			cp =tolower(cp);
366
367			dummy.name =cmd;
368			asp =(CommArray_s )bsearch((void )&dummy,
369			(void *)Commands, CommandsSize,
370			sizeof(CommArray_s), compare_A);
371			LOG(llevDebug, "Getting asp for command string %s\n", cmd);
372			if (asp)
373			return asp->func;
374			else
375			{
376			LOG(llevDebug, "Now we are here\n");
377			asp =(CommArray_s )bsearch((void )&dummy,
378			(void *)CommunicationCommands, CommunicationCommandSize,
379			sizeof(CommArray_s), compare_A);
380			if (asp)
381			return asp->func;
382			else
383			return NULL;
384			};
385			}
386
387			static CommFunc find_wizcommand(char *cmd)
388			{
389			CommArray_s *asp, dummy;
390			char *cp;
391
392			for (cp=cmd; *cp; cp++)
393			cp =tolower(cp);
394
395			dummy.name =cmd;
396			asp =(CommArray_s )bsearch((void )&dummy,
397			(void *)WizCommands, WizCommandsSize,
398			sizeof(CommArray_s), compare_A);
399			if (asp)
400			return asp->func;
401			return NULL;
402			}
403
404
405			/*
406			* parse_string may be called from a player in the game or from a socket
407			* (op is NULL if it's a socket).
408			* It returnes 1 if it recognized the command, otherwise 0.
409			* Actually return value is used as can-repeat -flag
410			*/
411
412			int parse_string(object op, char str)
413			{
414			CommFunc f;
415			char *cp;
416			CommArray_s *asp;
417
418			#ifdef INPUT_DEBUG
419			LOG(llevDebug, "Command: '%s'\n", str);
420			#endif
421			/*
422			* remove trailing spaces
423			*/
424			cp = str+strlen(str)-1;
425			while ( (cp>=str) && (*cp==' ')){
426			*cp='\0';
427			cp--;
428			}
429			/*
430			* No arguments?
431			*/
432			if (!(cp=strchr(str, ' '))) {
433			/* GROS - If we are here, then maybe this is a plugin-provided command ? */
434			asp = find_plugin_command(str, op);
435			if (asp)
436			return asp->func(op, NULL);
437
438			if ((f=find_command(str)))
439			return f(op, NULL);
440			if (QUERY_FLAG(op,FLAG_WIZ) && (f=find_wizcommand(str)))
441			return f(op, NULL);
442
443			if(op) {
444			new_draw_info(NDI_UNIQUE, 0,op, "Unknown command. Try help.");
445			}
446			return 0;
447			}
448
449			/*
450			* Command with some arguments
451			*/
452
453			*(cp++) ='\0';
454			/* Clear all spaces from the start of the optional argument */
455			while (*cp==' ') cp++;
456
457			asp = find_plugin_command(str,op);
458			if (asp) return asp->func(op,cp);
459
460			if ((f=find_command(str)))
461			return f(op, cp);
462			if (QUERY_FLAG(op, FLAG_WIZ) && (f=find_wizcommand(str)))
463			return f(op, cp);
464
465			if(op) {
466			new_draw_info(NDI_UNIQUE, 0,op, "Unknown command. Try help.");
467			}
468			return 0;
469			}
470
471
472			/* this function handles splitting up a ; separated
473			* compound command into sub-commands: it is recursive.
474			*/
475			int parse_command(object op, char str) {
476			char tmp,tmp2;
477			int i;
478			/* if it's a keybinding command, ignore semicolons */
479			if(strstr(str,"bind")) return parse_string(op,str);
480			LOG(llevDebug, "parsin command '%s'\n", str);
481			/* If on a socket, you can not do complex commands. */
482			if(op && (tmp=strchr(str,';'))!=NULL) /* we've found a ';' do the 1st and recurse */
483			{
484			char buf[MAX_BUF];
485			/* copy 1st command into buf */
486			/* Even if tmp2 points the the input_buf, this should still
487			* be safe operation.
488			*/
489			for(i=0,tmp2=str;tmp2!=tmp;i++,tmp2++)
490			buf[i]= (*tmp2);
491			buf[i]='\0'; /* null terminate the copy*/
492			strncpy(op->contr->input_buf,tmp2+1, MAX_BUF);
493			op->contr->input_buf[MAX_BUF-1]=0;
494			parse_string(op,buf);
495			}
496			else {
497			/* We need to set the input_buf to 0 so clear any complex keybinding
498			* there might be. However, str can be a pointer to input_buf in
499			* the case of a complex keybinding. So first we process the command,
500			* clear the buffer, and then return the value.
501			*/
502			i=parse_string(op,str);
503			if (op) op->contr->input_buf[0]=0;
504			return i;
505			}
506			return 0;
507			}