// Copyright (c) Athena Dev Teams - Licensed under GNU GPL // For more information, see LICENCE in the main folder #include #include #include #include #include #ifndef _WIN32 #include #endif #include "../common/cbasetypes.h" #include "../common/core.h" #include "../common/timer.h" #include "../common/grfio.h" #include "../common/malloc.h" #include "../common/socket.h" #include "../common/showmsg.h" #include "../common/version.h" #include "../common/nullpo.h" #include "map.h" #include "chrif.h" #include "clif.h" #include "intif.h" #include "npc.h" #include "pc.h" #include "status.h" #include "mob.h" #include "chat.h" #include "itemdb.h" #include "storage.h" #include "skill.h" #include "trade.h" #include "party.h" #include "unit.h" #include "battle.h" #include "script.h" #include "guild.h" #include "pet.h" #include "mercenary.h" //[orn] #include "atcommand.h" #include "charcommand.h" #include "log.h" #include "irc.h" #ifndef TXT_ONLY #include "mail.h" char tmp_sql[65535]=""; char default_codepage[32] = ""; int map_server_port = 3306; char map_server_ip[16] = "127.0.0.1"; char map_server_id[32] = "ragnarok"; char map_server_pw[32] = "ragnarok"; char map_server_db[32] = "ragnarok"; MYSQL mmysql_handle; MYSQL_RES* sql_res; MYSQL_ROW sql_row; int db_use_sqldbs = 0; char item_db_db[32] = "item_db"; char item_db2_db[32] = "item_db2"; char mob_db_db[32] = "mob_db"; char mob_db2_db[32] = "mob_db2"; char char_db[32] = "char"; // log database char log_db_ip[16] = "127.0.0.1"; int log_db_port = 3306; char log_db_id[32] = "ragnarok"; char log_db_pw[32] = "ragnarok"; char log_db[32] = "log"; MYSQL logmysql_handle; MYSQL_RES* logsql_res; MYSQL_ROW logsql_row; // mail system int mail_server_enable = 0; char mail_server_ip[16] = "127.0.0.1"; int mail_server_port = 3306; char mail_server_id[32] = "ragnarok"; char mail_server_pw[32] = "ragnarok"; char mail_server_db[32] = "ragnarok"; char mail_db[32] = "mail"; MYSQL mail_handle; MYSQL_RES* mail_res; MYSQL_ROW mail_row; #endif /* not TXT_ONLY */ int lowest_gm_level = 1; // This param using for sending mainchat // messages like whispers to this nick. [LuzZza] char main_chat_nick[16] = "Main"; char *INTER_CONF_NAME; char *LOG_CONF_NAME; char *MAP_CONF_NAME; char *BATTLE_CONF_FILENAME; char *ATCOMMAND_CONF_FILENAME; char *CHARCOMMAND_CONF_FILENAME; char *SCRIPT_CONF_NAME; char *MSG_CONF_NAME; // 極力 staticでロ?カルに?める static struct dbt * id_db=NULL; static struct dbt * pc_db=NULL; static struct dbt * map_db=NULL; static struct dbt * charid_db=NULL; static int map_users=0; static struct block_list *objects[MAX_FLOORITEM]; static int first_free_object_id=0,last_object_id=0; #define block_free_max 1048576 struct block_list *block_free[block_free_max]; static int block_free_count = 0, block_free_lock = 0; #define BL_LIST_MAX 1048576 static struct block_list *bl_list[BL_LIST_MAX]; static int bl_list_count = 0; struct map_data map[MAX_MAP_PER_SERVER]; int map_num = 0; int map_port=0; int autosave_interval = DEFAULT_AUTOSAVE_INTERVAL; int minsave_interval = 100; int save_settings = 0xFFFF; int agit_flag = 0; int night_flag = 0; // 0=day, 1=night [Yor] struct charid2nick { char nick[NAME_LENGTH]; int req_id; }; char map_cache_file[256]="db/map_cache.dat"; char db_path[256] = "db"; char motd_txt[256] = "conf/motd.txt"; char help_txt[256] = "conf/help.txt"; char help2_txt[256] = "conf/help2.txt"; char charhelp_txt[256] = "conf/charhelp.txt"; char wisp_server_name[NAME_LENGTH] = "Server"; // can be modified in char-server configuration file int console = 0; int enable_spy = 0; //To enable/disable @spy commands, which consume too much cpu time when sending packets. [Skotlex] /*========================================== * 全map鯖?計での接??設定 * (char鯖から送られてくる) *------------------------------------------ */ void map_setusers(int fd) { RFIFOHEAD(fd); WFIFOHEAD(fd, 2); map_users = RFIFOL(fd,2); // send some answer WFIFOW(fd,0) = 0x2718; WFIFOSET(fd,2); } /*========================================== * 全map鯖?計での接??取得 (/wへの?答用) *------------------------------------------ */ int map_getusers(void) { return map_users; } //Distance functions, taken from http://www.flipcode.com/articles/article_fastdistance.shtml int check_distance(int dx, int dy, int distance) { #ifdef CIRCULAR_AREA //In this case, we just do a square comparison. Add 1 tile grace for diagonal range checks. return (dx*dx + dy*dy <= distance*distance + (dx&&dy?1:0)); #else if (dx < 0) dx = -dx; if (dy < 0) dy = -dy; return ((dx> 8 ); #else if (dx < 0) dx = -dx; if (dy < 0) dy = -dy; return (dx= block_free_max) { aFree(bl); bl = NULL; if (block_free_count >= block_free_max) if (battle_config.error_log) ShowWarning("map_freeblock: too many free block! %d %d\n", block_free_count, block_free_lock); } else block_free[block_free_count++] = bl; return block_free_lock; } /*========================================== * blockのfreeを一市Iに禁止する *------------------------------------------ */ int map_freeblock_lock (void) { return ++block_free_lock; } /*========================================== * blockのfreeのロックを解除する * このとき、ロックが完全になくなると * バッファにたまっていたblockを全部削除 *------------------------------------------ */ //int map_freeblock_unlock (void) int map_freeblock_unlock_sub(char *file, int lineno) { if ((--block_free_lock) == 0) { int i; for (i = 0; i < block_free_count; i++) { // aFree(block_free[i]); // _mfree(block_free[i], file, lineno, __func__); _mfree(block_free[i], file, ((block_free[i]?block_free[i]->type:0)*100000)+lineno, __func__); block_free[i] = NULL; } block_free_count = 0; } else if (block_free_lock < 0) { if (battle_config.error_log) ShowError("map_freeblock_unlock: lock count < 0 !\n"); block_free_lock = 0; } return block_free_lock; } // map_freeblock_lock() を呼んで map_freeblock_unlock() を呼ばない // 関数があったので、定期的にblock_free_lockをリセットするようにする。 // この関数は、do_timer() のトップレベルから呼ばれるので、 // block_free_lock を直接いじっても支障無いはず。 int map_freeblock_timer (int tid, unsigned int tick, int id, int data) { if (block_free_lock > 0) { ShowError("map_freeblock_timer: block_free_lock(%d) is invalid.\n", block_free_lock); block_free_lock = 1; map_freeblock_unlock(); } return 0; } // // block化?理 // /*========================================== * map[]のblock_listから?がっている場合に * bl->prevにbl_headのアドレスを入れておく *------------------------------------------ */ static struct block_list bl_head; #ifdef CELL_NOSTACK /*========================================== * These pair of functions update the counter of how many objects * lie on a tile. *------------------------------------------ */ void map_addblcell(struct block_list *bl) { if(bl->m<0 || bl->x<0 || bl->x>=map[bl->m].xs || bl->y<0 || bl->y>=map[bl->m].ys || !(bl->type&BL_CHAR)) return; map[bl->m].cell_bl[bl->x+bl->y*map[bl->m].xs]++; return; } void map_delblcell(struct block_list *bl) { if(bl->m <0 || bl->x<0 || bl->x>=map[bl->m].xs || bl->y<0 || bl->y>=map[bl->m].ys || !(bl->type&BL_CHAR)) return; map[bl->m].cell_bl[bl->x+bl->y*map[bl->m].xs]--; } #endif /*========================================== * Adds a block to the map. * If flag is 1, then the block was just added * otherwise it is part of a transition. *------------------------------------------ */ int map_addblock_sub (struct block_list *bl, int flag) { int m, x, y, pos; nullpo_retr(0, bl); if (bl->prev != NULL) { if(battle_config.error_log) ShowError("map_addblock error : bl->prev != NULL\n"); return 0; } m = bl->m; x = bl->x; y = bl->y; if (m < 0 || m >= map_num || x < 0 || x >= map[m].xs || y < 0 || y >= map[m].ys) return 1; #ifdef CELL_NOSTACK map_addblcell(bl); #endif pos = x/BLOCK_SIZE+(y/BLOCK_SIZE)*map[m].bxs; if (bl->type == BL_MOB) { bl->next = map[m].block_mob[pos]; bl->prev = &bl_head; if (bl->next) bl->next->prev = bl; map[m].block_mob[pos] = bl; map[m].block_mob_count[pos]++; } else { bl->next = map[m].block[pos]; bl->prev = &bl_head; if (bl->next) bl->next->prev = bl; map[m].block[pos] = bl; map[m].block_count[pos]++; if (bl->type == BL_PC && flag) { struct map_session_data* sd; if (map[m].users++ == 0 && battle_config.dynamic_mobs) //Skotlex map_spawnmobs(m); sd = (struct map_session_data*)bl; if (battle_config.pet_no_gvg && map_flag_gvg(m) && sd->pd) { //Return the pet to egg. [Skotlex] clif_displaymessage(sd->fd, "Pets are not allowed in Guild Wars."); pet_menu(sd, 3); //Option 3 is return to egg. } } } return 0; } /*========================================== * Removes a block from the map. * If flag is 1, then the block is removed for good * otherwise it is part of a transition. *------------------------------------------ */ int map_delblock_sub (struct block_list *bl, int flag) { int b; nullpo_retr(0, bl); // ?にblocklistから?けている if (bl->prev == NULL) { if (bl->next != NULL) { // prevがNULLでnextがNULLでないのは有ってはならない if(battle_config.error_log) ShowError("map_delblock error : bl->next!=NULL\n"); } return 0; } #ifdef CELL_NOSTACK map_delblcell(bl); #endif b = bl->x/BLOCK_SIZE+(bl->y/BLOCK_SIZE)*map[bl->m].bxs; if (bl->type == BL_PC && flag) if (--map[bl->m].users == 0 && battle_config.dynamic_mobs) //[Skotlex] map_removemobs(bl->m); if (bl->next) bl->next->prev = bl->prev; if (bl->prev == &bl_head) { // リストの頭なので、map[]のblock_listを更新する if (bl->type == BL_MOB) { map[bl->m].block_mob[b] = bl->next; if ((map[bl->m].block_mob_count[b]--) < 0) map[bl->m].block_mob_count[b] = 0; } else { map[bl->m].block[b] = bl->next; if((map[bl->m].block_count[b]--) < 0) map[bl->m].block_count[b] = 0; } } else { bl->prev->next = bl->next; } bl->next = NULL; bl->prev = NULL; return 0; } /*========================================== * Moves a block a x/y target position. [Skotlex] * Pass flag as 1 to prevent doing skill_unit_move checks * (which are executed by default on BL_CHAR types) *------------------------------------------ */ int map_moveblock(struct block_list *bl, int x1, int y1, unsigned int tick) { int x0 = bl->x, y0 = bl->y; struct status_change *sc = NULL; int moveblock = ( x0/BLOCK_SIZE != x1/BLOCK_SIZE || y0/BLOCK_SIZE != y1/BLOCK_SIZE); if (!bl->prev) { //Block not in map, just update coordinates, but do naught else. bl->x = x1; bl->y = y1; return 0; } //TODO: Perhaps some outs of bounds checking should be placed here? if (bl->type&BL_CHAR) { skill_unit_move(bl,tick,2); sc = status_get_sc(bl); if (sc && sc->count) { if (sc->data[SC_CLOSECONFINE].timer != -1) status_change_end(bl, SC_CLOSECONFINE, -1); if (sc->data[SC_CLOSECONFINE2].timer != -1) status_change_end(bl, SC_CLOSECONFINE2, -1); // if (sc->data[SC_BLADESTOP].timer != -1) //Won't stop when you are knocked away, go figure... // status_change_end(bl, SC_BLADESTOP, -1); if (sc->data[SC_BASILICA].timer != -1) status_change_end(bl, SC_BASILICA, -1); if (sc->data[SC_TATAMIGAESHI].timer != -1) status_change_end(bl, SC_TATAMIGAESHI, -1); if (sc->data[SC_MAGICROD].timer != -1) status_change_end(bl, SC_MAGICROD, -1); } } if (moveblock) map_delblock_sub(bl,0); #ifdef CELL_NOSTACK else map_delblcell(bl); #endif bl->x = x1; bl->y = y1; if (moveblock) map_addblock_sub(bl,0); #ifdef CELL_NOSTACK else map_addblcell(bl); #endif if (bl->type&BL_CHAR) { skill_unit_move(bl,tick,3); if (sc) { if (sc->count) { if (sc->data[SC_CLOAKING].timer != -1) skill_check_cloaking(bl, sc); if (sc->data[SC_DANCING].timer != -1) skill_unit_move_unit_group((struct skill_unit_group *)sc->data[SC_DANCING].val2, bl->m, x1-x0, y1-y0); if (sc->data[SC_WARM].timer != -1) skill_unit_move_unit_group((struct skill_unit_group *)sc->data[SC_WARM].val4, bl->m, x1-x0, y1-y0); } } } return 0; } /*========================================== * 周?のPC人?を?える (unused) *------------------------------------------ */ int map_countnearpc (int m, int x, int y) { int bx, by, c = 0; struct block_list *bl=NULL; if (map[m].users == 0) return 0; for (by = y/BLOCK_SIZE-AREA_SIZE/BLOCK_SIZE-1; by<=y/BLOCK_SIZE+AREA_SIZE/BLOCK_SIZE+1; by++) { if (by < 0 || by >= map[m].bys) continue; for (bx = x/BLOCK_SIZE-AREA_SIZE/BLOCK_SIZE-1; bx <= x/BLOCK_SIZE+AREA_SIZE/BLOCK_SIZE+1; bx++) { if (bx < 0 || bx >= map[m].bxs) continue; bl = map[m].block[bx+by*map[m].bxs]; while(bl) { if (bl->type == BL_PC) c++; bl = bl->next; } } } return c; } /*========================================== * Counts specified number of objects on given cell. *------------------------------------------ */ int map_count_oncell(int m, int x, int y, int type) { int bx,by; struct block_list *bl=NULL; int i,c; int count = 0; if (x < 0 || y < 0 || (x >= map[m].xs) || (y >= map[m].ys)) return 0; bx = x/BLOCK_SIZE; by = y/BLOCK_SIZE; if (type&~BL_MOB) { bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext) if(bl->x == x && bl->y == y && bl->type&type) count++; } if (type&BL_MOB) { bl = map[m].block_mob[bx+by*map[m].bxs]; c = map[m].block_mob_count[bx+by*map[m].bxs]; for(i=0;inext) if(bl->x == x && bl->y == y) count++; } return count; } /* * ｫｻｫ・ｾｪﾎﾌｪﾋﾌｸｪﾄｪｱｪｿｫｹｫｭｫ・讚ﾋｫﾃｫﾈｪﾚｪｹ */ struct skill_unit *map_find_skill_unit_oncell(struct block_list *target,int x,int y,int skill_id,struct skill_unit *out_unit) { int m,bx,by; struct block_list *bl; int i,c; struct skill_unit *unit; m = target->m; if (x < 0 || y < 0 || (x >= map[m].xs) || (y >= map[m].ys)) return NULL; bx = x/BLOCK_SIZE; by = y/BLOCK_SIZE; bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if (bl->x != x || bl->y != y || bl->type != BL_SKILL) continue; unit = (struct skill_unit *) bl; if (unit==out_unit || !unit->alive || !unit->group || unit->group->skill_id!=skill_id) continue; if (battle_check_target(&unit->bl,target,unit->group->target_flag)>0) return unit; } return NULL; } /*========================================== * Adapted from foreachinarea for an easier invocation. [Skotlex] *------------------------------------------ */ int map_foreachinrange(int (*func)(struct block_list*,va_list),struct block_list *center, int range,int type,...) { va_list ap; int bx,by,m; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; int blockcount=bl_list_count,i,c; int x0,x1,y0,y1; va_start(ap,type); m = center->m; x0 = center->x-range; x1 = center->x+range; y0 = center->y-range; y1 = center->y+range; if (x0 < 0) x0 = 0; if (y0 < 0) y0 = 0; if (x1 >= map[m].xs) x1 = map[m].xs-1; if (y1 >= map[m].ys) y1 = map[m].ys-1; if (type&~BL_MOB) for (by = y0 / BLOCK_SIZE; by <= y1 / BLOCK_SIZE; by++) { for(bx=x0/BLOCK_SIZE;bx<=x1/BLOCK_SIZE;bx++){ bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl && bl->type&type && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 #ifdef CIRCULAR_AREA && check_distance_bl(center, bl, range) #endif && bl_list_countnext){ if(bl && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 #ifdef CIRCULAR_AREA && check_distance_bl(center, bl, range) #endif && bl_list_count=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinrange: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) // 有?かどうかチェック returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; //[Skotlex] } /*========================================== * Same as foreachinrange, but there must be a shoot-able range between center and target to be counted in. [Skotlex] *------------------------------------------ */ int map_foreachinshootrange(int (*func)(struct block_list*,va_list),struct block_list *center, int range,int type,...) { va_list ap; int bx,by,m; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; int blockcount=bl_list_count,i,c; int x0,x1,y0,y1; m = center->m; if (m < 0) return 0; va_start(ap,type); x0 = center->x-range; x1 = center->x+range; y0 = center->y-range; y1 = center->y+range; if (x0 < 0) x0 = 0; if (y0 < 0) y0 = 0; if (x1 >= map[m].xs) x1 = map[m].xs-1; if (y1 >= map[m].ys) y1 = map[m].ys-1; if (type&~BL_MOB) for (by = y0 / BLOCK_SIZE; by <= y1 / BLOCK_SIZE; by++) { for(bx=x0/BLOCK_SIZE;bx<=x1/BLOCK_SIZE;bx++){ bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl && bl->type&type && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 #ifdef CIRCULAR_AREA && check_distance_bl(center, bl, range) #endif && path_search_long(NULL,center->m,center->x,center->y,bl->x,bl->y) && bl_list_countnext){ if(bl && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 #ifdef CIRCULAR_AREA && check_distance_bl(center, bl, range) #endif && path_search_long(NULL,center->m,center->x,center->y,bl->x,bl->y) && bl_list_count=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinrange: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) // 有?かどうかチェック returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; //[Skotlex] } /*========================================== * map m (x0,y0)-(x1,y1)?の全objに?して * funcを呼ぶ * type!=0 ならその種類のみ *------------------------------------------ */ int map_foreachinarea(int (*func)(struct block_list*,va_list),int m,int x0,int y0,int x1,int y1,int type,...) { va_list ap; int bx,by; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; int blockcount=bl_list_count,i,c; if (m < 0) return 0; va_start(ap,type); if (x1 < x0) { //Swap range bx = x0; x0 = x1; x1 = bx; } if (y1 < y0) { bx = y0; y0 = y1; y1 = bx; } if (x0 < 0) x0 = 0; if (y0 < 0) y0 = 0; if (x1 >= map[m].xs) x1 = map[m].xs-1; if (y1 >= map[m].ys) y1 = map[m].ys-1; if (type&~BL_MOB) for (by = y0 / BLOCK_SIZE; by <= y1 / BLOCK_SIZE; by++) { for(bx=x0/BLOCK_SIZE;bx<=x1/BLOCK_SIZE;bx++){ bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl && bl->type&type && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_countnext){ if(bl && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_count=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinarea: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) // 有?かどうかチェック returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; //[Skotlex] } /*========================================== * 矩形(x0,y0)-(x1,y1)が(dx,dy)移動した暫ﾌ * 領域外になる領域(矩形かL字形)?のobjに * ?してfuncを呼ぶ * * dx,dyは-1,0,1のみとする（どんな値でもいいっぽい？） *------------------------------------------ */ int map_foreachinmovearea(int (*func)(struct block_list*,va_list),struct block_list *center,int range, int dx,int dy,int type,...) { int bx,by,m; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; va_list ap; int blockcount=bl_list_count,i,c; int x0, x1, y0, y1; if (!range) return 0; if (!dx && !dy) return 0; //No movement. va_start(ap,type); m = center->m; x0 = center->x-range; x1 = center->x+range; y0 = center->y-range; y1 = center->y+range; if (x1 < x0) { //Swap range bx = x0; x0 = x1; x1 = bx; } if (y1 < y0) { bx = y0; y0 = y1; y1 = bx; } if(dx==0 || dy==0){ //Movement along one axis only. if(dx==0){ if(dy<0) //Moving south y0=y1+dy+1; else //North y1=y0+dy-1; } else { //dy == 0 if(dx<0) //West x0=x1+dx+1; else //East x1=x0+dx-1; } if(x0<0) x0=0; if(y0<0) y0=0; if(x1>=map[m].xs) x1=map[m].xs-1; if(y1>=map[m].ys) y1=map[m].ys-1; for(by=y0/BLOCK_SIZE;by<=y1/BLOCK_SIZE;by++){ for(bx=x0/BLOCK_SIZE;bx<=x1/BLOCK_SIZE;bx++){ if (type&~BL_MOB) { bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl->type&type && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_countnext){ if(bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_count=map[m].xs) x1=map[m].xs-1; if(y1>=map[m].ys) y1=map[m].ys-1; for(by=y0/BLOCK_SIZE;by<=y1/BLOCK_SIZE;by++){ for(bx=x0/BLOCK_SIZE;bx<=x1/BLOCK_SIZE;bx++){ if (type & ~BL_MOB) { bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(!(bl->type&type && bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_count0 && bl->xx>x1+dx) || (dy>0 && bl->yy>y1+dy)) bl_list[bl_list_count++]=bl; } } if (type & BL_MOB) { bl = map[m].block_mob[bx+by*map[m].bxs]; c = map[m].block_mob_count[bx+by*map[m].bxs]; for(i=0;inext){ if(!( bl->x>=x0 && bl->x<=x1 && bl->y>=y0 && bl->y<=y1 && bl_list_count0 && bl->xx>x1+dx) || (dy>0 && bl->yy>y1+dy)) bl_list[bl_list_count++]=bl; } } } } } if(bl_list_count>=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinmovearea: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; } // -- moonsoul (added map_foreachincell which is a rework of map_foreachinarea but // which only checks the exact single x/y passed to it rather than an // area radius - may be more useful in some instances) // int map_foreachincell(int (*func)(struct block_list*,va_list),int m,int x,int y,int type,...) { int bx,by; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; va_list ap; int blockcount=bl_list_count,i,c; if (x < 0 || y < 0 || x >= map[m].xs || y >= map[m].ys) return 0; va_start(ap,type); by=y/BLOCK_SIZE; bx=x/BLOCK_SIZE; if(type&~BL_MOB) { bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext) { if(bl && bl->type&type && bl->x==x && bl->y==y && bl_list_countnext) { if(bl && bl->x==x && bl->y==y && bl_list_count=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachincell: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) // 有?かどうかチェック returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; } /*============================================================ * For checking a path between two points (x0, y0) and (x1, y1) *------------------------------------------------------------ */ int map_foreachinpath(int (*func)(struct block_list*,va_list),int m,int x0,int y0,int x1,int y1,int range,int type,...) { int returnCount =0; //total sum of returned values of func() [Skotlex] ////////////////////////////////////////////////////////////// // // sharp shooting 3 [Skotlex] // ////////////////////////////////////////////////////////////// // problem: // Same as Sharp Shooting 1. Hits all targets within range of // the line. // (t1,t2 t3 and t4 get hit) // // target 1 // x t4 // t2 // t3 x // x // S ////////////////////////////////////////////////////////////// // Methodology: // My trigonometrics and math are a little rusty... so the approach I am writing // here is basicly do a double for to check for all targets in the square that // contains the initial and final positions (area range increased to match the // radius given), then for each object to test, calculate the distance to the // path and include it if the range fits and the target is in the line (0 mx1) { mx0+=range; mx1-=range; } else { mx0-=range; mx1+=range; } if (my0 > my1) { my0+=range; my1-=range; } else { my0-=range; my1+=range; } //The two fors assume mx0 < mx1 && my0 < my1 if (mx0 > mx1) { k = mx1; mx1 = mx0; mx0 = k; } if (my0 > my1) { k = my1; my1 = my0; my0 = k; } if (mx0 < 0) mx0 = 0; if (my0 < 0) my0 = 0; if (mx1 >= map[m].xs) mx1 = map[m].xs-1; if (my1 >= map[m].ys) my1 = map[m].ys-1; range*=range<<8; //Values are shifted later on for higher precision using int math. magnitude2 = MAGNITUDE2(x0,y0, x1,y1); if (magnitude2 < 1) //Same begin and ending point, can't trace path. return 0; if (type & ~BL_MOB) for (by = my0 / BLOCK_SIZE; by <= my1 / BLOCK_SIZE; by++) { for(bx=mx0/BLOCK_SIZE;bx<=mx1/BLOCK_SIZE;bx++){ bl = map[m].block[bx+by*map[m].bxs]; c = map[m].block_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl && bl->prev && bl->type&type && bl_list_countx; yi = bl->y; k = (xi-x0)*(x1-x0) + (yi-y0)*(y1-y0); if (k < 0 || k > magnitude2) //Since more skills use this, check for ending point as well. continue; //All these shifts are to increase the precision of the intersection point and distance considering how it's //int math. k = (k<<4)/magnitude2; //k will be between 1~16 instead of 0~1 xi<<=4; yi<<=4; xu= (x0<<4) +k*(x1-x0); yu= (y0<<4) +k*(y1-y0); k = MAGNITUDE2(xi, yi, xu, yu); //If all dot coordinates were <<4 the square of the magnitude is <<8 if (k > range) continue; bl_list[bl_list_count++]=bl; } } } } if(type&BL_MOB) for(by=my0/BLOCK_SIZE;by<=my1/BLOCK_SIZE;by++){ for(bx=mx0/BLOCK_SIZE;bx<=mx1/BLOCK_SIZE;bx++){ bl = map[m].block_mob[bx+by*map[m].bxs]; c = map[m].block_mob_count[bx+by*map[m].bxs]; for(i=0;inext){ if(bl && bl->prev && bl_list_countx; yi = bl->y; k = (xi-x0)*(x1-x0) + (yi-y0)*(y1-y0); if (k < 0 || k > magnitude2) continue; k = (k<<4)/magnitude2; //k will be between 1~16 instead of 0~1 xi<<=4; yi<<=4; xu= (x0<<4) +k*(x1-x0); yu= (y0<<4) +k*(y1-y0); k = MAGNITUDE2(xi, yi, xu, yu); //If all dot coordinates were <<4 the square of the magnitude is <<8 if (k > range) continue; bl_list[bl_list_count++]=bl; } } } } if(bl_list_count>=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinpath: block count too many!\n"); } map_freeblock_lock(); for(i=blockcount;iprev) //This check is done in case some object gets killed due to further skill processing. returnCount += func(bl_list[i],ap); map_freeblock_unlock(); va_end(ap); bl_list_count = blockcount; return returnCount; //[Skotlex] } // Copy of map_foreachincell, but applied to the whole map. [Skotlex] int map_foreachinmap(int (*func)(struct block_list*,va_list),int m,int type,...) { int b, bsize; int returnCount =0; //total sum of returned values of func() [Skotlex] struct block_list *bl=NULL; va_list ap; int blockcount=bl_list_count,i,c; va_start(ap,type); bsize = map[m].bxs * map[m].bys; if(type&~BL_MOB) { for(b=0;bnext) { if(bl && bl->type&type && bl_list_countnext) { if(bl && bl_list_count=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachinmap: block count too many!\n"); } map_freeblock_lock(); // メモリからの解放を禁止する for(i=blockcount;iprev) // 有?かどうかチェック returnCount += func(bl_list[i],ap); map_freeblock_unlock(); // 解放を許可する va_end(ap); bl_list_count = blockcount; return returnCount; } /*========================================== * 床アイテムやエフェクト用の一三bj割り?て * object[]への保存とid_db登?まで * * bl->idもこの中で設定して問題無い? *------------------------------------------ */ int map_addobject(struct block_list *bl) { int i; if( bl == NULL ){ ShowWarning("map_addobject nullpo?\n"); return 0; } if(first_free_object_id<2 || first_free_object_id>=MAX_FLOORITEM) first_free_object_id=2; for(i=first_free_object_id;i=MAX_FLOORITEM){ if(battle_config.error_log) ShowWarning("no free object id\n"); return 0; } first_free_object_id=i; if(last_object_idid) first_free_object_id=id; while(last_object_id>2 && objects[last_object_id]==NULL) last_object_id--; return 0; } /*========================================== * 一三bjectの解放 * block_listからの削除、id_dbからの削除 * object dataのfree、object[]へのNULL代入 * * addとの??性が無いのが?になる *------------------------------------------ */ int map_delobject(int id) { struct block_list *obj = objects[id]; if(obj==NULL) return 0; map_delobjectnofree(id); map_freeblock(obj); return 0; } /*========================================== * 全一三bj相手にfuncを呼ぶ * *------------------------------------------ */ void map_foreachobject(int (*func)(struct block_list*,va_list),int type,...) { int i; int blockcount=bl_list_count; va_list ap; va_start(ap,type); for(i=2;i<=last_object_id;i++){ if(objects[i]){ if(!(objects[i]->type==type)) // Fixed [Lance] continue; if(bl_list_count>=BL_LIST_MAX) { if(battle_config.error_log) ShowWarning("map_foreachobject: too many blocks !\n"); break; } bl_list[bl_list_count++]=objects[i]; } } map_freeblock_lock(); for(i=blockcount;iprev || bl_list[i]->next ) func(bl_list[i],ap); map_freeblock_unlock(); va_end(ap); bl_list_count = blockcount; } /*========================================== * 床アイテムを消す * * data==0の暫ﾍtimerで消えた殊 * data!=0の暫ﾍ拾う等で消えた暫ﾆして動作 * * 後者は、map_clearflooritem(id)へ * map.h?で#defineしてある *------------------------------------------ */ int map_clearflooritem_timer(int tid,unsigned int tick,int id,int data) { struct flooritem_data *fitem=NULL; fitem = (struct flooritem_data *)objects[id]; if(fitem==NULL || fitem->bl.type!=BL_ITEM || (!data && fitem->cleartimer != tid)){ if(battle_config.error_log) ShowError("map_clearflooritem_timer : error\n"); return 1; } if(data) delete_timer(fitem->cleartimer,map_clearflooritem_timer); else if(fitem->item_data.card[0] == CARD0_PET) intif_delete_petdata( MakeDWord(fitem->item_data.card[1],fitem->item_data.card[2]) ); clif_clearflooritem(fitem,0); map_delobject(fitem->bl.id); return 0; } /*========================================== * (m,x,y) locates a random available free cell around the given coordinates * to place an BL_ITEM object. Scan area is 9x9, returns 1 on success. * x and y are modified with the target cell when successful. *------------------------------------------ */ int map_searchrandfreecell(int m,int *x,int *y,int stack) { int free_cell,i,j; int free_cells[9][2]; for(free_cell=0,i=-1;i<=1;i++){ if(i+*y<0 || i+*y>=map[m].ys) continue; for(j=-1;j<=1;j++){ if(j+*x<0 || j+*x>=map[m].xs) continue; if(map_getcell(m,j+*x,i+*y,CELL_CHKNOPASS)) continue; //Avoid item stacking to prevent against exploits. [Skotlex] if(stack && map_count_oncell(m,j+*x,i+*y, BL_ITEM) > stack) continue; free_cells[free_cell][0] = j+*x; free_cells[free_cell++][1] = i+*y; } } if(free_cell==0) return 0; free_cell = rand()%free_cell; *x = free_cells[free_cell][0]; *y = free_cells[free_cell][1]; return 1; } static int map_count_sub(struct block_list *bl,va_list ap) { return 1; } /*========================================== * Locates a random spare cell around the object given, using range as max * distance from that spot. Used for warping functions. Use range < 0 for * whole map range. * Returns 1 on success. when it fails and src is available, x/y are set to src's * src can be null as long as flag&1 * when ~flag&1, m is not needed. * Flag values: * &1 = random cell must be around given m,x,y, not around src * &2 = the target should be able to walk to the target tile. * &4 = there shouldn't be any players around the target tile (use the no_spawn_on_player setting) *------------------------------------------ */ int map_search_freecell(struct block_list *src, int m, short *x,short *y, int rx, int ry, int flag) { int tries, spawn=0; int bx, by; int rx2 = 2*rx+1; int ry2 = 2*ry+1; if (!src && (!(flag&1) || flag&2)) { ShowDebug("map_search_freecell: Incorrect usage! When src is NULL, flag has to be &1 and can't have &2\n"); return 0; } if (flag&1) { bx = *x; by = *y; } else { bx = src->x; by = src->y; m = src->m; } if (!rx && !ry) { //No range? Return the target cell then.... *x = bx; *y = by; return map_getcell(m,*x,*y,CELL_CHKREACH); } if (rx >= 0 && ry >= 0) { tries = rx2*ry2; if (tries > 100) tries = 100; } else { tries = map[m].xs*map[m].ys; if (tries > 500) tries = 500; } while(tries--) { *x = (rx >= 0)?(rand()%rx2-rx+bx):(rand()%(map[m].xs-2)+1); *y = (ry >= 0)?(rand()%ry2-ry+by):(rand()%(map[m].ys-2)+1); if (*x == bx && *y == by) continue; //Avoid picking the same target tile. if (map_getcell(m,*x,*y,CELL_CHKREACH)) { if(flag&2 && !unit_can_reach_pos(src, *x, *y, 1)) continue; if(flag&4) { if (spawn >= 100) return 0; //Limit of retries reached. if (spawn++ < battle_config.no_spawn_on_player && map_foreachinarea(map_count_sub, m, *x-AREA_SIZE, *y-AREA_SIZE, *x+AREA_SIZE, *y+AREA_SIZE, BL_PC) ) continue; } return 1; } } *x = bx; *y = by; return 0; } /*========================================== * (m,x,y)を中心に3x3以?に床アイテム設置 * * item_dataはamount以外をcopyする * type flag: &1 MVP item. &2 do stacking check. *------------------------------------------ */ int map_addflooritem(struct item *item_data,int amount,int m,int x,int y,struct map_session_data *first_sd, struct map_session_data *second_sd,struct map_session_data *third_sd,int type) { int r; unsigned int tick; struct flooritem_data *fitem=NULL; nullpo_retr(0, item_data); if(!map_searchrandfreecell(m,&x,&y,type&2?1:0)) return 0; r=rand(); fitem = (struct flooritem_data *)aCalloc(1,sizeof(*fitem)); fitem->bl.type=BL_ITEM; fitem->bl.prev = fitem->bl.next = NULL; fitem->bl.m=m; fitem->bl.x=x; fitem->bl.y=y; fitem->bl.id = map_addobject(&fitem->bl); if(fitem->bl.id==0){ aFree(fitem); return 0; } tick = gettick(); if(first_sd) { fitem->first_get_id = first_sd->bl.id; if(type&1) fitem->first_get_tick = tick + battle_config.mvp_item_first_get_time; else fitem->first_get_tick = tick + battle_config.item_first_get_time; } if(second_sd) { fitem->second_get_id = second_sd->bl.id; if(type&1) fitem->second_get_tick = tick + battle_config.mvp_item_first_get_time + battle_config.mvp_item_second_get_time; else fitem->second_get_tick = tick + battle_config.item_first_get_time + battle_config.item_second_get_time; } if(third_sd) { fitem->third_get_id = third_sd->bl.id; if(type&1) fitem->third_get_tick = tick + battle_config.mvp_item_first_get_time + battle_config.mvp_item_second_get_time + battle_config.mvp_item_third_get_time; else fitem->third_get_tick = tick + battle_config.item_first_get_time + battle_config.item_second_get_time + battle_config.item_third_get_time; } memcpy(&fitem->item_data,item_data,sizeof(*item_data)); fitem->item_data.amount=amount; fitem->subx=(r&3)*3+3; fitem->suby=((r>>2)&3)*3+3; fitem->cleartimer=add_timer(gettick()+battle_config.flooritem_lifetime,map_clearflooritem_timer,fitem->bl.id,0); map_addblock(&fitem->bl); clif_dropflooritem(fitem); return fitem->bl.id; } static void* create_charid2nick(DBKey key, va_list args) { struct charid2nick *p; p = (struct charid2nick *)aCallocA(1, sizeof (struct charid2nick)); return p; } /*========================================== * charid_dbへ追加(返信待ちがあれば返信) *------------------------------------------ */ void map_addchariddb(int charid, char *name) { struct charid2nick *p; int req = 0; p = idb_ensure(charid_db,charid,create_charid2nick); req = p->req_id; p->req_id = 0; //We overwrite the nick anyway in case a different one arrived. memcpy(p->nick, name, NAME_LENGTH); if (req) { struct map_session_data *sd = map_id2sd(req); if (sd) clif_solved_charname(sd,charid); } } /*========================================== * charid_dbへ追加（返信要求のみ） *------------------------------------------ */ int map_reqchariddb(struct map_session_data * sd,int charid) { struct charid2nick *p=NULL; nullpo_retr(0, sd); p = (struct charid2nick*)idb_get(charid_db,charid); if(p) return 0; //Nothing to request, we already have the name! p = (struct charid2nick *)aCalloc(1,sizeof(struct charid2nick)); p->req_id=sd->bl.id; idb_put(charid_db,charid,p); return 0; } /*========================================== * id_dbへblを追加 *------------------------------------------ */ void map_addiddb(struct block_list *bl) { nullpo_retv(bl); if (bl->type == BL_PC) idb_put(pc_db,bl->id,bl); idb_put(id_db,bl->id,bl); } /*========================================== * id_dbからblを削除 *------------------------------------------ */ void map_deliddb(struct block_list *bl) { nullpo_retv(bl); if (bl->type == BL_PC) idb_remove(pc_db,bl->id); idb_remove(id_db,bl->id); } /*========================================== * PCのquit?理 map.c?分 * * quit?理の主?が違うような?もしてきた *------------------------------------------ */ int map_quit(struct map_session_data *sd) { if(!sd->state.auth) { //Removing a player that hasn't even finished loading if (sd->pd) unit_free(&sd->pd->bl,-1); if (sd->hd) unit_free(&sd->hd->bl,-1); idb_remove(pc_db,sd->status.account_id); idb_remove(charid_db,sd->status.char_id); idb_remove(id_db,sd->bl.id); return 0; } if(!sd->state.waitingdisconnect) { if (sd->npc_timer_id != -1) //Cancel the event timer. npc_timerevent_quit(sd); if (sd->state.event_disconnect) npc_script_event(sd, NPCE_LOGOUT); sd->state.waitingdisconnect = 1; if (sd->pd) unit_free(&sd->pd->bl,0); if (sd->hd) unit_free(&sd->hd->bl,0); unit_free(&sd->bl,3); chrif_save(sd,1); } else { //Try to free some data, without saving anything (this could be invoked on map server change. [Skotlex] if (sd->bl.prev != NULL) { //Remove from map... unit_remove_map(&sd->bl, 0); if (sd->pd && sd->pd->bl.prev != NULL) unit_remove_map(&sd->pd->bl, 0); if (sd->hd && sd->hd->bl.prev != NULL) unit_remove_map(&sd->hd->bl, 0); } } //Do we really need to remove the name? idb_remove(charid_db,sd->status.char_id); idb_remove(id_db,sd->bl.id); if(sd->reg) { //Double logout already freed pointer fix... [Skotlex] aFree(sd->reg); sd->reg = NULL; sd->reg_num = 0; } if(sd->regstr) { aFree(sd->regstr); sd->regstr = NULL; sd->regstr_num = 0; } if (sd->st) { if (sd->st->stack) script_free_stack (sd->st->stack); aFree(sd->st); sd->st = NULL; sd->npc_id = 0; } if(sd->fd) { //Player will be free'd on save-ack. [Skotlex] if (session[sd->fd]) session[sd->fd]->session_data = NULL; sd->fd = 0; } return 0; } void map_quit_ack(struct map_session_data *sd) { if (sd && sd->state.finalsave) { idb_remove(pc_db,sd->status.account_id); aFree(sd); } } static int do_reconnect_map_sub(DBKey key,void *data,va_list va) { struct map_session_data *sd = (TBL_PC*)data; if (sd->state.finalsave) { sd->state.finalsave = 0; chrif_save(sd, 1); //Resend to save! return 1; } return 0; } void do_reconnect_map(void) { pc_db->foreach(pc_db,do_reconnect_map_sub); } /*========================================== * id番?のPCを探す。居なければNULL *------------------------------------------ */ struct map_session_data * map_id2sd(int id) { // Now using pc_db to handle all players, should be quicker than both previous methods at a small expense of more memory. [Skotlex] if (id <= 0) return NULL; return (struct map_session_data*)idb_get(pc_db,id); } /*========================================== * char_id番?の名前を探す *------------------------------------------ */ char * map_charid2nick(int id) { struct charid2nick *p = (struct charid2nick*)idb_get(charid_db,id); if(p==NULL) return NULL; return p->nick; } struct map_session_data * map_charid2sd(int id) { int i, users; struct map_session_data **all_sd; if (id <= 0) return 0; all_sd = map_getallusers(&users); for(i = 0; i < users; i++) if (all_sd[i] && all_sd[i]->status.char_id == id) return all_sd[i]; return NULL; } /*========================================== * Search session data from a nick name * (without sensitive case if necessary) * return map_session_data pointer or NULL *------------------------------------------ */ struct map_session_data * map_nick2sd(const char *nick) { int i, users; struct map_session_data *pl_sd = NULL, **pl_allsd; if (nick == NULL) return NULL; pl_allsd = map_getallusers(&users); if (battle_config.partial_name_scan) { int qty = 0, nicklen = strlen(nick); struct map_session_data *sd = NULL; for (i = 0; i < users; i++) { pl_sd = pl_allsd[i]; // Without case sensitive check (increase the number of similar character names found) if (strnicmp(pl_sd->status.name, nick, nicklen) == 0) { // Strict comparison (if found, we finish the function immediatly with correct value) if (strcmp(pl_sd->status.name, nick) == 0) return pl_sd; qty++; sd = pl_sd; } } // We return the found index of a similar account ONLY if there is 1 similar character if (qty == 1) return sd; } else { //Exact Search for (i = 0; i < users; i++) { if (strcasecmp(pl_allsd[i]->status.name, nick) == 0) return pl_allsd[i]; } } //Not found. return NULL; } /*========================================== * id番?の物を探す * 一三bjectの場合は配列を引くのみ *------------------------------------------ */ struct block_list * map_id2bl(int id) { struct block_list *bl=NULL; if(id >= 0 && id < sizeof(objects)/sizeof(objects[0])) bl = objects[id]; else bl = idb_get(id_db,id); return bl; } static int map_getallpc_sub(DBKey key,void * data,va_list ap) { struct map_session_data *sd = (struct map_session_data*) data; if (!sd->state.auth || sd->state.waitingdisconnect || sd->state.finalsave) return 1; //Do not count in not-yet authenticated characters or ready to disconnect ones. return 0; } /*========================================== * Returns an array of all players in the server (includes non connected ones) [Skotlex] * The int pointer given returns the count of elements in the array. * If null is passed, it is requested that the memory be freed (for shutdown), and null is returned. *------------------------------------------ */ struct map_session_data** map_getallusers(int *users) { static struct map_session_data **all_sd=NULL; static unsigned int all_count = 0; if (users == NULL) { //Free up data if (all_sd) aFree(all_sd); all_sd = NULL; return NULL; } if (all_sd == NULL) { //Init data all_count = pc_db->size(pc_db); //This is the real number of chars in the db, better use this than the actual "online" count. if (all_count < 1) all_count = 10; //Allow room for at least 10 chars. all_sd = aCalloc(all_count, sizeof(struct map_session_data*)); //it's actually just the size of a pointer. } if (all_count < pc_db->size(pc_db)) { all_count = pc_db->size(pc_db)+10; //Give some room to prevent doing reallocs often. all_sd = aRealloc(all_sd, all_count*sizeof(struct map_session_data*)); } *users = pc_db->getall(pc_db,(void**)all_sd,all_count,map_getallpc_sub); if (*users > (signed int)all_count) //Which should be impossible... *users = all_count; return all_sd; } void map_foreachpc(int (*func)(DBKey,void*,va_list),...) { va_list ap; va_start(ap,func); pc_db->vforeach(pc_db,func,ap); va_end(ap); } /*========================================== * id_db?の全てにfuncを?行 *------------------------------------------ */ int map_foreachiddb(int (*func)(DBKey,void*,va_list),...) { va_list ap; va_start(ap,func); id_db->vforeach(id_db,func,ap); va_end(ap); return 0; } /*========================================== * map.npcへ追加 (warp等の領域持ちのみ) *------------------------------------------ */ int map_addnpc(int m,struct npc_data *nd) { int i; if(m<0 || m>=map_num) return -1; for(i=0;in = i; idb_put(id_db,nd->bl.id,nd); return i; } void map_removenpc(void) { int i,m,n=0; for(m=0;mbl,2); map_delblock(&map[m].npc[i]->bl); idb_remove(id_db,map[m].npc[i]->bl.id); if(map[m].npc[i]->bl.subtype==SCRIPT) { aFree(map[m].npc[i]->u.scr.script); aFree(map[m].npc[i]->u.scr.label_list); } aFree(map[m].npc[i]); map[m].npc[i] = NULL; n++; } } } ShowStatus("Successfully removed and freed from memory '"CL_WHITE"%d"CL_RESET"' NPCs.\n",n); } /*========================================= * Dynamic Mobs [Wizputer] *----------------------------------------- */ // allocates a struct when it there is place free in the cache, // and returns NULL otherwise // -- i'll just leave the old code in case it's needed ^^; int map_addmobtolist(unsigned short m, struct spawn_data *spawn) { size_t i; for (i = 0; i < MAX_MOB_LIST_PER_MAP; i++) { if (map[m].moblist[i] == NULL) { map[m].moblist[i] = spawn; return i; } } return -1; } void map_spawnmobs(int m) { int i, k=0; if (map[m].mob_delete_timer != -1) { //Mobs have not been removed yet [Skotlex] delete_timer(map[m].mob_delete_timer, map_removemobs_timer); map[m].mob_delete_timer = -1; return; } for(i=0; inum; npc_parse_mob2(map[m].moblist[i],i); } if (battle_config.etc_log && k > 0) { ShowStatus("Map %s: Spawned '"CL_WHITE"%d"CL_RESET"' mobs.\n",map[m].name, k); } } int mob_cache_cleanup_sub(struct block_list *bl, va_list ap) { struct mob_data *md = (struct mob_data *)bl; nullpo_retr(0, md); //When not to remove: //Mob has the cached flag on 0 if (!md->special_state.cached) return 0; if (!battle_config.mob_remove_damaged && md->status.hp < md->status.max_hp) { if (md->spawn && md->spawn_n >= 0) //Do not respawn mob later. map[md->spawn->m].moblist[md->spawn_n]->skip++; return 0; //Do not remove damaged mobs. } unit_free(&md->bl,0); return 1; } int map_removemobs_timer(int tid, unsigned int tick, int id, int data) { int k; if (id < 0 || id >= MAX_MAP_PER_SERVER) { //Incorrect map id! if (battle_config.error_log) ShowError("map_removemobs_timer error: timer %d points to invalid map %d\n",tid, id); return 0; } if (map[id].mob_delete_timer != tid) { //Incorrect timer call! if (battle_config.error_log) ShowError("map_removemobs_timer mismatch: %d != %d (map %s)\n",map[id].mob_delete_timer, tid, map[id].name); return 0; } map[id].mob_delete_timer = -1; if (map[id].users > 0) //Map not empty! return 1; k = map_foreachinmap(mob_cache_cleanup_sub, id, BL_MOB); if (battle_config.etc_log && k > 0) ShowStatus("Map %s: Removed '"CL_WHITE"%d"CL_RESET"' mobs.\n",map[id].name, k); return 1; } void map_removemobs(int m) { if (map[m].mob_delete_timer != -1) return; //Mobs are already scheduled for removal map[m].mob_delete_timer = add_timer(gettick()+battle_config.mob_remove_delay, map_removemobs_timer, m, 0); } /*========================================== * map名からmap番?へ?換 *------------------------------------------ */ int map_mapname2mapid(const char* name) { unsigned short map_index; map_index = mapindex_name2id(name); if (!map_index) return -1; return map_mapindex2mapid(map_index); } /*========================================== * Returns the map of the given mapindex. [Skotlex] *------------------------------------------ */ int map_mapindex2mapid(unsigned short mapindex) { struct map_data *md=NULL; if (!mapindex) return -1; md = (struct map_data*)uidb_get(map_db,(unsigned int)mapindex); if(md==NULL || md->gat==NULL) return -1; return md->m; } /*========================================== * 他鯖map名からip,port?換 *------------------------------------------ */ int map_mapname2ipport(unsigned short name,int *ip,int *port) { struct map_data_other_server *mdos=NULL; mdos = (struct map_data_other_server*)uidb_get(map_db,(unsigned int)name); if(mdos==NULL || mdos->gat) //If gat isn't null, this is a local map. return -1; *ip=mdos->ip; *port=mdos->port; return 0; } /*========================================== * Checks if both dirs point in the same direction. *------------------------------------------ */ int map_check_dir(int s_dir,int t_dir) { if(s_dir == t_dir) return 0; switch(s_dir) { case 0: if(t_dir == 7 || t_dir == 1 || t_dir == 0) return 0; break; case 1: if(t_dir == 0 || t_dir == 2 || t_dir == 1) return 0; break; case 2: if(t_dir == 1 || t_dir == 3 || t_dir == 2) return 0; break; case 3: if(t_dir == 2 || t_dir == 4 || t_dir == 3) return 0; break; case 4: if(t_dir == 3 || t_dir == 5 || t_dir == 4) return 0; break; case 5: if(t_dir == 4 || t_dir == 6 || t_dir == 5) return 0; break; case 6: if(t_dir == 5 || t_dir == 7 || t_dir == 6) return 0; break; case 7: if(t_dir == 6 || t_dir == 0 || t_dir == 7) return 0; break; } return 1; } /*========================================== * Returns the direction of the given cell in absolute relation to the char * (regardless of where the char is facing) *------------------------------------------ */ int map_calc_dir( struct block_list *src,int x,int y) { int dir=0; int dx,dy; nullpo_retr(0, src); dx=x-src->x; dy=y-src->y; if( dx==0 && dy==0 ){ // 彼我の場所一致 dir=0; // 上 }else if( dx>=0 && dy>=0 ){ // 方向的に右上 dir=7; // 右上 if( dx*2-1dy*2 ) dir=6; // 右 }else if( dx>=0 && dy<=0 ){ // 方向的に右下 dir=5; // 右下 if( dx*2-1<-dy ) dir=4; // 下 if( dx>-dy*2 ) dir=6; // 右 }else if( dx<=0 && dy<=0 ){ // 方向的に左下 dir=3; // 左下 if( dx*2+1>dy ) dir=4; // 下 if( dxdy*2 ) dir=2; // 左 } return dir; } /*========================================== * Randomizes target cell x,y to a random walkable cell that * has the same distance from object as given coordinates do. [Skotlex] *------------------------------------------ */ int map_random_dir(struct block_list *bl, short *x, short *y) { struct walkpath_data wpd; short xi = *x-bl->x; short yi = *y-bl->y; short i=0, j; int dist2 = xi*xi + yi*yi; short dist = (short)sqrt(dist2); short segment; if (dist < 1) dist =1; do { j = rand()%8; //Pick a random direction segment = 1+(rand()%dist); //Pick a random interval from the whole vector in that direction xi = bl->x + segment*dirx[j]; segment = (short)sqrt(dist2 - segment*segment); //The complement of the previously picked segment yi = bl->y + segment*diry[j]; } while (( map_getcell(bl->m,xi,yi,CELL_CHKNOPASS) || path_search_real(&wpd,bl->m,bl->x,bl->y,xi,yi,1,CELL_CHKNOREACH) == -1) && (++i)<100); if (i < 100) { *x = xi; *y = yi; return 1; } return 0; } // gat系 /*========================================== * (m,x,y)の状態を調べる *------------------------------------------ */ int map_getcell(int m,int x,int y,cell_t cellchk) { return (m < 0 || m >= MAX_MAP_PER_SERVER) ? 0 : map_getcellp(&map[m],x,y,cellchk); } int map_getcellp(struct map_data* m,int x,int y,cell_t cellchk) { int type, type2; #ifdef CELL_NOSTACK int type3; #endif nullpo_ret(m); if(x<0 || x>=m->xs-1 || y<0 || y>=m->ys-1) { if(cellchk==CELL_CHKNOPASS) return 1; return 0; } type = m->gat[x+y*m->xs]; type2 = m->cell[x+y*m->xs]; #ifdef CELL_NOSTACK type3 = m->cell_bl[x+y*m->xs]; #endif switch(cellchk) { case CELL_CHKPASS: #ifdef CELL_NOSTACK if (type3 >= battle_config.cell_stack_limit) return 0; #endif case CELL_CHKREACH: return (type!=1 && type!=5 && !(type2&CELL_ICEWALL)); case CELL_CHKNOPASS: #ifdef CELL_NOSTACK if (type3 >= battle_config.cell_stack_limit) return 1; #endif case CELL_CHKNOREACH: return (type==1 || type==5 || type2&CELL_ICEWALL); case CELL_CHKSTACK: #ifdef CELL_NOSTACK return (type3 >= battle_config.cell_stack_limit); #else return 0; #endif case CELL_CHKWALL: return (type==1/* || type2&CELL_ICEWALL*/); //Uncomment to prevent sniping/casting through the icewall. [Skotlex] case CELL_CHKWATER: return (type==3); case CELL_CHKGROUND: return (type==5 || type2&CELL_ICEWALL); case CELL_GETTYPE: return type; case CELL_GETCELLTYPE: return type2; case CELL_CHKNPC: return (type2&CELL_NPC); case CELL_CHKPNEUMA: return (type2&CELL_PNEUMA); case CELL_CHKSAFETYWALL: return (type2&CELL_SAFETYWALL); case CELL_CHKBASILICA: return (type2&CELL_BASILICA); case CELL_CHKLANDPROTECTOR: return (type2&CELL_LANDPROTECTOR); case CELL_CHKREGEN: return (type2&CELL_REGEN); case CELL_CHKICEWALL: return (type2&CELL_ICEWALL); default: return 0; } } /*========================================== * (m,x,y)の状態を設定する *------------------------------------------ */ void map_setcell(int m,int x,int y,int cell) { int j; if(x<0 || x>=map[m].xs || y<0 || y>=map[m].ys) return; j=x+y*map[m].xs; switch (cell) { case CELL_SETNPC: map[m].cell[j] |= CELL_NPC; break; case CELL_CLRNPC: map[m].cell[j] &= ~CELL_NPC; break; case CELL_SETICEWALL: map[m].cell[j] |= CELL_ICEWALL; break; case CELL_CLRICEWALL: map[m].cell[j] &= ~CELL_ICEWALL; break; case CELL_SETBASILICA: map[m].cell[j] |= CELL_BASILICA; break; case CELL_CLRBASILICA: map[m].cell[j] &= ~CELL_BASILICA; break; case CELL_SETPNEUMA: map[m].cell[j] |= CELL_PNEUMA; break; case CELL_CLRPNEUMA: map[m].cell[j] &= ~CELL_PNEUMA; break; case CELL_SETSAFETYWALL: map[m].cell[j] |= CELL_SAFETYWALL; break; case CELL_CLRSAFETYWALL: map[m].cell[j] &= ~CELL_SAFETYWALL; break; case CELL_SETLANDPROTECTOR: map[m].cell[j] |= CELL_LANDPROTECTOR; break; case CELL_CLRLANDPROTECTOR: map[m].cell[j] &= ~CELL_LANDPROTECTOR; break; case CELL_SETREGEN: map[m].cell[j] |= CELL_REGEN; break; default: map[m].gat[j] = cell; break; } } static void* create_map_data_other_server(DBKey key, va_list args) { struct map_data_other_server *mdos; unsigned short mapindex = (unsigned short)key.ui; mdos=(struct map_data_other_server *)aCalloc(1,sizeof(struct map_data_other_server)); mdos->index = mapindex; memcpy(mdos->name, mapindex_id2name(mapindex), MAP_NAME_LENGTH); return mdos; } /*========================================== * 他鯖管理のマップをdbに追加 *------------------------------------------ */ int map_setipport(unsigned short mapindex,unsigned long ip,int port) { struct map_data_other_server *mdos=NULL; mdos=(struct map_data_other_server *)uidb_ensure(map_db,(unsigned int)mapindex, create_map_data_other_server); if(mdos->gat) //Local map,Do nothing. Give priority to our own local maps over ones from another server. [Skotlex] return 0; if(ip == clif_getip_long() && port == clif_getport()) { //That's odd, we received info that we are the ones with this map, but... we don't have it. ShowFatalError("map_setipport : received info that this map-server SHOULD have map '%s', but it is not loaded.\n",mapindex_id2name(mapindex)); exit(1); } mdos->ip = ip; mdos->port = port; return 1; } /*========================================== * 他鯖管理のマップを全て削除 *------------------------------------------ */ int map_eraseallipport_sub(DBKey key,void *data,va_list va) { struct map_data_other_server *mdos = (struct map_data_other_server*)data; if(mdos->gat == NULL) { db_remove(map_db,key); aFree(mdos); } return 0; } int map_eraseallipport(void) { map_db->foreach(map_db,map_eraseallipport_sub); return 1; } /*========================================== * 他鯖管理のマップをdbから削除 *------------------------------------------ */ int map_eraseipport(unsigned short mapindex,unsigned long ip,int port) { struct map_data_other_server *mdos; // unsigned char *p=(unsigned char *)&ip; mdos = uidb_get(map_db,(unsigned int)mapindex); if(!mdos || mdos->gat) //Map either does not exists or is a local map. return 0; if(mdos->ip==ip && mdos->port == port) { uidb_remove(map_db,(unsigned int)mapindex); aFree(mdos); return 1; } return 0; } /*========================================== * Map cache reading *===========================================*/ // This is the header appended before every compressed map cells info struct map_cache_info { char name[MAP_NAME_LENGTH]; unsigned short index; short xs; short ys; long len; }; FILE *map_cache_fp; // Removes the extension from a map name char *map_normalize_name(char *mapname) { char *ptr, *ptr2; ptr = strchr(mapname, '.'); if (ptr) { //Check and remove extension. while (ptr[1] && (ptr2 = strchr(ptr+1, '.'))) ptr = ptr2; //Skip to the last dot. if(stricmp(ptr,".gat") == 0 || stricmp(ptr,".afm") == 0 || stricmp(ptr,".af2") == 0) *ptr = '\0'; //Remove extension. } return mapname; } int map_readmap(struct map_data *m) { int i; unsigned short map_count; struct map_cache_info info; unsigned long size; unsigned char *buf; if(!map_cache_fp) return 0; fseek(map_cache_fp, 0, SEEK_SET); fread(&map_count, sizeof(map_count), 1, map_cache_fp); for(i = 0; i < map_count; i++) { fread(&info, sizeof(info), 1, map_cache_fp); if(strcmp(m->name, info.name) == 0) { // Map found m->xs = info.xs; m->ys = info.ys; m->gat = (unsigned char *)aMalloc(m->xs*m->ys); // Allocate room for map cells data buf = aMalloc(info.len); // Allocate a temp buffer to read the zipped map fread(buf, info.len, 1, map_cache_fp); size = m->xs*m->ys; decode_zip(m->gat, &size, buf, info.len); // Unzip the map from the buffer aFree(buf); return 1; } else // Map not found, jump to the beginning of the next map info header fseek(map_cache_fp, info.len, SEEK_CUR); } return 0; } int map_addmap(char *mapname) { if (strcmpi(mapname,"clear")==0) { map_num=0; return 0; } if (map_num >= MAX_MAP_PER_SERVER - 1) { ShowError("Could not add map '" CL_WHITE"%s"CL_RESET"', the limit of maps has been reached.\n",mapname); return 1; } memcpy(map[map_num].name, map_normalize_name(mapname), MAP_NAME_LENGTH-1); map_num++; return 0; } static void map_delmapid(int id) { ShowNotice("Removing map [ %s ] from maplist\n",map[id].name); memmove(map+id, map+id+1, sizeof(map[0])*(map_num-id-1)); map_num--; } int map_delmap(char *mapname) { int i; if (strcmpi(mapname, "all") == 0) { map_num = 0; return 0; } for(i = 0; i < map_num; i++) { if (strcmp(map[i].name, mapname) == 0) { map_delmapid(i); return 1; } } return 0; } /*====================================== * Initiate maps loading stage *-------------------------------------- */ int map_readallmaps (void) { int i; int maps_removed = 0; if(!(map_cache_fp = fopen(map_cache_file, "rb"))) { ShowFatalError("Unable to open map cache file "CL_WHITE"%s"CL_RESET"\n", map_cache_file); exit(1); //No use launching server if maps can't be read. } ShowStatus("Loading maps (using %s as map cache)...\n", map_cache_file); for(i = 0; i < map_num; i++) { static int lasti = -1; static int last_time = -1; int j = i*20/map_num; size_t size; // show progress if(j != lasti || last_time != time(0)) { char progress[21] = " "; char c = '-'; int k; lasti = j; printf("\r"); ShowStatus("Progress: ["); for (k=0; k < j; k++) progress[k] = '#'; printf(progress); last_time = (int)time(0); switch(last_time % 4) { case 0: c='\\'; break; case 1: c='|'; break; case 2: c='/'; break; case 3: c='-'; break; } printf("] Working: [%c]",c); fflush(stdout); } if(!map_readmap(&map[i])) { map_delmapid(i); maps_removed++; i--; continue; } map[i].index = mapindex_name2id(map[i].name); if (uidb_get(map_db,(unsigned int)map[i].index) != NULL) { ShowWarning("Map %s already loaded!\n", map[i].name); if (map[i].gat) { aFree(map[i].gat); map[i].gat = NULL; } map_delmapid(i); maps_removed++; i--; continue; } uidb_put(map_db, (unsigned int)map[i].index, &map[i]); map[i].m = i; memset(map[i].moblist, 0, sizeof(map[i].moblist)); //Initialize moblist [Skotlex] map[i].mob_delete_timer = -1; //Initialize timer [Skotlex] if(battle_config.pk_mode) map[i].flag.pvp = 1; // make all maps pvp for pk_mode [Valaris] map[i].cell = (unsigned char *)aCalloc(map[i].xs * map[i].ys, sizeof(unsigned char)); #ifdef CELL_NOSTACK map[i].cell_bl = (unsigned char *)aCalloc(map[i].xs * map[i].ys, sizeof(unsigned char)); #endif map[i].bxs = (map[i].xs + BLOCK_SIZE - 1) / BLOCK_SIZE; map[i].bys = (map[i].ys + BLOCK_SIZE - 1) / BLOCK_SIZE; // default experience multiplicators map[i].jexp = 100; map[i].bexp = 100; size = map[i].bxs * map[i].bys * sizeof(struct block_list*); map[i].block = (struct block_list**)aCalloc(size, 1); map[i].block_mob = (struct block_list**)aCalloc(size, 1); size = map[i].bxs * map[i].bys * sizeof(int); map[i].block_count = (int*)aCallocA(size, 1); map[i].block_mob_count = (int*)aCallocA(size, 1); } // finished map loading printf("\r"); ShowInfo("Successfully loaded '"CL_WHITE"%d"CL_RESET"' maps.%30s\n",map_num,""); if (maps_removed) ShowNotice("Maps removed: '"CL_WHITE"%d"CL_RESET"'\n",maps_removed); return 0; } //////////////////////////////////////////////////////////////////////// static int map_ip_set = 0; static int char_ip_set = 0; /*========================================== * Console Command Parser [Wizputer] *------------------------------------------ */ int parse_console(char* buf) { char type[64]; char command[64]; char map[64]; int x = 0; int y = 0; int m; int n; struct map_session_data sd; memset(&sd, 0, sizeof(struct map_session_data)); strcpy(sd.status.name, "console"); if( (n=sscanf(buf, "%[^:]:%[^:]:%99s %d %d[^\n]",type,command,map,&x,&y)) < 5 ) if( (n=sscanf(buf, "%[^:]:%[^\n]",type,command)) < 2 ) n = sscanf(buf,"%[^\n]",type); if( n == 5 ) { m = map_mapname2mapid(map); if( m < 0 ){ ShowWarning("Console: Unknown map\n"); return 0; } sd.bl.m = m; map_search_freecell(&sd.bl, m, &sd.bl.x, &sd.bl.y, -1, -1, 0); if( x > 0 ) sd.bl.x = x; if( y > 0 ) sd.bl.y = y; } else { map[0] = '\0'; if( n < 2 ) command[0] = '\0'; if( n < 1 ) type[0] = '\0'; } ShowInfo("Type of command: '%s' || Command: '%s' || Map: '%s' Coords: %d %d\n", type, command, map, x, y); if( n == 5 && strcmpi("admin",type) == 0 ){ if( is_atcommand_sub(sd.fd,&sd,command,99) == AtCommand_None ) printf("Console: not atcommand\n"); } else if( n == 2 && strcmpi("server",type) == 0 ){ if( strcmpi("shutdown",command) == 0 || strcmpi("exit",command) == 0 || strcmpi("quit",command) == 0 ){ runflag = 0; } } else if( strcmpi("help",type) == 0 ){ ShowNotice("To use GM commands:\n"); printf("admin:: \n"); printf("You can use any GM command that doesn't require the GM.\n"); printf("No using @item or @warp however you can use @charwarp\n"); printf("The is for commands that need coords of the GM\n"); printf("IE: @spawn\n"); printf("To shutdown the server:\n"); printf("server:shutdown\n"); } return 0; } //------------------------------------------------- // Return numerical value of a switch configuration // on/off, english, fran軋is, deutsch, espaol //------------------------------------------------- int config_switch(const char *str) { if (strcmpi(str, "on") == 0 || strcmpi(str, "yes") == 0 || strcmpi(str, "oui") == 0 || strcmpi(str, "ja") == 0 || strcmpi(str, "si") == 0) return 1; if (strcmpi(str, "off") == 0 || strcmpi(str, "no") == 0 || strcmpi(str, "non") == 0 || strcmpi(str, "nein") == 0) return 0; return atoi(str); } /*========================================== * 設定ファイルを?み?む *------------------------------------------ */ int map_config_read(char *cfgName) { char line[1024], w1[1024], w2[1024], *ptr; FILE *fp; fp = fopen(cfgName,"r"); if (fp == NULL) { ShowFatalError("Map configuration file not found at: %s\n", cfgName); exit(1); } while(fgets(line, sizeof(line) -1, fp)) { if (line[0] == '/' && line[1] == '/') continue; if ((ptr = strstr(line, "//")) != NULL) *ptr = '\n'; //Strip comments if (sscanf(line, "%[^:]: %[^\t\r\n]", w1, w2) == 2) { //Strip trailing spaces ptr = w2 + strlen(w2); while (--ptr >= w2 && *ptr == ' '); ptr++; *ptr = '\0'; if(strcmpi(w1,"timestamp_format")==0){ strncpy(timestamp_format, w2, 20); } else if(strcmpi(w1,"stdout_with_ansisequence")==0){ stdout_with_ansisequence = config_switch(w2); } else if(strcmpi(w1,"console_silent")==0){ ShowInfo("Console Silent Setting: %d\n", atoi(w2)); msg_silent = atoi(w2); } else if (strcmpi(w1, "userid")==0){ chrif_setuserid(w2); } else if (strcmpi(w1, "passwd") == 0) { chrif_setpasswd(w2); } else if (strcmpi(w1, "char_ip") == 0) { char_ip_set = chrif_setip(w2); } else if (strcmpi(w1, "char_port") == 0) { chrif_setport(atoi(w2)); } else if (strcmpi(w1, "map_ip") == 0) { map_ip_set = clif_setip(w2); } else if (strcmpi(w1, "bind_ip") == 0) { clif_setbindip(w2); } else if (strcmpi(w1, "map_port") == 0) { clif_setport(atoi(w2)); map_port = (atoi(w2)); } else if (strcmpi(w1, "map") == 0) { map_addmap(w2); } else if (strcmpi(w1, "delmap") == 0) { map_delmap(w2); } else if (strcmpi(w1, "npc") == 0) { npc_addsrcfile(w2); } else if (strcmpi(w1, "delnpc") == 0) { npc_delsrcfile(w2); } else if (strcmpi(w1, "autosave_time") == 0) { autosave_interval = atoi(w2); if (autosave_interval < 1) //Revert to default saving. autosave_interval = DEFAULT_AUTOSAVE_INTERVAL; else autosave_interval *= 1000; //Pass from sec to ms } else if (strcmpi(w1, "minsave_time") == 0) { minsave_interval= atoi(w2); if (minsave_interval < 1) minsave_interval = 1; } else if (strcmpi(w1, "save_settings") == 0) { save_settings = atoi(w2); } else if (strcmpi(w1, "motd_txt") == 0) { strcpy(motd_txt, w2); } else if (strcmpi(w1, "help_txt") == 0) { strcpy(help_txt, w2); } else if (strcmpi(w1, "help2_txt") == 0) { strcpy(help2_txt, w2); } else if (strcmpi(w1, "charhelp_txt") == 0) { strcpy(charhelp_txt, w2); } else if (strcmpi(w1, "mapreg_txt") == 0) { strcpy(mapreg_txt, w2); } else if(strcmpi(w1,"map_cache_file") == 0) { strncpy(map_cache_file,w2,255); } else if(strcmpi(w1,"db_path") == 0) { strncpy(db_path,w2,255); } else if (strcmpi(w1, "console") == 0) { if(strcmpi(w2,"on") == 0 || strcmpi(w2,"yes") == 0 ) { console = 1; ShowNotice("Console Commands are enabled.\n"); } } else if (strcmpi(w1, "enable_spy") == 0) { if(strcmpi(w2,"on") == 0 || strcmpi(w2,"yes") == 0 ) enable_spy = 1; else enable_spy = 0; } else if (strcmpi(w1, "import") == 0) { map_config_read(w2); } else ShowWarning("Unknown setting [%s] in file %s\n", w1, cfgName); } } fclose(fp); return 0; } int inter_config_read(char *cfgName) { int i; char line[1024],w1[1024],w2[1024]; FILE *fp; fp=fopen(cfgName,"r"); if(fp==NULL){ ShowError("File not found: '%s'.\n",cfgName); return 1; } while(fgets(line,1020,fp)){ if(line[0] == '/' && line[1] == '/') continue; i=sscanf(line,"%[^:]: %[^\r\n]",w1,w2); if(i!=2) continue; if(strcmpi(w1,"party_share_level")==0){ party_share_level = battle_config_switch(w2); } else if(strcmpi(w1,"lowest_gm_level")==0){ lowest_gm_level = atoi(w2); /* Main chat nick [LuzZza] */ } else if(strcmpi(w1, "main_chat_nick")==0){ strcpy(main_chat_nick, w2); #ifndef TXT_ONLY } else if(strcmpi(w1,"item_db_db")==0){ strcpy(item_db_db,w2); } else if(strcmpi(w1,"mob_db_db")==0){ strcpy(mob_db_db,w2); } else if(strcmpi(w1,"item_db2_db")==0){ strcpy(item_db2_db,w2); } else if(strcmpi(w1,"mob_db2_db")==0){ strcpy(mob_db2_db,w2); } else if (strcmpi(w1, "char_db") == 0) { strcpy(char_db, w2); //Map Server SQL DB } else if(strcmpi(w1,"map_server_ip")==0){ strcpy(map_server_ip, w2); } else if(strcmpi(w1,"map_server_port")==0){ map_server_port=atoi(w2); } else if(strcmpi(w1,"map_server_id")==0){ strcpy(map_server_id, w2); } else if(strcmpi(w1,"map_server_pw")==0){ strcpy(map_server_pw, w2); } else if(strcmpi(w1,"map_server_db")==0){ strcpy(map_server_db, w2); } else if(strcmpi(w1,"default_codepage")==0){ strcpy(default_codepage, w2); } else if(strcmpi(w1,"use_sql_db")==0){ db_use_sqldbs = battle_config_switch(w2); ShowStatus ("Using SQL dbs: %s\n",w2); } else if(strcmpi(w1,"log_db")==0) { strcpy(log_db, w2); } else if(strcmpi(w1,"log_db_ip")==0) { strcpy(log_db_ip, w2); } else if(strcmpi(w1,"log_db")==0) { strcpy(log_db, w2); } else if(strcmpi(w1,"log_db_id")==0) { strcpy(log_db_id, w2); } else if(strcmpi(w1,"log_db_pw")==0) { strcpy(log_db_pw, w2); } else if(strcmpi(w1,"log_db_port")==0) { log_db_port = atoi(w2); // Mail Server SQL } else if(strcmpi(w1,"mail_server_enable")==0){ mail_server_enable = battle_config_switch(w2); ShowStatus ("Using Mail Server: %s\n",w2); } else if(strcmpi(w1,"mail_server_ip")==0){ strcpy(mail_server_ip, w2); } else if(strcmpi(w1,"mail_server_port")==0){ mail_server_port=atoi(w2); } else if(strcmpi(w1,"mail_server_id")==0){ strcpy(mail_server_id, w2); } else if(strcmpi(w1,"mail_server_pw")==0){ strcpy(mail_server_pw, w2); } else if(strcmpi(w1,"mail_server_db")==0){ strcpy(mail_server_db, w2); } else if(strcmpi(w1,"mail_db")==0) { strcpy(mail_db, w2); #endif //support the import command, just like any other config } else if(strcmpi(w1,"import")==0){ inter_config_read(w2); } } fclose(fp); return 0; } #ifndef TXT_ONLY /*======================================= * MySQL Init *---------------------------------------*/ int map_sql_init(void){ mysql_init(&mmysql_handle); //DB connection start ShowInfo("Connecting to the Map DB Server....\n"); if(!mysql_real_connect(&mmysql_handle, map_server_ip, map_server_id, map_server_pw, map_server_db ,map_server_port, (char *)NULL, 0)) { //pointer check ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); exit(1); } else { ShowStatus("connect success! (Map Server Connection)\n"); } if(mail_server_enable) { // mail system [Valaris] mysql_init(&mail_handle); ShowInfo("Connecting to the Mail DB Server....\n"); if(!mysql_real_connect(&mail_handle, mail_server_ip, mail_server_id, mail_server_pw, mail_server_db ,mail_server_port, (char *)NULL, 0)) { ShowSQL("DB error - %s\n",mysql_error(&mail_handle)); exit(1); } if( strlen(default_codepage) > 0 ) { sprintf( tmp_sql, "SET NAMES %s", default_codepage ); if (mysql_query(&mail_handle, tmp_sql)) { ShowSQL("DB error - %s\n",mysql_error(&mail_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } } if( strlen(default_codepage) > 0 ) { sprintf( tmp_sql, "SET NAMES %s", default_codepage ); if (mysql_query(&mmysql_handle, tmp_sql)) { ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } return 0; } int map_sql_close(void){ mysql_close(&mmysql_handle); ShowStatus("Close Map DB Connection....\n"); if (log_config.sql_logs) { mysql_close(&logmysql_handle); ShowStatus("Close Log DB Connection....\n"); } return 0; } int log_sql_init(void){ mysql_init(&logmysql_handle); //DB connection start ShowInfo(""CL_WHITE"[SQL]"CL_RESET": Connecting to the Log Database "CL_WHITE"%s"CL_RESET" At "CL_WHITE"%s"CL_RESET"...\n",log_db,log_db_ip); if(!mysql_real_connect(&logmysql_handle, log_db_ip, log_db_id, log_db_pw, log_db ,log_db_port, (char *)NULL, 0)) { //pointer check ShowSQL("DB error - %s\n",mysql_error(&logmysql_handle)); exit(1); } ShowStatus(""CL_WHITE"[SQL]"CL_RESET": Successfully '"CL_GREEN"connected"CL_RESET"' to Database '"CL_WHITE"%s"CL_RESET"'.\n", log_db); if( strlen(default_codepage) > 0 ) { sprintf( tmp_sql, "SET NAMES %s", default_codepage ); if (mysql_query(&logmysql_handle, tmp_sql)) { ShowSQL("DB error - %s\n",mysql_error(&logmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } return 0; } /*============================================= * Does a mysql_ping to all connection handles *---------------------------------------------*/ int map_sql_ping(int tid, unsigned int tick, int id, int data) { ShowInfo("Pinging SQL server to keep connection alive...\n"); mysql_ping(&mmysql_handle); if (log_config.sql_logs) mysql_ping(&logmysql_handle); if(mail_server_enable) mysql_ping(&mail_handle); return 0; } int sql_ping_init(void) { int connection_timeout, connection_ping_interval; // set a default value first connection_timeout = 28800; // 8 hours // ask the mysql server for the timeout value if (!mysql_query(&mmysql_handle, "SHOW VARIABLES LIKE 'wait_timeout'") && (sql_res = mysql_store_result(&mmysql_handle)) != NULL) { sql_row = mysql_fetch_row(sql_res); if (sql_row) connection_timeout = atoi(sql_row[1]); if (connection_timeout < 60) connection_timeout = 60; mysql_free_result(sql_res); } // establish keepalive connection_ping_interval = connection_timeout - 30; // 30-second reserve add_timer_func_list(map_sql_ping, "map_sql_ping"); add_timer_interval(gettick() + connection_ping_interval*1000, map_sql_ping, 0, 0, connection_ping_interval*1000); return 0; } #endif /* not TXT_ONLY */ int map_db_final(DBKey k,void *d,va_list ap) { struct map_data_other_server *mdos = (struct map_data_other_server*)d; if(mdos && mdos->gat == NULL) aFree(mdos); return 0; } int nick_db_final(void *k,void *d,va_list ap) { char *p = (char *) d; if (p) aFree(p); return 0; } int cleanup_sub(struct block_list *bl, va_list ap) { nullpo_retr(0, bl); switch(bl->type) { case BL_PC: map_quit((struct map_session_data *) bl); break; case BL_NPC: npc_unload((struct npc_data *)bl); break; case BL_MOB: unit_free(bl,0); break; case BL_PET: //There is no need for this, the pet is removed together with the player. [Skotlex] break; case BL_ITEM: map_clearflooritem(bl->id); break; case BL_SKILL: skill_delunit((struct skill_unit *) bl, 1); break; } return 1; } static int cleanup_db_sub(DBKey key,void *data,va_list va) { return cleanup_sub((struct block_list*)data, NULL); } static int cleanup_db_subpc(DBKey key,void *data,va_list va) { struct map_session_data *sd = (TBL_PC*)data; if (!sd->state.finalsave) { //Error? ShowError("do_final: Player character in DB which was not sent to save! %d:%d\n", sd->status.account_id, sd->status.char_id); map_quit(sd); //Attempt force-save } //Force remove from memory... map_quit_ack(sd); return 1; } /*========================================== * map鯖終了・理 *------------------------------------------ */ void do_final(void) { int i, j; struct map_session_data **pl_allsd; ShowStatus("Terminating...\n"); for (i = 0; i < map_num; i++) if (map[i].m >= 0) map_foreachinmap(cleanup_sub, i, BL_ALL); //Scan any remaining players (between maps?) to kick them out. [Skotlex] pl_allsd = map_getallusers(&j); for (i = 0; i < j; i++) map_quit(pl_allsd[i]); id_db->foreach(id_db,cleanup_db_sub); chrif_char_reset_offline(); chrif_flush_fifo(); //Online players were sent to save, but the ack will not arrive on time! //They have to be removed from memory, and assume the char-server saved them. pc_db->foreach(pc_db,cleanup_db_subpc); do_final_atcommand(); do_final_battle(); do_final_chrif(); do_final_npc(); do_final_script(); do_final_itemdb(); do_final_storage(); do_final_guild(); do_final_party(); do_final_pc(); do_final_pet(); do_final_mob(); do_final_msg(); do_final_skill(); do_final_unit(); if(use_irc) do_final_irc(); map_getallusers(NULL); //Clear the memory allocated for this array. map_db->destroy(map_db, map_db_final); for (i=0; idestroy(id_db, NULL); pc_db->destroy(pc_db, NULL); charid_db->destroy(charid_db, NULL); #ifndef TXT_ONLY map_sql_close(); #endif /* not TXT_ONLY */ ShowStatus("Successfully terminated.\n"); } static int map_abort_sub(DBKey key,void * data,va_list ap) { struct map_session_data *sd = (TBL_PC*)data; if (!sd->state.auth || sd->state.waitingdisconnect || sd->state.finalsave) return 0; chrif_save(sd,1); return 1; } //------------------------------ // Function called when the server // has received a crash signal. //------------------------------ void do_abort(void) { //Save all characters and then flush the inter-connection. if (!chrif_isconnect()) { ShowFatalError("Server has crashed without a connection to the char-server, character data can't be saved!\n"); return; } ShowError("Server received crash signal! Attempting to save all online characters!\n"); map_foreachpc(map_abort_sub); chrif_flush_fifo(); } /*====================================================== * Map-Server Version Screen [MC Cameri] *------------------------------------------------------ */ void map_helpscreen(int flag) { // by MC Cameri puts("Usage: map-server [options]"); puts("Options:"); puts(CL_WHITE" Commands\t\t\tDescription"CL_RESET); puts("-----------------------------------------------------------------------------"); puts(" --help, --h, --?, /? Displays this help screen"); puts(" --map-config Load map-server configuration from "); puts(" --battle-config Load battle configuration from "); puts(" --atcommand-config Load atcommand configuration from "); puts(" --charcommand-config Load charcommand configuration from "); puts(" --script-config Load script configuration from "); puts(" --msg-config Load message configuration from "); puts(" --grf-path-file Load grf path file configuration from "); puts(" --sql-config Load inter-server configuration from "); puts(" (SQL Only)"); puts(" --log-config Load logging configuration from "); puts(" (SQL Only)"); puts(" --version, --v, -v, /v Displays the server's version"); puts("\n"); if (flag) exit(1); } /*====================================================== * Map-Server Version Screen [MC Cameri] *------------------------------------------------------ */ void map_versionscreen(int flag) { printf("CL_WHITE" "eAthena version %d.%02d.%02d, Athena Mod version %d" CL_RESET"\n", ATHENA_MAJOR_VERSION, ATHENA_MINOR_VERSION, ATHENA_REVISION, ATHENA_MOD_VERSION); puts(CL_GREEN "Website/Forum:" CL_RESET "\thttp://eathena.deltaanime.net/"); puts(CL_GREEN "Download URL:" CL_RESET "\thttp://eathena.systeminplace.net/"); puts(CL_GREEN "IRC Channel:" CL_RESET "\tirc://irc.deltaanime.net/#athena"); puts("\nOpen " CL_WHITE "readme.html" CL_RESET " for more information."); if (ATHENA_RELEASE_FLAG) ShowNotice("This version is not for release.\n"); if (flag) exit(1); } /*====================================================== * Map-Server Init and Command-line Arguments [Valaris] *------------------------------------------------------ */ void set_server_type(void) { SERVER_TYPE = ATHENA_SERVER_MAP; } int do_init(int argc, char *argv[]) { int i; #ifdef GCOLLECT GC_enable_incremental(); #endif INTER_CONF_NAME="conf/inter_athena.conf"; LOG_CONF_NAME="conf/log_athena.conf"; MAP_CONF_NAME = "conf/map_athena.conf"; BATTLE_CONF_FILENAME = "conf/battle_athena.conf"; ATCOMMAND_CONF_FILENAME = "conf/atcommand_athena.conf"; CHARCOMMAND_CONF_FILENAME = "conf/charcommand_athena.conf"; SCRIPT_CONF_NAME = "conf/script_athena.conf"; MSG_CONF_NAME = "conf/msg_athena.conf"; srand(gettick()); for (i = 1; i < argc ; i++) { if (strcmp(argv[i], "--help") == 0 || strcmp(argv[i], "--h") == 0 || strcmp(argv[i], "--?") == 0 || strcmp(argv[i], "/?") == 0) map_helpscreen(1); else if (strcmp(argv[i], "--version") == 0 || strcmp(argv[i], "--v") == 0 || strcmp(argv[i], "-v") == 0 || strcmp(argv[i], "/v") == 0) map_versionscreen(1); else if (strcmp(argv[i], "--map_config") == 0 || strcmp(argv[i], "--map-config") == 0) MAP_CONF_NAME=argv[i+1]; else if (strcmp(argv[i],"--battle_config") == 0 || strcmp(argv[i],"--battle-config") == 0) BATTLE_CONF_FILENAME = argv[i+1]; else if (strcmp(argv[i],"--atcommand_config") == 0 || strcmp(argv[i],"--atcommand-config") == 0) ATCOMMAND_CONF_FILENAME = argv[i+1]; else if (strcmp(argv[i],"--charcommand_config") == 0 || strcmp(argv[i],"--charcommand-config") == 0) CHARCOMMAND_CONF_FILENAME = argv[i+1]; else if (strcmp(argv[i],"--script_config") == 0 || strcmp(argv[i],"--script-config") == 0) SCRIPT_CONF_NAME = argv[i+1]; else if (strcmp(argv[i],"--msg_config") == 0 || strcmp(argv[i],"--msg-config") == 0) MSG_CONF_NAME = argv[i+1]; #ifndef TXT_ONLY else if (strcmp(argv[i],"--inter_config") == 0 || strcmp(argv[i],"--inter-config") == 0) INTER_CONF_NAME = argv[i+1]; #endif else if (strcmp(argv[i],"--log_config") == 0 || strcmp(argv[i],"--log-config") == 0) LOG_CONF_NAME = argv[i+1]; else if (strcmp(argv[i],"--run_once") == 0) // close the map-server as soon as its done.. for testing [Celest] runflag = 0; } map_config_read(MAP_CONF_NAME); irc_read_conf(IRC_CONF); // [Zido] chrif_checkdefaultlogin(); if (!map_ip_set || !char_ip_set) { // The map server should know what IP address it is running on // - MouseJstr int localaddr = ntohl(addr_[0]); unsigned char *ptr = (unsigned char *) &localaddr; char buf[16]; if (naddr_ == 0) { ShowError("\nUnable to determine your IP address... please edit the map_athena.conf file and set it.\n"); ShowError("(127.0.0.1 is valid if you have no network interface)\n"); } sprintf(buf, "%d.%d.%d.%d", ptr[0], ptr[1], ptr[2], ptr[3]);; if (naddr_ != 1) ShowNotice("Multiple interfaces detected.. using %s as our IP address\n", buf); else ShowInfo("Defaulting to %s as our IP address\n", buf); if (!map_ip_set) clif_setip(buf); if (!char_ip_set) chrif_setip(buf); } if (SHOW_DEBUG_MSG) ShowNotice("Server running in '"CL_WHITE"Debug Mode"CL_RESET"'.\n"); battle_config_read(BATTLE_CONF_FILENAME); msg_config_read(MSG_CONF_NAME); atcommand_config_read(ATCOMMAND_CONF_FILENAME); charcommand_config_read(CHARCOMMAND_CONF_FILENAME); script_config_read(SCRIPT_CONF_NAME); inter_config_read(INTER_CONF_NAME); log_config_read(LOG_CONF_NAME); id_db = db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_BASE,sizeof(int)); pc_db = db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_BASE,sizeof(int)); //Added for reliable map_id2sd() use. [Skotlex] map_db = db_alloc(__FILE__,__LINE__,DB_UINT,DB_OPT_BASE,sizeof(int)); charid_db = db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_RELEASE_DATA,sizeof(int)); #ifndef TXT_ONLY map_sql_init(); #endif /* not TXT_ONLY */ mapindex_init(); map_readallmaps(); add_timer_func_list(map_freeblock_timer, "map_freeblock_timer"); add_timer_func_list(map_clearflooritem_timer, "map_clearflooritem_timer"); add_timer_func_list(map_removemobs_timer, "map_removemobs_timer"); add_timer_interval(gettick()+1000, map_freeblock_timer, 0, 0, 60*1000); if(use_irc) do_init_irc(); do_init_atcommand(); do_init_battle(); do_init_chrif(); do_init_clif(); do_init_script(); do_init_itemdb(); do_init_skill(); do_init_mob(); do_init_pc(); do_init_status(); do_init_party(); do_init_guild(); do_init_storage(); do_init_pet(); do_init_merc(); //[orn] do_init_npc(); do_init_unit(); #ifndef TXT_ONLY /* mail system [Valaris] */ if(mail_server_enable) do_init_mail(); if (log_config.sql_logs) log_sql_init(); sql_ping_init(); #endif /* not TXT_ONLY */ npc_event_do_oninit(); // npcのOnInitイベント?行 if( console ) { //##TODO invoke a CONSOLE_START plugin event } if (battle_config.pk_mode == 1) ShowNotice("Server is running on '"CL_WHITE"PK Mode"CL_RESET"'.\n"); ShowStatus("Server is '"CL_GREEN"ready"CL_RESET"' and listening on port '"CL_WHITE"%d"CL_RESET"'.\n\n", map_port); return 0; } int compare_item(struct item *a, struct item *b) { if (a->nameid == b->nameid && a->identify == b->identify && a->refine == b->refine && a->attribute == b->attribute) { int i; for (i = 0; i < MAX_SLOTS && (a->card[i] == b->card[i]); i++); return (i == MAX_SLOTS); } return 0; }