server/server/commands.c

/*
 * static char *rcsid_commands_c =
 *   "$Id: commands.c,v 1.56 2005/12/05 23:34:04 akirschbaum Exp $";
 */

/*
    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},
  {"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},
  {"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},
  {"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.1
Committed:	Fri Feb 3 07:14:30 2006 UTC (18 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
Branch point for:	UPSTREAM
Log Message:	Initial revision
#	User	Rev	Content
1	root	1.1	/*
2			* static char *rcsid_commands_c =
3			* "$Id: commands.c,v 1.56 2005/12/05 23:34:04 akirschbaum Exp $";
4			*/
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			{"rename", command_rename_item, 0.0},
97			{"resistances", command_resistances, 0.0},
98			{"rotateshoottype", command_rotateshoottype, 0.0},
99			{"shutdown", command_shutdown, 0.0},
100			{"skills", command_skills, 0.0}, /* shows player list of skills */
101			{"use_skill", command_uskill, 1.0},
102			{"quests", command_quests, 0.0},
103			{"ready_skill", command_rskill, 1.0},
104			{"search",command_search, 1.0},
105			{"search-items", command_search_items, 0.0},
106			{"showpets", command_showpets, 1.0},
107			{"statistics", command_statistics, 0.0},
108			{"strings", command_strings, 0.0},
109			{"take", command_take, 1.0},
110			{"throw", command_throw, 1.0},
111			{"time", command_time, 0.0},
112			{"weather", command_weather, 0.0},
113			{"whereabouts", command_whereabouts, 0.0},
114			{"whereami", command_whereami, 0.0},
115			{"title", command_title, 0.0},
116			{"usekeys", command_usekeys, 0.0},
117			{"bowmode", command_bowmode, 0.0},
118			{"petmode", command_petmode, 0.0},
119			{"version", command_version, 0.0},
120			{"wimpy", command_wimpy, 0.0},
121			{"who", command_who, 0.0},
122			{"afk", command_afk, 0.0},
123
124			{"stay", command_stay, 1.0}, /* 1.0 because it is used when using a
125			* skill on yourself */
126			{"north", command_north, 1.0},
127			{"east", command_east, 1.0},
128			{"south", command_south, 1.0},
129			{"west", command_west, 1.0},
130			{"northeast", command_northeast, 1.0},
131			{"southeast", command_southeast, 1.0},
132			{"southwest", command_southwest, 1.0},
133			{"northwest", command_northwest, 1.0},
134			};
135
136			const int CommandsSize =sizeof(Commands) / sizeof(CommArray_s);
137
138			CommArray_s CommunicationCommands [] = {
139			/* begin emotions */
140			{"tell", command_tell, 0.1},
141			{"reply", command_reply, 0.0},
142			{"say", command_say, 0.1},
143			{"shout", command_shout, 0.1},
144			{"chat", command_chat, 0.1},
145			{"me", command_me, 0.1},
146			{"nod", command_nod, 0.0},
147			{"dance", command_dance, 0.0},
148			{"kiss", command_kiss, 0.0},
149			{"bounce", command_bounce, 0.0},
150			{"smile", command_smile, 0.0},
151			{"cackle", command_cackle, 0.0},
152			{"laugh", command_laugh, 0.0},
153			{"giggle", command_giggle, 0.0},
154			{"shake", command_shake, 0.0},
155			{"puke", command_puke, 0.0},
156			{"growl", command_growl, 0.0},
157			{"scream", command_scream, 0.0},
158			{"sigh", command_sigh, 0.0},
159			{"sulk", command_sulk, 0.0},
160			{"hug", command_hug, 0.0},
161			{"cry", command_cry, 0.0},
162			{"poke", command_poke, 0.0},
163			{"accuse", command_accuse, 0.0},
164			{"grin", command_grin, 0.0},
165			{"bow", command_bow, 0.0},
166			{"clap", command_clap, 0.0},
167			{"blush", command_blush, 0.0},
168			{"burp", command_burp, 0.0},
169			{"chuckle", command_chuckle, 0.0},
170			{"cough", command_cough, 0.0},
171			{"flip", command_flip, 0.0},
172			{"frown", command_frown, 0.0},
173			{"gasp", command_gasp, 0.0},
174			{"glare", command_glare, 0.0},
175			{"groan", command_groan, 0.0},
176			{"hiccup", command_hiccup, 0.0},
177			{"lick", command_lick, 0.0},
178			{"pout", command_pout, 0.0},
179			{"shiver", command_shiver, 0.0},
180			{"shrug", command_shrug, 0.0},
181			{"slap", command_slap, 0.0},
182			{"smirk", command_smirk, 0.0},
183			{"snap", command_snap, 0.0},
184			{"sneeze", command_sneeze, 0.0},
185			{"snicker", command_snicker, 0.0},
186			{"sniff", command_sniff, 0.0},
187			{"snore", command_snore, 0.0},
188			{"spit", command_spit, 0.0},
189			{"strut", command_strut, 0.0},
190			{"thank", command_thank, 0.0},
191			{"twiddle", command_twiddle, 0.0},
192			{"wave", command_wave, 0.0},
193			{"whistle", command_whistle, 0.0},
194			{"wink", command_wink, 0.0},
195			{"yawn", command_yawn, 0.0},
196			{"beg", command_beg, 0.0},
197			{"bleed", command_bleed, 0.0},
198			{"cringe", command_cringe, 0.0},
199			{"think", command_think, 0.0},
200			{"cointoss", command_cointoss, 0.0},
201			{"orcknuckle", command_orcknuckle, 0.0},
202			{"printlos", command_printlos,0.0},
203			};
204
205			const int CommunicationCommandSize = sizeof(CommunicationCommands)/ sizeof(CommArray_s);
206
207			CommArray_s NewServerCommands [] = {
208			{"run", command_run, 1.0},
209			{"run_stop", command_run_stop, 0.0},
210			{"fire", command_fire, 1.0},
211			{"fire_stop", command_fire_stop, 0.0}
212			};
213
214			const int NewServerCommandSize = sizeof(NewServerCommands)/ sizeof(CommArray_s);
215
216			/*
217			* Wizard commands (for both)
218			*/
219			CommArray_s WizCommands [] = {
220			{"abil", command_abil,0.0},
221			{"addexp", command_addexp,0.0},
222			{"banish", command_banish,0.0},
223			{"create", command_create,0.0},
224			{"debug", command_debug,0.0},
225			{"diff", command_diff, 0.0 },
226			{"dump", command_dump,0.0},
227			{"dumpbelow", command_dumpbelow,0.0},
228			{"dumpfriendlyobjects", command_dumpfriendlyobjects,0.0},
229			{"dumpallarchetypes", command_dumpallarchetypes,0.0},
230			{"dumpallmaps", command_dumpallmaps,0.0},
231			{"dumpallobjects", command_dumpallobjects,0.0},
232			{"dumpmap", command_dumpmap,0.0},
233			{"forget_spell", command_forget_spell, 0.0},
234			{"free", command_free,0.0},
235			{"freeze", command_freeze,0.0},
236			{"goto", command_goto,0.0},
237			{"hide", command_hide,0.0},
238			{"invisible", command_invisible,0.0},
239			{"kick", command_kick, 0.0},
240			{"learn_special_prayer", command_learn_special_prayer, 0.0},
241			{"learn_spell", command_learn_spell, 0.0},
242			{"plugin",command_loadplugin,0.0},
243			{"pluglist",command_listplugins,0.0},
244			{"plugout",command_unloadplugin,0.0},
245			{"nodm", command_nowiz,0.0},
246			{"nowiz", command_nowiz,0.0},
247			{"patch", command_patch,0.0},
248			{"remove", command_remove,0.0},
249			{"reset", command_reset,0.0},
250			{"set_god", command_setgod, 0.0},
251			{"server_speed", command_speed,0.0},
252			{"ssdumptable", command_ssdumptable,0.0},
253			{"stack_clear", command_stack_clear, 0.0 },
254			{"stack_list", command_stack_list, 0.0},
255			{"stack_pop", command_stack_pop, 0.0 },
256			{"stack_push", command_stack_push, 0.0 },
257			{"stats", command_stats,0.0},
258			{"style_info", command_style_map_info, 0.0}, /* Costly command, so make it wiz only */
259			{"summon", command_summon,0.0},
260			{"teleport", command_teleport,0.0},
261			{"toggle_shout", command_toggle_shout,0.0},
262			{"wizpass", command_wizpass,0.0},
263			{"wizcast", command_wizcast,0.0},
264			{"overlay_save", command_save_overlay, 0.0},
265			/* {"possess", command_possess, 0.0}, */
266			{"mon_aggr", command_mon_aggr, 0.0},
267			{"loadtest", command_loadtest, 0.0},
268			};
269			const int WizCommandsSize =sizeof(WizCommands) / sizeof(CommArray_s);
270
271			/* Socket commands - these should really do nothing more than output things
272			* to the various players/sockets.
273			*/
274			CommArray_s Socket_Commands[] = {
275			{"hiscore", command_hiscore, 0.0},
276			{"logs", command_logs, 0.0},
277			{"maps", command_maps, 0.0},
278			{"motd", command_motd, 0.0},
279			{"players", command_players, 0.0},
280			{"version", command_version, 0.0},
281			{"who", command_who, 0.0},
282			};
283
284			const int Socket_CommandsSize =sizeof(Socket_Commands) / sizeof(CommArray_s);
285
286
287			/* Socket commands - these should really do nothing more than output things
288			* to the various players/sockets.
289			*/
290			CommArray_s Socket2_Commands[] = {
291			{"shout", command_shout, 0.1},
292			{"chat", command_chat, 0.1},
293			{"tell", command_tell, 0.1},
294			};
295
296			const int Socket2_CommandsSize =sizeof(Socket2_Commands) / sizeof(CommArray_s);
297
298
299
300			static int compare_A(const void a, const void b)
301			{
302			return strcmp(((CommArray_s )a)->name, ((CommArray_s )b)->name);
303			}
304
305			void init_commands(void)
306			{
307			qsort(Commands, CommandsSize, sizeof(CommArray_s), compare_A);
308			qsort(CommunicationCommands, CommunicationCommandSize, sizeof(CommArray_s), compare_A);
309			qsort(NewServerCommands, NewServerCommandSize, sizeof(CommArray_s), compare_A);
310			qsort(WizCommands, WizCommandsSize, sizeof(CommArray_s), compare_A);
311			qsort(Socket_Commands, Socket_CommandsSize, sizeof(CommArray_s), compare_A);
312			qsort(Socket2_Commands, Socket2_CommandsSize, sizeof(CommArray_s), compare_A);
313			}
314
315			#ifndef tolower
316			#define tolower(C) (((C) >= 'A' && (C) <= 'Z')? (C) - 'A' + 'a': (C))
317			#endif
318
319
320			CommFunc find_oldsocket_command(char *cmd)
321			{
322			CommArray_s *asp, dummy;
323			char *cp;
324
325			for (cp=cmd; *cp; cp++) {
326			cp =tolower(cp);
327			}
328
329			dummy.name =cmd;
330			asp =(CommArray_s )bsearch((void )&dummy,
331			(void *)Socket_Commands, Socket_CommandsSize,
332			sizeof(CommArray_s), compare_A);
333			if (asp)
334			return asp->func;
335			return NULL;
336			}
337
338			CommFunc find_oldsocket_command2(char *cmd)
339			{
340			CommArray_s *asp, dummy;
341			char *cp;
342
343			for (cp=cmd; *cp; cp++) {
344			cp =tolower(cp);
345			}
346
347			dummy.name =cmd;
348			asp =(CommArray_s )bsearch((void )&dummy,
349			(void *)Socket2_Commands, Socket2_CommandsSize,
350			sizeof(CommArray_s), compare_A);
351			if (asp)
352			return asp->func;
353			return NULL;
354			}
355
356			static CommFunc find_command(char *cmd)
357			{
358			CommArray_s *asp, dummy;
359			char *cp;
360
361			for (cp=cmd; *cp; cp++)
362			cp =tolower(cp);
363
364			dummy.name =cmd;
365			asp =(CommArray_s )bsearch((void )&dummy,
366			(void *)Commands, CommandsSize,
367			sizeof(CommArray_s), compare_A);
368			LOG(llevDebug, "Getting asp for command string %s\n", cmd);
369			if (asp)
370			return asp->func;
371			else
372			{
373			LOG(llevDebug, "Now we are here\n");
374			asp =(CommArray_s )bsearch((void )&dummy,
375			(void *)CommunicationCommands, CommunicationCommandSize,
376			sizeof(CommArray_s), compare_A);
377			if (asp)
378			return asp->func;
379			else
380			return NULL;
381			};
382			}
383
384			static CommFunc find_wizcommand(char *cmd)
385			{
386			CommArray_s *asp, dummy;
387			char *cp;
388
389			for (cp=cmd; *cp; cp++)
390			cp =tolower(cp);
391
392			dummy.name =cmd;
393			asp =(CommArray_s )bsearch((void )&dummy,
394			(void *)WizCommands, WizCommandsSize,
395			sizeof(CommArray_s), compare_A);
396			if (asp)
397			return asp->func;
398			return NULL;
399			}
400
401
402			/*
403			* parse_string may be called from a player in the game or from a socket
404			* (op is NULL if it's a socket).
405			* It returnes 1 if it recognized the command, otherwise 0.
406			* Actually return value is used as can-repeat -flag
407			*/
408
409			int parse_string(object op, char str)
410			{
411			CommFunc f;
412			char *cp;
413			CommArray_s *asp;
414
415			#ifdef INPUT_DEBUG
416			LOG(llevDebug, "Command: '%s'\n", str);
417			#endif
418			/*
419			* remove trailing spaces
420			*/
421			cp = str+strlen(str)-1;
422			while ( (cp>=str) && (*cp==' ')){
423			*cp='\0';
424			cp--;
425			}
426			/*
427			* No arguments?
428			*/
429			if (!(cp=strchr(str, ' '))) {
430			/* GROS - If we are here, then maybe this is a plugin-provided command ? */
431			asp = find_plugin_command(str, op);
432			if (asp)
433			return asp->func(op, NULL);
434
435			if ((f=find_command(str)))
436			return f(op, NULL);
437			if (QUERY_FLAG(op,FLAG_WIZ) && (f=find_wizcommand(str)))
438			return f(op, NULL);
439
440			if(op) {
441			new_draw_info(NDI_UNIQUE, 0,op, "Unknown command. Try help.");
442			}
443			return 0;
444			}
445
446			/*
447			* Command with some arguments
448			*/
449
450			*(cp++) ='\0';
451			/* Clear all spaces from the start of the optional argument */
452			while (*cp==' ') cp++;
453
454			asp = find_plugin_command(str,op);
455			if (asp) return asp->func(op,cp);
456
457			if ((f=find_command(str)))
458			return f(op, cp);
459			if (QUERY_FLAG(op, FLAG_WIZ) && (f=find_wizcommand(str)))
460			return f(op, cp);
461
462			if(op) {
463			new_draw_info(NDI_UNIQUE, 0,op, "Unknown command. Try help.");
464			}
465			return 0;
466			}
467
468
469			/* this function handles splitting up a ; separated
470			* compound command into sub-commands: it is recursive.
471			*/
472			int parse_command(object op, char str) {
473			char tmp,tmp2;
474			int i;
475			/* if it's a keybinding command, ignore semicolons */
476			if(strstr(str,"bind")) return parse_string(op,str);
477			LOG(llevDebug, "parsin command '%s'\n", str);
478			/* If on a socket, you can not do complex commands. */
479			if(op && (tmp=strchr(str,';'))!=NULL) /* we've found a ';' do the 1st and recurse */
480			{
481			char buf[MAX_BUF];
482			/* copy 1st command into buf */
483			/* Even if tmp2 points the the input_buf, this should still
484			* be safe operation.
485			*/
486			for(i=0,tmp2=str;tmp2!=tmp;i++,tmp2++)
487			buf[i]= (*tmp2);
488			buf[i]='\0'; /* null terminate the copy*/
489			strncpy(op->contr->input_buf,tmp2+1, MAX_BUF);
490			op->contr->input_buf[MAX_BUF-1]=0;
491			parse_string(op,buf);
492			}
493			else {
494			/* We need to set the input_buf to 0 so clear any complex keybinding
495			* there might be. However, str can be a pointer to input_buf in
496			* the case of a complex keybinding. So first we process the command,
497			* clear the buffer, and then return the value.
498			*/
499			i=parse_string(op,str);
500			if (op) op->contr->input_buf[0]=0;
501			return i;
502			}
503			return 0;
504			}