path: root/src/map/atcommand.c

// Copyright (c) Athena Dev Teams - Licensed under GNU GPL
// For more information, see LICENCE in the main folder

#include "../common/cbasetypes.h"
#include "../common/mmo.h"
#include "../common/timer.h"
#include "../common/nullpo.h"
#include "../common/core.h"
#include "../common/showmsg.h"
#include "../common/malloc.h"
#include "../common/random.h"
#include "../common/socket.h"
#include "../common/strlib.h"
#include "../common/utils.h"
#include "../common/conf.h"

#include "atcommand.h"
#include "battle.h"
#include "chat.h"
#include "clif.h"
#include "chrif.h"
#include "duel.h"
#include "intif.h"
#include "itemdb.h"
#include "log.h"
#include "map.h"
#include "pc.h"
#include "pc_groups.h" // groupid2name
#include "status.h"
#include "skill.h"
#include "mob.h"
#include "npc.h"
#include "pet.h"
#include "homunculus.h"
#include "mail.h"
#include "mercenary.h"
#include "elemental.h"
#include "party.h"
#include "guild.h"
#include "script.h"
#include "storage.h"
#include "trade.h"
#include "unit.h"
#include "mapreg.h"
#include "quest.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>


#define ATCOMMAND_LENGTH 50
#define ACMD_FUNC(x) static int atcommand_ ## x (const int fd, struct map_session_data* sd, const char* command, const char* message)
#define MAX_MSG 1400


typedef struct AtCommandInfo AtCommandInfo;
typedef struct AliasInfo AliasInfo;

int atcmd_binding_count = 0;

struct AtCommandInfo {
    char command[ATCOMMAND_LENGTH];
    AtCommandFunc func;
    char *at_groups;/* quick @commands "can-use" lookup */
    char *char_groups;/* quick @charcommands "can-use" lookup */
};

struct AliasInfo {
    AtCommandInfo *command;
    char alias[ATCOMMAND_LENGTH];
};


char atcommand_symbol = '@'; // first char of the commands
char charcommand_symbol = '#';

static char *msg_table[MAX_MSG]; // Server messages (0-499 reserved for GM commands, 500-999 reserved for others)
static DBMap *atcommand_db = NULL; //name -> AtCommandInfo
static DBMap *atcommand_alias_db = NULL; //alias -> AtCommandInfo
static config_t atcommand_config;

static char atcmd_output[CHAT_SIZE_MAX];
static char atcmd_player_name[NAME_LENGTH];

static AtCommandInfo *get_atcommandinfo_byname(const char *name); // @help
static const char *atcommand_checkalias(const char *aliasname); // @help
static void atcommand_get_suggestions(struct map_session_data *sd, const char *name, bool atcommand); // @help

// @commands (script-based)
struct atcmd_binding_data *get_atcommandbind_byname(const char *name) {
    int i = 0;

    if (*name == atcommand_symbol || *name == charcommand_symbol)
        name++; // for backwards compatibility

    ARR_FIND(0, atcmd_binding_count, i, strcmp(atcmd_binding[i]->command, name) == 0);

    return (i < atcmd_binding_count) ? atcmd_binding[i] : NULL;
}

//-----------------------------------------------------------
// Return the message string of the specified number by [Yor]
//-----------------------------------------------------------
const char *msg_txt(int msg_number)
{
    if (msg_number >= 0 && msg_number < MAX_MSG &&
        msg_table[msg_number] != NULL && msg_table[msg_number][0] != '\0')
        return msg_table[msg_number];

    return "??";
}

/*==========================================
 * Read Message Data
 *------------------------------------------*/
int msg_config_read(const char *cfgName)
{
    int msg_number;
    char line[1024], w1[1024], w2[1024];
    FILE *fp;
    static int called = 1;

    if ((fp = fopen(cfgName, "r")) == NULL) {
        ShowError("Messages file not found: %s\n", cfgName);
        return 1;
    }

    if ((--called) == 0)
        memset(msg_table, 0, sizeof(msg_table[0]) * MAX_MSG);

    while (fgets(line, sizeof(line), fp)) {
        if (line[0] == '/' && line[1] == '/')
            continue;
        if (sscanf(line, "%[^:]: %[^\r\n]", w1, w2) != 2)
            continue;

        if (strcmpi(w1, "import") == 0)
            msg_config_read(w2);
        else {
            msg_number = atoi(w1);
            if (msg_number >= 0 && msg_number < MAX_MSG) {
                if (msg_table[msg_number] != NULL)
                    aFree(msg_table[msg_number]);
                msg_table[msg_number] = (char *)aMalloc((strlen(w2) + 1)*sizeof(char));
                strcpy(msg_table[msg_number],w2);
            }
        }
    }

    fclose(fp);

    return 0;
}

/*==========================================
 * Cleanup Message Data
 *------------------------------------------*/
void do_final_msg(void)
{
    int i;
    for (i = 0; i < MAX_MSG; i++)
        aFree(msg_table[i]);
}

/**
 * retrieves the help string associated with a given command.
 *
 * @param name the name of the command to retrieve help information for
 * @return the string associated with the command, or NULL
 */
static const char *atcommand_help_string(const char *command)
{
    const char *str = NULL;
    config_setting_t *info;

    if (*command == atcommand_symbol || *command == charcommand_symbol) {
        // remove the prefix symbol for the raw name of the command
        command ++;
    }

    // convert alias to the real command name
    command = atcommand_checkalias(command);

    // attept to find the first default help command
    info = config_lookup(&atcommand_config, "help");

    if (info == NULL) {
        // failed to find the help property in the configuration file
        return NULL;
    }

    if (!config_setting_lookup_string(info, command, &str)) {
        // failed to find the matching help string
        return NULL;
    }

    // push the result from the method
    return str;
}


/*==========================================
 * @send (used for testing packet sends from the client)
 *------------------------------------------*/
ACMD_FUNC(send)
{
    int len=0,off,end,type;
    long num;

    // read message type as hex number (without the 0x)
    if (!message || !*message ||
        !((sscanf(message, "len %x", &type)==1 && (len=1))
          || sscanf(message, "%x", &type)==1)) {
        int i;
        for (i = 900; i <= 903; ++i)
            clif_displaymessage(fd, msg_txt(i));
        return -1;
    }

#define PARSE_ERROR(error,p) \
    {\
        clif_displaymessage(fd, (error));\
        sprintf(atcmd_output, ">%s", (p));\
        clif_displaymessage(fd, atcmd_output);\
    }
    //define PARSE_ERROR

#define CHECK_EOS(p) \
    if(*(p) == 0){\
        clif_displaymessage(fd, "Unexpected end of string");\
        return -1;\
    }
    //define CHECK_EOS

#define SKIP_VALUE(p) \
    {\
        while(*(p) && !ISSPACE(*(p))) ++(p); /* non-space */\
        while(*(p) && ISSPACE(*(p)))  ++(p); /* space */\
    }
    //define SKIP_VALUE

#define GET_VALUE(p,num) \
    {\
        if(sscanf((p), "x%lx", &(num)) < 1 && sscanf((p), "%ld ", &(num)) < 1){\
            PARSE_ERROR("Invalid number in:",(p));\
            return -1;\
        }\
    }
    //define GET_VALUE

    if (type > 0 && type < MAX_PACKET_DB) {

        if (len) {
            // show packet length
            sprintf(atcmd_output, msg_txt(904), type, packet_db[sd->packet_ver][type].len); // Packet 0x%x length: %d
            clif_displaymessage(fd, atcmd_output);
            return 0;
        }

        len=packet_db[sd->packet_ver][type].len;
        off=2;
        if (len == 0) {
            // unknown packet - ERROR
            sprintf(atcmd_output, msg_txt(905), type); // Unknown packet: 0x%x
            clif_displaymessage(fd, atcmd_output);
            return -1;
        } else if (len == -1) {
            // dynamic packet
            len=SHRT_MAX-4; // maximum length
            off=4;
        }
        WFIFOHEAD(fd, len);
        WFIFOW(fd,0)=TOW(type);

        // parse packet contents
        SKIP_VALUE(message);
        while (*message != 0 && off < len) {
            if (ISDIGIT(*message) || *message == '-' || *message == '+') {
                // default (byte)
                GET_VALUE(message,num);
                WFIFOB(fd,off)=TOB(num);
                ++off;
            } else if (TOUPPER(*message) == 'B') {
                // byte
                ++message;
                GET_VALUE(message,num);
                WFIFOB(fd,off)=TOB(num);
                ++off;
            } else if (TOUPPER(*message) == 'W') {
                // word (2 bytes)
                ++message;
                GET_VALUE(message,num);
                WFIFOW(fd,off)=TOW(num);
                off+=2;
            } else if (TOUPPER(*message) == 'L') {
                // long word (4 bytes)
                ++message;
                GET_VALUE(message,num);
                WFIFOL(fd,off)=TOL(num);
                off+=4;
            } else if (TOUPPER(*message) == 'S') {
                // string - escapes are valid
                // get string length - num <= 0 means not fixed length (default)
                ++message;
                if (*message == '"') {
                    num=0;
                } else {
                    GET_VALUE(message,num);
                    while (*message != '"') {
                        // find start of string
                        if (*message == 0 || ISSPACE(*message)) {
                            PARSE_ERROR(msg_txt(906),message); // Not a string:
                            return -1;
                        }
                        ++message;
                    }
                }

                // parse string
                ++message;
                CHECK_EOS(message);
                end=(num<=0? 0: min(off+((int)num),len));
                for (; *message != '"' && (off < end || end == 0); ++off) {
                    if (*message == '\\') {
                        ++message;
                        CHECK_EOS(message);
                        switch (*message) {
                            case 'a':
                                num=0x07;
                                break; // Bell
                            case 'b':
                                num=0x08;
                                break; // Backspace
                            case 't':
                                num=0x09;
                                break; // Horizontal tab
                            case 'n':
                                num=0x0A;
                                break; // Line feed
                            case 'v':
                                num=0x0B;
                                break; // Vertical tab
                            case 'f':
                                num=0x0C;
                                break; // Form feed
                            case 'r':
                                num=0x0D;
                                break; // Carriage return
                            case 'e':
                                num=0x1B;
                                break; // Escape
                            default:
                                num=*message;
                                break;
                            case 'x': { // Hexadecimal
                                    ++message;
                                    CHECK_EOS(message);
                                    if (!ISXDIGIT(*message)) {
                                        PARSE_ERROR(msg_txt(907),message); // Not a hexadecimal digit:
                                        return -1;
                                    }
                                    num=(ISDIGIT(*message)?*message-'0':TOLOWER(*message)-'a'+10);
                                    if (ISXDIGIT(*message)) {
                                        ++message;
                                        CHECK_EOS(message);
                                        num<<=8;
                                        num+=(ISDIGIT(*message)?*message-'0':TOLOWER(*message)-'a'+10);
                                    }
                                    WFIFOB(fd,off)=TOB(num);
                                    ++message;
                                    CHECK_EOS(message);
                                    continue;
                                }
                            case '0':
                            case '1':
                            case '2':
                            case '3':
                            case '4':
                            case '5':
                            case '6':
                            case '7': { // Octal
                                    num=*message-'0'; // 1st octal digit
                                    ++message;
                                    CHECK_EOS(message);
                                    if (ISDIGIT(*message) && *message < '8') {
                                        num<<=3;
                                        num+=*message-'0'; // 2nd octal digit
                                        ++message;
                                        CHECK_EOS(message);
                                        if (ISDIGIT(*message) && *message < '8') {
                                            num<<=3;
                                            num+=*message-'0'; // 3rd octal digit
                                            ++message;
                                            CHECK_EOS(message);
                                        }
                                    }
                                    WFIFOB(fd,off)=TOB(num);
                                    continue;
                                }
                        }
                    } else
                        num=*message;
                    WFIFOB(fd,off)=TOB(num);
                    ++message;
                    CHECK_EOS(message);
                }//for
                while (*message != '"') {
                    // ignore extra characters
                    ++message;
                    CHECK_EOS(message);
                }

                // terminate the string
                if (off < end) {
                    // fill the rest with 0's
                    memset(WFIFOP(fd,off),0,end-off);
                    off=end;
                }
            } else {
                // unknown
                PARSE_ERROR(msg_txt(908),message); // Unknown type of value in:
                return -1;
            }
            SKIP_VALUE(message);
        }

        if (packet_db[sd->packet_ver][type].len == -1) {
            // send dynamic packet
            WFIFOW(fd,2)=TOW(off);
            WFIFOSET(fd,off);
        } else {
            // send static packet
            if (off < len)
                memset(WFIFOP(fd,off),0,len-off);
            WFIFOSET(fd,len);
        }
    } else {
        clif_displaymessage(fd, msg_txt(259)); // Invalid packet
        return -1;
    }
    sprintf(atcmd_output, msg_txt(258), type, type);  // Sent packet 0x%x (%d)
    clif_displaymessage(fd, atcmd_output);
    return 0;
#undef PARSE_ERROR
#undef CHECK_EOS
#undef SKIP_VALUE
#undef GET_VALUE
}

/*==========================================
 * @rura, @warp, @mapmove
 *------------------------------------------*/
ACMD_FUNC(mapmove)
{
    char map_name[MAP_NAME_LENGTH_EXT];
    unsigned short mapindex;
    short x = 0, y = 0;
    int m = -1;

    nullpo_retr(-1, sd);

    memset(map_name, '\0', sizeof(map_name));

    if (!message || !*message ||
        (sscanf(message, "%15s %hd %hd", map_name, &x, &y) < 3 &&
         sscanf(message, "%15[^,],%hd,%hd", map_name, &x, &y) < 1)) {

        clif_displaymessage(fd, msg_txt(909)); // Please enter a map (usage: @warp/@rura/@mapmove <mapname> <x> <y>).
        return -1;
    }

    mapindex = mapindex_name2id(map_name);
    if (mapindex)
        m = map_mapindex2mapid(mapindex);

    if (!mapindex) { // m < 0 means on different server! [Kevin]
        clif_displaymessage(fd, msg_txt(1)); // Map not found.
        return -1;
    }

    if ((x || y) && map_getcell(m, x, y, CELL_CHKNOPASS)) {
        //This is to prevent the pc_setpos call from printing an error.
        clif_displaymessage(fd, msg_txt(2));
        if (!map_search_freecell(NULL, m, &x, &y, 10, 10, 1))
            x = y = 0; //Invalid cell, use random spot.
    }
    if (map[m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(247));
        return -1;
    }
    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(248));
        return -1;
    }
    if (pc_setpos(sd, mapindex, x, y, CLR_TELEPORT) != 0) {
        clif_displaymessage(fd, msg_txt(1)); // Map not found.
        return -1;
    }

    clif_displaymessage(fd, msg_txt(0)); // Warped.
    return 0;
}

/*==========================================
 * Displays where a character is. Corrected version by Silent. [Skotlex]
 *------------------------------------------*/
ACMD_FUNC(where)
{
    struct map_session_data *pl_sd;

    nullpo_retr(-1, sd);
    memset(atcmd_player_name, '\0', sizeof atcmd_player_name);

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(910)); // Please enter a player name (usage: @where <char name>).
        return -1;
    }

    pl_sd = map_nick2sd(atcmd_player_name);
    if (pl_sd == NULL ||
        strncmp(pl_sd->status.name, atcmd_player_name, NAME_LENGTH) != 0 ||
        (pc_has_permission(pl_sd, PC_PERM_HIDE_SESSION) && pc_get_group_level(pl_sd) > pc_get_group_level(sd) && !pc_has_permission(sd, PC_PERM_WHO_DISPLAY_AID))
       ) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    snprintf(atcmd_output, sizeof atcmd_output, "%s %s %d %d", pl_sd->status.name, mapindex_id2name(pl_sd->mapindex), pl_sd->bl.x, pl_sd->bl.y);
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(jumpto)
{
    struct map_session_data *pl_sd = NULL;

    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(911)); // Please enter a player name (usage: @jumpto/@warpto/@goto <char name/ID>).
        return -1;
    }

    if ((pl_sd=map_nick2sd((char *)message)) == NULL && (pl_sd=map_charid2sd(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pl_sd->bl.m >= 0 && map[pl_sd->bl.m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(247));  // You are not authorized to warp to this map.
        return -1;
    }

    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(248));  // You are not authorized to warp from your current map.
        return -1;
    }

    if (pc_isdead(sd)) {
        clif_displaymessage(fd, msg_txt(664));
        return -1;
    }

    pc_setpos(sd, pl_sd->mapindex, pl_sd->bl.x, pl_sd->bl.y, CLR_TELEPORT);
    sprintf(atcmd_output, msg_txt(4), pl_sd->status.name); // Jumped to %s
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(jump)
{
    short x = 0, y = 0;

    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    sscanf(message, "%hd %hd", &x, &y);

    if (map[sd->bl.m].flag.noteleport && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(248));  // You are not authorized to warp from your current map.
        return -1;
    }

    if (pc_isdead(sd)) {
        clif_displaymessage(fd, msg_txt(664));
        return -1;
    }

    if ((x || y) && map_getcell(sd->bl.m, x, y, CELL_CHKNOPASS)) {
        //This is to prevent the pc_setpos call from printing an error.
        clif_displaymessage(fd, msg_txt(2));
        if (!map_search_freecell(NULL, sd->bl.m, &x, &y, 10, 10, 1))
            x = y = 0; //Invalid cell, use random spot.
    }

    pc_setpos(sd, sd->mapindex, x, y, CLR_TELEPORT);
    sprintf(atcmd_output, msg_txt(5), sd->bl.x, sd->bl.y); // Jumped to %d %d
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

/*==========================================
 * Display list of online characters with
 * various info.
 *------------------------------------------*/
ACMD_FUNC(who)
{
    struct map_session_data *pl_sd = NULL;
    struct s_mapiterator *iter = NULL;
    char map_name[MAP_NAME_LENGTH_EXT] = "";
    char player_name[NAME_LENGTH] = "";
    int count = 0;
    int level = 0;
    StringBuf buf;
    /**
     * 1 = @who  : Player name, [Title], [Party name], [Guild name]
     * 2 = @who2 : Player name, [Title], BLvl, JLvl, Job
     * 3 = @who3 : [CID/AID] Player name [Title], Map, X, Y
     */
    int display_type = 1;
    int map_id = -1;

    nullpo_retr(-1, sd);

    if (strstr(command, "map") != NULL) {
        if (sscanf(message, "%15s %23s", map_name, player_name) < 1 || (map_id = map_mapname2mapid(map_name)) < 0)
            map_id = sd->bl.m;
    } else {
        sscanf(message, "%23s", player_name);
    }

    if (strstr(command, "2") != NULL)
        display_type = 2;
    else if (strstr(command, "3") != NULL)
        display_type = 3;

    level = pc_get_group_level(sd);
    StringBuf_Init(&buf);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (!((pc_has_permission(pl_sd, PC_PERM_HIDE_SESSION) || (pl_sd->sc.option & OPTION_INVISIBLE)) && pc_get_group_level(pl_sd) > level)) { // you can look only lower or same level
            if (stristr(pl_sd->status.name, player_name) == NULL // search with no case sensitive
                || (map_id >= 0 && pl_sd->bl.m != map_id))
                continue;
            switch (display_type) {
                case 2: {
                        StringBuf_Printf(&buf, msg_txt(343), pl_sd->status.name); // "Name: %s "
                        if (pc_get_group_id(pl_sd) > 0) // Player title, if exists
                            StringBuf_Printf(&buf, msg_txt(344), pc_group_id2name(pc_get_group_id(pl_sd))); // "(%s) "
                        StringBuf_Printf(&buf, msg_txt(347), pl_sd->status.base_level, pl_sd->status.job_level,
                                         job_name(pl_sd->status.class_)); // "| Lv:%d/%d | Job: %s"
                        break;
                    }
                case 3: {
                        if (pc_has_permission(sd, PC_PERM_WHO_DISPLAY_AID))
                            StringBuf_Printf(&buf, msg_txt(912), pl_sd->status.char_id, pl_sd->status.account_id);  // "(CID:%d/AID:%d) "
                        StringBuf_Printf(&buf, msg_txt(343), pl_sd->status.name); // "Name: %s "
                        if (pc_get_group_id(pl_sd) > 0) // Player title, if exists
                            StringBuf_Printf(&buf, msg_txt(344), pc_group_id2name(pc_get_group_id(pl_sd))); // "(%s) "
                        StringBuf_Printf(&buf, msg_txt(348), mapindex_id2name(pl_sd->mapindex), pl_sd->bl.x, pl_sd->bl.y); // "| Location: %s %d %d"
                        break;
                    }
                default: {
                        struct party_data *p = party_search(pl_sd->status.party_id);
                        struct guild *g = guild_search(pl_sd->status.guild_id);

                        StringBuf_Printf(&buf, msg_txt(343), pl_sd->status.name); // "Name: %s "
                        if (pc_get_group_id(pl_sd) > 0) // Player title, if exists
                            StringBuf_Printf(&buf, msg_txt(344), pc_group_id2name(pc_get_group_id(pl_sd))); // "(%s) "
                        if (p != NULL)
                            StringBuf_Printf(&buf, msg_txt(345), p->party.name); // " | Party: '%s'"
                        if (g != NULL)
                            StringBuf_Printf(&buf, msg_txt(346), g->name); // " | Guild: '%s'"
                        break;
                    }
            }
            clif_displaymessage(fd, StringBuf_Value(&buf));
            StringBuf_Clear(&buf);
            count++;
        }
    }
    mapit_free(iter);

    if (map_id < 0) {
        if (count == 0)
            StringBuf_Printf(&buf, msg_txt(28)); // No player found.
        else if (count == 1)
            StringBuf_Printf(&buf, msg_txt(29)); // 1 player found.
        else
            StringBuf_Printf(&buf, msg_txt(30), count); // %d players found.
    } else {
        if (count == 0)
            StringBuf_Printf(&buf, msg_txt(54), map[map_id].name); // No player found in map '%s'.
        else if (count == 1)
            StringBuf_Printf(&buf, msg_txt(55), map[map_id].name); // 1 player found in map '%s'.
        else
            StringBuf_Printf(&buf, msg_txt(56), count, map[map_id].name); // %d players found in map '%s'.
    }
    clif_displaymessage(fd, StringBuf_Value(&buf));
    StringBuf_Destroy(&buf);
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(whogm)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    int j, count;
    int pl_level, level;
    char match_text[CHAT_SIZE_MAX];
    char player_name[NAME_LENGTH];
    struct guild *g;
    struct party_data *p;

    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));
    memset(match_text, '\0', sizeof(match_text));
    memset(player_name, '\0', sizeof(player_name));

    if (sscanf(message, "%199[^\n]", match_text) < 1)
        strcpy(match_text, "");
    for (j = 0; match_text[j]; j++)
        match_text[j] = TOLOWER(match_text[j]);

    count = 0;
    level = pc_get_group_level(sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        pl_level = pc_get_group_level(pl_sd);
        if (!pl_level)
            continue;

        if (match_text[0]) {
            memcpy(player_name, pl_sd->status.name, NAME_LENGTH);
            for (j = 0; player_name[j]; j++)
                player_name[j] = TOLOWER(player_name[j]);
            // search with no case sensitive
            if (strstr(player_name, match_text) == NULL)
                continue;
        }
        if (pl_level > level) {
            if (pl_sd->sc.option & OPTION_INVISIBLE)
                continue;
            sprintf(atcmd_output, msg_txt(913), pl_sd->status.name); // Name: %s (GM)
            clif_displaymessage(fd, atcmd_output);
            count++;
            continue;
        }

        sprintf(atcmd_output, msg_txt(914), // Name: %s (GM:%d) | Location: %s %d %d
                pl_sd->status.name, pl_level,
                mapindex_id2name(pl_sd->mapindex), pl_sd->bl.x, pl_sd->bl.y);
        clif_displaymessage(fd, atcmd_output);

        sprintf(atcmd_output, msg_txt(915), // BLvl: %d | Job: %s (Lvl: %d)
                pl_sd->status.base_level,
                job_name(pl_sd->status.class_), pl_sd->status.job_level);
        clif_displaymessage(fd, atcmd_output);

        p = party_search(pl_sd->status.party_id);
        g = guild_search(pl_sd->status.guild_id);

        sprintf(atcmd_output,msg_txt(916),  // Party: '%s' | Guild: '%s'
                p?p->party.name:msg_txt(917), g?g->name:msg_txt(917));  // None.

        clif_displaymessage(fd, atcmd_output);
        count++;
    }
    mapit_free(iter);

    if (count == 0)
        clif_displaymessage(fd, msg_txt(150)); // No GM found.
    else if (count == 1)
        clif_displaymessage(fd, msg_txt(151)); // 1 GM found.
    else {
        sprintf(atcmd_output, msg_txt(152), count); // %d GMs found.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(save)
{
    nullpo_retr(-1, sd);

    pc_setsavepoint(sd, sd->mapindex, sd->bl.x, sd->bl.y);
    if (sd->status.pet_id > 0 && sd->pd)
        intif_save_petdata(sd->status.account_id, &sd->pd->pet);

    chrif_save(sd,0);

    clif_displaymessage(fd, msg_txt(6)); // Your save point has been changed.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(load)
{
    int m;

    nullpo_retr(-1, sd);

    m = map_mapindex2mapid(sd->status.save_point.map);
    if (m >= 0 && map[m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(249));  // You are not authorized to warp to your save map.
        return -1;
    }
    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(248));  // You are not authorized to warp from your current map.
        return -1;
    }

    pc_setpos(sd, sd->status.save_point.map, sd->status.save_point.x, sd->status.save_point.y, CLR_OUTSIGHT);
    clif_displaymessage(fd, msg_txt(7)); // Warping to save point..

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(speed)
{
    int speed;

    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &speed) < 1) {
        sprintf(atcmd_output, msg_txt(918), MIN_WALK_SPEED, MAX_WALK_SPEED); // Please enter a speed value (usage: @speed <%d-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    sd->base_status.speed = cap_value(speed, MIN_WALK_SPEED, MAX_WALK_SPEED);
    status_calc_bl(&sd->bl, SCB_SPEED);
    clif_displaymessage(fd, msg_txt(8)); // Speed changed.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(storage)
{
    nullpo_retr(-1, sd);

    if (sd->npc_id || sd->state.vending || sd->state.buyingstore || sd->state.trading || sd->state.storage_flag)
        return -1;

    if (storage_storageopen(sd) == 1) {
        //Already open.
        clif_displaymessage(fd, msg_txt(250));
        return -1;
    }

    clif_displaymessage(fd, msg_txt(919)); // Storage opened.

    return 0;
}


/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(guildstorage)
{
    nullpo_retr(-1, sd);

    if (!sd->status.guild_id) {
        clif_displaymessage(fd, msg_txt(252));
        return -1;
    }

    if (sd->npc_id || sd->state.vending || sd->state.buyingstore || sd->state.trading)
        return -1;

    if (sd->state.storage_flag == 1) {
        clif_displaymessage(fd, msg_txt(250));
        return -1;
    }

    if (sd->state.storage_flag == 2) {
        clif_displaymessage(fd, msg_txt(251));
        return -1;
    }

    storage_guild_storageopen(sd);
    clif_displaymessage(fd, msg_txt(920)); // Guild storage opened.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(option)
{
    int param1 = 0, param2 = 0, param3 = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %d %d", &param1, &param2, &param3) < 1 || param1 < 0 || param2 < 0 || param3 < 0) {
        // failed to match the parameters so inform the user of the options
        const char *text = NULL;

        // attempt to find the setting information for this command
        text = atcommand_help_string(command);

        // notify the user of the requirement to enter an option
        clif_displaymessage(fd, msg_txt(921)); // Please enter at least one option.

        if (text) {
            // send the help text associated with this command
            clif_displaymessage(fd, text);
        }

        return -1;
    }

    sd->sc.opt1 = param1;
    sd->sc.opt2 = param2;
    pc_setoption(sd, param3);

    clif_displaymessage(fd, msg_txt(9)); // Options changed.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(hide)
{
    nullpo_retr(-1, sd);
    if (sd->sc.option & OPTION_INVISIBLE) {
        sd->sc.option &= ~OPTION_INVISIBLE;
        if (sd->disguise)
            status_set_viewdata(&sd->bl, sd->disguise);
        else
            status_set_viewdata(&sd->bl, sd->status.class_);
        clif_displaymessage(fd, msg_txt(10)); // Invisible: Off

        // increment the number of pvp players on the map
        map[sd->bl.m].users_pvp++;

        if (map[sd->bl.m].flag.pvp && !map[sd->bl.m].flag.pvp_nocalcrank) {
            // register the player for ranking calculations
            sd->pvp_timer = add_timer(gettick() + 200, pc_calc_pvprank_timer, sd->bl.id, 0);
        }
        //bugreport:2266
        map_foreachinmovearea(clif_insight, &sd->bl, AREA_SIZE, sd->bl.x, sd->bl.y, BL_ALL, &sd->bl);
    } else {
        sd->sc.option |= OPTION_INVISIBLE;
        sd->vd.class_ = INVISIBLE_CLASS;
        clif_displaymessage(fd, msg_txt(11)); // Invisible: On

        // decrement the number of pvp players on the map
        map[sd->bl.m].users_pvp--;

        if (map[sd->bl.m].flag.pvp && !map[sd->bl.m].flag.pvp_nocalcrank && sd->pvp_timer != INVALID_TIMER) {
            // unregister the player for ranking
            delete_timer(sd->pvp_timer, pc_calc_pvprank_timer);
            sd->pvp_timer = INVALID_TIMER;
        }
    }
    clif_changeoption(&sd->bl);

    return 0;
}

/*==========================================
 * Changes a character's class
 *------------------------------------------*/
ACMD_FUNC(jobchange)
{
    //FIXME: redundancy, potentially wrong code, should use job_name() or similar instead of hardcoding the table [ultramage]
    int job = 0, upper = 0;
    const char *text;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %d", &job, &upper) < 1) {
        int i, found = 0;
        const struct {
            char name[24];
            int id;
        } jobs[] = {
            { "novice",            0 },
            { "swordman",          1 },
            { "swordsman",         1 },
            { "magician",          2 },
            { "mage",              2 },
            { "archer",            3 },
            { "acolyte",           4 },
            { "merchant",          5 },
            { "thief",             6 },
            { "knight",            7 },
            { "priest",            8 },
            { "priestess",         8 },
            { "wizard",            9 },
            { "blacksmith",       10 },
            { "hunter",           11 },
            { "assassin",         12 },
            { "crusader",         14 },
            { "monk",             15 },
            { "sage",             16 },
            { "rogue",            17 },
            { "alchemist",        18 },
            { "bard",             19 },
            { "dancer",           20 },
            { "super novice",     23 },
            { "supernovice",      23 },
            { "gunslinger",       24 },
            { "gunner",           24 },
            { "ninja",            25 },
            { "novice high",    4001 },
            { "high novice",    4001 },
            { "swordman high",  4002 },
            { "swordsman high", 4002 },
            { "magician high",  4003 },
            { "mage high",      4003 },
            { "archer high",    4004 },
            { "acolyte high",   4005 },
            { "merchant high",  4006 },
            { "thief high",     4007 },
            { "lord knight",    4008 },
            { "high priest",    4009 },
            { "high priestess", 4009 },
            { "high wizard",    4010 },
            { "whitesmith",     4011 },
            { "sniper",         4012 },
            { "assassin cross", 4013 },
            { "paladin",        4015 },
            { "champion",       4016 },
            { "professor",      4017 },
            { "stalker",        4018 },
            { "creator",        4019 },
            { "clown",          4020 },
            { "gypsy",          4021 },
            { "baby novice",    4023 },
            { "baby swordman",  4024 },
            { "baby swordsman", 4024 },
            { "baby magician",  4025 },
            { "baby mage",      4025 },
            { "baby archer",    4026 },
            { "baby acolyte",   4027 },
            { "baby merchant",  4028 },
            { "baby thief",     4029 },
            { "baby knight",    4030 },
            { "baby priest",    4031 },
            { "baby priestess", 4031 },
            { "baby wizard",    4032 },
            { "baby blacksmith",4033 },
            { "baby hunter",    4034 },
            { "baby assassin",  4035 },
            { "baby crusader",  4037 },
            { "baby monk",      4038 },
            { "baby sage",      4039 },
            { "baby rogue",     4040 },
            { "baby alchemist", 4041 },
            { "baby bard",      4042 },
            { "baby dancer",    4043 },
            { "super baby",     4045 },
            { "taekwon",        4046 },
            { "taekwon boy",    4046 },
            { "taekwon girl",   4046 },
            { "star gladiator", 4047 },
            { "soul linker",    4049 },
            { "gangsi",         4050 },
            { "bongun",         4050 },
            { "munak",          4050 },
            { "death knight",   4051 },
            { "dark collector", 4052 },
            { "rune knight",    4054 },
            { "warlock",        4055 },
            { "ranger",         4056 },
            { "arch bishop",    4057 },
            { "mechanic",       4058 },
            { "guillotine",     4059 },
            { "rune knight2",   4060 },
            { "warlock2",       4061 },
            { "ranger2",        4062 },
            { "arch bishop2",   4063 },
            { "mechanic2",      4064 },
            { "guillotine2",    4065 },
            { "royal guard",    4066 },
            { "sorcerer",       4067 },
            { "minstrel",       4068 },
            { "wanderer",       4069 },
            { "sura",           4070 },
            { "genetic",        4071 },
            { "shadow chaser",  4072 },
            { "royal guard2",   4073 },
            { "sorcerer2",      4074 },
            { "minstrel2",      4075 },
            { "wanderer2",      4076 },
            { "sura2",          4077 },
            { "genetic2",       4078 },
            { "shadow chaser2", 4079 },
            { "baby rune",      4096 },
            { "baby warlock",   4097 },
            { "baby ranger",    4098 },
            { "baby bishop",    4099 },
            { "baby mechanic",  4100 },
            { "baby cross",     4101 },
            { "baby guard",     4102 },
            { "baby sorcerer",  4103 },
            { "baby minstrel",  4104 },
            { "baby wanderer",  4105 },
            { "baby sura",      4106 },
            { "baby genetic",   4107 },
            { "baby chaser",    4108 },
            { "super novice e", 4190 },
            { "super baby e",   4191 },
            { "kagerou",        4211 },
            { "oboro",          4212 },
        };

        for (i=0; i < ARRAYLENGTH(jobs); i++) {
            if (strncmpi(message, jobs[i].name, 16) == 0) {
                job = jobs[i].id;
                upper = 0;
                found = 1;
                break;
            }
        }

        if (!found) {
            text = atcommand_help_string(command);
            if (text) clif_displaymessage(fd, text);
            return -1;
        }
    }

    if (job == 13 || job == 21 || job == 22 || job == 26 || job == 27 || job == 4014 || job == 4022 || job == 4036 || job == 4044 || job == 4048
        || (job >= JOB_RUNE_KNIGHT2 && job <= JOB_MECHANIC_T2) || (job >= JOB_BABY_RUNE2 && job <= JOB_BABY_MECHANIC2)
       ) { // Deny direct transformation into dummy jobs
        clif_displaymessage(fd, msg_txt(923)); //"You can not change to this job by command."
        return 0;
    }

    if (pcdb_checkid(job)) {
        if (pc_jobchange(sd, job, upper) == 0)
            clif_displaymessage(fd, msg_txt(12)); // Your job has been changed.
        else {
            clif_displaymessage(fd, msg_txt(155)); // You are unable to change your job.
            return -1;
        }
    } else {
        text = atcommand_help_string(command);
        if (text) clif_displaymessage(fd, text);
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(kill)
{
    nullpo_retr(-1, sd);
    status_kill(&sd->bl);
    clif_displaymessage(sd->fd, msg_txt(13)); // A pity! You've died.
    if (fd != sd->fd)
        clif_displaymessage(fd, msg_txt(14)); // Character killed.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(alive)
{
    nullpo_retr(-1, sd);
    if (!status_revive(&sd->bl, 100, 100)) {
        clif_displaymessage(fd, msg_txt(667));
        return -1;
    }
    clif_skill_nodamage(&sd->bl,&sd->bl,ALL_RESURRECTION,4,1);
    clif_displaymessage(fd, msg_txt(16)); // You've been revived! It's a miracle!
    return 0;
}

/*==========================================
 * +kamic [LuzZza]
 *------------------------------------------*/
ACMD_FUNC(kami)
{
    unsigned long color=0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (*(command + 5) != 'c' && *(command + 5) != 'C') {
        if (!message || !*message) {
            clif_displaymessage(fd, msg_txt(980)); // Please enter a message (usage: @kami <message>).
            return -1;
        }

        sscanf(message, "%199[^\n]", atcmd_output);
        if (strstr(command, "l") != NULL)
            clif_broadcast(&sd->bl, atcmd_output, strlen(atcmd_output) + 1, 0, ALL_SAMEMAP);
        else
            intif_broadcast(atcmd_output, strlen(atcmd_output) + 1, (*(command + 5) == 'b' || *(command + 5) == 'B') ? 0x10 : 0);
    } else {
        if (!message || !*message || (sscanf(message, "%lx %199[^\n]", &color, atcmd_output) < 2)) {
            clif_displaymessage(fd, msg_txt(981)); // Please enter color and message (usage: @kamic <color> <message>).
            return -1;
        }

        if (color > 0xFFFFFF) {
            clif_displaymessage(fd, msg_txt(982)); // Invalid color.
            return -1;
        }
        intif_broadcast2(atcmd_output, strlen(atcmd_output) + 1, color, 0x190, 12, 0, 0);
    }
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(heal)
{
    int hp = 0, sp = 0; // [Valaris] thanks to fov
    nullpo_retr(-1, sd);

    sscanf(message, "%d %d", &hp, &sp);

    // some overflow checks
    if (hp == INT_MIN) hp++;
    if (sp == INT_MIN) sp++;

    if (hp == 0 && sp == 0) {
        if (!status_percent_heal(&sd->bl, 100, 100))
            clif_displaymessage(fd, msg_txt(157)); // HP and SP have already been recovered.
        else
            clif_displaymessage(fd, msg_txt(17)); // HP, SP recovered.
        return 0;
    }

    if (hp > 0 && sp >= 0) {
        if (!status_heal(&sd->bl, hp, sp, 0))
            clif_displaymessage(fd, msg_txt(157)); // HP and SP are already with the good value.
        else
            clif_displaymessage(fd, msg_txt(17)); // HP, SP recovered.
        return 0;
    }

    if (hp < 0 && sp <= 0) {
        status_damage(NULL, &sd->bl, -hp, -sp, 0, 0);
        clif_damage(&sd->bl,&sd->bl, gettick(), 0, 0, -hp, 0, 4, 0);
        clif_displaymessage(fd, msg_txt(156)); // HP or/and SP modified.
        return 0;
    }

    //Opposing signs.
    if (hp) {
        if (hp > 0)
            status_heal(&sd->bl, hp, 0, 0);
        else {
            status_damage(NULL, &sd->bl, -hp, 0, 0, 0);
            clif_damage(&sd->bl,&sd->bl, gettick(), 0, 0, -hp, 0, 4, 0);
        }
    }

    if (sp) {
        if (sp > 0)
            status_heal(&sd->bl, 0, sp, 0);
        else
            status_damage(NULL, &sd->bl, 0, -sp, 0, 0);
    }

    clif_displaymessage(fd, msg_txt(156)); // HP or/and SP modified.
    return 0;
}

/*==========================================
 * @item command (usage: @item <name/id_of_item> <quantity>) (modified by [Yor] for pet_egg)
 *------------------------------------------*/
ACMD_FUNC(item)
{
    char item_name[100];
    int number = 0, item_id, flag = 0;
    struct item item_tmp;
    struct item_data *item_data;
    int get_count, i;
    nullpo_retr(-1, sd);

    memset(item_name, '\0', sizeof(item_name));

    if (!message || !*message || (
            sscanf(message, "\"%99[^\"]\" %d", item_name, &number) < 1 &&
            sscanf(message, "%99s %d", item_name, &number) < 1
        )) {
        clif_displaymessage(fd, msg_txt(983)); // Please enter an item name or ID (usage: @item <item name/ID> <quantity>).
        return -1;
    }

    if (number <= 0)
        number = 1;

    if ((item_data = itemdb_searchname(item_name)) == NULL &&
        (item_data = itemdb_exists(atoi(item_name))) == NULL) {
        clif_displaymessage(fd, msg_txt(19)); // Invalid item ID or name.
        return -1;
    }

    item_id = item_data->nameid;
    get_count = number;
    //Check if it's stackable.
    if (!itemdb_isstackable2(item_data))
        get_count = 1;

    for (i = 0; i < number; i += get_count) {
        // if not pet egg
        if (!pet_create_egg(sd, item_id)) {
            memset(&item_tmp, 0, sizeof(item_tmp));
            item_tmp.nameid = item_id;
            item_tmp.identify = 1;

            if ((flag = pc_additem(sd, &item_tmp, get_count, LOG_TYPE_COMMAND)))
                clif_additem(sd, 0, 0, flag);
        }
    }

    if (flag == 0)
        clif_displaymessage(fd, msg_txt(18)); // Item created.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(item2)
{
    struct item item_tmp;
    struct item_data *item_data;
    char item_name[100];
    int item_id, number = 0;
    int identify = 0, refine = 0, attr = 0;
    int c1 = 0, c2 = 0, c3 = 0, c4 = 0;
    int flag = 0;
    int loop, get_count, i;
    nullpo_retr(-1, sd);

    memset(item_name, '\0', sizeof(item_name));

    if (!message || !*message || (
            sscanf(message, "\"%99[^\"]\" %d %d %d %d %d %d %d %d", item_name, &number, &identify, &refine, &attr, &c1, &c2, &c3, &c4) < 9 &&
            sscanf(message, "%99s %d %d %d %d %d %d %d %d", item_name, &number, &identify, &refine, &attr, &c1, &c2, &c3, &c4) < 9
        )) {
        clif_displaymessage(fd, msg_txt(984)); // Please enter all parameters (usage: @item2 <item name/ID> <quantity>
        clif_displaymessage(fd, msg_txt(985)); //   <identify_flag> <refine> <attribute> <card1> <card2> <card3> <card4>).
        return -1;
    }

    if (number <= 0)
        number = 1;

    item_id = 0;
    if ((item_data = itemdb_searchname(item_name)) != NULL ||
        (item_data = itemdb_exists(atoi(item_name))) != NULL)
        item_id = item_data->nameid;

    if (item_id > 500) {
        loop = 1;
        get_count = number;
        if (item_data->type == IT_WEAPON || item_data->type == IT_ARMOR ||
            item_data->type == IT_PETEGG || item_data->type == IT_PETARMOR) {
            loop = number;
            get_count = 1;
            if (item_data->type == IT_PETEGG) {
                identify = 1;
                refine = 0;
            }
            if (item_data->type == IT_PETARMOR)
                refine = 0;
            if (refine > MAX_REFINE)
                refine = MAX_REFINE;
        } else {
            identify = 1;
            refine = attr = 0;
        }
        for (i = 0; i < loop; i++) {
            memset(&item_tmp, 0, sizeof(item_tmp));
            item_tmp.nameid = item_id;
            item_tmp.identify = identify;
            item_tmp.refine = refine;
            item_tmp.attribute = attr;
            item_tmp.card[0] = c1;
            item_tmp.card[1] = c2;
            item_tmp.card[2] = c3;
            item_tmp.card[3] = c4;
            if ((flag = pc_additem(sd, &item_tmp, get_count, LOG_TYPE_COMMAND)))
                clif_additem(sd, 0, 0, flag);
        }

        if (flag == 0)
            clif_displaymessage(fd, msg_txt(18)); // Item created.
    } else {
        clif_displaymessage(fd, msg_txt(19)); // Invalid item ID or name.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(itemreset)
{
    int i;
    nullpo_retr(-1, sd);

    for (i = 0; i < MAX_INVENTORY; i++) {
        if (sd->status.inventory[i].amount && sd->status.inventory[i].equip == 0) {
            pc_delitem(sd, i, sd->status.inventory[i].amount, 0, 0, LOG_TYPE_COMMAND);
        }
    }
    clif_displaymessage(fd, msg_txt(20)); // All of your items have been removed.

    return 0;
}

/*==========================================
 * Atcommand @lvlup
 *------------------------------------------*/
ACMD_FUNC(baselevelup)
{
    int level=0, i=0, status_point=0;
    nullpo_retr(-1, sd);
    level = atoi(message);

    if (!message || !*message || !level) {
        clif_displaymessage(fd, msg_txt(986)); // Please enter a level adjustment (usage: @lvup/@blevel/@baselvlup <number of levels>).
        return -1;
    }

    if (level > 0) {
        if (sd->status.base_level >= pc_maxbaselv(sd)) { // check for max level by Valaris
            clif_displaymessage(fd, msg_txt(47)); // Base level can't go any higher.
            return -1;
        } // End Addition
        if ((unsigned int)level > pc_maxbaselv(sd) || (unsigned int)level > pc_maxbaselv(sd) - sd->status.base_level) // fix positiv overflow
            level = pc_maxbaselv(sd) - sd->status.base_level;
        for (i = 0; i < level; i++)
            status_point += pc_gets_status_point(sd->status.base_level + i);

        sd->status.status_point += status_point;
        sd->status.base_level += (unsigned int)level;
        status_percent_heal(&sd->bl, 100, 100);
        clif_misceffect(&sd->bl, 0);
        clif_displaymessage(fd, msg_txt(21)); // Base level raised.
    } else {
        if (sd->status.base_level == 1) {
            clif_displaymessage(fd, msg_txt(158)); // Base level can't go any lower.
            return -1;
        }
        level*=-1;
        if ((unsigned int)level >= sd->status.base_level)
            level = sd->status.base_level-1;
        for (i = 0; i > -level; i--)
            status_point += pc_gets_status_point(sd->status.base_level + i - 1);
        if (sd->status.status_point < status_point)
            pc_resetstate(sd);
        if (sd->status.status_point < status_point)
            sd->status.status_point = 0;
        else
            sd->status.status_point -= status_point;
        sd->status.base_level -= (unsigned int)level;
        clif_displaymessage(fd, msg_txt(22)); // Base level lowered.
    }
    sd->status.base_exp = 0;
    clif_updatestatus(sd, SP_STATUSPOINT);
    clif_updatestatus(sd, SP_BASELEVEL);
    clif_updatestatus(sd, SP_BASEEXP);
    clif_updatestatus(sd, SP_NEXTBASEEXP);
    status_calc_pc(sd, 0);
    pc_baselevelchanged(sd);
    if (sd->status.party_id)
        party_send_levelup(sd);
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(joblevelup)
{
    int level=0;
    nullpo_retr(-1, sd);

    level = atoi(message);

    if (!message || !*message || !level) {
        clif_displaymessage(fd, msg_txt(987)); // Please enter a level adjustment (usage: @joblvup/@jlevel/@joblvlup <number of levels>).
        return -1;
    }
    if (level > 0) {
        if (sd->status.job_level >= pc_maxjoblv(sd)) {
            clif_displaymessage(fd, msg_txt(23)); // Job level can't go any higher.
            return -1;
        }
        if ((unsigned int)level > pc_maxjoblv(sd) || (unsigned int)level > pc_maxjoblv(sd) - sd->status.job_level) // fix positiv overflow
            level = pc_maxjoblv(sd) - sd->status.job_level;
        sd->status.job_level += (unsigned int)level;
        sd->status.skill_point += level;
        clif_misceffect(&sd->bl, 1);
        clif_displaymessage(fd, msg_txt(24)); // Job level raised.
    } else {
        if (sd->status.job_level == 1) {
            clif_displaymessage(fd, msg_txt(159)); // Job level can't go any lower.
            return -1;
        }
        level *=-1;
        if ((unsigned int)level >= sd->status.job_level) // fix negativ overflow
            level = sd->status.job_level-1;
        sd->status.job_level -= (unsigned int)level;
        if (sd->status.skill_point < level)
            pc_resetskill(sd,0);    //Reset skills since we need to substract more points.
        if (sd->status.skill_point < level)
            sd->status.skill_point = 0;
        else
            sd->status.skill_point -= level;
        clif_displaymessage(fd, msg_txt(25)); // Job level lowered.
    }
    sd->status.job_exp = 0;
    clif_updatestatus(sd, SP_JOBLEVEL);
    clif_updatestatus(sd, SP_JOBEXP);
    clif_updatestatus(sd, SP_NEXTJOBEXP);
    clif_updatestatus(sd, SP_SKILLPOINT);
    status_calc_pc(sd, 0);

    return 0;
}

/*==========================================
 * @help
 *------------------------------------------*/
ACMD_FUNC(help)
{
    config_setting_t *help;
    const char *text = NULL;
    const char *command_name = NULL;
    char *default_command = "help";

    nullpo_retr(-1, sd);

    help = config_lookup(&atcommand_config, "help");
    if (help == NULL) {
        clif_displaymessage(fd, msg_txt(27)); // "Commands help is not available."
        return -1;
    }

    if (!message || !*message) {
        command_name = default_command; // If no command_name specified, display help for @help.
    } else {
        if (*message == atcommand_symbol || *message == charcommand_symbol)
            ++message;
        command_name = atcommand_checkalias(message);
    }

    if (!pc_can_use_command(sd, command_name, COMMAND_ATCOMMAND)) {
        sprintf(atcmd_output, msg_txt(153), message); // "%s is Unknown Command"
        clif_displaymessage(fd, atcmd_output);
        atcommand_get_suggestions(sd, command_name, true);
        return -1;
    }

    if (!config_setting_lookup_string(help, command_name, &text)) {
        sprintf(atcmd_output, msg_txt(988), atcommand_symbol, command_name); // There is no help for %c%s.
        clif_displaymessage(fd, atcmd_output);
        atcommand_get_suggestions(sd, command_name, true);
        return -1;
    }

    sprintf(atcmd_output, msg_txt(989), atcommand_symbol, command_name); // Help for command %c%s:
    clif_displaymessage(fd, atcmd_output);

    {
        // Display aliases
        DBIterator *iter;
        AtCommandInfo *command_info;
        AliasInfo *alias_info = NULL;
        StringBuf buf;
        bool has_aliases = false;

        StringBuf_Init(&buf);
        StringBuf_AppendStr(&buf, msg_txt(990)); // Available aliases:
        command_info = get_atcommandinfo_byname(command_name);
        iter = db_iterator(atcommand_alias_db);
        for (alias_info = dbi_first(iter); dbi_exists(iter); alias_info = dbi_next(iter)) {
            if (alias_info->command == command_info) {
                StringBuf_Printf(&buf, " %s", alias_info->alias);
                has_aliases = true;
            }
        }
        dbi_destroy(iter);
        if (has_aliases)
            clif_displaymessage(fd, StringBuf_Value(&buf));
        StringBuf_Destroy(&buf);
    }

    // Display help contents
    clif_displaymessage(fd, text);
    return 0;
}

// helper function, used in foreach calls to stop auto-attack timers
// parameter: '0' - everyone, 'id' - only those attacking someone with that id
static int atcommand_stopattack(struct block_list *bl,va_list ap)
{
    struct unit_data *ud = unit_bl2ud(bl);
    int id = va_arg(ap, int);
    if (ud && ud->attacktimer != INVALID_TIMER && (!id || id == ud->target)) {
        unit_stop_attack(bl);
        return 1;
    }
    return 0;
}
/*==========================================
 *
 *------------------------------------------*/
static int atcommand_pvpoff_sub(struct block_list *bl,va_list ap)
{
    TBL_PC *sd = (TBL_PC *)bl;
    clif_pvpset(sd, 0, 0, 2);
    if (sd->pvp_timer != INVALID_TIMER) {
        delete_timer(sd->pvp_timer, pc_calc_pvprank_timer);
        sd->pvp_timer = INVALID_TIMER;
    }
    return 0;
}

ACMD_FUNC(pvpoff)
{
    nullpo_retr(-1, sd);

    if (!map[sd->bl.m].flag.pvp) {
        clif_displaymessage(fd, msg_txt(160)); // PvP is already Off.
        return -1;
    }

    map[sd->bl.m].flag.pvp = 0;

    if (!battle_config.pk_mode)
        clif_map_property_mapall(sd->bl.m, MAPPROPERTY_NOTHING);
    map_foreachinmap(atcommand_pvpoff_sub,sd->bl.m, BL_PC);
    map_foreachinmap(atcommand_stopattack,sd->bl.m, BL_CHAR, 0);
    clif_displaymessage(fd, msg_txt(31)); // PvP: Off.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
static int atcommand_pvpon_sub(struct block_list *bl,va_list ap)
{
    TBL_PC *sd = (TBL_PC *)bl;
    if (sd->pvp_timer == INVALID_TIMER) {
        sd->pvp_timer = add_timer(gettick() + 200, pc_calc_pvprank_timer, sd->bl.id, 0);
        sd->pvp_rank = 0;
        sd->pvp_lastusers = 0;
        sd->pvp_point = 5;
        sd->pvp_won = 0;
        sd->pvp_lost = 0;
    }
    return 0;
}

ACMD_FUNC(pvpon)
{
    nullpo_retr(-1, sd);

    if (map[sd->bl.m].flag.pvp) {
        clif_displaymessage(fd, msg_txt(161)); // PvP is already On.
        return -1;
    }

    map[sd->bl.m].flag.pvp = 1;

    if (!battle_config.pk_mode) {
        // display pvp circle and rank
        clif_map_property_mapall(sd->bl.m, MAPPROPERTY_FREEPVPZONE);
        map_foreachinmap(atcommand_pvpon_sub,sd->bl.m, BL_PC);
    }

    clif_displaymessage(fd, msg_txt(32)); // PvP: On.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(gvgoff)
{
    nullpo_retr(-1, sd);

    if (!map[sd->bl.m].flag.gvg) {
        clif_displaymessage(fd, msg_txt(162)); // GvG is already Off.
        return -1;
    }

    map[sd->bl.m].flag.gvg = 0;
    clif_map_property_mapall(sd->bl.m, MAPPROPERTY_NOTHING);
    map_foreachinmap(atcommand_stopattack,sd->bl.m, BL_CHAR, 0);
    clif_displaymessage(fd, msg_txt(33)); // GvG: Off.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(gvgon)
{
    nullpo_retr(-1, sd);

    if (map[sd->bl.m].flag.gvg) {
        clif_displaymessage(fd, msg_txt(163)); // GvG is already On.
        return -1;
    }

    map[sd->bl.m].flag.gvg = 1;
    clif_map_property_mapall(sd->bl.m, MAPPROPERTY_AGITZONE);
    clif_displaymessage(fd, msg_txt(34)); // GvG: On.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(model)
{
    int hair_style = 0, hair_color = 0, cloth_color = 0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d %d %d", &hair_style, &hair_color, &cloth_color) < 1) {
        sprintf(atcmd_output, msg_txt(991), // Please enter at least one value (usage: @model <hair ID: %d-%d> <hair color: %d-%d> <clothes color: %d-%d>).
                MIN_HAIR_STYLE, MAX_HAIR_STYLE, MIN_HAIR_COLOR, MAX_HAIR_COLOR, MIN_CLOTH_COLOR, MAX_CLOTH_COLOR);
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    if (hair_style >= MIN_HAIR_STYLE && hair_style <= MAX_HAIR_STYLE &&
        hair_color >= MIN_HAIR_COLOR && hair_color <= MAX_HAIR_COLOR &&
        cloth_color >= MIN_CLOTH_COLOR && cloth_color <= MAX_CLOTH_COLOR) {
        pc_changelook(sd, LOOK_HAIR, hair_style);
        pc_changelook(sd, LOOK_HAIR_COLOR, hair_color);
        pc_changelook(sd, LOOK_CLOTHES_COLOR, cloth_color);
        clif_displaymessage(fd, msg_txt(36)); // Appearence changed.
    } else {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }

    return 0;
}

/*==========================================
 * @dye && @ccolor
 *------------------------------------------*/
ACMD_FUNC(dye)
{
    int cloth_color = 0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &cloth_color) < 1) {
        sprintf(atcmd_output, msg_txt(992), MIN_CLOTH_COLOR, MAX_CLOTH_COLOR); // Please enter a clothes color (usage: @dye/@ccolor <clothes color: %d-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    if (cloth_color >= MIN_CLOTH_COLOR && cloth_color <= MAX_CLOTH_COLOR) {
        pc_changelook(sd, LOOK_CLOTHES_COLOR, cloth_color);
        clif_displaymessage(fd, msg_txt(36)); // Appearence changed.
    } else {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }

    return 0;
}

/*==========================================
 * @hairstyle && @hstyle
 *------------------------------------------*/
ACMD_FUNC(hair_style)
{
    int hair_style = 0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &hair_style) < 1) {
        sprintf(atcmd_output, msg_txt(993), MIN_HAIR_STYLE, MAX_HAIR_STYLE); // Please enter a hair style (usage: @hairstyle/@hstyle <hair ID: %d-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    if (hair_style >= MIN_HAIR_STYLE && hair_style <= MAX_HAIR_STYLE) {
        pc_changelook(sd, LOOK_HAIR, hair_style);
        clif_displaymessage(fd, msg_txt(36)); // Appearence changed.
    } else {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }

    return 0;
}

/*==========================================
 * @haircolor && @hcolor
 *------------------------------------------*/
ACMD_FUNC(hair_color)
{
    int hair_color = 0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &hair_color) < 1) {
        sprintf(atcmd_output, msg_txt(994), MIN_HAIR_COLOR, MAX_HAIR_COLOR); // Please enter a hair color (usage: @haircolor/@hcolor <hair color: %d-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    if (hair_color >= MIN_HAIR_COLOR && hair_color <= MAX_HAIR_COLOR) {
        pc_changelook(sd, LOOK_HAIR_COLOR, hair_color);
        clif_displaymessage(fd, msg_txt(36)); // Appearence changed.
    } else {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }

    return 0;
}

/*==========================================
 * @go [city_number or city_name] - Updated by Harbin
 *------------------------------------------*/
ACMD_FUNC(go)
{
    int i;
    int town;
    char map_name[MAP_NAME_LENGTH];
    int m;

    const struct {
        char map[MAP_NAME_LENGTH];
        int x, y;
    } data[] = {
        { MAP_PRONTERA,    156, 191 }, //  0=Prontera
        { MAP_MORROC,      156,  93 }, //  1=Morroc
        { MAP_GEFFEN,      119,  59 }, //  2=Geffen
        { MAP_PAYON,       162, 233 }, //  3=Payon
        { MAP_ALBERTA,     192, 147 }, //  4=Alberta
#ifdef RENEWAL
        { MAP_IZLUDE,      128, 146 }, //  5=Izlude (Renewal)
#else
        { MAP_IZLUDE,      128, 114 }, //  5=Izlude
#endif
        { MAP_ALDEBARAN,   140, 131 }, //  6=Al de Baran
        { MAP_LUTIE,       147, 134 }, //  7=Lutie
        { MAP_COMODO,      209, 143 }, //  8=Comodo
        { MAP_YUNO,        157,  51 }, //  9=Yuno
        { MAP_AMATSU,      198,  84 }, // 10=Amatsu
        { MAP_GONRYUN,     160, 120 }, // 11=Gonryun
        { MAP_UMBALA,       89, 157 }, // 12=Umbala
        { MAP_NIFLHEIM,     21, 153 }, // 13=Niflheim
        { MAP_LOUYANG,     217,  40 }, // 14=Louyang
        { MAP_NOVICE,       53, 111 }, // 15=Training Grounds
        { MAP_JAIL,         23,  61 }, // 16=Prison
        { MAP_JAWAII,      249, 127 }, // 17=Jawaii
        { MAP_AYOTHAYA,    151, 117 }, // 18=Ayothaya
        { MAP_EINBROCH,     64, 200 }, // 19=Einbroch
        { MAP_LIGHTHALZEN, 158,  92 }, // 20=Lighthalzen
        { MAP_EINBECH,      70,  95 }, // 21=Einbech
        { MAP_HUGEL,        96, 145 }, // 22=Hugel
        { MAP_RACHEL,      130, 110 }, // 23=Rachel
        { MAP_VEINS,       216, 123 }, // 24=Veins
        { MAP_MOSCOVIA,    223, 184 }, // 25=Moscovia
        { MAP_MIDCAMP,     180, 240 }, // 26=Midgard Camp
        { MAP_MANUK,       282, 138 }, // 27=Manuk
        { MAP_SPLENDIDE,   197, 176 }, // 28=Splendide
        { MAP_BRASILIS,    182, 239 }, // 29=Brasilis
        { MAP_DICASTES,    198, 187 }, // 30=El Dicastes
        { MAP_MORA,         44, 151 }, // 31=Mora
        { MAP_DEWATA,      200, 180 }, // 32=Dewata
        { MAP_MALANGDO,    140, 114 }, // 33=Malangdo Island
        { MAP_MALAYA,      242, 211 }, // 34=Malaya Port
        { MAP_ECLAGE,      110,  39 }, // 35=Eclage
    };

    nullpo_retr(-1, sd);

    if (map[sd->bl.m].flag.nogo && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(sd->fd,msg_txt(995)); // You cannot use @go on this map.
        return 0;
    }

    memset(map_name, '\0', sizeof(map_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    // get the number
    town = atoi(message);

    if (!message || !*message || sscanf(message, "%11s", map_name) < 1 || town < 0 || town >= ARRAYLENGTH(data)) {
        // no value matched so send the list of locations
        const char *text;

        // attempt to find the text help string
        text = atcommand_help_string(command);

        clif_displaymessage(fd, msg_txt(38)); // Invalid location number, or name.

        if (text) {
            // send the text to the client
            clif_displaymessage(fd, text);
        }

        return -1;
    }

    // get possible name of the city
    map_name[MAP_NAME_LENGTH-1] = '\0';
    for (i = 0; map_name[i]; i++)
        map_name[i] = TOLOWER(map_name[i]);
    // try to identify the map name
    if (strncmp(map_name, "prontera", 3) == 0) {
        town = 0;
    } else if (strncmp(map_name, "morocc", 4) == 0 ||
               strncmp(map_name, "morroc", 4) == 0) {
        town = 1;
    } else if (strncmp(map_name, "geffen", 3) == 0) {
        town = 2;
    } else if (strncmp(map_name, "payon", 3) == 0) {
        town = 3;
    } else if (strncmp(map_name, "alberta", 3) == 0) {
        town = 4;
    } else if (strncmp(map_name, "izlude", 3) == 0) {
        town = 5;
    } else if (strncmp(map_name, "aldebaran", 3) == 0) {
        town = 6;
    } else if (strncmp(map_name, "lutie", 3) == 0 ||
               strcmp(map_name,  "christmas") == 0 ||
               strncmp(map_name, "xmas", 3) == 0 ||
               strncmp(map_name, "x-mas", 3) == 0) {
        town = 7;
    } else if (strncmp(map_name, "comodo", 3) == 0) {
        town = 8;
    } else if (strncmp(map_name, "juno", 3) == 0 ||
               strncmp(map_name, "yuno", 3) == 0) {
        town = 9;
    } else if (strncmp(map_name, "amatsu", 3) == 0) {
        town = 10;
    } else if (strncmp(map_name, "kunlun", 3) == 0 ||
               strncmp(map_name, "gonryun", 3) == 0) {
        town = 11;
    } else if (strncmp(map_name, "umbala", 3) == 0) {
        town = 12;
    } else if (strncmp(map_name, "niflheim", 3) == 0) {
        town = 13;
    } else if (strncmp(map_name, "louyang", 3) == 0) {
        town = 14;
    } else if (strncmp(map_name, "new_1-1", 3) == 0 ||
               strncmp(map_name, "startpoint", 3) == 0 ||
               strncmp(map_name, "beginning", 3) == 0) {
        town = 15;
    } else if (strncmp(map_name, "sec_pri", 3) == 0 ||
               strncmp(map_name, "prison", 3) == 0 ||
               strncmp(map_name, "jail", 3) == 0) {
        town = 16;
    } else if (strncmp(map_name, "jawaii", 3) == 0) {
        town = 17;
    } else if (strncmp(map_name, "ayothaya", 3) == 0) {
        town = 18;
    } else if (strncmp(map_name, "einbroch", 5) == 0) {
        town = 19;
    } else if (strncmp(map_name, "lighthalzen", 3) == 0) {
        town = 20;
    } else if (strncmp(map_name, "einbech", 5) == 0) {
        town = 21;
    } else if (strncmp(map_name, "hugel", 3) == 0) {
        town = 22;
    } else if (strncmp(map_name, "rachel", 3) == 0) {
        town = 23;
    } else if (strncmp(map_name, "veins", 3) == 0) {
        town = 24;
    } else if (strncmp(map_name, "moscovia", 3) == 0) {
        town = 25;
    } else if (strncmp(map_name, "mid_camp", 3) == 0) {
        town = 26;
    } else if (strncmp(map_name, "manuk", 3) == 0) {
        town = 27;
    } else if (strncmp(map_name, "splendide", 3) == 0) {
        town = 28;
    } else if (strncmp(map_name, "brasilis", 3) == 0) {
        town = 29;
    } else if (strncmp(map_name, "dicastes01", 3) == 0) {
        town = 30;
    } else if (strcmp(map_name,  "mora") == 0) {
        town = 31;
    } else if (strncmp(map_name, "dewata", 3) == 0) {
        town = 32;
    } else if (strncmp(map_name, "malangdo", 5) == 0) {
        town = 33;
    } else if (strncmp(map_name, "malaya", 5) == 0) {
        town = 34;
    } else if (strncmp(map_name, "eclage", 3) == 0) {
        town = 35;
    }

    if (town >= 0 && town < ARRAYLENGTH(data)) {
        m = map_mapname2mapid(data[town].map);
        if (m >= 0 && map[m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
            clif_displaymessage(fd, msg_txt(247));
            return -1;
        }
        if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
            clif_displaymessage(fd, msg_txt(248));
            return -1;
        }
        if (pc_setpos(sd, mapindex_name2id(data[town].map), data[town].x, data[town].y, CLR_TELEPORT) == 0) {
            clif_displaymessage(fd, msg_txt(0)); // Warped.
        } else {
            clif_displaymessage(fd, msg_txt(1)); // Map not found.
            return -1;
        }
    } else { // if you arrive here, you have an error in town variable when reading of names
        clif_displaymessage(fd, msg_txt(38)); // Invalid location number or name.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(monster)
{
    char name[NAME_LENGTH];
    char monster[NAME_LENGTH];
    char eventname[EVENT_NAME_LENGTH] = "";
    int mob_id;
    int number = 0;
    int count;
    int i, k, range;
    short mx, my;
    unsigned int size;
    nullpo_retr(-1, sd);

    memset(name, '\0', sizeof(name));
    memset(monster, '\0', sizeof(monster));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(80)); // Give the display name or monster name/id please.
        return -1;
    }
    if (sscanf(message, "\"%23[^\"]\" %23s %d", name, monster, &number) > 1 ||
        sscanf(message, "%23s \"%23[^\"]\" %d", monster, name, &number) > 1) {
        //All data can be left as it is.
    } else if ((count=sscanf(message, "%23s %d %23s", monster, &number, name)) > 1) {
        //Here, it is possible name was not given and we are using monster for it.
        if (count < 3) //Blank mob's name.
            name[0] = '\0';
    } else if (sscanf(message, "%23s %23s %d", name, monster, &number) > 1) {
        //All data can be left as it is.
    } else if (sscanf(message, "%23s", monster) > 0) {
        //As before, name may be already filled.
        name[0] = '\0';
    } else {
        clif_displaymessage(fd, msg_txt(80)); // Give a display name and monster name/id please.
        return -1;
    }

    if ((mob_id = mobdb_searchname(monster)) == 0) // check name first (to avoid possible name begining by a number)
        mob_id = mobdb_checkid(atoi(monster));

    if (mob_id == 0) {
        clif_displaymessage(fd, msg_txt(40)); // Invalid monster ID or name.
        return -1;
    }

    if (mob_id == MOBID_EMPERIUM) {
        clif_displaymessage(fd, msg_txt(83)); // Monster 'Emperium' cannot be spawned.
        return -1;
    }

    if (number <= 0)
        number = 1;

    if (!name[0])
        strcpy(name, "--ja--");

    // If value of atcommand_spawn_quantity_limit directive is greater than or equal to 1 and quantity of monsters is greater than value of the directive
    if (battle_config.atc_spawn_quantity_limit && number > battle_config.atc_spawn_quantity_limit)
        number = battle_config.atc_spawn_quantity_limit;

    if (strcmp(command+1, "monstersmall") == 0)
        size = SZ_MEDIUM; // This is just gorgeous [mkbu95]
    else if (strcmp(command+1, "monsterbig") == 0)
        size = SZ_BIG;
    else
        size = SZ_SMALL;

    if (battle_config.etc_log)
        ShowInfo("%s monster='%s' name='%s' id=%d count=%d (%d,%d)\n", command, monster, name, mob_id, number, sd->bl.x, sd->bl.y);

    count = 0;
    range = (int)sqrt((float)number) +2; // calculation of an odd number (+ 4 area around)
    for (i = 0; i < number; i++) {
        map_search_freecell(&sd->bl, 0, &mx,  &my, range, range, 0);
        k = mob_once_spawn(sd, sd->bl.m, mx, my, name, mob_id, 1, eventname, size, AI_NONE);
        count += (k != 0) ? 1 : 0;
    }

    if (count != 0)
        if (number == count)
            clif_displaymessage(fd, msg_txt(39)); // All monster summoned!
        else {
            sprintf(atcmd_output, msg_txt(240), count); // %d monster(s) summoned!
            clif_displaymessage(fd, atcmd_output);
        }
    else {
        clif_displaymessage(fd, msg_txt(40)); // Invalid monster ID or name.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
static int atkillmonster_sub(struct block_list *bl, va_list ap)
{
    struct mob_data *md;
    int flag;

    nullpo_ret(md=(struct mob_data *)bl);
    flag = va_arg(ap, int);

    if (md->guardian_data)
        return 0; //Do not touch WoE mobs!

    if (flag)
        status_zap(bl,md->status.hp, 0);
    else
        status_kill(bl);
    return 1;
}

ACMD_FUNC(killmonster)
{
    int map_id, drop_flag;
    char map_name[MAP_NAME_LENGTH_EXT];
    nullpo_retr(-1, sd);

    memset(map_name, '\0', sizeof(map_name));

    if (!message || !*message || sscanf(message, "%15s", map_name) < 1)
        map_id = sd->bl.m;
    else {
        if ((map_id = map_mapname2mapid(map_name)) < 0)
            map_id = sd->bl.m;
    }

    drop_flag = strcmp(command+1, "killmonster2");

    map_foreachinmap(atkillmonster_sub, map_id, BL_MOB, -drop_flag);

    clif_displaymessage(fd, msg_txt(165)); // All monsters killed!

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(refine)
{
    int i,j, position = 0, refine = 0, current_position, final_refine;
    int count;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d %d", &position, &refine) < 2) {
        clif_displaymessage(fd, msg_txt(996)); // Please enter a position and an amount (usage: @refine <equip position> <+/- amount>).
        sprintf(atcmd_output, msg_txt(997), EQP_HEAD_LOW); // %d: Lower Headgear
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(998), EQP_HAND_R); // %d: Right Hand
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(999), EQP_GARMENT); // %d: Garment
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1000), EQP_ACC_L); // %d: Left Accessory
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1001), EQP_ARMOR); // %d: Body Armor
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1002), EQP_HAND_L); // %d: Left Hand
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1003), EQP_SHOES); // %d: Shoes
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1004), EQP_ACC_R); // %d: Right Accessory
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1005), EQP_HEAD_TOP); // %d: Top Headgear
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1006), EQP_HEAD_MID); // %d: Mid Headgear
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    refine = cap_value(refine, -MAX_REFINE, MAX_REFINE);

    count = 0;
    for (j = 0; j < EQI_MAX-1; j++) {
        if ((i = sd->equip_index[j]) < 0)
            continue;
        if (j == EQI_HAND_R && sd->equip_index[EQI_HAND_L] == i)
            continue;
        if (j == EQI_HEAD_MID && sd->equip_index[EQI_HEAD_LOW] == i)
            continue;
        if (j == EQI_HEAD_TOP && (sd->equip_index[EQI_HEAD_MID] == i || sd->equip_index[EQI_HEAD_LOW] == i))
            continue;

        if (position && !(sd->status.inventory[i].equip & position))
            continue;

        final_refine = cap_value(sd->status.inventory[i].refine + refine, 0, MAX_REFINE);
        if (sd->status.inventory[i].refine != final_refine) {
            sd->status.inventory[i].refine = final_refine;
            current_position = sd->status.inventory[i].equip;
            pc_unequipitem(sd, i, 3);
            clif_refine(fd, 0, i, sd->status.inventory[i].refine);
            clif_delitem(sd, i, 1, 3);
            clif_additem(sd, i, 1, 0);
            pc_equipitem(sd, i, current_position);
            clif_misceffect(&sd->bl, 3);
            count++;
        }
    }

    if (count == 0)
        clif_displaymessage(fd, msg_txt(166)); // No item has been refined.
    else if (count == 1)
        clif_displaymessage(fd, msg_txt(167)); // 1 item has been refined.
    else {
        sprintf(atcmd_output, msg_txt(168), count); // %d items have been refined.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(produce)
{
    char item_name[100];
    int item_id, attribute = 0, star = 0;
    int flag = 0;
    struct item_data *item_data;
    struct item tmp_item;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));
    memset(item_name, '\0', sizeof(item_name));

    if (!message || !*message || (
            sscanf(message, "\"%99[^\"]\" %d %d", item_name, &attribute, &star) < 1 &&
            sscanf(message, "%99s %d %d", item_name, &attribute, &star) < 1
        )) {
        clif_displaymessage(fd, msg_txt(1007)); // Please enter at least one item name/ID (usage: @produce <equip name/ID> <element> <# of very's>).
        return -1;
    }

    if ((item_data = itemdb_searchname(item_name)) == NULL &&
        (item_data = itemdb_exists(atoi(item_name))) == NULL) {
        clif_displaymessage(fd, msg_txt(170)); //This item is not an equipment.
        return -1;
    }

    item_id = item_data->nameid;

    if (itemdb_isequip2(item_data)) {
        if (attribute < MIN_ATTRIBUTE || attribute > MAX_ATTRIBUTE)
            attribute = ATTRIBUTE_NORMAL;
        if (star < MIN_STAR || star > MAX_STAR)
            star = 0;
        memset(&tmp_item, 0, sizeof tmp_item);
        tmp_item.nameid = item_id;
        tmp_item.amount = 1;
        tmp_item.identify = 1;
        tmp_item.card[0] = CARD0_FORGE;
        tmp_item.card[1] = item_data->type==IT_WEAPON?
                           ((star*5) << 8) + attribute:0;
        tmp_item.card[2] = GetWord(sd->status.char_id, 0);
        tmp_item.card[3] = GetWord(sd->status.char_id, 1);
        clif_produceeffect(sd, 0, item_id);
        clif_misceffect(&sd->bl, 3);

        if ((flag = pc_additem(sd, &tmp_item, 1, LOG_TYPE_COMMAND)))
            clif_additem(sd, 0, 0, flag);
    } else {
        sprintf(atcmd_output, msg_txt(169), item_id, item_data->name); // The item (%d: '%s') is not equipable.
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(memo)
{
    int position = 0;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &position) < 1) {
        int i;
        clif_displaymessage(sd->fd,  msg_txt(668));
        for (i = 0; i < MAX_MEMOPOINTS; i++) {
            if (sd->status.memo_point[i].map)
                sprintf(atcmd_output, "%d - %s (%d,%d)", i, mapindex_id2name(sd->status.memo_point[i].map), sd->status.memo_point[i].x, sd->status.memo_point[i].y);
            else
                sprintf(atcmd_output, msg_txt(171), i); // %d - void
            clif_displaymessage(sd->fd, atcmd_output);
        }
        return 0;
    }

    if (position < 0 || position >= MAX_MEMOPOINTS) {
        sprintf(atcmd_output, msg_txt(1008), 0, MAX_MEMOPOINTS-1); // Please enter a valid position (usage: @memo <memo_position:%d-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    pc_memo(sd, position);
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(gat)
{
    int y;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    for (y = 2; y >= -2; y--) {
        sprintf(atcmd_output, "%s (x= %d, y= %d) %02X %02X %02X %02X %02X",
                map[sd->bl.m].name,   sd->bl.x - 2, sd->bl.y + y,
                map_getcell(sd->bl.m, sd->bl.x - 2, sd->bl.y + y, CELL_GETTYPE),
                map_getcell(sd->bl.m, sd->bl.x - 1, sd->bl.y + y, CELL_GETTYPE),
                map_getcell(sd->bl.m, sd->bl.x,     sd->bl.y + y, CELL_GETTYPE),
                map_getcell(sd->bl.m, sd->bl.x + 1, sd->bl.y + y, CELL_GETTYPE),
                map_getcell(sd->bl.m, sd->bl.x + 2, sd->bl.y + y, CELL_GETTYPE));

        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(displaystatus)
{
    int i, type, flag, tick, val1 = 0, val2 = 0, val3 = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message || (i = sscanf(message, "%d %d %d %d %d %d", &type, &flag, &tick, &val1, &val2, &val3)) < 1) {
        clif_displaymessage(fd, msg_txt(1009)); // Please enter a status type/flag (usage: @displaystatus <status type> <flag> <tick> {<val1> {<val2> {<val3>}}}).
        return -1;
    }
    if (i < 2) flag = 1;
    if (i < 3) tick = 0;

    clif_status_change(&sd->bl, type, flag, tick, val1, val2, val3);

    return 0;
}

/*==========================================
 * @stpoint (Rewritten by [Yor])
 *------------------------------------------*/
ACMD_FUNC(statuspoint)
{
    int point;
    unsigned int new_status_point;

    if (!message || !*message || (point = atoi(message)) == 0) {
        clif_displaymessage(fd, msg_txt(1010)); // Please enter a number (usage: @stpoint <number of points>).
        return -1;
    }

    if (point < 0) {
        if (sd->status.status_point < (unsigned int)(-point)) {
            new_status_point = 0;
        } else {
            new_status_point = sd->status.status_point + point;
        }
    } else if (UINT_MAX - sd->status.status_point < (unsigned int)point) {
        new_status_point = UINT_MAX;
    } else {
        new_status_point = sd->status.status_point + point;
    }

    if (new_status_point != sd->status.status_point) {
        sd->status.status_point = new_status_point;
        clif_updatestatus(sd, SP_STATUSPOINT);
        clif_displaymessage(fd, msg_txt(174)); // Number of status points changed.
    } else {
        if (point < 0)
            clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
        else
            clif_displaymessage(fd, msg_txt(149)); // Unable to increase the number/value.
        return -1;
    }

    return 0;
}

/*==========================================
 * @skpoint (Rewritten by [Yor])
 *------------------------------------------*/
ACMD_FUNC(skillpoint)
{
    int point;
    unsigned int new_skill_point;
    nullpo_retr(-1, sd);

    if (!message || !*message || (point = atoi(message)) == 0) {
        clif_displaymessage(fd, msg_txt(1011)); // Please enter a number (usage: @skpoint <number of points>).
        return -1;
    }

    if (point < 0) {
        if (sd->status.skill_point < (unsigned int)(-point)) {
            new_skill_point = 0;
        } else {
            new_skill_point = sd->status.skill_point + point;
        }
    } else if (UINT_MAX - sd->status.skill_point < (unsigned int)point) {
        new_skill_point = UINT_MAX;
    } else {
        new_skill_point = sd->status.skill_point + point;
    }

    if (new_skill_point != sd->status.skill_point) {
        sd->status.skill_point = new_skill_point;
        clif_updatestatus(sd, SP_SKILLPOINT);
        clif_displaymessage(fd, msg_txt(175)); // Number of skill points changed.
    } else {
        if (point < 0)
            clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
        else
            clif_displaymessage(fd, msg_txt(149)); // Unable to increase the number/value.
        return -1;
    }

    return 0;
}

/*==========================================
 * @zeny
 *------------------------------------------*/
ACMD_FUNC(zeny)
{
    int zeny=0, ret=-1;
    nullpo_retr(-1, sd);

    if (!message || !*message || (zeny = atoi(message)) == 0) {
        clif_displaymessage(fd, msg_txt(1012)); // Please enter an amount (usage: @zeny <amount>).
        return -1;
    }

    if (zeny > 0) {
        if ((ret=pc_getzeny(sd,zeny,LOG_TYPE_COMMAND,NULL)) == 1)
            clif_displaymessage(fd, msg_txt(149)); // Unable to increase the number/value.
    } else {
        if (sd->status.zeny < -zeny) zeny = -sd->status.zeny;
        if ((ret=pc_payzeny(sd,-zeny,LOG_TYPE_COMMAND,NULL)) == 1)
            clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
    }
    if (!ret) clif_displaymessage(fd, msg_txt(176)); //ret=0 mean cmd success
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(param)
{
    int i, value = 0, new_value, max;
    const char *param[] = { "str", "agi", "vit", "int", "dex", "luk" };
    short *status[6];
    //we don't use direct initialization because it isn't part of the c standard.
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%d", &value) < 1 || value == 0) {
        clif_displaymessage(fd, msg_txt(1013)); // Please enter a valid value (usage: @str/@agi/@vit/@int/@dex/@luk <+/-adjustment>).
        return -1;
    }

    ARR_FIND(0, ARRAYLENGTH(param), i, strcmpi(command+1, param[i]) == 0);

    if (i == ARRAYLENGTH(param) || i > MAX_STATUS_TYPE) { // normally impossible...
        clif_displaymessage(fd, msg_txt(1013)); // Please enter a valid value (usage: @str/@agi/@vit/@int/@dex/@luk <+/-adjustment>).
        return -1;
    }

    status[0] = &sd->status.str;
    status[1] = &sd->status.agi;
    status[2] = &sd->status.vit;
    status[3] = &sd->status.int_;
    status[4] = &sd->status.dex;
    status[5] = &sd->status.luk;

    if (battle_config.atcommand_max_stat_bypass)
        max = SHRT_MAX;
    else
        max = pc_maxparameter(sd);

    if (value < 0 && *status[i] <= -value) {
        new_value = 1;
    } else if (max - *status[i] < value) {
        new_value = max;
    } else {
        new_value = *status[i] + value;
    }

    if (new_value != *status[i]) {
        *status[i] = new_value;
        clif_updatestatus(sd, SP_STR + i);
        clif_updatestatus(sd, SP_USTR + i);
        status_calc_pc(sd, 0);
        clif_displaymessage(fd, msg_txt(42)); // Stat changed.
    } else {
        if (value < 0)
            clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
        else
            clif_displaymessage(fd, msg_txt(149)); // Unable to increase the number/value.
        return -1;
    }

    return 0;
}

/*==========================================
 * Stat all by fritz (rewritten by [Yor])
 *------------------------------------------*/
ACMD_FUNC(stat_all)
{
    int index, count, value, max, new_value;
    short *status[6];
    //we don't use direct initialization because it isn't part of the c standard.
    nullpo_retr(-1, sd);

    status[0] = &sd->status.str;
    status[1] = &sd->status.agi;
    status[2] = &sd->status.vit;
    status[3] = &sd->status.int_;
    status[4] = &sd->status.dex;
    status[5] = &sd->status.luk;

    if (!message || !*message || sscanf(message, "%d", &value) < 1 || value == 0) {
        value = pc_maxparameter(sd);
        max = pc_maxparameter(sd);
    } else {
        if (battle_config.atcommand_max_stat_bypass)
            max = SHRT_MAX;
        else
            max = pc_maxparameter(sd);
    }

    count = 0;
    for (index = 0; index < ARRAYLENGTH(status); index++) {

        if (value > 0 && *status[index] > max - value)
            new_value = max;
        else if (value < 0 && *status[index] <= -value)
            new_value = 1;
        else
            new_value = *status[index] +value;

        if (new_value != (int)*status[index]) {
            *status[index] = new_value;
            clif_updatestatus(sd, SP_STR + index);
            clif_updatestatus(sd, SP_USTR + index);
            count++;
        }
    }

    if (count > 0) { // if at least 1 stat modified
        status_calc_pc(sd, 0);
        clif_displaymessage(fd, msg_txt(84)); // All stats changed!
    } else {
        if (value < 0)
            clif_displaymessage(fd, msg_txt(177)); // You cannot decrease that stat anymore.
        else
            clif_displaymessage(fd, msg_txt(178)); // You cannot increase that stat anymore.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(guildlevelup)
{
    int level = 0;
    short added_level;
    struct guild *guild_info;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d", &level) < 1 || level == 0) {
        clif_displaymessage(fd, msg_txt(1014)); // Please enter a valid level (usage: @guildlvup/@guildlvlup <# of levels>).
        return -1;
    }

    if (sd->status.guild_id <= 0 || (guild_info = guild_search(sd->status.guild_id)) == NULL) {
        clif_displaymessage(fd, msg_txt(43)); // You're not in a guild.
        return -1;
    }
    //if (strcmp(sd->status.name, guild_info->master) != 0) {
    //  clif_displaymessage(fd, msg_txt(44)); // You're not the master of your guild.
    //  return -1;
    //}

    added_level = (short)level;
    if (level > 0 && (level > MAX_GUILDLEVEL || added_level > ((short)MAX_GUILDLEVEL - guild_info->guild_lv))) // fix positiv overflow
        added_level = (short)MAX_GUILDLEVEL - guild_info->guild_lv;
    else if (level < 0 && (level < -MAX_GUILDLEVEL || added_level < (1 - guild_info->guild_lv))) // fix negativ overflow
        added_level = 1 - guild_info->guild_lv;

    if (added_level != 0) {
        intif_guild_change_basicinfo(guild_info->guild_id, GBI_GUILDLV, &added_level, sizeof(added_level));
        clif_displaymessage(fd, msg_txt(179)); // Guild level changed.
    } else {
        clif_displaymessage(fd, msg_txt(45)); // Guild level change failed.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(makeegg)
{
    struct item_data *item_data;
    int id, pet_id;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1015)); // Please enter a monster/egg name/ID (usage: @makeegg <pet>).
        return -1;
    }

    if ((item_data = itemdb_searchname(message)) != NULL) // for egg name
        id = item_data->nameid;
    else if ((id = mobdb_searchname(message)) != 0) // for monster name
        ;
    else
        id = atoi(message);

    pet_id = search_petDB_index(id, PET_CLASS);
    if (pet_id < 0)
        pet_id = search_petDB_index(id, PET_EGG);
    if (pet_id >= 0) {
        sd->catch_target_class = pet_db[pet_id].class_;
        intif_create_pet(
            sd->status.account_id, sd->status.char_id,
            (short)pet_db[pet_id].class_, (short)mob_db(pet_db[pet_id].class_)->lv,
            (short)pet_db[pet_id].EggID, 0, (short)pet_db[pet_id].intimate,
            100, 0, 1, pet_db[pet_id].jname);
    } else {
        clif_displaymessage(fd, msg_txt(180)); // The monster/egg name/id doesn't exist.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(hatch)
{
    nullpo_retr(-1, sd);
    if (sd->status.pet_id <= 0)
        clif_sendegg(sd);
    else {
        clif_displaymessage(fd, msg_txt(181)); // You already have a pet.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(petfriendly)
{
    int friendly;
    struct pet_data *pd;
    nullpo_retr(-1, sd);

    if (!message || !*message || (friendly = atoi(message)) < 0) {
        clif_displaymessage(fd, msg_txt(1016)); // Please enter a valid value (usage: @petfriendly <0-1000>).
        return -1;
    }

    pd = sd->pd;
    if (!pd) {
        clif_displaymessage(fd, msg_txt(184)); // Sorry, but you have no pet.
        return -1;
    }

    if (friendly < 0 || friendly > 1000) {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }

    if (friendly == pd->pet.intimate) {
        clif_displaymessage(fd, msg_txt(183)); // Pet intimacy is already at maximum.
        return -1;
    }

    pet_set_intimate(pd, friendly);
    clif_send_petstatus(sd);
    clif_displaymessage(fd, msg_txt(182)); // Pet intimacy changed.
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(pethungry)
{
    int hungry;
    struct pet_data *pd;
    nullpo_retr(-1, sd);

    if (!message || !*message || (hungry = atoi(message)) < 0) {
        clif_displaymessage(fd, msg_txt(1017)); // Please enter a valid number (usage: @pethungry <0-100>).
        return -1;
    }

    pd = sd->pd;
    if (!sd->status.pet_id || !pd) {
        clif_displaymessage(fd, msg_txt(184)); // Sorry, but you have no pet.
        return -1;
    }
    if (hungry < 0 || hungry > 100) {
        clif_displaymessage(fd, msg_txt(37)); // An invalid number was specified.
        return -1;
    }
    if (hungry == pd->pet.hungry) {
        clif_displaymessage(fd, msg_txt(186)); // Pet hunger is already at maximum.
        return -1;
    }

    pd->pet.hungry = hungry;
    clif_send_petstatus(sd);
    clif_displaymessage(fd, msg_txt(185)); // Pet hunger changed.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(petrename)
{
    struct pet_data *pd;
    nullpo_retr(-1, sd);
    if (!sd->status.pet_id || !sd->pd) {
        clif_displaymessage(fd, msg_txt(184)); // Sorry, but you have no pet.
        return -1;
    }
    pd = sd->pd;
    if (!pd->pet.rename_flag) {
        clif_displaymessage(fd, msg_txt(188)); // You can already rename your pet.
        return -1;
    }

    pd->pet.rename_flag = 0;
    intif_save_petdata(sd->status.account_id, &pd->pet);
    clif_send_petstatus(sd);
    clif_displaymessage(fd, msg_txt(187)); // You can now rename your pet.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(recall)
{
    struct map_session_data *pl_sd = NULL;

    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1018)); // Please enter a player name (usage: @recall <char name/ID>).
        return -1;
    }

    if ((pl_sd=map_nick2sd((char *)message)) == NULL && (pl_sd=map_charid2sd(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) {
        clif_displaymessage(fd, msg_txt(81)); // Your GM level doesn't authorize you to preform this action on the specified player.
        return -1;
    }

    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(1019)); // You are not authorized to warp someone to this map.
        return -1;
    }
    if (pl_sd->bl.m >= 0 && map[pl_sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(1020)); // You are not authorized to warp this player from their map.
        return -1;
    }
    pc_setpos(pl_sd, sd->mapindex, sd->bl.x, sd->bl.y, CLR_RESPAWN);
    sprintf(atcmd_output, msg_txt(46), pl_sd->status.name); // %s recalled!
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 * charblock command (usage: charblock <player_name>)
 * This command do a definitiv ban on a player
 *------------------------------------------*/
ACMD_FUNC(char_block)
{
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1021)); // Please enter a player name (usage: @charblock/@block <char name>).
        return -1;
    }

    chrif_char_ask_name(sd->status.account_id, atcmd_player_name, 1, 0, 0, 0, 0, 0, 0); // type: 1 - block
    clif_displaymessage(fd, msg_txt(88)); // Character name sent to char-server to ask it.

    return 0;
}

/*==========================================
 * charban command (usage: charban <time> <player_name>)
 * This command do a limited ban on a player
 * Time is done as follows:
 *   Adjustment value (-1, 1, +1, etc...)
 *   Modified element:
 *     a or y: year
 *     m:  month
 *     j or d: day
 *     h:  hour
 *     mn: minute
 *     s:  second
 * <example> @ban +1m-2mn1s-6y test_player
 *           this example adds 1 month and 1 second, and substracts 2 minutes and 6 years at the same time.
 *------------------------------------------*/
ACMD_FUNC(char_ban)
{
    char *modif_p;
    int year, month, day, hour, minute, second, value;
    time_t timestamp;
    struct tm *tmtime;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));
    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%s %23[^\n]", atcmd_output, atcmd_player_name) < 2) {
        clif_displaymessage(fd, msg_txt(1022)); // Please enter ban time and a player name (usage: @charban/@ban/@banish/@charbanish <time> <char name>).
        return -1;
    }

    atcmd_output[sizeof(atcmd_output)-1] = '\0';

    modif_p = atcmd_output;
    year = month = day = hour = minute = second = 0;
    while (modif_p[0] != '\0') {
        value = atoi(modif_p);
        if (value == 0)
            modif_p++;
        else {
            if (modif_p[0] == '-' || modif_p[0] == '+')
                modif_p++;
            while (modif_p[0] >= '0' && modif_p[0] <= '9')
                modif_p++;
            if (modif_p[0] == 's') {
                second = value;
                modif_p++;
            } else if (modif_p[0] == 'n') {
                minute = value;
                modif_p++;
            } else if (modif_p[0] == 'm' && modif_p[1] == 'n') {
                minute = value;
                modif_p = modif_p + 2;
            } else if (modif_p[0] == 'h') {
                hour = value;
                modif_p++;
            } else if (modif_p[0] == 'd' || modif_p[0] == 'j') {
                day = value;
                modif_p++;
            } else if (modif_p[0] == 'm') {
                month = value;
                modif_p++;
            } else if (modif_p[0] == 'y' || modif_p[0] == 'a') {
                year = value;
                modif_p++;
            } else if (modif_p[0] != '\0') {
                modif_p++;
            }
        }
    }
    if (year == 0 && month == 0 && day == 0 && hour == 0 && minute == 0 && second == 0) {
        clif_displaymessage(fd, msg_txt(85)); // Invalid time for ban command.
        return -1;
    }
    /**
     * We now check if you can adjust the ban to negative (and if this is the case)
     **/
    timestamp = time(NULL);
    tmtime = localtime(&timestamp);
    tmtime->tm_year = tmtime->tm_year + year;
    tmtime->tm_mon  = tmtime->tm_mon + month;
    tmtime->tm_mday = tmtime->tm_mday + day;
    tmtime->tm_hour = tmtime->tm_hour + hour;
    tmtime->tm_min  = tmtime->tm_min + minute;
    tmtime->tm_sec  = tmtime->tm_sec + second;
    timestamp = mktime(tmtime);
    if (timestamp <= time(NULL) && !pc_can_use_command(sd, "unban", COMMAND_ATCOMMAND)) {
        clif_displaymessage(fd,msg_txt(1023)); // You are not allowed to reduce the length of a ban.
        return -1;
    }

    chrif_char_ask_name(sd->status.account_id, atcmd_player_name, 2, year, month, day, hour, minute, second); // type: 2 - ban
    clif_displaymessage(fd, msg_txt(88)); // Character name sent to char-server to ask it.

    return 0;
}

/*==========================================
 * charunblock command (usage: charunblock <player_name>)
 *------------------------------------------*/
ACMD_FUNC(char_unblock)
{
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1024)); // Please enter a player name (usage: @charunblock <char name>).
        return -1;
    }

    // send answer to login server via char-server
    chrif_char_ask_name(sd->status.account_id, atcmd_player_name, 3, 0, 0, 0, 0, 0, 0); // type: 3 - unblock
    clif_displaymessage(fd, msg_txt(88)); // Character name sent to char-server to ask it.

    return 0;
}

/*==========================================
 * charunban command (usage: charunban <player_name>)
 *------------------------------------------*/
ACMD_FUNC(char_unban)
{
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1025)); // Please enter a player name (usage: @charunban <char name>).
        return -1;
    }

    // send answer to login server via char-server
    chrif_char_ask_name(sd->status.account_id, atcmd_player_name, 4, 0, 0, 0, 0, 0, 0); // type: 4 - unban
    clif_displaymessage(fd, msg_txt(88)); // Character name sent to char-server to ask it.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(night)
{
    nullpo_retr(-1, sd);

    if (night_flag != 1) {
        map_night_timer(night_timer_tid, 0, 0, 1);
    } else {
        clif_displaymessage(fd, msg_txt(89)); // Night mode is already enabled.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(day)
{
    nullpo_retr(-1, sd);

    if (night_flag != 0) {
        map_day_timer(day_timer_tid, 0, 0, 1);
    } else {
        clif_displaymessage(fd, msg_txt(90)); // Day mode is already enabled.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(doom)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;

    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (pl_sd->fd != fd && pc_get_group_level(sd) >= pc_get_group_level(pl_sd)) {
            status_kill(&pl_sd->bl);
            clif_specialeffect(&pl_sd->bl,450,AREA);
            clif_displaymessage(pl_sd->fd, msg_txt(61)); // The holy messenger has given judgement.
        }
    }
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(62)); // Judgement was made.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(doommap)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;

    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (pl_sd->fd != fd && sd->bl.m == pl_sd->bl.m && pc_get_group_level(sd) >= pc_get_group_level(pl_sd)) {
            status_kill(&pl_sd->bl);
            clif_specialeffect(&pl_sd->bl,450,AREA);
            clif_displaymessage(pl_sd->fd, msg_txt(61)); // The holy messenger has given judgement.
        }
    }
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(62)); // Judgement was made.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
static void atcommand_raise_sub(struct map_session_data *sd)
{

    status_revive(&sd->bl, 100, 100);

    clif_skill_nodamage(&sd->bl,&sd->bl,ALL_RESURRECTION,4,1);
    clif_displaymessage(sd->fd, msg_txt(63)); // Mercy has been shown.
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(raise)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;

    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter))
        if (pc_isdead(pl_sd))
            atcommand_raise_sub(pl_sd);
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(64)); // Mercy has been granted.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(raisemap)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;

    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter))
        if (sd->bl.m == pl_sd->bl.m && pc_isdead(pl_sd))
            atcommand_raise_sub(pl_sd);
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(64)); // Mercy has been granted.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(kick)
{
    struct map_session_data *pl_sd;
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1026)); // Please enter a player name (usage: @kick <char name/ID>).
        return -1;
    }

    if ((pl_sd=map_nick2sd((char *)message)) == NULL && (pl_sd=map_charid2sd(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) {
        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    clif_GM_kick(sd, pl_sd);

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(kickall)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (pc_get_group_level(sd) >= pc_get_group_level(pl_sd)) { // you can kick only lower or same gm level
            if (sd->status.account_id != pl_sd->status.account_id)
                clif_GM_kick(NULL, pl_sd);
        }
    }
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(195)); // All players have been kicked!

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(allskill)
{
    nullpo_retr(-1, sd);
    pc_allskillup(sd); // all skills
    sd->status.skill_point = 0; // 0 skill points
    clif_updatestatus(sd, SP_SKILLPOINT); // update
    clif_displaymessage(fd, msg_txt(76)); // All skills have been added to your skill tree.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(questskill)
{
    int skill_id;
    nullpo_retr(-1, sd);

    if (!message || !*message || (skill_id = atoi(message)) < 0) {
        // also send a list of skills applicable to this command
        const char *text;

        // attempt to find the text corresponding to this command
        text = atcommand_help_string(command);

        // send the error message as always
        clif_displaymessage(fd, msg_txt(1027)); // Please enter a quest skill number.

        if (text) {
            // send the skill ID list associated with this command
            clif_displaymessage(fd, text);
        }

        return -1;
    }
    if (skill_id < 0 && skill_id >= MAX_SKILL_DB) {
        clif_displaymessage(fd, msg_txt(198)); // This skill number doesn't exist.
        return -1;
    }
    if (!(skill_get_inf2(skill_id) & INF2_QUEST_SKILL)) {
        clif_displaymessage(fd, msg_txt(197)); // This skill number doesn't exist or isn't a quest skill.
        return -1;
    }
    if (pc_checkskill(sd, skill_id) > 0) {
        clif_displaymessage(fd, msg_txt(196)); // You already have this quest skill.
        return -1;
    }

    pc_skill(sd, skill_id, 1, 0);
    clif_displaymessage(fd, msg_txt(70)); // You have learned the skill.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(lostskill)
{
    int skill_id;
    nullpo_retr(-1, sd);

    if (!message || !*message || (skill_id = atoi(message)) < 0) {
        // also send a list of skills applicable to this command
        const char *text;

        // attempt to find the text corresponding to this command
        text = atcommand_help_string(command);

        // send the error message as always
        clif_displaymessage(fd, msg_txt(1027)); // Please enter a quest skill number.

        if (text) {
            // send the skill ID list associated with this command
            clif_displaymessage(fd, text);
        }

        return -1;
    }
    if (skill_id < 0 && skill_id >= MAX_SKILL) {
        clif_displaymessage(fd, msg_txt(198)); // This skill number doesn't exist.
        return -1;
    }
    if (!(skill_get_inf2(skill_id) & INF2_QUEST_SKILL)) {
        clif_displaymessage(fd, msg_txt(197)); // This skill number doesn't exist or isn't a quest skill.
        return -1;
    }
    if (pc_checkskill(sd, skill_id) == 0) {
        clif_displaymessage(fd, msg_txt(201)); // You don't have this quest skill.
        return -1;
    }

    sd->status.skill[skill_id].lv = 0;
    sd->status.skill[skill_id].flag = 0;
    clif_deleteskill(sd,skill_id);
    clif_displaymessage(fd, msg_txt(71)); // You have forgotten the skill.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(spiritball)
{
    int max_spiritballs;
    int number;
    nullpo_retr(-1, sd);

    max_spiritballs = min(ARRAYLENGTH(sd->spirit_timer), 0x7FFF);

    if (!message || !*message || (number = atoi(message)) < 0 || number > max_spiritballs) {
        char msg[CHAT_SIZE_MAX];
        safesnprintf(msg, sizeof(msg), msg_txt(1028), max_spiritballs); // Please enter a party name (usage: @party <party_name>).
        clif_displaymessage(fd, msg);
        return -1;
    }

    if (sd->spiritball > 0)
        pc_delspiritball(sd, sd->spiritball, 1);
    sd->spiritball = number;
    clif_spiritball(&sd->bl);
    // no message, player can look the difference

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(party)
{
    char party[NAME_LENGTH];
    nullpo_retr(-1, sd);

    memset(party, '\0', sizeof(party));

    if (!message || !*message || sscanf(message, "%23[^\n]", party) < 1) {
        clif_displaymessage(fd, msg_txt(1029)); // Please enter a party name (usage: @party <party_name>).
        return -1;
    }

    party_create(sd, party, 0, 0);

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(guild)
{
    char guild[NAME_LENGTH];
    int prev;
    nullpo_retr(-1, sd);

    memset(guild, '\0', sizeof(guild));

    if (!message || !*message || sscanf(message, "%23[^\n]", guild) < 1) {
        clif_displaymessage(fd, msg_txt(1030)); // Please enter a guild name (usage: @guild <guild_name>).
        return -1;
    }

    prev = battle_config.guild_emperium_check;
    battle_config.guild_emperium_check = 0;
    guild_create(sd, guild);
    battle_config.guild_emperium_check = prev;

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(agitstart)
{
    nullpo_retr(-1, sd);
    if (agit_flag == 1) {
        clif_displaymessage(fd, msg_txt(73)); // War of Emperium is currently in progress.
        return -1;
    }

    agit_flag = 1;
    guild_agit_start();
    clif_displaymessage(fd, msg_txt(72)); // War of Emperium has been initiated.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(agitstart2)
{
    nullpo_retr(-1, sd);
    if (agit2_flag == 1) {
        clif_displaymessage(fd, msg_txt(404)); // "War of Emperium SE is currently in progress."
        return -1;
    }

    agit2_flag = 1;
    guild_agit2_start();
    clif_displaymessage(fd, msg_txt(403)); // "War of Emperium SE has been initiated."

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(agitend)
{
    nullpo_retr(-1, sd);
    if (agit_flag == 0) {
        clif_displaymessage(fd, msg_txt(75)); // War of Emperium is currently not in progress.
        return -1;
    }

    agit_flag = 0;
    guild_agit_end();
    clif_displaymessage(fd, msg_txt(74)); // War of Emperium has been ended.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(agitend2)
{
    nullpo_retr(-1, sd);
    if (agit2_flag == 0) {
        clif_displaymessage(fd, msg_txt(406)); // "War of Emperium SE is currently not in progress."
        return -1;
    }

    agit2_flag = 0;
    guild_agit2_end();
    clif_displaymessage(fd, msg_txt(405)); // "War of Emperium SE has been ended."

    return 0;
}

/*==========================================
 * @mapexit - shuts down the map server
 *------------------------------------------*/
ACMD_FUNC(mapexit)
{
    nullpo_retr(-1, sd);

    do_shutdown();
    return 0;
}

/*==========================================
 * idsearch <part_of_name>: revrited by [Yor]
 *------------------------------------------*/
ACMD_FUNC(idsearch)
{
    char item_name[100];
    unsigned int i, match;
    struct item_data *item_array[MAX_SEARCH];
    nullpo_retr(-1, sd);

    memset(item_name, '\0', sizeof(item_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%99s", item_name) < 0) {
        clif_displaymessage(fd, msg_txt(1031)); // Please enter part of an item name (usage: @idsearch <part_of_item_name>).
        return -1;
    }

    sprintf(atcmd_output, msg_txt(77), item_name); // The reference result of '%s' (name: id):
    clif_displaymessage(fd, atcmd_output);
    match = itemdb_searchname_array(item_array, MAX_SEARCH, item_name);
    if (match > MAX_SEARCH) {
        sprintf(atcmd_output, msg_txt(269), MAX_SEARCH, match);
        clif_displaymessage(fd, atcmd_output);
        match = MAX_SEARCH;
    }
    for (i = 0; i < match; i++) {
        sprintf(atcmd_output, msg_txt(78), item_array[i]->jname, item_array[i]->nameid); // %s: %d
        clif_displaymessage(fd, atcmd_output);
    }
    sprintf(atcmd_output, msg_txt(79), match); // It is %d affair above.
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 * Recall All Characters Online To Your Location
 *------------------------------------------*/
ACMD_FUNC(recallall)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    int count;
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(1032)); // You are not authorized to warp somenone to your current map.
        return -1;
    }

    count = 0;
    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (sd->status.account_id != pl_sd->status.account_id && pc_get_group_level(sd) >= pc_get_group_level(pl_sd)) {
            if (pl_sd->bl.m >= 0 && map[pl_sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE))
                count++;
            else {
                if (pc_isdead(pl_sd)) { //Wake them up
                    pc_setstand(pl_sd);
                    pc_setrestartvalue(pl_sd,1);
                }
                pc_setpos(pl_sd, sd->mapindex, sd->bl.x, sd->bl.y, CLR_RESPAWN);
            }
        }
    }
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(92)); // All characters recalled!
    if (count) {
        sprintf(atcmd_output, msg_txt(1033), count); // Because you are not authorized to warp from some maps, %d player(s) have not been recalled.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 * Recall online characters of a guild to your location
 *------------------------------------------*/
ACMD_FUNC(guildrecall)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    int count;
    char guild_name[NAME_LENGTH];
    struct guild *g;
    nullpo_retr(-1, sd);

    memset(guild_name, '\0', sizeof(guild_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%23[^\n]", guild_name) < 1) {
        clif_displaymessage(fd, msg_txt(1034)); // Please enter a guild name/ID (usage: @guildrecall <guild_name/ID>).
        return -1;
    }

    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(1032)); // You are not authorized to warp somenone to your current map.
        return -1;
    }

    if ((g = guild_searchname(guild_name)) == NULL && // name first to avoid error when name begin with a number
        (g = guild_search(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(94)); // Incorrect name/ID, or no one from the guild is online.
        return -1;
    }

    count = 0;

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (sd->status.account_id != pl_sd->status.account_id && pl_sd->status.guild_id == g->guild_id) {
            if (pc_get_group_level(pl_sd) > pc_get_group_level(sd))
                continue; //Skip GMs greater than you.
            if (pl_sd->bl.m >= 0 && map[pl_sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE))
                count++;
            else
                pc_setpos(pl_sd, sd->mapindex, sd->bl.x, sd->bl.y, CLR_RESPAWN);
        }
    }
    mapit_free(iter);

    sprintf(atcmd_output, msg_txt(93), g->name); // All online characters of the %s guild have been recalled to your position.
    clif_displaymessage(fd, atcmd_output);
    if (count) {
        sprintf(atcmd_output, msg_txt(1033), count); // Because you are not authorized to warp from some maps, %d player(s) have not been recalled.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 * Recall online characters of a party to your location
 *------------------------------------------*/
ACMD_FUNC(partyrecall)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    char party_name[NAME_LENGTH];
    struct party_data *p;
    int count;
    nullpo_retr(-1, sd);

    memset(party_name, '\0', sizeof(party_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message || sscanf(message, "%23[^\n]", party_name) < 1) {
        clif_displaymessage(fd, msg_txt(1035)); // Please enter a party name/ID (usage: @partyrecall <party_name/ID>).
        return -1;
    }

    if (sd->bl.m >= 0 && map[sd->bl.m].flag.nowarpto && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE)) {
        clif_displaymessage(fd, msg_txt(1032)); // You are not authorized to warp somenone to your current map.
        return -1;
    }

    if ((p = party_searchname(party_name)) == NULL && // name first to avoid error when name begin with a number
        (p = party_search(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(96)); // Incorrect name or ID, or no one from the party is online.
        return -1;
    }

    count = 0;

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (sd->status.account_id != pl_sd->status.account_id && pl_sd->status.party_id == p->party.party_id) {
            if (pc_get_group_level(pl_sd) > pc_get_group_level(sd))
                continue; //Skip GMs greater than you.
            if (pl_sd->bl.m >= 0 && map[pl_sd->bl.m].flag.nowarp && !pc_has_permission(sd, PC_PERM_WARP_ANYWHERE))
                count++;
            else
                pc_setpos(pl_sd, sd->mapindex, sd->bl.x, sd->bl.y, CLR_RESPAWN);
        }
    }
    mapit_free(iter);

    sprintf(atcmd_output, msg_txt(95), p->party.name); // All online characters of the %s party have been recalled to your position.
    clif_displaymessage(fd, atcmd_output);
    if (count) {
        sprintf(atcmd_output, msg_txt(1033), count); // Because you are not authorized to warp from some maps, %d player(s) have not been recalled.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(reloaditemdb)
{
    nullpo_retr(-1, sd);
    itemdb_reload();
    clif_displaymessage(fd, msg_txt(97)); // Item database has been reloaded.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(reloadmobdb)
{
    nullpo_retr(-1, sd);
    mob_reload();
    read_petdb();
    merc_reload();
    read_mercenarydb();
    read_mercenary_skilldb();
    reload_elementaldb();
    clif_displaymessage(fd, msg_txt(98)); // Monster database has been reloaded.

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(reloadskilldb)
{
    nullpo_retr(-1, sd);
    skill_reload();
    merc_skill_reload();
    reload_elemental_skilldb();
    read_mercenary_skilldb();
    clif_displaymessage(fd, msg_txt(99)); // Skill database has been reloaded.

    return 0;
}

/*==========================================
 * @reloadatcommand - reloads atcommand_athena.conf groups.conf
 *------------------------------------------*/
void atcommand_doload();
ACMD_FUNC(reloadatcommand)
{
    config_t run_test;

    if (conf_read_file(&run_test, "conf/groups.conf")) {
        clif_displaymessage(fd, msg_txt(1036)); // Error reading groups.conf, reload failed.
        return -1;
    }

    config_destroy(&run_test);

    if (conf_read_file(&run_test, ATCOMMAND_CONF_FILENAME)) {
        clif_displaymessage(fd, msg_txt(1037)); // Error reading atcommand_athena.conf, reload failed.
        return -1;
    }

    config_destroy(&run_test);

    atcommand_doload();
    pc_groups_reload();
    clif_displaymessage(fd, msg_txt(254));
    return 0;
}
/*==========================================
 * @reloadbattleconf - reloads battle_athena.conf
 *------------------------------------------*/
ACMD_FUNC(reloadbattleconf)
{
    struct Battle_Config prev_config;
    memcpy(&prev_config, &battle_config, sizeof(prev_config));

    battle_config_read(BATTLE_CONF_FILENAME);

    if (prev_config.item_rate_mvp          != battle_config.item_rate_mvp
        ||  prev_config.item_rate_common       != battle_config.item_rate_common
        ||  prev_config.item_rate_common_boss  != battle_config.item_rate_common_boss
        ||  prev_config.item_rate_card         != battle_config.item_rate_card
        ||  prev_config.item_rate_card_boss    != battle_config.item_rate_card_boss
        ||  prev_config.item_rate_equip        != battle_config.item_rate_equip
        ||  prev_config.item_rate_equip_boss   != battle_config.item_rate_equip_boss
        ||  prev_config.item_rate_heal         != battle_config.item_rate_heal
        ||  prev_config.item_rate_heal_boss    != battle_config.item_rate_heal_boss
        ||  prev_config.item_rate_use          != battle_config.item_rate_use
        ||  prev_config.item_rate_use_boss     != battle_config.item_rate_use_boss
        ||  prev_config.item_rate_treasure     != battle_config.item_rate_treasure
        ||  prev_config.item_rate_adddrop      != battle_config.item_rate_adddrop
        ||  prev_config.logarithmic_drops      != battle_config.logarithmic_drops
        ||  prev_config.item_drop_common_min   != battle_config.item_drop_common_min
        ||  prev_config.item_drop_common_max   != battle_config.item_drop_common_max
        ||  prev_config.item_drop_card_min     != battle_config.item_drop_card_min
        ||  prev_config.item_drop_card_max     != battle_config.item_drop_card_max
        ||  prev_config.item_drop_equip_min    != battle_config.item_drop_equip_min
        ||  prev_config.item_drop_equip_max    != battle_config.item_drop_equip_max
        ||  prev_config.item_drop_mvp_min      != battle_config.item_drop_mvp_min
        ||  prev_config.item_drop_mvp_max      != battle_config.item_drop_mvp_max
        ||  prev_config.item_drop_heal_min     != battle_config.item_drop_heal_min
        ||  prev_config.item_drop_heal_max     != battle_config.item_drop_heal_max
        ||  prev_config.item_drop_use_min      != battle_config.item_drop_use_min
        ||  prev_config.item_drop_use_max      != battle_config.item_drop_use_max
        ||  prev_config.item_drop_treasure_min != battle_config.item_drop_treasure_min
        ||  prev_config.item_drop_treasure_max != battle_config.item_drop_treasure_max
        ||  prev_config.base_exp_rate          != battle_config.base_exp_rate
        ||  prev_config.job_exp_rate           != battle_config.job_exp_rate
       ) {
        // Exp or Drop rates changed.
        mob_reload(); //Needed as well so rate changes take effect.
        chrif_ragsrvinfo(battle_config.base_exp_rate, battle_config.job_exp_rate, battle_config.item_rate_common);
    }
    clif_displaymessage(fd, msg_txt(255));
    return 0;
}
/*==========================================
 * @reloadstatusdb - reloads job_db1.txt job_db2.txt job_db2-2.txt refine_db.txt size_fix.txt
 *------------------------------------------*/
ACMD_FUNC(reloadstatusdb)
{
    status_readdb();
    clif_displaymessage(fd, msg_txt(256));
    return 0;
}
/*==========================================
 * @reloadpcdb - reloads exp.txt skill_tree.txt attr_fix.txt statpoint.txt
 *------------------------------------------*/
ACMD_FUNC(reloadpcdb)
{
    pc_readdb();
    clif_displaymessage(fd, msg_txt(257));
    return 0;
}

/*==========================================
 * @reloadmotd - reloads motd.txt
 *------------------------------------------*/
ACMD_FUNC(reloadmotd)
{
    pc_read_motd();
    clif_displaymessage(fd, msg_txt(268));
    return 0;
}

/*==========================================
 * @reloadscript - reloads all scripts (npcs, warps, mob spawns, ...)
 *------------------------------------------*/
ACMD_FUNC(reloadscript)
{
    nullpo_retr(-1, sd);
    //atcommand_broadcast( fd, sd, "@broadcast", "Server is reloading scripts..." );
    //atcommand_broadcast( fd, sd, "@broadcast", "You will feel a bit of lag at this point !" );

    flush_fifos();
    map_reloadnpc(true); // reload config files seeking for npcs
    script_reload();
    npc_reload();

    clif_displaymessage(fd, msg_txt(100)); // Scripts have been reloaded.

    return 0;
}

/*==========================================
 * @mapinfo [0-3] <map name> by MC_Cameri
 * => Shows information about the map [map name]
 * 0 = no additional information
 * 1 = Show users in that map and their location
 * 2 = Shows NPCs in that map
 * 3 = Shows the shops/chats in that map (not implemented)
 *------------------------------------------*/
ACMD_FUNC(mapinfo)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    struct npc_data *nd = NULL;
    struct chat_data *cd = NULL;
    char direction[12];
    int i, m_id, chat_num, list = 0;
    unsigned short m_index;
    char mapname[24];

    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));
    memset(mapname, '\0', sizeof(mapname));
    memset(direction, '\0', sizeof(direction));

    sscanf(message, "%d %23[^\n]", &list, mapname);

    if (list < 0 || list > 3) {
        clif_displaymessage(fd, msg_txt(1038)); // Please enter at least one valid list number (usage: @mapinfo <0-3> <map>).
        return -1;
    }

    if (mapname[0] == '\0') {
        safestrncpy(mapname, mapindex_id2name(sd->mapindex), MAP_NAME_LENGTH);
        m_id =  map_mapindex2mapid(sd->mapindex);
    } else {
        m_id = map_mapname2mapid(mapname);
    }

    if (m_id < 0) {
        clif_displaymessage(fd, msg_txt(1)); // Map not found.
        return -1;
    }
    m_index = mapindex_name2id(mapname); //This one shouldn't fail since the previous seek did not.

    clif_displaymessage(fd, msg_txt(1039)); // ------ Map Info ------

    // count chats (for initial message)
    chat_num = 0;
    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter))
        if ((cd = (struct chat_data *)map_id2bl(pl_sd->chatID)) != NULL && pl_sd->mapindex == m_index && cd->usersd[0] == pl_sd)
            chat_num++;
    mapit_free(iter);

    sprintf(atcmd_output, msg_txt(1040), mapname, map[m_id].users, map[m_id].npc_num, chat_num); // Map Name: %s | Players In Map: %d | NPCs In Map: %d | Chats In Map: %d
    clif_displaymessage(fd, atcmd_output);
    clif_displaymessage(fd, msg_txt(1041)); // ------ Map Flags ------
    if (map[m_id].flag.town)
        clif_displaymessage(fd, msg_txt(1042)); // Town Map

    if (battle_config.autotrade_mapflag == map[m_id].flag.autotrade)
        clif_displaymessage(fd, msg_txt(1043)); // Autotrade Enabled
    else
        clif_displaymessage(fd, msg_txt(1044)); // Autotrade Disabled

    if (map[m_id].flag.battleground)
        clif_displaymessage(fd, msg_txt(1045)); // Battlegrounds ON

    strcpy(atcmd_output,msg_txt(1046)); // PvP Flags:
    if (map[m_id].flag.pvp)
        strcat(atcmd_output, msg_txt(1047)); // Pvp ON |
    if (map[m_id].flag.pvp_noguild)
        strcat(atcmd_output, msg_txt(1048)); // NoGuild |
    if (map[m_id].flag.pvp_noparty)
        strcat(atcmd_output, msg_txt(1049)); // NoParty |
    if (map[m_id].flag.pvp_nightmaredrop)
        strcat(atcmd_output, msg_txt(1050)); // NightmareDrop |
    if (map[m_id].flag.pvp_nocalcrank)
        strcat(atcmd_output, msg_txt(1051)); // NoCalcRank |
    clif_displaymessage(fd, atcmd_output);

    strcpy(atcmd_output,msg_txt(1052)); // GvG Flags:
    if (map[m_id].flag.gvg)
        strcat(atcmd_output, msg_txt(1053)); // GvG ON |
    if (map[m_id].flag.gvg_dungeon)
        strcat(atcmd_output, msg_txt(1054)); // GvG Dungeon |
    if (map[m_id].flag.gvg_castle)
        strcat(atcmd_output, msg_txt(1055)); // GvG Castle |
    if (map[m_id].flag.gvg_noparty)
        strcat(atcmd_output, msg_txt(1056)); // NoParty |
    clif_displaymessage(fd, atcmd_output);

    strcpy(atcmd_output,msg_txt(1057)); // Teleport Flags:
    if (map[m_id].flag.noteleport)
        strcat(atcmd_output, msg_txt(1058)); // NoTeleport |
    if (map[m_id].flag.monster_noteleport)
        strcat(atcmd_output, msg_txt(1059)); // Monster NoTeleport |
    if (map[m_id].flag.nowarp)
        strcat(atcmd_output, msg_txt(1060)); // NoWarp |
    if (map[m_id].flag.nowarpto)
        strcat(atcmd_output, msg_txt(1061)); // NoWarpTo |
    if (map[m_id].flag.noreturn)
        strcat(atcmd_output, msg_txt(1062)); // NoReturn |
    if (map[m_id].flag.nogo)
        strcat(atcmd_output, msg_txt(1063)); // NoGo |
    if (map[m_id].flag.nomemo)
        strcat(atcmd_output, msg_txt(1064)); // NoMemo |
    clif_displaymessage(fd, atcmd_output);

    sprintf(atcmd_output, msg_txt(1065),  // No Exp Penalty: %s | No Zeny Penalty: %s
            (map[m_id].flag.noexppenalty) ? msg_txt(1066) : msg_txt(1067), (map[m_id].flag.nozenypenalty) ? msg_txt(1066) : msg_txt(1067)); // On / Off
    clif_displaymessage(fd, atcmd_output);

    if (map[m_id].flag.nosave) {
        if (!map[m_id].save.map)
            clif_displaymessage(fd, msg_txt(1068)); // No Save (Return to last Save Point)
        else if (map[m_id].save.x == -1 || map[m_id].save.y == -1) {
            sprintf(atcmd_output, msg_txt(1069), mapindex_id2name(map[m_id].save.map)); // No Save, Save Point: %s,Random
            clif_displaymessage(fd, atcmd_output);
        } else {
            sprintf(atcmd_output, msg_txt(1070), // No Save, Save Point: %s,%d,%d
                    mapindex_id2name(map[m_id].save.map),map[m_id].save.x,map[m_id].save.y);
            clif_displaymessage(fd, atcmd_output);
        }
    }

    strcpy(atcmd_output,msg_txt(1071)); // Weather Flags:
    if (map[m_id].flag.snow)
        strcat(atcmd_output, msg_txt(1072)); // Snow |
    if (map[m_id].flag.fog)
        strcat(atcmd_output, msg_txt(1073)); // Fog |
    if (map[m_id].flag.sakura)
        strcat(atcmd_output, msg_txt(1074)); // Sakura |
    if (map[m_id].flag.clouds)
        strcat(atcmd_output, msg_txt(1075)); // Clouds |
    if (map[m_id].flag.clouds2)
        strcat(atcmd_output, msg_txt(1076)); // Clouds2 |
    if (map[m_id].flag.fireworks)
        strcat(atcmd_output, msg_txt(1077)); // Fireworks |
    if (map[m_id].flag.leaves)
        strcat(atcmd_output, msg_txt(1078)); // Leaves |
    /**
     * No longer available, keeping here just in case it's back someday. [Ind]
     **/
    //if (map[m_id].flag.rain)
    //  strcat(atcmd_output, msg_txt(1079)); // Rain |
    if (map[m_id].flag.nightenabled)
        strcat(atcmd_output, msg_txt(1080)); // Displays Night |
    clif_displaymessage(fd, atcmd_output);

    strcpy(atcmd_output,msg_txt(1081)); // Other Flags:
    if (map[m_id].flag.nobranch)
        strcat(atcmd_output, msg_txt(1082)); // NoBranch |
    if (map[m_id].flag.notrade)
        strcat(atcmd_output, msg_txt(1083)); // NoTrade |
    if (map[m_id].flag.novending)
        strcat(atcmd_output, msg_txt(1084)); // NoVending |
    if (map[m_id].flag.nodrop)
        strcat(atcmd_output, msg_txt(1085)); // NoDrop |
    if (map[m_id].flag.noskill)
        strcat(atcmd_output, msg_txt(1086)); // NoSkill |
    if (map[m_id].flag.noicewall)
        strcat(atcmd_output, msg_txt(1087)); // NoIcewall |
    if (map[m_id].flag.allowks)
        strcat(atcmd_output, msg_txt(1088)); // AllowKS |
    if (map[m_id].flag.reset)
        strcat(atcmd_output, msg_txt(1089)); // Reset |
    clif_displaymessage(fd, atcmd_output);

    strcpy(atcmd_output,msg_txt(1090)); // Other Flags:
    if (map[m_id].nocommand)
        strcat(atcmd_output, msg_txt(1091)); // NoCommand |
    if (map[m_id].flag.nobaseexp)
        strcat(atcmd_output, msg_txt(1092)); // NoBaseEXP |
    if (map[m_id].flag.nojobexp)
        strcat(atcmd_output, msg_txt(1093)); // NoJobEXP |
    if (map[m_id].flag.nomobloot)
        strcat(atcmd_output, msg_txt(1094)); // NoMobLoot |
    if (map[m_id].flag.nomvploot)
        strcat(atcmd_output, msg_txt(1095)); // NoMVPLoot |
    if (map[m_id].flag.partylock)
        strcat(atcmd_output, msg_txt(1096)); // PartyLock |
    if (map[m_id].flag.guildlock)
        strcat(atcmd_output, msg_txt(1097)); // GuildLock |
    clif_displaymessage(fd, atcmd_output);

    switch (list) {
        case 0:
            // Do nothing. It's list 0, no additional display.
            break;
        case 1:
            clif_displaymessage(fd, msg_txt(1098)); // ----- Players in Map -----
            iter = mapit_getallusers();
            for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
                if (pl_sd->mapindex == m_index) {
                    sprintf(atcmd_output, msg_txt(1099), // Player '%s' (session #%d) | Location: %d,%d
                            pl_sd->status.name, pl_sd->fd, pl_sd->bl.x, pl_sd->bl.y);
                    clif_displaymessage(fd, atcmd_output);
                }
            }
            mapit_free(iter);
            break;
        case 2:
            clif_displaymessage(fd, msg_txt(1100)); // ----- NPCs in Map -----
            for (i = 0; i < map[m_id].npc_num;) {
                nd = map[m_id].npc[i];
                switch (nd->ud.dir) {
                    case 0:
                        strcpy(direction, msg_txt(1101));
                        break; // North
                    case 1:
                        strcpy(direction, msg_txt(1102));
                        break; // North West
                    case 2:
                        strcpy(direction, msg_txt(1103));
                        break; // West
                    case 3:
                        strcpy(direction, msg_txt(1104));
                        break; // South West
                    case 4:
                        strcpy(direction, msg_txt(1105));
                        break; // South
                    case 5:
                        strcpy(direction, msg_txt(1106));
                        break; // South East
                    case 6:
                        strcpy(direction, msg_txt(1107));
                        break; // East
                    case 7:
                        strcpy(direction, msg_txt(1108));
                        break; // North East
                    case 9:
                        strcpy(direction, msg_txt(1109));
                        break; // North
                    default:
                        strcpy(direction, msg_txt(1110));
                        break; // Unknown
                }
                if (strcmp(nd->name,nd->exname) == 0)
                    sprintf(atcmd_output, msg_txt(1111), // NPC %d: %s | Direction: %s | Sprite: %d | Location: %d %d
                            ++i, nd->name, direction, nd->class_, nd->bl.x, nd->bl.y);
                else
                    sprintf(atcmd_output, msg_txt(1112), // NPC %d: %s::%s | Direction: %s | Sprite: %d | Location: %d %d
                            ++i, nd->name, nd->exname, direction, nd->class_, nd->bl.x, nd->bl.y);
                clif_displaymessage(fd, atcmd_output);
            }
            break;
        case 3:
            clif_displaymessage(fd, msg_txt(1113)); // ----- Chats in Map -----
            iter = mapit_getallusers();
            for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
                if ((cd = (struct chat_data *)map_id2bl(pl_sd->chatID)) != NULL &&
                    pl_sd->mapindex == m_index &&
                    cd->usersd[0] == pl_sd) {
                    sprintf(atcmd_output, msg_txt(1114), // Chat: %s | Player: %s | Location: %d %d
                            cd->title, pl_sd->status.name, cd->bl.x, cd->bl.y);
                    clif_displaymessage(fd, atcmd_output);
                    sprintf(atcmd_output, msg_txt(1115), //    Users: %d/%d | Password: %s | Public: %s
                            cd->users, cd->limit, cd->pass, (cd->pub) ? msg_txt(1116) : msg_txt(1117)); // Yes / No
                    clif_displaymessage(fd, atcmd_output);
                }
            }
            mapit_free(iter);
            break;
        default: // normally impossible to arrive here
            clif_displaymessage(fd, msg_txt(1118)); // Please enter at least one valid list number (usage: @mapinfo <0-3> <map>).
            return -1;
            break;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(mount_peco)
{
    nullpo_retr(-1, sd);

    if (sd->disguise) {
        clif_displaymessage(fd, msg_txt(212)); // Cannot mount while in disguise.
        return -1;
    }

    if ((sd->class_&MAPID_THIRDMASK) == MAPID_RUNE_KNIGHT && pc_checkskill(sd,RK_DRAGONTRAINING) > 0) {
        if (!(sd->sc.option&OPTION_DRAGON1)) {
            clif_displaymessage(sd->fd,msg_txt(1119)); // You have mounted your Dragon.
            pc_setoption(sd, sd->sc.option|OPTION_DRAGON1);
        } else {
            clif_displaymessage(sd->fd,msg_txt(1120)); // You have released your Dragon.
            pc_setoption(sd, sd->sc.option&~OPTION_DRAGON1);
        }
        return 0;
    }
    if ((sd->class_&MAPID_THIRDMASK) == MAPID_RANGER && pc_checkskill(sd,RA_WUGRIDER) > 0) {
        if (!pc_isridingwug(sd)) {
            clif_displaymessage(sd->fd,msg_txt(1121)); // You have mounted your Warg.
            pc_setoption(sd, sd->sc.option|OPTION_WUGRIDER);
        } else {
            clif_displaymessage(sd->fd,msg_txt(1122)); // You have released your Warg.
            pc_setoption(sd, sd->sc.option&~OPTION_WUGRIDER);
        }
        return 0;
    }
    if ((sd->class_&MAPID_THIRDMASK) == MAPID_MECHANIC) {
        if (!pc_ismadogear(sd)) {
            clif_displaymessage(sd->fd,msg_txt(1123)); // You have mounted your Mado Gear.
            pc_setoption(sd, sd->sc.option|OPTION_MADOGEAR);
        } else {
            clif_displaymessage(sd->fd,msg_txt(1124)); // You have released your Mado Gear.
            pc_setoption(sd, sd->sc.option&~OPTION_MADOGEAR);
        }
        return 0;
    }
    if (!pc_isriding(sd)) { // if actually no peco

        if (!pc_checkskill(sd, KN_RIDING)) {
            clif_displaymessage(fd, msg_txt(213)); // You can not mount a Peco Peco with your current job.
            return -1;
        }

        pc_setoption(sd, sd->sc.option | OPTION_RIDING);
        clif_displaymessage(fd, msg_txt(102)); // You have mounted a Peco Peco.
    } else {//Dismount
        pc_setoption(sd, sd->sc.option & ~OPTION_RIDING);
        clif_displaymessage(fd, msg_txt(214)); // You have released your Peco Peco.
    }

    return 0;
}

/*==========================================
 *Spy Commands by Syrus22
 *------------------------------------------*/
ACMD_FUNC(guildspy)
{
    char guild_name[NAME_LENGTH];
    struct guild *g;
    nullpo_retr(-1, sd);

    memset(guild_name, '\0', sizeof(guild_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!enable_spy) {
        clif_displaymessage(fd, msg_txt(1125)); // The mapserver has spy command support disabled.
        return -1;
    }
    if (!message || !*message || sscanf(message, "%23[^\n]", guild_name) < 1) {
        clif_displaymessage(fd, msg_txt(1126)); // Please enter a guild name/ID (usage: @guildspy <guild_name/ID>).
        return -1;
    }

    if ((g = guild_searchname(guild_name)) != NULL || // name first to avoid error when name begin with a number
        (g = guild_search(atoi(message))) != NULL) {
        if (sd->guildspy == g->guild_id) {
            sd->guildspy = 0;
            sprintf(atcmd_output, msg_txt(103), g->name); // No longer spying on the %s guild.
            clif_displaymessage(fd, atcmd_output);
        } else {
            sd->guildspy = g->guild_id;
            sprintf(atcmd_output, msg_txt(104), g->name); // Spying on the %s guild.
            clif_displaymessage(fd, atcmd_output);
        }
    } else {
        clif_displaymessage(fd, msg_txt(94)); // Incorrect name/ID, or no one from the specified guild is online.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(partyspy)
{
    char party_name[NAME_LENGTH];
    struct party_data *p;
    nullpo_retr(-1, sd);

    memset(party_name, '\0', sizeof(party_name));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!enable_spy) {
        clif_displaymessage(fd, msg_txt(1125)); // The mapserver has spy command support disabled.
        return -1;
    }

    if (!message || !*message || sscanf(message, "%23[^\n]", party_name) < 1) {
        clif_displaymessage(fd, msg_txt(1127)); // Please enter a party name/ID (usage: @partyspy <party_name/ID>).
        return -1;
    }

    if ((p = party_searchname(party_name)) != NULL || // name first to avoid error when name begin with a number
        (p = party_search(atoi(message))) != NULL) {
        if (sd->partyspy == p->party.party_id) {
            sd->partyspy = 0;
            sprintf(atcmd_output, msg_txt(105), p->party.name); // No longer spying on the %s party.
            clif_displaymessage(fd, atcmd_output);
        } else {
            sd->partyspy = p->party.party_id;
            sprintf(atcmd_output, msg_txt(106), p->party.name); // Spying on the %s party.
            clif_displaymessage(fd, atcmd_output);
        }
    } else {
        clif_displaymessage(fd, msg_txt(96)); // Incorrect name/ID, or no one from the specified party is online.
        return -1;
    }

    return 0;
}

/*==========================================
 * @repairall [Valaris]
 *------------------------------------------*/
ACMD_FUNC(repairall)
{
    int count, i;
    nullpo_retr(-1, sd);

    count = 0;
    for (i = 0; i < MAX_INVENTORY; i++) {
        if (sd->status.inventory[i].nameid && sd->status.inventory[i].attribute == 1) {
            sd->status.inventory[i].attribute = 0;
            clif_produceeffect(sd, 0, sd->status.inventory[i].nameid);
            count++;
        }
    }

    if (count > 0) {
        clif_misceffect(&sd->bl, 3);
        clif_equiplist(sd);
        clif_displaymessage(fd, msg_txt(107)); // All items have been repaired.
    } else {
        clif_displaymessage(fd, msg_txt(108)); // No item need to be repaired.
        return -1;
    }

    return 0;
}

/*==========================================
 * @nuke [Valaris]
 *------------------------------------------*/
ACMD_FUNC(nuke)
{
    struct map_session_data *pl_sd;
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1128)); // Please enter a player name (usage: @nuke <char name>).
        return -1;
    }

    if ((pl_sd = map_nick2sd(atcmd_player_name)) != NULL) {
        if (pc_get_group_level(sd) >= pc_get_group_level(pl_sd)) { // you can kill only lower or same GM level
            skill_castend_nodamage_id(&pl_sd->bl, &pl_sd->bl, NPC_SELFDESTRUCTION, 99, gettick(), 0);
            clif_displaymessage(fd, msg_txt(109)); // Player has been nuked!
        } else {
            clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
            return -1;
        }
    } else {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    return 0;
}

/*==========================================
 * @tonpc
 *------------------------------------------*/
ACMD_FUNC(tonpc)
{
    char npcname[NAME_LENGTH+1];
    struct npc_data *nd;

    nullpo_retr(-1, sd);

    memset(npcname, 0, sizeof(npcname));

    if (!message || !*message || sscanf(message, "%23[^\n]", npcname) < 1) {
        clif_displaymessage(fd, msg_txt(1129)); // Please enter a NPC name (usage: @tonpc <NPC_name>).
        return -1;
    }

    if ((nd = npc_name2id(npcname)) != NULL) {
        if (pc_setpos(sd, map_id2index(nd->bl.m), nd->bl.x, nd->bl.y, CLR_TELEPORT) == 0)
            clif_displaymessage(fd, msg_txt(0)); // Warped.
        else
            return -1;
    } else {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(shownpc)
{
    char NPCname[NAME_LENGTH+1];
    nullpo_retr(-1, sd);

    memset(NPCname, '\0', sizeof(NPCname));

    if (!message || !*message || sscanf(message, "%23[^\n]", NPCname) < 1) {
        clif_displaymessage(fd, msg_txt(1130)); // Please enter a NPC name (usage: @enablenpc <NPC_name>).
        return -1;
    }

    if (npc_name2id(NPCname) != NULL) {
        npc_enable(NPCname, 1);
        clif_displaymessage(fd, msg_txt(110)); // Npc Enabled.
    } else {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist.
        return -1;
    }

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(hidenpc)
{
    char NPCname[NAME_LENGTH+1];
    nullpo_retr(-1, sd);

    memset(NPCname, '\0', sizeof(NPCname));

    if (!message || !*message || sscanf(message, "%23[^\n]", NPCname) < 1) {
        clif_displaymessage(fd, msg_txt(1131)); // Please enter a NPC name (usage: @hidenpc <NPC_name>).
        return -1;
    }

    if (npc_name2id(NPCname) == NULL) {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist.
        return -1;
    }

    npc_enable(NPCname, 0);
    clif_displaymessage(fd, msg_txt(112)); // Npc Disabled.
    return 0;
}

ACMD_FUNC(loadnpc)
{
    FILE *fp;

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1132)); // Please enter a script file name (usage: @loadnpc <file name>).
        return -1;
    }

    // check if script file exists
    if ((fp = fopen(message, "r")) == NULL) {
        clif_displaymessage(fd, msg_txt(261));
        return -1;
    }
    fclose(fp);

    // add to list of script sources and run it
    npc_addsrcfile(message);
    npc_parsesrcfile(message,true);
    npc_read_event_script();

    clif_displaymessage(fd, msg_txt(262));

    return 0;
}

ACMD_FUNC(unloadnpc)
{
    struct npc_data *nd;
    char NPCname[NAME_LENGTH+1];
    nullpo_retr(-1, sd);

    memset(NPCname, '\0', sizeof(NPCname));

    if (!message || !*message || sscanf(message, "%24[^\n]", NPCname) < 1) {
        clif_displaymessage(fd, msg_txt(1133)); // Please enter a NPC name (usage: @npcoff <NPC_name>).
        return -1;
    }

    if ((nd = npc_name2id(NPCname)) == NULL) {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist.
        return -1;
    }

    npc_unload_duplicates(nd);
    npc_unload(nd,true);
    npc_read_event_script();
    clif_displaymessage(fd, msg_txt(112)); // Npc Disabled.
    return 0;
}

/*==========================================
 * time in txt for time command (by [Yor])
 *------------------------------------------*/
char *txt_time(unsigned int duration)
{
    int days, hours, minutes, seconds;
    char temp[CHAT_SIZE_MAX];
    static char temp1[CHAT_SIZE_MAX];

    memset(temp, '\0', sizeof(temp));
    memset(temp1, '\0', sizeof(temp1));

    days = duration / (60 * 60 * 24);
    duration = duration - (60 * 60 * 24 * days);
    hours = duration / (60 * 60);
    duration = duration - (60 * 60 * hours);
    minutes = duration / 60;
    seconds = duration - (60 * minutes);

    if (days == 1)
        sprintf(temp, msg_txt(219), days); // %d day
    else if (days > 1)
        sprintf(temp, msg_txt(220), days); // %d days
    if (hours == 1)
        sprintf(temp1, msg_txt(221), temp, hours); // %s %d hour
    else if (hours > 1)
        sprintf(temp1, msg_txt(222), temp, hours); // %s %d hours
    if (minutes < 2)
        sprintf(temp, msg_txt(223), temp1, minutes); // %s %d minute
    else
        sprintf(temp, msg_txt(224), temp1, minutes); // %s %d minutes
    if (seconds == 1)
        sprintf(temp1, msg_txt(225), temp, seconds); // %s and %d second
    else if (seconds > 1)
        sprintf(temp1, msg_txt(226), temp, seconds); // %s and %d seconds

    return temp1;
}

/*==========================================
 * @time/@date/@serverdate/@servertime: Display the date/time of the server (by [Yor]
 * Calculation management of GM modification (@day/@night GM commands) is done
 *------------------------------------------*/
ACMD_FUNC(servertime)
{
    const struct TimerData *timer_data;
    const struct TimerData *timer_data2;
    time_t time_server;  // variable for number of seconds (used with time() function)
    struct tm *datetime; // variable for time in structure ->tm_mday, ->tm_sec, ...
    char temp[CHAT_SIZE_MAX];
    nullpo_retr(-1, sd);

    memset(temp, '\0', sizeof(temp));

    time(&time_server);  // get time in seconds since 1/1/1970
    datetime = localtime(&time_server); // convert seconds in structure
    // like sprintf, but only for date/time (Sunday, November 02 2003 15:12:52)
    strftime(temp, sizeof(temp)-1, msg_txt(230), datetime); // Server time (normal time): %A, %B %d %Y %X.
    clif_displaymessage(fd, temp);

    if (battle_config.night_duration == 0 && battle_config.day_duration == 0) {
        if (night_flag == 0)
            clif_displaymessage(fd, msg_txt(231)); // Game time: The game is in permanent daylight.
        else
            clif_displaymessage(fd, msg_txt(232)); // Game time: The game is in permanent night.
    } else if (battle_config.night_duration == 0)
        if (night_flag == 1) { // we start with night
            timer_data = get_timer(day_timer_tid);
            sprintf(temp, msg_txt(233), txt_time(DIFF_TICK(timer_data->tick,gettick())/1000)); // Game time: The game is actualy in night for %s.
            clif_displaymessage(fd, temp);
            clif_displaymessage(fd, msg_txt(234)); // Game time: After, the game will be in permanent daylight.
        } else
            clif_displaymessage(fd, msg_txt(231)); // Game time: The game is in permanent daylight.
    else if (battle_config.day_duration == 0)
        if (night_flag == 0) { // we start with day
            timer_data = get_timer(night_timer_tid);
            sprintf(temp, msg_txt(235), txt_time(DIFF_TICK(timer_data->tick,gettick())/1000)); // Game time: The game is actualy in daylight for %s.
            clif_displaymessage(fd, temp);
            clif_displaymessage(fd, msg_txt(236)); // Game time: After, the game will be in permanent night.
        } else
            clif_displaymessage(fd, msg_txt(232)); // Game time: The game is in permanent night.
    else {
        if (night_flag == 0) {
            timer_data = get_timer(night_timer_tid);
            timer_data2 = get_timer(day_timer_tid);
            sprintf(temp, msg_txt(235), txt_time(DIFF_TICK(timer_data->tick,gettick())/1000)); // Game time: The game is actualy in daylight for %s.
            clif_displaymessage(fd, temp);
            if (DIFF_TICK(timer_data->tick, timer_data2->tick) > 0)
                sprintf(temp, msg_txt(237), txt_time(DIFF_TICK(timer_data->interval,DIFF_TICK(timer_data->tick,timer_data2->tick)) / 1000)); // Game time: After, the game will be in night for %s.
            else
                sprintf(temp, msg_txt(237), txt_time(DIFF_TICK(timer_data2->tick,timer_data->tick)/1000)); // Game time: After, the game will be in night for %s.
            clif_displaymessage(fd, temp);
            sprintf(temp, msg_txt(238), txt_time(timer_data->interval / 1000)); // Game time: A day cycle has a normal duration of %s.
            clif_displaymessage(fd, temp);
        } else {
            timer_data = get_timer(day_timer_tid);
            timer_data2 = get_timer(night_timer_tid);
            sprintf(temp, msg_txt(233), txt_time(DIFF_TICK(timer_data->tick,gettick()) / 1000)); // Game time: The game is actualy in night for %s.
            clif_displaymessage(fd, temp);
            if (DIFF_TICK(timer_data->tick,timer_data2->tick) > 0)
                sprintf(temp, msg_txt(239), txt_time((timer_data->interval - DIFF_TICK(timer_data->tick, timer_data2->tick)) / 1000)); // Game time: After, the game will be in daylight for %s.
            else
                sprintf(temp, msg_txt(239), txt_time(DIFF_TICK(timer_data2->tick, timer_data->tick) / 1000)); // Game time: After, the game will be in daylight for %s.
            clif_displaymessage(fd, temp);
            sprintf(temp, msg_txt(238), txt_time(timer_data->interval / 1000)); // Game time: A day cycle has a normal duration of %s.
            clif_displaymessage(fd, temp);
        }
    }

    return 0;
}

//Added by Coltaro
//We're using this function here instead of using time_t so that it only counts player's jail time when he/she's online (and since the idea is to reduce the amount of minutes one by one in status_change_timer...).
//Well, using time_t could still work but for some reason that looks like more coding x_x
static void get_jail_time(int jailtime, int *year, int *month, int *day, int *hour, int *minute)
{
    const int factor_year = 518400; //12*30*24*60 = 518400
    const int factor_month = 43200; //30*24*60 = 43200
    const int factor_day = 1440; //24*60 = 1440
    const int factor_hour = 60;

    *year = jailtime/factor_year;
    jailtime -= *year*factor_year;
    *month = jailtime/factor_month;
    jailtime -= *month*factor_month;
    *day = jailtime/factor_day;
    jailtime -= *day*factor_day;
    *hour = jailtime/factor_hour;
    jailtime -= *hour*factor_hour;
    *minute = jailtime;

    *year = *year > 0? *year : 0;
    *month = *month > 0? *month : 0;
    *day = *day > 0? *day : 0;
    *hour = *hour > 0? *hour : 0;
    *minute = *minute > 0? *minute : 0;
    return;
}

/*==========================================
 * @jail <char_name> by [Yor]
 * Special warp! No check with nowarp and nowarpto flag
 *------------------------------------------*/
ACMD_FUNC(jail)
{
    struct map_session_data *pl_sd;
    int x, y;
    unsigned short m_index;
    nullpo_retr(-1, sd);

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1134)); // Please enter a player name (usage: @jail <char_name>).
        return -1;
    }

    if ((pl_sd = map_nick2sd(atcmd_player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) {
        // you can jail only lower or same GM
        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    if (pl_sd->sc.data[SC_JAILED]) {
        clif_displaymessage(fd, msg_txt(118)); // Player warped in jails.
        return -1;
    }

    switch (rnd() % 2) { //Jail Locations
        case 0:
            m_index = mapindex_name2id(MAP_JAIL);
            x = 24;
            y = 75;
            break;
        default:
            m_index = mapindex_name2id(MAP_JAIL);
            x = 49;
            y = 75;
            break;
    }

    //Duration of INT_MAX to specify infinity.
    sc_start4(&pl_sd->bl,SC_JAILED,100,INT_MAX,m_index,x,y,1000);
    clif_displaymessage(pl_sd->fd, msg_txt(117)); // GM has send you in jails.
    clif_displaymessage(fd, msg_txt(118)); // Player warped in jails.
    return 0;
}

/*==========================================
 * @unjail/@discharge <char_name> by [Yor]
 * Special warp! No check with nowarp and nowarpto flag
 *------------------------------------------*/
ACMD_FUNC(unjail)
{
    struct map_session_data *pl_sd;

    memset(atcmd_player_name, '\0', sizeof(atcmd_player_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1135)); // Please enter a player name (usage: @unjail/@discharge <char_name>).
        return -1;
    }

    if ((pl_sd = map_nick2sd(atcmd_player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) { // you can jail only lower or same GM

        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    if (!pl_sd->sc.data[SC_JAILED]) {
        clif_displaymessage(fd, msg_txt(119)); // This player is not in jails.
        return -1;
    }

    //Reset jail time to 1 sec.
    sc_start(&pl_sd->bl,SC_JAILED,100,1,1000);
    clif_displaymessage(pl_sd->fd, msg_txt(120)); // A GM has discharged you from jail.
    clif_displaymessage(fd, msg_txt(121)); // Player unjailed.
    return 0;
}

ACMD_FUNC(jailfor)
{
    struct map_session_data *pl_sd = NULL;
    int year, month, day, hour, minute, value;
    char *modif_p;
    int jailtime = 0,x,y;
    short m_index = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%s %23[^\n]",atcmd_output,atcmd_player_name) < 2) {
        clif_displaymessage(fd, msg_txt(400));  //Usage: @jailfor <time> <character name>
        return -1;
    }

    atcmd_output[sizeof(atcmd_output)-1] = '\0';

    modif_p = atcmd_output;
    year = month = day = hour = minute = 0;
    while (modif_p[0] != '\0') {
        value = atoi(modif_p);
        if (value == 0)
            modif_p++;
        else {
            if (modif_p[0] == '-' || modif_p[0] == '+')
                modif_p++;
            while (modif_p[0] >= '0' && modif_p[0] <= '9')
                modif_p++;
            if (modif_p[0] == 'n') {
                minute = value;
                modif_p++;
            } else if (modif_p[0] == 'm' && modif_p[1] == 'n') {
                minute = value;
                modif_p = modif_p + 2;
            } else if (modif_p[0] == 'h') {
                hour = value;
                modif_p++;
            } else if (modif_p[0] == 'd' || modif_p[0] == 'j') {
                day = value;
                modif_p++;
            } else if (modif_p[0] == 'm') {
                month = value;
                modif_p++;
            } else if (modif_p[0] == 'y' || modif_p[0] == 'a') {
                year = value;
                modif_p++;
            } else if (modif_p[0] != '\0') {
                modif_p++;
            }
        }
    }

    if (year == 0 && month == 0 && day == 0 && hour == 0 && minute == 0) {
        clif_displaymessage(fd, msg_txt(1136)); // Invalid time for jail command.
        return -1;
    }

    if ((pl_sd = map_nick2sd(atcmd_player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(pl_sd) > pc_get_group_level(sd)) {
        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    jailtime = year*12*30*24*60 + month*30*24*60 + day*24*60 + hour*60 + minute;    //In minutes

    if (jailtime==0) {
        clif_displaymessage(fd, msg_txt(1136)); // Invalid time for jail command.
        return -1;
    }

    //Added by Coltaro
    if (pl_sd->sc.data[SC_JAILED] &&
        pl_sd->sc.data[SC_JAILED]->val1 != INT_MAX) {
        //Update the player's jail time
        jailtime += pl_sd->sc.data[SC_JAILED]->val1;
        if (jailtime <= 0) {
            jailtime = 0;
            clif_displaymessage(pl_sd->fd, msg_txt(120)); // GM has discharge you.
            clif_displaymessage(fd, msg_txt(121)); // Player unjailed
        } else {
            get_jail_time(jailtime,&year,&month,&day,&hour,&minute);
            sprintf(atcmd_output,msg_txt(402),msg_txt(1137),year,month,day,hour,minute); //%s in jail for %d years, %d months, %d days, %d hours and %d minutes
            clif_displaymessage(pl_sd->fd, atcmd_output);
            sprintf(atcmd_output,msg_txt(402),msg_txt(1138),year,month,day,hour,minute); //This player is now in jail for %d years, %d months, %d days, %d hours and %d minutes
            clif_displaymessage(fd, atcmd_output);
        }
    } else if (jailtime < 0) {
        clif_displaymessage(fd, msg_txt(1136));
        return -1;
    }

    //Jail locations, add more as you wish.
    switch (rnd()%2) {
        case 1: //Jail #1
            m_index = mapindex_name2id(MAP_JAIL);
            x = 49;
            y = 75;
            break;
        default: //Default Jail
            m_index = mapindex_name2id(MAP_JAIL);
            x = 24;
            y = 75;
            break;
    }

    sc_start4(&pl_sd->bl,SC_JAILED,100,jailtime,m_index,x,y,jailtime?60000:1000); //jailtime = 0: Time was reset to 0. Wait 1 second to warp player out (since it's done in status_change_timer).
    return 0;
}


//By Coltaro
ACMD_FUNC(jailtime)
{
    int year, month, day, hour, minute;

    nullpo_retr(-1, sd);

    if (!sd->sc.data[SC_JAILED]) {
        clif_displaymessage(fd, msg_txt(1139)); // You are not in jail.
        return -1;
    }

    if (sd->sc.data[SC_JAILED]->val1 == INT_MAX) {
        clif_displaymessage(fd, msg_txt(1140)); // You have been jailed indefinitely.
        return 0;
    }

    if (sd->sc.data[SC_JAILED]->val1 <= 0) { // Was not jailed with @jailfor (maybe @jail? or warped there? or got recalled?)
        clif_displaymessage(fd, msg_txt(1141)); // You have been jailed for an unknown amount of time.
        return -1;
    }

    //Get remaining jail time
    get_jail_time(sd->sc.data[SC_JAILED]->val1,&year,&month,&day,&hour,&minute);
    sprintf(atcmd_output,msg_txt(402),msg_txt(1142),year,month,day,hour,minute); // You will remain in jail for %d years, %d months, %d days, %d hours and %d minutes

    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 * @disguise <mob_id> by [Valaris] (simplified by [Yor])
 *------------------------------------------*/
ACMD_FUNC(disguise)
{
    int id = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1143)); // Please enter a Monster/NPC name/ID (usage: @disguise <name/ID>).
        return -1;
    }

    if ((id = atoi(message)) > 0) {
        //Acquired an ID
        if (!mobdb_checkid(id) && !npcdb_checkid(id))
            id = 0; //Invalid id for either mobs or npcs.
    }   else    { //Acquired a Name
        if ((id = mobdb_searchname(message)) == 0) {
            struct npc_data *nd = npc_name2id(message);
            if (nd != NULL)
                id = nd->class_;
        }
    }

    if (id == 0) {
        clif_displaymessage(fd, msg_txt(123));  // Invalid Monster/NPC name/ID specified.
        return -1;
    }

    if (pc_isriding(sd)) {
        clif_displaymessage(fd, msg_txt(1144)); // Character cannot be disguised while mounted.
        return -1;
    }

    pc_disguise(sd, id);
    clif_displaymessage(fd, msg_txt(122)); // Disguise applied.

    return 0;
}

/*==========================================
 * DisguiseAll
 *------------------------------------------*/
ACMD_FUNC(disguiseall)
{
    int mob_id=0;
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1145)); // Please enter a Monster/NPC name/ID (usage: @disguiseall <name/ID>).
        return -1;
    }

    if ((mob_id = mobdb_searchname(message)) == 0) // check name first (to avoid possible name begining by a number)
        mob_id = atoi(message);

    if (!mobdb_checkid(mob_id) && !npcdb_checkid(mob_id)) { //if mob or npc...
        clif_displaymessage(fd, msg_txt(123)); // Monster/NPC name/id not found.
        return -1;
    }

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter))
        pc_disguise(pl_sd, mob_id);
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(122)); // Disguise applied.
    return 0;
}

/*==========================================
 * DisguiseGuild
 *------------------------------------------*/
ACMD_FUNC(disguiseguild)
{
    int id = 0, i;
    char monster[NAME_LENGTH], guild[NAME_LENGTH];
    struct map_session_data *pl_sd;
    struct guild *g;

    memset(monster, '\0', sizeof(monster));
    memset(guild, '\0', sizeof(guild));

    if (!message || !*message || sscanf(message, "%23[^,], %23[^\r\n]", monster, guild) < 2) {
        clif_displaymessage(fd, msg_txt(1146)); // Please enter a mob name/ID and guild name/ID (usage: @disguiseguild <mob name/ID>, <guild name/ID>).
        return -1;
    }

    if ((id = atoi(monster)) > 0) {
        if (!mobdb_checkid(id) && !npcdb_checkid(id))
            id = 0;
    } else {
        if ((id = mobdb_searchname(monster)) == 0) {
            struct npc_data *nd = npc_name2id(monster);
            if (nd != NULL)
                id = nd->class_;
        }
    }

    if (id == 0) {
        clif_displaymessage(fd, msg_txt(123));  // Monster/NPC name/id hasn't been found.
        return -1;
    }

    if ((g = guild_searchname(guild)) == NULL && (g = guild_search(atoi(guild))) == NULL) {
        clif_displaymessage(fd, msg_txt(94)); // Incorrect name/ID, or no one from the guild is online.
        return -1;
    }

    for (i = 0; i < g->max_member; i++)
        if ((pl_sd = g->member[i].sd) && !pc_isriding(pl_sd))
            pc_disguise(pl_sd, id);

    clif_displaymessage(fd, msg_txt(122)); // Disguise applied.
    return 0;
}


/*==========================================
 * @undisguise by [Yor]
 *------------------------------------------*/
ACMD_FUNC(undisguise)
{
    nullpo_retr(-1, sd);
    if (sd->disguise) {
        pc_disguise(sd, 0);
        clif_displaymessage(fd, msg_txt(124)); // Undisguise applied.
    } else {
        clif_displaymessage(fd, msg_txt(125)); // You're not disguised.
        return -1;
    }

    return 0;
}

/*==========================================
 * UndisguiseAll
 *------------------------------------------*/
ACMD_FUNC(undisguiseall)
{
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;
    nullpo_retr(-1, sd);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter))
        if (pl_sd->disguise)
            pc_disguise(pl_sd, 0);
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(124)); // Undisguise applied.

    return 0;
}

/*==========================================
 * UndisguiseGuild
 *------------------------------------------*/
ACMD_FUNC(undisguiseguild)
{
    char guild_name[NAME_LENGTH];
    struct map_session_data *pl_sd;
    struct guild *g;
    int i;
    nullpo_retr(-1, sd);

    memset(guild_name, '\0', sizeof(guild_name));

    if (!message || !*message || sscanf(message, "%23[^\n]", guild_name) < 1) {
        clif_displaymessage(fd, msg_txt(1147)); // Please enter guild name/ID (usage: @undisguiseguild <guild name/ID>).
        return -1;
    }

    if ((g = guild_searchname(guild_name)) == NULL && (g = guild_search(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(94)); // Incorrect name/ID, or no one from the guild is online.
        return -1;
    }

    for (i = 0; i < g->max_member; i++)
        if ((pl_sd = g->member[i].sd) && pl_sd->disguise)
            pc_disguise(pl_sd, 0);

    clif_displaymessage(fd, msg_txt(124)); // Undisguise applied.

    return 0;
}

/*==========================================
 * @exp by [Skotlex]
 *------------------------------------------*/
ACMD_FUNC(exp)
{
    char output[CHAT_SIZE_MAX];
    double nextb, nextj;
    nullpo_retr(-1, sd);
    memset(output, '\0', sizeof(output));

    nextb = pc_nextbaseexp(sd);
    if (nextb)
        nextb = sd->status.base_exp*100.0/nextb;

    nextj = pc_nextjobexp(sd);
    if (nextj)
        nextj = sd->status.job_exp*100.0/nextj;

    sprintf(output, msg_txt(1148), sd->status.base_level, nextb, sd->status.job_level, nextj); // Base Level: %d (%.3f%%) | Job Level: %d (%.3f%%)
    clif_displaymessage(fd, output);
    return 0;
}


/*==========================================
 * @broadcast by [Valaris]
 *------------------------------------------*/
ACMD_FUNC(broadcast)
{
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1149)); // Please enter a message (usage: @broadcast <message>).
        return -1;
    }

    sprintf(atcmd_output, "%s: %s", sd->status.name, message);
    intif_broadcast(atcmd_output, strlen(atcmd_output) + 1, 0);

    return 0;
}

/*==========================================
 * @localbroadcast by [Valaris]
 *------------------------------------------*/
ACMD_FUNC(localbroadcast)
{
    nullpo_retr(-1, sd);

    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1150)); // Please enter a message (usage: @localbroadcast <message>).
        return -1;
    }

    sprintf(atcmd_output, "%s: %s", sd->status.name, message);

    clif_broadcast(&sd->bl, atcmd_output, strlen(atcmd_output) + 1, 0, ALL_SAMEMAP);

    return 0;
}

/*==========================================
 * @email <actual@email> <new@email> by [Yor]
 *------------------------------------------*/
ACMD_FUNC(email)
{
    char actual_email[100];
    char new_email[100];
    nullpo_retr(-1, sd);

    memset(actual_email, '\0', sizeof(actual_email));
    memset(new_email, '\0', sizeof(new_email));

    if (!message || !*message || sscanf(message, "%99s %99s", actual_email, new_email) < 2) {
        clif_displaymessage(fd, msg_txt(1151)); // Please enter 2 emails (usage: @email <actual@email> <new@email>).
        return -1;
    }

    if (e_mail_check(actual_email) == 0) {
        clif_displaymessage(fd, msg_txt(144)); // Invalid actual email. If you have default e-mail, give a@a.com.
        return -1;
    } else if (e_mail_check(new_email) == 0) {
        clif_displaymessage(fd, msg_txt(145)); // Invalid new email. Please enter a real e-mail.
        return -1;
    } else if (strcmpi(new_email, "a@a.com") == 0) {
        clif_displaymessage(fd, msg_txt(146)); // New email must be a real e-mail.
        return -1;
    } else if (strcmpi(actual_email, new_email) == 0) {
        clif_displaymessage(fd, msg_txt(147)); // New email must be different of the actual e-mail.
        return -1;
    }

    chrif_changeemail(sd->status.account_id, actual_email, new_email);
    clif_displaymessage(fd, msg_txt(148)); // Information sended to login-server via char-server.
    return 0;
}

/*==========================================
 *@effect
 *------------------------------------------*/
ACMD_FUNC(effect)
{
    int type = 0, flag = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d", &type) < 1) {
        clif_displaymessage(fd, msg_txt(1152)); // Please enter an effect number (usage: @effect <effect number>).
        return -1;
    }

    clif_specialeffect(&sd->bl, type, (send_target)flag);
    clif_displaymessage(fd, msg_txt(229)); // Your effect has changed.
    return 0;
}

/*==========================================
 * @killer by MouseJstr
 * enable killing players even when not in pvp
 *------------------------------------------*/
ACMD_FUNC(killer)
{
    nullpo_retr(-1, sd);
    sd->state.killer = !sd->state.killer;

    if (sd->state.killer)
        clif_displaymessage(fd, msg_txt(241));
    else {
        clif_displaymessage(fd, msg_txt(292));
        pc_stop_attack(sd);
    }
    return 0;
}

/*==========================================
 * @killable by MouseJstr
 * enable other people killing you
 *------------------------------------------*/
ACMD_FUNC(killable)
{
    nullpo_retr(-1, sd);
    sd->state.killable = !sd->state.killable;

    if (sd->state.killable)
        clif_displaymessage(fd, msg_txt(242));
    else {
        clif_displaymessage(fd, msg_txt(288));
        map_foreachinrange(atcommand_stopattack,&sd->bl, AREA_SIZE, BL_CHAR, sd->bl.id);
    }
    return 0;
}

/*==========================================
 * @skillon by MouseJstr
 * turn skills on for the map
 *------------------------------------------*/
ACMD_FUNC(skillon)
{
    nullpo_retr(-1, sd);
    map[sd->bl.m].flag.noskill = 0;
    clif_displaymessage(fd, msg_txt(244));
    return 0;
}

/*==========================================
 * @skilloff by MouseJstr
 * Turn skills off on the map
 *------------------------------------------*/
ACMD_FUNC(skilloff)
{
    nullpo_retr(-1, sd);
    map[sd->bl.m].flag.noskill = 1;
    clif_displaymessage(fd, msg_txt(243));
    return 0;
}

/*==========================================
 * @npcmove by MouseJstr
 * move a npc
 *------------------------------------------*/
ACMD_FUNC(npcmove)
{
    int x = 0, y = 0, m;
    struct npc_data *nd = 0;
    nullpo_retr(-1, sd);
    memset(atcmd_player_name, '\0', sizeof atcmd_player_name);

    if (!message || !*message || sscanf(message, "%d %d %23[^\n]", &x, &y, atcmd_player_name) < 3) {
        clif_displaymessage(fd, msg_txt(1153)); // Usage: @npcmove <X> <Y> <npc_name>
        return -1;
    }

    if ((nd = npc_name2id(atcmd_player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist.
        return -1;
    }

    if ((m=nd->bl.m) < 0 || nd->bl.prev == NULL) {
        clif_displaymessage(fd, msg_txt(1154)); // NPC is not on this map.
        return -1;  //Not on a map.
    }

    x = cap_value(x, 0, map[m].xs-1);
    y = cap_value(y, 0, map[m].ys-1);
    map_foreachinrange(clif_outsight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl);
    map_moveblock(&nd->bl, x, y, gettick());
    map_foreachinrange(clif_insight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl);
    clif_displaymessage(fd, msg_txt(1155)); // NPC moved.

    return 0;
}

/*==========================================
 * @addwarp by MouseJstr
 * Create a new static warp point.
 *------------------------------------------*/
ACMD_FUNC(addwarp)
{
    char mapname[32], warpname[NAME_LENGTH+1];
    int x,y;
    unsigned short m;
    struct npc_data *nd;

    nullpo_retr(-1, sd);
    memset(warpname, '\0', sizeof(warpname));

    if (!message || !*message || sscanf(message, "%31s %d %d %23[^\n]", mapname, &x, &y, warpname) < 4) {
        clif_displaymessage(fd, msg_txt(1156)); // Usage: @addwarp <mapname> <X> <Y> <npc name>
        return -1;
    }

    m = mapindex_name2id(mapname);
    if (m == 0) {
        sprintf(atcmd_output, msg_txt(1157), mapname); // Unknown map '%s'.
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    nd = npc_add_warp(warpname, sd->bl.m, sd->bl.x, sd->bl.y, 2, 2, m, x, y);
    if (nd == NULL)
        return -1;

    sprintf(atcmd_output, msg_txt(1158), nd->exname); // New warp NPC '%s' created.
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

/*==========================================
 * @follow by [MouseJstr]
 * Follow a player .. staying no more then 5 spaces away
 *------------------------------------------*/
ACMD_FUNC(follow)
{
    struct map_session_data *pl_sd = NULL;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        if (sd->followtarget == -1)
            return -1;

        pc_stop_following(sd);
        clif_displaymessage(fd, msg_txt(1159)); // Follow mode OFF.
        return 0;
    }

    if ((pl_sd = map_nick2sd((char *)message)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (sd->followtarget == pl_sd->bl.id) {
        pc_stop_following(sd);
        clif_displaymessage(fd, msg_txt(1159)); // Follow mode OFF.
    } else {
        pc_follow(sd, pl_sd->bl.id);
        clif_displaymessage(fd, msg_txt(1160)); // Follow mode ON.
    }

    return 0;
}


/*==========================================
 * @dropall by [MouseJstr]
 * Drop all your possession on the ground
 *------------------------------------------*/
ACMD_FUNC(dropall)
{
    int i;
    nullpo_retr(-1, sd);
    for (i = 0; i < MAX_INVENTORY; i++) {
        if (sd->status.inventory[i].amount) {
            if (sd->status.inventory[i].equip != 0)
                pc_unequipitem(sd, i, 3);
            pc_dropitem(sd,  i, sd->status.inventory[i].amount);
        }
    }
    return 0;
}

/*==========================================
 * @storeall by [MouseJstr]
 * Put everything into storage
 *------------------------------------------*/
ACMD_FUNC(storeall)
{
    int i;
    nullpo_retr(-1, sd);

    if (sd->state.storage_flag != 1) {
        //Open storage.
        if (storage_storageopen(sd) == 1) {
            clif_displaymessage(fd, msg_txt(1161)); // You currently cannot open your storage.
            return -1;
        }
    }

    for (i = 0; i < MAX_INVENTORY; i++) {
        if (sd->status.inventory[i].amount) {
            if (sd->status.inventory[i].equip != 0)
                pc_unequipitem(sd, i, 3);
            storage_storageadd(sd,  i, sd->status.inventory[i].amount);
        }
    }
    storage_storageclose(sd);

    clif_displaymessage(fd, msg_txt(1162)); // All items stored.
    return 0;
}

/*==========================================
 * @skillid by [MouseJstr]
 * lookup a skill by name
 *------------------------------------------*/
ACMD_FUNC(skillid)
{
    int skillen, idx;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1163)); // Please enter a skill name to look up (usage: @skillid <skill name>).
        return -1;
    }

    skillen = strlen(message);

    for (idx = 0; idx < MAX_SKILL_DB; idx++) {
        if (strnicmp(skill_db[idx].name, message, skillen) == 0 || strnicmp(skill_db[idx].desc, message, skillen) == 0) {
            sprintf(atcmd_output, msg_txt(1164), idx, skill_db[idx].desc); // skill %d: %s
            clif_displaymessage(fd, atcmd_output);
        }
    }

    return 0;
}

/*==========================================
 * @useskill by [MouseJstr]
 * A way of using skills without having to find them in the skills menu
 *------------------------------------------*/
ACMD_FUNC(useskill)
{
    struct map_session_data *pl_sd = NULL;
    struct block_list *bl;
    int skillnum;
    int skilllv;
    char target[100];
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %d %23[^\n]", &skillnum, &skilllv, target) != 3) {
        clif_displaymessage(fd, msg_txt(1165)); // Usage: @useskill <skill ID> <skill level> <target>
        return -1;
    }

    if ((pl_sd = map_nick2sd(target)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) {
        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    if (skillnum >= HM_SKILLBASE && skillnum < HM_SKILLBASE+MAX_HOMUNSKILL
        && sd->hd && merc_is_hom_active(sd->hd)) // (If used with @useskill, put the homunc as dest)
        bl = &sd->hd->bl;
    else
        bl = &sd->bl;

    if (skill_get_inf(skillnum)&INF_GROUND_SKILL)
        unit_skilluse_pos(bl, pl_sd->bl.x, pl_sd->bl.y, skillnum, skilllv);
    else
        unit_skilluse_id(bl, pl_sd->bl.id, skillnum, skilllv);

    return 0;
}

/*==========================================
 * @displayskill by [Skotlex]
 *  Debug command to locate new skill IDs. It sends the
 *  three possible skill-effect packets to the area.
 *------------------------------------------*/
ACMD_FUNC(displayskill)
{
    struct status_data *status;
    unsigned int tick;
    int skillnum;
    int skilllv = 1;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %d", &skillnum, &skilllv) < 1) {
        clif_displaymessage(fd, msg_txt(1166)); // Usage: @displayskill <skill ID> {<skill level>}
        return -1;
    }
    status = status_get_status_data(&sd->bl);
    tick = gettick();
    clif_skill_damage(&sd->bl,&sd->bl, tick, status->amotion, status->dmotion, 1, 1, skillnum, skilllv, 5);
    clif_skill_nodamage(&sd->bl, &sd->bl, skillnum, skilllv, 1);
    clif_skill_poseffect(&sd->bl, skillnum, skilllv, sd->bl.x, sd->bl.y, tick);
    return 0;
}

/*==========================================
 * @skilltree by [MouseJstr]
 * prints the skill tree for a player required to get to a skill
 *------------------------------------------*/
ACMD_FUNC(skilltree)
{
    struct map_session_data *pl_sd = NULL;
    int skillnum;
    int meets, j, c=0;
    char target[NAME_LENGTH];
    struct skill_tree_entry *ent;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %23[^\r\n]", &skillnum, target) != 2) {
        clif_displaymessage(fd, msg_txt(1167)); // Usage: @skilltree <skill ID> <target>
        return -1;
    }

    if ((pl_sd = map_nick2sd(target)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    c = pc_calc_skilltree_normalize_job(pl_sd);
    c = pc_mapid2jobid(c, pl_sd->status.sex);

    sprintf(atcmd_output, msg_txt(1168), job_name(c), pc_checkskill(pl_sd, NV_BASIC)); // Player is using %s skill tree (%d basic points).
    clif_displaymessage(fd, atcmd_output);

    ARR_FIND(0, MAX_SKILL_TREE, j, skill_tree[c][j].id == 0 || skill_tree[c][j].id == skillnum);
    if (j == MAX_SKILL_TREE || skill_tree[c][j].id == 0) {
        clif_displaymessage(fd, msg_txt(1169)); // The player cannot use that skill.
        return 0;
    }

    ent = &skill_tree[c][j];

    meets = 1;
    for (j=0; j<MAX_PC_SKILL_REQUIRE; j++) {
        if (ent->need[j].id && pc_checkskill(sd,ent->need[j].id) < ent->need[j].lv) {
            sprintf(atcmd_output, msg_txt(1170), ent->need[j].lv, skill_db[ent->need[j].id].desc); // Player requires level %d of skill %s.
            clif_displaymessage(fd, atcmd_output);
            meets = 0;
        }
    }
    if (meets == 1) {
        clif_displaymessage(fd, msg_txt(1171)); // The player meets all the requirements for that skill.
    }

    return 0;
}

// Hand a ring with partners name on it to this char
void getring(struct map_session_data *sd)
{
    int flag, item_id;
    struct item item_tmp;
    item_id = (sd->status.sex) ? WEDDING_RING_M : WEDDING_RING_F;

    memset(&item_tmp, 0, sizeof(item_tmp));
    item_tmp.nameid = item_id;
    item_tmp.identify = 1;
    item_tmp.card[0] = 255;
    item_tmp.card[2] = sd->status.partner_id;
    item_tmp.card[3] = sd->status.partner_id >> 16;

    if ((flag = pc_additem(sd,&item_tmp,1,LOG_TYPE_COMMAND))) {
        clif_additem(sd,0,0,flag);
        map_addflooritem(&item_tmp,1,sd->bl.m,sd->bl.x,sd->bl.y,0,0,0,0);
    }
}

/*==========================================
 * @marry by [MouseJstr], fixed by Lupus
 * Marry two players
 *------------------------------------------*/
ACMD_FUNC(marry)
{
    struct map_session_data *pl_sd = NULL;
    char player_name[NAME_LENGTH] = "";

    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%23s", player_name) != 1) {
        clif_displaymessage(fd, msg_txt(1172)); // Usage: @marry <char name>
        return -1;
    }

    if ((pl_sd = map_nick2sd(player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(3));
        return -1;
    }

    if (pc_marriage(sd, pl_sd) == 0) {
        clif_displaymessage(fd, msg_txt(1173)); // They are married... wish them well.
        clif_wedding_effect(&pl_sd->bl); //wedding effect and music [Lupus]
        getring(sd); // Auto-give named rings (Aru)
        getring(pl_sd);
        return 0;
    }

    clif_displaymessage(fd, msg_txt(1174)); // The two cannot wed because one is either a baby or already married.
    return -1;
}

/*==========================================
 * @divorce by [MouseJstr], fixed by [Lupus]
 * divorce two players
 *------------------------------------------*/
ACMD_FUNC(divorce)
{
    nullpo_retr(-1, sd);

    if (pc_divorce(sd) != 0) {
        sprintf(atcmd_output, msg_txt(1175), sd->status.name); // '%s' is not married.
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    sprintf(atcmd_output, msg_txt(1176), sd->status.name); // '%s' and his/her partner are now divorced.
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

/*==========================================
 * @changelook by [Celest]
 *------------------------------------------*/
ACMD_FUNC(changelook)
{
    int i, j = 0, k = 0;
    int pos[7] = { LOOK_HEAD_TOP,LOOK_HEAD_MID,LOOK_HEAD_BOTTOM,LOOK_WEAPON,LOOK_SHIELD,LOOK_SHOES,LOOK_ROBE };

    if ((i = sscanf(message, "%d %d", &j, &k)) < 1) {
        clif_displaymessage(fd, msg_txt(1177)); // Usage: @changelook {<position>} <view id>
        clif_displaymessage(fd, msg_txt(1178)); // Position: 1-Top 2-Middle 3-Bottom 4-Weapon 5-Shield 6-Shoes 7-Robe
        return -1;
    } else if (i == 2) {
        if (j < 1 || j > 7)
            j = 1;
        j = pos[j - 1];
    } else if (i == 1) {     // position not defined, use HEAD_TOP as default
        k = j;  // swap
        j = LOOK_HEAD_TOP;
    }

    clif_changelook(&sd->bl,j,k);

    return 0;
}

/*==========================================
 * @autotrade by durf [Lupus] [Paradox924X]
 * Turns on/off Autotrade for a specific player
 *------------------------------------------*/
ACMD_FUNC(autotrade)
{
    nullpo_retr(-1, sd);

    if (map[sd->bl.m].flag.autotrade != battle_config.autotrade_mapflag) {
        clif_displaymessage(fd, msg_txt(1179)); // Autotrade is not allowed on this map.
        return -1;
    }

    if (pc_isdead(sd)) {
        clif_displaymessage(fd, msg_txt(1180)); // You cannot autotrade when dead.
        return -1;
    }

    if (!sd->state.vending && !sd->state.buyingstore) {  //check if player is vending or buying
        clif_displaymessage(fd, msg_txt(549)); // "You should have a shop open to use @autotrade."
        return -1;
    }

    sd->state.autotrade = 1;
    if (battle_config.at_timeout) {
        int timeout = atoi(message);
        status_change_start(&sd->bl, SC_AUTOTRADE, 10000, 0, 0, 0, 0, ((timeout > 0) ? min(timeout,battle_config.at_timeout) : battle_config.at_timeout) * 60000, 0);
    }
    clif_authfail_fd(fd, 15);

    return 0;
}

/*==========================================
 * @changegm by durf (changed by Lupus)
 * Changes Master of your Guild to a specified guild member
 *------------------------------------------*/
ACMD_FUNC(changegm)
{
    struct guild *g;
    struct map_session_data *pl_sd;
    nullpo_retr(-1, sd);

    if (sd->status.guild_id == 0 || (g = guild_search(sd->status.guild_id)) == NULL || strcmp(g->master,sd->status.name)) {
        clif_displaymessage(fd, msg_txt(1181)); // You need to be a Guild Master to use this command.
        return -1;
    }

    if (map[sd->bl.m].flag.guildlock || map[sd->bl.m].flag.gvg_castle) {
        clif_displaymessage(fd, msg_txt(1182)); // You cannot change guild leaders on this map.
        return -1;
    }

    if (!message[0]) {
        clif_displaymessage(fd, msg_txt(1183)); // Usage: @changegm <guild_member_name>
        return -1;
    }

    if ((pl_sd=map_nick2sd((char *) message)) == NULL || pl_sd->status.guild_id != sd->status.guild_id) {
        clif_displaymessage(fd, msg_txt(1184)); // Target character must be online and be a guild member.
        return -1;
    }

    guild_gm_change(sd->status.guild_id, pl_sd);
    return 0;
}

/*==========================================
 * @changeleader by Skotlex
 * Changes the leader of a party.
 *------------------------------------------*/
ACMD_FUNC(changeleader)
{
    nullpo_retr(-1, sd);

    if (!message[0]) {
        clif_displaymessage(fd, msg_txt(1185)); // Usage: @changeleader <party_member_name>
        return -1;
    }

    if (party_changeleader(sd, map_nick2sd((char *) message)))
        return 0;
    return -1;
}

/*==========================================
 * @partyoption by Skotlex
 * Used to change the item share setting of a party.
 *------------------------------------------*/
ACMD_FUNC(partyoption)
{
    struct party_data *p;
    int mi, option;
    char w1[16], w2[16];
    nullpo_retr(-1, sd);

    if (sd->status.party_id == 0 || (p = party_search(sd->status.party_id)) == NULL) {
        clif_displaymessage(fd, msg_txt(282));
        return -1;
    }

    ARR_FIND(0, MAX_PARTY, mi, p->data[mi].sd == sd);
    if (mi == MAX_PARTY)
        return -1; //Shouldn't happen

    if (!p->party.member[mi].leader) {
        clif_displaymessage(fd, msg_txt(282));
        return -1;
    }

    if (!message || !*message || sscanf(message, "%15s %15s", w1, w2) < 2) {
        clif_displaymessage(fd, msg_txt(1186)); // Usage: @partyoption <pickup share: yes/no> <item distribution: yes/no>
        return -1;
    }

    option = (config_switch(w1)?1:0)|(config_switch(w2)?2:0);

    //Change item share type.
    if (option != p->party.item)
        party_changeoption(sd, p->party.exp, option);
    else
        clif_displaymessage(fd, msg_txt(286));

    return 0;
}

/*==========================================
 * @autoloot by Upa-Kun
 * Turns on/off AutoLoot for a specific player
 *------------------------------------------*/
ACMD_FUNC(autoloot)
{
    int rate;
    double drate;
    nullpo_retr(-1, sd);
    // autoloot command without value
    if (!message || !*message) {
        if (sd->state.autoloot)
            rate = 0;
        else
            rate = 10000;
    } else {
        drate = atof(message);
        rate = (int)(drate*100);
    }
    if (rate < 0) rate = 0;
    if (rate > 10000) rate = 10000;

    sd->state.autoloot = rate;
    if (sd->state.autoloot) {
        snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1187),((double)sd->state.autoloot)/100.); // Autolooting items with drop rates of %0.02f%% and below.
        clif_displaymessage(fd, atcmd_output);
    } else
        clif_displaymessage(fd, msg_txt(1188)); // Autoloot is now off.

    return 0;
}

/*==========================================
 * @alootid
 *------------------------------------------*/
ACMD_FUNC(autolootitem)
{
    struct item_data *item_data = NULL;
    int i;
    int action = 3; // 1=add, 2=remove, 3=help+list (default), 4=reset

    if (message && *message) {
        if (message[0] == '+') {
            message++;
            action = 1;
        } else if (message[0] == '-') {
            message++;
            action = 2;
        } else if (!strcmp(message,"reset"))
            action = 4;
    }

    if (action < 3) { // add or remove
        if ((item_data = itemdb_exists(atoi(message))) == NULL)
            item_data = itemdb_searchname(message);
        if (!item_data) {
            // No items founds in the DB with Id or Name
            clif_displaymessage(fd, msg_txt(1189)); // Item not found.
            return -1;
        }
    }

    switch (action) {
        case 1:
            ARR_FIND(0, AUTOLOOTITEM_SIZE, i, sd->state.autolootid[i] == item_data->nameid);
            if (i != AUTOLOOTITEM_SIZE) {
                clif_displaymessage(fd, msg_txt(1190)); // You're already autolooting this item.
                return -1;
            }
            ARR_FIND(0, AUTOLOOTITEM_SIZE, i, sd->state.autolootid[i] == 0);
            if (i == AUTOLOOTITEM_SIZE) {
                clif_displaymessage(fd, msg_txt(1191)); // Your autolootitem list is full. Remove some items first with @autolootid -<item name or ID>.
                return -1;
            }
            sd->state.autolootid[i] = item_data->nameid; // Autoloot Activated
            sprintf(atcmd_output, msg_txt(1192), item_data->name, item_data->jname, item_data->nameid); // Autolooting item: '%s'/'%s' {%d}
            clif_displaymessage(fd, atcmd_output);
            sd->state.autolooting = 1;
            break;
        case 2:
            ARR_FIND(0, AUTOLOOTITEM_SIZE, i, sd->state.autolootid[i] == item_data->nameid);
            if (i == AUTOLOOTITEM_SIZE) {
                clif_displaymessage(fd, msg_txt(1193)); // You're currently not autolooting this item.
                return -1;
            }
            sd->state.autolootid[i] = 0;
            sprintf(atcmd_output, msg_txt(1194), item_data->name, item_data->jname, item_data->nameid); // Removed item: '%s'/'%s' {%d} from your autolootitem list.
            clif_displaymessage(fd, atcmd_output);
            ARR_FIND(0, AUTOLOOTITEM_SIZE, i, sd->state.autolootid[i] != 0);
            if (i == AUTOLOOTITEM_SIZE) {
                sd->state.autolooting = 0;
            }
            break;
        case 3:
            sprintf(atcmd_output, msg_txt(1195), AUTOLOOTITEM_SIZE); // You can have %d items on your autolootitem list.
            clif_displaymessage(fd, atcmd_output);
            clif_displaymessage(fd, msg_txt(1196)); // To add an item to the list, use "@alootid +<item name or ID>". To remove an item, use "@alootid -<item name or ID>".
            clif_displaymessage(fd, msg_txt(1197)); // "@alootid reset" will clear your autolootitem list.
            ARR_FIND(0, AUTOLOOTITEM_SIZE, i, sd->state.autolootid[i] != 0);
            if (i == AUTOLOOTITEM_SIZE) {
                clif_displaymessage(fd, msg_txt(1198)); // Your autolootitem list is empty.
            } else {
                clif_displaymessage(fd, msg_txt(1199)); // Items on your autolootitem list:
                for (i = 0; i < AUTOLOOTITEM_SIZE; i++) {
                    if (sd->state.autolootid[i] == 0)
                        continue;
                    if (!(item_data = itemdb_exists(sd->state.autolootid[i]))) {
                        ShowDebug("Non-existant item %d on autolootitem list (account_id: %d, char_id: %d)", sd->state.autolootid[i], sd->status.account_id, sd->status.char_id);
                        continue;
                    }
                    sprintf(atcmd_output, "'%s'/'%s' {%d}", item_data->name, item_data->jname, item_data->nameid);
                    clif_displaymessage(fd, atcmd_output);
                }
            }
            break;
        case 4:
            memset(sd->state.autolootid, 0, sizeof(sd->state.autolootid));
            clif_displaymessage(fd, msg_txt(1200)); // Your autolootitem list has been reset.
            sd->state.autolooting = 0;
            break;
    }
    return 0;
}
/**
 * No longer available, keeping here just in case it's back someday. [Ind]
 **/
/*==========================================
 * It is made to rain.
 *------------------------------------------*/
//ACMD_FUNC(rain)
//{
//  nullpo_retr(-1, sd);
//  if (map[sd->bl.m].flag.rain) {
//      map[sd->bl.m].flag.rain=0;
//      clif_weather(sd->bl.m);
//      clif_displaymessage(fd, msg_txt(1201)); // The rain has stopped.
//  } else {
//      map[sd->bl.m].flag.rain=1;
//      clif_weather(sd->bl.m);
//      clif_displaymessage(fd, msg_txt(1202)); // It has started to rain.
//  }
//  return 0;
//}

/*==========================================
 * It is made to snow.
 *------------------------------------------*/
ACMD_FUNC(snow)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.snow) {
        map[sd->bl.m].flag.snow=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1203)); // Snow has stopped falling.
    } else {
        map[sd->bl.m].flag.snow=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1204)); // It has started to snow.
    }

    return 0;
}

/*==========================================
 * Cherry tree snowstorm is made to fall. (Sakura)
 *------------------------------------------*/
ACMD_FUNC(sakura)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.sakura) {
        map[sd->bl.m].flag.sakura=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1205)); // Cherry tree leaves no longer fall.
    } else {
        map[sd->bl.m].flag.sakura=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1206)); // Cherry tree leaves have begun to fall.
    }
    return 0;
}

/*==========================================
 * Clouds appear.
 *------------------------------------------*/
ACMD_FUNC(clouds)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.clouds) {
        map[sd->bl.m].flag.clouds=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1207)); // The clouds has disappear.
    } else {
        map[sd->bl.m].flag.clouds=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1208)); // Clouds appear.
    }

    return 0;
}

/*==========================================
 * Different type of clouds using effect 516
 *------------------------------------------*/
ACMD_FUNC(clouds2)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.clouds2) {
        map[sd->bl.m].flag.clouds2=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1209)); // The alternative clouds disappear.
    } else {
        map[sd->bl.m].flag.clouds2=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1210)); // Alternative clouds appear.
    }

    return 0;
}

/*==========================================
 * Fog hangs over.
 *------------------------------------------*/
ACMD_FUNC(fog)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.fog) {
        map[sd->bl.m].flag.fog=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1211)); // The fog has gone.
    } else {
        map[sd->bl.m].flag.fog=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1212)); // Fog hangs over.
    }
    return 0;
}

/*==========================================
 * Fallen leaves fall.
 *------------------------------------------*/
ACMD_FUNC(leaves)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.leaves) {
        map[sd->bl.m].flag.leaves=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1213)); // Leaves no longer fall.
    } else {
        map[sd->bl.m].flag.leaves=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1214)); // Fallen leaves fall.
    }

    return 0;
}

/*==========================================
 * Fireworks appear.
 *------------------------------------------*/
ACMD_FUNC(fireworks)
{
    nullpo_retr(-1, sd);
    if (map[sd->bl.m].flag.fireworks) {
        map[sd->bl.m].flag.fireworks=0;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1215)); // Fireworks have ended.
    } else {
        map[sd->bl.m].flag.fireworks=1;
        clif_weather(sd->bl.m);
        clif_displaymessage(fd, msg_txt(1216)); // Fireworks have launched.
    }

    return 0;
}

/*==========================================
 * Clearing Weather Effects by Dexity
 *------------------------------------------*/
ACMD_FUNC(clearweather)
{
    nullpo_retr(-1, sd);
    /**
     * No longer available, keeping here just in case it's back someday. [Ind]
     **/
    //map[sd->bl.m].flag.rain=0;
    map[sd->bl.m].flag.snow=0;
    map[sd->bl.m].flag.sakura=0;
    map[sd->bl.m].flag.clouds=0;
    map[sd->bl.m].flag.clouds2=0;
    map[sd->bl.m].flag.fog=0;
    map[sd->bl.m].flag.fireworks=0;
    map[sd->bl.m].flag.leaves=0;
    clif_weather(sd->bl.m);
    clif_displaymessage(fd, msg_txt(291));

    return 0;
}

/*===============================================================
 * Sound Command - plays a sound for everyone around! [Codemaster]
 *---------------------------------------------------------------*/
ACMD_FUNC(sound)
{
    char sound_file[100];

    memset(sound_file, '\0', sizeof(sound_file));

    if (!message || !*message || sscanf(message, "%99[^\n]", sound_file) < 1) {
        clif_displaymessage(fd, msg_txt(1217)); // Please enter a sound filename (usage: @sound <filename>).
        return -1;
    }

    if (strstr(sound_file, ".wav") == NULL)
        strcat(sound_file, ".wav");

    clif_soundeffectall(&sd->bl, sound_file, 0, AREA);

    return 0;
}

/*==========================================
 *  MOB Search
 *------------------------------------------*/
ACMD_FUNC(mobsearch)
{
    char mob_name[100];
    int mob_id;
    int number = 0;
    struct s_mapiterator *it;

    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%99[^\n]", mob_name) < 1) {
        clif_displaymessage(fd, msg_txt(1218)); // Please enter a monster name (usage: @mobsearch <monster name>).
        return -1;
    }

    if ((mob_id = atoi(mob_name)) == 0)
        mob_id = mobdb_searchname(mob_name);
    if (mob_id > 0 && mobdb_checkid(mob_id) == 0) {
        snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1219),mob_name); // Invalid mob ID %s!
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }
    if (mob_id == atoi(mob_name) && mob_db(mob_id)->jname)
        strcpy(mob_name,mob_db(mob_id)->jname); // --ja--
    //              strcpy(mob_name,mob_db(mob_id)->name);  // --en--

    snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1220), mob_name, mapindex_id2name(sd->mapindex)); // Mob Search... %s %s
    clif_displaymessage(fd, atcmd_output);

    it = mapit_geteachmob();
    for (;;) {
        TBL_MOB *md = (TBL_MOB *)mapit_next(it);
        if (md == NULL)
            break;// no more mobs

        if (md->bl.m != sd->bl.m)
            continue;
        if (mob_id != -1 && md->class_ != mob_id)
            continue;

        ++number;
        if (md->spawn_timer == INVALID_TIMER)
            snprintf(atcmd_output, sizeof(atcmd_output), "%2d[%3d:%3d] %s", number, md->bl.x, md->bl.y, md->name);
        else
            snprintf(atcmd_output, sizeof(atcmd_output), "%2d[%s] %s", number, "dead", md->name);
        clif_displaymessage(fd, atcmd_output);
    }
    mapit_free(it);

    return 0;
}

/*==========================================
 * @cleanmap - cleans items on the ground
 *------------------------------------------*/
static int atcommand_cleanmap_sub(struct block_list *bl, va_list ap)
{
    nullpo_ret(bl);
    map_clearflooritem(bl);

    return 0;
}

ACMD_FUNC(cleanmap)
{
    map_foreachinarea(atcommand_cleanmap_sub, sd->bl.m,
                      sd->bl.x-AREA_SIZE*2, sd->bl.y-AREA_SIZE*2,
                      sd->bl.x+AREA_SIZE*2, sd->bl.y+AREA_SIZE*2,
                      BL_ITEM);
    clif_displaymessage(fd, msg_txt(1221)); // All dropped items have been cleaned up.
    return 0;
}

/*==========================================
 * make a NPC/PET talk
 * @npctalkc [SnakeDrak]
 *------------------------------------------*/
ACMD_FUNC(npctalk)
{
    char name[NAME_LENGTH],mes[100],temp[100];
    struct npc_data *nd;
    bool ifcolor=(*(command + 8) != 'c' && *(command + 8) != 'C')?0:1;
    unsigned long color=0;

    if (sd->sc.count && //no "chatting" while muted.
        (sd->sc.data[SC_BERSERK] || sd->sc.data[SC__BLOODYLUST] ||
         (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCHAT)))
        return -1;

    if (!ifcolor) {
        if (!message || !*message || sscanf(message, "%23[^,], %99[^\n]", name, mes) < 2) {
            clif_displaymessage(fd, msg_txt(1222)); // Please enter the correct parameters (usage: @npctalk <npc name>, <message>).
            return -1;
        }
    } else {
        if (!message || !*message || sscanf(message, "%lx %23[^,], %99[^\n]", &color, name, mes) < 3) {
            clif_displaymessage(fd, msg_txt(1223)); // Please enter the correct parameters (usage: @npctalkc <color> <npc name>, <message>).
            return -1;
        }
    }

    if (!(nd = npc_name2id(name))) {
        clif_displaymessage(fd, msg_txt(111)); // This NPC doesn't exist
        return -1;
    }

    strtok(name, "#"); // discard extra name identifier if present
    snprintf(temp, sizeof(temp), "%s : %s", name, mes);

    if (ifcolor) clif_messagecolor(&nd->bl,color,temp);
    else clif_message(&nd->bl, temp);

    return 0;
}

ACMD_FUNC(pettalk)
{
    char mes[100],temp[100];
    struct pet_data *pd;

    nullpo_retr(-1, sd);

    if (battle_config.min_chat_delay) {
        if (DIFF_TICK(sd->cantalk_tick, gettick()) > 0)
            return 0;
        sd->cantalk_tick = gettick() + battle_config.min_chat_delay;
    }

    if (!sd->status.pet_id || !(pd=sd->pd)) {
        clif_displaymessage(fd, msg_txt(184));
        return -1;
    }

    if (sd->sc.count && //no "chatting" while muted.
        (sd->sc.data[SC_BERSERK] || sd->sc.data[SC__BLOODYLUST] ||
         (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCHAT)))
        return -1;

    if (!message || !*message || sscanf(message, "%99[^\n]", mes) < 1) {
        clif_displaymessage(fd, msg_txt(1224)); // Please enter a message (usage: @pettalk <message>).
        return -1;
    }

    if (message[0] == '/') {
        // pet emotion processing
        const char *emo[] = {
            "/!", "/?", "/ho", "/lv", "/swt", "/ic", "/an", "/ag", "/$", "/...",
            "/scissors", "/rock", "/paper", "/korea", "/lv2", "/thx", "/wah", "/sry", "/heh", "/swt2",
            "/hmm", "/no1", "/??", "/omg", "/O", "/X", "/hlp", "/go", "/sob", "/gg",
            "/kis", "/kis2", "/pif", "/ok", "-?-", "/indonesia", "/bzz", "/rice", "/awsm", "/meh",
            "/shy", "/pat", "/mp", "/slur", "/com", "/yawn", "/grat", "/hp", "/philippines", "/malaysia",
            "/singapore", "/brazil", "/fsh", "/spin", "/sigh", "/dum", "/crwd", "/desp", "/dice", "-dice2",
            "-dice3", "-dice4", "-dice5", "-dice6", "/india", "/love", "/russia", "-?-", "/mobile", "/mail",
            "/chinese", "/antenna1", "/antenna2", "/antenna3", "/hum", "/abs", "/oops", "/spit", "/ene", "/panic",
            "/whisp"
        };
        int i;
        ARR_FIND(0, ARRAYLENGTH(emo), i, stricmp(message, emo[i]) == 0);
        if (i == E_DICE1) i = rnd()%6 + E_DICE1;  // randomize /dice
        if (i < ARRAYLENGTH(emo)) {
            if (sd->emotionlasttime + 1 >= time(NULL)) { // not more than 1 per second
                sd->emotionlasttime = time(NULL);
                return 0;
            }
            sd->emotionlasttime = time(NULL);

            clif_emotion(&pd->bl, i);
            return 0;
        }
    }

    snprintf(temp, sizeof temp ,"%s : %s", pd->pet.name, mes);
    clif_message(&pd->bl, temp);

    return 0;
}

/// @users - displays the number of players present on each map (and percentage)
/// #users displays on the target user instead of self
ACMD_FUNC(users)
{
    char buf[CHAT_SIZE_MAX];
    int i;
    int users[MAX_MAPINDEX];
    int users_all;
    struct s_mapiterator *iter;

    memset(users, 0, sizeof(users));
    users_all = 0;

    // count users on each map
    iter = mapit_getallusers();
    for (;;) {
        struct map_session_data *sd2 = (struct map_session_data *)mapit_next(iter);
        if (sd2 == NULL)
            break;// no more users

        if (sd2->mapindex >= MAX_MAPINDEX)
            continue;// invalid mapindex

        if (users[sd2->mapindex] < INT_MAX) ++users[sd2->mapindex];
        if (users_all < INT_MAX) ++users_all;
    }
    mapit_free(iter);

    // display results for each map
    for (i = 0; i < MAX_MAPINDEX; ++i) {
        if (users[i] == 0)
            continue;// empty

        safesnprintf(buf, sizeof(buf), "%s: %d (%.2f%%)", mapindex_id2name(i), users[i], (float)(100.0f*users[i]/users_all));
        clif_displaymessage(sd->fd, buf);
    }

    // display overall count
    safesnprintf(buf, sizeof(buf), "all: %d", users_all);
    clif_displaymessage(sd->fd, buf);

    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(reset)
{
    pc_resetstate(sd);
    pc_resetskill(sd,1);
    sprintf(atcmd_output, msg_txt(208), sd->status.name); // '%s' skill and stats points reseted!
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

/*==========================================
 *
 *------------------------------------------*/
ACMD_FUNC(summon)
{
    char name[NAME_LENGTH];
    int mob_id = 0;
    int duration = 0;
    struct mob_data *md;
    unsigned int tick=gettick();

    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%23s %d", name, &duration) < 1) {
        clif_displaymessage(fd, msg_txt(1225)); // Please enter a monster name (usage: @summon <monster name> {duration}).
        return -1;
    }

    if (duration < 1)
        duration =1;
    else if (duration > 60)
        duration =60;

    if ((mob_id = atoi(name)) == 0)
        mob_id = mobdb_searchname(name);
    if (mob_id == 0 || mobdb_checkid(mob_id) == 0) {
        clif_displaymessage(fd, msg_txt(40));   // Invalid monster ID or name.
        return -1;
    }

    md = mob_once_spawn_sub(&sd->bl, sd->bl.m, -1, -1, "--ja--", mob_id, "", SZ_SMALL, AI_NONE);

    if (!md)
        return -1;

    md->master_id=sd->bl.id;
    md->special_state.ai=1;
    md->deletetimer=add_timer(tick+(duration*60000),mob_timer_delete,md->bl.id,0);
    clif_specialeffect(&md->bl,344,AREA);
    mob_spawn(md);
    sc_start4(&md->bl, SC_MODECHANGE, 100, 1, 0, MD_AGGRESSIVE, 0, 60000);
    clif_skill_poseffect(&sd->bl,AM_CALLHOMUN,1,md->bl.x,md->bl.y,tick);
    clif_displaymessage(fd, msg_txt(39));   // All monster summoned!

    return 0;
}

/*==========================================
 * @adjgroup
 * Temporarily move player to another group
 * Useful during beta testing to allow players to use GM commands for short periods of time
 *------------------------------------------*/
ACMD_FUNC(adjgroup)
{
    int new_group = 0;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d", &new_group) != 1) {
        clif_displaymessage(fd, msg_txt(1226)); // Usage: @adjgroup <group_id>
        return -1;
    }

    if (!pc_group_exists(new_group)) {
        clif_displaymessage(fd, msg_txt(1227)); // Specified group does not exist.
        return -1;
    }

    sd->group_id = new_group;
    pc_group_pc_load(sd);/* update cache */
    clif_displaymessage(fd, msg_txt(1228)); // Group changed successfully.
    clif_displaymessage(sd->fd, msg_txt(1229)); // Your group has changed.
    return 0;
}

/*==========================================
 * @trade by [MouseJstr]
 * Open a trade window with a remote player
 *------------------------------------------*/
ACMD_FUNC(trade)
{
    struct map_session_data *pl_sd = NULL;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1230)); // Please enter a player name (usage: @trade <char name>).
        return -1;
    }

    if ((pl_sd = map_nick2sd((char *)message)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    trade_traderequest(sd, pl_sd);
    return 0;
}

/*==========================================
 * @setbattleflag by [MouseJstr]
 * set a battle_config flag without having to reboot
 *------------------------------------------*/
ACMD_FUNC(setbattleflag)
{
    char flag[128], value[128];
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%127s %127s", flag, value) != 2) {
        clif_displaymessage(fd, msg_txt(1231)); // Usage: @setbattleflag <flag> <value>
        return -1;
    }

    if (battle_set_value(flag, value) == 0) {
        clif_displaymessage(fd, msg_txt(1232)); // Unknown battle_config flag.
        return -1;
    }

    clif_displaymessage(fd, msg_txt(1233)); // Set battle_config as requested.

    return 0;
}

/*==========================================
 * @unmute [Valaris]
 *------------------------------------------*/
ACMD_FUNC(unmute)
{
    struct map_session_data *pl_sd = NULL;
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1234)); // Please enter a player name (usage: @unmute <char name>).
        return -1;
    }

    if ((pl_sd = map_nick2sd((char *)message)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (!pl_sd->sc.data[SC_NOCHAT]) {
        clif_displaymessage(sd->fd,msg_txt(1235)); // Player is not muted.
        return -1;
    }

    pl_sd->status.manner = 0;
    status_change_end(&pl_sd->bl, SC_NOCHAT, INVALID_TIMER);
    clif_displaymessage(sd->fd,msg_txt(1236)); // Player unmuted.

    return 0;
}

/*==========================================
 * @uptime by MC Cameri
 *------------------------------------------*/
ACMD_FUNC(uptime)
{
    unsigned long seconds = 0, day = 24*60*60, hour = 60*60,
                  minute = 60, days = 0, hours = 0, minutes = 0;
    nullpo_retr(-1, sd);

    seconds = get_uptime();
    days = seconds/day;
    seconds -= (seconds/day>0)?(seconds/day)*day:0;
    hours = seconds/hour;
    seconds -= (seconds/hour>0)?(seconds/hour)*hour:0;
    minutes = seconds/minute;
    seconds -= (seconds/minute>0)?(seconds/minute)*minute:0;

    snprintf(atcmd_output, sizeof(atcmd_output), msg_txt(245), days, hours, minutes, seconds);
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

/*==========================================
 * @changesex <sex>
 * => Changes one's sex. Argument sex can be 0 or 1, m or f, male or female.
 *------------------------------------------*/
ACMD_FUNC(changesex)
{
    int i;
    nullpo_retr(-1, sd);
    pc_resetskill(sd,4);
    // to avoid any problem with equipment and invalid sex, equipment is unequiped.
    for (i=0; i<EQI_MAX; i++)
        if (sd->equip_index[i] >= 0) pc_unequipitem(sd, sd->equip_index[i], 3);
    chrif_changesex(sd);
    return 0;
}

/*================================================
 * @mute - Mutes a player for a set amount of time
 *------------------------------------------------*/
ACMD_FUNC(mute)
{
    struct map_session_data *pl_sd = NULL;
    int manner;
    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%d %23[^\n]", &manner, atcmd_player_name) < 1) {
        clif_displaymessage(fd, msg_txt(1237)); // Usage: @mute <time> <char name>
        return -1;
    }

    if ((pl_sd = map_nick2sd(atcmd_player_name)) == NULL) {
        clif_displaymessage(fd, msg_txt(3)); // Character not found.
        return -1;
    }

    if (pc_get_group_level(sd) < pc_get_group_level(pl_sd)) {
        clif_displaymessage(fd, msg_txt(81)); // Your GM level don't authorise you to do this action on this player.
        return -1;
    }

    clif_manner_message(sd, 0);
    clif_manner_message(pl_sd, 5);

    if (pl_sd->status.manner < manner) {
        pl_sd->status.manner -= manner;
        sc_start(&pl_sd->bl,SC_NOCHAT,100,0,0);
    } else {
        pl_sd->status.manner = 0;
        status_change_end(&pl_sd->bl, SC_NOCHAT, INVALID_TIMER);
    }

    clif_GM_silence(sd, pl_sd, (manner > 0 ? 1 : 0));

    return 0;
}

/*==========================================
 * @refresh (like @jumpto <<yourself>>)
 *------------------------------------------*/
ACMD_FUNC(refresh)
{
    nullpo_retr(-1, sd);
    clif_refresh(sd);
    return 0;
}

/*==========================================
 * @identify
 * => GM's magnifier.
 *------------------------------------------*/
ACMD_FUNC(identify)
{
    int i,num;

    nullpo_retr(-1, sd);

    for (i=num=0; i<MAX_INVENTORY; i++) {
        if (sd->status.inventory[i].nameid > 0 && sd->status.inventory[i].identify!=1) {
            num++;
        }
    }
    if (num > 0) {
        clif_item_identify_list(sd);
    } else {
        clif_displaymessage(fd,msg_txt(1238)); // There are no items to appraise.
    }
    return 0;
}

/*==========================================
 * @gmotd (Global MOTD)
 * by davidsiaw :P
 *------------------------------------------*/
ACMD_FUNC(gmotd)
{
    char buf[CHAT_SIZE_MAX];
    size_t len;
    FILE *fp;

    if ((fp = fopen(motd_txt, "r")) != NULL) {
        while (fgets(buf, sizeof(buf), fp)) {
            if (buf[0] == '/' && buf[1] == '/') {
                continue;
            }

            len = strlen(buf);

            while (len && (buf[len-1] == '\r' || buf[len-1] == '\n')) {
                // strip trailing EOL characters
                len--;
            }

            if (len) {
                buf[len] = 0;

                intif_broadcast(buf, len+1, 0);
            }
        }
        fclose(fp);
    }
    return 0;
}

ACMD_FUNC(misceffect)
{
    int effect = 0;
    nullpo_retr(-1, sd);
    if (!message || !*message)
        return -1;
    if (sscanf(message, "%d", &effect) < 1)
        return -1;
    clif_misceffect(&sd->bl,effect);

    return 0;
}

/*==========================================
 * MAIL SYSTEM
 *------------------------------------------*/
ACMD_FUNC(mail)
{
    nullpo_ret(sd);
    mail_openmail(sd);
    return 0;
}

/*==========================================
 * Show Monster DB Info   v 1.0
 * originally by [Lupus]
 *------------------------------------------*/
ACMD_FUNC(mobinfo)
{
    unsigned char msize[3][7] = {"Small", "Medium", "Large"};
    unsigned char mrace[12][11] = {"Formless", "Undead", "Beast", "Plant", "Insect", "Fish", "Demon", "Demi-Human", "Angel", "Dragon", "Boss", "Non-Boss"};
    unsigned char melement[10][8] = {"Neutral", "Water", "Earth", "Fire", "Wind", "Poison", "Holy", "Dark", "Ghost", "Undead"};
    char atcmd_output2[CHAT_SIZE_MAX];
    struct item_data *item_data;
    struct mob_db *mob, *mob_array[MAX_SEARCH];
    int count;
    int i, j, k;

    memset(atcmd_output, '\0', sizeof(atcmd_output));
    memset(atcmd_output2, '\0', sizeof(atcmd_output2));

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1239)); // Please enter a monster name/ID (usage: @mobinfo <monster_name_or_monster_ID>).
        return -1;
    }

    // If monster identifier/name argument is a name
    if ((i = mobdb_checkid(atoi(message)))) {
        mob_array[0] = mob_db(i);
        count = 1;
    } else
        count = mobdb_searchname_array(mob_array, MAX_SEARCH, message);

    if (!count) {
        clif_displaymessage(fd, msg_txt(40)); // Invalid monster ID or name.
        return -1;
    }

    if (count > MAX_SEARCH) {
        sprintf(atcmd_output, msg_txt(269), MAX_SEARCH, count);
        clif_displaymessage(fd, atcmd_output);
        count = MAX_SEARCH;
    }
    for (k = 0; k < count; k++) {
        mob = mob_array[k];

        // stats
        if (mob->mexp)
            sprintf(atcmd_output, msg_txt(1240), mob->name, mob->jname, mob->sprite, mob->vd.class_); // MVP Monster: '%s'/'%s'/'%s' (%d)
        else
            sprintf(atcmd_output, msg_txt(1241), mob->name, mob->jname, mob->sprite, mob->vd.class_); // Monster: '%s'/'%s'/'%s' (%d)
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1242), mob->lv, mob->status.max_hp, mob->base_exp, mob->job_exp,MOB_HIT(mob), MOB_FLEE(mob)); //  Lv:%d  HP:%d  Base EXP:%u  Job EXP:%u  HIT:%d  FLEE:%d
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output, msg_txt(1243), //  DEF:%d  MDEF:%d  STR:%d  AGI:%d  VIT:%d  INT:%d  DEX:%d  LUK:%d
                mob->status.def, mob->status.mdef,mob->status.str, mob->status.agi,
                mob->status.vit, mob->status.int_, mob->status.dex, mob->status.luk);
        clif_displaymessage(fd, atcmd_output);

        sprintf(atcmd_output, msg_txt(1244), //  ATK:%d~%d  Range:%d~%d~%d  Size:%s  Race: %s  Element: %s (Lv:%d)
                mob->status.rhw.atk, mob->status.rhw.atk2, mob->status.rhw.range,
                mob->range2 , mob->range3, msize[mob->status.size],
                mrace[mob->status.race], melement[mob->status.def_ele], mob->status.ele_lv);
        clif_displaymessage(fd, atcmd_output);
        // drops
        clif_displaymessage(fd, msg_txt(1245)); //  Drops:
        strcpy(atcmd_output, " ");
        j = 0;
        for (i = 0; i < MAX_MOB_DROP; i++) {
            int droprate;
            if (mob->dropitem[i].nameid <= 0 || mob->dropitem[i].p < 1 || (item_data = itemdb_exists(mob->dropitem[i].nameid)) == NULL)
                continue;
            droprate = mob->dropitem[i].p;

            if (item_data->slot)
                sprintf(atcmd_output2, " - %s[%d]  %02.02f%%", item_data->jname, item_data->slot, (float)droprate / 100);
            else
                sprintf(atcmd_output2, " - %s  %02.02f%%", item_data->jname, (float)droprate / 100);
            strcat(atcmd_output, atcmd_output2);
            if (++j % 3 == 0) {
                clif_displaymessage(fd, atcmd_output);
                strcpy(atcmd_output, " ");
            }
        }
        if (j == 0)
            clif_displaymessage(fd, msg_txt(1246)); // This monster has no drops.
        else if (j % 3 != 0)
            clif_displaymessage(fd, atcmd_output);
        // mvp
        if (mob->mexp) {
            sprintf(atcmd_output, msg_txt(1247), mob->mexp); //  MVP Bonus EXP:%u
            clif_displaymessage(fd, atcmd_output);
            strcpy(atcmd_output, msg_txt(1248)); //  MVP Items:
            j = 0;
            for (i = 0; i < MAX_MVP_DROP; i++) {
                if (mob->mvpitem[i].nameid <= 0 || (item_data = itemdb_exists(mob->mvpitem[i].nameid)) == NULL)
                    continue;
                if (mob->mvpitem[i].p > 0) {
                    j++;
                    if (j == 1)
                        sprintf(atcmd_output2, " %s  %02.02f%%", item_data->jname, (float)mob->mvpitem[i].p / 100);
                    else
                        sprintf(atcmd_output2, " - %s  %02.02f%%", item_data->jname, (float)mob->mvpitem[i].p / 100);
                    strcat(atcmd_output, atcmd_output2);
                }
            }
            if (j == 0)
                clif_displaymessage(fd, msg_txt(1249)); // This monster has no MVP prizes.
            else
                clif_displaymessage(fd, atcmd_output);
        }
    }
    return 0;
}

/*=========================================
* @showmobs by KarLaeda
* => For 15 sec displays the mobs on minimap
*------------------------------------------*/
ACMD_FUNC(showmobs)
{
    char mob_name[100];
    int mob_id;
    int number = 0;
    struct s_mapiterator *it;

    nullpo_retr(-1, sd);

    if (sscanf(message, "%99[^\n]", mob_name) < 0)
        return -1;

    if ((mob_id = atoi(mob_name)) == 0)
        mob_id = mobdb_searchname(mob_name);
    if (mob_id > 0 && mobdb_checkid(mob_id) == 0) {
        snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1250),mob_name); // Invalid mob id %s!
        clif_displaymessage(fd, atcmd_output);
        return 0;
    }

    if (mob_db(mob_id)->status.mode&MD_BOSS && !pc_has_permission(sd, PC_PERM_SHOW_BOSS)) { // If player group does not have access to boss mobs.
        clif_displaymessage(fd, msg_txt(1251)); // Can't show boss mobs!
        return 0;
    }

    if (mob_id == atoi(mob_name) && mob_db(mob_id)->jname)
        strcpy(mob_name,mob_db(mob_id)->jname);    // --ja--
    //strcpy(mob_name,mob_db(mob_id)->name);    // --en--

    snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1252), // Mob Search... %s %s
             mob_name, mapindex_id2name(sd->mapindex));
    clif_displaymessage(fd, atcmd_output);

    it = mapit_geteachmob();
    for (;;) {
        TBL_MOB *md = (TBL_MOB *)mapit_next(it);
        if (md == NULL)
            break;// no more mobs

        if (md->bl.m != sd->bl.m)
            continue;
        if (mob_id != -1 && md->class_ != mob_id)
            continue;
        if (md->special_state.ai || md->master_id)
            continue; // hide slaves and player summoned mobs
        if (md->spawn_timer != INVALID_TIMER)
            continue; // hide mobs waiting for respawn

        ++number;
        clif_viewpoint(sd, 1, 0, md->bl.x, md->bl.y, number, 0xFFFFFF);
    }
    mapit_free(it);

    return 0;
}

/*==========================================
 * homunculus level up [orn]
 *------------------------------------------*/
ACMD_FUNC(homlevel)
{
    TBL_HOM *hd;
    int level = 0, i = 0;

    nullpo_retr(-1, sd);

    if (!message || !*message || (level = atoi(message)) < 1) {
        clif_displaymessage(fd, msg_txt(1253)); // Please enter a level adjustment (usage: @homlevel <number of levels>).
        return -1;
    }

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    hd = sd->hd;

    for (i = 1; i <= level && hd->exp_next; i++) {
        hd->homunculus.exp += hd->exp_next;
        merc_hom_levelup(hd);
    }
    status_calc_homunculus(hd,0);
    status_percent_heal(&hd->bl, 100, 100);
    clif_specialeffect(&hd->bl,568,AREA);
    return 0;
}

/*==========================================
 * homunculus evolution H [orn]
 *------------------------------------------*/
ACMD_FUNC(homevolution)
{
    nullpo_retr(-1, sd);

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    if (!merc_hom_evolution(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1255)); // Your homunculus doesn't evolve.
        return -1;
    }
    clif_homskillinfoblock(sd);
    return 0;
}

/*==========================================
 * call choosen homunculus [orn]
 *------------------------------------------*/
ACMD_FUNC(makehomun)
{
    int homunid;
    nullpo_retr(-1, sd);

    if (sd->status.hom_id) {
        clif_displaymessage(fd, msg_txt(450));
        return -1;
    }

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1256)); // Please enter a homunculus ID (usage: @makehomun <homunculus id>).
        return -1;
    }

    homunid = atoi(message);
    if (homunid < HM_CLASS_BASE || homunid > HM_CLASS_BASE + MAX_HOMUNCULUS_CLASS - 1) {
        clif_displaymessage(fd, msg_txt(1257)); // Invalid Homunculus ID.
        return -1;
    }

    merc_create_homunculus_request(sd,homunid);
    return 0;
}

/*==========================================
 * modify homunculus intimacy [orn]
 *------------------------------------------*/
ACMD_FUNC(homfriendly)
{
    int friendly = 0;

    nullpo_retr(-1, sd);

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1258)); // Please enter a friendly value (usage: @homfriendly <friendly value [0-1000]>).
        return -1;
    }

    friendly = atoi(message);
    friendly = cap_value(friendly, 0, 1000);

    sd->hd->homunculus.intimacy = friendly * 100 ;
    clif_send_homdata(sd,SP_INTIMATE,friendly);
    return 0;
}

/*==========================================
 * modify homunculus hunger [orn]
 *------------------------------------------*/
ACMD_FUNC(homhungry)
{
    int hungry = 0;

    nullpo_retr(-1, sd);

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1259)); // Please enter a hunger value (usage: @homhungry <hunger value [0-100]>).
        return -1;
    }

    hungry = atoi(message);
    hungry = cap_value(hungry, 0, 100);

    sd->hd->homunculus.hunger = hungry;
    clif_send_homdata(sd,SP_HUNGRY,hungry);
    return 0;
}

/*==========================================
 * make the homunculus speak [orn]
 *------------------------------------------*/
ACMD_FUNC(homtalk)
{
    char mes[100],temp[100];

    nullpo_retr(-1, sd);

    if (battle_config.min_chat_delay) {
        if (DIFF_TICK(sd->cantalk_tick, gettick()) > 0)
            return 0;
        sd->cantalk_tick = gettick() + battle_config.min_chat_delay;
    }

    if (sd->sc.count && //no "chatting" while muted.
        (sd->sc.data[SC_BERSERK] || sd->sc.data[SC__BLOODYLUST] ||
         (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCHAT)))
        return -1;

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    if (!message || !*message || sscanf(message, "%99[^\n]", mes) < 1) {
        clif_displaymessage(fd, msg_txt(1260)); // Please enter a message (usage: @homtalk <message>).
        return -1;
    }

    snprintf(temp, sizeof temp ,"%s : %s", sd->hd->homunculus.name, mes);
    clif_message(&sd->hd->bl, temp);

    return 0;
}

/*==========================================
 * Show homunculus stats
 *------------------------------------------*/
ACMD_FUNC(hominfo)
{
    struct homun_data *hd;
    struct status_data *status;
    nullpo_retr(-1, sd);

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    hd = sd->hd;
    status = status_get_status_data(&hd->bl);
    clif_displaymessage(fd, msg_txt(1261)); // Homunculus stats:

    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1262), // HP: %d/%d - SP: %d/%d
             status->hp, status->max_hp, status->sp, status->max_sp);
    clif_displaymessage(fd, atcmd_output);

    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1263), // ATK: %d - MATK: %d~%d
             status->rhw.atk2 +status->batk, status->matk_min, status->matk_max);
    clif_displaymessage(fd, atcmd_output);

    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1264), // Hungry: %d - Intimacy: %u
             hd->homunculus.hunger, hd->homunculus.intimacy/100);
    clif_displaymessage(fd, atcmd_output);

    snprintf(atcmd_output, sizeof(atcmd_output) ,
             msg_txt(1265), // Stats: Str %d / Agi %d / Vit %d / Int %d / Dex %d / Luk %d
             status->str, status->agi, status->vit,
             status->int_, status->dex, status->luk);
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

ACMD_FUNC(homstats)
{
    struct homun_data *hd;
    struct s_homunculus_db *db;
    struct s_homunculus *hom;
    int lv, min, max, evo;

    nullpo_retr(-1, sd);

    if (!merc_is_hom_active(sd->hd)) {
        clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
        return -1;
    }

    hd = sd->hd;

    hom = &hd->homunculus;
    db = hd->homunculusDB;
    lv = hom->level;

    snprintf(atcmd_output, sizeof(atcmd_output) ,
             msg_txt(1266), lv, db->name); // Homunculus growth stats (Lv %d %s):
    clif_displaymessage(fd, atcmd_output);
    lv--; //Since the first increase is at level 2.

    evo = (hom->class_ == db->evo_class);
    min = db->base.HP +lv*db->gmin.HP +(evo?db->emin.HP:0);
    max = db->base.HP +lv*db->gmax.HP +(evo?db->emax.HP:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1267), hom->max_hp, min, max); // Max HP: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.SP +lv*db->gmin.SP +(evo?db->emin.SP:0);
    max = db->base.SP +lv*db->gmax.SP +(evo?db->emax.SP:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1268), hom->max_sp, min, max); // Max SP: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.str +lv*(db->gmin.str/10) +(evo?db->emin.str:0);
    max = db->base.str +lv*(db->gmax.str/10) +(evo?db->emax.str:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1269), hom->str/10, min, max); // Str: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.agi +lv*(db->gmin.agi/10) +(evo?db->emin.agi:0);
    max = db->base.agi +lv*(db->gmax.agi/10) +(evo?db->emax.agi:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1270), hom->agi/10, min, max); // Agi: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.vit +lv*(db->gmin.vit/10) +(evo?db->emin.vit:0);
    max = db->base.vit +lv*(db->gmax.vit/10) +(evo?db->emax.vit:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1271), hom->vit/10, min, max); // Vit: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.int_ +lv*(db->gmin.int_/10) +(evo?db->emin.int_:0);
    max = db->base.int_ +lv*(db->gmax.int_/10) +(evo?db->emax.int_:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1272), hom->int_/10, min, max); // Int: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.dex +lv*(db->gmin.dex/10) +(evo?db->emin.dex:0);
    max = db->base.dex +lv*(db->gmax.dex/10) +(evo?db->emax.dex:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1273), hom->dex/10, min, max); // Dex: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    min = db->base.luk +lv*(db->gmin.luk/10) +(evo?db->emin.luk:0);
    max = db->base.luk +lv*(db->gmax.luk/10) +(evo?db->emax.luk:0);;
    snprintf(atcmd_output, sizeof(atcmd_output) ,msg_txt(1274), hom->luk/10, min, max); // Luk: %d (%d~%d)
    clif_displaymessage(fd, atcmd_output);

    return 0;
}

ACMD_FUNC(homshuffle)
{
    nullpo_retr(-1, sd);

    if (!sd->hd)
        return -1; // nothing to do

    if (!merc_hom_shuffle(sd->hd))
        return -1;

    clif_displaymessage(sd->fd, msg_txt(1275)); // Homunculus stats altered.
    atcommand_homstats(fd, sd, command, message); //Print out the new stats
    return 0;
}

/*==========================================
 * Show Items DB Info   v 1.0
 * originally by [Lupus]
 *------------------------------------------*/
ACMD_FUNC(iteminfo)
{
    struct item_data *item_data, *item_array[MAX_SEARCH];
    int i, count = 1;

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1276)); // Please enter an item name/ID (usage: @ii/@iteminfo <item name/ID>).
        return -1;
    }
    if ((item_array[0] = itemdb_exists(atoi(message))) == NULL)
        count = itemdb_searchname_array(item_array, MAX_SEARCH, message);

    if (!count) {
        clif_displaymessage(fd, msg_txt(19));   // Invalid item ID or name.
        return -1;
    }

    if (count > MAX_SEARCH) {
        sprintf(atcmd_output, msg_txt(269), MAX_SEARCH, count); // Displaying first %d out of %d matches
        clif_displaymessage(fd, atcmd_output);
        count = MAX_SEARCH;
    }
    for (i = 0; i < count; i++) {
        item_data = item_array[i];
        sprintf(atcmd_output, msg_txt(1277), // Item: '%s'/'%s'[%d] (%d) Type: %s | Extra Effect: %s
                item_data->name,item_data->jname,item_data->slot,item_data->nameid,
                itemdb_typename(item_data->type),
                (item_data->script==NULL)? msg_txt(1278) : msg_txt(1279) // None / With script
               );
        clif_displaymessage(fd, atcmd_output);

        sprintf(atcmd_output, msg_txt(1280), item_data->value_buy, item_data->value_sell, item_data->weight/10.);  // NPC Buy:%dz, Sell:%dz | Weight: %.1f
        clif_displaymessage(fd, atcmd_output);

        if (item_data->maxchance == -1)
            strcpy(atcmd_output, msg_txt(1281)); //  - Available in the shops only.
        else if (!battle_config.atcommand_mobinfo_type && item_data->maxchance)
            sprintf(atcmd_output, msg_txt(1282), (float)item_data->maxchance / 100);  //  - Maximal monsters drop chance: %02.02f%%
        else
            strcpy(atcmd_output, msg_txt(1283)); //  - Monsters don't drop this item.
        clif_displaymessage(fd, atcmd_output);

    }
    return 0;
}

/*==========================================
 * Show who drops the item.
 *------------------------------------------*/
ACMD_FUNC(whodrops)
{
    struct item_data *item_data, *item_array[MAX_SEARCH];
    int i,j, count = 1;

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1284)); // Please enter item name/ID (usage: @whodrops <item name/ID>).
        return -1;
    }
    if ((item_array[0] = itemdb_exists(atoi(message))) == NULL)
        count = itemdb_searchname_array(item_array, MAX_SEARCH, message);

    if (!count) {
        clif_displaymessage(fd, msg_txt(19));   // Invalid item ID or name.
        return -1;
    }

    if (count > MAX_SEARCH) {
        sprintf(atcmd_output, msg_txt(269), MAX_SEARCH, count); // Displaying first %d out of %d matches
        clif_displaymessage(fd, atcmd_output);
        count = MAX_SEARCH;
    }
    for (i = 0; i < count; i++) {
        item_data = item_array[i];
        sprintf(atcmd_output, msg_txt(1285), item_data->jname,item_data->slot); // Item: '%s'[%d]
        clif_displaymessage(fd, atcmd_output);

        if (item_data->mob[0].chance == 0) {
            strcpy(atcmd_output, msg_txt(1286)); //  - Item is not dropped by mobs.
            clif_displaymessage(fd, atcmd_output);
        } else {
            sprintf(atcmd_output, msg_txt(1287), MAX_SEARCH); //  - Common mobs with highest drop chance (only max %d are listed):
            clif_displaymessage(fd, atcmd_output);

            for (j=0; j < MAX_SEARCH && item_data->mob[j].chance > 0; j++) {
                sprintf(atcmd_output, "- %s (%02.02f%%)", mob_db(item_data->mob[j].id)->jname, item_data->mob[j].chance/100.);
                clif_displaymessage(fd, atcmd_output);
            }
        }
    }
    return 0;
}

ACMD_FUNC(whereis)
{
    struct mob_db *mob, *mob_array[MAX_SEARCH];
    int count;
    int i, j, k;

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1288)); // Please enter a monster name/ID (usage: @whereis <monster_name_or_monster_ID>).
        return -1;
    }

    // If monster identifier/name argument is a name
    if ((i = mobdb_checkid(atoi(message)))) {
        mob_array[0] = mob_db(i);
        count = 1;
    } else
        count = mobdb_searchname_array(mob_array, MAX_SEARCH, message);

    if (!count) {
        clif_displaymessage(fd, msg_txt(40)); // Invalid monster ID or name.
        return -1;
    }

    if (count > MAX_SEARCH) {
        sprintf(atcmd_output, msg_txt(269), MAX_SEARCH, count);
        clif_displaymessage(fd, atcmd_output);
        count = MAX_SEARCH;
    }
    for (k = 0; k < count; k++) {
        mob = mob_array[k];
        snprintf(atcmd_output, sizeof atcmd_output, msg_txt(1289), mob->jname); // %s spawns in:
        clif_displaymessage(fd, atcmd_output);

        for (i = 0; i < ARRAYLENGTH(mob->spawn) && mob->spawn[i].qty; i++) {
            j = map_mapindex2mapid(mob->spawn[i].mapindex);
            if (j < 0) continue;
            snprintf(atcmd_output, sizeof atcmd_output, "%s (%d)", map[j].name, mob->spawn[i].qty);
            clif_displaymessage(fd, atcmd_output);
        }
        if (i == 0)
            clif_displaymessage(fd, msg_txt(1290)); // This monster does not spawn normally.
    }

    return 0;
}

/*==========================================
 * @adopt by [Veider]
 * adopt a novice
 *------------------------------------------*/
ACMD_FUNC(adopt)
{
    struct map_session_data *pl_sd1, *pl_sd2, *pl_sd3;
    char player1[NAME_LENGTH], player2[NAME_LENGTH], player3[NAME_LENGTH];
    char output[CHAT_SIZE_MAX];

    nullpo_retr(-1, sd);

    if (!message || !*message || sscanf(message, "%23[^,],%23[^,],%23[^\r\n]", player1, player2, player3) < 3) {
        clif_displaymessage(fd, msg_txt(1291)); // Usage: @adopt <father>,<mother>,<child>
        return -1;
    }

    if (battle_config.etc_log)
        ShowInfo(msg_txt(1292),player1,player2,player3); // Adopting: --%s--%s--%s--\n

    if ((pl_sd1=map_nick2sd((char *) player1)) == NULL) {
        sprintf(output, msg_txt(1293), player1); // Cannot find player %s online.
        clif_displaymessage(fd, output);
        return -1;
    }

    if ((pl_sd2=map_nick2sd((char *) player2)) == NULL) {
        sprintf(output, msg_txt(1293), player2); // Cannot find player %s online.
        clif_displaymessage(fd, output);
        return -1;
    }

    if ((pl_sd3=map_nick2sd((char *) player3)) == NULL) {
        sprintf(output, msg_txt(1293), player3); // Cannot find player %s online.
        clif_displaymessage(fd, output);
        return -1;
    }

    if (!pc_adoption(pl_sd1, pl_sd2, pl_sd3)) {
        return -1;
    }

    clif_displaymessage(fd, msg_txt(1294)); // They are family... wish them luck.
    return 0;
}

ACMD_FUNC(version)
{
    const char *revision;

    if ((revision = get_svn_revision()) != 0) {
        sprintf(atcmd_output,msg_txt(1295),revision); // rAthena Version SVN r%s
        clif_displaymessage(fd,atcmd_output);
    } else
        clif_displaymessage(fd,msg_txt(1296)); // Cannot determine SVN revision.

    return 0;
}

/*==========================================
 * @mutearea by MouseJstr
 *------------------------------------------*/
static int atcommand_mutearea_sub(struct block_list *bl,va_list ap)
{

    int time, id;
    struct map_session_data *pl_sd = (struct map_session_data *)bl;
    if (pl_sd == NULL)
        return 0;

    id = va_arg(ap, int);
    time = va_arg(ap, int);

    if (id != bl->id && !pc_get_group_level(pl_sd)) {
        pl_sd->status.manner -= time;
        if (pl_sd->status.manner < 0)
            sc_start(&pl_sd->bl,SC_NOCHAT,100,0,0);
        else
            status_change_end(&pl_sd->bl, SC_NOCHAT, INVALID_TIMER);
    }
    return 0;
}

ACMD_FUNC(mutearea)
{
    int time;
    nullpo_ret(sd);

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1297)); // Please enter a time in minutes (usage: @mutearea/@stfu <time in minutes>).
        return -1;
    }

    time = atoi(message);

    map_foreachinarea(atcommand_mutearea_sub,sd->bl.m,
                      sd->bl.x-AREA_SIZE, sd->bl.y-AREA_SIZE,
                      sd->bl.x+AREA_SIZE, sd->bl.y+AREA_SIZE, BL_PC, sd->bl.id, time);

    return 0;
}


ACMD_FUNC(rates)
{
    char buf[CHAT_SIZE_MAX];

    nullpo_ret(sd);
    memset(buf, '\0', sizeof(buf));

    snprintf(buf, CHAT_SIZE_MAX, msg_txt(1298), // Experience rates: Base %.2fx / Job %.2fx
             battle_config.base_exp_rate/100., battle_config.job_exp_rate/100.);
    clif_displaymessage(fd, buf);
    snprintf(buf, CHAT_SIZE_MAX, msg_txt(1299), // Normal Drop Rates: Common %.2fx / Healing %.2fx / Usable %.2fx / Equipment %.2fx / Card %.2fx
             battle_config.item_rate_common/100., battle_config.item_rate_heal/100., battle_config.item_rate_use/100., battle_config.item_rate_equip/100., battle_config.item_rate_card/100.);
    clif_displaymessage(fd, buf);
    snprintf(buf, CHAT_SIZE_MAX, msg_txt(1300), // Boss Drop Rates: Common %.2fx / Healing %.2fx / Usable %.2fx / Equipment %.2fx / Card %.2fx
             battle_config.item_rate_common_boss/100., battle_config.item_rate_heal_boss/100., battle_config.item_rate_use_boss/100., battle_config.item_rate_equip_boss/100., battle_config.item_rate_card_boss/100.);
    clif_displaymessage(fd, buf);
    snprintf(buf, CHAT_SIZE_MAX, msg_txt(1301), // Other Drop Rates: MvP %.2fx / Card-Based %.2fx / Treasure %.2fx
             battle_config.item_rate_mvp/100., battle_config.item_rate_adddrop/100., battle_config.item_rate_treasure/100.);
    clif_displaymessage(fd, buf);

    return 0;
}

/*==========================================
 * @me by lordalfa
 * => Displays the OUTPUT string on top of the Visible players Heads.
 *------------------------------------------*/
ACMD_FUNC(me)
{
    char tempmes[CHAT_SIZE_MAX];
    nullpo_retr(-1, sd);

    memset(tempmes, '\0', sizeof(tempmes));
    memset(atcmd_output, '\0', sizeof(atcmd_output));

    if (sd->sc.count && //no "chatting" while muted.
        (sd->sc.data[SC_BERSERK] || sd->sc.data[SC__BLOODYLUST] ||
         (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCHAT)))
        return -1;

    if (!message || !*message || sscanf(message, "%199[^\n]", tempmes) < 0) {
        clif_displaymessage(fd, msg_txt(1302)); // Please enter a message (usage: @me <message>).
        return -1;
    }

    sprintf(atcmd_output, msg_txt(270), sd->status.name, tempmes);  // *%s %s*
    clif_disp_overhead(sd, atcmd_output);

    return 0;

}

/*==========================================
 * @size
 * => Resize your character sprite. [Valaris]
 *------------------------------------------*/
ACMD_FUNC(size)
{
    int size = 0;
    nullpo_retr(-1, sd);

    size = cap_value(atoi(message),SZ_SMALL,SZ_BIG);

    if (sd->state.size) {
        sd->state.size = SZ_SMALL;
        pc_setpos(sd, sd->mapindex, sd->bl.x, sd->bl.y, CLR_TELEPORT);
    }

    sd->state.size = size;
    if (size == SZ_MEDIUM)
        clif_specialeffect(&sd->bl,420,AREA);
    else if (size == SZ_BIG)
        clif_specialeffect(&sd->bl,422,AREA);

    clif_displaymessage(fd, msg_txt(1303)); // Size change applied.
    return 0;
}

ACMD_FUNC(sizeall)
{
    int size;
    struct map_session_data *pl_sd;
    struct s_mapiterator *iter;

    size = atoi(message);
    size = cap_value(size,0,2);

    iter = mapit_getallusers();
    for (pl_sd = (TBL_PC *)mapit_first(iter); mapit_exists(iter); pl_sd = (TBL_PC *)mapit_next(iter)) {
        if (pl_sd->state.size != size) {
            if (pl_sd->state.size) {
                pl_sd->state.size = SZ_SMALL;
                pc_setpos(pl_sd, pl_sd->mapindex, pl_sd->bl.x, pl_sd->bl.y, CLR_TELEPORT);
            }

            pl_sd->state.size = size;
            if (size == SZ_MEDIUM)
                clif_specialeffect(&pl_sd->bl,420,AREA);
            else if (size == SZ_BIG)
                clif_specialeffect(&pl_sd->bl,422,AREA);
        }
    }
    mapit_free(iter);

    clif_displaymessage(fd, msg_txt(1303)); // Size change applied.
    return 0;
}

ACMD_FUNC(sizeguild)
{
    int size = 0, i;
    char guild[NAME_LENGTH];
    struct map_session_data *pl_sd;
    struct guild *g;
    nullpo_retr(-1, sd);

    memset(guild, '\0', sizeof(guild));

    if (!message || !*message || sscanf(message, "%d %23[^\n]", &size, guild) < 2) {
        clif_displaymessage(fd, msg_txt(1304)); // Please enter guild name/ID (usage: @sizeguild <size> <guild name/ID>).
        return -1;
    }

    if ((g = guild_searchname(guild)) == NULL && (g = guild_search(atoi(guild))) == NULL) {
        clif_displaymessage(fd, msg_txt(94)); // Incorrect name/ID, or no one from the guild is online.
        return -1;
    }

    size = cap_value(size,SZ_SMALL,SZ_BIG);

    for (i = 0; i < g->max_member; i++) {
        if ((pl_sd = g->member[i].sd) && pl_sd->state.size != size) {
            if (pl_sd->state.size) {
                pl_sd->state.size = SZ_SMALL;
                pc_setpos(pl_sd, pl_sd->mapindex, pl_sd->bl.x, pl_sd->bl.y, CLR_TELEPORT);
            }

            pl_sd->state.size = size;
            if (size == SZ_MEDIUM)
                clif_specialeffect(&pl_sd->bl,420,AREA);
            else if (size == SZ_BIG)
                clif_specialeffect(&pl_sd->bl,422,AREA);
        }
    }

    clif_displaymessage(fd, msg_txt(1303)); // Size change applied.
    return 0;
}

/*==========================================
 * @monsterignore
 * => Makes monsters ignore you. [Valaris]
 *------------------------------------------*/
ACMD_FUNC(monsterignore)
{
    nullpo_retr(-1, sd);

    if (!sd->state.monster_ignore) {
        sd->state.monster_ignore = 1;
        clif_displaymessage(sd->fd, msg_txt(1305)); // You are now immune to attacks.
    } else {
        sd->state.monster_ignore = 0;
        clif_displaymessage(sd->fd, msg_txt(1306)); // Returned to normal state.
    }

    return 0;
}
/*==========================================
 * @fakename
 * => Gives your character a fake name. [Valaris]
 *------------------------------------------*/
ACMD_FUNC(fakename)
{
    nullpo_retr(-1, sd);

    if (!message || !*message) {
        if (sd->fakename[0]) {
            sd->fakename[0] = '\0';
            clif_charnameack(0, &sd->bl);
            clif_displaymessage(sd->fd, msg_txt(1307)); // Returned to real name.
            return 0;
        }

        clif_displaymessage(sd->fd, msg_txt(1308)); // You must enter a name.
        return -1;
    }

    if (strlen(message) < 2) {
        clif_displaymessage(sd->fd, msg_txt(1309)); // Fake name must be at least two characters.
        return -1;
    }

    safestrncpy(sd->fakename, message, sizeof(sd->fakename));
    clif_charnameack(0, &sd->bl);
    clif_displaymessage(sd->fd, msg_txt(1310)); // Fake name enabled.

    return 0;
}

/*==========================================
 * Ragnarok Resources
 *------------------------------------------*/
ACMD_FUNC(mapflag)
{
#define checkflag( cmd ) if ( map[ sd->bl.m ].flag.cmd ) clif_displaymessage(sd->fd,#cmd)
#define setflag( cmd ) \
    if ( strcmp( flag_name , #cmd ) == 0 ){\
        map[ sd->bl.m ].flag.cmd = flag;\
        sprintf(atcmd_output,"[ @mapflag ] %s flag has been set to %s",#cmd,flag?"On":"Off");\
        clif_displaymessage(sd->fd,atcmd_output);\
        return 0;\
    }
    unsigned char flag_name[100];
    int flag=0,i;
    nullpo_retr(-1, sd);
    memset(flag_name, '\0', sizeof(flag_name));

    if (!message || !*message || (sscanf(message, "%99s %d", flag_name, &flag) < 1)) {
        clif_displaymessage(sd->fd,msg_txt(1311)); // Enabled Mapflags in this map:
        clif_displaymessage(sd->fd,"----------------------------------");
        checkflag(autotrade);
        checkflag(allowks);
        checkflag(nomemo);
        checkflag(noteleport);
        checkflag(noreturn);
        checkflag(monster_noteleport);
        checkflag(nosave);
        checkflag(nobranch);
        checkflag(noexppenalty);
        checkflag(pvp);
        checkflag(pvp_noparty);
        checkflag(pvp_noguild);
        checkflag(pvp_nightmaredrop);
        checkflag(pvp_nocalcrank);
        checkflag(gvg_castle);
        checkflag(gvg);
        checkflag(gvg_dungeon);
        checkflag(gvg_noparty);
        checkflag(battleground);
        checkflag(nozenypenalty);
        checkflag(notrade);
        checkflag(noskill);
        checkflag(nowarp);
        checkflag(nowarpto);
        checkflag(noicewall);
        checkflag(snow);
        checkflag(clouds);
        checkflag(clouds2);
        checkflag(fog);
        checkflag(fireworks);
        checkflag(sakura);
        checkflag(leaves);
        checkflag(nogo);
        checkflag(nobaseexp);
        checkflag(nojobexp);
        checkflag(nomobloot);
        checkflag(nomvploot);
        checkflag(nightenabled);
        checkflag(restricted);
        checkflag(nodrop);
        checkflag(novending);
        checkflag(loadevent);
        checkflag(nochat);
        checkflag(partylock);
        checkflag(guildlock);
        checkflag(src4instance);
        clif_displaymessage(sd->fd," ");
        clif_displaymessage(sd->fd,msg_txt(1312)); // Usage: "@mapflag monster_noteleport 1" (0=Off | 1=On)
        clif_displaymessage(sd->fd,msg_txt(1313)); // Type "@mapflag available" to list the available mapflags.
        return 1;
    }
    for (i = 0; flag_name[i]; i++) flag_name[i] = tolower(flag_name[i]); //lowercase

    setflag(autotrade);
    setflag(allowks);
    setflag(nomemo);
    setflag(noteleport);
    setflag(noreturn);
    setflag(monster_noteleport);
    setflag(nosave);
    setflag(nobranch);
    setflag(noexppenalty);
    setflag(pvp);
    setflag(pvp_noparty);
    setflag(pvp_noguild);
    setflag(pvp_nightmaredrop);
    setflag(pvp_nocalcrank);
    setflag(gvg_castle);
    setflag(gvg);
    setflag(gvg_dungeon);
    setflag(gvg_noparty);
    setflag(battleground);
    setflag(nozenypenalty);
    setflag(notrade);
    setflag(noskill);
    setflag(nowarp);
    setflag(nowarpto);
    setflag(noicewall);
    setflag(snow);
    setflag(clouds);
    setflag(clouds2);
    setflag(fog);
    setflag(fireworks);
    setflag(sakura);
    setflag(leaves);
    setflag(nogo);
    setflag(nobaseexp);
    setflag(nojobexp);
    setflag(nomobloot);
    setflag(nomvploot);
    setflag(nightenabled);
    setflag(restricted);
    setflag(nodrop);
    setflag(novending);
    setflag(loadevent);
    setflag(nochat);
    setflag(partylock);
    setflag(guildlock);
    setflag(src4instance);

    clif_displaymessage(sd->fd,msg_txt(1314)); // Invalid flag name or flag.
    clif_displaymessage(sd->fd,msg_txt(1312)); // Usage: "@mapflag monster_noteleport 1" (0=Off | 1=On)
    clif_displaymessage(sd->fd,msg_txt(1315)); // Available Flags:
    clif_displaymessage(sd->fd,"----------------------------------");
    clif_displaymessage(sd->fd,"town, autotrade, allowks, nomemo, noteleport, noreturn, monster_noteleport, nosave,");
    clif_displaymessage(sd->fd,"nobranch, noexppenalty, pvp, pvp_noparty, pvp_noguild, pvp_nightmaredrop,");
    clif_displaymessage(sd->fd,"pvp_nocalcrank, gvg_castle, gvg, gvg_dungeon, gvg_noparty, battleground,");
    clif_displaymessage(sd->fd,"nozenypenalty, notrade, noskill, nowarp, nowarpto, noicewall, snow, clouds, clouds2,");
    clif_displaymessage(sd->fd,"fog, fireworks, sakura, leaves, nogo, nobaseexp, nojobexp, nomobloot,");
    clif_displaymessage(sd->fd,"nomvploot, nightenabled, restricted, nodrop, novending, loadevent, nochat, partylock,");
    clif_displaymessage(sd->fd,"guildlock, src4instance");

#undef checkflag
#undef setflag

    return 0;
}

/*===================================
 * Remove some messages
 *-----------------------------------*/
ACMD_FUNC(showexp)
{
    if (sd->state.showexp) {
        sd->state.showexp = 0;
        clif_displaymessage(fd, msg_txt(1316)); // Gained exp will not be shown.
        return 0;
    }

    sd->state.showexp = 1;
    clif_displaymessage(fd, msg_txt(1317)); // Gained exp is now shown.
    return 0;
}

ACMD_FUNC(showzeny)
{
    if (sd->state.showzeny) {
        sd->state.showzeny = 0;
        clif_displaymessage(fd, msg_txt(1318)); // Gained zeny will not be shown.
        return 0;
    }

    sd->state.showzeny = 1;
    clif_displaymessage(fd, msg_txt(1319)); // Gained zeny is now shown.
    return 0;
}

ACMD_FUNC(showdelay)
{
    if (sd->state.showdelay) {
        sd->state.showdelay = 0;
        clif_displaymessage(fd, msg_txt(1320)); // Skill delay failures will not be shown.
        return 0;
    }

    sd->state.showdelay = 1;
    clif_displaymessage(fd, msg_txt(1321)); // Skill delay failures are now shown.
    return 0;
}

/*==========================================
 * Duel organizing functions [LuzZza]
 *
 * @duel [limit|nick] - create a duel
 * @invite <nick> - invite player
 * @accept - accept invitation
 * @reject - reject invitation
 * @leave - leave duel
 *------------------------------------------*/
ACMD_FUNC(invite)
{
    unsigned int did = sd->duel_group;
    struct map_session_data *target_sd = map_nick2sd((char *)message);

    if (did <= 0)    {
        // "Duel: @invite without @duel."
        clif_displaymessage(fd, msg_txt(350));
        return 0;
    }

    if (duel_list[did].max_players_limit > 0 &&
        duel_list[did].members_count >= duel_list[did].max_players_limit) {

        // "Duel: Limit of players is reached."
        clif_displaymessage(fd, msg_txt(351));
        return 0;
    }

    if (target_sd == NULL) {
        // "Duel: Player not found."
        clif_displaymessage(fd, msg_txt(352));
        return 0;
    }

    if (target_sd->duel_group > 0 || target_sd->duel_invite > 0) {
        // "Duel: Player already in duel."
        clif_displaymessage(fd, msg_txt(353));
        return 0;
    }

    if (battle_config.duel_only_on_same_map && target_sd->bl.m != sd->bl.m) {
        sprintf(atcmd_output, msg_txt(364), message);
        clif_displaymessage(fd, atcmd_output);
        return 0;
    }

    duel_invite(did, sd, target_sd);
    // "Duel: Invitation has been sent."
    clif_displaymessage(fd, msg_txt(354));
    return 0;
}

ACMD_FUNC(duel)
{
    char output[CHAT_SIZE_MAX];
    unsigned int maxpl=0, newduel;
    struct map_session_data *target_sd;

    if (sd->duel_group > 0) {
        duel_showinfo(sd->duel_group, sd);
        return 0;
    }

    if (sd->duel_invite > 0) {
        // "Duel: @duel without @reject."
        clif_displaymessage(fd, msg_txt(355));
        return 0;
    }

    if (!duel_checktime(sd)) {
        // "Duel: You can take part in duel only one time per %d minutes."
        sprintf(output, msg_txt(356), battle_config.duel_time_interval);
        clif_displaymessage(fd, output);
        return 0;
    }

    if (message[0]) {
        if (sscanf(message, "%d", &maxpl) >= 1) {
            if (maxpl < 2 || maxpl > 65535) {
                clif_displaymessage(fd, msg_txt(357)); // "Duel: Invalid value."
                return 0;
            }
            duel_create(sd, maxpl);
        } else {
            target_sd = map_nick2sd((char *)message);
            if (target_sd != NULL) {
                if ((newduel = duel_create(sd, 2)) != -1) {
                    if (target_sd->duel_group > 0 || target_sd->duel_invite > 0) {
                        clif_displaymessage(fd, msg_txt(353)); // "Duel: Player already in duel."
                        return 0;
                    }
                    duel_invite(newduel, sd, target_sd);
                    clif_displaymessage(fd, msg_txt(354)); // "Duel: Invitation has been sent."
                }
            } else {
                // "Duel: Player not found."
                clif_displaymessage(fd, msg_txt(352));
                return 0;
            }
        }
    } else
        duel_create(sd, 0);

    return 0;
}


ACMD_FUNC(leave)
{
    if (sd->duel_group <= 0) {
        // "Duel: @leave without @duel."
        clif_displaymessage(fd, msg_txt(358));
        return 0;
    }

    duel_leave(sd->duel_group, sd);
    clif_displaymessage(fd, msg_txt(359)); // "Duel: You left the duel."
    return 0;
}

ACMD_FUNC(accept)
{
    char output[CHAT_SIZE_MAX];

    if (!duel_checktime(sd)) {
        // "Duel: You can take part in duel only one time per %d minutes."
        sprintf(output, msg_txt(356), battle_config.duel_time_interval);
        clif_displaymessage(fd, output);
        return 0;
    }

    if (sd->duel_invite <= 0) {
        // "Duel: @accept without invititation."
        clif_displaymessage(fd, msg_txt(360));
        return 0;
    }

    if (duel_list[sd->duel_invite].max_players_limit > 0 && duel_list[sd->duel_invite].members_count >= duel_list[sd->duel_invite].max_players_limit) {
        // "Duel: Limit of players is reached."
        clif_displaymessage(fd, msg_txt(351));
        return 0;
    }

    duel_accept(sd->duel_invite, sd);
    // "Duel: Invitation has been accepted."
    clif_displaymessage(fd, msg_txt(361));
    return 0;
}

ACMD_FUNC(reject)
{
    if (sd->duel_invite <= 0) {
        // "Duel: @reject without invititation."
        clif_displaymessage(fd, msg_txt(362));
        return 0;
    }

    duel_reject(sd->duel_invite, sd);
    // "Duel: Invitation has been rejected."
    clif_displaymessage(fd, msg_txt(363));
    return 0;
}

/*===================================
 * Cash Points
 *-----------------------------------*/
ACMD_FUNC(cash)
{
    char output[128];
    int value;
    int ret=0;
    nullpo_retr(-1, sd);

    if (!message || !*message || (value = atoi(message)) == 0) {
        clif_displaymessage(fd, msg_txt(1322)); // Please enter an amount.
        return -1;
    }

    if (!strcmpi(command+1,"cash")) {
        if (value > 0) {
            if ((ret=pc_getcash(sd, value, 0)) >= 0) {
                sprintf(output, msg_txt(505), ret, sd->cashPoints);
                clif_disp_onlyself(sd, output, strlen(output));
            } else clif_displaymessage(fd, msg_txt(149)); // Unable to decrease the number/value.
        } else {
            if ((ret=pc_paycash(sd, -value, 0)) >= 0) {
                sprintf(output, msg_txt(410), ret, sd->cashPoints);
                clif_disp_onlyself(sd, output, strlen(output));
            } else clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
        }
    } else {
        // @points
        if (value > 0) {
            if ((ret=pc_getcash(sd, 0, value)) >= 0) {
                sprintf(output, msg_txt(506), ret, sd->kafraPoints);
                clif_disp_onlyself(sd, output, strlen(output));
            } else clif_displaymessage(fd, msg_txt(149)); // Unable to decrease the number/value.
        } else {
            if ((ret=pc_paycash(sd, -value, -value)) >= 0) {
                sprintf(output, msg_txt(411), ret, sd->kafraPoints);
                clif_disp_onlyself(sd, output, strlen(output));
            } else clif_displaymessage(fd, msg_txt(41)); // Unable to decrease the number/value.
        }
    }

    return 0;
}

// @clone/@slaveclone/@evilclone <playername> [Valaris]
ACMD_FUNC(clone)
{
    int x=0,y=0,flag=0,master=0,i=0;
    struct map_session_data *pl_sd=NULL;

    if (!message || !*message) {
        clif_displaymessage(sd->fd,msg_txt(1323)); // You must enter a player name or ID.
        return 0;
    }

    if ((pl_sd=map_nick2sd((char *)message)) == NULL && (pl_sd=map_charid2sd(atoi(message))) == NULL) {
        clif_displaymessage(fd, msg_txt(3));    // Character not found.
        return 0;
    }

    if (pc_get_group_level(pl_sd) > pc_get_group_level(sd)) {
        clif_displaymessage(fd, msg_txt(126));  // Cannot clone a player of higher GM level than yourself.
        return 0;
    }

    if (strcmpi(command+1, "clone") == 0)
        flag = 1;
    else if (strcmpi(command+1, "slaveclone") == 0) {
        flag = 2;
        if (pc_isdead(sd)) {
            clif_displaymessage(fd, msg_txt(129+flag*2));
            return 0;
        }
        master = sd->bl.id;
        if (battle_config.atc_slave_clone_limit
            && mob_countslave(&sd->bl) >= battle_config.atc_slave_clone_limit) {
            clif_displaymessage(fd, msg_txt(127));  // You've reached your slave clones limit.
            return 0;
        }
    }

    do {
        x = sd->bl.x + (rnd() % 10 - 5);
        y = sd->bl.y + (rnd() % 10 - 5);
    } while (map_getcell(sd->bl.m,x,y,CELL_CHKNOPASS) && i++ < 10);

    if (i >= 10) {
        x = sd->bl.x;
        y = sd->bl.y;
    }

    if ((x = mob_clone_spawn(pl_sd, sd->bl.m, x, y, "", master, 0, flag?1:0, 0)) > 0) {
        clif_displaymessage(fd, msg_txt(128+flag*2));   // Evil Clone spawned. Clone spawned. Slave clone spawned.
        return 0;
    }
    clif_displaymessage(fd, msg_txt(129+flag*2));   // Unable to spawn evil clone. Unable to spawn clone. Unable to spawn slave clone.
    return 0;
}

/*===================================
 * Main chat [LuzZza]
 * Usage: @main <on|off|message>
 *-----------------------------------*/
ACMD_FUNC(main)
{
    if (message[0]) {

        if (strcmpi(message, "on") == 0) {
            if (!sd->state.mainchat) {
                sd->state.mainchat = 1;
                clif_displaymessage(fd, msg_txt(380)); // Main chat has been activated.
            } else {
                clif_displaymessage(fd, msg_txt(381)); // Main chat already activated.
            }
        } else if (strcmpi(message, "off") == 0) {
            if (sd->state.mainchat) {
                sd->state.mainchat = 0;
                clif_displaymessage(fd, msg_txt(382)); // Main chat has been disabled.
            } else {
                clif_displaymessage(fd, msg_txt(383)); // Main chat already disabled.
            }
        } else {
            if (!sd->state.mainchat) {
                sd->state.mainchat = 1;
                clif_displaymessage(fd, msg_txt(380)); // Main chat has been activated.
            }
            if (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCHAT) {
                clif_displaymessage(fd, msg_txt(387));
                return -1;
            }

            if (battle_config.min_chat_delay) {
                if (DIFF_TICK(sd->cantalk_tick, gettick()) > 0)
                    return 0;
                sd->cantalk_tick = gettick() + battle_config.min_chat_delay;
            }

            // send the message using inter-server system
            intif_main_message(sd, message);
        }

    } else {

        if (sd->state.mainchat)
            clif_displaymessage(fd, msg_txt(384)); // Main chat currently enabled. Usage: @main <on|off>, @main <message>.
        else
            clif_displaymessage(fd, msg_txt(385)); // Main chat currently disabled. Usage: @main <on|off>, @main <message>.
    }
    return 0;
}

/*=====================================
 * Autorejecting Invites/Deals [LuzZza]
 * Usage: @noask
 *-------------------------------------*/
ACMD_FUNC(noask)
{
    if (sd->state.noask) {
        clif_displaymessage(fd, msg_txt(391)); // Autorejecting is deactivated.
        sd->state.noask = 0;
    } else {
        clif_displaymessage(fd, msg_txt(390)); // Autorejecting is activated.
        sd->state.noask = 1;
    }

    return 0;
}

/*=====================================
 * Send a @request message to all GMs of lowest_gm_level.
 * Usage: @request <petition>
 *-------------------------------------*/
ACMD_FUNC(request)
{
    if (!message || !*message) {
        clif_displaymessage(sd->fd,msg_txt(277));   // Usage: @request <petition/message to online GMs>.
        return -1;
    }

    sprintf(atcmd_output, msg_txt(278), message);   // (@request): %s
    intif_wis_message_to_gm(sd->status.name, PC_PERM_RECEIVE_REQUESTS, atcmd_output);
    clif_disp_onlyself(sd, atcmd_output, strlen(atcmd_output));
    clif_displaymessage(sd->fd,msg_txt(279));   // @request sent.
    return 0;
}

/*==========================================
 * Feel (SG save map) Reset [HiddenDragon]
 *------------------------------------------*/
ACMD_FUNC(feelreset)
{
    pc_resetfeel(sd);
    clif_displaymessage(fd, msg_txt(1324)); // Reset 'Feeling' maps.

    return 0;
}

/*==========================================
 * AUCTION SYSTEM
 *------------------------------------------*/
ACMD_FUNC(auction)
{
    nullpo_ret(sd);

    clif_Auction_openwindow(sd);

    return 0;
}

/*==========================================
 * Kill Steal Protection
 *------------------------------------------*/
ACMD_FUNC(ksprotection)
{
    nullpo_retr(-1,sd);

    if (sd->state.noks) {
        sd->state.noks = 0;
        clif_displaymessage(fd, msg_txt(1325)); // [ K.S Protection Inactive ]
    } else {
        if (!message || !*message || !strcmpi(message, "party")) {
            // Default is Party
            sd->state.noks = 2;
            clif_displaymessage(fd, msg_txt(1326)); // [ K.S Protection Active - Option: Party ]
        } else if (!strcmpi(message, "self")) {
            sd->state.noks = 1;
            clif_displaymessage(fd, msg_txt(1327)); // [ K.S Protection Active - Option: Self ]
        } else if (!strcmpi(message, "guild")) {
            sd->state.noks = 3;
            clif_displaymessage(fd, msg_txt(1328)); // [ K.S Protection Active - Option: Guild ]
        } else
            clif_displaymessage(fd, msg_txt(1329)); // Usage: @noks <self|party|guild>
    }
    return 0;
}
/*==========================================
 * Map Kill Steal Protection Setting
 *------------------------------------------*/
ACMD_FUNC(allowks)
{
    nullpo_retr(-1,sd);

    if (map[sd->bl.m].flag.allowks) {
        map[sd->bl.m].flag.allowks = 0;
        clif_displaymessage(fd, msg_txt(1330)); // [ Map K.S Protection Active ]
    } else {
        map[sd->bl.m].flag.allowks = 1;
        clif_displaymessage(fd, msg_txt(1331)); // [ Map K.S Protection Inactive ]
    }
    return 0;
}

ACMD_FUNC(resetstat)
{
    nullpo_retr(-1, sd);

    pc_resetstate(sd);
    sprintf(atcmd_output, msg_txt(207), sd->status.name);
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

ACMD_FUNC(resetskill)
{
    nullpo_retr(-1,sd);

    pc_resetskill(sd,1);
    sprintf(atcmd_output, msg_txt(206), sd->status.name);
    clif_displaymessage(fd, atcmd_output);
    return 0;
}

/*==========================================
 * #storagelist: Displays the items list of a player's storage.
 * #cartlist: Displays contents of target's cart.
 * #itemlist: Displays contents of target's inventory.
 *------------------------------------------*/
ACMD_FUNC(itemlist)
{
    int i, j, count, counter;
    const char *location;
    const struct item *items;
    int size;
    StringBuf buf;

    nullpo_retr(-1, sd);

    if (strcmp(command+1, "storagelist") == 0) {
        location = "storage";
        items = sd->status.storage.items;
        size = MAX_STORAGE;
    } else if (strcmp(command+1, "cartlist") == 0) {
        location = "cart";
        items = sd->status.cart;
        size = MAX_CART;
    } else if (strcmp(command+1, "itemlist") == 0) {
        location = "inventory";
        items = sd->status.inventory;
        size = MAX_INVENTORY;
    } else
        return 1;

    StringBuf_Init(&buf);

    count = 0; // total slots occupied
    counter = 0; // total items found
    for (i = 0; i < size; ++i) {
        const struct item *it = &items[i];
        struct item_data *itd;

        if (it->nameid == 0 || (itd = itemdb_exists(it->nameid)) == NULL)
            continue;

        counter += it->amount;
        count++;

        if (count == 1) {
            StringBuf_Printf(&buf, msg_txt(1332), location, sd->status.name); // ------ %s items list of '%s' ------
            clif_displaymessage(fd, StringBuf_Value(&buf));
            StringBuf_Clear(&buf);
        }

        if (it->refine)
            StringBuf_Printf(&buf, "%d %s %+d (%s, id: %d)", it->amount, itd->jname, it->refine, itd->name, it->nameid);
        else
            StringBuf_Printf(&buf, "%d %s (%s, id: %d)", it->amount, itd->jname, itd->name, it->nameid);

        if (it->equip) {
            char equipstr[CHAT_SIZE_MAX];
            strcpy(equipstr, msg_txt(1333)); //  | equipped:
            if (it->equip & EQP_GARMENT)
                strcat(equipstr, msg_txt(1334)); // garment,
            if (it->equip & EQP_ACC_L)
                strcat(equipstr, msg_txt(1335)); // left accessory,
            if (it->equip & EQP_ARMOR)
                strcat(equipstr, msg_txt(1336)); // body/armor,
            if ((it->equip & EQP_ARMS) == EQP_HAND_R)
                strcat(equipstr, msg_txt(1337)); // right hand,
            if ((it->equip & EQP_ARMS) == EQP_HAND_L)
                strcat(equipstr, msg_txt(1338)); // left hand,
            if ((it->equip & EQP_ARMS) == EQP_ARMS)
                strcat(equipstr, msg_txt(1339)); // both hands,
            if (it->equip & EQP_SHOES)
                strcat(equipstr, msg_txt(1340)); // feet,
            if (it->equip & EQP_ACC_R)
                strcat(equipstr, msg_txt(1341)); // right accessory,
            if ((it->equip & EQP_HELM) == EQP_HEAD_LOW)
                strcat(equipstr, msg_txt(1342)); // lower head,
            if ((it->equip & EQP_HELM) == EQP_HEAD_TOP)
                strcat(equipstr, msg_txt(1343)); // top head,
            if ((it->equip & EQP_HELM) == (EQP_HEAD_LOW|EQP_HEAD_TOP))
                strcat(equipstr, msg_txt(1344)); // lower/top head,
            if ((it->equip & EQP_HELM) == EQP_HEAD_MID)
                strcat(equipstr, msg_txt(1345)); // mid head,
            if ((it->equip & EQP_HELM) == (EQP_HEAD_LOW|EQP_HEAD_MID))
                strcat(equipstr, msg_txt(1346)); // lower/mid head,
            if ((it->equip & EQP_HELM) == EQP_HELM)
                strcat(equipstr, msg_txt(1347)); // lower/mid/top head,
            // remove final ', '
            equipstr[strlen(equipstr) - 2] = '\0';
            StringBuf_AppendStr(&buf, equipstr);
        }

        clif_displaymessage(fd, StringBuf_Value(&buf));
        StringBuf_Clear(&buf);

        if (it->card[0] == CARD0_PET) {
            // pet egg
            if (it->card[3])
                StringBuf_Printf(&buf, msg_txt(1348), (unsigned int)MakeDWord(it->card[1], it->card[2])); //  -> (pet egg, pet id: %u, named)
            else
                StringBuf_Printf(&buf, msg_txt(1349), (unsigned int)MakeDWord(it->card[1], it->card[2])); //  -> (pet egg, pet id: %u, unnamed)
        } else if (it->card[0] == CARD0_FORGE) {
            // forged item
            StringBuf_Printf(&buf, msg_txt(1350), (unsigned int)MakeDWord(it->card[2], it->card[3]), it->card[1]>>8, it->card[1]&0x0f); //  -> (crafted item, creator id: %u, star crumbs %d, element %d)
        } else if (it->card[0] == CARD0_CREATE) {
            // created item
            StringBuf_Printf(&buf, msg_txt(1351), (unsigned int)MakeDWord(it->card[2], it->card[3])); //  -> (produced item, creator id: %u)
        } else {
            // normal item
            int counter2 = 0;

            for (j = 0; j < itd->slot; ++j) {
                struct item_data *card;

                if (it->card[j] == 0 || (card = itemdb_exists(it->card[j])) == NULL)
                    continue;

                counter2++;

                if (counter2 == 1)
                    StringBuf_AppendStr(&buf, msg_txt(1352)); //  -> (card(s):

                if (counter2 != 1)
                    StringBuf_AppendStr(&buf, ", ");

                StringBuf_Printf(&buf, "#%d %s (id: %d)", counter2, card->jname, card->nameid);
            }

            if (counter2 > 0)
                StringBuf_AppendStr(&buf, ")");
        }

        if (StringBuf_Length(&buf) > 0)
            clif_displaymessage(fd, StringBuf_Value(&buf));

        StringBuf_Clear(&buf);
    }

    if (count == 0)
        StringBuf_Printf(&buf, msg_txt(1353), location); // No item found in this player's %s.
    else
        StringBuf_Printf(&buf, msg_txt(1354), counter, count, location); // %d item(s) found in %d %s slots.

    clif_displaymessage(fd, StringBuf_Value(&buf));

    StringBuf_Destroy(&buf);

    return 0;
}

ACMD_FUNC(stats)
{
    char job_jobname[100];
    char output[CHAT_SIZE_MAX];
    int i;
    struct {
        const char *format;
        int value;
    } output_table[] = {
        { "Base Level - %d", 0 },
        { NULL, 0 },
        { "Hp - %d", 0 },
        { "MaxHp - %d", 0 },
        { "Sp - %d", 0 },
        { "MaxSp - %d", 0 },
        { "Str - %3d", 0 },
        { "Agi - %3d", 0 },
        { "Vit - %3d", 0 },
        { "Int - %3d", 0 },
        { "Dex - %3d", 0 },
        { "Luk - %3d", 0 },
        { "Zeny - %d", 0 },
        { "Free SK Points - %d", 0 },
        { "JobChangeLvl (2nd) - %d", 0 },
        { "JobChangeLvl (3rd) - %d", 0 },
        { NULL, 0 }
    };

    memset(job_jobname, '\0', sizeof(job_jobname));
    memset(output, '\0', sizeof(output));

    //direct array initialization with variables is not standard C compliant.
    output_table[0].value = sd->status.base_level;
    output_table[1].format = job_jobname;
    output_table[1].value = sd->status.job_level;
    output_table[2].value = sd->status.hp;
    output_table[3].value = sd->status.max_hp;
    output_table[4].value = sd->status.sp;
    output_table[5].value = sd->status.max_sp;
    output_table[6].value = sd->status.str;
    output_table[7].value = sd->status.agi;
    output_table[8].value = sd->status.vit;
    output_table[9].value = sd->status.int_;
    output_table[10].value = sd->status.dex;
    output_table[11].value = sd->status.luk;
    output_table[12].value = sd->status.zeny;
    output_table[13].value = sd->status.skill_point;
    output_table[14].value = sd->change_level_2nd;
    output_table[15].value = sd->change_level_3rd;

    sprintf(job_jobname, "Job - %s %s", job_name(sd->status.class_), "(level %d)");
    sprintf(output, msg_txt(53), sd->status.name); // '%s' stats:

    clif_displaymessage(fd, output);

    for (i = 0; output_table[i].format != NULL; i++) {
        sprintf(output, output_table[i].format, output_table[i].value);
        clif_displaymessage(fd, output);
    }

    return 0;
}

ACMD_FUNC(delitem)
{
    char item_name[100];
    int nameid, amount = 0, total, idx;
    struct item_data *id;

    nullpo_retr(-1, sd);

    if (!message || !*message || (sscanf(message, "\"%99[^\"]\" %d", item_name, &amount) < 2 && sscanf(message, "%99s %d", item_name, &amount) < 2) || amount < 1) {
        clif_displaymessage(fd, msg_txt(1355)); // Please enter an item name/ID, a quantity, and a player name (usage: #delitem <player> <item_name_or_ID> <quantity>).
        return -1;
    }

    if ((id = itemdb_searchname(item_name)) != NULL || (id = itemdb_exists(atoi(item_name))) != NULL) {
        nameid = id->nameid;
    } else {
        clif_displaymessage(fd, msg_txt(19)); // Invalid item ID or name.
        return -1;
    }

    total = amount;

    // delete items
    while (amount && (idx = pc_search_inventory(sd, nameid)) != -1) {
        int delamount = (amount < sd->status.inventory[idx].amount) ? amount : sd->status.inventory[idx].amount;

        if (sd->inventory_data[idx]->type == IT_PETEGG && sd->status.inventory[idx].card[0] == CARD0_PET) {
            // delete pet
            intif_delete_petdata(MakeDWord(sd->status.inventory[idx].card[1], sd->status.inventory[idx].card[2]));
        }
        pc_delitem(sd, idx, delamount, 0, 0, LOG_TYPE_COMMAND);

        amount-= delamount;
    }

    // notify target
    sprintf(atcmd_output, msg_txt(113), total-amount); // %d item(s) removed by a GM.
    clif_displaymessage(sd->fd, atcmd_output);

    // notify source
    if (amount == total) {
        clif_displaymessage(fd, msg_txt(116)); // Character does not have the item.
    } else if (amount) {
        sprintf(atcmd_output, msg_txt(115), total-amount, total-amount, total); // %d item(s) removed. Player had only %d on %d items.
        clif_displaymessage(fd, atcmd_output);
    } else {
        sprintf(atcmd_output, msg_txt(114), total); // %d item(s) removed from the player.
        clif_displaymessage(fd, atcmd_output);
    }

    return 0;
}

/*==========================================
 * Custom Fonts
 *------------------------------------------*/
ACMD_FUNC(font)
{
    int font_id;
    nullpo_retr(-1,sd);

    font_id = atoi(message);
    if (font_id == 0) {
        if (sd->user_font) {
            sd->user_font = 0;
            clif_displaymessage(fd, msg_txt(1356)); // Returning to normal font.
            clif_font(sd);
        } else {
            clif_displaymessage(fd, msg_txt(1357)); // Use @font <1-9> to change your message font.
            clif_displaymessage(fd, msg_txt(1358)); // Use 0 or no parameter to return to normal font.
        }
    } else if (font_id < 0 || font_id > 9)
        clif_displaymessage(fd, msg_txt(1359)); // Invalid font. Use a value from 0 to 9.
    else if (font_id != sd->user_font) {
        sd->user_font = font_id;
        clif_font(sd);
        clif_displaymessage(fd, msg_txt(1360)); // Font changed.
    } else
        clif_displaymessage(fd, msg_txt(1361)); // Already using this font.

    return 0;
}

/*==========================================
 * type: 1 = commands (@), 2 = charcommands (#)
 *------------------------------------------*/
static void atcommand_commands_sub(struct map_session_data *sd, const int fd, AtCommandType type)
{
    char line_buff[CHATBOX_SIZE];
    char *cur = line_buff;
    AtCommandInfo *cmd;
    DBIterator *iter = db_iterator(atcommand_db);
    int count = 0;

    memset(line_buff,' ',CHATBOX_SIZE);
    line_buff[CHATBOX_SIZE-1] = 0;

    clif_displaymessage(fd, msg_txt(273)); // "Commands available:"

    for (cmd = dbi_first(iter); dbi_exists(iter); cmd = dbi_next(iter)) {
        unsigned int slen = 0;

        switch (type) {
            case COMMAND_CHARCOMMAND:
                if (cmd->char_groups[sd->group_pos] == 0)
                    continue;
                break;
            case COMMAND_ATCOMMAND:
                if (cmd->at_groups[sd->group_pos] == 0)
                    continue;
                break;
            default:
                continue;
        }


        slen = strlen(cmd->command);

        // flush the text buffer if this command won't fit into it
        if (slen + cur - line_buff >= CHATBOX_SIZE) {
            clif_displaymessage(fd,line_buff);
            cur = line_buff;
            memset(line_buff,' ',CHATBOX_SIZE);
            line_buff[CHATBOX_SIZE-1] = 0;
        }

        memcpy(cur,cmd->command,slen);
        cur += slen+(10-slen%10);

        count++;
    }
    dbi_destroy(iter);
    clif_displaymessage(fd,line_buff);

    sprintf(atcmd_output, msg_txt(274), count); // "%d commands found."
    clif_displaymessage(fd, atcmd_output);

    return;
}

/*==========================================
 * @commands Lists available @ commands to you
 *------------------------------------------*/
ACMD_FUNC(commands)
{
    atcommand_commands_sub(sd, fd, COMMAND_ATCOMMAND);
    return 0;
}

/*==========================================
 * @charcommands Lists available # commands to you
 *------------------------------------------*/
ACMD_FUNC(charcommands)
{
    atcommand_commands_sub(sd, fd, COMMAND_CHARCOMMAND);
    return 0;
}
/* for new mounts */
ACMD_FUNC(mount2)
{

    clif_displaymessage(sd->fd,msg_txt(1362)); // NOTICE: If you crash with mount your LUA is outdated.
    if (!(sd->sc.option&OPTION_MOUNTING)) {
        clif_displaymessage(sd->fd,msg_txt(1363)); // You have mounted.
        pc_setoption(sd, sd->sc.option|OPTION_MOUNTING);
    } else {
        clif_displaymessage(sd->fd,msg_txt(1364)); // You have released your mount.
        pc_setoption(sd, sd->sc.option&~OPTION_MOUNTING);
    }
    return 0;
}

ACMD_FUNC(accinfo)
{
    char query[NAME_LENGTH];

    if (!message || !*message || strlen(message) > NAME_LENGTH) {
        clif_displaymessage(fd, msg_txt(1365)); // Usage: @accinfo/@accountinfo <account_id/char name>
        clif_displaymessage(fd, msg_txt(1366)); // You may search partial name by making use of '%' in the search, ex. "@accinfo %Mario%" lists all characters whose name contains "Mario".
        return -1;
    }

    //remove const type
    safestrncpy(query, message, NAME_LENGTH);

    intif_request_accinfo(sd->fd, sd->bl.id, sd->group_id, query);

    return 0;
}

/* [Ind] */
ACMD_FUNC(set)
{
    char reg[32], val[128];
    struct script_data *data;
    int toset = 0;
    bool is_str = false;

    if (!message || !*message || (toset = sscanf(message, "%32s %128[^\n]s", reg, val)) < 1) {
        clif_displaymessage(fd, msg_txt(1367)); // Usage: @set <variable name> <value>
        clif_displaymessage(fd, msg_txt(1368)); // Usage: ex. "@set PoringCharVar 50"
        clif_displaymessage(fd, msg_txt(1369)); // Usage: ex. "@set PoringCharVarSTR$ Super Duper String"
        clif_displaymessage(fd, msg_txt(1370)); // Usage: ex. "@set PoringCharVarSTR$" outputs its value, Super Duper String.
        return -1;
    }

    /* disabled variable types (they require a proper script state to function, so allowing them would crash the server) */
    if (reg[0] == '.') {
        clif_displaymessage(fd, msg_txt(1371)); // NPC variables may not be used with @set.
        return -1;
    } else if (reg[0] == '\'') {
        clif_displaymessage(fd, msg_txt(1372)); // Instance variables may not be used with @set.
        return -1;
    }

    is_str = (reg[strlen(reg) - 1] == '$') ? true : false;

    if (toset >= 2) { /* we only set the var if there is an val, otherwise we only output the value */
        if (is_str)
            set_var(sd, reg, (void *) val);
        else
            set_var(sd, reg, (void *)__64BPRTSIZE((int)(atoi(val))));

    }

    CREATE(data, struct script_data,1);


    if (is_str) { // string variable

        switch (reg[0]) {
            case '@':
                data->u.str = pc_readregstr(sd, add_str(reg));
                break;
            case '$':
                data->u.str = mapreg_readregstr(add_str(reg));
                break;
            case '#':
                if (reg[1] == '#')
                    data->u.str = pc_readaccountreg2str(sd, reg);// global
                else
                    data->u.str = pc_readaccountregstr(sd, reg);// local
                break;
            default:
                data->u.str = pc_readglobalreg_str(sd, reg);
                break;
        }

        if (data->u.str == NULL || data->u.str[0] == '\0') { // empty string
            data->type = C_CONSTSTR;
            data->u.str = "";
        } else {// duplicate string
            data->type = C_STR;
            data->u.str = aStrdup(data->u.str);
        }

    } else {// integer variable

        data->type = C_INT;
        switch (reg[0]) {
            case '@':
                data->u.num = pc_readreg(sd, add_str(reg));
                break;
            case '$':
                data->u.num = mapreg_readreg(add_str(reg));
                break;
            case '#':
                if (reg[1] == '#')
                    data->u.num = pc_readaccountreg2(sd, reg);// global
                else
                    data->u.num = pc_readaccountreg(sd, reg);// local
                break;
            default:
                data->u.num = pc_readglobalreg(sd, reg);
                break;
        }

    }


    switch (data->type) {
        case C_INT:
            sprintf(atcmd_output,msg_txt(1373),reg,data->u.num); // %s value is now :%d
            break;
        case C_STR:
            sprintf(atcmd_output,msg_txt(1374),reg,data->u.str); // %s value is now :%s
            break;
        case C_CONSTSTR:
            sprintf(atcmd_output,msg_txt(1375),reg); // %s is empty
            break;
        default:
            sprintf(atcmd_output,msg_txt(1376),reg,data->type); // %s data type is not supported :%u
            break;
    }

    clif_displaymessage(fd, atcmd_output);

    aFree(data);

    return 0;
}
ACMD_FUNC(reloadquestdb)
{
    do_reload_quest();
    clif_displaymessage(fd, msg_txt(1377)); // Quest database has been reloaded.
    return 0;
}
ACMD_FUNC(addperm)
{
    int perm_size = ARRAYLENGTH(pc_g_permission_name);
    bool add = (strcmpi(command+1, "addperm") == 0) ? true : false;
    int i;

    if (!message || !*message) {
        sprintf(atcmd_output,  msg_txt(1378),command); // Usage: %s <permission_name>
        clif_displaymessage(fd, atcmd_output);
        clif_displaymessage(fd, msg_txt(1379)); // -- Permission List
        for (i = 0; i < perm_size; i++) {
            sprintf(atcmd_output,"- %s",pc_g_permission_name[i].name);
            clif_displaymessage(fd, atcmd_output);
        }
        return -1;
    }

    ARR_FIND(0, perm_size, i, strcmpi(pc_g_permission_name[i].name, message) == 0);

    if (i == perm_size) {
        sprintf(atcmd_output,msg_txt(1380),message); // '%s' is not a known permission.
        clif_displaymessage(fd, atcmd_output);
        clif_displaymessage(fd, msg_txt(1379)); // -- Permission List
        for (i = 0; i < perm_size; i++) {
            sprintf(atcmd_output,"- %s",pc_g_permission_name[i].name);
            clif_displaymessage(fd, atcmd_output);
        }
        return -1;
    }

    if (add && (sd->permissions&pc_g_permission_name[i].permission)) {
        sprintf(atcmd_output,  msg_txt(1381),sd->status.name,pc_g_permission_name[i].name); // User '%s' already possesses the '%s' permission.
        clif_displaymessage(fd, atcmd_output);
        return -1;
    } else if (!add && !(sd->permissions&pc_g_permission_name[i].permission)) {
        sprintf(atcmd_output,  msg_txt(1382),sd->status.name,pc_g_permission_name[i].name); // User '%s' doesn't possess the '%s' permission.
        clif_displaymessage(fd, atcmd_output);
        sprintf(atcmd_output,msg_txt(1383),sd->status.name); // -- User '%s' Permissions
        clif_displaymessage(fd, atcmd_output);
        for (i = 0; i < perm_size; i++) {
            if (sd->permissions&pc_g_permission_name[i].permission) {
                sprintf(atcmd_output,"- %s",pc_g_permission_name[i].name);
                clif_displaymessage(fd, atcmd_output);
            }
        }

        return -1;
    }

    if (add)
        sd->permissions |= pc_g_permission_name[i].permission;
    else
        sd->permissions &=~ pc_g_permission_name[i].permission;


    sprintf(atcmd_output, msg_txt(1384),sd->status.name); // User '%s' permissions updated successfully. The changes are temporary.
    clif_displaymessage(fd, atcmd_output);

    return 0;
}
ACMD_FUNC(unloadnpcfile)
{

    if (!message || !*message) {
        clif_displaymessage(fd, msg_txt(1385)); // Usage: @unloadnpcfile <file name>
        return -1;
    }

    if (npc_unloadfile(message))
        clif_displaymessage(fd, msg_txt(1386)); // File unloaded. Be aware that mapflags and monsters spawned directly are not removed.
    else {
        clif_displaymessage(fd, msg_txt(1387)); // File not found.
        return -1;
    }
    return 0;
}
ACMD_FUNC(cart)
{
#define MC_CART_MDFY(x) \
    sd->status.skill[MC_PUSHCART].id = x?MC_PUSHCART:0; \
    sd->status.skill[MC_PUSHCART].lv = x?1:0; \
    sd->status.skill[MC_PUSHCART].flag = x?1:0;

    int val = atoi(message);
    bool need_skill = pc_checkskill(sd, MC_PUSHCART) ? false : true;

    if (!message || !*message || val < 0 || val > MAX_CARTS) {
        sprintf(atcmd_output, msg_txt(1390),command,MAX_CARTS); // Unknown Cart (usage: %s <0-%d>).
        clif_displaymessage(fd, atcmd_output);
        return -1;
    }

    if (val == 0 && !pc_iscarton(sd)) {
        clif_displaymessage(fd, msg_txt(1391)); // You do not possess a cart to be removed
        return -1;
    }

    if (need_skill) {
        MC_CART_MDFY(1);
    }

    if (pc_setcart(sd, val)) {
        if (need_skill) {
            MC_CART_MDFY(0);
        }
        return -1;/* @cart failed */
    }

    if (need_skill) {
        MC_CART_MDFY(0);
    }

    clif_displaymessage(fd, msg_txt(1392)); // Cart Added

    return 0;
#undef MC_CART_MDFY
}

/**
 * Fills the reference of available commands in atcommand DBMap
 **/
#define ACMD_DEF(x) { #x, atcommand_ ## x, NULL, NULL }
#define ACMD_DEF2(x2, x) { x2, atcommand_ ## x, NULL, NULL }
void atcommand_basecommands(void)
{
    /**
     * Command reference list, place the base of your commands here
     **/
    AtCommandInfo atcommand_base[] = {
        ACMD_DEF2("warp", mapmove),
        ACMD_DEF(where),
        ACMD_DEF(jumpto),
        ACMD_DEF(jump),
        ACMD_DEF(who),
        ACMD_DEF2("who2", who),
        ACMD_DEF2("who3", who),
        ACMD_DEF2("whomap", who),
        ACMD_DEF2("whomap2", who),
        ACMD_DEF2("whomap3", who),
        ACMD_DEF(whogm),
        ACMD_DEF(save),
        ACMD_DEF(load),
        ACMD_DEF(speed),
        ACMD_DEF(storage),
        ACMD_DEF(guildstorage),
        ACMD_DEF(option),
        ACMD_DEF(hide), // + /hide
        ACMD_DEF(jobchange),
        ACMD_DEF(kill),
        ACMD_DEF(alive),
        ACMD_DEF(kami),
        ACMD_DEF2("kamib", kami),
        ACMD_DEF2("kamic", kami),
        ACMD_DEF2("lkami", kami),
        ACMD_DEF(heal),
        ACMD_DEF(item),
        ACMD_DEF(item2),
        ACMD_DEF(itemreset),
        ACMD_DEF2("blvl", baselevelup),
        ACMD_DEF2("jlvl", joblevelup),
        ACMD_DEF(help),
        ACMD_DEF(pvpoff),
        ACMD_DEF(pvpon),
        ACMD_DEF(gvgoff),
        ACMD_DEF(gvgon),
        ACMD_DEF(model),
        ACMD_DEF(go),
        ACMD_DEF(monster),
        ACMD_DEF2("monstersmall", monster),
        ACMD_DEF2("monsterbig", monster),
        ACMD_DEF(killmonster),
        ACMD_DEF2("killmonster2", killmonster),
        ACMD_DEF(refine),
        ACMD_DEF(produce),
        ACMD_DEF(memo),
        ACMD_DEF(gat),
        ACMD_DEF(displaystatus),
        ACMD_DEF2("stpoint", statuspoint),
        ACMD_DEF2("skpoint", skillpoint),
        ACMD_DEF(zeny),
        ACMD_DEF2("str", param),
        ACMD_DEF2("agi", param),
        ACMD_DEF2("vit", param),
        ACMD_DEF2("int", param),
        ACMD_DEF2("dex", param),
        ACMD_DEF2("luk", param),
        ACMD_DEF2("glvl", guildlevelup),
        ACMD_DEF(makeegg),
        ACMD_DEF(hatch),
        ACMD_DEF(petfriendly),
        ACMD_DEF(pethungry),
        ACMD_DEF(petrename),
        ACMD_DEF(recall), // + /recall
        ACMD_DEF(night),
        ACMD_DEF(day),
        ACMD_DEF(doom),
        ACMD_DEF(doommap),
        ACMD_DEF(raise),
        ACMD_DEF(raisemap),
        ACMD_DEF(kick), // + right click menu for GM "(name) force to quit"
        ACMD_DEF(kickall),
        ACMD_DEF(allskill),
        ACMD_DEF(questskill),
        ACMD_DEF(lostskill),
        ACMD_DEF(spiritball),
        ACMD_DEF(party),
        ACMD_DEF(guild),
        ACMD_DEF(agitstart),
        ACMD_DEF(agitend),
        ACMD_DEF(mapexit),
        ACMD_DEF(idsearch),
        ACMD_DEF(broadcast), // + /b and /nb
        ACMD_DEF(localbroadcast), // + /lb and /nlb
        ACMD_DEF(recallall),
        ACMD_DEF(reloaditemdb),
        ACMD_DEF(reloadmobdb),
        ACMD_DEF(reloadskilldb),
        ACMD_DEF(reloadscript),
        ACMD_DEF(reloadatcommand),
        ACMD_DEF(reloadbattleconf),
        ACMD_DEF(reloadstatusdb),
        ACMD_DEF(reloadpcdb),
        ACMD_DEF(reloadmotd),
        ACMD_DEF(mapinfo),
        ACMD_DEF(dye),
        ACMD_DEF2("hairstyle", hair_style),
        ACMD_DEF2("haircolor", hair_color),
        ACMD_DEF2("allstats", stat_all),
        ACMD_DEF2("block", char_block),
        ACMD_DEF2("ban", char_ban),
        ACMD_DEF2("unblock", char_unblock),
        ACMD_DEF2("unban", char_unban),
        ACMD_DEF2("mount", mount_peco),
        ACMD_DEF(guildspy),
        ACMD_DEF(partyspy),
        ACMD_DEF(repairall),
        ACMD_DEF(guildrecall),
        ACMD_DEF(partyrecall),
        ACMD_DEF(nuke),
        ACMD_DEF(shownpc),
        ACMD_DEF(hidenpc),
        ACMD_DEF(loadnpc),
        ACMD_DEF(unloadnpc),
        ACMD_DEF2("time", servertime),
        ACMD_DEF(jail),
        ACMD_DEF(unjail),
        ACMD_DEF(jailfor),
        ACMD_DEF(jailtime),
        ACMD_DEF(disguise),
        ACMD_DEF(undisguise),
        ACMD_DEF(email),
        ACMD_DEF(effect),
        ACMD_DEF(follow),
        ACMD_DEF(addwarp),
        ACMD_DEF(skillon),
        ACMD_DEF(skilloff),
        ACMD_DEF(killer),
        ACMD_DEF(npcmove),
        ACMD_DEF(killable),
        ACMD_DEF(dropall),
        ACMD_DEF(storeall),
        ACMD_DEF(skillid),
        ACMD_DEF(useskill),
        ACMD_DEF(displayskill),
        ACMD_DEF(snow),
        ACMD_DEF(sakura),
        ACMD_DEF(clouds),
        ACMD_DEF(clouds2),
        ACMD_DEF(fog),
        ACMD_DEF(fireworks),
        ACMD_DEF(leaves),
        ACMD_DEF(summon),
        ACMD_DEF(adjgroup),
        ACMD_DEF(trade),
        ACMD_DEF(send),
        ACMD_DEF(setbattleflag),
        ACMD_DEF(unmute),
        ACMD_DEF(clearweather),
        ACMD_DEF(uptime),
        ACMD_DEF(changesex),
        ACMD_DEF(mute),
        ACMD_DEF(refresh),
        ACMD_DEF(identify),
        ACMD_DEF(gmotd),
        ACMD_DEF(misceffect),
        ACMD_DEF(mobsearch),
        ACMD_DEF(cleanmap),
        ACMD_DEF(npctalk),
        ACMD_DEF(pettalk),
        ACMD_DEF(users),
        ACMD_DEF(reset),
        ACMD_DEF(skilltree),
        ACMD_DEF(marry),
        ACMD_DEF(divorce),
        ACMD_DEF(sound),
        ACMD_DEF(undisguiseall),
        ACMD_DEF(disguiseall),
        ACMD_DEF(changelook),
        ACMD_DEF(autoloot),
        ACMD_DEF2("alootid", autolootitem),
        ACMD_DEF(mobinfo),
        ACMD_DEF(exp),
        ACMD_DEF(adopt),
        ACMD_DEF(version),
        ACMD_DEF(mutearea),
        ACMD_DEF(rates),
        ACMD_DEF(iteminfo),
        ACMD_DEF(whodrops),
        ACMD_DEF(whereis),
        ACMD_DEF(mapflag),
        ACMD_DEF(me),
        ACMD_DEF(monsterignore),
        ACMD_DEF(fakename),
        ACMD_DEF(size),
        ACMD_DEF(showexp),
        ACMD_DEF(showzeny),
        ACMD_DEF(showdelay),
        ACMD_DEF(autotrade),
        ACMD_DEF(changegm),
        ACMD_DEF(changeleader),
        ACMD_DEF(partyoption),
        ACMD_DEF(invite),
        ACMD_DEF(duel),
        ACMD_DEF(leave),
        ACMD_DEF(accept),
        ACMD_DEF(reject),
        ACMD_DEF(main),
        ACMD_DEF(clone),
        ACMD_DEF2("slaveclone", clone),
        ACMD_DEF2("evilclone", clone),
        ACMD_DEF(tonpc),
        ACMD_DEF(commands),
        ACMD_DEF(noask),
        ACMD_DEF(request),
        ACMD_DEF(homlevel),
        ACMD_DEF(homevolution),
        ACMD_DEF(makehomun),
        ACMD_DEF(homfriendly),
        ACMD_DEF(homhungry),
        ACMD_DEF(homtalk),
        ACMD_DEF(hominfo),
        ACMD_DEF(homstats),
        ACMD_DEF(homshuffle),
        ACMD_DEF(showmobs),
        ACMD_DEF(feelreset),
        ACMD_DEF(auction),
        ACMD_DEF(mail),
        ACMD_DEF2("noks", ksprotection),
        ACMD_DEF(allowks),
        ACMD_DEF(cash),
        ACMD_DEF2("points", cash),
        ACMD_DEF(agitstart2),
        ACMD_DEF(agitend2),
        ACMD_DEF2("skreset", resetskill),
        ACMD_DEF2("streset", resetstat),
        ACMD_DEF2("storagelist", itemlist),
        ACMD_DEF2("cartlist", itemlist),
        ACMD_DEF2("itemlist", itemlist),
        ACMD_DEF(stats),
        ACMD_DEF(delitem),
        ACMD_DEF(charcommands),
        ACMD_DEF(font),
        ACMD_DEF(accinfo),
        ACMD_DEF(set),
        ACMD_DEF(reloadquestdb),
        ACMD_DEF(undisguiseguild),
        ACMD_DEF(disguiseguild),
        ACMD_DEF(sizeall),
        ACMD_DEF(sizeguild),
        ACMD_DEF(addperm),
        ACMD_DEF2("rmvperm", addperm),
        ACMD_DEF(unloadnpcfile),
        ACMD_DEF(cart),
        ACMD_DEF(mount2)
    };
    AtCommandInfo *atcommand;
    int i;

    for (i = 0; i < ARRAYLENGTH(atcommand_base); i++) {
        if (atcommand_exists(atcommand_base[i].command)) { // Should not happen if atcommand_base[] array is OK
            ShowDebug("atcommand_basecommands: duplicate ACMD_DEF for '%s'.\n", atcommand_base[i].command);
            continue;
        }
        CREATE(atcommand, AtCommandInfo, 1);
        safestrncpy(atcommand->command, atcommand_base[i].command, sizeof(atcommand->command));
        atcommand->func = atcommand_base[i].func;
        strdb_put(atcommand_db, atcommand->command, atcommand);
    }
    return;
}

/*==========================================
 * Command lookup functions
 *------------------------------------------*/
bool atcommand_exists(const char *name)
{
    return strdb_exists(atcommand_db, name);
}

static AtCommandInfo *get_atcommandinfo_byname(const char *name)
{
    if (strdb_exists(atcommand_db, name))
        return (AtCommandInfo *)strdb_get(atcommand_db, name);
    return NULL;
}

static const char *atcommand_checkalias(const char *aliasname)
{
    AliasInfo *alias_info = NULL;
    if ((alias_info = (AliasInfo *)strdb_get(atcommand_alias_db, aliasname)) != NULL)
        return alias_info->command->command;
    return aliasname;
}

/// AtCommand suggestion
static void atcommand_get_suggestions(struct map_session_data *sd, const char *name, bool atcommand)
{
    DBIterator *atcommand_iter;
    DBIterator *alias_iter;
    AtCommandInfo *command_info = NULL;
    AliasInfo *alias_info = NULL;
    AtCommandType type = atcommand ? COMMAND_ATCOMMAND : COMMAND_CHARCOMMAND;
    char *full_match[MAX_SUGGESTIONS];
    char *suggestions[MAX_SUGGESTIONS];
    char *match;
    int prefix_count = 0, full_count = 0;
    bool can_use;

    if (!battle_config.atcommand_suggestions_enabled)
        return;

    atcommand_iter = db_iterator(atcommand_db);
    alias_iter = db_iterator(atcommand_alias_db);

    // Build the matches
    for (command_info = dbi_first(atcommand_iter); dbi_exists(atcommand_iter); command_info = dbi_next(atcommand_iter))     {
        match = strstr(command_info->command, name);
        can_use = pc_can_use_command(sd, command_info->command, type);
        if (prefix_count < MAX_SUGGESTIONS && match == command_info->command && can_use) {
            suggestions[prefix_count] = command_info->command;
            ++prefix_count;
        }
        if (full_count < MAX_SUGGESTIONS && match != NULL && match != command_info->command && can_use) {
            full_match[full_count] = command_info->command;
            ++full_count;
        }
    }

    for (alias_info = dbi_first(alias_iter); dbi_exists(alias_iter); alias_info = dbi_next(alias_iter)) {
        match = strstr(alias_info->alias, name);
        can_use = pc_can_use_command(sd, alias_info->command->command, type);
        if (prefix_count < MAX_SUGGESTIONS && match == alias_info->alias && can_use) {
            suggestions[prefix_count] = alias_info->alias;
            ++prefix_count;
        }
        if (full_count < MAX_SUGGESTIONS && match != NULL && match != alias_info->alias && can_use) {
            full_match[full_count] = alias_info->alias;
            ++full_count;
        }
    }

    if ((full_count+prefix_count) > 0) {
        char buffer[512];
        int i;

        // Merge full match and prefix match results
        if (prefix_count < MAX_SUGGESTIONS) {
            memmove(&suggestions[prefix_count], full_match, sizeof(char *) * (MAX_SUGGESTIONS-prefix_count));
            prefix_count = min(prefix_count+full_count, MAX_SUGGESTIONS);
        }

        // Build the suggestion string
        strcpy(buffer, msg_txt(205));
        strcat(buffer,"\n");

        for (i=0; i < prefix_count; ++i) {
            strcat(buffer,suggestions[i]);
            strcat(buffer," ");
        }

        clif_displaymessage(sd->fd, buffer);
    }

    dbi_destroy(atcommand_iter);
    dbi_destroy(alias_iter);
}

/// Executes an at-command.
bool is_atcommand(const int fd, struct map_session_data *sd, const char *message, int type)
{
    char charname[NAME_LENGTH], params[100];
    char charname2[NAME_LENGTH], params2[100];
    char command[100];
    char output[CHAT_SIZE_MAX];

    //Reconstructed message
    char atcmd_msg[CHAT_SIZE_MAX];

    TBL_PC *ssd = NULL;  //sd for target
    AtCommandInfo *info;

    nullpo_retr(false, sd);

    //Shouldn't happen
    if (!message || !*message)
        return false;

    //Block NOCHAT but do not display it as a normal message
    if (sd->sc.data[SC_NOCHAT] && sd->sc.data[SC_NOCHAT]->val1&MANNER_NOCOMMAND)
        return true;

    // skip 10/11-langtype's codepage indicator, if detected
    if (message[0] == '|' && strlen(message) >= 4 && (message[3] == atcommand_symbol || message[3] == charcommand_symbol))
        message += 3;

    //Should display as a normal message
    if (*message != atcommand_symbol && *message != charcommand_symbol)
        return false;

    // type value 0 = server invoked: bypass restrictions
    // 1 = player invoked
    if (type == 1) {
        //Commands are disabled on maps flagged as 'nocommand'
        if (map[sd->bl.m].nocommand && pc_get_group_level(sd) < map[sd->bl.m].nocommand) {
            clif_displaymessage(fd, msg_txt(143));
            return false;
        }
    }

    if (*message == charcommand_symbol) {
        do {
            int x, y, z;

            //Checks to see if #command has a name or a name + parameters.
            x = sscanf(message, "%99s \"%23[^\"]\" %99[^\n]", command, charname, params);
            y = sscanf(message, "%99s %23s %99[^\n]", command, charname2, params2);

            //z always has the value of the scan that was successful
            z = (x > 1) ? x : y;

            //#command + name means the sufficient target was used and anything else after
            //can be looked at by the actual command function since most scan to see if the
            //right parameters are used.
            if (x > 2) {
                sprintf(atcmd_msg, "%s %s", command, params);
                break;
            } else if (y > 2) {
                sprintf(atcmd_msg, "%s %s", command, params2);
                break;
            }
            //Regardless of what style the #command is used, if it's correct, it will always have
            //this value if there is no parameter. Send it as just the #command
            else if (z == 2) {
                sprintf(atcmd_msg, "%s", command);
                break;
            }

            if (!pc_get_group_level(sd)) {
                if (x >= 1 || y >= 1) {  /* we have command */
                    info = get_atcommandinfo_byname(atcommand_checkalias(command + 1));
                    if (!info || info->char_groups[sd->group_pos] == 0)  /* if we can't use or doesn't exist: don't even display the command failed message */
                        return false;
                } else
                    return false;/* display as normal message */
            }

            sprintf(output, msg_txt(1388), charcommand_symbol); // Charcommand failed (usage: %c<command> <char name> <parameters>).
            clif_displaymessage(fd, output);
            return true;
        } while (0);
    } else if (*message == atcommand_symbol) {
        //atcmd_msg is constructed above differently for charcommands
        //it's copied from message if not a charcommand so it can
        //pass through the rest of the code compatible with both symbols
        sprintf(atcmd_msg, "%s", message);
    }

    //Clearing these to be used once more.
    memset(command, '\0', sizeof(command));
    memset(params, '\0', sizeof(params));

    //check to see if any params exist within this command
    if (sscanf(atcmd_msg, "%99s %99[^\n]", command, params) < 2)
        params[0] = '\0';

    // @commands (script based)
    if (type == 1 && atcmd_binding_count > 0) {
        struct atcmd_binding_data *binding;

        // Check if the command initiated is a character command
        if (*message == charcommand_symbol &&
            (ssd = map_nick2sd(charname)) == NULL && (ssd = map_nick2sd(charname2)) == NULL) {
            sprintf(output, msg_txt(1389), command); // %s failed. Player not found.
            clif_displaymessage(fd, output);
            return true;
        }

        // Get atcommand binding
        binding = get_atcommandbind_byname(command);

        // Check if the binding isn't NULL and there is a NPC event, level of usage met, et cetera
        if (binding != NULL && binding->npc_event[0] &&
            ((*atcmd_msg == atcommand_symbol && pc_get_group_level(sd) >= binding->level) ||
             (*atcmd_msg == charcommand_symbol && pc_get_group_level(sd) >= binding->level2))) {
            // Check if self or character invoking; if self == character invoked, then self invoke.
            bool invokeFlag = ((*atcmd_msg == atcommand_symbol) ? 1 : 0);
            npc_do_atcmd_event((invokeFlag ? sd : ssd), command, params, binding->npc_event);
            return true;
        }
    }

    //Grab the command information and check for the proper GM level required to use it or if the command exists
    info = get_atcommandinfo_byname(atcommand_checkalias(command + 1));
    if (info == NULL) {
        if (pc_get_group_level(sd)) {  // TODO: remove or replace with proper permission
            sprintf(output, msg_txt(153), command); // "%s is Unknown Command."
            clif_displaymessage(fd, output);
            atcommand_get_suggestions(sd, command + 1, *message == atcommand_symbol);
            return true;
        } else
            return false;
    }

    // type == 1 : player invoked
    if (type == 1) {
        if ((*command == atcommand_symbol && info->at_groups[sd->group_pos] == 0) ||
            (*command == charcommand_symbol && info->char_groups[sd->group_pos] == 0)) {
            return false;
        }
        if (pc_isdead(sd) && pc_has_permission(sd,PC_PERM_DISABLE_CMD_DEAD)) {
            clif_displaymessage(fd, msg_txt(1393)); // You can't use commands while dead
            return true;
        }
    }

    // Check if target is valid only if confirmed that player can use command.
    if (*message == charcommand_symbol &&
        (ssd = map_nick2sd(charname)) == NULL && (ssd = map_nick2sd(charname2)) == NULL) {
        sprintf(output, msg_txt(1389), command); // %s failed. Player not found.
        clif_displaymessage(fd, output);
        return true;
    }

    //Attempt to use the command
    if ((info->func(fd, (*atcmd_msg == atcommand_symbol) ? sd : ssd, command, params) != 0)) {
        sprintf(output,msg_txt(154), command); // %s failed.
        clif_displaymessage(fd, output);
        return true;
    }

    //Log only if successful.
    if (*atcmd_msg == atcommand_symbol)
        log_atcommand(sd, atcmd_msg);
    else if (*atcmd_msg == charcommand_symbol)
        log_atcommand(sd, message);

    return true;
}

/*==========================================
 *
 *------------------------------------------*/
static void atcommand_config_read(const char *config_filename)
{
    config_setting_t *aliases = NULL, *help = NULL;
    const char *symbol = NULL;
    int num_aliases = 0;

    if (conf_read_file(&atcommand_config, config_filename))
        return;

    // Command symbols
    if (config_lookup_string(&atcommand_config, "atcommand_symbol", &symbol)) {
        if (ISPRINT(*symbol) && // no control characters
            *symbol != '/' && // symbol of client commands
            *symbol != '%' && // symbol of party chat
            *symbol != '$' && // symbol of guild chat
            *symbol != charcommand_symbol)
            atcommand_symbol = *symbol;
    }

    if (config_lookup_string(&atcommand_config, "charcommand_symbol", &symbol)) {
        if (ISPRINT(*symbol) && // no control characters
            *symbol != '/' && // symbol of client commands
            *symbol != '%' && // symbol of party chat
            *symbol != '$' && // symbol of guild chat
            *symbol != atcommand_symbol)
            charcommand_symbol = *symbol;
    }

    // Command aliases
    aliases = config_lookup(&atcommand_config, "aliases");
    if (aliases != NULL) {
        int i = 0;
        int count = config_setting_length(aliases);

        for (i = 0; i < count; ++i) {
            config_setting_t *command = NULL;
            const char *commandname = NULL;
            int j = 0, alias_count = 0;
            AtCommandInfo *commandinfo = NULL;

            command = config_setting_get_elem(aliases, i);
            if (config_setting_type(command) != CONFIG_TYPE_ARRAY)
                continue;
            commandname = config_setting_name(command);
            if (!atcommand_exists(commandname)) {
                ShowConfigWarning(command, "atcommand_config_read: can not set alias for non-existent command %s", commandname);
                continue;
            }
            commandinfo = get_atcommandinfo_byname(commandname);
            alias_count = config_setting_length(command);
            for (j = 0; j < alias_count; ++j) {
                const char *alias = config_setting_get_string_elem(command, j);
                if (alias != NULL) {
                    AliasInfo *alias_info;
                    if (strdb_exists(atcommand_alias_db, alias)) {
                        ShowConfigWarning(command, "atcommand_config_read: alias %s already exists", alias);
                        continue;
                    }
                    CREATE(alias_info, AliasInfo, 1);
                    alias_info->command = commandinfo;
                    safestrncpy(alias_info->alias, alias, sizeof(alias_info->alias));
                    strdb_put(atcommand_alias_db, alias, alias_info);
                    ++num_aliases;
                }
            }
        }
    }

    // Commands help
    // We only check if all commands exist
    help = config_lookup(&atcommand_config, "help");
    if (help != NULL) {
        int count = config_setting_length(help);
        int i;

        for (i = 0; i < count; ++i) {
            config_setting_t *command = NULL;
            const char *commandname = NULL;

            command = config_setting_get_elem(help, i);
            commandname = config_setting_name(command);
            if (!atcommand_exists(commandname))
                ShowConfigWarning(command, "atcommand_config_read: command %s does not exist", commandname);
        }
    }

    ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' command aliases in '"CL_WHITE"%s"CL_RESET"'.\n", num_aliases, config_filename);
    return;
}
void atcommand_db_load_groups(int *group_ids)
{
    DBIterator *iter = db_iterator(atcommand_db);
    AtCommandInfo *cmd;
    int i;

    for (cmd = dbi_first(iter); dbi_exists(iter); cmd = dbi_next(iter)) {
        cmd->at_groups = aMalloc(pc_group_max * sizeof(char));
        cmd->char_groups = aMalloc(pc_group_max * sizeof(char));
        for (i = 0; i < pc_group_max; i++) {
            if (pc_group_can_use_command(group_ids[i], cmd->command, COMMAND_ATCOMMAND))
                cmd->at_groups[i] = 1;
            else
                cmd->at_groups[i] = 0;
            if (pc_group_can_use_command(group_ids[i], cmd->command, COMMAND_CHARCOMMAND))
                cmd->char_groups[i] = 1;
            else
                cmd->char_groups[i] = 0;
        }
    }

    dbi_destroy(iter);

    return;
}
void atcommand_db_clear(void)
{

    if (atcommand_db != NULL) {
        DBIterator *iter = db_iterator(atcommand_db);
        AtCommandInfo *cmd;

        for (cmd = dbi_first(iter); dbi_exists(iter); cmd = dbi_next(iter)) {
            aFree(cmd->at_groups);
            aFree(cmd->char_groups);
        }

        dbi_destroy(iter);

        db_destroy(atcommand_db);
    }
    if (atcommand_alias_db != NULL)
        db_destroy(atcommand_alias_db);

    config_destroy(&atcommand_config);
}

void atcommand_doload(void)
{
    atcommand_db_clear();
    atcommand_db = stridb_alloc(DB_OPT_DUP_KEY|DB_OPT_RELEASE_DATA, ATCOMMAND_LENGTH);
    atcommand_alias_db = stridb_alloc(DB_OPT_DUP_KEY|DB_OPT_RELEASE_DATA, ATCOMMAND_LENGTH);
    atcommand_basecommands(); //fills initial atcommand_db with known commands
    atcommand_config_read(ATCOMMAND_CONF_FILENAME);
}

void do_init_atcommand(void)
{
    atcommand_doload();
}

void do_final_atcommand(void)
{
    atcommand_db_clear();
}