#include "atcommand.hpp" #include #include #include #include #include "../strings/mstring.hpp" #include "../strings/fstring.hpp" #include "../strings/zstring.hpp" #include "../strings/xstring.hpp" #include "../strings/vstring.hpp" #include "../common/core.hpp" #include "../common/cxxstdio.hpp" #include "../common/extract.hpp" #include "../common/human_time_diff.hpp" #include "../common/io.hpp" #include "../common/mmo.hpp" #include "../common/nullpo.hpp" #include "../common/random.hpp" #include "../common/socket.hpp" #include "../common/timer.hpp" #include "../common/utils2.hpp" #include "battle.hpp" #include "chrif.hpp" #include "clif.hpp" #include "intif.hpp" #include "itemdb.hpp" #include "map.hpp" #include "mob.hpp" #include "npc.hpp" #include "party.hpp" #include "pc.hpp" #include "script.hpp" #include "skill.hpp" #include "storage.hpp" #include "tmw.hpp" #include "trade.hpp" #include "../poison.hpp" #define ATCOMMAND_FUNC(x) static \ int atcommand_##x(const int fd, dumb_ptr sd, ZString message) ATCOMMAND_FUNC(setup); ATCOMMAND_FUNC(broadcast); ATCOMMAND_FUNC(localbroadcast); ATCOMMAND_FUNC(charwarp); ATCOMMAND_FUNC(warp); ATCOMMAND_FUNC(where); ATCOMMAND_FUNC(goto); ATCOMMAND_FUNC(jump); ATCOMMAND_FUNC(who); ATCOMMAND_FUNC(whogroup); ATCOMMAND_FUNC(whomap); ATCOMMAND_FUNC(whomapgroup); ATCOMMAND_FUNC(whogm); // by Yor ATCOMMAND_FUNC(save); ATCOMMAND_FUNC(load); ATCOMMAND_FUNC(speed); ATCOMMAND_FUNC(storage); ATCOMMAND_FUNC(option); ATCOMMAND_FUNC(hide); ATCOMMAND_FUNC(die); ATCOMMAND_FUNC(kill); ATCOMMAND_FUNC(alive); ATCOMMAND_FUNC(kami); ATCOMMAND_FUNC(heal); ATCOMMAND_FUNC(item); ATCOMMAND_FUNC(itemreset); ATCOMMAND_FUNC(itemcheck); ATCOMMAND_FUNC(baselevelup); ATCOMMAND_FUNC(joblevelup); ATCOMMAND_FUNC(help); ATCOMMAND_FUNC(gm); ATCOMMAND_FUNC(pvpoff); ATCOMMAND_FUNC(pvpon); ATCOMMAND_FUNC(model); ATCOMMAND_FUNC(spawn); ATCOMMAND_FUNC(killmonster); ATCOMMAND_FUNC(killmonster2); ATCOMMAND_FUNC(gat); ATCOMMAND_FUNC(packet); ATCOMMAND_FUNC(statuspoint); ATCOMMAND_FUNC(skillpoint); ATCOMMAND_FUNC(zeny); template ATCOMMAND_FUNC(param); ATCOMMAND_FUNC(recall); ATCOMMAND_FUNC(recallall); ATCOMMAND_FUNC(revive); ATCOMMAND_FUNC(character_stats); ATCOMMAND_FUNC(character_stats_all); ATCOMMAND_FUNC(character_option); ATCOMMAND_FUNC(character_save); ATCOMMAND_FUNC(doom); ATCOMMAND_FUNC(doommap); ATCOMMAND_FUNC(raise); ATCOMMAND_FUNC(raisemap); ATCOMMAND_FUNC(character_baselevel); ATCOMMAND_FUNC(character_joblevel); ATCOMMAND_FUNC(kick); ATCOMMAND_FUNC(kickall); ATCOMMAND_FUNC(questskill); ATCOMMAND_FUNC(charquestskill); ATCOMMAND_FUNC(lostskill); ATCOMMAND_FUNC(charlostskill); ATCOMMAND_FUNC(party); ATCOMMAND_FUNC(charskreset); ATCOMMAND_FUNC(charstreset); ATCOMMAND_FUNC(charreset); ATCOMMAND_FUNC(charstpoint); ATCOMMAND_FUNC(charmodel); ATCOMMAND_FUNC(charskpoint); ATCOMMAND_FUNC(charzeny); ATCOMMAND_FUNC(reloaditemdb); ATCOMMAND_FUNC(reloadmobdb); ATCOMMAND_FUNC(reloadskilldb); ATCOMMAND_FUNC(reloadscript); ATCOMMAND_FUNC(reloadgmdb); // by Yor ATCOMMAND_FUNC(mapexit); ATCOMMAND_FUNC(idsearch); ATCOMMAND_FUNC(mapinfo); ATCOMMAND_FUNC(dye); //** by fritz ATCOMMAND_FUNC(hair_style); //** by fritz ATCOMMAND_FUNC(hair_color); //** by fritz ATCOMMAND_FUNC(all_stats); //** by fritz ATCOMMAND_FUNC(char_change_sex); // by Yor ATCOMMAND_FUNC(char_block); // by Yor ATCOMMAND_FUNC(char_ban); // by Yor ATCOMMAND_FUNC(char_unblock); // by Yor ATCOMMAND_FUNC(char_unban); // by Yor ATCOMMAND_FUNC(partyspy); // [Syrus22] ATCOMMAND_FUNC(partyrecall); // by Yor ATCOMMAND_FUNC(enablenpc); ATCOMMAND_FUNC(disablenpc); ATCOMMAND_FUNC(servertime); // by Yor ATCOMMAND_FUNC(chardelitem); // by Yor ATCOMMAND_FUNC(email); // by Yor ATCOMMAND_FUNC(effect); //by Apple ATCOMMAND_FUNC(character_item_list); // by Yor ATCOMMAND_FUNC(character_storage_list); // by Yor ATCOMMAND_FUNC(character_cart_list); // by Yor ATCOMMAND_FUNC(addwarp); // by MouseJstr ATCOMMAND_FUNC(killer); // by MouseJstr ATCOMMAND_FUNC(npcmove); // by MouseJstr ATCOMMAND_FUNC(killable); // by MouseJstr ATCOMMAND_FUNC(charkillable); // by MouseJstr ATCOMMAND_FUNC(chareffect); // by MouseJstr ATCOMMAND_FUNC(dropall); // by MouseJstr ATCOMMAND_FUNC(chardropall); // by MouseJstr ATCOMMAND_FUNC(storeall); // by MouseJstr ATCOMMAND_FUNC(charstoreall); // by MouseJstr ATCOMMAND_FUNC(summon); ATCOMMAND_FUNC(rain); ATCOMMAND_FUNC(snow); ATCOMMAND_FUNC(sakura); ATCOMMAND_FUNC(fog); ATCOMMAND_FUNC(leaves); ATCOMMAND_FUNC(adjgmlvl); // by MouseJstr ATCOMMAND_FUNC(adjcmdlvl); // by MouseJstr ATCOMMAND_FUNC(trade); // by MouseJstr ATCOMMAND_FUNC(char_wipe); // [Fate] ATCOMMAND_FUNC(set_magic); // [Fate] ATCOMMAND_FUNC(magic_info); // [Fate] ATCOMMAND_FUNC(log); // [Fate] ATCOMMAND_FUNC(tee); // [Fate] ATCOMMAND_FUNC(invisible); // [Fate] ATCOMMAND_FUNC(visible); // [Fate] ATCOMMAND_FUNC(list_nearby); // [Fate] ATCOMMAND_FUNC(iterate_forward_over_players); // [Fate] ATCOMMAND_FUNC(iterate_backwards_over_players); // [Fate] ATCOMMAND_FUNC(skillpool_info); // [Fate] ATCOMMAND_FUNC(skillpool_focus); // [Fate] ATCOMMAND_FUNC(skillpool_unfocus); // [Fate] ATCOMMAND_FUNC(skill_learn); // [Fate] ATCOMMAND_FUNC(wgm); ATCOMMAND_FUNC(ipcheck); ATCOMMAND_FUNC(doomspot); /*========================================== *AtCommandInfo atcommand_info[]構造体の定義 *------------------------------------------ */ struct AtCommandInfo { ZString command; int level; int (*proc)(const int fd, dumb_ptr sd, ZString message); AtCommandInfo(ZString c, int l, int (*p)(const int, dumb_ptr, ZString)) : command(c), level(l), proc(p) {} }; // First char of commands is configured in atcommand_athena.conf. Leave @ in this list for default value. // to set default level, read atcommand_athena.conf first please. static AtCommandInfo atcommand_info[] = { {"@setup", 40, atcommand_setup}, {"@charwarp", 60, atcommand_charwarp}, {"@warp", 40, atcommand_warp}, {"@where", 1, atcommand_where}, {"@goto", 20, atcommand_goto}, {"@jump", 40, atcommand_jump}, {"@who", 20, atcommand_who}, {"@whogroup", 20, atcommand_whogroup}, {"@whomap", 20, atcommand_whomap}, {"@whomapgroup", 20, atcommand_whomapgroup}, {"@whogm", 20, atcommand_whogm}, // by Yor {"@save", 40, atcommand_save}, {"@return", 40, atcommand_load}, {"@load", 40, atcommand_load}, {"@speed", 40, atcommand_speed}, {"@storage", 1, atcommand_storage}, {"@option", 40, atcommand_option}, {"@hide", 40, atcommand_hide}, // + /hide {"@die", 1, atcommand_die}, {"@kill", 60, atcommand_kill}, {"@alive", 60, atcommand_alive}, {"@kami", 40, atcommand_kami}, {"@heal", 40, atcommand_heal}, {"@item", 60, atcommand_item}, {"@itemreset", 40, atcommand_itemreset}, {"@itemcheck", 60, atcommand_itemcheck}, {"@blvl", 60, atcommand_baselevelup}, {"@jlvl", 60, atcommand_joblevelup}, {"@help", 20, atcommand_help}, {"@gm", 100, atcommand_gm}, {"@pvpoff", 40, atcommand_pvpoff}, {"@pvpon", 40, atcommand_pvpon}, {"@model", 20, atcommand_model}, {"@spawn", 50, atcommand_spawn}, {"@killmonster", 60, atcommand_killmonster}, {"@killmonster2", 40, atcommand_killmonster2}, {"@gat", 99, atcommand_gat}, // debug function {"@packet", 99, atcommand_packet}, // debug function {"@stpoint", 60, atcommand_statuspoint}, {"@skpoint", 60, atcommand_skillpoint}, {"@zeny", 60, atcommand_zeny}, {"@str", 60, atcommand_param}, {"@agi", 60, atcommand_param}, {"@vit", 60, atcommand_param}, {"@int", 60, atcommand_param}, {"@dex", 60, atcommand_param}, {"@luk", 60, atcommand_param}, {"@recall", 60, atcommand_recall}, // + /recall {"@revive", 60, atcommand_revive}, {"@charstats", 40, atcommand_character_stats}, {"@charstatsall", 40, atcommand_character_stats_all}, {"@charoption", 60, atcommand_character_option}, {"@charsave", 60, atcommand_character_save}, {"@doom", 80, atcommand_doom}, {"@doommap", 80, atcommand_doommap}, {"@raise", 80, atcommand_raise}, {"@raisemap", 80, atcommand_raisemap}, {"@charbaselvl", 60, atcommand_character_baselevel}, {"@charjlvl", 60, atcommand_character_joblevel}, {"@kick", 20, atcommand_kick}, // + right click menu for GM "(name) force to quit" {"@kickall", 99, atcommand_kickall}, {"@questskill", 40, atcommand_questskill}, {"@charquestskill", 60, atcommand_charquestskill}, {"@lostskill", 40, atcommand_lostskill}, {"@charlostskill", 60, atcommand_charlostskill}, {"@party", 1, atcommand_party}, {"@mapexit", 99, atcommand_mapexit}, {"@idsearch", 60, atcommand_idsearch}, {"@mapmove", 40, atcommand_warp}, // /mm command {"@broadcast", 40, atcommand_broadcast}, // /b and /nb command {"@localbroadcast", 40, atcommand_localbroadcast}, // /lb and /nlb command {"@recallall", 80, atcommand_recallall}, {"@charskreset", 60, atcommand_charskreset}, {"@charstreset", 60, atcommand_charstreset}, {"@reloaditemdb", 99, atcommand_reloaditemdb}, // admin command {"@reloadmobdb", 99, atcommand_reloadmobdb}, // admin command {"@reloadskilldb", 99, atcommand_reloadskilldb}, // admin command {"@reloadscript", 99, atcommand_reloadscript}, // admin command {"@reloadgmdb", 99, atcommand_reloadgmdb}, // admin command {"@charreset", 60, atcommand_charreset}, {"@charmodel", 50, atcommand_charmodel}, {"@charskpoint", 60, atcommand_charskpoint}, {"@charstpoint", 60, atcommand_charstpoint}, {"@charzeny", 60, atcommand_charzeny}, {"@mapinfo", 99, atcommand_mapinfo}, {"@dye", 40, atcommand_dye}, // by fritz {"@ccolor", 40, atcommand_dye}, // by fritz {"@hairstyle", 40, atcommand_hair_style}, // by fritz {"@haircolor", 40, atcommand_hair_color}, // by fritz {"@allstats", 60, atcommand_all_stats}, // by fritz {"@charchangesex", 60, atcommand_char_change_sex}, // by Yor {"@block", 60, atcommand_char_block}, // by Yor {"@unblock", 60, atcommand_char_unblock}, // by Yor {"@ban", 60, atcommand_char_ban}, // by Yor {"@unban", 60, atcommand_char_unban}, // by Yor {"@partyspy", 60, atcommand_partyspy}, // [Syrus22] {"@partyrecall", 60, atcommand_partyrecall}, // by Yor {"@enablenpc", 80, atcommand_enablenpc}, // [] {"@disablenpc", 80, atcommand_disablenpc}, // [] {"@servertime", 0, atcommand_servertime}, // by Yor {"@chardelitem", 60, atcommand_chardelitem}, // by Yor {"@listnearby", 40, atcommand_list_nearby}, // by Yor {"@email", 0, atcommand_email}, // by Yor {"@effect", 40, atcommand_effect}, // by Apple {"@charitemlist", 40, atcommand_character_item_list}, // by Yor {"@charstoragelist", 40, atcommand_character_storage_list}, // by Yor {"@charcartlist", 40, atcommand_character_cart_list}, // by Yor {"@addwarp", 20, atcommand_addwarp}, // by MouseJstr {"@killer", 60, atcommand_killer}, // by MouseJstr {"@npcmove", 20, atcommand_npcmove}, // by MouseJstr {"@killable", 40, atcommand_killable}, // by MouseJstr {"@charkillable", 40, atcommand_charkillable}, // by MouseJstr {"@chareffect", 40, atcommand_chareffect}, // MouseJstr {"@dropall", 40, atcommand_dropall}, // MouseJstr {"@chardropall", 40, atcommand_chardropall}, // MouseJstr {"@storeall", 40, atcommand_storeall}, // MouseJstr {"@charstoreall", 40, atcommand_charstoreall}, // MouseJstr {"@rain", 99, atcommand_rain}, {"@snow", 99, atcommand_snow}, {"@sakura", 99, atcommand_sakura}, {"@fog", 99, atcommand_fog}, {"@leaves", 99, atcommand_leaves}, {"@summon", 60, atcommand_summon}, {"@adjgmlvl", 99, atcommand_adjgmlvl}, {"@adjcmdlvl", 99, atcommand_adjcmdlvl}, {"@trade", 60, atcommand_trade}, {"@charwipe", 60, atcommand_char_wipe}, // [Fate] {"@setmagic", 99, atcommand_set_magic}, // [Fate] {"@magicinfo", 60, atcommand_magic_info}, // [Fate] {"@log", 60, atcommand_log}, // [Fate] {"@l", 60, atcommand_log}, // [Fate] {"@tee", 60, atcommand_tee}, // [Fate] {"@t", 60, atcommand_tee}, // [Fate] {"@invisible", 60, atcommand_invisible}, // [Fate] {"@visible", 60, atcommand_visible}, // [Fate] {"@hugo", 60, atcommand_iterate_forward_over_players}, // [Fate] {"@linus", 60, atcommand_iterate_backwards_over_players}, // [Fate] {"@sp-info", 40, atcommand_skillpool_info}, // [Fate] {"@sp-focus", 80, atcommand_skillpool_focus}, // [Fate] {"@sp-unfocus", 80, atcommand_skillpool_unfocus}, // [Fate] {"@skill-learn", 80, atcommand_skill_learn}, // [Fate] {"@wgm", 0, atcommand_wgm}, {"@ipcheck", 60, atcommand_ipcheck}, {"@doomspot", 60, atcommand_doomspot}, // add new commands before this line {ZString(), 1, nullptr} }; // If your last arg is not a ZString, you probably wanted extract() // but not always ... static bool asplit(ZString raw, ZString *last) { *last = raw; return true; } // but this case is just so common and useful. In fact, is the previous ever used otherwise? static bool asplit(ZString raw, CharName *last) { if (raw.size() < 4 || raw.size() > 23) return false; *last = stringish(raw); return true; } // huh. static bool asplit(ZString raw, NpcName *last) { if (!raw || raw.size() > 23) return false; *last = stringish(raw); return true; } // This differs from extract() in that it does not consume extra spaces. template::type> bool asplit(ZString raw, F *first_arg, R *... rest_args) { ZString::iterator it = std::find(raw.begin(), raw.end(), ' '); XString frist = raw.xislice_h(it); while (*it == ' ') ++it; ZString rest = raw.xislice_t(it); return extract(frist, first_arg) && asplit(rest, rest_args...); } /*========================================== * get_atcommand_level @コマンドの必要レベルを取得 *------------------------------------------ */ static int get_atcommand_level(const AtCommandInfo *type) { if (type) return type->level; return 100; // 100: command can not be used } static FILE *get_gm_log(); /*======================================== * At-command logging */ void log_atcommand(dumb_ptr sd, ZString cmd) { FILE *fp = get_gm_log(); if (!fp) return; timestamp_seconds_buffer tmpstr; stamp_time(tmpstr); FPRINTF(fp, "[%s] %s(%d,%d) %s(%d) : %s\n", tmpstr, sd->bl_m->name_, sd->bl_x, sd->bl_y, sd->status.name, sd->status.account_id, cmd); } FString gm_log; /*========================================== * Log a timestamped line to GM log file *------------------------------------------ */ FILE *get_gm_log() { if (!gm_log) return NULL; struct tm ctime = TimeT::now(); int year = ctime.tm_year + 1900; int month = ctime.tm_mon + 1; int logfile_nr = (year * 12) + month; static FILE *gm_logfile = NULL; static int last_logfile_nr = 0; if (logfile_nr == last_logfile_nr) return gm_logfile; last_logfile_nr = logfile_nr; FString fullname = STRPRINTF("%s.%04d-%02d", gm_log, year, month); if (gm_logfile) fclose(gm_logfile); gm_logfile = fopen(fullname.c_str(), "a"); if (!gm_logfile) { perror("GM log file"); gm_log = FString(); } return gm_logfile; } static AtCommandInfo *atcommand(const int level, ZString message); /*========================================== *is_atcommand @コマンドに存在するかどうか確認する *------------------------------------------ */ bool is_atcommand(const int fd, dumb_ptr sd, ZString message, int gmlvl) { nullpo_retr(false, sd); if (!message.startswith('@')) return false; AtCommandInfo *info = atcommand(gmlvl > 0 ? gmlvl : pc_isGM(sd), message); if (!info) { FString output = STRPRINTF("GM command not found: %s", message); clif_displaymessage(fd, output); return true; // don't show in chat } { XString command; ZString arg; asplit(message, &command, &arg); { if (info->proc(fd, sd, arg) != 0) { // Command can not be executed FString output = STRPRINTF("%s failed.", FString(command)); clif_displaymessage(fd, output); } else { if (get_atcommand_level(info) != 0) // Don't log level 0 commands log_atcommand(sd, message); } } return true; } } /*========================================== * *------------------------------------------ */ AtCommandInfo *atcommand(const int level, ZString message) { ZString p = message; if (battle_config.atcommand_gm_only != 0 && !level) // level = pc_isGM(sd) return nullptr; if (!p) { FPRINTF(stderr, "at command message is empty\n"); return nullptr; } if (p.startswith('@')) { ZString::iterator space = std::find(p.begin(), p.end(), ' '); XString command = p.xislice_h(space); int i = 0; while (atcommand_info[i].command) { if (command == atcommand_info[i].command && level >= atcommand_info[i].level) { return &atcommand_info[i]; } i++; } } return nullptr; } /*========================================== * *------------------------------------------ */ static void atkillmonster_sub(dumb_ptr bl, int flag) { nullpo_retv(bl); dumb_ptr md = bl->as_mob(); if (flag) mob_damage(NULL, md, md->hp, 2); else mob_delete(md); } /*========================================== * *------------------------------------------ */ static AtCommandInfo *get_atcommandinfo_byname(XString name) { for (int i = 0; atcommand_info[i].command; i++) if (atcommand_info[i].command.xslice_t(1) == name) return &atcommand_info[i]; return NULL; } /*========================================== * *------------------------------------------ */ int atcommand_config_read(ZString cfgName) { std::ifstream in(cfgName.c_str()); if (!in.is_open()) { PRINTF("At commands configuration file not found: %s\n", cfgName); return 1; } FString line; while (io::getline(in, line)) { XString w1; ZString w2; if (!split_key_value(line, &w1, &w2)) continue; AtCommandInfo *p = get_atcommandinfo_byname(w1); if (p != NULL) { p->level = atoi(w2.c_str()); if (p->level > 100) p->level = 100; else if (p->level < 0) p->level = 0; } else if (w1 == "import") atcommand_config_read(w2); else PRINTF("%s: bad line: %s\n", cfgName, line); } return 0; } /*========================================== // @ command processing functions *------------------------------------------ */ /*========================================== * @setup - Safely set a chars levels and warp them to a special place * TAW Specific *------------------------------------------ */ int atcommand_setup(const int fd, dumb_ptr sd, ZString message) { int level = 1; CharName character; if (!asplit(message, &level, &character)) { clif_displaymessage(fd, "Usage: @setup "); return -1; } level--; FString buf; buf = STRPRINTF("-255 %s", character); atcommand_character_baselevel(fd, sd, buf); buf = STRPRINTF("%d %s", level, character); atcommand_character_baselevel(fd, sd, buf); // Emote skill buf = STRPRINTF("1 1 %s", character); atcommand_skill_learn(fd, sd, buf); // Trade skill buf = STRPRINTF("2 1 %s", character); atcommand_skill_learn(fd, sd, buf); // Party skill STRPRINTF("2 2 %s", character); atcommand_skill_learn(fd, sd, buf); STRPRINTF("018-1.gat 24 98 %s", character); atcommand_charwarp(fd, sd, buf); return 0; } /*========================================== * @rura+ *------------------------------------------ */ int atcommand_charwarp(const int fd, dumb_ptr sd, ZString message) { MapName map_name; CharName character; int x = 0, y = 0; if (!asplit(message, &map_name, &x, &y, &character)) { clif_displaymessage(fd, "Usage: @charwarp/@rura+ "); return -1; } if (x <= 0) x = random_::in(1, 399); if (y <= 0) y = random_::in(1, 399); dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd) { if (pc_isGM(sd) >= pc_isGM(pl_sd)) { // you can rura+ only lower or same GM level if (x > 0 && x < 800 && y > 0 && y < 800) { map_local *m = map_mapname2mapid(map_name); if (m != nullptr && m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp someone to this map."); return -1; } if (pl_sd->bl_m && pl_sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp this player from its actual map."); return -1; } if (pc_setpos(pl_sd, map_name, x, y, BeingRemoveWhy::WARPED) == 0) { clif_displaymessage(pl_sd->fd, "Warped."); clif_displaymessage(fd, "Player warped (message sends to player too)."); } else { clif_displaymessage(fd, "Map not found."); return -1; } } else { clif_displaymessage(fd, "Coordinates out of range."); return -1; } } else { clif_displaymessage(fd, "Your GM level don't authorise you to do this action on this player."); return -1; } } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_warp(const int fd, dumb_ptr sd, ZString message) { MapName map_name; int x = 0, y = 0; if (!message || !extract(message, record<' ', 1>(&map_name, &x, &y))) { clif_displaymessage(fd, "Please, enter a map (usage: @warp )."); return -1; } if (x <= 0) x = random_::in(1, 399); if (y <= 0) y = random_::in(1, 399); if (x > 0 && x < 800 && y > 0 && y < 800) { map_local *m = map_mapname2mapid(map_name); if (m != nullptr && m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you to this map."); return -1; } if (sd->bl_m && sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you from your actual map."); return -1; } if (pc_setpos(sd, map_name, x, y, BeingRemoveWhy::WARPED) == 0) clif_displaymessage(fd, "Warped."); else { clif_displaymessage(fd, "Map not found."); return -1; } } else { clif_displaymessage(fd, "Coordinates out of range."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_where(const int fd, dumb_ptr sd, ZString message) { CharName character; extract(message, &character); dumb_ptr pl_sd = character.to__actual() ? map_nick2sd(character) : sd; if (pl_sd != NULL && !((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pc_isGM(pl_sd) > pc_isGM(sd)))) { // you can look only lower or same level FString output = STRPRINTF("%s: %s (%d,%d)", pl_sd->status.name, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_goto(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @jumpto/@warpto/@goto )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { if (pl_sd->bl_m && pl_sd->bl_m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you to the map of this player."); return -1; } if (sd->bl_m && sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you from your actual map."); return -1; } pc_setpos(sd, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y, BeingRemoveWhy::WARPED); FString output = STRPRINTF("Jump to %s", character); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_jump(const int fd, dumb_ptr sd, ZString message) { int x = 0, y = 0; // may fail extract(message, record<' '>(&x, &y)); if (x <= 0) x = random_::in(1, 399); if (y <= 0) y = random_::in(1, 399); if (x > 0 && x < 800 && y > 0 && y < 800) { if (sd->bl_m && sd->bl_m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you to your actual map."); return -1; } if (sd->bl_m && sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you from your actual map."); return -1; } pc_setpos(sd, sd->mapname_, x, y, BeingRemoveWhy::WARPED); FString output = STRPRINTF("Jump to %d %d", x, y); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Coordinates out of range."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_who(const int fd, dumb_ptr sd, ZString message) { int count; int pl_GM_level, GM_level; VString<23> match_text = message; match_text = match_text.to_lower(); count = 0; GM_level = pc_isGM(sd); for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { pl_GM_level = pc_isGM(pl_sd); if (! ((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pl_GM_level > GM_level))) { // you can look only lower or same level VString<23> player_name = pl_sd->status.name.to__lower(); if (player_name.contains_seq(match_text)) { // search with no case sensitive FString output; if (pl_GM_level > 0) output = STRPRINTF( "Name: %s (GM:%d) | Location: %s %d %d", pl_sd->status.name, pl_GM_level, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); else output = STRPRINTF( "Name: %s | Location: %s %d %d", pl_sd->status.name, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); clif_displaymessage(fd, output); count++; } } } } if (count == 0) clif_displaymessage(fd, "No player found."); else if (count == 1) clif_displaymessage(fd, "1 player found."); else { FString output = STRPRINTF("%d players found.", count); clif_displaymessage(fd, output); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_whogroup(const int fd, dumb_ptr sd, ZString message) { int count; int pl_GM_level, GM_level; struct party *p; VString<23> match_text = message; match_text = match_text.to_lower(); count = 0; GM_level = pc_isGM(sd); for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { pl_GM_level = pc_isGM(pl_sd); if (! ((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pl_GM_level > GM_level))) { // you can look only lower or same level VString<23> player_name = pl_sd->status.name.to__lower(); if (player_name.contains_seq(match_text)) { // search with no case sensitive p = party_search(pl_sd->status.party_id); PartyName temp0 = p ? p->name : stringish("None"); FString output; if (pl_GM_level > 0) output = STRPRINTF( "Name: %s (GM:%d) | Party: '%s'", pl_sd->status.name, pl_GM_level, temp0); clif_displaymessage(fd, output); count++; } } } } if (count == 0) clif_displaymessage(fd, "No player found."); else if (count == 1) clif_displaymessage(fd, "1 player found."); else { FString output = STRPRINTF("%d players found.", count); clif_displaymessage(fd, output); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_whomap(const int fd, dumb_ptr sd, ZString message) { int count; int pl_GM_level, GM_level; map_local *map_id; { MapName map_name; extract(message, &map_name); map_id = map_mapname2mapid(map_name); if (map_id == nullptr) map_id = sd->bl_m; } count = 0; GM_level = pc_isGM(sd); for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { pl_GM_level = pc_isGM(pl_sd); if (! ((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pl_GM_level > GM_level))) { // you can look only lower or same level if (pl_sd->bl_m == map_id) { FString output; if (pl_GM_level > 0) output = STRPRINTF( "Name: %s (GM:%d) | Location: %s %d %d", pl_sd->status.name, pl_GM_level, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); else output = STRPRINTF( "Name: %s | Location: %s %d %d", pl_sd->status.name, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); clif_displaymessage(fd, output); count++; } } } } FString output = STRPRINTF("%d players found in map '%s'.", count, map_id->name_); clif_displaymessage(fd, output); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_whomapgroup(const int fd, dumb_ptr sd, ZString message) { int count; int pl_GM_level, GM_level; struct party *p; map_local *map_id; { MapName map_name; extract(message, &map_name); map_id = map_mapname2mapid(map_name); if (map_id == nullptr) map_id = sd->bl_m; } count = 0; GM_level = pc_isGM(sd); for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { pl_GM_level = pc_isGM(pl_sd); if (! ((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pl_GM_level > GM_level))) { // you can look only lower or same level if (pl_sd->bl_m == map_id) { p = party_search(pl_sd->status.party_id); PartyName temp0 = p ? p->name : stringish("None"); FString output; if (pl_GM_level > 0) output = STRPRINTF("Name: %s (GM:%d) | Party: '%s'", pl_sd->status.name, pl_GM_level, temp0); else output = STRPRINTF("Name: %s | Party: '%s'", pl_sd->status.name, temp0); clif_displaymessage(fd, output); count++; } } } } FString output; if (count == 0) output = STRPRINTF("No player found in map '%s'.", map_id->name_); else if (count == 1) output = STRPRINTF("1 player found in map '%s'.", map_id->name_); else { output = STRPRINTF("%d players found in map '%s'.", count, map_id->name_); } clif_displaymessage(fd, output); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_whogm(const int fd, dumb_ptr sd, ZString message) { int count; int pl_GM_level, GM_level; struct party *p; VString<23> match_text = message; match_text = match_text.to_lower(); count = 0; GM_level = pc_isGM(sd); for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { pl_GM_level = pc_isGM(pl_sd); if (pl_GM_level > 0) { if (! ((battle_config.hide_GM_session || bool(pl_sd->status.option & Option::HIDE)) && (pl_GM_level > GM_level))) { // you can look only lower or same level VString<23> player_name = pl_sd->status.name.to__lower(); if (player_name.contains_seq(match_text)) { // search with no case sensitive FString output; output = STRPRINTF( "Name: %s (GM:%d) | Location: %s %d %d", pl_sd->status.name, pl_GM_level, pl_sd->mapname_, pl_sd->bl_x, pl_sd->bl_y); clif_displaymessage(fd, output); output = STRPRINTF( " BLvl: %d | Job: %s (Lvl: %d)", pl_sd->status.base_level, "Novice/Human", pl_sd->status.job_level); clif_displaymessage(fd, output); p = party_search(pl_sd->status.party_id); PartyName temp0 = p ? p->name : stringish("None"); output = STRPRINTF( " Party: '%s'", temp0); clif_displaymessage(fd, output); count++; } } } } } if (count == 0) clif_displaymessage(fd, "No GM found."); else if (count == 1) clif_displaymessage(fd, "1 GM found."); else { FString output = STRPRINTF("%d GMs found.", count); clif_displaymessage(fd, output); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_save(const int fd, dumb_ptr sd, ZString) { nullpo_retr(-1, sd); pc_setsavepoint(sd, sd->mapname_, sd->bl_x, sd->bl_y); pc_makesavestatus(sd); chrif_save(sd); clif_displaymessage(fd, "Character data respawn point saved."); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_load(const int fd, dumb_ptr sd, ZString) { map_local *m = map_mapname2mapid(sd->status.save_point.map_); if (m != nullptr && m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you to your save map."); return -1; } if (sd->bl_m && sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp you from your actual map."); return -1; } pc_setpos(sd, sd->status.save_point.map_, sd->status.save_point.x, sd->status.save_point.y, BeingRemoveWhy::GONE); clif_displaymessage(fd, "Warping to respawn point."); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_speed(const int fd, dumb_ptr sd, ZString message) { if (!message) { FString output = STRPRINTF( "Please, enter a speed value (usage: @speed <%d-%d>).", static_cast(MIN_WALK_SPEED.count()), static_cast(MAX_WALK_SPEED.count())); clif_displaymessage(fd, output); return -1; } interval_t speed = static_cast(atoi(message.c_str())); if (speed >= MIN_WALK_SPEED && speed <= MAX_WALK_SPEED) { sd->speed = speed; //sd->walktimer = x; //この文を追加 by れ clif_updatestatus(sd, SP::SPEED); clif_displaymessage(fd, "Speed changed."); } else { FString output = STRPRINTF( "Please, enter a valid speed value (usage: @speed <%d-%d>).", static_cast(MIN_WALK_SPEED.count()), static_cast(MAX_WALK_SPEED.count())); clif_displaymessage(fd, output); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_storage(const int fd, dumb_ptr sd, ZString) { struct storage *stor; //changes from Freya/Yor nullpo_retr(-1, sd); if (sd->state.storage_open) { clif_displaymessage(fd, "msg_table[250]"); return -1; } if ((stor = account2storage2(sd->status.account_id)) != NULL && stor->storage_status == 1) { clif_displaymessage(fd, "msg_table[250]"); return -1; } storage_storageopen(sd); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_option(const int fd, dumb_ptr sd, ZString message) { nullpo_retr(-1, sd); Opt1 param1 = Opt1::ZERO; Opt2 param2 = Opt2::ZERO; Option param3 = Option::ZERO; if (!extract(message, record<',', 1>(¶m1, ¶m2, ¶m3))) { clif_displaymessage(fd, "Please, enter at least a option (usage: @option )."); return -1; } sd->opt1 = param1; sd->opt2 = param2; sd->status.option = param3; clif_changeoption(sd); pc_calcstatus(sd, 0); clif_displaymessage(fd, "Options changed."); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_hide(const int fd, dumb_ptr sd, ZString) { if (bool(sd->status.option & Option::HIDE)) { sd->status.option &= ~Option::HIDE; clif_displaymessage(fd, "Invisible: Off."); // Invisible: Off } else { sd->status.option |= Option::HIDE; clif_displaymessage(fd, "Invisible: On."); // Invisible: On } clif_changeoption(sd); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_die(const int fd, dumb_ptr sd, ZString) { pc_damage(NULL, sd, sd->status.hp + 1); clif_displaymessage(fd, "A pity! You've died."); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_kill(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @kill )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { if (pc_isGM(sd) >= pc_isGM(pl_sd)) { // you can kill only lower or same level pc_damage(NULL, pl_sd, pl_sd->status.hp + 1); clif_displaymessage(fd, "Character killed."); } else { clif_displaymessage(fd, "Your GM level don't authorise you to do this action on this player."); return -1; } } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_alive(const int fd, dumb_ptr sd, ZString) { sd->status.hp = sd->status.max_hp; sd->status.sp = sd->status.max_sp; pc_setstand(sd); if (static_cast(battle_config.player_invincible_time) > interval_t::zero()) pc_setinvincibletimer(sd, static_cast(battle_config.player_invincible_time)); clif_updatestatus(sd, SP::HP); clif_updatestatus(sd, SP::SP); clif_resurrection(sd, 1); clif_displaymessage(fd, "You've been revived! It's a miracle!"); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_kami(const int fd, dumb_ptr, ZString message) { if (!message) { clif_displaymessage(fd, "Please, enter a message (usage: @kami )."); return -1; } intif_GMmessage(message); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_heal(const int fd, dumb_ptr sd, ZString message) { int hp = 0, sp = 0; // [Valaris] thanks to fov extract(message, record<' '>(&hp, &sp)); if (hp == 0 && sp == 0) { hp = sd->status.max_hp - sd->status.hp; sp = sd->status.max_sp - sd->status.sp; } else { if (hp > 0 && (hp > sd->status.max_hp || hp > (sd->status.max_hp - sd->status.hp))) // fix positiv overflow hp = sd->status.max_hp - sd->status.hp; else if (hp < 0 && (hp < -sd->status.max_hp || hp < (1 - sd->status.hp))) // fix negativ overflow hp = 1 - sd->status.hp; if (sp > 0 && (sp > sd->status.max_sp || sp > (sd->status.max_sp - sd->status.sp))) // fix positiv overflow sp = sd->status.max_sp - sd->status.sp; else if (sp < 0 && (sp < -sd->status.max_sp || sp < (1 - sd->status.sp))) // fix negativ overflow sp = 1 - sd->status.sp; } if (hp < 0) // display like damage clif_damage(sd, sd, gettick(), interval_t::zero(), interval_t::zero(), -hp, 0, DamageType::RETURNED, 0); if (hp != 0 || sp != 0) { pc_heal(sd, hp, sp); if (hp >= 0 && sp >= 0) clif_displaymessage(fd, "HP, SP recovered."); else clif_displaymessage(fd, "HP or/and SP modified."); } else { clif_displaymessage(fd, "HP and SP are already with the good value."); return -1; } return 0; } /*========================================== * @item command (usage: @item ) *------------------------------------------ */ int atcommand_item(const int fd, dumb_ptr sd, ZString message) { ItemName item_name; int number = 0, item_id; struct item_data *item_data; int get_count, i; if (!extract(message, record<' ', 1>(&item_name, &number))) { clif_displaymessage(fd, "Please, enter an item name/id (usage: @item [quantity])."); 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.c_str()))) != NULL) item_id = item_data->nameid; if (item_id >= 500) { get_count = number; if (item_data->type == ItemType::WEAPON || item_data->type == ItemType::ARMOR || item_data->type == ItemType::_7 || item_data->type == ItemType::_8) { get_count = 1; } for (i = 0; i < number; i += get_count) { struct item item_tmp {}; item_tmp.nameid = item_id; item_tmp.identify = 1; PickupFail flag; if ((flag = pc_additem(sd, &item_tmp, get_count)) != PickupFail::OKAY) clif_additem(sd, 0, 0, flag); } clif_displaymessage(fd, "Item created."); } else { clif_displaymessage(fd, "Invalid item ID or name."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_itemreset(const int fd, dumb_ptr sd, ZString) { int i; for (i = 0; i < MAX_INVENTORY; i++) { if (sd->status.inventory[i].amount && sd->status.inventory[i].equip == EPOS::ZERO) pc_delitem(sd, i, sd->status.inventory[i].amount, 0); } clif_displaymessage(fd, "All of your items have been removed."); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_itemcheck(const int, dumb_ptr sd, ZString) { pc_checkitem(sd); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_baselevelup(const int fd, dumb_ptr sd, ZString message) { int level, i; if (!extract(message, &level) || !level) { clif_displaymessage(fd, "Please, enter a level adjustement (usage: @blvl )."); return -1; } if (level > 0) { if (sd->status.base_level == battle_config.maximum_level) { // check for max level by Valaris clif_displaymessage(fd, "Base level can't go any higher."); return -1; } // End Addition if (level > battle_config.maximum_level || level > (battle_config.maximum_level - sd->status.base_level)) // fix positiv overflow level = battle_config.maximum_level - sd->status.base_level; for (i = 1; i <= level; i++) sd->status.status_point += (sd->status.base_level + i + 14) / 4; sd->status.base_level += level; clif_updatestatus(sd, SP::BASELEVEL); clif_updatestatus(sd, SP::NEXTBASEEXP); clif_updatestatus(sd, SP::STATUSPOINT); pc_calcstatus(sd, 0); pc_heal(sd, sd->status.max_hp, sd->status.max_sp); clif_misceffect(sd, 0); clif_displaymessage(fd, "Base level raised."); } else { if (sd->status.base_level == 1) { clif_displaymessage(fd, "Base level can't go any lower."); return -1; } if (level < -battle_config.maximum_level || level < (1 - sd->status.base_level)) // fix negativ overflow level = 1 - sd->status.base_level; if (sd->status.status_point > 0) { for (i = 0; i > level; i--) sd->status.status_point -= (sd->status.base_level + i + 14) / 4; if (sd->status.status_point < 0) sd->status.status_point = 0; clif_updatestatus(sd, SP::STATUSPOINT); } // to add: remove status points from stats sd->status.base_level += level; clif_updatestatus(sd, SP::BASELEVEL); clif_updatestatus(sd, SP::NEXTBASEEXP); pc_calcstatus(sd, 0); clif_displaymessage(fd, "Base level lowered."); } return 0; } /*========================================== * *------------------------------------------ */ // TODO: merge this with pc_setparam(SP::JOBLEVEL) // then fix the funny 50 and/or 10 limitation. int atcommand_joblevelup(const int fd, dumb_ptr sd, ZString message) { int up_level = 50, level; if (!extract(message, &level) || !level) { clif_displaymessage(fd, "Please, enter a level adjustement (usage: @jlvl )."); return -1; } up_level -= 40; if (level > 0) { if (sd->status.job_level == up_level) { clif_displaymessage(fd, "Job level can't go any higher."); return -1; } if (level > up_level || level > (up_level - sd->status.job_level)) // fix positiv overflow level = up_level - sd->status.job_level; sd->status.job_level += level; clif_updatestatus(sd, SP::JOBLEVEL); clif_updatestatus(sd, SP::NEXTJOBEXP); sd->status.skill_point += level; clif_updatestatus(sd, SP::SKILLPOINT); pc_calcstatus(sd, 0); clif_misceffect(sd, 1); clif_displaymessage(fd, "Job level raised."); } else { if (sd->status.job_level == 1) { clif_displaymessage(fd, "Job level can't go any lower."); return -1; } if (level < -up_level || level < (1 - sd->status.job_level)) // fix negativ overflow level = 1 - sd->status.job_level; sd->status.job_level += level; clif_updatestatus(sd, SP::JOBLEVEL); clif_updatestatus(sd, SP::NEXTJOBEXP); if (sd->status.skill_point > 0) { sd->status.skill_point += level; if (sd->status.skill_point < 0) sd->status.skill_point = 0; clif_updatestatus(sd, SP::SKILLPOINT); } // to add: remove status points from skills pc_calcstatus(sd, 0); clif_displaymessage(fd, "Job level lowered."); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_help(const int fd, dumb_ptr sd, ZString) { std::ifstream in(help_txt.c_str()); if (in.is_open()) { clif_displaymessage(fd, "Help commands:"); int gm_level = pc_isGM(sd); FString line; while (io::getline(in, line)) { XString w1; ZString w2; if (!split_key_value(line, &w1, &w2)) continue; int level; extract(w1.strip(), &level); if (gm_level >= level) clif_displaymessage(fd, w2); } } else { clif_displaymessage(fd, "File help.txt not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_gm(const int fd, dumb_ptr sd, ZString message) { if (!message) { clif_displaymessage(fd, "Please, enter a password (usage: @gm )."); return -1; } if (pc_isGM(sd)) { // a GM can not use this function. only a normal player (become gm is not for gm!) clif_displaymessage(fd, "You already have some GM powers."); return -1; } else chrif_changegm(sd->status.account_id, message); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_pvpoff(const int fd, dumb_ptr sd, ZString) { if (battle_config.pk_mode) { //disable command if server is in PK mode [Valaris] clif_displaymessage(fd, "This option cannot be used in PK Mode."); return -1; } if (sd->bl_m->flag.pvp) { sd->bl_m->flag.pvp = 0; for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { if (sd->bl_m == pl_sd->bl_m) { pl_sd->pvp_timer.cancel(); } } } clif_displaymessage(fd, "PvP: Off."); } else { clif_displaymessage(fd, "PvP is already Off."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_pvpon(const int fd, dumb_ptr sd, ZString) { if (battle_config.pk_mode) { //disable command if server is in PK mode [Valaris] clif_displaymessage(fd, "This option cannot be used in PK Mode."); return -1; } if (!sd->bl_m->flag.pvp && !sd->bl_m->flag.nopvp) { sd->bl_m->flag.pvp = 1; for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { if (sd->bl_m == pl_sd->bl_m && !pl_sd->pvp_timer) { pl_sd->pvp_timer = Timer(gettick() + std::chrono::milliseconds(200), std::bind(pc_calc_pvprank_timer, ph::_1, ph::_2, pl_sd->bl_id)); pl_sd->pvp_rank = 0; pl_sd->pvp_lastusers = 0; pl_sd->pvp_point = 5; } } } clif_displaymessage(fd, "PvP: On."); } else { clif_displaymessage(fd, "PvP is already On."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_model(const int fd, dumb_ptr sd, ZString message) { int hair_style = 0, hair_color = 0, cloth_color = 0; if (!extract(message, record<' ', 1>(&hair_style, &hair_color, &cloth_color))) { FString output = STRPRINTF( "Please, enter at least a value (usage: @model ).", MIN_HAIR_STYLE, MAX_HAIR_STYLE, MIN_HAIR_COLOR, MAX_HAIR_COLOR, MIN_CLOTH_COLOR, MAX_CLOTH_COLOR); clif_displaymessage(fd, 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, "Appearence changed."); } } else { clif_displaymessage(fd, "An invalid number was specified."); return -1; } return 0; } /*========================================== * @dye && @ccolor *------------------------------------------ */ int atcommand_dye(const int fd, dumb_ptr sd, ZString message) { int cloth_color = 0; if (!extract(message, &cloth_color)) { FString output = STRPRINTF( "Please, enter a clothes color (usage: @dye/@ccolor ).", MIN_CLOTH_COLOR, MAX_CLOTH_COLOR); clif_displaymessage(fd, 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, "Appearence changed."); } } else { clif_displaymessage(fd, "An invalid number was specified."); return -1; } return 0; } /*========================================== * @hairstyle && @hstyle *------------------------------------------ */ int atcommand_hair_style(const int fd, dumb_ptr sd, ZString message) { int hair_style = 0; if (!extract(message, &hair_style)) { FString output = STRPRINTF( "Please, enter a hair style (usage: @hairstyle/@hstyle ).", MIN_HAIR_STYLE, MAX_HAIR_STYLE); clif_displaymessage(fd, output); return -1; } if (hair_style >= MIN_HAIR_STYLE && hair_style <= MAX_HAIR_STYLE) { { pc_changelook(sd, LOOK::HAIR, hair_style); clif_displaymessage(fd, "Appearence changed."); } } else { clif_displaymessage(fd, "An invalid number was specified."); return -1; } return 0; } /*========================================== * @haircolor && @hcolor *------------------------------------------ */ int atcommand_hair_color(const int fd, dumb_ptr sd, ZString message) { int hair_color = 0; if (!extract(message, &hair_color)) { FString output = STRPRINTF( "Please, enter a hair color (usage: @haircolor/@hcolor ).", MIN_HAIR_COLOR, MAX_HAIR_COLOR); clif_displaymessage(fd, 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, "Appearence changed."); } } else { clif_displaymessage(fd, "An invalid number was specified."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_spawn(const int fd, dumb_ptr sd, ZString message) { MobName monster; int mob_id; int number = 0; int x = 0, y = 0; int count; int i, j, k; int mx, my, range; if (!extract(message, record<' ', 1>(&monster, &number, &x, &y))) { clif_displaymessage(fd, "Give a monster name/id please."); return -1; } // If monster identifier/name argument is a name if ((mob_id = mobdb_searchname(monster)) == 0) // check name first (to avoid possible name begining by a number) mob_id = mobdb_checkid(atoi(monster.c_str())); if (mob_id == 0) { clif_displaymessage(fd, "Invalid monster ID or name."); return -1; } if (number <= 0) number = 1; // 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.atcommand_spawn_quantity_limit >= 1 && number > battle_config.atcommand_spawn_quantity_limit) number = battle_config.atcommand_spawn_quantity_limit; if (battle_config.etc_log) PRINTF("@spawn monster='%s' id=%d count=%d (%d,%d)\n", monster, mob_id, number, x, y); count = 0; range = sqrt(number) / 2; range = range * 2 + 5; // calculation of an odd number (+ 4 area around) for (i = 0; i < number; i++) { j = 0; k = 0; while (j++ < 8 && k == 0) { // try 8 times to spawn the monster (needed for close area) if (x <= 0) mx = sd->bl_x + random_::in(-range / 2, range / 2 ); else mx = x; if (y <= 0) my = sd->bl_y + random_::in(-range / 2, range / 2); else my = y; k = mob_once_spawn(sd, MOB_THIS_MAP, mx, my, MobName(), mob_id, 1, NpcEvent()); } count += (k != 0) ? 1 : 0; } if (count != 0) if (number == count) clif_displaymessage(fd, "All monster summoned!"); else { FString output = STRPRINTF("%d monster(s) summoned!", count); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Invalid monster ID or name."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ static void atcommand_killmonster_sub(const int fd, dumb_ptr sd, ZString message, const int drop) { map_local *map_id; { MapName map_name; extract(message, &map_name); map_id = map_mapname2mapid(map_name); if (map_id == nullptr) map_id = sd->bl_m; } map_foreachinarea(std::bind(atkillmonster_sub, ph::_1, drop), map_id, 0, 0, map_id->xs, map_id->ys, BL::MOB); clif_displaymessage(fd, "All monsters killed!"); } /*========================================== * *------------------------------------------ */ int atcommand_killmonster(const int fd, dumb_ptr sd, ZString message) { atcommand_killmonster_sub(fd, sd, message, 1); return 0; } /*========================================== * *------------------------------------------ */ static void atlist_nearby_sub(dumb_ptr bl, int fd) { nullpo_retv(bl); FString buf = STRPRINTF(" - \"%s\"", bl->as_player()->status.name); clif_displaymessage(fd, buf); } /*========================================== * *------------------------------------------ */ int atcommand_list_nearby(const int fd, dumb_ptr sd, ZString) { clif_displaymessage(fd, "Nearby players:"); map_foreachinarea(std::bind(atlist_nearby_sub, ph::_1, fd), sd->bl_m, sd->bl_x - 1, sd->bl_y - 1, sd->bl_x + 1, sd->bl_x + 1, BL::PC); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_killmonster2(const int fd, dumb_ptr sd, ZString message) { atcommand_killmonster_sub(fd, sd, message, 0); return 0; } /*========================================== * *------------------------------------------ */ int atcommand_gat(const int fd, dumb_ptr sd, ZString) { int y; for (y = 2; y >= -2; y--) { FString output = STRPRINTF( "%s (x= %d, y= %d) %02X %02X %02X %02X %02X", 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), map_getcell(sd->bl_m, sd->bl_x - 1, sd->bl_y + y), map_getcell(sd->bl_m, sd->bl_x, sd->bl_y + y), map_getcell(sd->bl_m, sd->bl_x + 1, sd->bl_y + y), map_getcell(sd->bl_m, sd->bl_x + 2, sd->bl_y + y)); clif_displaymessage(fd, output); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_packet(const int fd, dumb_ptr sd, ZString message) { StatusChange type {}; int flag = 0; if (!extract(message, record<' '>(&type, &flag))) { clif_displaymessage(fd, "Please, enter a status type/flag (usage: @packet )."); return -1; } clif_status_change(sd, type, flag); return 0; } /*========================================== * @stpoint (Rewritten by [Yor]) *------------------------------------------ */ int atcommand_statuspoint(const int fd, dumb_ptr sd, ZString message) { int point, new_status_point; if (!extract(message, &point) || point == 0) { clif_displaymessage(fd, "Please, enter a number (usage: @stpoint )."); return -1; } new_status_point = sd->status.status_point + point; if (point > 0 && (point > 0x7FFF || new_status_point > 0x7FFF)) // fix positiv overflow new_status_point = 0x7FFF; else if (point < 0 && (point < -0x7FFF || new_status_point < 0)) // fix negativ overflow new_status_point = 0; if (new_status_point != sd->status.status_point) { sd->status.status_point = new_status_point; clif_updatestatus(sd, SP::STATUSPOINT); clif_displaymessage(fd, "Number of status points changed!"); } else { if (point < 0) clif_displaymessage(fd, "Impossible to decrease the number/value."); else clif_displaymessage(fd, "Impossible to increase the number/value."); return -1; } return 0; } /*========================================== * @skpoint (Rewritten by [Yor]) *------------------------------------------ */ int atcommand_skillpoint(const int fd, dumb_ptr sd, ZString message) { int point, new_skill_point; if (!extract(message, &point) || point == 0) { clif_displaymessage(fd, "Please, enter a number (usage: @skpoint )."); return -1; } new_skill_point = sd->status.skill_point + point; if (point > 0 && (point > 0x7FFF || new_skill_point > 0x7FFF)) // fix positiv overflow new_skill_point = 0x7FFF; else if (point < 0 && (point < -0x7FFF || new_skill_point < 0)) // fix negativ overflow new_skill_point = 0; if (new_skill_point != sd->status.skill_point) { sd->status.skill_point = new_skill_point; clif_updatestatus(sd, SP::SKILLPOINT); clif_displaymessage(fd, "Number of skill points changed!"); } else { if (point < 0) clif_displaymessage(fd, "Impossible to decrease the number/value."); else clif_displaymessage(fd, "Impossible to increase the number/value."); return -1; } return 0; } /*========================================== * @zeny (Rewritten by [Yor]) *------------------------------------------ */ int atcommand_zeny(const int fd, dumb_ptr sd, ZString message) { int zeny, new_zeny; if (!extract(message, &zeny) || zeny == 0) { clif_displaymessage(fd, "Please, enter an amount (usage: @zeny )."); return -1; } new_zeny = sd->status.zeny + zeny; if (zeny > 0 && (zeny > MAX_ZENY || new_zeny > MAX_ZENY)) // fix positiv overflow new_zeny = MAX_ZENY; else if (zeny < 0 && (zeny < -MAX_ZENY || new_zeny < 0)) // fix negativ overflow new_zeny = 0; if (new_zeny != sd->status.zeny) { sd->status.zeny = new_zeny; clif_updatestatus(sd, SP::ZENY); clif_displaymessage(fd, "Number of zenys changed!"); } else { if (zeny < 0) clif_displaymessage(fd, "Impossible to decrease the number/value."); else clif_displaymessage(fd, "Impossible to increase the number/value."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ template int atcommand_param(const int fd, dumb_ptr sd, ZString message) { int value = 0, new_value; if (!extract(message, &value) || value == 0) { // there was a clang bug here // fortunately, STRPRINTF was not actually needed clif_displaymessage(fd, "Please, enter a valid value (usage: @str,@agi,@vit,@int,@dex,@luk <+/-adjustement>)."); return -1; } new_value = sd->status.attrs[attr] + value; if (value > 0 && (value > battle_config.max_parameter || new_value > battle_config.max_parameter)) // fix positiv overflow new_value = battle_config.max_parameter; else if (value < 0 && (value < -battle_config.max_parameter || new_value < 1)) // fix negativ overflow new_value = 1; if (new_value != sd->status.attrs[attr]) { sd->status.attrs[attr] = new_value; clif_updatestatus(sd, attr_to_sp(attr)); clif_updatestatus(sd, attr_to_usp(attr)); pc_calcstatus(sd, 0); clif_displaymessage(fd, "Stat changed."); } else { if (value < 0) clif_displaymessage(fd, "Impossible to decrease the number/value."); else clif_displaymessage(fd, "Impossible to increase the number/value."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ //** Stat all by fritz (rewritten by [Yor]) int atcommand_all_stats(const int fd, dumb_ptr sd, ZString message) { int count, value = 0, new_value; if (!extract(message, &value) || value == 0) value = battle_config.max_parameter; count = 0; for (ATTR attr : ATTRs) { new_value = sd->status.attrs[attr] + value; if (value > 0 && (value > battle_config.max_parameter || new_value > battle_config.max_parameter)) // fix positiv overflow new_value = battle_config.max_parameter; else if (value < 0 && (value < -battle_config.max_parameter || new_value < 1)) // fix negativ overflow new_value = 1; if (new_value != sd->status.attrs[attr]) { sd->status.attrs[attr] = new_value; clif_updatestatus(sd, attr_to_sp(attr)); clif_updatestatus(sd, attr_to_usp(attr)); pc_calcstatus(sd, 0); count++; } } if (count > 0) // if at least 1 stat modified clif_displaymessage(fd, "All stats changed!"); else { if (value < 0) clif_displaymessage(fd, "Impossible to decrease a stat."); else clif_displaymessage(fd, "Impossible to increase a stat."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_recall(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @recall )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { if (pc_isGM(sd) >= pc_isGM(pl_sd)) { // you can recall only lower or same level if (sd->bl_m && sd->bl_m->flag.nowarpto && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp somenone to your actual map."); return -1; } if (pl_sd->bl_m && pl_sd->bl_m->flag.nowarp && battle_config.any_warp_GM_min_level > pc_isGM(sd)) { clif_displaymessage(fd, "You are not authorised to warp this player from its actual map."); return -1; } pc_setpos(pl_sd, sd->mapname_, sd->bl_x, sd->bl_y, BeingRemoveWhy::QUIT); FString output = STRPRINTF("%s recalled!", character); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Your GM level don't authorise you to do this action on this player."); return -1; } } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_revive(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @revive )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { pl_sd->status.hp = pl_sd->status.max_hp; pc_setstand(pl_sd); if (static_cast(battle_config.player_invincible_time) > interval_t::zero()) pc_setinvincibletimer(sd, static_cast(battle_config.player_invincible_time)); clif_updatestatus(pl_sd, SP::HP); clif_updatestatus(pl_sd, SP::SP); clif_resurrection(pl_sd, 1); clif_displaymessage(fd, "Character revived."); } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_character_stats(const int fd, dumb_ptr, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @charstats )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { FString output; output = STRPRINTF("'%s' stats:", pl_sd->status.name); clif_displaymessage(fd, output); output = STRPRINTF("Base Level - %d", pl_sd->status.base_level), clif_displaymessage(fd, output); output = STRPRINTF("Job - Novice/Human (level %d)", pl_sd->status.job_level); clif_displaymessage(fd, output); output = STRPRINTF("Hp - %d", pl_sd->status.hp); clif_displaymessage(fd, output); output = STRPRINTF("MaxHp - %d", pl_sd->status.max_hp); clif_displaymessage(fd, output); output = STRPRINTF("Sp - %d", pl_sd->status.sp); clif_displaymessage(fd, output); output = STRPRINTF("MaxSp - %d", pl_sd->status.max_sp); clif_displaymessage(fd, output); output = STRPRINTF("Str - %3d", pl_sd->status.attrs[ATTR::STR]); clif_displaymessage(fd, output); output = STRPRINTF("Agi - %3d", pl_sd->status.attrs[ATTR::AGI]); clif_displaymessage(fd, output); output = STRPRINTF("Vit - %3d", pl_sd->status.attrs[ATTR::VIT]); clif_displaymessage(fd, output); output = STRPRINTF("Int - %3d", pl_sd->status.attrs[ATTR::INT]); clif_displaymessage(fd, output); output = STRPRINTF("Dex - %3d", pl_sd->status.attrs[ATTR::DEX]); clif_displaymessage(fd, output); output = STRPRINTF("Luk - %3d", pl_sd->status.attrs[ATTR::LUK]); clif_displaymessage(fd, output); output = STRPRINTF("Zeny - %d", pl_sd->status.zeny); clif_displaymessage(fd, output); } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * *------------------------------------------ */ //** Character Stats All by fritz int atcommand_character_stats_all(const int fd, dumb_ptr, ZString) { int count; count = 0; for (int i = 0; i < fd_max; i++) { if (!session[i]) continue; dumb_ptr pl_sd = dumb_ptr(static_cast(session[i]->session_data.get())); if (pl_sd && pl_sd->state.auth) { FString gmlevel; if (pc_isGM(pl_sd) > 0) gmlevel = STRPRINTF("| GM Lvl: %d", pc_isGM(pl_sd)); else gmlevel = " "; FString output; output = STRPRINTF( "Name: %s | BLvl: %d | Job: Novice/Human (Lvl: %d) | HP: %d/%d | SP: %d/%d", pl_sd->status.name, pl_sd->status.base_level, pl_sd->status.job_level, pl_sd->status.hp, pl_sd->status.max_hp, pl_sd->status.sp, pl_sd->status.max_sp); clif_displaymessage(fd, output); output = STRPRINTF("STR: %d | AGI: %d | VIT: %d | INT: %d | DEX: %d | LUK: %d | Zeny: %d %s", pl_sd->status.attrs[ATTR::STR], pl_sd->status.attrs[ATTR::AGI], pl_sd->status.attrs[ATTR::VIT], pl_sd->status.attrs[ATTR::INT], pl_sd->status.attrs[ATTR::DEX], pl_sd->status.attrs[ATTR::LUK], pl_sd->status.zeny, gmlevel); clif_displaymessage(fd, output); clif_displaymessage(fd, "--------"); count++; } } if (count == 0) clif_displaymessage(fd, "No player found."); else if (count == 1) clif_displaymessage(fd, "1 player found."); else { FString output = STRPRINTF("%d players found.", count); clif_displaymessage(fd, output); } return 0; } /*========================================== * *------------------------------------------ */ int atcommand_character_option(const int fd, dumb_ptr sd, ZString message) { Opt1 opt1; Opt2 opt2; Option opt3; CharName character; if (!asplit(message, &opt1, &opt2, &opt3, &character)) { clif_displaymessage(fd, "Please, enter valid options and a player name (usage: @charoption )."); return -1; } dumb_ptr pl_sd = map_nick2sd(character); if (pl_sd != NULL) { if (pc_isGM(sd) >= pc_isGM(pl_sd)) { // you can change option only to lower or same level pl_sd->opt1 = opt1; pl_sd->opt2 = opt2; pl_sd->status.option = opt3; clif_changeoption(pl_sd); pc_calcstatus(pl_sd, 0); clif_displaymessage(fd, "Character's options changed."); } else { clif_displaymessage(fd, "Your GM level don't authorise you to do this action on this player."); return -1; } } else { clif_displaymessage(fd, "Character not found."); return -1; } return 0; } /*========================================== * charchangesex command (usage: charchangesex ) *------------------------------------------ */ int atcommand_char_change_sex(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @charchangesex )."); return -1; } { chrif_char_ask_name(sd->status.account_id, character, 5, HumanTimeDiff()); // type: 5 - changesex clif_displaymessage(fd, "Character name sends to char-server to ask it."); } return 0; } /*========================================== * charblock command (usage: charblock ) * This command do a definitiv ban on a player *------------------------------------------ */ int atcommand_char_block(const int fd, dumb_ptr sd, ZString message) { CharName character; if (!asplit(message, &character)) { clif_displaymessage(fd, "Please, enter a player name (usage: @block )."); return -1; } { chrif_char_ask_name(sd->status.account_id, character, 1, HumanTimeDiff()); // type: 1 - block clif_displaymessage(fd, "Character name sends to char-server to ask it."); } return 0; } /*========================================== * charban command (usage: charban