Added elemental interface

12 files changed, 1129 insertions, 1069 deletions

diff --git a/src/map/atcommand.c b/src/map/atcommand.c
index d11fd9a9b..c14b8a26e 100644
--- a/src/map/atcommand.c
+++ b/src/map/atcommand.c
@@ -3600,7 +3600,7 @@ ACMD(reloadmobdb) {
 	homun->reload();
 	read_mercenarydb();
 	read_mercenary_skilldb();
-	reload_elementaldb();
+	elemental->reload_elementaldb();
 	clif->message(fd, msg_txt(98)); // Monster database has been reloaded.
 	
 	return true;
@@ -3614,7 +3614,7 @@ ACMD(reloadskilldb)
 	nullpo_retr(-1, sd);
 	skill->reload();
 	homun->reload_skill();
-	reload_elemental_skilldb();
+	elemental->reload_skilldb();
 	read_mercenary_skilldb();
 	clif->message(fd, msg_txt(99)); // Skill database has been reloaded.
 	
diff --git a/src/map/chrif.c b/src/map/chrif.c
index 0fd14cd28..02e9e977c 100644
--- a/src/map/chrif.c
+++ b/src/map/chrif.c
@@ -314,8 +314,8 @@ int chrif_save(struct map_session_data *sd, int flag) {
 		homun->save(sd->hd);
 	if( sd->md && mercenary_get_lifetime(sd->md) > 0 )
 		mercenary_save(sd->md);
-	if( sd->ed && elemental_get_lifetime(sd->ed) > 0 )
-		elemental_save(sd->ed);	
+	if( sd->ed && elemental->get_lifetime(sd->ed) > 0 )
+		elemental->save(sd->ed);	
 	if( sd->save_quest )
 		intif_quest_save(sd);
 
diff --git a/src/map/duel.c b/src/map/duel.c
index 80ef1b530..7a4e61fa0 100644
--- a/src/map/duel.c
+++ b/src/map/duel.c
@@ -185,7 +185,7 @@ void do_init_duel(void)
 * Generated by HerculesInterfaceMaker

 * created by Susu

 *-------------------------------------*/

-void duel_defaults(void) {

+void iDuel_defaults(void) {

 	iDuel = &iDuel_s;

 
	/* vars */

 	iDuel->duel_count = 0;

diff --git a/src/map/duel.h b/src/map/duel.h
index ec9c4bf83..9fa33833a 100644
--- a/src/map/duel.h
+++ b/src/map/duel.h
@@ -40,6 +40,6 @@ struct duel_interface {
 
 struct duel_interface *iDuel;
 
-void duel_defaults(void);
+void iDuel_defaults(void);
 
 #endif /* _DUEL_H_ */
diff --git a/src/map/elemental.c b/src/map/elemental.c
index 839fa3640..3c212ccaa 100644
--- a/src/map/elemental.c
+++ b/src/map/elemental.c
@@ -1,944 +1,984 @@
-// Copyright (c) Hercules Dev Team, licensed under GNU GPL.
-// See the LICENSE file
-// Portions Copyright (c) Athena Dev Teams
-
-#include "../common/cbasetypes.h"
-#include "../common/malloc.h"
-#include "../common/socket.h"
-#include "../common/timer.h"
-#include "../common/nullpo.h"
-#include "../common/mmo.h"
-#include "../common/showmsg.h"
-#include "../common/utils.h"
-#include "../common/random.h"
-#include "../common/strlib.h"
-
-#include "log.h"
-#include "clif.h"
-#include "chrif.h"
-#include "intif.h"
-#include "itemdb.h"
-#include "map.h"
-#include "pc.h"
-#include "status.h"
-#include "skill.h"
-#include "mob.h"
-#include "pet.h"
-#include "battle.h"
-#include "party.h"
-#include "guild.h"
-#include "atcommand.h"
-#include "script.h"
-#include "npc.h"
-#include "trade.h"
-#include "unit.h"
-#include "elemental.h"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <math.h>
-
-struct s_elemental_db elemental_db[MAX_ELEMENTAL_CLASS]; // Elemental Database
-
-int elemental_search_index(int class_) {
-	int i;
-	ARR_FIND(0, MAX_ELEMENTAL_CLASS, i, elemental_db[i].class_ == class_);
-	return (i == MAX_ELEMENTAL_CLASS)?-1:i;
-}
-
-bool elemental_class(int class_) {
-	return (bool)(elemental_search_index(class_) > -1);
-}
-
-struct view_data * elemental_get_viewdata(int class_) {
-	int i = elemental_search_index(class_);
-	if( i < 0 )
-		return 0;
-
-	return &elemental_db[i].vd;
-}
-
-int elemental_create(struct map_session_data *sd, int class_, unsigned int lifetime) {
-	struct s_elemental ele;
-	struct s_elemental_db *db;
-	int i;
-
-	nullpo_retr(1,sd);
-
-	if( (i = elemental_search_index(class_)) < 0 )
-		return 0;
-
-	db = &elemental_db[i];
-	memset(&ele,0,sizeof(struct s_elemental));
-
-	ele.char_id = sd->status.char_id;
-	ele.class_ = class_;
-	ele.mode = EL_MODE_PASSIVE; // Initial mode
-	i = db->status.size+1; // summon level
-
-	//[(Caster�s Max HP/ 3 ) + (Caster�s INT x 10 )+ (Caster�s Job Level x 20 )] x [(Elemental Summon Level + 2) / 3]
-	ele.hp = ele.max_hp = (sd->battle_status.max_hp/3 + sd->battle_status.int_*10 + sd->status.job_level) * ((i + 2) / 3);
-	//Caster�s Max SP /4
-	ele.sp = ele.max_sp = sd->battle_status.max_sp/4;
-	//Caster�s [ Max SP / (18 / Elemental Summon Skill Level) 1- 100 ]
-	ele.atk = (sd->battle_status.max_sp / (18 / i)  * 1 - 100);
-	//Caster�s [ Max SP / (18 / Elemental Summon Skill Level) ]
-	ele.atk2 = sd->battle_status.max_sp / 18;
-	//Caster�s HIT + (Caster�s Base Level )
-	ele.hit = sd->battle_status.hit + sd->status.base_level;
-	//[Elemental Summon Skill Level x (Caster�s INT / 2 + Caster�s DEX / 4)]
-	ele.matk = i * (sd->battle_status.int_ / 2 + sd->battle_status.dex / 4);
-	//150 + [Caster�s DEX / 10] + [Elemental Summon Skill Level x 3 ]
-	ele.amotion = 150 + sd->battle_status.dex / 10 + i * 3;
-	//Caster�s DEF + (Caster�s Base Level / (5 � Elemental Summon Skill Level)
-	ele.def = sd->battle_status.def + sd->status.base_level / (5-i);
-	//Caster�s MDEF + (Caster�s INT / (5 - Elemental Summon Skill Level)
-	ele.mdef = sd->battle_status.mdef + sd->battle_status.int_ / (5-i);
-	//Caster�s FLEE + (Caster�s Base Level / (5 � Elemental Summon Skill Level)
-	ele.flee = sd->status.base_level / (5-i);
-	//Caster�s HIT + (Caster�s Base Level )
-	ele.hit = sd->battle_status.hit + sd->status.base_level;
-
-	//per individual bonuses
-	switch(db->class_){
-	case 2114:	case 2115:
-	case 2116: //ATK + (Summon Agni Skill Level x 20) / HIT + (Summon Agni Skill Level x 10)
-		ele.atk += i * 20;
-		ele.atk2 += i * 20;
-		ele.hit += i * 10;
-		break;
-	case 2117:	case 2118:
-	case 2119: //MDEF + (Summon Aqua Skill Level x 10) / MATK + (Summon Aqua Skill Level x 20)
-		ele.mdef += i * 10;
-		ele.matk += i * 20;
-		break;
-	case 2120:	case 2121:
-	case 2122: //FLEE + (Summon Ventus Skill Level x 20) / MATK + (Summon Ventus Skill Level x 10)
-		ele.flee += i * 20;
-		ele.matk += i * 10;
-		break;
-	case 2123:	case 2124:
-	case 2125: //DEF + (Summon Tera Skill Level x 25) / ATK + (Summon Tera Skill Level x 5)
-		ele.def += i * 25;
-		ele.atk += i * 5;
-		ele.atk2 += i * 5;
-		break;
-	}
-
-	if( (i=pc->checkskill(sd,SO_EL_SYMPATHY)) > 0 ){
-		ele.hp = ele.max_hp = ele.max_hp * 5 * i / 100;
-		ele.sp = ele.max_sp = ele.max_sp * 5 * i / 100;
-		ele.atk += 25 * i;
-		ele.atk2 += 25 * i;
-		ele.matk += 25 * i;
-	}
-
-	ele.life_time = lifetime;
-
-	// Request Char Server to create this elemental
-	intif_elemental_create(&ele);
-
-	return 1;
-}
-
-int elemental_get_lifetime(struct elemental_data *ed) {
-	const struct TimerData * td;
-	if( ed == NULL || ed->summon_timer == INVALID_TIMER )
-		return 0;
-
-	td = iTimer->get_timer(ed->summon_timer);
-	return (td != NULL) ? DIFF_TICK(td->tick, iTimer->gettick()) : 0;
-}
-
-int elemental_save(struct elemental_data *ed) {
-	ed->elemental.mode = ed->battle_status.mode;
-	ed->elemental.hp = ed->battle_status.hp;
-	ed->elemental.sp = ed->battle_status.sp;
-	ed->elemental.max_hp = ed->battle_status.max_hp;
-	ed->elemental.max_sp = ed->battle_status.max_sp;
-	ed->elemental.atk = ed->battle_status.rhw.atk;
-	ed->elemental.atk2 = ed->battle_status.rhw.atk2;
-	ed->elemental.matk = ed->battle_status.matk_min;
-	ed->elemental.def = ed->battle_status.def;
-	ed->elemental.mdef = ed->battle_status.mdef;
-	ed->elemental.flee = ed->battle_status.flee;
-	ed->elemental.hit = ed->battle_status.hit;
-	ed->elemental.life_time = elemental_get_lifetime(ed);
-	intif_elemental_save(&ed->elemental);
-	return 1;
-}
-
-static int elemental_summon_end(int tid, unsigned int tick, int id, intptr_t data) {
-	struct map_session_data *sd;
-	struct elemental_data *ed;
-
-	if( (sd = iMap->id2sd(id)) == NULL )
-		return 1;
-	if( (ed = sd->ed) == NULL )
-		return 1;
-
-	if( ed->summon_timer != tid ) {
-		ShowError("elemental_summon_end %d != %d.\n", ed->summon_timer, tid);
-		return 0;
-	}
-
-	ed->summon_timer = INVALID_TIMER;
-	elemental_delete(ed, 0); // Elemental's summon time is over.
-
-	return 0;
-}
-
-void elemental_summon_stop(struct elemental_data *ed) {
-	nullpo_retv(ed);
-	if( ed->summon_timer != INVALID_TIMER )
-		iTimer->delete_timer(ed->summon_timer, elemental_summon_end);
-	ed->summon_timer = INVALID_TIMER;
-}
-
-int elemental_delete(struct elemental_data *ed, int reply) {
-	struct map_session_data *sd;
-	nullpo_ret(ed);
-
-	sd = ed->master;
-	ed->elemental.life_time = 0;
-
-	elemental_clean_effect(ed);
-	elemental_summon_stop(ed);
-
-	if( !sd )
-		return unit_free(&ed->bl, 0);
-
-	sd->ed = NULL;
-	sd->status.ele_id = 0;
-
-	return unit_remove_map(&ed->bl, 0);
-}
-
-void elemental_summon_init(struct elemental_data *ed) {
-	if( ed->summon_timer == INVALID_TIMER )
-		ed->summon_timer = iTimer->add_timer(iTimer->gettick() + ed->elemental.life_time, elemental_summon_end, ed->master->bl.id, 0);
-
-	ed->regen.state.block = 0;
-}
-
-int elemental_data_received(struct s_elemental *ele, bool flag) {
-	struct map_session_data *sd;
-	struct elemental_data *ed;
-	struct s_elemental_db *db;
-	int i = elemental_search_index(ele->class_);
-
-	if( (sd = iMap->charid2sd(ele->char_id)) == NULL )
-		return 0;
-
-	if( !flag || i < 0 ) { // Not created - loaded - DB info
-		sd->status.ele_id = 0;
-		return 0;
-	}
-
-	db = &elemental_db[i];
-	if( !sd->ed ) {	// Initialize it after first summon.
-		sd->ed = ed = (struct elemental_data*)aCalloc(1,sizeof(struct elemental_data));
-		ed->bl.type = BL_ELEM;
-		ed->bl.id = npc_get_new_npc_id();
-		ed->master = sd;
-		ed->db = db;
-		memcpy(&ed->elemental, ele, sizeof(struct s_elemental));
-		iStatus->set_viewdata(&ed->bl, ed->elemental.class_);
-		ed->vd->head_mid = 10; // Why?
-		iStatus->change_init(&ed->bl);
-		unit_dataset(&ed->bl);
-		ed->ud.dir = sd->ud.dir;
-
-		ed->bl.m = sd->bl.m;
-		ed->bl.x = sd->bl.x;
-		ed->bl.y = sd->bl.y;
-		unit_calc_pos(&ed->bl, sd->bl.x, sd->bl.y, sd->ud.dir);
-		ed->bl.x = ed->ud.to_x;
-		ed->bl.y = ed->ud.to_y;
-
-		iMap->addiddb(&ed->bl);
-		status_calc_elemental(ed,1);
-		ed->last_spdrain_time = ed->last_thinktime = iTimer->gettick();
-		ed->summon_timer = INVALID_TIMER;
-		elemental_summon_init(ed);
-	} else {
-		memcpy(&sd->ed->elemental, ele, sizeof(struct s_elemental));
-		ed = sd->ed;
-	}
-
-	sd->status.ele_id = ele->elemental_id;
-
-	if( ed->bl.prev == NULL && sd->bl.prev != NULL ) {
-		iMap->addblock(&ed->bl);
-		clif->spawn(&ed->bl);
-		clif->elemental_info(sd);
-		clif->elemental_updatestatus(sd,SP_HP);
-		clif->hpmeter_single(sd->fd,ed->bl.id,ed->battle_status.hp,ed->battle_status.max_hp);
-		clif->elemental_updatestatus(sd,SP_SP);
-	}
-
-	return 1;
-}
-
-int elemental_clean_single_effect(struct elemental_data *ed, uint16 skill_id) {
-	struct block_list *bl;
-	sc_type type = iStatus->skill2sc(skill_id);
-
-	nullpo_ret(ed);
-
-	bl = battle->get_master(&ed->bl);
-
-	if( type ) {
-		switch( type ) {
-				// Just remove status change.
-			case SC_PYROTECHNIC_OPTION:
-			case SC_HEATER_OPTION:
-			case SC_TROPIC_OPTION:
-			case SC_FIRE_CLOAK_OPTION:
-			case SC_AQUAPLAY_OPTION:
-			case SC_WATER_SCREEN_OPTION:
-			case SC_COOLER_OPTION:
-			case SC_CHILLY_AIR_OPTION:
-			case SC_GUST_OPTION:
-			case SC_WIND_STEP_OPTION:
-			case SC_BLAST_OPTION:
-			case SC_WATER_DROP_OPTION:
-			case SC_WIND_CURTAIN_OPTION:
-			case SC_WILD_STORM_OPTION:
-			case SC_PETROLOGY_OPTION:
-			case SC_SOLID_SKIN_OPTION:
-			case SC_CURSED_SOIL_OPTION:
-			case SC_STONE_SHIELD_OPTION:
-			case SC_UPHEAVAL_OPTION:
-			case SC_CIRCLE_OF_FIRE_OPTION:
-			case SC_TIDAL_WEAPON_OPTION:
-				if( bl ) status_change_end(bl,type,INVALID_TIMER);	// Master
-				status_change_end(&ed->bl,type-1,INVALID_TIMER);	// Elemental Spirit
-				break;
-			case SC_ZEPHYR:
-				if( bl ) status_change_end(bl,type,INVALID_TIMER);
-				break;
-			default:
-				ShowWarning("Invalid SC=%d in elemental_clean_single_effect\n",type);
-				break;
-		}
-	}
-
-	return 1;
-}
-
-int elemental_clean_effect(struct elemental_data *ed) {
-	struct map_session_data *sd;
-
-	nullpo_ret(ed);
-
-	// Elemental side
-	status_change_end(&ed->bl, SC_TROPIC, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_HEATER, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_AQUAPLAY, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_COOLER, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_CHILLY_AIR, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_PYROTECHNIC, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_FIRE_CLOAK, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_WATER_DROP, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_WATER_SCREEN, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_GUST, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_WIND_STEP, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_BLAST, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_WIND_CURTAIN, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_WILD_STORM, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_PETROLOGY, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_SOLID_SKIN, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_CURSED_SOIL, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_STONE_SHIELD, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_UPHEAVAL, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_CIRCLE_OF_FIRE, INVALID_TIMER);
-	status_change_end(&ed->bl, SC_TIDAL_WEAPON, INVALID_TIMER);
-
-	if( (sd = ed->master) == NULL )
-		return 0;
-
-	// Master side
-	status_change_end(&sd->bl, SC_TROPIC_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_HEATER_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_AQUAPLAY_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_COOLER_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_CHILLY_AIR_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_PYROTECHNIC_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_FIRE_CLOAK_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WATER_DROP_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WATER_SCREEN_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_GUST_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WIND_STEP_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_BLAST_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WATER_DROP_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WIND_CURTAIN_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WILD_STORM_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_ZEPHYR, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_WIND_STEP_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_PETROLOGY_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_SOLID_SKIN_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_CURSED_SOIL_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_STONE_SHIELD_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_UPHEAVAL_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_CIRCLE_OF_FIRE_OPTION, INVALID_TIMER);
-	status_change_end(&sd->bl, SC_TIDAL_WEAPON_OPTION, INVALID_TIMER);
-
-	return 1;
-}
-
-int elemental_action(struct elemental_data *ed, struct block_list *bl, unsigned int tick) {
-	struct skill_condition req;
-	uint16 skill_id, skill_lv;
-	int i;
-
-	nullpo_ret(ed);
-	nullpo_ret(bl);
-
-	if( !ed->master )
-		return 0;
-
-	if( ed->target_id )
-		elemental_unlocktarget(ed);	// Remove previous target.
-
-	ARR_FIND(0, MAX_ELESKILLTREE, i, ed->db->skill[i].id && (ed->db->skill[i].mode&EL_SKILLMODE_AGGRESSIVE));
-	if( i == MAX_ELESKILLTREE )
-		return 0;
-
-	skill_id = ed->db->skill[i].id;
-	skill_lv = ed->db->skill[i].lv;
-
-	if( elemental_skillnotok(skill_id, ed) )
-		return 0;
-
-	if( ed->ud.skilltimer != INVALID_TIMER )
-		return 0;
-	else if( DIFF_TICK(tick, ed->ud.canact_tick) < 0 )
-		return 0;
-
-	ed->target_id = ed->ud.skilltarget = bl->id;	// Set new target
-	ed->last_thinktime = tick;
-
-	// Not in skill range.
-	if( !battle->check_range(&ed->bl,bl,skill->get_range(skill_id,skill_lv)) ) {
-		// Try to walk to the target.
-		if( !unit_walktobl(&ed->bl, bl, skill->get_range(skill_id,skill_lv), 2) )
-			elemental_unlocktarget(ed);
-		else {
-			// Walking, waiting to be in range. Client don't handle it, then we must handle it here.
-			int walk_dist = distance_bl(&ed->bl,bl) - skill->get_range(skill_id,skill_lv);
-			ed->ud.skill_id = skill_id;
-			ed->ud.skill_lv = skill_lv;
-
-			if( skill->get_inf(skill_id) & INF_GROUND_SKILL )
-				ed->ud.skilltimer = iTimer->add_timer( tick+iStatus->get_speed(&ed->bl)*walk_dist, skill->castend_pos, ed->bl.id, 0 );
-			else
-				ed->ud.skilltimer = iTimer->add_timer( tick+iStatus->get_speed(&ed->bl)*walk_dist, skill->castend_id, ed->bl.id, 0 );
-		}
-		return 1;
-
-	}
-
-	req = elemental_skill_get_requirements(skill_id, skill_lv);
-
-	if(req.hp || req.sp){
-		struct map_session_data *sd = BL_CAST(BL_PC, battle->get_master(&ed->bl));
-		if( sd ){
-			if( sd->skill_id_old != SO_EL_ACTION && //regardless of remaining HP/SP it can be cast
-				(status_get_hp(&ed->bl) < req.hp || status_get_sp(&ed->bl) < req.sp) )
-				return 1;
-			else
-				status_zap(&ed->bl, req.hp, req.sp);
-		}
-	}
-
-	//Otherwise, just cast the skill.
-	if( skill->get_inf(skill_id) & INF_GROUND_SKILL )
-		unit_skilluse_pos(&ed->bl, bl->x, bl->y, skill_id, skill_lv);
-	else
-		unit_skilluse_id(&ed->bl, bl->id, skill_id, skill_lv);
-
-	// Reset target.
-	ed->target_id = 0;
-
-	return 1;
-}
-
-/*===============================================================
- * Action that elemental perform after changing mode.
- * Activates one of the skills of the new mode.
- *-------------------------------------------------------------*/
-int elemental_change_mode_ack(struct elemental_data *ed, int mode) {
-	struct block_list *bl = &ed->master->bl;
-	uint16 skill_id, skill_lv;
-	int i;
-
-	nullpo_ret(ed);
-
-	if( !bl )
-		return 0;
-
-	// Select a skill.
-	ARR_FIND(0, MAX_ELESKILLTREE, i, ed->db->skill[i].id && (ed->db->skill[i].mode&mode));
-	if( i == MAX_ELESKILLTREE )
-		return 0;
-
-	skill_id = ed->db->skill[i].id;
-	skill_lv = ed->db->skill[i].lv;
-
-	if( elemental_skillnotok(skill_id, ed) )
-		return 0;
-
-	if( ed->ud.skilltimer != INVALID_TIMER )
-		return 0;
-	else if( DIFF_TICK(iTimer->gettick(), ed->ud.canact_tick) < 0 )
-		return 0;
-
-	ed->target_id = bl->id;	// Set new target
-	ed->last_thinktime = iTimer->gettick();
-
-	if( skill->get_inf(skill_id) & INF_GROUND_SKILL )
-		unit_skilluse_pos(&ed->bl, bl->x, bl->y, skill_id, skill_lv);
-	else
-		unit_skilluse_id(&ed->bl,bl->id,skill_id,skill_lv);
-
-	ed->target_id = 0;	// Reset target after casting the skill  to avoid continious attack.
-
-	return 1;
-}
-
-/*===============================================================
- * Change elemental mode.
- *-------------------------------------------------------------*/
-int elemental_change_mode(struct elemental_data *ed, int mode) {
-	nullpo_ret(ed);
-
-	// Remove target
-	elemental_unlocktarget(ed);
-
-	// Removes the effects of the previous mode.
-	if(ed->elemental.mode != mode ) elemental_clean_effect(ed);
-
-	ed->battle_status.mode = ed->elemental.mode = mode;
-
-	// Normalize elemental mode to elemental skill mode.
-	if( mode == EL_MODE_AGGRESSIVE ) mode = EL_SKILLMODE_AGGRESSIVE;	// Aggressive spirit mode -> Aggressive spirit skill.
-	else if( mode == EL_MODE_ASSIST ) mode = EL_SKILLMODE_ASSIST;		// Assist spirit mode -> Assist spirit skill.
-	else mode = EL_SKILLMODE_PASIVE;									// Passive spirit mode -> Passive spirit skill.
-
-	// Use a skill inmediately after every change mode.
-	if( mode != EL_SKILLMODE_AGGRESSIVE )
-		elemental_change_mode_ack(ed,mode);
-	return 1;
-}
-
-void elemental_heal(struct elemental_data *ed, int hp, int sp) {
-	if( hp )
-		clif->elemental_updatestatus(ed->master, SP_HP);
-	if( sp )
-		clif->elemental_updatestatus(ed->master, SP_SP);
-}
-
-int elemental_dead(struct elemental_data *ed) {
-	elemental_delete(ed, 1);
-	return 0;
-}
-
-int elemental_unlocktarget(struct elemental_data *ed) {
-	nullpo_ret(ed);
-
-	ed->target_id = 0;
-	elemental_stop_attack(ed);
-	elemental_stop_walking(ed,1);
-	return 0;
-}
-
-int elemental_skillnotok(uint16 skill_id, struct elemental_data *ed) {
-	int idx = skill->get_index(skill_id);
-	nullpo_retr(1,ed);
-
-	if (idx == 0)
-		return 1; // invalid skill id
-
-	return skill->not_ok(skill_id, ed->master);
-}
-
-struct skill_condition elemental_skill_get_requirements(uint16 skill_id, uint16 skill_lv){
-	struct skill_condition req;
-	int idx = skill->get_index(skill_id);
-
-	memset(&req,0,sizeof(req));
-
-	if( idx == 0 ) // invalid skill id
-  		return req;
-
-	if( skill_lv < 1 || skill_lv > MAX_SKILL_LEVEL )
-		return req;
-
-	req.hp = skill_db[idx].hp[skill_lv-1];
-	req.sp = skill_db[idx].sp[skill_lv-1];
-
-	return req;
-}
-
-int elemental_set_target( struct map_session_data *sd, struct block_list *bl ) {
-	struct elemental_data *ed = sd->ed;
-
-	nullpo_ret(ed);
-	nullpo_ret(bl);
-
-	if( ed->bl.m != bl->m || !check_distance_bl(&ed->bl, bl, ed->db->range2) )
-		return 0;
-
-	if( !iStatus->check_skilluse(&ed->bl, bl, 0, 0) )
-		return 0;
-
-	if( ed->target_id == 0 )
-		ed->target_id = bl->id;
-
-	return 1;
-}
-
-static int elemental_ai_sub_timer_activesearch(struct block_list *bl, va_list ap) {
-	struct elemental_data *ed;
-	struct block_list **target;
-	int dist;
-
-	nullpo_ret(bl);
-
-	ed = va_arg(ap,struct elemental_data *);
-	target = va_arg(ap,struct block_list**);
-
-	//If can't seek yet, not an enemy, or you can't attack it, skip.
-	if( (*target) == bl || !iStatus->check_skilluse(&ed->bl, bl, 0, 0) )
-		return 0;
-
-	if( battle->check_target(&ed->bl,bl,BCT_ENEMY) <= 0 )
-		return 0;
-
-	switch( bl->type ) {
-		case BL_PC:
-			if( !map_flag_vs(ed->bl.m) )
-				return 0;
-		default:
-			dist = distance_bl(&ed->bl, bl);
-			if( ((*target) == NULL || !check_distance_bl(&ed->bl, *target, dist)) && battle->check_range(&ed->bl,bl,ed->db->range2) ) { //Pick closest target?
-				(*target) = bl;
-				ed->target_id = bl->id;
-				ed->min_chase = dist + ed->db->range3;
-				if( ed->min_chase > AREA_SIZE )
-					ed->min_chase = AREA_SIZE;
-				return 1;
-			}
-			break;
-	}
-	return 0;
-}
-
-static int elemental_ai_sub_timer(struct elemental_data *ed, struct map_session_data *sd, unsigned int tick) {
-	struct block_list *target = NULL;
-	int master_dist, view_range, mode;
-
-	nullpo_ret(ed);
-	nullpo_ret(sd);
-
-	if( ed->bl.prev == NULL || sd == NULL || sd->bl.prev == NULL )
-		return 0;
-
-	// Check if caster can sustain the summoned elemental
-	if( DIFF_TICK(tick,ed->last_spdrain_time) >= 10000 ){// Drain SP every 10 seconds
-		int sp = 5;
-
-		switch(ed->vd->class_){
-			case 2115:	case 2118:
-			case 2121:	case 2124:
-				sp = 8;
-				break;
-			case 2116:	case 2119:
-			case 2122:	case 2125:
-				sp = 11;
-				break;
-		}
-
-		if( status_get_sp(&sd->bl) < sp ){ // Can't sustain delete it.
-			elemental_delete(sd->ed,0);
-			return 0;
-		}
-
-		status_zap(&sd->bl,0,sp);
-		ed->last_spdrain_time = tick;
-	}
-
-	if( DIFF_TICK(tick,ed->last_thinktime) < MIN_ELETHINKTIME )
-		return 0;
-
-	ed->last_thinktime = tick;
-
-	if( ed->ud.skilltimer != INVALID_TIMER )
-		return 0;
-
-	if( ed->ud.walktimer != INVALID_TIMER && ed->ud.walkpath.path_pos <= 2 )
-		return 0; //No thinking when you just started to walk.
-
-	if(ed->ud.walkpath.path_pos < ed->ud.walkpath.path_len && ed->ud.target == sd->bl.id)
-		return 0; //No thinking until be near the master.
-
-	if( ed->sc.count && ed->sc.data[SC_BLIND] )
-		view_range = 3;
-	else
-		view_range = ed->db->range2;
-
-	mode = status_get_mode(&ed->bl);
-
-	master_dist = distance_bl(&sd->bl, &ed->bl);
-	if( master_dist > AREA_SIZE ) {	// Master out of vision range.
-		elemental_unlocktarget(ed);
-		unit_warp(&ed->bl,sd->bl.m,sd->bl.x,sd->bl.y,CLR_TELEPORT);
-		clif->elemental_updatestatus(sd,SP_HP);
-		clif->elemental_updatestatus(sd,SP_SP);
-		return 0;
-	} else if( master_dist > MAX_ELEDISTANCE ) {	// Master too far, chase.
-		short x = sd->bl.x, y = sd->bl.y;
-		if( ed->target_id )
-			elemental_unlocktarget(ed);
-		if( ed->ud.walktimer != INVALID_TIMER && ed->ud.target == sd->bl.id )
-			return 0; //Already walking to him
-		if( DIFF_TICK(tick, ed->ud.canmove_tick) < 0 )
-			return 0; //Can't move yet.
-		if( iMap->search_freecell(&ed->bl, sd->bl.m, &x, &y, MIN_ELEDISTANCE, MIN_ELEDISTANCE, 1)
-		   && unit_walktoxy(&ed->bl, x, y, 0) )
-			return 0;
-	}
-
-	if( mode == EL_MODE_AGGRESSIVE ) {
-		target = iMap->id2bl(ed->ud.target);
-
-		if( !target )
-			iMap->foreachinrange(elemental_ai_sub_timer_activesearch, &ed->bl, view_range, BL_CHAR, ed, &target, status_get_mode(&ed->bl));
-
-		if( !target ) { //No targets available.
-			elemental_unlocktarget(ed);
-			return 1;
-		}
-
-		if( battle->check_range(&ed->bl,target,view_range) && rnd()%100 < 2 ) { // 2% chance to cast attack skill.
-			if(	elemental_action(ed,target,tick) )
-				return 1;
-		}
-
-		//Attempt to attack.
-		//At this point we know the target is attackable, we just gotta check if the range matches.
-		if( ed->ud.target == target->id && ed->ud.attacktimer != INVALID_TIMER ) //Already locked.
-			return 1;
-
-		if( battle->check_range(&ed->bl, target, ed->base_status.rhw.range) ) {//Target within range, engage
-			unit_attack(&ed->bl,target->id,1);
-			return 1;
-		}
-
-		//Follow up if possible.
-		if( !unit_walktobl(&ed->bl, target, ed->base_status.rhw.range, 2) )
-			elemental_unlocktarget(ed);
-	}
-
-	return 0;
-}
-
-static int elemental_ai_sub_foreachclient(struct map_session_data *sd, va_list ap) {
-	unsigned int tick = va_arg(ap,unsigned int);
-	if(sd->status.ele_id && sd->ed)
-		elemental_ai_sub_timer(sd->ed,sd,tick);
-
-	return 0;
-}
-
-static int elemental_ai_timer(int tid, unsigned int tick, int id, intptr_t data) {
-	iMap->map_foreachpc(elemental_ai_sub_foreachclient,tick);
-	return 0;
-}
-
-int read_elementaldb(void) {
-	FILE *fp;
-	char line[1024], *p;
-	char *str[26];
-	int i, j = 0, k = 0, ele;
-	struct s_elemental_db *db;
-	struct status_data *status;
-
-	sprintf(line, "%s/%s", iMap->db_path, "elemental_db.txt");
-	memset(elemental_db,0,sizeof(elemental_db));
-
-	fp = fopen(line, "r");
-	if( !fp ) {
-		ShowError("read_elementaldb : can't read elemental_db.txt\n");
-		return -1;
-	}
-
-	while( fgets(line, sizeof(line), fp) && j < MAX_ELEMENTAL_CLASS ) {
-		k++;
-		if( line[0] == '/' && line[1] == '/' )
-			continue;
-
-		if( line[0] == '\0' || line[0] == '\n' || line[0] == '\r')
-			continue;
-
-		i = 0;
-		p = strtok(line, ",");
-		while( p != NULL && i < 26 ) {
-			str[i++] = p;
-			p = strtok(NULL, ",");
-		}
-		if( i < 26 ) {
-			ShowError("read_elementaldb : Incorrect number of columns at elemental_db.txt line %d.\n", k);
-			continue;
-		}
-
-		db = &elemental_db[j];
-		db->class_ = atoi(str[0]);
-		safestrncpy(db->sprite, str[1], NAME_LENGTH);
-		safestrncpy(db->name, str[2], NAME_LENGTH);
-		db->lv = atoi(str[3]);
-
-		status = &db->status;
-		db->vd.class_ = db->class_;
-
-		status->max_hp = atoi(str[4]);
-		status->max_sp = atoi(str[5]);
-		status->rhw.range = atoi(str[6]);
-		status->rhw.atk = atoi(str[7]);
-		status->rhw.atk2 = atoi(str[8]);
-		status->def = atoi(str[9]);
-		status->mdef = atoi(str[10]);
-		status->str = atoi(str[11]);
-		status->agi = atoi(str[12]);
-		status->vit = atoi(str[13]);
-		status->int_ = atoi(str[14]);
-		status->dex = atoi(str[15]);
-		status->luk = atoi(str[16]);
-		db->range2 = atoi(str[17]);
-		db->range3 = atoi(str[18]);
-		status->size = atoi(str[19]);
-		status->race = atoi(str[20]);
-
-		ele = atoi(str[21]);
-		status->def_ele = ele%10;
-		status->ele_lv = ele/20;
-		if( status->def_ele >= ELE_MAX ) {
-			ShowWarning("Elemental %d has invalid element type %d (max element is %d)\n", db->class_, status->def_ele, ELE_MAX - 1);
-			status->def_ele = ELE_NEUTRAL;
-		}
-		if( status->ele_lv < 1 || status->ele_lv > 4 ) {
-			ShowWarning("Elemental %d has invalid element level %d (max is 4)\n", db->class_, status->ele_lv);
-			status->ele_lv = 1;
-		}
-
-		status->aspd_rate = 1000;
-		status->speed = atoi(str[22]);
-		status->adelay = atoi(str[23]);
-		status->amotion = atoi(str[24]);
-		status->dmotion = atoi(str[25]);
-
-		j++;
-	}
-
-	fclose(fp);
-	ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' elementals in '"CL_WHITE"db/elemental_db.txt"CL_RESET"'.\n",j);
-
-	return 0;
-}
-
-int read_elemental_skilldb(void) {
-	FILE *fp;
-	char line[1024], *p;
-	char *str[4];
-	struct s_elemental_db *db;
-	int i, j = 0, k = 0, class_;
-	uint16 skill_id, skill_lv;
-	int skillmode;
-
-	sprintf(line, "%s/%s", iMap->db_path, "elemental_skill_db.txt");
-	fp = fopen(line, "r");
-	if( !fp ) {
-		ShowError("read_elemental_skilldb : can't read elemental_skill_db.txt\n");
-		return -1;
-	}
-
-	while( fgets(line, sizeof(line), fp) ) {
-		k++;
-		if( line[0] == '/' && line[1] == '/' )
-			continue;
-
-		if( line[0] == '\0' || line[0] == '\n' || line[0] == '\r')
-			continue;
-
-		i = 0;
-		p = strtok(line, ",");
-		while( p != NULL && i < 4 ) {
-			str[i++] = p;
-			p = strtok(NULL, ",");
-		}
-		if( i < 4 ) {
-			ShowError("read_elemental_skilldb : Incorrect number of columns at elemental_skill_db.txt line %d.\n", k);
-			continue;
-		}
-
-		class_ = atoi(str[0]);
-		ARR_FIND(0, MAX_ELEMENTAL_CLASS, i, class_ == elemental_db[i].class_);
-		if( i == MAX_ELEMENTAL_CLASS ) {
-			ShowError("read_elemental_skilldb : Class not found in elemental_db for skill entry, line %d.\n", k);
-			continue;
-		}
-
-		skill_id = atoi(str[1]);
-		if( skill_id < EL_SKILLBASE || skill_id >= EL_SKILLBASE + MAX_ELEMENTALSKILL ) {
-			ShowError("read_elemental_skilldb : Skill out of range, line %d.\n", k);
-			continue;
-		}
-
-		db = &elemental_db[i];
-		skill_lv = atoi(str[2]);
-
-		skillmode = atoi(str[3]);
-		if( skillmode < EL_SKILLMODE_PASIVE || skillmode > EL_SKILLMODE_AGGRESSIVE ) {
-			ShowError("read_elemental_skilldb : Skillmode out of range, line %d.\n",k);
-			continue;
-		}
-		ARR_FIND( 0, MAX_ELESKILLTREE, i, db->skill[i].id == 0 || db->skill[i].id == skill_id );
-		if( i == MAX_ELESKILLTREE ) {
-			ShowWarning("Unable to load skill %d into Elemental %d's tree. Maximum number of skills per elemental has been reached.\n", skill_id, class_);
-			continue;
-		}
-		db->skill[i].id = skill_id;
-		db->skill[i].lv = skill_lv;
-		db->skill[i].mode = skillmode;
-		j++;
-	}
-
-	fclose(fp);
-	ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' entries in '"CL_WHITE"db/elemental_skill_db.txt"CL_RESET"'.\n",j);
-	return 0;
-}
-
-void reload_elementaldb(void) {
-	read_elementaldb();
-	reload_elemental_skilldb();
-}
-
-void reload_elemental_skilldb(void) {
-	read_elemental_skilldb();
-}
-
-int do_init_elemental(void) {
-	read_elementaldb();
-	read_elemental_skilldb();
-
-	iTimer->add_timer_func_list(elemental_ai_timer,"elemental_ai_timer");
-	iTimer->add_timer_interval(iTimer->gettick()+MIN_ELETHINKTIME,elemental_ai_timer,0,0,MIN_ELETHINKTIME);
-
-	return 0;
-}
-
-void do_final_elemental(void) {
-	return;
-}
+// Copyright (c) Hercules Dev Team, licensed under GNU GPL.

+// See the LICENSE file

+// Portions Copyright (c) Athena Dev Teams

+

+#include "../common/cbasetypes.h"

+#include "../common/malloc.h"

+#include "../common/socket.h"

+#include "../common/timer.h"

+#include "../common/nullpo.h"

+#include "../common/mmo.h"

+#include "../common/showmsg.h"

+#include "../common/utils.h"

+#include "../common/random.h"

+#include "../common/strlib.h"

+

+#include "log.h"

+#include "clif.h"

+#include "chrif.h"

+#include "intif.h"

+#include "itemdb.h"

+#include "map.h"

+#include "pc.h"

+#include "status.h"

+#include "skill.h"

+#include "mob.h"

+#include "pet.h"

+#include "battle.h"

+#include "party.h"

+#include "guild.h"

+#include "atcommand.h"

+#include "script.h"

+#include "npc.h"

+#include "trade.h"

+#include "unit.h"

+#include "elemental.h"

+

+#include <stdio.h>

+#include <stdlib.h>

+#include <string.h>

+#include <math.h>

+

+int elemental_search_index(int class_) {

+	int i;

+	ARR_FIND(0, MAX_ELEMENTAL_CLASS, i, elemental->elemental_db[i].class_ == class_);

+	return (i == MAX_ELEMENTAL_CLASS)?-1:i;

+}

+

+bool elemental_class(int class_) {

+	return (bool)(elemental_search_index(class_) > -1);

+}

+

+struct view_data * elemental_get_viewdata(int class_) {

+	int i = elemental_search_index(class_);

+	if( i < 0 )

+		return 0;

+

+	return &elemental->elemental_db[i].vd;

+}

+

+int elemental_create(struct map_session_data *sd, int class_, unsigned int lifetime) {

+	struct s_elemental ele;

+	struct s_elemental_db *db;

+	int i;

+

+	nullpo_retr(1,sd);

+

+	if( (i = elemental_search_index(class_)) < 0 )

+		return 0;

+

+	db = &elemental->elemental_db[i];

+	memset(&ele,0,sizeof(struct s_elemental));

+

+	ele.char_id = sd->status.char_id;

+	ele.class_ = class_;

+	ele.mode = EL_MODE_PASSIVE; // Initial mode

+	i = db->status.size+1; // summon level

+

+	//[(Caster�s Max HP/ 3 ) + (Caster�s INT x 10 )+ (Caster�s Job Level x 20 )] x [(Elemental Summon Level + 2) / 3]

+	ele.hp = ele.max_hp = (sd->battle_status.max_hp/3 + sd->battle_status.int_*10 + sd->status.job_level) * ((i + 2) / 3);

+	//Caster�s Max SP /4

+	ele.sp = ele.max_sp = sd->battle_status.max_sp/4;

+	//Caster�s [ Max SP / (18 / Elemental Summon Skill Level) 1- 100 ]

+	ele.atk = (sd->battle_status.max_sp / (18 / i)  * 1 - 100);

+	//Caster�s [ Max SP / (18 / Elemental Summon Skill Level) ]

+	ele.atk2 = sd->battle_status.max_sp / 18;

+	//Caster�s HIT + (Caster�s Base Level )

+	ele.hit = sd->battle_status.hit + sd->status.base_level;

+	//[Elemental Summon Skill Level x (Caster�s INT / 2 + Caster�s DEX / 4)]

+	ele.matk = i * (sd->battle_status.int_ / 2 + sd->battle_status.dex / 4);

+	//150 + [Caster�s DEX / 10] + [Elemental Summon Skill Level x 3 ]

+	ele.amotion = 150 + sd->battle_status.dex / 10 + i * 3;

+	//Caster�s DEF + (Caster�s Base Level / (5 � Elemental Summon Skill Level)

+	ele.def = sd->battle_status.def + sd->status.base_level / (5-i);

+	//Caster�s MDEF + (Caster�s INT / (5 - Elemental Summon Skill Level)

+	ele.mdef = sd->battle_status.mdef + sd->battle_status.int_ / (5-i);

+	//Caster�s FLEE + (Caster�s Base Level / (5 � Elemental Summon Skill Level)

+	ele.flee = sd->status.base_level / (5-i);

+	//Caster�s HIT + (Caster�s Base Level )

+	ele.hit = sd->battle_status.hit + sd->status.base_level;

+

+	//per individual bonuses

+	switch(db->class_){

+	case 2114:	case 2115:

+	case 2116: //ATK + (Summon Agni Skill Level x 20) / HIT + (Summon Agni Skill Level x 10)

+		ele.atk += i * 20;

+		ele.atk2 += i * 20;

+		ele.hit += i * 10;

+		break;

+	case 2117:	case 2118:

+	case 2119: //MDEF + (Summon Aqua Skill Level x 10) / MATK + (Summon Aqua Skill Level x 20)

+		ele.mdef += i * 10;

+		ele.matk += i * 20;

+		break;

+	case 2120:	case 2121:

+	case 2122: //FLEE + (Summon Ventus Skill Level x 20) / MATK + (Summon Ventus Skill Level x 10)

+		ele.flee += i * 20;

+		ele.matk += i * 10;

+		break;

+	case 2123:	case 2124:

+	case 2125: //DEF + (Summon Tera Skill Level x 25) / ATK + (Summon Tera Skill Level x 5)

+		ele.def += i * 25;

+		ele.atk += i * 5;

+		ele.atk2 += i * 5;

+		break;

+	}

+

+	if( (i=pc->checkskill(sd,SO_EL_SYMPATHY)) > 0 ){

+		ele.hp = ele.max_hp = ele.max_hp * 5 * i / 100;

+		ele.sp = ele.max_sp = ele.max_sp * 5 * i / 100;

+		ele.atk += 25 * i;

+		ele.atk2 += 25 * i;

+		ele.matk += 25 * i;

+	}

+

+	ele.life_time = lifetime;

+

+	// Request Char Server to create this elemental

+	intif_elemental_create(&ele);

+

+	return 1;

+}

+

+int elemental_get_lifetime(struct elemental_data *ed) {

+	const struct TimerData * td;

+	if( ed == NULL || ed->summon_timer == INVALID_TIMER )

+		return 0;

+

+	td = iTimer->get_timer(ed->summon_timer);

+	return (td != NULL) ? DIFF_TICK(td->tick, iTimer->gettick()) : 0;

+}

+

+int elemental_save(struct elemental_data *ed) {

+	ed->elemental.mode = ed->battle_status.mode;

+	ed->elemental.hp = ed->battle_status.hp;

+	ed->elemental.sp = ed->battle_status.sp;

+	ed->elemental.max_hp = ed->battle_status.max_hp;

+	ed->elemental.max_sp = ed->battle_status.max_sp;

+	ed->elemental.atk = ed->battle_status.rhw.atk;

+	ed->elemental.atk2 = ed->battle_status.rhw.atk2;

+	ed->elemental.matk = ed->battle_status.matk_min;

+	ed->elemental.def = ed->battle_status.def;

+	ed->elemental.mdef = ed->battle_status.mdef;

+	ed->elemental.flee = ed->battle_status.flee;

+	ed->elemental.hit = ed->battle_status.hit;

+	ed->elemental.life_time = elemental->get_lifetime(ed);

+	intif_elemental_save(&ed->elemental);

+	return 1;

+}

+

+static int elemental_summon_end(int tid, unsigned int tick, int id, intptr_t data) {

+	struct map_session_data *sd;

+	struct elemental_data *ed;

+

+	if( (sd = iMap->id2sd(id)) == NULL )

+		return 1;

+	if( (ed = sd->ed) == NULL )

+		return 1;

+

+	if( ed->summon_timer != tid ) {

+		ShowError("elemental_summon_end %d != %d.\n", ed->summon_timer, tid);

+		return 0;

+	}

+

+	ed->summon_timer = INVALID_TIMER;

+	elemental->delete(ed, 0); // Elemental's summon time is over.

+

+	return 0;

+}

+

+void elemental_summon_stop(struct elemental_data *ed) {

+	nullpo_retv(ed);

+	if( ed->summon_timer != INVALID_TIMER )

+		iTimer->delete_timer(ed->summon_timer, elemental_summon_end);

+	ed->summon_timer = INVALID_TIMER;

+}

+

+int elemental_delete(struct elemental_data *ed, int reply) {

+	struct map_session_data *sd;

+	nullpo_ret(ed);

+

+	sd = ed->master;

+	ed->elemental.life_time = 0;

+

+	elemental->clean_effect(ed);

+	elemental->summon_stop(ed);

+

+	if( !sd )

+		return unit_free(&ed->bl, 0);

+

+	sd->ed = NULL;

+	sd->status.ele_id = 0;

+

+	return unit_remove_map(&ed->bl, 0);

+}

+

+void elemental_summon_init(struct elemental_data *ed) {

+	if( ed->summon_timer == INVALID_TIMER )

+		ed->summon_timer = iTimer->add_timer(iTimer->gettick() + ed->elemental.life_time, elemental_summon_end, ed->master->bl.id, 0);

+

+	ed->regen.state.block = 0;

+}

+

+int elemental_data_received(struct s_elemental *ele, bool flag) {

+	struct map_session_data *sd;

+	struct elemental_data *ed;

+	struct s_elemental_db *db;

+	int i = elemental_search_index(ele->class_);

+

+	if( (sd = iMap->charid2sd(ele->char_id)) == NULL )

+		return 0;

+

+	if( !flag || i < 0 ) { // Not created - loaded - DB info

+		sd->status.ele_id = 0;

+		return 0;

+	}

+

+	db = &elemental->elemental_db[i];

+	if( !sd->ed ) {	// Initialize it after first summon.

+		sd->ed = ed = (struct elemental_data*)aCalloc(1,sizeof(struct elemental_data));

+		ed->bl.type = BL_ELEM;

+		ed->bl.id = npc_get_new_npc_id();

+		ed->master = sd;

+		ed->db = db;

+		memcpy(&ed->elemental, ele, sizeof(struct s_elemental));

+		iStatus->set_viewdata(&ed->bl, ed->elemental.class_);

+		ed->vd->head_mid = 10; // Why?

+		iStatus->change_init(&ed->bl);

+		unit_dataset(&ed->bl);

+		ed->ud.dir = sd->ud.dir;

+

+		ed->bl.m = sd->bl.m;

+		ed->bl.x = sd->bl.x;

+		ed->bl.y = sd->bl.y;

+		unit_calc_pos(&ed->bl, sd->bl.x, sd->bl.y, sd->ud.dir);

+		ed->bl.x = ed->ud.to_x;

+		ed->bl.y = ed->ud.to_y;

+

+		iMap->addiddb(&ed->bl);

+		status_calc_elemental(ed,1);

+		ed->last_spdrain_time = ed->last_thinktime = iTimer->gettick();

+		ed->summon_timer = INVALID_TIMER;

+		elemental_summon_init(ed);

+	} else {

+		memcpy(&sd->ed->elemental, ele, sizeof(struct s_elemental));

+		ed = sd->ed;

+	}

+

+	sd->status.ele_id = ele->elemental_id;

+

+	if( ed->bl.prev == NULL && sd->bl.prev != NULL ) {

+		iMap->addblock(&ed->bl);

+		clif->spawn(&ed->bl);

+		clif->elemental_info(sd);

+		clif->elemental_updatestatus(sd,SP_HP);

+		clif->hpmeter_single(sd->fd,ed->bl.id,ed->battle_status.hp,ed->battle_status.max_hp);

+		clif->elemental_updatestatus(sd,SP_SP);

+	}

+

+	return 1;

+}

+

+int elemental_clean_single_effect(struct elemental_data *ed, uint16 skill_id) {

+	struct block_list *bl;

+	sc_type type = iStatus->skill2sc(skill_id);

+

+	nullpo_ret(ed);

+

+	bl = battle->get_master(&ed->bl);

+

+	if( type ) {

+		switch( type ) {

+				// Just remove status change.

+			case SC_PYROTECHNIC_OPTION:

+			case SC_HEATER_OPTION:

+			case SC_TROPIC_OPTION:

+			case SC_FIRE_CLOAK_OPTION:

+			case SC_AQUAPLAY_OPTION:

+			case SC_WATER_SCREEN_OPTION:

+			case SC_COOLER_OPTION:

+			case SC_CHILLY_AIR_OPTION:

+			case SC_GUST_OPTION:

+			case SC_WIND_STEP_OPTION:

+			case SC_BLAST_OPTION:

+			case SC_WATER_DROP_OPTION:

+			case SC_WIND_CURTAIN_OPTION:

+			case SC_WILD_STORM_OPTION:

+			case SC_PETROLOGY_OPTION:

+			case SC_SOLID_SKIN_OPTION:

+			case SC_CURSED_SOIL_OPTION:

+			case SC_STONE_SHIELD_OPTION:

+			case SC_UPHEAVAL_OPTION:

+			case SC_CIRCLE_OF_FIRE_OPTION:

+			case SC_TIDAL_WEAPON_OPTION:

+				if( bl ) status_change_end(bl,type,INVALID_TIMER);	// Master

+				status_change_end(&ed->bl,type-1,INVALID_TIMER);	// Elemental Spirit

+				break;

+			case SC_ZEPHYR:

+				if( bl ) status_change_end(bl,type,INVALID_TIMER);

+				break;

+			default:

+				ShowWarning("Invalid SC=%d in elemental_clean_single_effect\n",type);

+				break;

+		}

+	}

+

+	return 1;

+}

+

+int elemental_clean_effect(struct elemental_data *ed) {

+	struct map_session_data *sd;

+

+	nullpo_ret(ed);

+

+	// Elemental side

+	status_change_end(&ed->bl, SC_TROPIC, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_HEATER, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_AQUAPLAY, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_COOLER, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_CHILLY_AIR, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_PYROTECHNIC, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_FIRE_CLOAK, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_WATER_DROP, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_WATER_SCREEN, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_GUST, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_WIND_STEP, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_BLAST, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_WIND_CURTAIN, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_WILD_STORM, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_PETROLOGY, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_SOLID_SKIN, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_CURSED_SOIL, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_STONE_SHIELD, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_UPHEAVAL, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_CIRCLE_OF_FIRE, INVALID_TIMER);

+	status_change_end(&ed->bl, SC_TIDAL_WEAPON, INVALID_TIMER);

+

+	if( (sd = ed->master) == NULL )

+		return 0;

+

+	// Master side

+	status_change_end(&sd->bl, SC_TROPIC_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_HEATER_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_AQUAPLAY_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_COOLER_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_CHILLY_AIR_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_PYROTECHNIC_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_FIRE_CLOAK_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WATER_DROP_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WATER_SCREEN_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_GUST_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WIND_STEP_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_BLAST_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WATER_DROP_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WIND_CURTAIN_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WILD_STORM_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_ZEPHYR, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_WIND_STEP_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_PETROLOGY_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_SOLID_SKIN_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_CURSED_SOIL_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_STONE_SHIELD_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_UPHEAVAL_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_CIRCLE_OF_FIRE_OPTION, INVALID_TIMER);

+	status_change_end(&sd->bl, SC_TIDAL_WEAPON_OPTION, INVALID_TIMER);

+

+	return 1;

+}

+

+int elemental_action(struct elemental_data *ed, struct block_list *bl, unsigned int tick) {

+	struct skill_condition req;

+	uint16 skill_id, skill_lv;

+	int i;

+

+	nullpo_ret(ed);

+	nullpo_ret(bl);

+

+	if( !ed->master )

+		return 0;

+

+	if( ed->target_id )

+		elemental->unlocktarget(ed);	// Remove previous target.

+

+	ARR_FIND(0, MAX_ELESKILLTREE, i, ed->db->skill[i].id && (ed->db->skill[i].mode&EL_SKILLMODE_AGGRESSIVE));

+	if( i == MAX_ELESKILLTREE )

+		return 0;

+

+	skill_id = ed->db->skill[i].id;

+	skill_lv = ed->db->skill[i].lv;

+

+	if( elemental->skillnotok(skill_id, ed) )

+		return 0;

+

+	if( ed->ud.skilltimer != INVALID_TIMER )

+		return 0;

+	else if( DIFF_TICK(tick, ed->ud.canact_tick) < 0 )

+		return 0;

+

+	ed->target_id = ed->ud.skilltarget = bl->id;	// Set new target

+	ed->last_thinktime = tick;

+

+	// Not in skill range.

+	if( !battle->check_range(&ed->bl,bl,skill->get_range(skill_id,skill_lv)) ) {

+		// Try to walk to the target.

+		if( !unit_walktobl(&ed->bl, bl, skill->get_range(skill_id,skill_lv), 2) )

+			elemental->unlocktarget(ed);

+		else {

+			// Walking, waiting to be in range. Client don't handle it, then we must handle it here.

+			int walk_dist = distance_bl(&ed->bl,bl) - skill->get_range(skill_id,skill_lv);

+			ed->ud.skill_id = skill_id;

+			ed->ud.skill_lv = skill_lv;

+

+			if( skill->get_inf(skill_id) & INF_GROUND_SKILL )

+				ed->ud.skilltimer = iTimer->add_timer( tick+iStatus->get_speed(&ed->bl)*walk_dist, skill->castend_pos, ed->bl.id, 0 );

+			else

+				ed->ud.skilltimer = iTimer->add_timer( tick+iStatus->get_speed(&ed->bl)*walk_dist, skill->castend_id, ed->bl.id, 0 );

+		}

+		return 1;

+

+	}

+

+	req = elemental->skill_get_requirements(skill_id, skill_lv);

+

+	if(req.hp || req.sp){

+		struct map_session_data *sd = BL_CAST(BL_PC, battle->get_master(&ed->bl));

+		if( sd ){

+			if( sd->skill_id_old != SO_EL_ACTION && //regardless of remaining HP/SP it can be cast

+				(status_get_hp(&ed->bl) < req.hp || status_get_sp(&ed->bl) < req.sp) )

+				return 1;

+			else

+				status_zap(&ed->bl, req.hp, req.sp);

+		}

+	}

+

+	//Otherwise, just cast the skill.

+	if( skill->get_inf(skill_id) & INF_GROUND_SKILL )

+		unit_skilluse_pos(&ed->bl, bl->x, bl->y, skill_id, skill_lv);

+	else

+		unit_skilluse_id(&ed->bl, bl->id, skill_id, skill_lv);

+

+	// Reset target.

+	ed->target_id = 0;

+

+	return 1;

+}

+

+/*===============================================================

+ * Action that elemental perform after changing mode.

+ * Activates one of the skills of the new mode.

+ *-------------------------------------------------------------*/

+int elemental_change_mode_ack(struct elemental_data *ed, int mode) {

+	struct block_list *bl = &ed->master->bl;

+	uint16 skill_id, skill_lv;

+	int i;

+

+	nullpo_ret(ed);

+

+	if( !bl )

+		return 0;

+

+	// Select a skill.

+	ARR_FIND(0, MAX_ELESKILLTREE, i, ed->db->skill[i].id && (ed->db->skill[i].mode&mode));

+	if( i == MAX_ELESKILLTREE )

+		return 0;

+

+	skill_id = ed->db->skill[i].id;

+	skill_lv = ed->db->skill[i].lv;

+

+	if( elemental->skillnotok(skill_id, ed) )

+		return 0;

+

+	if( ed->ud.skilltimer != INVALID_TIMER )

+		return 0;

+	else if( DIFF_TICK(iTimer->gettick(), ed->ud.canact_tick) < 0 )

+		return 0;

+

+	ed->target_id = bl->id;	// Set new target

+	ed->last_thinktime = iTimer->gettick();

+

+	if( skill->get_inf(skill_id) & INF_GROUND_SKILL )

+		unit_skilluse_pos(&ed->bl, bl->x, bl->y, skill_id, skill_lv);

+	else

+		unit_skilluse_id(&ed->bl,bl->id,skill_id,skill_lv);

+

+	ed->target_id = 0;	// Reset target after casting the skill  to avoid continious attack.

+

+	return 1;

+}

+

+/*===============================================================

+ * Change elemental mode.

+ *-------------------------------------------------------------*/

+int elemental_change_mode(struct elemental_data *ed, int mode) {

+	nullpo_ret(ed);

+

+	// Remove target

+	elemental->unlocktarget(ed);

+

+	// Removes the effects of the previous mode.

+	if(ed->elemental.mode != mode ) elemental->clean_effect(ed);

+

+	ed->battle_status.mode = ed->elemental.mode = mode;

+

+	// Normalize elemental mode to elemental skill mode.

+	if( mode == EL_MODE_AGGRESSIVE ) mode = EL_SKILLMODE_AGGRESSIVE;	// Aggressive spirit mode -> Aggressive spirit skill.

+	else if( mode == EL_MODE_ASSIST ) mode = EL_SKILLMODE_ASSIST;		// Assist spirit mode -> Assist spirit skill.

+	else mode = EL_SKILLMODE_PASIVE;									// Passive spirit mode -> Passive spirit skill.

+

+	// Use a skill inmediately after every change mode.

+	if( mode != EL_SKILLMODE_AGGRESSIVE )

+		elemental->change_mode_ack(ed,mode);

+	return 1;

+}

+

+void elemental_heal(struct elemental_data *ed, int hp, int sp) {

+	if( hp )

+		clif->elemental_updatestatus(ed->master, SP_HP);

+	if( sp )

+		clif->elemental_updatestatus(ed->master, SP_SP);

+}

+

+int elemental_dead(struct elemental_data *ed) {

+	elemental->delete(ed, 1);

+	return 0;

+}

+

+int elemental_unlocktarget(struct elemental_data *ed) {

+	nullpo_ret(ed);

+

+	ed->target_id = 0;

+	elemental_stop_attack(ed);

+	elemental_stop_walking(ed,1);

+	return 0;

+}

+

+int elemental_skillnotok(uint16 skill_id, struct elemental_data *ed) {

+	int idx = skill->get_index(skill_id);

+	nullpo_retr(1,ed);

+

+	if (idx == 0)

+		return 1; // invalid skill id

+

+	return skill->not_ok(skill_id, ed->master);

+}

+

+struct skill_condition elemental_skill_get_requirements(uint16 skill_id, uint16 skill_lv){

+	struct skill_condition req;

+	int idx = skill->get_index(skill_id);

+

+	memset(&req,0,sizeof(req));

+

+	if( idx == 0 ) // invalid skill id

+  		return req;

+

+	if( skill_lv < 1 || skill_lv > MAX_SKILL_LEVEL )

+		return req;

+

+	req.hp = skill_db[idx].hp[skill_lv-1];

+	req.sp = skill_db[idx].sp[skill_lv-1];

+

+	return req;

+}

+

+int elemental_set_target( struct map_session_data *sd, struct block_list *bl ) {

+	struct elemental_data *ed = sd->ed;

+

+	nullpo_ret(ed);

+	nullpo_ret(bl);

+

+	if( ed->bl.m != bl->m || !check_distance_bl(&ed->bl, bl, ed->db->range2) )

+		return 0;

+

+	if( !iStatus->check_skilluse(&ed->bl, bl, 0, 0) )

+		return 0;

+

+	if( ed->target_id == 0 )

+		ed->target_id = bl->id;

+

+	return 1;

+}

+

+static int elemental_ai_sub_timer_activesearch(struct block_list *bl, va_list ap) {

+	struct elemental_data *ed;

+	struct block_list **target;

+	int dist;

+

+	nullpo_ret(bl);

+

+	ed = va_arg(ap,struct elemental_data *);

+	target = va_arg(ap,struct block_list**);

+

+	//If can't seek yet, not an enemy, or you can't attack it, skip.

+	if( (*target) == bl || !iStatus->check_skilluse(&ed->bl, bl, 0, 0) )

+		return 0;

+

+	if( battle->check_target(&ed->bl,bl,BCT_ENEMY) <= 0 )

+		return 0;

+

+	switch( bl->type ) {

+		case BL_PC:

+			if( !map_flag_vs(ed->bl.m) )

+				return 0;

+		default:

+			dist = distance_bl(&ed->bl, bl);

+			if( ((*target) == NULL || !check_distance_bl(&ed->bl, *target, dist)) && battle->check_range(&ed->bl,bl,ed->db->range2) ) { //Pick closest target?

+				(*target) = bl;

+				ed->target_id = bl->id;

+				ed->min_chase = dist + ed->db->range3;

+				if( ed->min_chase > AREA_SIZE )

+					ed->min_chase = AREA_SIZE;

+				return 1;

+			}

+			break;

+	}

+	return 0;

+}

+

+static int elemental_ai_sub_timer(struct elemental_data *ed, struct map_session_data *sd, unsigned int tick) {

+	struct block_list *target = NULL;

+	int master_dist, view_range, mode;

+

+	nullpo_ret(ed);

+	nullpo_ret(sd);

+

+	if( ed->bl.prev == NULL || sd == NULL || sd->bl.prev == NULL )

+		return 0;

+

+	// Check if caster can sustain the summoned elemental

+	if( DIFF_TICK(tick,ed->last_spdrain_time) >= 10000 ){// Drain SP every 10 seconds

+		int sp = 5;

+

+		switch(ed->vd->class_){

+			case 2115:	case 2118:

+			case 2121:	case 2124:

+				sp = 8;

+				break;

+			case 2116:	case 2119:

+			case 2122:	case 2125:

+				sp = 11;

+				break;

+		}

+

+		if( status_get_sp(&sd->bl) < sp ){ // Can't sustain delete it.

+			elemental->delete(sd->ed,0);

+			return 0;

+		}

+

+		status_zap(&sd->bl,0,sp);

+		ed->last_spdrain_time = tick;

+	}

+

+	if( DIFF_TICK(tick,ed->last_thinktime) < MIN_ELETHINKTIME )

+		return 0;

+

+	ed->last_thinktime = tick;

+

+	if( ed->ud.skilltimer != INVALID_TIMER )

+		return 0;

+

+	if( ed->ud.walktimer != INVALID_TIMER && ed->ud.walkpath.path_pos <= 2 )

+		return 0; //No thinking when you just started to walk.

+

+	if(ed->ud.walkpath.path_pos < ed->ud.walkpath.path_len && ed->ud.target == sd->bl.id)

+		return 0; //No thinking until be near the master.

+

+	if( ed->sc.count && ed->sc.data[SC_BLIND] )

+		view_range = 3;

+	else

+		view_range = ed->db->range2;

+

+	mode = status_get_mode(&ed->bl);

+

+	master_dist = distance_bl(&sd->bl, &ed->bl);

+	if( master_dist > AREA_SIZE ) {	// Master out of vision range.

+		elemental->unlocktarget(ed);

+		unit_warp(&ed->bl,sd->bl.m,sd->bl.x,sd->bl.y,CLR_TELEPORT);

+		clif->elemental_updatestatus(sd,SP_HP);

+		clif->elemental_updatestatus(sd,SP_SP);

+		return 0;

+	} else if( master_dist > MAX_ELEDISTANCE ) {	// Master too far, chase.

+		short x = sd->bl.x, y = sd->bl.y;

+		if( ed->target_id )

+			elemental->unlocktarget(ed);

+		if( ed->ud.walktimer != INVALID_TIMER && ed->ud.target == sd->bl.id )

+			return 0; //Already walking to him

+		if( DIFF_TICK(tick, ed->ud.canmove_tick) < 0 )

+			return 0; //Can't move yet.

+		if( iMap->search_freecell(&ed->bl, sd->bl.m, &x, &y, MIN_ELEDISTANCE, MIN_ELEDISTANCE, 1)

+		   && unit_walktoxy(&ed->bl, x, y, 0) )

+			return 0;

+	}

+

+	if( mode == EL_MODE_AGGRESSIVE ) {

+		target = iMap->id2bl(ed->ud.target);

+

+		if( !target )

+			iMap->foreachinrange(elemental_ai_sub_timer_activesearch, &ed->bl, view_range, BL_CHAR, ed, &target, status_get_mode(&ed->bl));

+

+		if( !target ) { //No targets available.

+			elemental->unlocktarget(ed);

+			return 1;

+		}

+

+		if( battle->check_range(&ed->bl,target,view_range) && rnd()%100 < 2 ) { // 2% chance to cast attack skill.

+			if(	elemental->action(ed,target,tick) )

+				return 1;

+		}

+

+		//Attempt to attack.

+		//At this point we know the target is attackable, we just gotta check if the range matches.

+		if( ed->ud.target == target->id && ed->ud.attacktimer != INVALID_TIMER ) //Already locked.

+			return 1;

+

+		if( battle->check_range(&ed->bl, target, ed->base_status.rhw.range) ) {//Target within range, engage

+			unit_attack(&ed->bl,target->id,1);

+			return 1;

+		}

+

+		//Follow up if possible.

+		if( !unit_walktobl(&ed->bl, target, ed->base_status.rhw.range, 2) )

+			elemental->unlocktarget(ed);

+	}

+

+	return 0;

+}

+

+static int elemental_ai_sub_foreachclient(struct map_session_data *sd, va_list ap) {

+	unsigned int tick = va_arg(ap,unsigned int);

+	if(sd->status.ele_id && sd->ed)

+		elemental_ai_sub_timer(sd->ed,sd,tick);

+

+	return 0;

+}

+

+static int elemental_ai_timer(int tid, unsigned int tick, int id, intptr_t data) {

+	iMap->map_foreachpc(elemental_ai_sub_foreachclient,tick);

+	return 0;

+}

+

+int read_elementaldb(void) {

+	FILE *fp;

+	char line[1024], *p;

+	char *str[26];

+	int i, j = 0, k = 0, ele;

+	struct s_elemental_db *db;

+	struct status_data *status;

+

+	sprintf(line, "%s/%s", iMap->db_path, "elemental_db.txt");

+	memset(elemental->elemental_db,0,sizeof(elemental->elemental_db));

+

+	fp = fopen(line, "r");

+	if( !fp ) {

+		ShowError("read_elementaldb : can't read elemental_db.txt\n");

+		return -1;

+	}

+

+	while( fgets(line, sizeof(line), fp) && j < MAX_ELEMENTAL_CLASS ) {

+		k++;

+		if( line[0] == '/' && line[1] == '/' )

+			continue;

+

+		if( line[0] == '\0' || line[0] == '\n' || line[0] == '\r')

+			continue;

+

+		i = 0;

+		p = strtok(line, ",");

+		while( p != NULL && i < 26 ) {

+			str[i++] = p;

+			p = strtok(NULL, ",");

+		}

+		if( i < 26 ) {

+			ShowError("read_elementaldb : Incorrect number of columns at elemental_db.txt line %d.\n", k);

+			continue;

+		}

+

+		db = &elemental->elemental_db[j];

+		db->class_ = atoi(str[0]);

+		safestrncpy(db->sprite, str[1], NAME_LENGTH);

+		safestrncpy(db->name, str[2], NAME_LENGTH);

+		db->lv = atoi(str[3]);

+

+		status = &db->status;

+		db->vd.class_ = db->class_;

+

+		status->max_hp = atoi(str[4]);

+		status->max_sp = atoi(str[5]);

+		status->rhw.range = atoi(str[6]);

+		status->rhw.atk = atoi(str[7]);

+		status->rhw.atk2 = atoi(str[8]);

+		status->def = atoi(str[9]);

+		status->mdef = atoi(str[10]);

+		status->str = atoi(str[11]);

+		status->agi = atoi(str[12]);

+		status->vit = atoi(str[13]);

+		status->int_ = atoi(str[14]);

+		status->dex = atoi(str[15]);

+		status->luk = atoi(str[16]);

+		db->range2 = atoi(str[17]);

+		db->range3 = atoi(str[18]);

+		status->size = atoi(str[19]);

+		status->race = atoi(str[20]);

+

+		ele = atoi(str[21]);

+		status->def_ele = ele%10;

+		status->ele_lv = ele/20;

+		if( status->def_ele >= ELE_MAX ) {

+			ShowWarning("Elemental %d has invalid element type %d (max element is %d)\n", db->class_, status->def_ele, ELE_MAX - 1);

+			status->def_ele = ELE_NEUTRAL;

+		}

+		if( status->ele_lv < 1 || status->ele_lv > 4 ) {

+			ShowWarning("Elemental %d has invalid element level %d (max is 4)\n", db->class_, status->ele_lv);

+			status->ele_lv = 1;

+		}

+

+		status->aspd_rate = 1000;

+		status->speed = atoi(str[22]);

+		status->adelay = atoi(str[23]);

+		status->amotion = atoi(str[24]);

+		status->dmotion = atoi(str[25]);

+

+		j++;

+	}

+

+	fclose(fp);

+	ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' elementals in '"CL_WHITE"db/elemental_db.txt"CL_RESET"'.\n",j);

+

+	return 0;

+}

+

+int read_elemental_skilldb(void) {

+	FILE *fp;

+	char line[1024], *p;

+	char *str[4];

+	struct s_elemental_db *db;

+	int i, j = 0, k = 0, class_;

+	uint16 skill_id, skill_lv;

+	int skillmode;

+

+	sprintf(line, "%s/%s", iMap->db_path, "elemental_skill_db.txt");

+	fp = fopen(line, "r");

+	if( !fp ) {

+		ShowError("read_elemental_skilldb : can't read elemental_skill_db.txt\n");

+		return -1;

+	}

+

+	while( fgets(line, sizeof(line), fp) ) {

+		k++;

+		if( line[0] == '/' && line[1] == '/' )

+			continue;

+

+		if( line[0] == '\0' || line[0] == '\n' || line[0] == '\r')

+			continue;

+

+		i = 0;

+		p = strtok(line, ",");

+		while( p != NULL && i < 4 ) {

+			str[i++] = p;

+			p = strtok(NULL, ",");

+		}

+		if( i < 4 ) {

+			ShowError("read_elemental_skilldb : Incorrect number of columns at elemental_skill_db.txt line %d.\n", k);

+			continue;

+		}

+

+		class_ = atoi(str[0]);

+		ARR_FIND(0, MAX_ELEMENTAL_CLASS, i, class_ == elemental->elemental_db[i].class_);

+		if( i == MAX_ELEMENTAL_CLASS ) {

+			ShowError("read_elemental_skilldb : Class not found in elemental_db for skill entry, line %d.\n", k);

+			continue;

+		}

+

+		skill_id = atoi(str[1]);

+		if( skill_id < EL_SKILLBASE || skill_id >= EL_SKILLBASE + MAX_ELEMENTALSKILL ) {

+			ShowError("read_elemental_skilldb : Skill out of range, line %d.\n", k);

+			continue;

+		}

+

+		db = &elemental->elemental_db[i];

+		skill_lv = atoi(str[2]);

+

+		skillmode = atoi(str[3]);

+		if( skillmode < EL_SKILLMODE_PASIVE || skillmode > EL_SKILLMODE_AGGRESSIVE ) {

+			ShowError("read_elemental_skilldb : Skillmode out of range, line %d.\n",k);

+			continue;

+		}

+		ARR_FIND( 0, MAX_ELESKILLTREE, i, db->skill[i].id == 0 || db->skill[i].id == skill_id );

+		if( i == MAX_ELESKILLTREE ) {

+			ShowWarning("Unable to load skill %d into Elemental %d's tree. Maximum number of skills per elemental has been reached.\n", skill_id, class_);

+			continue;

+		}

+		db->skill[i].id = skill_id;

+		db->skill[i].lv = skill_lv;

+		db->skill[i].mode = skillmode;

+		j++;

+	}

+

+	fclose(fp);

+	ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' entries in '"CL_WHITE"db/elemental_skill_db.txt"CL_RESET"'.\n",j);

+	return 0;

+}

+

+void reload_elementaldb(void) {

+	read_elementaldb();

+	elemental->reload_skilldb();

+}

+

+void reload_elemental_skilldb(void) {

+	elemental->read_skilldb();

+}

+

+int do_init_elemental(void) {

+	read_elementaldb();

+	elemental->read_skilldb();

+

+	iTimer->add_timer_func_list(elemental_ai_timer,"elemental_ai_timer");

+	iTimer->add_timer_interval(iTimer->gettick()+MIN_ELETHINKTIME,elemental_ai_timer,0,0,MIN_ELETHINKTIME);

+

+	return 0;

+}

+

+void do_final_elemental(void) {

+	return;

+}

+

+/*=====================================

+* Default Functions : elemental.h 

+* Generated by HerculesInterfaceMaker

+* created by Susu

+*-------------------------------------*/

+void elemental_defaults(void) {

+	elemental = &elemental_s;

+
	/* funcs */

+	

+	elemental->class = elemental_class;

+	elemental->get_viewdata = elemental_get_viewdata;

+	

+	elemental->create = elemental_create;

+	elemental->data_received = elemental_data_received;

+	elemental->save = elemental_save;

+	

+	elemental->change_mode_ack = elemental_change_mode_ack;

+	elemental->change_mode = elemental_change_mode;

+	

+	elemental->heal = elemental_heal;

+	elemental->dead = elemental_dead;

+	

+	elemental->delete = elemental_delete;

+	elemental->summon_stop = elemental_summon_stop;

+	

+	elemental->get_lifetime = elemental_get_lifetime;

+	

+	elemental->unlocktarget = elemental_unlocktarget;

+	elemental->skillnotok = elemental_skillnotok;

+	elemental->set_target = elemental_set_target;

+	elemental->clean_single_effect = elemental_clean_single_effect;

+	elemental->clean_effect = elemental_clean_effect;

+	elemental->action = elemental_action;

+	elemental->skill_get_requirements = elemental_skill_get_requirements;

+	

+	elemental->read_skilldb = read_elemental_skilldb;

+	elemental->reload_elementaldb = reload_elementaldb;

+	elemental->reload_skilldb = reload_elemental_skilldb;

+	elemental->do_init_elemental = do_init_elemental;

+	elemental->do_final_elemental = do_final_elemental;

+}

diff --git a/src/map/elemental.h b/src/map/elemental.h
index f941f3dfd..96d2ed89f 100644
--- a/src/map/elemental.h
+++ b/src/map/elemental.h
@@ -1,94 +1,106 @@
-// Copyright (c) Athena Dev Teams - Licensed under GNU GPL
-// For more information, see LICENCE in the main folder
-
-#ifndef _ELEMENTAL_H_
-#define _ELEMENTAL_H_
-
-#include "status.h" // struct status_data, struct status_change
-#include "unit.h" // struct unit_data
-
-#define MIN_ELETHINKTIME 100
-#define MIN_ELEDISTANCE 2
-#define MAX_ELEDISTANCE 5
-
-#define EL_MODE_AGGRESSIVE (MD_CANMOVE|MD_AGGRESSIVE|MD_CANATTACK)
-#define EL_MODE_ASSIST (MD_CANMOVE|MD_ASSIST)
-#define EL_MODE_PASSIVE MD_CANMOVE
-
-#define EL_SKILLMODE_PASIVE 0x1
-#define EL_SKILLMODE_ASSIST 0x2
-#define EL_SKILLMODE_AGGRESSIVE 0x4
-
-struct elemental_skill {
-	unsigned short id, lv;
-	short mode;
-};
-
-struct s_elemental_db {
-	int class_;
-	char sprite[NAME_LENGTH], name[NAME_LENGTH];
-	unsigned short lv;
-	short range2, range3;
-	struct status_data status;
-	struct view_data vd;
-	struct elemental_skill skill[MAX_ELESKILLTREE];
-};
-
-extern struct s_elemental_db elemental_db[MAX_ELEMENTAL_CLASS];
-
-struct elemental_data {
-	struct block_list bl;
-	struct unit_data ud;
-	struct view_data *vd;
-	struct status_data base_status, battle_status;
-	struct status_change sc;
-	struct regen_data regen;
-
-	struct s_elemental_db *db;
-	struct s_elemental elemental;
-
-	struct map_session_data *master;
-	int summon_timer;
-	int skill_timer;
-
-	unsigned last_thinktime, last_linktime, last_spdrain_time;
-	short min_chase;
-	int target_id, attacked_id;
-};
-
-bool elemental_class(int class_);
-struct view_data * elemental_get_viewdata(int class_);
-
-int elemental_create(struct map_session_data *sd, int class_, unsigned int lifetime);
-int elemental_data_received(struct s_elemental *ele, bool flag);
-int elemental_save(struct elemental_data *ed);
-
-int elemental_change_mode_ack(struct elemental_data *ed, int mode);
-int elemental_change_mode(struct elemental_data *ed, int mode);
-
-void elemental_heal(struct elemental_data *ed, int hp, int sp);
-int elemental_dead(struct elemental_data *ed);
-
-int elemental_delete(struct elemental_data *ed, int reply);
-void elemental_summon_stop(struct elemental_data *ed);
-
-int elemental_get_lifetime(struct elemental_data *ed);
-
-int elemental_unlocktarget(struct elemental_data *ed);
-int elemental_skillnotok(uint16 skill_id, struct elemental_data *ed);
-int elemental_set_target( struct map_session_data *sd, struct block_list *bl );
-int elemental_clean_single_effect(struct elemental_data *ed, uint16 skill_id);
-int elemental_clean_effect(struct elemental_data *ed);
-int elemental_action(struct elemental_data *ed, struct block_list *bl, unsigned int tick);
-struct skill_condition elemental_skill_get_requirements(uint16 skill_id, uint16 skill_lv);
-
-#define elemental_stop_walking(ed, type) unit_stop_walking(&(ed)->bl, type)
-#define elemental_stop_attack(ed) unit_stop_attack(&(ed)->bl)
-
-int read_elemental_skilldb(void);
-void reload_elementaldb(void);
-void reload_elemental_skilldb(void);
-int do_init_elemental(void);
-void do_final_elemental(void);
-
-#endif /* _ELEMENTAL_H_ */
+// Copyright (c) Athena Dev Teams - Licensed under GNU GPL

+// For more information, see LICENCE in the main folder

+#ifndef _ELEMENTAL_H_

+#define _ELEMENTAL_H_

+#include "status.h" // struct status_data, struct status_change

+#include "unit.h" // struct unit_data

+#define MIN_ELETHINKTIME 100

+#define MIN_ELEDISTANCE 2

+#define MAX_ELEDISTANCE 5

+#define EL_MODE_AGGRESSIVE (MD_CANMOVE|MD_AGGRESSIVE|MD_CANATTACK)

+#define EL_MODE_ASSIST (MD_CANMOVE|MD_ASSIST)

+#define EL_MODE_PASSIVE MD_CANMOVE

+#define EL_SKILLMODE_PASIVE 0x1

+#define EL_SKILLMODE_ASSIST 0x2

+#define EL_SKILLMODE_AGGRESSIVE 0x4

+struct elemental_skill {

+	unsigned short id, lv;

+	short mode;

+};

+struct s_elemental_db {

+	int class_;

+	char sprite[NAME_LENGTH], name[NAME_LENGTH];

+	unsigned short lv;

+	short range2, range3;

+	struct status_data status;

+	struct view_data vd;

+	struct elemental_skill skill[MAX_ELESKILLTREE];

+};

+struct elemental_data {

+	struct block_list bl;

+	struct unit_data ud;

+	struct view_data *vd;

+	struct status_data base_status, battle_status;

+	struct status_change sc;

+	struct regen_data regen;

+

+	struct s_elemental_db *db;

+	struct s_elemental elemental;

+

+	struct map_session_data *master;

+	int summon_timer;

+	int skill_timer;

+

+	unsigned last_thinktime, last_linktime, last_spdrain_time;

+	short min_chase;

+	int target_id, attacked_id;

+};

+

+

+

+

+

+

+

+

+#define elemental_stop_walking(ed, type) unit_stop_walking(&(ed)->bl, type)

+#define elemental_stop_attack(ed) unit_stop_attack(&(ed)->bl)

+

+

+/*=====================================

+* Interface : elemental.h 

+* Generated by HerculesInterfaceMaker

+* created by Susu

+*-------------------------------------*/

+struct elemental_interface {

+
	/* vars */

+	struct s_elemental_db elemental_db[MAX_ELEMENTAL_CLASS]; // Elemental Database

+
	/* funcs */

+	bool (*class) (int class_);

+	struct view_data * (*get_viewdata) (int class_);

+	

+	int (*create) (struct map_session_data *sd, int class_, unsigned int lifetime);

+	int (*data_received) (struct s_elemental *ele, bool flag);

+	int (*save) (struct elemental_data *ed);

+	

+	int (*change_mode_ack) (struct elemental_data *ed, int mode);

+	int (*change_mode) (struct elemental_data *ed, int mode);

+	

+	void (*heal) (struct elemental_data *ed, int hp, int sp);

+	int (*dead) (struct elemental_data *ed);

+	

+	int (*delete) (struct elemental_data *ed, int reply);

+	void (*summon_stop) (struct elemental_data *ed);

+	

+	int (*get_lifetime) (struct elemental_data *ed);

+	

+	int (*unlocktarget) (struct elemental_data *ed);

+	int (*skillnotok) (uint16 skill_id, struct elemental_data *ed);

+	int (*set_target) (struct map_session_data *sd, struct block_list *bl);

+	int (*clean_single_effect) (struct elemental_data *ed, uint16 skill_id);

+	int (*clean_effect) (struct elemental_data *ed);

+	int (*action) (struct elemental_data *ed, struct block_list *bl, unsigned int tick);

+	struct skill_condition (*skill_get_requirements) (uint16 skill_id, uint16 skill_lv);

+	

+	int (*read_skilldb) (void);

+	void (*reload_elementaldb) (void);

+	void (*reload_skilldb) (void);

+	int (*do_init_elemental) (void);

+	void (*do_final_elemental) (void);

+} elemental_s;

+

+struct elemental_interface *elemental;

+

+void elemental_defaults(void);

+

+#endif /* _ELEMENTAL_H_ */

diff --git a/src/map/intif.c b/src/map/intif.c
index 294d79656..f2c5e7e78 100644
--- a/src/map/intif.c
+++ b/src/map/intif.c
@@ -2055,7 +2055,7 @@ int intif_parse_elemental_received(int fd)
 		return 0;
 	}
 
-	elemental_data_received((struct s_elemental*)RFIFOP(fd,5), RFIFOB(fd,4));
+	elemental->data_received((struct s_elemental*)RFIFOP(fd,5), RFIFOB(fd,4));
 	return 0;
 }
 
diff --git a/src/map/map.c b/src/map/map.c
index 0fb988351..5e8102ea0 100644
--- a/src/map/map.c
+++ b/src/map/map.c
@@ -1591,7 +1591,7 @@ int map_quit(struct map_session_data *sd) {
 	if (sd->state.permanent_speed == 1) sd->state.permanent_speed = 0; // Remove lock so speed is set back to normal at login.
 
 	if( sd->ed ) {
-		elemental_clean_effect(sd->ed);
+		elemental->clean_effect(sd->ed);
 		unit_remove_map(&sd->ed->bl,CLR_TELEPORT);
 	}
 
@@ -4945,7 +4945,7 @@ void do_final(void)
 	do_final_unit();
 	do_final_battleground();
 	iDuel->do_final_duel();
-	do_final_elemental();
+	elemental->do_final_elemental();
 	do_final_maps();
 	vending->final();
 
@@ -5155,6 +5155,11 @@ void map_hp_symbols(void) {
 	HPM->share(storage,"storage");
 	HPM->share(trade,"trade");
 	HPM->share(iStatus,"iStatus");
+	HPM->share(chat, "chat");
+	HPM->share(iDuel,"iDuel");
+	HPM->share(elemental,"elemental");
+
+
 	/* partial */
 	HPM->share(mapit,"mapit");
 	/* sql link */
@@ -5191,6 +5196,9 @@ void map_load_defaults(void) {
 	storage_defaults();
 	trade_defaults();
 	status_defaults();
+	chat_defaults();
+	iDuel_defaults();
+	elemental_defaults();
 }
 int do_init(int argc, char *argv[])
 {
@@ -5387,7 +5395,7 @@ int do_init(int argc, char *argv[])
 	do_init_pet();
 	homun->init();
 	do_init_mercenary();
-	do_init_elemental();
+	elemental->do_init_elemental();
 	do_init_quest();
 	do_init_npc();
 	do_init_unit();
diff --git a/src/map/pc.c b/src/map/pc.c
index ee2e62e92..30ef9848c 100644
--- a/src/map/pc.c
+++ b/src/map/pc.c
@@ -6687,7 +6687,7 @@ void pc_damage(struct map_session_data *sd,struct block_list *src,unsigned int h
 		pet_target_check(sd,src,1);
 
 	if( sd->status.ele_id > 0 )
-		elemental_set_target(sd,src);
+		elemental->set_target(sd,src);
 
 	sd->canlog_tick = iTimer->gettick();
 }
@@ -6728,7 +6728,7 @@ int pc_dead(struct map_session_data *sd,struct block_list *src) {
 		merc_delete(sd->md, 3); // Your mercenary soldier has ran away.
 
 	if( sd->ed )
-		elemental_delete(sd->ed, 0);
+		elemental->delete(sd->ed, 0);
 
 	// Leave duel if you die [LuzZza]
 	if(battle_config.duel_autoleave_when_die) {
@@ -7621,7 +7621,7 @@ int pc_jobchange(struct map_session_data *sd,int job, int upper)
 	clif->skillinfoblock(sd);
 
 	if (sd->ed)
-		elemental_delete(sd->ed, 0);
+		elemental->delete(sd->ed, 0);
 	if (sd->state.vending)
 		vending->close(sd);
 
diff --git a/src/map/skill.c b/src/map/skill.c
index d2a9b7fbe..0fbd340fa 100644
--- a/src/map/skill.c
+++ b/src/map/skill.c
@@ -4481,7 +4481,7 @@ int skill_castend_damage_id (struct block_list* src, struct block_list *bl, uint
 				clif->skill_nodamage(src,battle->get_master(src),skill_id,skill_lv,1);
 				clif->skill_damage(src, src, tick, status_get_amotion(src), 0, -30000, 1, skill_id, skill_lv, 6);
 				if( (sc && sc->data[type2]) || (tsc && tsc->data[type]) ) {
-					elemental_clean_single_effect(ele, skill_id);
+					elemental->clean_single_effect(ele, skill_id);
 				}
 				if( rnd()%100 < 50 )
 					skill->attack(skill->get_type(skill_id),src,src,bl,skill_id,skill_lv,tick,flag);
@@ -8885,10 +8885,10 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 
 				// Remove previous elemental fisrt.
 				if( sd->ed )
-					elemental_delete(sd->ed,0);
+					elemental->delete(sd->ed,0);
 
 				// Summoning the new one.
-				if( !elemental_create(sd,elemental_class,skill->get_time(skill_id,skill_lv)) ) {
+				if( !elemental->create(sd,elemental_class,skill->get_time(skill_id,skill_lv)) ) {
 					clif->skill_fail(sd,skill_id,0,0);
 					break;
 				}
@@ -8903,14 +8903,14 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 				if( !sd->ed )	break;
 
 				if( skill_lv == 4 ) {// At level 4 delete elementals.
-					elemental_delete(sd->ed, 0);
+					elemental->delete(sd->ed, 0);
 					break;
 				}
 				switch( skill_lv ) {// Select mode bassed on skill level used.
 					case 2: mode = EL_MODE_ASSIST; break;
 					case 3: mode = EL_MODE_AGGRESSIVE; break;
 				}
-				if( !elemental_change_mode(sd->ed,mode) ) {
+				if( !elemental->change_mode(sd->ed,mode) ) {
 					clif->skill_fail(sd,skill_id,USESKILL_FAIL_LEVEL,0);
 					break;
 				}
@@ -8923,7 +8923,7 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 				int duration = 3000;
 				if( !sd->ed )	break;
 				sd->skill_id_old = skill_id;
-				elemental_action(sd->ed, bl, tick);
+				elemental->action(sd->ed, bl, tick);
 				clif->skill_nodamage(src,bl,skill_id,skill_lv,1);
 					switch(sd->ed->db->class_){
 						case 2115:case 2124:
@@ -8959,7 +8959,7 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 
 		case SO_ELEMENTAL_SHIELD:
 			if( !sd->ed )	break;
-			elemental_delete(sd->ed, 0);
+			elemental->delete(sd->ed, 0);
 			if( sd == NULL || sd->status.party_id == 0 || flag&1 )
 				skill->unitsetting(src,MG_SAFETYWALL,skill_lv,bl->x,bl->y,0);
 			else if( sd )
@@ -9073,7 +9073,7 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 					struct status_change *sc = iStatus->get_sc(&ele->bl);
 
 					if( (sc && sc->data[type2]) || (tsc && tsc->data[type]) ) {
-						elemental_clean_single_effect(ele, skill_id);
+						elemental->clean_single_effect(ele, skill_id);
 					} else {
 						clif->skill_nodamage(src,src,skill_id,skill_lv,1);
 						clif->skill_damage(src, ( skill_id == EL_GUST || skill_id == EL_BLAST || skill_id == EL_WILD_STORM )?src:bl, tick, status_get_amotion(src), 0, -30000, 1, skill_id, skill_lv, 6);
@@ -9103,7 +9103,7 @@ int skill_castend_nodamage_id (struct block_list *src, struct block_list *bl, ui
 
 					clif->skill_nodamage(src,src,skill_id,skill_lv,1);
 					if( (sc && sc->data[type2]) || (tsc && tsc->data[type]) ) {
-						elemental_clean_single_effect(ele, skill_id);
+						elemental->clean_single_effect(ele, skill_id);
 					} else {
 						// This not heals at the end.
 						clif->skill_damage(src, src, tick, status_get_amotion(src), 0, -30000, 1, skill_id, skill_lv, 6);
diff --git a/src/map/status.c b/src/map/status.c
index a8b61f2d6..48a61cfcb 100644
--- a/src/map/status.c
+++ b/src/map/status.c
@@ -1243,7 +1243,7 @@ int status_damage(struct block_list *src,struct block_list *target,int hp, int s
 	case BL_MOB: mob_damage((TBL_MOB*)target, src, hp); break;
 	case BL_HOM: homun->damaged((TBL_HOM*)target); break;
 	case BL_MER: mercenary_heal((TBL_MER*)target,hp,sp); break;
-	case BL_ELEM: elemental_heal((TBL_ELEM*)target,hp,sp); break;
+	case BL_ELEM: elemental->heal((TBL_ELEM*)target,hp,sp); break;
 	}
 
 	if( src && target->type == BL_PC && (((TBL_PC*)target)->disguise) > 0 ) {// stop walking when attacked in disguise to prevent walk-delay bug
@@ -1268,7 +1268,7 @@ int status_damage(struct block_list *src,struct block_list *target,int hp, int s
 	case BL_MOB: flag = mob_dead((TBL_MOB*)target, src, flag&4?3:0); break;
 	case BL_HOM: flag = homun->dead((TBL_HOM*)target); break;
 	case BL_MER: flag = mercenary_dead((TBL_MER*)target); break;
-	case BL_ELEM: flag = elemental_dead((TBL_ELEM*)target); break;
+	case BL_ELEM: flag = elemental->dead((TBL_ELEM*)target); break;
 	default:	//Unhandled case, do nothing to object.
 		flag = 0;
 		break;
@@ -1414,7 +1414,7 @@ int status_heal(struct block_list *bl,int hp,int sp, int flag)
 	case BL_MOB: mob_heal((TBL_MOB*)bl,hp); break;
 	case BL_HOM: homun->healed((TBL_HOM*)bl); break;
 	case BL_MER: mercenary_heal((TBL_MER*)bl,hp,sp); break;
-	case BL_ELEM: elemental_heal((TBL_ELEM*)bl,hp,sp); break;
+	case BL_ELEM: elemental->heal((TBL_ELEM*)bl,hp,sp); break;
 	}
 
 	return hp+sp;
@@ -6057,8 +6057,8 @@ void status_set_viewdata(struct block_list *bl, int class_)
 		vd = homun->get_viewdata(class_);
 	else if (merc_class(class_))
 		vd = merc_get_viewdata(class_);
-	else if (elemental_class(class_))
-		vd = elemental_get_viewdata(class_);
+	else if (elemental->class(class_))
+		vd = elemental->get_viewdata(class_);
 	else
 		vd = NULL;
 
diff --git a/src/map/unit.c b/src/map/unit.c
index 7a1c15838..8a11363cb 100644
--- a/src/map/unit.c
+++ b/src/map/unit.c
@@ -2265,7 +2265,7 @@ int unit_remove_map_(struct block_list *bl, clr_type clrtype, const char* file,
 		case BL_ELEM: {
 			struct elemental_data *ed = (struct elemental_data *)bl;
 			ud->canact_tick = ud->canmove_tick;
-			if( elemental_get_lifetime(ed) <= 0 && !(ed->master && !ed->master->state.active) )
+			if( elemental->get_lifetime(ed) <= 0 && !(ed->master && !ed->master->state.active) )
 			{
 				clif->clearunit_area(bl,clrtype);
 				iMap->delblock(bl);
@@ -2548,8 +2548,8 @@ int unit_free(struct block_list *bl, clr_type clrtype)
 		case BL_ELEM: {
 			struct elemental_data *ed = (TBL_ELEM*)bl;
 			struct map_session_data *sd = ed->master;
-			if( elemental_get_lifetime(ed) > 0 )
-				elemental_save(ed);
+			if( elemental->get_lifetime(ed) > 0 )
+				elemental->save(ed);
 			else {
 				intif_elemental_delete(ed->elemental.elemental_id);
 				if( sd )
@@ -2558,7 +2558,7 @@ int unit_free(struct block_list *bl, clr_type clrtype)
 			if( sd )
 				sd->ed = NULL;
 
-			elemental_summon_stop(ed);
+			elemental->summon_stop(ed);
 			break;
 		}
 	}