diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Makefile.am | 2 | ||||
| -rw-r--r-- | src/emap/init.c | 1 | ||||
| -rw-r--r-- | src/emap/script.c | 1644 | ||||
| -rw-r--r-- | src/emap/script.h | 66 | ||||
| -rw-r--r-- | src/emap/script_buildins.c | 1655 | ||||
| -rw-r--r-- | src/emap/script_buildins.h | 73 |
6 files changed, 1731 insertions, 1710 deletions
diff --git a/src/Makefile.am b/src/Makefile.am index b7278ac..afd8435 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -68,6 +68,8 @@ MAP_SRC = emap/atcommand.c \ emap/quest.h \ emap/script.c \ emap/script.h \ + emap/script_buildins.c \ + emap/script_buildins.h \ emap/scriptdefines.h \ emap/send.c \ emap/send.h \ diff --git a/src/emap/init.c b/src/emap/init.c index 906b4b3..f3b98cb 100644 --- a/src/emap/init.c +++ b/src/emap/init.c @@ -61,6 +61,7 @@ #include "emap/pc.h" #include "emap/quest.h" #include "emap/script.h" +#include "emap/script_buildins.h" #include "emap/skill.h" #include "emap/status.h" diff --git a/src/emap/script.c b/src/emap/script.c index 12e01e5..178b99a 100644 --- a/src/emap/script.c +++ b/src/emap/script.c @@ -9,36 +9,14 @@ #include "common/HPMi.h" #include "common/memmgr.h" -#include "common/mmo.h" -#include "common/utils.h" -#include "common/socket.h" -#include "common/strlib.h" -#include "common/timer.h" -#include "map/chat.h" -#include "map/chrif.h" -#include "map/clif.h" #include "map/npc.h" #include "map/pc.h" #include "map/script.h" -#include "map/quest.h" -#include "map/unit.h" #include "emap/script.h" -#include "emap/clif.h" -#include "emap/craft.h" -#include "emap/lang.h" #include "emap/map.h" -#include "emap/scriptdefines.h" -#include "emap/send.h" -#include "emap/data/bgd.h" -#include "emap/data/mapd.h" #include "emap/data/npcd.h" -#include "emap/data/session.h" -#include "emap/struct/bgdext.h" -#include "emap/struct/mapdext.h" #include "emap/struct/npcdext.h" -#include "emap/struct/sessionext.h" -#include "emap/utils/formatutils.h" #define getExt2() \ TBL_NPC *nd = NULL; \ @@ -86,8 +64,6 @@ if (!nd) \ return r; -extern int mountScriptId; - int escript_reload(void) { map_clear_data(); @@ -398,1623 +374,3 @@ void script_run_card_script(TBL_PC *sd, struct script_code *itemScript, int item pc->setreg(sd, script->add_str("@cardId"), 0); script->current_item_id = 0; } - -uint32 MakeDWord(uint16 word0, uint16 word1) -{ - return ((uint32)(word0)) | ((uint32)(word1 << 0x10)); -} - -BUILDIN(l) -{ - format_sub(st, 1); - return true; -} - -BUILDIN(lg) -{ - format_sub(st, 2); - return true; -} - -BUILDIN(setCamNpc) -{ - getSD(); - TBL_NPC *nd = NULL; - - int x = 0; - int y = 0; - - if (script_hasdata(st, 2)) - { - nd = npc->name2id (script_getstr(st, 2)); - } - else - { - if (!st->oid) - { - ShowWarning("npc not attached\n"); - script->reportsrc(st); - return false; - } - - nd = map->id2nd(st->oid); - } - if (!nd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - if (sd->bl.m != nd->bl.m) - { - ShowWarning("npc and player located in other maps\n"); - script->reportsrc(st); - return false; - } - - if (script_hasdata(st, 3) && script_hasdata(st, 4)) - { - x = script_getnum(st, 3); - y = script_getnum(st, 4); - } - - send_npccommand2(sd, st->oid, 2, nd->bl.id, x, y); - - return true; -} - -BUILDIN(setCam) -{ - send_npccommand2(script->rid2sd (st), st->oid, 2, 0, - script_getnum(st, 2), script_getnum(st, 3)); - - return true; -} - -BUILDIN(moveCam) -{ - send_npccommand2(script->rid2sd (st), st->oid, 4, 0, - script_getnum(st, 2), script_getnum(st, 3)); - - return true; -} - -BUILDIN(restoreCam) -{ - getSD(); - send_npccommand(sd, st->oid, 3); - return true; -} - -BUILDIN(npcTalk3) -{ - const char *msg; - - getSD(); - - TBL_NPC *nd = map->id2nd(st->oid); - const char *str = script_getstr(st, 2); - - if (!nd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - - if (!str) - { - ShowWarning("error in string\n"); - script->reportsrc(st); - return false; - } - - if (sd) - msg = lang_pctrans (nd->name, sd); - else - msg = nd->name; - - if (!msg) - { - ShowWarning("error in string\n"); - script->reportsrc(st); - return false; - } - if (strlen(str) + strlen(msg) > 450) - { - ShowWarning("text message too big\n"); - script->reportsrc(st); - return false; - } - - if (nd) - { - char message[500]; - char name[500]; - strcpy (name, msg); - strtok(name, "#"); - strcpy (message, name); - strcat (message, " : "); - strcat (message, str); - send_local_message (sd->fd, &(nd->bl), message); - } - - return true; -} - -BUILDIN(closeDialog) -{ - getSD(); - send_npccommand(sd, st->oid, 5); - return true; -} - -BUILDIN(shop) -{ - getSD(); - TBL_NPC *nd = npc->name2id (script_getstr(st, 2)); - if (!nd) - { - ShowWarning("shop npc not found\n"); - script->reportsrc(st); - return false; - } - - st->state = sd->state.dialog == 1 ? CLOSE : END; - clif->scriptclose(sd, st->oid); - - clif->npcbuysell (sd, nd->bl.id); - return true; -} - -#define paramToItem(param) \ - if (script_isstringtype(st, param)) \ - { \ - i_data = itemdb->search_name (script_getstr(st, param)); \ - } \ - else \ - { \ - item_id = script_getnum (st, param); \ - if (item_id) \ - i_data = itemdb->search (item_id); \ - } - -BUILDIN(getItemLink) -{ - struct item_data *i_data = NULL; - char *item_name; - int item_id = 0; - - paramToItem(2); - - item_name = (char *) aCalloc (1000, sizeof (char)); - TBL_PC *sd = script->rid2sd(st); - - if (sd) - { - int version = 0; - struct SessionExt *data = session_get_bysd(sd); - if (data) - version = data->clientVersion; - - if (i_data && version >= 7) - { - if (!script_hasdata(st, 3)) - { - sprintf(item_name, "[@@%u|@@]", (unsigned)i_data->nameid); - } - else - { - sprintf(item_name, "[@@%u", (unsigned)i_data->nameid); - int f; - for (f = 3; f < 7 && script_hasdata(st, f); f ++) - { - paramToItem(f); - if (i_data) - { - char buf[100]; - sprintf(buf, ",%u", (unsigned)i_data->nameid); - strcat(item_name, buf); - } - } - strcat(item_name, "|@@]"); - } - } - else if (i_data) - { - sprintf(item_name, "[@@%u|%s@@]", (unsigned)i_data->nameid, lang_pctrans (i_data->jname, sd)); - } - else if (item_id > 0) - { - sprintf(item_name, "[@@%u|Unknown Item@@]", (unsigned)item_id); - } - else - { - sprintf(item_name, "[Unknown Item]"); - } - } - else - { - if (i_data) - sprintf(item_name, "[%s]", lang_pctrans (i_data->jname, sd)); - else - sprintf(item_name, "[Unknown Item]"); - } - - script_pushstr(st, item_name); - - return true; -} - -#undef paramToItem - -BUILDIN(requestLang) -{ - getSDReturn(-1); - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send lang request - send_npccommand(sd, st->oid, 0); - clif->scriptinputstr(sd, st->oid); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - int lng = -1; - if (*sd->npc_str) - lng = lang_getId(sd->npc_str); - script_pushint(st, lng); - st->state = RUN; - } - return true; -} - -BUILDIN(requestItem) -{ - getSDReturn(0); - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send item request - send_npccommand(sd, st->oid, 10); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - int item = 0; - - if (!sd->npc_str) - { - ShowWarning("npc string not found\n"); - script_pushint(st, 0); - script->reportsrc(st); - return false; - } - - if (sscanf (sd->npc_str, "%5d", &item) < 1) - { - ShowWarning("input data is not item id\n"); - script_pushint(st, 0); - script->reportsrc(st); - return false; - } - - script_pushint(st, item); - st->state = RUN; - } - return true; -} - -BUILDIN(requestItems) -{ - getSDReturnS("0,0"); - int count = 1; - - if (script_hasdata(st, 2)) - { - count = script_getnum(st, 2); - if (count < 0) - count = 1; - } - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send item request with limit count - send_npccommand2(sd, st->oid, 10, count, 0, 0); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - if (!sd->npc_str) - { - ShowWarning("npc string not found\n"); - script_pushstr(st, aStrdup("0,0")); - script->reportsrc(st); - return false; - } - - script_pushstr(st, aStrdup(sd->npc_str)); - st->state = RUN; - } - return true; -} - -BUILDIN(requestItemIndex) -{ - getSessionDataReturn(client, -1); - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send item request - if (client || client->clientVersion >= 11) - send_npccommand(sd, st->oid, 11); - else - clif->scriptinputstr(sd, st->oid); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - int item = -1; - - if (!sd->npc_str) - { - script_pushint(st, -1); - ShowWarning("npc string not found\n"); - script->reportsrc(st); - return false; - } - - if (sscanf (sd->npc_str, "%5d", &item) < 1) - { - script_pushint(st, -1); - ShowWarning("input data is not item id\n"); - script->reportsrc(st); - return false; - } - - script_pushint(st, item); - st->state = RUN; - } - return true; -} - -BUILDIN(requestItemsIndex) -{ - getSessionDataReturnS(client, "-1"); - int count = 1; - - if (script_hasdata(st, 2)) - { - count = script_getnum(st, 2); - if (count < 0) - count = 1; - } - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send item request with limit count - if (client || client->clientVersion >= 11) - send_npccommand2(sd, st->oid, 11, count, 0, 0); - else - clif->scriptinputstr(sd, st->oid); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - if (!sd->npc_str) - { - script_pushstr(st, aStrdup("-1")); - ShowWarning("npc string not found\n"); - script->reportsrc(st); - return false; - } - - script_pushstr(st, aStrdup(sd->npc_str)); - st->state = RUN; - } - return true; -} - -BUILDIN(requestCraft) -{ - getSessionData(client); - - int count = 1; - - if (script_hasdata(st, 2)) - { - count = script_getnum(st, 2); - if (count < 0) - count = 1; - } - - if (!sd->state.menu_or_input) - { - // first invocation, display npc input box - sd->state.menu_or_input = 1; - st->state = RERUNLINE; - - // send item request with limit count - if (client || client->clientVersion >= 16) - send_npccommand2(sd, st->oid, 12, count, 0, 0); - else - clif->scriptinputstr(sd, st->oid); - } - else - { - // take received text/value and store it in the designated variable - sd->state.menu_or_input = 0; - - if (!sd->npc_str) - { - ShowWarning("npc string not found\n"); - script->reportsrc(st); - script_pushstr(st, aStrdup("")); - return false; - } - - script_pushstr(st, aStrdup(sd->npc_str)); - st->state = RUN; - } - return true; -} - -BUILDIN(setq) -{ - int i; - getSD(); - - int quest_id = script_getnum(st, 2); - int quest_value = script_getnum(st, 3); - - if (quest->check(sd, quest_id, HAVEQUEST) < 0) - quest->add(sd, quest_id); - ARR_FIND(0, sd->num_quests, i, sd->quest_log[i].quest_id == quest_id); - if (i == sd->num_quests) - { - ShowError("Quest with id=%d not found\n", quest_id); - script->reportsrc(st); - return false; - } - - sd->quest_log[i].count[0] = quest_value; - sd->save_quest = true; - if (map->save_settings & 64) - chrif->save(sd,0); - - eclif_quest_add(sd, &sd->quest_log[i]); - return true; -} - -BUILDIN(getq) -{ - int i; - getSDReturn(0); - - int quest_id = script_getnum(st, 2); - if (quest->check(sd, quest_id, HAVEQUEST) < 0) - { - script_pushint(st, 0); - return true; - } - ARR_FIND(0, sd->num_quests, i, sd->quest_log[i].quest_id == quest_id); - if (i == sd->num_quests) - { - script_pushint(st, 0); - return true; - } - script_pushint(st, sd->quest_log[i].count[0]); - return true; -} - -BUILDIN(setNpcDir) -{ - int newdir; - TBL_NPC *nd = 0; - - if (script_hasdata(st, 3)) - { - nd = npc->name2id (script_getstr(st, 2)); - newdir = script_getnum(st, 3); - } - else if (script_hasdata(st, 2)) - { - if (!st->oid) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - - nd = map->id2nd(st->oid); - newdir = script_getnum(st, 2); - } - if (!nd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - - if (newdir < 0) - newdir = 0; - else if (newdir > 7) - newdir = 7; - - nd->dir = newdir; - npc->enable (nd->name, 1); - - return true; -} - -BUILDIN(rif) -{ - const char *str = 0; - if (script_getnum(st, 2)) - { - str = script_getstr(st, 3); - if (str) - script_pushstr(st, aStrdup(str)); - else - script_pushconststr(st, (char *)""); - } - else if (script_hasdata(st, 4)) - { - str = script_getstr(st, 4); - if (str) - script_pushstr(st, aStrdup(str)); - else - script_pushconststr(st, (char *)""); - } - else - { - script_pushconststr(st, (char *)""); - } - - return true; -} - -BUILDIN(miscEffect) -{ - int type = script_getnum(st, 2); - struct block_list *bl = NULL; - - if (script_hasdata(st, 3)) - { - if (script_isstring(st, 3)) - { - TBL_PC *sd = map->nick2sd(script_getstr(st, 3)); - if (sd) - bl = &sd->bl; - } - else if (script_isint(st, 3)) - { - bl = map->id2bl(script_getnum(st, 3)); - } - } - - if (!bl) - { - TBL_PC *sd = script->rid2sd (st); - if (sd) - bl = &sd->bl; - } - if (bl) - clif->specialeffect(bl, type, AREA); - return true; -} - -BUILDIN(setMapMask) -{ - const char *const mapName = script_getstr(st, 2); - if (!mapName) - { - ShowWarning("invalid map name\n"); - script->reportsrc(st); - return false; - } - const int m = map->mapname2mapid(mapName); - if (m < 0) - { - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - getMapData(m); - - const int val = script_getnum(st, 3); - const unsigned int old = mapData->mask; - mapData->mask = val; - if (old != mapData->mask) - send_mapmask_brodcast(m, mapData->mask); - return true; -} - -BUILDIN(getMapMask) -{ - const char *const mapName = script_getstr(st, 2); - if (!mapName) - { - script_pushint(st, 0); - ShowWarning("invalid map name\n"); - script->reportsrc(st); - return false; - } - const int m = map->mapname2mapid(mapName); - if (m < 0) - { - script_pushint(st, 0); - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - getMapDataReturn(m, 0); - script_pushint(st, mapData->mask); - return true; -} - -BUILDIN(addMapMask) -{ - const char *const mapName = script_getstr(st, 2); - if (!mapName) - { - ShowWarning("invalid map name\n"); - script->reportsrc(st); - return false; - } - const int m = map->mapname2mapid(mapName); - if (m < 0) - { - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - getMapData(m); - const int val = script_getnum(st, 3); - const unsigned int old = mapData->mask; - mapData->mask |= val; - if (old != mapData->mask) - send_mapmask_brodcast(m, mapData->mask); - - return true; -} - -BUILDIN(removeMapMask) -{ - const char *const mapName = script_getstr(st, 2); - if (!mapName) - { - ShowWarning("invalid map name\n"); - script->reportsrc(st); - return true; - } - const int m = map->mapname2mapid(mapName); - if (m < 0) - { - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - getMapData(m); - const int val = script_getnum(st, 3); - const unsigned int old = mapData->mask; - mapData->mask |= val; - mapData->mask ^= val; - if (old != mapData->mask) - send_mapmask_brodcast(m, mapData->mask); - return true; -} - -BUILDIN(setNpcSex) -{ - TBL_NPC *nd = NULL; - int sex = 0; - if (script_hasdata(st, 3)) - { - nd = npc->name2id (script_getstr(st, 2)); - sex = script_getnum(st, 3); - } - - if (!nd || !nd->vd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - - clif->clearunit_area(&nd->bl, CLR_OUTSIGHT); - nd->vd->sex = sex; - clif->spawn(&nd->bl); - return true; -} - -BUILDIN(showAvatar) -{ - int id = 0; - if (script_hasdata(st, 2)) - id = script_getnum(st, 2); - - send_npccommand2(script->rid2sd (st), st->oid, 6, id, 0, 0); - return true; -} - -BUILDIN(setAvatarDir) -{ - int newdir = script_getnum(st, 2); - - if (newdir < 0) - newdir = 0; - else if (newdir > 7) - newdir = 7; - - send_npccommand2(script->rid2sd (st), st->oid, 7, newdir, 0, 0); - return true; -} - -BUILDIN(setAvatarAction) -{ - send_npccommand2(script->rid2sd (st), st->oid, 8, script_getnum(st, 2), 0, 0); - return true; -} - -BUILDIN(clear) -{ - send_npccommand(script->rid2sd (st), st->oid, 9); - return true; -} - -BUILDIN(changeMusic) -{ - const char *const mapName = script_getstr(st, 2); - const char *const music = script_getstr(st, 3); - if (!music) - { - ShowWarning("invalid music file\n"); - script->reportsrc(st); - return false; - } - if (!mapName) - { - ShowWarning("invalid map file\n"); - script->reportsrc(st); - return false; - } - const int m = map->mapname2mapid(mapName); - if (m < 0) - { - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - - send_changemusic_brodcast(m, music); - return true; -} - -BUILDIN(setNpcDialogTitle) -{ - const char *const name = script_getstr(st, 2); - if (!name) - { - ShowWarning("invalid window title\n"); - script->reportsrc(st); - return false; - } - TBL_PC *sd = script->rid2sd (st); - if (!sd) - { - ShowWarning("player not attached\n"); - script->reportsrc(st); - return false; - } - - send_changenpc_title(sd, st->oid, name); - return true; -} - -BUILDIN(getMapName) -{ - TBL_PC *sd = script->rid2sd(st); - if (!sd) - { - script_pushstr(st, aStrdup("")); - ShowWarning("player not attached\n"); - script->reportsrc(st); - return false; - } - if (sd->bl.m == -1) - { - script_pushstr(st, aStrdup("")); - ShowWarning("invalid map\n"); - script->reportsrc(st); - return false; - } - script_pushstr(st, aStrdup(map->list[sd->bl.m].name)); - return true; -} - -BUILDIN(unequipById) -{ - int nameid = 0; - int i; - struct item_data *item_data; - TBL_PC *sd = script->rid2sd(st); - - if (sd == NULL) - { - ShowWarning("player not attached\n"); - script->reportsrc(st); - return false; - } - - nameid = script_getnum(st, 2); - if((item_data = itemdb->exists(nameid)) == NULL) - { - ShowWarning("item %d not found\n", nameid); - script->reportsrc(st); - return false; - } - for (i = 0; i < EQI_MAX; i++) - { - const int idx = sd->equip_index[i]; - if (idx >= 0) - { - if (sd->status.inventory[idx].nameid == nameid) - pc->unequipitem(sd, idx, 1 | 2); - } - } - return true; -} - -BUILDIN(isPcDead) -{ - TBL_PC *sd = script->rid2sd(st); - - if (sd == NULL) - { - ShowWarning("player not attached\n"); - script->reportsrc(st); - return false; - } - - script_pushint(st, pc_isdead(sd) ? 1 : 0); - return true; -} - -static int areatimer_sub(struct block_list *bl, va_list ap) -{ - int tick; - char *event; - TBL_PC *sd; - - tick = va_arg(ap, int); - event = va_arg(ap, char*); - - sd = (TBL_PC *)bl; - if (!pc->addeventtimer(sd, tick, event)) - { - if (sd) - ShowWarning("buildin_addtimer: Event timer is full, can't add new event timer. (cid:%d timer:%s)\n", sd->status.char_id, event); - } - return 0; -} - -BUILDIN(areaTimer) -{ - const char *const mapname = script_getstr(st, 2); - const int x1 = script_getnum(st, 3); - const int y1 = script_getnum(st, 4); - const int x2 = script_getnum(st, 5); - const int y2 = script_getnum(st, 6); - const int time = script_getnum(st, 7); - const char *const eventName = script_getstr(st, 8); - int m; - - if ((m = map->mapname2mapid(mapname)) < 0) - { - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - - map->foreachinarea(areatimer_sub, m, x1, y1, x2, y2, BL_PC, time, eventName); - - return true; -} - -static int buildin_getareadropitem_sub_del(struct block_list *bl, va_list ap) -{ - if (!bl) - return 0; - - const int item = va_arg(ap, int); - int *const amount = va_arg(ap, int *); - TBL_ITEM *drop = (TBL_ITEM *)bl; - - if (drop->item_data.nameid == item) - { - (*amount) += drop->item_data.amount; - map->clearflooritem(&drop->bl); - } - - return 0; -} - -BUILDIN(getAreaDropItem) -{ - const char *const str = script_getstr(st, 2); - int16 m; - int x0 = script_getnum(st, 3); - int y0 = script_getnum(st, 4); - int x1 = script_getnum(st, 5); - int y1 = script_getnum(st, 6); - int item; - int amount = 0; - - if (script_isstringtype(st, 7)) - { - const char *name = script_getstr(st, 7); - struct item_data *item_data = itemdb->search_name(name); - item = UNKNOWN_ITEM_ID; - if (item_data) - item = item_data->nameid; - } - else - { - item = script_getnum(st, 7); - } - - if ((m = map->mapname2mapid(str)) < 0) - { - script_pushint(st, -1); - ShowWarning("map not found\n"); - script->reportsrc(st); - return false; - } - - if (script_hasdata(st, 8) && script_getnum(st, 8)) - { - map->foreachinarea(buildin_getareadropitem_sub_del, - m, x0, y0, x1, y1, BL_ITEM, item, &amount); - } - else - { - map->foreachinarea(script->buildin_getareadropitem_sub, - m, x0, y0, x1, y1, BL_ITEM, item, &amount); - } - script_pushint(st, amount); - return true; -} - -BUILDIN(clientCommand) -{ - getSD(); - - const char *const command = script_getstr(st, 2); - if (!command) - { - ShowWarning("invalid client command\n"); - script->reportsrc(st); - return false; - } - send_client_command(sd, command); - return true; -} - -BUILDIN(isUnitWalking) -{ - int id = 0; - if (script_hasdata(st, 2)) - id = script_getnum(st, 2); - else - id = st->oid; - struct block_list *bl = map->id2bl(id); - if (!bl) - { - ShowWarning("invalid unit id\n"); - script->reportsrc(st); - script_pushint(st, 0); - return false; - } - struct unit_data *ud = unit->bl2ud(bl); - if (!ud) - { - ShowWarning("invalid unit data\n"); - script->reportsrc(st); - script_pushint(st, 0); - return false; - } - script_pushint(st, ud->walktimer != INVALID_TIMER); - return true; -} - -BUILDIN(failedRefIndex) -{ - getSD() - getInventoryIndex(2) - - if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) - return false; - - sd->status.inventory[n].refine = 0; - if (sd->status.inventory[n].equip) - pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); - clif->refine(sd->fd, 1, n, sd->status.inventory[n].refine); - pc->delitem(sd, n, 1, 0, DELITEM_FAILREFINE, LOG_TYPE_SCRIPT); - clif->misceffect(&sd->bl, 2); - return true; -} - -BUILDIN(downRefIndex) -{ - getSD() - getInventoryIndex(2) - - if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) - return false; - - const int down = script_getnum(st, 3); - - logs->pick_pc(sd, LOG_TYPE_SCRIPT, -1, &sd->status.inventory[n], sd->inventory_data[n]); - - if (sd->status.inventory[n].equip) - pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); - sd->status.inventory[n].refine -= down; - sd->status.inventory[n].refine = cap_value(sd->status.inventory[n].refine, 0, MAX_REFINE); - - clif->refine(sd->fd, 2, n, sd->status.inventory[n].refine); - clif->delitem(sd, n, 1, DELITEM_MATERIALCHANGE); - logs->pick_pc(sd, LOG_TYPE_SCRIPT, 1, &sd->status.inventory[n], sd->inventory_data[n]); - clif->additem(sd, n, 1, 0); - clif->misceffect(&sd->bl, 2); - return true; -} - -BUILDIN(successRefIndex) -{ - getSD() - getInventoryIndex(2) - - if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) - return false; - - const int up = script_getnum(st, 3); - - logs->pick_pc(sd, LOG_TYPE_SCRIPT, -1, &sd->status.inventory[n],sd->inventory_data[n]); - - if (sd->status.inventory[n].refine >= MAX_REFINE) - return true; - - sd->status.inventory[n].refine += up; - sd->status.inventory[n].refine = cap_value( sd->status.inventory[n].refine, 0, MAX_REFINE); - if (sd->status.inventory[n].equip) - pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); - clif->refine(sd->fd, 0, n, sd->status.inventory[n].refine); - clif->delitem(sd, n, 1, DELITEM_MATERIALCHANGE); - logs->pick_pc(sd, LOG_TYPE_SCRIPT, 1, &sd->status.inventory[n],sd->inventory_data[n]); - clif->additem(sd, n, 1, 0); - clif->misceffect(&sd->bl, 3); - - if (sd->status.inventory[n].refine == 10 && - sd->status.inventory[n].card[0] == CARD0_FORGE && - sd->status.char_id == (int)MakeDWord(sd->status.inventory[n].card[2], sd->status.inventory[n].card[3])) - { // Fame point system [DracoRPG] - switch (sd->inventory_data[n]->wlv) - { - case 1: - pc->addfame(sd,1); // Success to refine to +10 a lv1 weapon you forged = +1 fame point - break; - case 2: - pc->addfame(sd,25); // Success to refine to +10 a lv2 weapon you forged = +25 fame point - break; - case 3: - pc->addfame(sd,1000); // Success to refine to +10 a lv3 weapon you forged = +1000 fame point - break; - } - } - - return true; -} - -// return paramater type -// 0 - int -// 1 - string -// 2 - other -BUILDIN(isStr) -{ - if (script_isinttype(st, 2)) - script_pushint(st, 0); - else if (script_isstringtype(st, 2)) - script_pushint(st, 1); - else - script_pushint(st, 2); - return true; -} - -BUILDIN(npcSit) -{ - TBL_NPC *nd = NULL; - - if (script_hasdata(st, 2)) - { - nd = npc->name2id (script_getstr(st, 2)); - } - else - { - if (!st->oid) - { - ShowWarning("npc not attached\n"); - script->reportsrc(st); - return false; - } - - nd = map->id2nd(st->oid); - } - if (!nd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - nd->vd->dead_sit = 2; - clif->sitting(&nd->bl); - return true; -} - -BUILDIN(npcStand) -{ - TBL_NPC *nd = NULL; - - if (script_hasdata(st, 2)) - { - nd = npc->name2id (script_getstr(st, 2)); - } - else - { - if (!st->oid) - { - ShowWarning("npc not attached\n"); - script->reportsrc(st); - return false; - } - - nd = map->id2nd(st->oid); - } - if (!nd) - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - nd->vd->dead_sit = 0; - clif->standing(&nd->bl); - return true; -} - -BUILDIN(npcWalkTo) -{ - struct npc_data *nd = map->id2nd(st->oid); - int x = 0, y = 0; - - x = script_getnum(st, 2); - y = script_getnum(st, 3); - - if (nd) - { - unit->bl2ud2(&nd->bl); // ensure nd->ud is safe to edit - if (!nd->status.hp) - { - status_calc_npc(nd, SCO_FIRST); - } - else - { - status_calc_npc(nd, SCO_NONE); - } - nd->vd->dead_sit = 0; - unit->walktoxy(&nd->bl,x,y,0); - } - else - { - ShowWarning("npc not found\n"); - script->reportsrc(st); - return false; - } - - return true; -} - -BUILDIN(setBgTeam) -{ - int bgId = script_getnum(st, 2); - int teamId = script_getnum(st, 3); - - struct battleground_data *bgd = bg->team_search(bgId); - struct BgdExt *data = bgd_get(bgd); - if (!data) - { - ShowWarning("bettle ground not found\n"); - script->reportsrc(st); - return false; - } - - data->teamId = teamId; - return true; -} - -// chatjoin chatId [,char [,password]] -BUILDIN(chatJoin) -{ - int chatId = script_getnum(st, 2); - TBL_PC *sd = NULL; - const char *password = ""; - if (script_hasdata(st, 4)) - { - if (script_isstringtype(st, 3)) - sd = map->nick2sd(script_getstr(st, 3)); - if (script_isstringtype(st, 4)) - password = script_getstr(st, 4); - } - else if (script_hasdata(st, 3)) - { - if (script_isstringtype(st, 3)) - sd = map->nick2sd(script_getstr(st, 3)); - } - else - { - sd = script->rid2sd(st); - } - if (!sd) - { - ShowWarning("player not found\n"); - script->reportsrc(st); - return false; - } - - chat->join(sd, chatId, password); - return true; -} - -/// Retrieves the value of the specified flag of the specified cell. -/// -/// checknpccell("<map name>",<x>,<y>,<type>) -> <bool> -/// -/// @see cell_chk* constants in const.txt for the types -BUILDIN(checkNpcCell) -{ - int16 m = map->mapname2mapid(script_getstr(st, 2)); - int16 x = script_getnum(st, 3); - int16 y = script_getnum(st, 4); - cell_chk type = (cell_chk)script_getnum(st, 5); - - if (m == -1) - { - ShowWarning("checknpccell: Attempted to run on unexsitent map '%s', type %u, x/y %d,%d\n", script_getstr(st, 2), type, x, y); - return true; - } - - TBL_NPC *nd = map->id2nd(st->oid); - struct block_list *bl = NULL; - if (nd) - bl = &nd->bl; - - script_pushint(st, map->getcell(m, bl, x, y, type)); - - return true; -} - -BUILDIN(setCells) -{ - int m; - - const char *mapname = script_getstr(st, 2); - int x1 = script_getnum(st, 3); - int y1 = script_getnum(st, 4); - int x2 = script_getnum(st, 5); - int y2 = script_getnum(st, 6); - int mask = script_getnum(st, 7); - const char *name = script_getstr(st, 8); - - if ((m = map->mapname2mapid(mapname)) < 0) - return true; // Invalid Map - - emap_iwall_set2(m, 0, x1, y1, x2, y2, mask, name); - - return true; -} - -BUILDIN(delCells) -{ - const char *name = script_getstr(st,2); - map->iwall_remove(name); - return true; -} - -BUILDIN(setMount) -{ - getSD() - int mount = script_getnum(st, 2); - pc_setglobalreg(sd, mountScriptId, mount); - status_calc_pc(sd, SCO_NONE); - send_pc_info(&sd->bl, &sd->bl, AREA); - return true; -} - -BUILDIN(setSkin) -{ - if (!st->oid) - return false; - - getSD() - - const char *skin = script_getstr(st, 2); - send_pc_skin(sd->fd, st->oid, skin); - return true; -} - -BUILDIN(initCraft) -{ - getSDReturn(-1) - - int var = str_to_craftvar(sd, script_getstr(st, 2)); - script_pushint(st, var); - return true; -} - -BUILDIN(dumpCraft) -{ - getSD() - - craft_dump(sd, script_getnum(st, 2)); - return true; -} - -BUILDIN(deleteCraft) -{ - getSD() - - craft_delete(script_getnum(st, 2)); - return true; -} - -BUILDIN(getCraftSlotId) -{ - getSDReturn(0) - - const struct craft_slot *crslot = craft_get_slot(script_getnum(st, 2), - script_getnum(st, 3)); - if (!crslot) - return false; - const int len = VECTOR_LENGTH(crslot->items); - if (len > 0) - { - struct item_pair *pair = &VECTOR_INDEX(crslot->items, 0); - const int invIndex = pair->index; - const int item_id = sd->status.inventory[invIndex].nameid; - script_pushint(st, item_id); - } - else - { - script_pushint(st, 0); - } - return true; -} - -BUILDIN(getCraftSlotAmount) -{ - getSDReturn(0) - - const struct craft_slot *crslot = craft_get_slot(script_getnum(st, 2), - script_getnum(st, 3)); - if (!crslot) - return false; - const int len = VECTOR_LENGTH(crslot->items); - if (len > 0) - { - int slot; - int amount = 0; - for (slot = 0; slot < len; slot ++) - { - struct item_pair *pair = &VECTOR_INDEX(crslot->items, slot); - const int invIndex = pair->index; - const int item_id = sd->status.inventory[invIndex].nameid; - if (item_id > 0) - { - const int item_amount = sd->status.inventory[invIndex].amount; - if (item_amount > 0) - amount += pair->amount; - } - } - script_pushint(st, amount); - } - else - { - script_pushint(st, 0); - } - return true; -} - -BUILDIN(validateCraft) -{ - getSDReturn(0) - const bool valid = craft_validate(sd, script_getnum(st, 2)); - script_pushint(st, valid ? 1 : 0); - return true; -} - -BUILDIN(findCraftEntry) -{ - getSDReturn(-1) - const int id = craft_find_entry(sd, - script_getnum(st, 2), - script_getnum(st, 3)); - script_pushint(st, id); - return true; -} - -BUILDIN(useCraft) -{ - getSD() - return craft_use(sd, script_getnum(st, 2)); -} - -BUILDIN(getCraftCode) -{ - getSDReturn(-1) - script_pushint(st, craft_get_entry_code(sd, script_getnum(st, 2))); - return true; -} - -BUILDIN(getInvIndexLink) -{ - getSDReturnS("") - - int index = script_getnum (st, 2); - - if (index < 0 || index >= MAX_INVENTORY) - { - script_pushstr(st, ""); - return false; - } - - const int item_id = sd->status.inventory[index].nameid; - const struct item_data *i_data = NULL; - if (item_id) - i_data = itemdb->search(item_id); - char *const item_name = (char *) aCalloc (1000, sizeof (char)); - - if (sd) - { - int version = 0; - struct SessionExt *data = session_get_bysd(sd); - if (data) - version = data->clientVersion; - - if (i_data && version >= 7) - { - const struct item *const item = &sd->status.inventory[index]; - if (item->card[0] == CARD0_PET || - item->card[0] == CARD0_FORGE || - item->card[0] == CARD0_CREATE) - { - sprintf(item_name, "[@@%u|@@]", (unsigned)i_data->nameid); - } - else - { - sprintf(item_name, "[@@%u", (unsigned)i_data->nameid); - int f; - for (f = 0; f < 4 && item->card[f]; f ++) - { - char buf[100]; - sprintf(buf, ",%u", (unsigned)item->card[f]); - strcat(item_name, buf); - } - strcat(item_name, "|@@]"); - } - } - else if (i_data) - { - sprintf(item_name, "[@@%u|%s@@]", (unsigned)i_data->nameid, lang_pctrans (i_data->jname, sd)); - } - else if (item_id > 0) - { - sprintf(item_name, "[@@%u|Unknown Item@@]", (unsigned)item_id); - } - else - { - sprintf(item_name, "[Unknown Item]"); - } - } - else - { - if (i_data) - sprintf(item_name, "[%s]", lang_pctrans (i_data->jname, sd)); - else - sprintf(item_name, "[Unknown Item]"); - } - - script_pushstr(st, item_name); - - return true; -} - -/*========================================== - * Shows an emoticon on top of the player/npc - * emotion emotion#, <target: 0 - NPC, 1 - PC>, <NPC/PC name> - *------------------------------------------*/ -//Optional second parameter added by [Skotlex] -BUILDIN(emotion) -{ - int player = 0; - - int type = script_getnum(st, 2); - - if (script_hasdata(st, 3)) - player = script_getnum(st, 3); - - if (player != 0) - { - struct map_session_data *sd = NULL; - if (script_hasdata(st, 4)) - sd = script->nick2sd(st, script_getstr(st, 4)); - else - sd = script->rid2sd(st); - if (sd != NULL) - clif->emotion(&sd->bl, type); - } - else if (script_hasdata(st, 4)) - { - struct npc_data *nd = npc->name2id(script_getstr(st, 4)); - if (nd != NULL) - clif->emotion(&nd->bl,type); - } - else - { - clif->emotion(map->id2bl(st->oid), type); - } - return true; -} - -BUILDIN(setLook) -{ - const int type = script_getnum(st, 2); - const int val = script_getnum(st, 3); - - struct map_session_data *sd = script->rid2sd(st); - if (sd == NULL) - return true; - - pc->changelook(sd, type, val); - send_changelook2(sd, &sd->bl, sd->bl.id, type, val, 0, NULL, 0, AREA); - return true; -} diff --git a/src/emap/script.h b/src/emap/script.h index a801189..852c997 100644 --- a/src/emap/script.h +++ b/src/emap/script.h @@ -14,70 +14,4 @@ char *eget_val_npcscope_str(struct script_state* st, struct reg_db *n, struct sc void script_run_item_amount_script(TBL_PC *sd, struct script_code *itemScript, int itemId, int amount); void script_run_card_script(TBL_PC *sd, struct script_code *itemScript, int itemId, int cardId); -BUILDIN(l); -BUILDIN(lg); -BUILDIN(setCamNpc); -BUILDIN(setCam); -BUILDIN(moveCam); -BUILDIN(restoreCam); -BUILDIN(npcTalk3); -BUILDIN(closeDialog); -BUILDIN(shop); -BUILDIN(getItemLink); -BUILDIN(requestLang); -BUILDIN(requestItem); -BUILDIN(requestItems); -BUILDIN(requestItemIndex); -BUILDIN(requestItemsIndex); -BUILDIN(requestCraft); -BUILDIN(getq); -BUILDIN(setq); -BUILDIN(setNpcDir); -BUILDIN(rif); -BUILDIN(miscEffect); -BUILDIN(setMapMask); -BUILDIN(getMapMask); -BUILDIN(addMapMask); -BUILDIN(removeMapMask); -BUILDIN(setNpcSex); -BUILDIN(showAvatar); -BUILDIN(setAvatarDir); -BUILDIN(setAvatarAction); -BUILDIN(clear); -BUILDIN(changeMusic); -BUILDIN(setNpcDialogTitle); -BUILDIN(getMapName); -BUILDIN(unequipById); -BUILDIN(isPcDead); -BUILDIN(areaTimer); -BUILDIN(getAreaDropItem); -BUILDIN(setMount); -BUILDIN(clientCommand); -BUILDIN(isUnitWalking); -BUILDIN(failedRefIndex); -BUILDIN(downRefIndex); -BUILDIN(successRefIndex); -BUILDIN(isStr); -BUILDIN(npcSit); -BUILDIN(npcStand); -BUILDIN(npcWalkTo); -BUILDIN(setBgTeam); -BUILDIN(chatJoin); -BUILDIN(checkNpcCell); -BUILDIN(setCells); -BUILDIN(delCells); -BUILDIN(setSkin); -BUILDIN(initCraft); -BUILDIN(dumpCraft); -BUILDIN(deleteCraft); -BUILDIN(getCraftSlotId); -BUILDIN(getCraftSlotAmount); -BUILDIN(validateCraft); -BUILDIN(getInvIndexLink); -BUILDIN(emotion); -BUILDIN(findCraftEntry); -BUILDIN(useCraft); -BUILDIN(getCraftCode); -BUILDIN(setLook); - #endif // EVOL_MAP_SCRIPT diff --git a/src/emap/script_buildins.c b/src/emap/script_buildins.c new file mode 100644 index 0000000..05f6841 --- /dev/null +++ b/src/emap/script_buildins.c @@ -0,0 +1,1655 @@ +// Copyright (c) Copyright (c) Hercules Dev Team, licensed under GNU GPL. +// Copyright (c) 2014 - 2015 Evol developers + +#include "common/hercules.h" + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +#include "common/HPMi.h" +#include "common/memmgr.h" +#include "common/utils.h" +#include "common/timer.h" +#include "map/chat.h" +#include "map/chrif.h" +#include "map/npc.h" +#include "map/pc.h" +#include "map/script.h" +#include "map/quest.h" + +#include "emap/clif.h" +#include "emap/craft.h" +#include "emap/lang.h" +#include "emap/map.h" +#include "emap/scriptdefines.h" +#include "emap/send.h" +#include "emap/data/bgd.h" +#include "emap/data/mapd.h" +#include "emap/data/session.h" +#include "emap/struct/bgdext.h" +#include "emap/struct/mapdext.h" +#include "emap/struct/sessionext.h" +#include "emap/utils/formatutils.h" + +extern int mountScriptId; + +uint32 MakeDWord(uint16 word0, uint16 word1) +{ + return ((uint32)(word0)) | ((uint32)(word1 << 0x10)); +} + +BUILDIN(l) +{ + format_sub(st, 1); + return true; +} + +BUILDIN(lg) +{ + format_sub(st, 2); + return true; +} + +BUILDIN(setCamNpc) +{ + getSD(); + TBL_NPC *nd = NULL; + + int x = 0; + int y = 0; + + if (script_hasdata(st, 2)) + { + nd = npc->name2id (script_getstr(st, 2)); + } + else + { + if (!st->oid) + { + ShowWarning("npc not attached\n"); + script->reportsrc(st); + return false; + } + + nd = map->id2nd(st->oid); + } + if (!nd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + if (sd->bl.m != nd->bl.m) + { + ShowWarning("npc and player located in other maps\n"); + script->reportsrc(st); + return false; + } + + if (script_hasdata(st, 3) && script_hasdata(st, 4)) + { + x = script_getnum(st, 3); + y = script_getnum(st, 4); + } + + send_npccommand2(sd, st->oid, 2, nd->bl.id, x, y); + + return true; +} + +BUILDIN(setCam) +{ + send_npccommand2(script->rid2sd (st), st->oid, 2, 0, + script_getnum(st, 2), script_getnum(st, 3)); + + return true; +} + +BUILDIN(moveCam) +{ + send_npccommand2(script->rid2sd (st), st->oid, 4, 0, + script_getnum(st, 2), script_getnum(st, 3)); + + return true; +} + +BUILDIN(restoreCam) +{ + getSD(); + send_npccommand(sd, st->oid, 3); + return true; +} + +BUILDIN(npcTalk3) +{ + const char *msg; + + getSD(); + + TBL_NPC *nd = map->id2nd(st->oid); + const char *str = script_getstr(st, 2); + + if (!nd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + + if (!str) + { + ShowWarning("error in string\n"); + script->reportsrc(st); + return false; + } + + if (sd) + msg = lang_pctrans (nd->name, sd); + else + msg = nd->name; + + if (!msg) + { + ShowWarning("error in string\n"); + script->reportsrc(st); + return false; + } + if (strlen(str) + strlen(msg) > 450) + { + ShowWarning("text message too big\n"); + script->reportsrc(st); + return false; + } + + if (nd) + { + char message[500]; + char name[500]; + strcpy (name, msg); + strtok(name, "#"); + strcpy (message, name); + strcat (message, " : "); + strcat (message, str); + send_local_message (sd->fd, &(nd->bl), message); + } + + return true; +} + +BUILDIN(closeDialog) +{ + getSD(); + send_npccommand(sd, st->oid, 5); + return true; +} + +BUILDIN(shop) +{ + getSD(); + TBL_NPC *nd = npc->name2id (script_getstr(st, 2)); + if (!nd) + { + ShowWarning("shop npc not found\n"); + script->reportsrc(st); + return false; + } + + st->state = sd->state.dialog == 1 ? CLOSE : END; + clif->scriptclose(sd, st->oid); + + clif->npcbuysell (sd, nd->bl.id); + return true; +} + +#define paramToItem(param) \ + if (script_isstringtype(st, param)) \ + { \ + i_data = itemdb->search_name (script_getstr(st, param)); \ + } \ + else \ + { \ + item_id = script_getnum (st, param); \ + if (item_id) \ + i_data = itemdb->search (item_id); \ + } + +BUILDIN(getItemLink) +{ + struct item_data *i_data = NULL; + char *item_name; + int item_id = 0; + + paramToItem(2); + + item_name = (char *) aCalloc (1000, sizeof (char)); + TBL_PC *sd = script->rid2sd(st); + + if (sd) + { + int version = 0; + struct SessionExt *data = session_get_bysd(sd); + if (data) + version = data->clientVersion; + + if (i_data && version >= 7) + { + if (!script_hasdata(st, 3)) + { + sprintf(item_name, "[@@%u|@@]", (unsigned)i_data->nameid); + } + else + { + sprintf(item_name, "[@@%u", (unsigned)i_data->nameid); + int f; + for (f = 3; f < 7 && script_hasdata(st, f); f ++) + { + paramToItem(f); + if (i_data) + { + char buf[100]; + sprintf(buf, ",%u", (unsigned)i_data->nameid); + strcat(item_name, buf); + } + } + strcat(item_name, "|@@]"); + } + } + else if (i_data) + { + sprintf(item_name, "[@@%u|%s@@]", (unsigned)i_data->nameid, lang_pctrans (i_data->jname, sd)); + } + else if (item_id > 0) + { + sprintf(item_name, "[@@%u|Unknown Item@@]", (unsigned)item_id); + } + else + { + sprintf(item_name, "[Unknown Item]"); + } + } + else + { + if (i_data) + sprintf(item_name, "[%s]", lang_pctrans (i_data->jname, sd)); + else + sprintf(item_name, "[Unknown Item]"); + } + + script_pushstr(st, item_name); + + return true; +} + +#undef paramToItem + +BUILDIN(requestLang) +{ + getSDReturn(-1); + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send lang request + send_npccommand(sd, st->oid, 0); + clif->scriptinputstr(sd, st->oid); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + int lng = -1; + if (*sd->npc_str) + lng = lang_getId(sd->npc_str); + script_pushint(st, lng); + st->state = RUN; + } + return true; +} + +BUILDIN(requestItem) +{ + getSDReturn(0); + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send item request + send_npccommand(sd, st->oid, 10); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + int item = 0; + + if (!sd->npc_str) + { + ShowWarning("npc string not found\n"); + script_pushint(st, 0); + script->reportsrc(st); + return false; + } + + if (sscanf (sd->npc_str, "%5d", &item) < 1) + { + ShowWarning("input data is not item id\n"); + script_pushint(st, 0); + script->reportsrc(st); + return false; + } + + script_pushint(st, item); + st->state = RUN; + } + return true; +} + +BUILDIN(requestItems) +{ + getSDReturnS("0,0"); + int count = 1; + + if (script_hasdata(st, 2)) + { + count = script_getnum(st, 2); + if (count < 0) + count = 1; + } + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send item request with limit count + send_npccommand2(sd, st->oid, 10, count, 0, 0); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + if (!sd->npc_str) + { + ShowWarning("npc string not found\n"); + script_pushstr(st, aStrdup("0,0")); + script->reportsrc(st); + return false; + } + + script_pushstr(st, aStrdup(sd->npc_str)); + st->state = RUN; + } + return true; +} + +BUILDIN(requestItemIndex) +{ + getSessionDataReturn(client, -1); + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send item request + if (client || client->clientVersion >= 11) + send_npccommand(sd, st->oid, 11); + else + clif->scriptinputstr(sd, st->oid); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + int item = -1; + + if (!sd->npc_str) + { + script_pushint(st, -1); + ShowWarning("npc string not found\n"); + script->reportsrc(st); + return false; + } + + if (sscanf (sd->npc_str, "%5d", &item) < 1) + { + script_pushint(st, -1); + ShowWarning("input data is not item id\n"); + script->reportsrc(st); + return false; + } + + script_pushint(st, item); + st->state = RUN; + } + return true; +} + +BUILDIN(requestItemsIndex) +{ + getSessionDataReturnS(client, "-1"); + int count = 1; + + if (script_hasdata(st, 2)) + { + count = script_getnum(st, 2); + if (count < 0) + count = 1; + } + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send item request with limit count + if (client || client->clientVersion >= 11) + send_npccommand2(sd, st->oid, 11, count, 0, 0); + else + clif->scriptinputstr(sd, st->oid); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + if (!sd->npc_str) + { + script_pushstr(st, aStrdup("-1")); + ShowWarning("npc string not found\n"); + script->reportsrc(st); + return false; + } + + script_pushstr(st, aStrdup(sd->npc_str)); + st->state = RUN; + } + return true; +} + +BUILDIN(requestCraft) +{ + getSessionData(client); + + int count = 1; + + if (script_hasdata(st, 2)) + { + count = script_getnum(st, 2); + if (count < 0) + count = 1; + } + + if (!sd->state.menu_or_input) + { + // first invocation, display npc input box + sd->state.menu_or_input = 1; + st->state = RERUNLINE; + + // send item request with limit count + if (client || client->clientVersion >= 16) + send_npccommand2(sd, st->oid, 12, count, 0, 0); + else + clif->scriptinputstr(sd, st->oid); + } + else + { + // take received text/value and store it in the designated variable + sd->state.menu_or_input = 0; + + if (!sd->npc_str) + { + ShowWarning("npc string not found\n"); + script->reportsrc(st); + script_pushstr(st, aStrdup("")); + return false; + } + + script_pushstr(st, aStrdup(sd->npc_str)); + st->state = RUN; + } + return true; +} + +BUILDIN(setq) +{ + int i; + getSD(); + + int quest_id = script_getnum(st, 2); + int quest_value = script_getnum(st, 3); + + if (quest->check(sd, quest_id, HAVEQUEST) < 0) + quest->add(sd, quest_id); + ARR_FIND(0, sd->num_quests, i, sd->quest_log[i].quest_id == quest_id); + if (i == sd->num_quests) + { + ShowError("Quest with id=%d not found\n", quest_id); + script->reportsrc(st); + return false; + } + + sd->quest_log[i].count[0] = quest_value; + sd->save_quest = true; + if (map->save_settings & 64) + chrif->save(sd,0); + + eclif_quest_add(sd, &sd->quest_log[i]); + return true; +} + +BUILDIN(getq) +{ + int i; + getSDReturn(0); + + int quest_id = script_getnum(st, 2); + if (quest->check(sd, quest_id, HAVEQUEST) < 0) + { + script_pushint(st, 0); + return true; + } + ARR_FIND(0, sd->num_quests, i, sd->quest_log[i].quest_id == quest_id); + if (i == sd->num_quests) + { + script_pushint(st, 0); + return true; + } + script_pushint(st, sd->quest_log[i].count[0]); + return true; +} + +BUILDIN(setNpcDir) +{ + int newdir; + TBL_NPC *nd = 0; + + if (script_hasdata(st, 3)) + { + nd = npc->name2id (script_getstr(st, 2)); + newdir = script_getnum(st, 3); + } + else if (script_hasdata(st, 2)) + { + if (!st->oid) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + + nd = map->id2nd(st->oid); + newdir = script_getnum(st, 2); + } + if (!nd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + + if (newdir < 0) + newdir = 0; + else if (newdir > 7) + newdir = 7; + + nd->dir = newdir; + npc->enable (nd->name, 1); + + return true; +} + +BUILDIN(rif) +{ + const char *str = 0; + if (script_getnum(st, 2)) + { + str = script_getstr(st, 3); + if (str) + script_pushstr(st, aStrdup(str)); + else + script_pushconststr(st, (char *)""); + } + else if (script_hasdata(st, 4)) + { + str = script_getstr(st, 4); + if (str) + script_pushstr(st, aStrdup(str)); + else + script_pushconststr(st, (char *)""); + } + else + { + script_pushconststr(st, (char *)""); + } + + return true; +} + +BUILDIN(miscEffect) +{ + int type = script_getnum(st, 2); + struct block_list *bl = NULL; + + if (script_hasdata(st, 3)) + { + if (script_isstring(st, 3)) + { + TBL_PC *sd = map->nick2sd(script_getstr(st, 3)); + if (sd) + bl = &sd->bl; + } + else if (script_isint(st, 3)) + { + bl = map->id2bl(script_getnum(st, 3)); + } + } + + if (!bl) + { + TBL_PC *sd = script->rid2sd (st); + if (sd) + bl = &sd->bl; + } + if (bl) + clif->specialeffect(bl, type, AREA); + return true; +} + +BUILDIN(setMapMask) +{ + const char *const mapName = script_getstr(st, 2); + if (!mapName) + { + ShowWarning("invalid map name\n"); + script->reportsrc(st); + return false; + } + const int m = map->mapname2mapid(mapName); + if (m < 0) + { + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + getMapData(m); + + const int val = script_getnum(st, 3); + const unsigned int old = mapData->mask; + mapData->mask = val; + if (old != mapData->mask) + send_mapmask_brodcast(m, mapData->mask); + return true; +} + +BUILDIN(getMapMask) +{ + const char *const mapName = script_getstr(st, 2); + if (!mapName) + { + script_pushint(st, 0); + ShowWarning("invalid map name\n"); + script->reportsrc(st); + return false; + } + const int m = map->mapname2mapid(mapName); + if (m < 0) + { + script_pushint(st, 0); + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + getMapDataReturn(m, 0); + script_pushint(st, mapData->mask); + return true; +} + +BUILDIN(addMapMask) +{ + const char *const mapName = script_getstr(st, 2); + if (!mapName) + { + ShowWarning("invalid map name\n"); + script->reportsrc(st); + return false; + } + const int m = map->mapname2mapid(mapName); + if (m < 0) + { + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + getMapData(m); + const int val = script_getnum(st, 3); + const unsigned int old = mapData->mask; + mapData->mask |= val; + if (old != mapData->mask) + send_mapmask_brodcast(m, mapData->mask); + + return true; +} + +BUILDIN(removeMapMask) +{ + const char *const mapName = script_getstr(st, 2); + if (!mapName) + { + ShowWarning("invalid map name\n"); + script->reportsrc(st); + return true; + } + const int m = map->mapname2mapid(mapName); + if (m < 0) + { + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + getMapData(m); + const int val = script_getnum(st, 3); + const unsigned int old = mapData->mask; + mapData->mask |= val; + mapData->mask ^= val; + if (old != mapData->mask) + send_mapmask_brodcast(m, mapData->mask); + return true; +} + +BUILDIN(setNpcSex) +{ + TBL_NPC *nd = NULL; + int sex = 0; + if (script_hasdata(st, 3)) + { + nd = npc->name2id (script_getstr(st, 2)); + sex = script_getnum(st, 3); + } + + if (!nd || !nd->vd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + + clif->clearunit_area(&nd->bl, CLR_OUTSIGHT); + nd->vd->sex = sex; + clif->spawn(&nd->bl); + return true; +} + +BUILDIN(showAvatar) +{ + int id = 0; + if (script_hasdata(st, 2)) + id = script_getnum(st, 2); + + send_npccommand2(script->rid2sd (st), st->oid, 6, id, 0, 0); + return true; +} + +BUILDIN(setAvatarDir) +{ + int newdir = script_getnum(st, 2); + + if (newdir < 0) + newdir = 0; + else if (newdir > 7) + newdir = 7; + + send_npccommand2(script->rid2sd (st), st->oid, 7, newdir, 0, 0); + return true; +} + +BUILDIN(setAvatarAction) +{ + send_npccommand2(script->rid2sd (st), st->oid, 8, script_getnum(st, 2), 0, 0); + return true; +} + +BUILDIN(clear) +{ + send_npccommand(script->rid2sd (st), st->oid, 9); + return true; +} + +BUILDIN(changeMusic) +{ + const char *const mapName = script_getstr(st, 2); + const char *const music = script_getstr(st, 3); + if (!music) + { + ShowWarning("invalid music file\n"); + script->reportsrc(st); + return false; + } + if (!mapName) + { + ShowWarning("invalid map file\n"); + script->reportsrc(st); + return false; + } + const int m = map->mapname2mapid(mapName); + if (m < 0) + { + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + + send_changemusic_brodcast(m, music); + return true; +} + +BUILDIN(setNpcDialogTitle) +{ + const char *const name = script_getstr(st, 2); + if (!name) + { + ShowWarning("invalid window title\n"); + script->reportsrc(st); + return false; + } + TBL_PC *sd = script->rid2sd (st); + if (!sd) + { + ShowWarning("player not attached\n"); + script->reportsrc(st); + return false; + } + + send_changenpc_title(sd, st->oid, name); + return true; +} + +BUILDIN(getMapName) +{ + TBL_PC *sd = script->rid2sd(st); + if (!sd) + { + script_pushstr(st, aStrdup("")); + ShowWarning("player not attached\n"); + script->reportsrc(st); + return false; + } + if (sd->bl.m == -1) + { + script_pushstr(st, aStrdup("")); + ShowWarning("invalid map\n"); + script->reportsrc(st); + return false; + } + script_pushstr(st, aStrdup(map->list[sd->bl.m].name)); + return true; +} + +BUILDIN(unequipById) +{ + int nameid = 0; + int i; + struct item_data *item_data; + TBL_PC *sd = script->rid2sd(st); + + if (sd == NULL) + { + ShowWarning("player not attached\n"); + script->reportsrc(st); + return false; + } + + nameid = script_getnum(st, 2); + if((item_data = itemdb->exists(nameid)) == NULL) + { + ShowWarning("item %d not found\n", nameid); + script->reportsrc(st); + return false; + } + for (i = 0; i < EQI_MAX; i++) + { + const int idx = sd->equip_index[i]; + if (idx >= 0) + { + if (sd->status.inventory[idx].nameid == nameid) + pc->unequipitem(sd, idx, 1 | 2); + } + } + return true; +} + +BUILDIN(isPcDead) +{ + TBL_PC *sd = script->rid2sd(st); + + if (sd == NULL) + { + ShowWarning("player not attached\n"); + script->reportsrc(st); + return false; + } + + script_pushint(st, pc_isdead(sd) ? 1 : 0); + return true; +} + +static int areatimer_sub(struct block_list *bl, va_list ap) +{ + int tick; + char *event; + TBL_PC *sd; + + tick = va_arg(ap, int); + event = va_arg(ap, char*); + + sd = (TBL_PC *)bl; + if (!pc->addeventtimer(sd, tick, event)) + { + if (sd) + ShowWarning("buildin_addtimer: Event timer is full, can't add new event timer. (cid:%d timer:%s)\n", sd->status.char_id, event); + } + return 0; +} + +BUILDIN(areaTimer) +{ + const char *const mapname = script_getstr(st, 2); + const int x1 = script_getnum(st, 3); + const int y1 = script_getnum(st, 4); + const int x2 = script_getnum(st, 5); + const int y2 = script_getnum(st, 6); + const int time = script_getnum(st, 7); + const char *const eventName = script_getstr(st, 8); + int m; + + if ((m = map->mapname2mapid(mapname)) < 0) + { + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + + map->foreachinarea(areatimer_sub, m, x1, y1, x2, y2, BL_PC, time, eventName); + + return true; +} + +static int buildin_getareadropitem_sub_del(struct block_list *bl, va_list ap) +{ + if (!bl) + return 0; + + const int item = va_arg(ap, int); + int *const amount = va_arg(ap, int *); + TBL_ITEM *drop = (TBL_ITEM *)bl; + + if (drop->item_data.nameid == item) + { + (*amount) += drop->item_data.amount; + map->clearflooritem(&drop->bl); + } + + return 0; +} + +BUILDIN(getAreaDropItem) +{ + const char *const str = script_getstr(st, 2); + int16 m; + int x0 = script_getnum(st, 3); + int y0 = script_getnum(st, 4); + int x1 = script_getnum(st, 5); + int y1 = script_getnum(st, 6); + int item; + int amount = 0; + + if (script_isstringtype(st, 7)) + { + const char *name = script_getstr(st, 7); + struct item_data *item_data = itemdb->search_name(name); + item = UNKNOWN_ITEM_ID; + if (item_data) + item = item_data->nameid; + } + else + { + item = script_getnum(st, 7); + } + + if ((m = map->mapname2mapid(str)) < 0) + { + script_pushint(st, -1); + ShowWarning("map not found\n"); + script->reportsrc(st); + return false; + } + + if (script_hasdata(st, 8) && script_getnum(st, 8)) + { + map->foreachinarea(buildin_getareadropitem_sub_del, + m, x0, y0, x1, y1, BL_ITEM, item, &amount); + } + else + { + map->foreachinarea(script->buildin_getareadropitem_sub, + m, x0, y0, x1, y1, BL_ITEM, item, &amount); + } + script_pushint(st, amount); + return true; +} + +BUILDIN(clientCommand) +{ + getSD(); + + const char *const command = script_getstr(st, 2); + if (!command) + { + ShowWarning("invalid client command\n"); + script->reportsrc(st); + return false; + } + send_client_command(sd, command); + return true; +} + +BUILDIN(isUnitWalking) +{ + int id = 0; + if (script_hasdata(st, 2)) + id = script_getnum(st, 2); + else + id = st->oid; + struct block_list *bl = map->id2bl(id); + if (!bl) + { + ShowWarning("invalid unit id\n"); + script->reportsrc(st); + script_pushint(st, 0); + return false; + } + struct unit_data *ud = unit->bl2ud(bl); + if (!ud) + { + ShowWarning("invalid unit data\n"); + script->reportsrc(st); + script_pushint(st, 0); + return false; + } + script_pushint(st, ud->walktimer != INVALID_TIMER); + return true; +} + +BUILDIN(failedRefIndex) +{ + getSD() + getInventoryIndex(2) + + if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) + return false; + + sd->status.inventory[n].refine = 0; + if (sd->status.inventory[n].equip) + pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); + clif->refine(sd->fd, 1, n, sd->status.inventory[n].refine); + pc->delitem(sd, n, 1, 0, DELITEM_FAILREFINE, LOG_TYPE_SCRIPT); + clif->misceffect(&sd->bl, 2); + return true; +} + +BUILDIN(downRefIndex) +{ + getSD() + getInventoryIndex(2) + + if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) + return false; + + const int down = script_getnum(st, 3); + + logs->pick_pc(sd, LOG_TYPE_SCRIPT, -1, &sd->status.inventory[n], sd->inventory_data[n]); + + if (sd->status.inventory[n].equip) + pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); + sd->status.inventory[n].refine -= down; + sd->status.inventory[n].refine = cap_value(sd->status.inventory[n].refine, 0, MAX_REFINE); + + clif->refine(sd->fd, 2, n, sd->status.inventory[n].refine); + clif->delitem(sd, n, 1, DELITEM_MATERIALCHANGE); + logs->pick_pc(sd, LOG_TYPE_SCRIPT, 1, &sd->status.inventory[n], sd->inventory_data[n]); + clif->additem(sd, n, 1, 0); + clif->misceffect(&sd->bl, 2); + return true; +} + +BUILDIN(successRefIndex) +{ + getSD() + getInventoryIndex(2) + + if (sd->status.inventory[n].nameid <= 0 || sd->status.inventory[n].amount <= 0) + return false; + + const int up = script_getnum(st, 3); + + logs->pick_pc(sd, LOG_TYPE_SCRIPT, -1, &sd->status.inventory[n],sd->inventory_data[n]); + + if (sd->status.inventory[n].refine >= MAX_REFINE) + return true; + + sd->status.inventory[n].refine += up; + sd->status.inventory[n].refine = cap_value( sd->status.inventory[n].refine, 0, MAX_REFINE); + if (sd->status.inventory[n].equip) + pc->unequipitem(sd, n, PCUNEQUIPITEM_RECALC|PCUNEQUIPITEM_FORCE); + clif->refine(sd->fd, 0, n, sd->status.inventory[n].refine); + clif->delitem(sd, n, 1, DELITEM_MATERIALCHANGE); + logs->pick_pc(sd, LOG_TYPE_SCRIPT, 1, &sd->status.inventory[n],sd->inventory_data[n]); + clif->additem(sd, n, 1, 0); + clif->misceffect(&sd->bl, 3); + + if (sd->status.inventory[n].refine == 10 && + sd->status.inventory[n].card[0] == CARD0_FORGE && + sd->status.char_id == (int)MakeDWord(sd->status.inventory[n].card[2], sd->status.inventory[n].card[3])) + { // Fame point system [DracoRPG] + switch (sd->inventory_data[n]->wlv) + { + case 1: + pc->addfame(sd,1); // Success to refine to +10 a lv1 weapon you forged = +1 fame point + break; + case 2: + pc->addfame(sd,25); // Success to refine to +10 a lv2 weapon you forged = +25 fame point + break; + case 3: + pc->addfame(sd,1000); // Success to refine to +10 a lv3 weapon you forged = +1000 fame point + break; + } + } + + return true; +} + +// return paramater type +// 0 - int +// 1 - string +// 2 - other +BUILDIN(isStr) +{ + if (script_isinttype(st, 2)) + script_pushint(st, 0); + else if (script_isstringtype(st, 2)) + script_pushint(st, 1); + else + script_pushint(st, 2); + return true; +} + +BUILDIN(npcSit) +{ + TBL_NPC *nd = NULL; + + if (script_hasdata(st, 2)) + { + nd = npc->name2id (script_getstr(st, 2)); + } + else + { + if (!st->oid) + { + ShowWarning("npc not attached\n"); + script->reportsrc(st); + return false; + } + + nd = map->id2nd(st->oid); + } + if (!nd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + nd->vd->dead_sit = 2; + clif->sitting(&nd->bl); + return true; +} + +BUILDIN(npcStand) +{ + TBL_NPC *nd = NULL; + + if (script_hasdata(st, 2)) + { + nd = npc->name2id (script_getstr(st, 2)); + } + else + { + if (!st->oid) + { + ShowWarning("npc not attached\n"); + script->reportsrc(st); + return false; + } + + nd = map->id2nd(st->oid); + } + if (!nd) + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + nd->vd->dead_sit = 0; + clif->standing(&nd->bl); + return true; +} + +BUILDIN(npcWalkTo) +{ + struct npc_data *nd = map->id2nd(st->oid); + int x = 0, y = 0; + + x = script_getnum(st, 2); + y = script_getnum(st, 3); + + if (nd) + { + unit->bl2ud2(&nd->bl); // ensure nd->ud is safe to edit + if (!nd->status.hp) + { + status_calc_npc(nd, SCO_FIRST); + } + else + { + status_calc_npc(nd, SCO_NONE); + } + nd->vd->dead_sit = 0; + unit->walktoxy(&nd->bl,x,y,0); + } + else + { + ShowWarning("npc not found\n"); + script->reportsrc(st); + return false; + } + + return true; +} + +BUILDIN(setBgTeam) +{ + int bgId = script_getnum(st, 2); + int teamId = script_getnum(st, 3); + + struct battleground_data *bgd = bg->team_search(bgId); + struct BgdExt *data = bgd_get(bgd); + if (!data) + { + ShowWarning("bettle ground not found\n"); + script->reportsrc(st); + return false; + } + + data->teamId = teamId; + return true; +} + +// chatjoin chatId [,char [,password]] +BUILDIN(chatJoin) +{ + int chatId = script_getnum(st, 2); + TBL_PC *sd = NULL; + const char *password = ""; + if (script_hasdata(st, 4)) + { + if (script_isstringtype(st, 3)) + sd = map->nick2sd(script_getstr(st, 3)); + if (script_isstringtype(st, 4)) + password = script_getstr(st, 4); + } + else if (script_hasdata(st, 3)) + { + if (script_isstringtype(st, 3)) + sd = map->nick2sd(script_getstr(st, 3)); + } + else + { + sd = script->rid2sd(st); + } + if (!sd) + { + ShowWarning("player not found\n"); + script->reportsrc(st); + return false; + } + + chat->join(sd, chatId, password); + return true; +} + +/// Retrieves the value of the specified flag of the specified cell. +/// +/// checknpccell("<map name>",<x>,<y>,<type>) -> <bool> +/// +/// @see cell_chk* constants in const.txt for the types +BUILDIN(checkNpcCell) +{ + int16 m = map->mapname2mapid(script_getstr(st, 2)); + int16 x = script_getnum(st, 3); + int16 y = script_getnum(st, 4); + cell_chk type = (cell_chk)script_getnum(st, 5); + + if (m == -1) + { + ShowWarning("checknpccell: Attempted to run on unexsitent map '%s', type %u, x/y %d,%d\n", script_getstr(st, 2), type, x, y); + return true; + } + + TBL_NPC *nd = map->id2nd(st->oid); + struct block_list *bl = NULL; + if (nd) + bl = &nd->bl; + + script_pushint(st, map->getcell(m, bl, x, y, type)); + + return true; +} + +BUILDIN(setCells) +{ + int m; + + const char *mapname = script_getstr(st, 2); + int x1 = script_getnum(st, 3); + int y1 = script_getnum(st, 4); + int x2 = script_getnum(st, 5); + int y2 = script_getnum(st, 6); + int mask = script_getnum(st, 7); + const char *name = script_getstr(st, 8); + + if ((m = map->mapname2mapid(mapname)) < 0) + return true; // Invalid Map + + emap_iwall_set2(m, 0, x1, y1, x2, y2, mask, name); + + return true; +} + +BUILDIN(delCells) +{ + const char *name = script_getstr(st,2); + map->iwall_remove(name); + return true; +} + +BUILDIN(setMount) +{ + getSD() + int mount = script_getnum(st, 2); + pc_setglobalreg(sd, mountScriptId, mount); + status_calc_pc(sd, SCO_NONE); + send_pc_info(&sd->bl, &sd->bl, AREA); + return true; +} + +BUILDIN(setSkin) +{ + if (!st->oid) + return false; + + getSD() + + const char *skin = script_getstr(st, 2); + send_pc_skin(sd->fd, st->oid, skin); + return true; +} + +BUILDIN(initCraft) +{ + getSDReturn(-1) + + int var = str_to_craftvar(sd, script_getstr(st, 2)); + script_pushint(st, var); + return true; +} + +BUILDIN(dumpCraft) +{ + getSD() + + craft_dump(sd, script_getnum(st, 2)); + return true; +} + +BUILDIN(deleteCraft) +{ + getSD() + + craft_delete(script_getnum(st, 2)); + return true; +} + +BUILDIN(getCraftSlotId) +{ + getSDReturn(0) + + const struct craft_slot *crslot = craft_get_slot(script_getnum(st, 2), + script_getnum(st, 3)); + if (!crslot) + return false; + const int len = VECTOR_LENGTH(crslot->items); + if (len > 0) + { + struct item_pair *pair = &VECTOR_INDEX(crslot->items, 0); + const int invIndex = pair->index; + const int item_id = sd->status.inventory[invIndex].nameid; + script_pushint(st, item_id); + } + else + { + script_pushint(st, 0); + } + return true; +} + +BUILDIN(getCraftSlotAmount) +{ + getSDReturn(0) + + const struct craft_slot *crslot = craft_get_slot(script_getnum(st, 2), + script_getnum(st, 3)); + if (!crslot) + return false; + const int len = VECTOR_LENGTH(crslot->items); + if (len > 0) + { + int slot; + int amount = 0; + for (slot = 0; slot < len; slot ++) + { + struct item_pair *pair = &VECTOR_INDEX(crslot->items, slot); + const int invIndex = pair->index; + const int item_id = sd->status.inventory[invIndex].nameid; + if (item_id > 0) + { + const int item_amount = sd->status.inventory[invIndex].amount; + if (item_amount > 0) + amount += pair->amount; + } + } + script_pushint(st, amount); + } + else + { + script_pushint(st, 0); + } + return true; +} + +BUILDIN(validateCraft) +{ + getSDReturn(0) + const bool valid = craft_validate(sd, script_getnum(st, 2)); + script_pushint(st, valid ? 1 : 0); + return true; +} + +BUILDIN(findCraftEntry) +{ + getSDReturn(-1) + const int id = craft_find_entry(sd, + script_getnum(st, 2), + script_getnum(st, 3)); + script_pushint(st, id); + return true; +} + +BUILDIN(useCraft) +{ + getSD() + return craft_use(sd, script_getnum(st, 2)); +} + +BUILDIN(getCraftCode) +{ + getSDReturn(-1) + script_pushint(st, craft_get_entry_code(sd, script_getnum(st, 2))); + return true; +} + +BUILDIN(getInvIndexLink) +{ + getSDReturnS("") + + int index = script_getnum (st, 2); + + if (index < 0 || index >= MAX_INVENTORY) + { + script_pushstr(st, ""); + return false; + } + + const int item_id = sd->status.inventory[index].nameid; + const struct item_data *i_data = NULL; + if (item_id) + i_data = itemdb->search(item_id); + char *const item_name = (char *) aCalloc (1000, sizeof (char)); + + if (sd) + { + int version = 0; + struct SessionExt *data = session_get_bysd(sd); + if (data) + version = data->clientVersion; + + if (i_data && version >= 7) + { + const struct item *const item = &sd->status.inventory[index]; + if (item->card[0] == CARD0_PET || + item->card[0] == CARD0_FORGE || + item->card[0] == CARD0_CREATE) + { + sprintf(item_name, "[@@%u|@@]", (unsigned)i_data->nameid); + } + else + { + sprintf(item_name, "[@@%u", (unsigned)i_data->nameid); + int f; + for (f = 0; f < 4 && item->card[f]; f ++) + { + char buf[100]; + sprintf(buf, ",%u", (unsigned)item->card[f]); + strcat(item_name, buf); + } + strcat(item_name, "|@@]"); + } + } + else if (i_data) + { + sprintf(item_name, "[@@%u|%s@@]", (unsigned)i_data->nameid, lang_pctrans (i_data->jname, sd)); + } + else if (item_id > 0) + { + sprintf(item_name, "[@@%u|Unknown Item@@]", (unsigned)item_id); + } + else + { + sprintf(item_name, "[Unknown Item]"); + } + } + else + { + if (i_data) + sprintf(item_name, "[%s]", lang_pctrans (i_data->jname, sd)); + else + sprintf(item_name, "[Unknown Item]"); + } + + script_pushstr(st, item_name); + + return true; +} + +/*========================================== + * Shows an emoticon on top of the player/npc + * emotion emotion#, <target: 0 - NPC, 1 - PC>, <NPC/PC name> + *------------------------------------------*/ +//Optional second parameter added by [Skotlex] +BUILDIN(emotion) +{ + int player = 0; + + int type = script_getnum(st, 2); + + if (script_hasdata(st, 3)) + player = script_getnum(st, 3); + + if (player != 0) + { + struct map_session_data *sd = NULL; + if (script_hasdata(st, 4)) + sd = script->nick2sd(st, script_getstr(st, 4)); + else + sd = script->rid2sd(st); + if (sd != NULL) + clif->emotion(&sd->bl, type); + } + else if (script_hasdata(st, 4)) + { + struct npc_data *nd = npc->name2id(script_getstr(st, 4)); + if (nd != NULL) + clif->emotion(&nd->bl,type); + } + else + { + clif->emotion(map->id2bl(st->oid), type); + } + return true; +} + +BUILDIN(setLook) +{ + const int type = script_getnum(st, 2); + const int val = script_getnum(st, 3); + + struct map_session_data *sd = script->rid2sd(st); + if (sd == NULL) + return true; + + pc->changelook(sd, type, val); + send_changelook2(sd, &sd->bl, sd->bl.id, type, val, 0, NULL, 0, AREA); + return true; +} diff --git a/src/emap/script_buildins.h b/src/emap/script_buildins.h new file mode 100644 index 0000000..978f234 --- /dev/null +++ b/src/emap/script_buildins.h @@ -0,0 +1,73 @@ +// Copyright (c) Copyright (c) Hercules Dev Team, licensed under GNU GPL. +// Copyright (c) 2014 - 2015 Evol developers + +#ifndef EVOL_MAP_SCRIPT_BUILDINS +#define EVOL_MAP_SCRIPT_BUILDINS + +BUILDIN(l); +BUILDIN(lg); +BUILDIN(setCamNpc); +BUILDIN(setCam); +BUILDIN(moveCam); +BUILDIN(restoreCam); +BUILDIN(npcTalk3); +BUILDIN(closeDialog); +BUILDIN(shop); +BUILDIN(getItemLink); +BUILDIN(requestLang); +BUILDIN(requestItem); +BUILDIN(requestItems); +BUILDIN(requestItemIndex); +BUILDIN(requestItemsIndex); +BUILDIN(requestCraft); +BUILDIN(getq); +BUILDIN(setq); +BUILDIN(setNpcDir); +BUILDIN(rif); +BUILDIN(miscEffect); +BUILDIN(setMapMask); +BUILDIN(getMapMask); +BUILDIN(addMapMask); +BUILDIN(removeMapMask); +BUILDIN(setNpcSex); +BUILDIN(showAvatar); +BUILDIN(setAvatarDir); +BUILDIN(setAvatarAction); +BUILDIN(clear); +BUILDIN(changeMusic); +BUILDIN(setNpcDialogTitle); +BUILDIN(getMapName); +BUILDIN(unequipById); +BUILDIN(isPcDead); +BUILDIN(areaTimer); +BUILDIN(getAreaDropItem); +BUILDIN(setMount); +BUILDIN(clientCommand); +BUILDIN(isUnitWalking); +BUILDIN(failedRefIndex); +BUILDIN(downRefIndex); +BUILDIN(successRefIndex); +BUILDIN(isStr); +BUILDIN(npcSit); +BUILDIN(npcStand); +BUILDIN(npcWalkTo); +BUILDIN(setBgTeam); +BUILDIN(chatJoin); +BUILDIN(checkNpcCell); +BUILDIN(setCells); +BUILDIN(delCells); +BUILDIN(setSkin); +BUILDIN(initCraft); +BUILDIN(dumpCraft); +BUILDIN(deleteCraft); +BUILDIN(getCraftSlotId); +BUILDIN(getCraftSlotAmount); +BUILDIN(validateCraft); +BUILDIN(getInvIndexLink); +BUILDIN(emotion); +BUILDIN(findCraftEntry); +BUILDIN(useCraft); +BUILDIN(getCraftCode); +BUILDIN(setLook); + +#endif // EVOL_MAP_SCRIPT_BUILDINS |