int merc_hom_gainexp(struct homun_data *hd,int exp)
{
if(hd->homunculus.vaporize)
return 1;
if( hd->exp_next == 0 ) {
hd->homunculus.exp = 0 ;
return 0;
}
hd->homunculus.exp += exp;
if(hd->homunculus.exp < hd->exp_next) {
clif_hominfo(hd->master,hd,0);
return 0;
}
//levelup
do
{
merc_hom_levelup(hd) ;
}
while(hd->homunculus.exp > hd->exp_next && hd->exp_next != 0 );
if( hd->exp_next == 0 )
hd->homunculus.exp = 0 ;
clif_specialeffect(&hd->bl,568,AREA);
status_calc_homunculus(hd,0);
status_percent_heal(&hd->bl, 100, 100);
return 0;
}
int merc_hom_mutation(struct homun_data *hd, int class_)
{
struct s_homunculus *hom;
struct map_session_data *sd;
nullpo_ret(hd);
//Only allows mutating level 99 evolved homunculus and also prevents mutating already mutated homunculus.
if( hd->homunculus.level < 99 || !(hd->homunculus.class_ >= 6009 && hd->homunculus.class_ <= 6016) ||
hd->homunculus.class_ >= MH_CLASS_BASE && hd->homunculus.class_ <= MH_CLASS_MAX)
{
clif_emotion(&hd->bl, E_SWT);
return 0 ;
}
sd = hd->master;
if (!sd)
return 0;
if (!merc_hom_change_class(hd, class_)) {
ShowError("merc_hom_mutation: Can't mutate homunc from %d to %d", hd->homunculus.class_, class_);
return 0;
}
// Its said the player can rename the homunculus again after mutation.
// This might be true since the homunculus's form completely changes.
hd->homunculus.rename_flag = 0;
//Apply mutation bonuses.
//Bonuses are the same for all mutations.
hom = &hd->homunculus;
hom->max_hp += rand(1000, 2000);
hom->max_sp += rand(10, 200);
hom->str += 10*rand(1, 10);
hom->agi += 10*rand(1, 10);
hom->vit += 10*rand(1, 10);
hom->int_+= 10*rand(1, 10);
hom->dex += 10*rand(1, 10);
hom->luk += 10*rand(1, 10);
unit_remove_map(&hd->bl, CLR_OUTSIGHT);
map_addblock(&hd->bl);
clif_spawn(&hd->bl);
clif_emotion(&sd->bl, E_NO1);
clif_specialeffect(&hd->bl,568,AREA);
//status_Calc flag&1 will make current HP/SP be reloaded from hom structure
hom->hp = hd->battle_status.hp;
hom->sp = hd->battle_status.sp;
status_calc_homunculus(hd,1);
if (!(battle_config.hom_setting&0x2))
skill_unit_move(&sd->hd->bl,gettick(),1); // apply land skills immediately
return 1 ;
}
/**
* Make an homonculus evolve, (changing in evolution class and apply bonus)
* @param hd : homonculus datas
* @return 0:failure, 1:success
*/
int merc_hom_evolution(struct homun_data *hd)
{
struct s_homunculus *hom;
struct h_stats *max, *min;
struct map_session_data *sd;
nullpo_ret(hd);
if(!hd->homunculusDB->evo_class || hd->homunculus.class_ == hd->homunculusDB->evo_class)
{
clif_emotion(&hd->bl, E_SWT);
return 0 ;
}
sd = hd->master;
if (!sd)
return 0;
if (!merc_hom_change_class(hd, hd->homunculusDB->evo_class)) {
ShowError("merc_hom_evolution: Can't evolve homunc from %d to %d", hd->homunculus.class_, hd->homunculusDB->evo_class);
return 0;
}
//Apply evolution bonuses
hom = &hd->homunculus;
max = &hd->homunculusDB->emax;
min = &hd->homunculusDB->emin;
hom->max_hp += rnd_value(min->HP, max->HP);
hom->max_sp += rnd_value(min->SP, max->SP);
hom->str += 10*rnd_value(min->str, max->str);
hom->agi += 10*rnd_value(min->agi, max->agi);
hom->vit += 10*rnd_value(min->vit, max->vit);
hom->int_+= 10*rnd_value(min->int_,max->int_);
hom->dex += 10*rnd_value(min->dex, max->dex);
hom->luk += 10*rnd_value(min->luk, max->luk);
hom->intimacy = 500;
unit_remove_map(&hd->bl, CLR_OUTSIGHT);
if(map_addblock(&hd->bl))
return 0;
clif_spawn(&hd->bl);
clif_emotion(&sd->bl, E_NO1);
clif_specialeffect(&hd->bl,568,AREA);
//status_Calc flag&1 will make current HP/SP be reloaded from hom structure
hom->hp = hd->battle_status.hp;
hom->sp = hd->battle_status.sp;
status_calc_homunculus(hd,1);
if (!(battle_config.hom_setting&0x2))
skill_unit_move(&sd->hd->bl,gettick(),1); // apply land skills immediately
return 1 ;
}
/**
* Shuffle homunculus status
* @param hd
*/
int hom_shuffle(struct homun_data *hd)
{
struct map_session_data *sd;
int lv, i, skillpts;
unsigned int exp;
struct s_skill b_skill[MAX_HOMUNSKILL];
if (!hom_is_active(hd))
return 0;
sd = hd->master;
lv = hd->homunculus.level;
exp = hd->homunculus.exp;
memcpy(&b_skill, &hd->homunculus.hskill, sizeof(b_skill));
skillpts = hd->homunculus.skillpts;
//Reset values to level 1.
hom_reset_stats(hd);
//Level it back up
for (i = 1; i < lv && hd->exp_next; i++){
hd->homunculus.exp += hd->exp_next;
// Should never happen, but who knows
if( !hom_levelup(hd) ) {
break;
}
}
if(hd->homunculus.class_ == hd->homunculusDB->evo_class) {
//Evolved bonuses
struct s_homunculus *hom = &hd->homunculus;
struct h_stats *max = &hd->homunculusDB->emax, *min = &hd->homunculusDB->emin;
hom->max_hp += rnd_value(min->HP, max->HP);
hom->max_sp += rnd_value(min->SP, max->SP);
hom->str += 10*rnd_value(min->str, max->str);
hom->agi += 10*rnd_value(min->agi, max->agi);
hom->vit += 10*rnd_value(min->vit, max->vit);
hom->int_+= 10*rnd_value(min->int_,max->int_);
hom->dex += 10*rnd_value(min->dex, max->dex);
hom->luk += 10*rnd_value(min->luk, max->luk);
}
hd->homunculus.exp = exp;
memcpy(&hd->homunculus.hskill, &b_skill, sizeof(b_skill));
hd->homunculus.skillpts = skillpts;
clif_homskillinfoblock(sd);
status_calc_homunculus(hd, SCO_NONE);
status_percent_heal(&hd->bl, 100, 100);
clif_specialeffect(&hd->bl,568,AREA);
return 1;
}
/**
* Make an homonculus mutate in renewal homon
* @param hd : homonculus datas
* @param homun_id : id to make it transform into (must be a valid homon class)
* @return 0:failure, 1:sucess
*/
int hom_mutate(struct homun_data *hd, int homun_id)
{
struct s_homunculus *hom;
struct map_session_data *sd;
int m_class, m_id, prev_class = 0;
nullpo_ret(hd);
m_class = hom_class2mapid(hd->homunculus.class_);
m_id = hom_class2mapid(homun_id);
if( m_class == -1 || m_id == -1 || !(m_class&HOM_EVO) || !(m_id&HOM_S) ) {
clif_emotion(&hd->bl, E_SWT);
return 0;
}
sd = hd->master;
if (!sd)
return 0;
prev_class = hd->homunculus.class_;
if (!hom_change_class(hd, homun_id)) {
ShowError("hom_mutate: Can't evolve homunc from %d to %d", hd->homunculus.class_, homun_id);
return 0;
}
unit_remove_map(&hd->bl, CLR_OUTSIGHT);
if(map_addblock(&hd->bl))
return 0;
clif_spawn(&hd->bl);
clif_emotion(&sd->bl, E_NO1);
clif_specialeffect(&hd->bl,568,AREA);
//status_Calc flag&1 will make current HP/SP be reloaded from hom structure
hom = &hd->homunculus;
hom->hp = hd->battle_status.hp;
hom->sp = hd->battle_status.sp;
hom->prev_class = prev_class;
status_calc_homunculus(hd, SCO_FIRST);
if (!(battle_config.hom_setting&0x2))
skill_unit_move(&sd->hd->bl,gettick(),1); // apply land skills immediately
return 1;
}
/**
* Add homunculus exp
* @param hd
* @param exp Added EXP
*/
void hom_gainexp(struct homun_data *hd,int exp)
{
int m_class;
nullpo_retv(hd);
if(hd->homunculus.vaporize)
return;
if((m_class = hom_class2mapid(hd->homunculus.class_)) == -1) {
ShowError("hom_gainexp: Invalid class %d. \n", hd->homunculus.class_);
return;
}
if( hd->exp_next == 0 ||
((m_class&HOM_REG) && hd->homunculus.level >= battle_config.hom_max_level) ||
((m_class&HOM_S) && hd->homunculus.level >= battle_config.hom_S_max_level) )
{
hd->homunculus.exp = 0;
return;
}
hd->homunculus.exp += exp;
if (hd->homunculus.exp < hd->exp_next) {
clif_hominfo(hd->master,hd,0);
return;
}
// Do the levelup(s)
while( hd->homunculus.exp > hd->exp_next ){
// Max level reached or error
if( !hom_levelup(hd) ){
break;
}
}
if( hd->exp_next == 0 )
hd->homunculus.exp = 0 ;
clif_specialeffect(&hd->bl,568,AREA);
status_calc_homunculus(hd, SCO_NONE);
status_percent_heal(&hd->bl, 100, 100);
}
int merc_hom_gainexp(struct homun_data *hd,int exp)
{
struct map_session_data *sd;
struct s_homunculus *hom;
hom = &hd->homunculus;
sd = hd->master;
if(hd->homunculus.vaporize)
return 1;
if( hd->exp_next == 0 ) {
hd->homunculus.exp = 0 ;
return 0;
}
if (sd->sc.data[SC_EXPBOOST])
exp += exp*((sd->sc.data[SC_EXPBOOST]->val1)/100);
hd->homunculus.exp += exp;
if(hd->homunculus.exp < hd->exp_next) {
clif_hominfo(hd->master,hd,0);
return 0;
}
//levelup
do
{
merc_hom_levelup(hd) ;
}
while(hd->homunculus.exp > hd->exp_next && hd->exp_next != 0 && hom->evomoment == 0 );
if( hd->exp_next == 0 )
hd->homunculus.exp = 0 ;
clif_specialeffect(&hd->bl,705,AREA);
status_calc_homunculus(hd,0);
status_percent_heal(&hd->bl, 100, 100);
return 0;
}
int merc_hom_gainexp(struct homun_data *hd,int exp)
{
int m_class;
if(hd->homunculus.vaporize)
return 1;
if((m_class = hom_class2mapid(hd->homunculus.class_)) == -1) {
ShowError("merc_hom_gainexp: Invalid class %d. \n", hd->homunculus.class_);
return 0;
}
if( hd->exp_next == 0 ||
((m_class&HOM_REG) && hd->homunculus.level >= battle_config.hom_max_level) ||
((m_class&HOM_S) && hd->homunculus.level >= battle_config.hom_S_max_level) ) {
hd->homunculus.exp = 0;
return 0;
}
hd->homunculus.exp += exp;
if(hd->homunculus.exp < hd->exp_next) {
clif_hominfo(hd->master,hd,0);
return 0;
}
//levelup
do
{
merc_hom_levelup(hd) ;
}
while(hd->homunculus.exp > hd->exp_next && hd->exp_next != 0 );
if( hd->exp_next == 0 )
hd->homunculus.exp = 0 ;
clif_specialeffect(&hd->bl,568,AREA);
status_calc_homunculus(hd,0);
status_percent_heal(&hd->bl, 100, 100);
return 0;
}
int merc_hom_levelup(struct homun_data *hd)
{
struct s_homunculus *hom;
struct h_stats *min, *max;
int growth_str, growth_agi, growth_vit, growth_int, growth_dex, growth_luk ;
int growth_max_hp, growth_max_sp;
struct npc_data *nd = npc_name2id("evolve#main");
struct npc_data *nd2 = npc_name2id("homlastup");
struct map_session_data *sd;
char output[256] ;
if (hd->homunculus.level == MAX_LEVEL || !hd->exp_next || hd->homunculus.exp < hd->exp_next)
return 0 ;
sd = hd->master;
hom = &hd->homunculus;
// if(hom->evomoment == 1)
// return 0;
hom->level++ ;
sd->status.homlastuplvl = hom->level;
sd->status.homlastupid = hd->homunculus.hom_id;
run_script(nd2->u.scr.script, 0, sd->bl.id, nd2->bl.id);
// if (!(hom->level % 3))
// hom->skillpts++ ; //1 skillpoint each 3 base level
hom->exp -= hd->exp_next ;
hd->exp_next = hexptbl[hom->level - 1] ;
max = &hd->homunculusDB->gmax;
min = &hd->homunculusDB->gmin;
growth_max_hp = rand(min->HP, max->HP);
growth_max_sp = rand(min->SP, max->SP);
growth_str = rand(min->str, max->str);
growth_agi = rand(min->agi, max->agi);
growth_vit = rand(min->vit, max->vit);
growth_dex = rand(min->dex, max->dex);
growth_int = rand(min->int_,max->int_);
growth_luk = rand(min->luk, max->luk);
hom->resto_str += growth_str;
hom->resto_agi += growth_agi;
hom->resto_vit += growth_vit;
hom->resto_dex += growth_dex;
hom->resto_int_ += growth_int;
hom->resto_luk += growth_luk;
//Aegis discards the decimals in the stat growth values!
growth_str-=growth_str%10;
growth_agi-=growth_agi%10;
growth_vit-=growth_vit%10;
growth_dex-=growth_dex%10;
growth_int-=growth_int%10;
growth_luk-=growth_luk%10;
hom->resto_str -= growth_str;
if(hom->resto_str >= 10){
growth_str += 10;
hom->resto_str -= 10;
}
hom->resto_agi -= growth_agi;
if(hom->resto_agi >= 10){
growth_agi += 10;
hom->resto_agi -= 10;
}
hom->resto_vit -= growth_vit;
if(hom->resto_vit >= 10){
growth_vit += 10;
hom->resto_vit -= 10;
}
hom->resto_dex -= growth_dex;
if(hom->resto_dex >= 10){
growth_dex += 10;
hom->resto_dex -= 10;
}
hom->resto_int_ -= growth_int;
if(hom->resto_int_ >= 10){
growth_int += 10;
hom->resto_int_ -= 10;
}
hom->resto_luk -= growth_luk;
if(hom->resto_luk >= 10){
growth_luk += 10;
hom->resto_luk -= 10;
}
hom->max_hp += growth_max_hp;
hom->max_sp += growth_max_sp;
hom->str += growth_str;
hom->agi += growth_agi;
hom->vit += growth_vit;
hom->dex += growth_dex;
hom->int_+= growth_int;
hom->luk += growth_luk;
if (hom->level >= hd->homunculusDB->emax.luk && hom->evomoment == 0){
//merc_hom_evolution(hd);
clif_displaymessage(sd->fd, "Seu Pokemon está evoluindo!");
clif_specialeffect(&hd->bl,396,AREA); //368 bersek
clif_specialeffect(&hd->bl,822,AREA);
clif_specialeffect(&hd->bl,72,AREA);
hom->evomoment = 1;
run_script(nd->u.scr.script, 0, sd->bl.id, nd->bl.id);
}
if ( battle_config.homunculus_show_growth ) {
sprintf(output,
"Growth: hp:%d sp:%d str(%.2f) agi(%.2f) vit(%.2f) int(%.2f) dex(%.2f) luk(%.2f) ",
growth_max_hp, growth_max_sp,
growth_str/10.0, growth_agi/10.0, growth_vit/10.0,
growth_int/10.0, growth_dex/10.0, growth_luk/10.0);
clif_disp_onlyself(hd->master,output,strlen(output));
}
return 1 ;
}
