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