//--------- Begin of function Unit::reward ---------//
//
// <int> rewardNationRecno - the nation which does this reward.
//
void Unit::reward(int rewardNationRecno)
{
if( nation_array[rewardNationRecno]->cash < REWARD_COST )
return;
//--------- if this is a spy ---------//
if( spy_recno && true_nation_recno() == rewardNationRecno ) // if the spy's owning nation rewards the spy
{
spy_array[spy_recno]->change_loyalty(REWARD_LOYALTY_INCREASE);
}
//--- if this spy's nation_recno & true_nation_recno() are both == rewardNationRecno, it's true loyalty and cloaked loyalty will both be increased ---//
if( nation_recno == rewardNationRecno )
{
total_reward += REWARD_COST;
change_loyalty(REWARD_LOYALTY_INCREASE);
}
nation_array[rewardNationRecno]->add_expense(EXPENSE_REWARD_UNIT, (float)REWARD_COST);
}
//--------- Begin of function Unit::set_rank ---------//
//
// Only if the unit has leadership skill, it can be a general or king.
//
void Unit::set_rank(int rankId)
{
err_when( !race_id );
if( rank_id == rankId )
return;
err_when( unit_mode != UNIT_MODE_REBEL && rankId >= RANK_GENERAL && is_civilian() );
//------- promote --------//
if( rankId > rank_id )
change_loyalty(PROMOTE_LOYALTY_INCREASE);
//------- demote -----------//
else if( rankId < rank_id && rank_id != RANK_KING ) // no decrease in loyalty if a spy king hands his nation to his parent nation and become a general again
change_loyalty(-DEMOTE_LOYALTY_DECREASE);
//---- update nation_general_count_array[] ----//
if( nation_recno )
{
UnitInfo* unitInfo = unit_res[unit_id];
if( rank_id == RANK_GENERAL ) // if it was a general originally
unitInfo->dec_nation_general_count(nation_recno);
if( rankId == RANK_GENERAL ) // if the new rank is general
unitInfo->inc_nation_general_count(nation_recno);
//------ if demote a king to a unit ------//
if( rank_id == RANK_KING && rankId != RANK_KING )
unitInfo->inc_nation_unit_count(nation_recno); // since kings are not included in nation_unit_count, when it is no longer a king, we need to re-increase it.
//------ if promote a unit to a king ------//
if( rank_id != RANK_KING && rankId == RANK_KING )
unitInfo->dec_nation_unit_count(nation_recno); // since kings are not included in nation_unit_count, we need to decrease it
}
//----- reset leader_unit_recno if demote a general to soldier ----//
if( rank_id == RANK_GENERAL && rankId == RANK_SOLDIER )
{
//----- reset leader_unit_recno of the units he commands ----//
for( int i=unit_array.size() ; i>0 ; i-- )
{
Unit* unitPtr = (Unit*) unit_array.get_ptr(i); // don't use is_deleted() as it filters out units that are currently dying
if( unitPtr && unitPtr->leader_unit_recno == sprite_recno )
{
unitPtr->leader_unit_recno = 0;
// unitPtr->team_id = 0;
}
}
//--------- deinit team_info ---------//
err_when( !team_info );
mem_del(team_info);
team_info = NULL;
// team_id = 0;
}
//----- if this is a soldier being promoted to a general -----//
else if( rank_id == RANK_SOLDIER && rankId == RANK_GENERAL )
{
//-- if this soldier is formerly commanded by a general, detech it ---//
if( leader_unit_recno )
{
if( !unit_array.is_deleted(leader_unit_recno) ) // the leader unit may have been killed at the same time
{
err_when( !unit_array[leader_unit_recno]->team_info );
unit_array[leader_unit_recno]->team_info->del_member(sprite_recno);
}
leader_unit_recno = 0;
}
}
// ###### patch begin Gilbert 27/9 #######//
// ------- clear royal in campaign mode -----//
if( rankId == RANK_KING )
{
is_royal = 0;
}
// ###### patch end Gilbert 27/9 #######//
//-------------- update AI info --------------//
if( nation_recno )
{
if( rank_id == RANK_GENERAL || rank_id == RANK_KING )
nation_array[nation_recno]->del_general_info(sprite_recno);
rank_id = rankId;
if( rank_id == RANK_GENERAL || rank_id == RANK_KING )
nation_array[nation_recno]->add_general_info(sprite_recno);
}
else
{
rank_id = rankId;
}
//----- if this is a general/king ------//
if( rank_id == RANK_GENERAL || rank_id == RANK_KING )
{
//--------- init team_info -------//
if( !team_info )
{
team_info = (TeamInfo*) mem_add( sizeof(TeamInfo) );
memset( team_info, 0, sizeof(TeamInfo) );
}
//--- set leadership if this unit does not have any now ----//
if( skill_level() < 10 )
skill.set_skill_level( + m.random(40) );
}
//------ refresh if the current unit is selected -----//
if( unit_array.selected_recno == sprite_recno )
info.disp();
}
//--------- Begin of function Unit::pay_expense ---------//
//
void Unit::pay_expense()
{
if( game.game_mode == GAME_TEST ) // no deduction in testing game
return;
if( !nation_recno )
return;
//--- if it's a mobile spy or the spy is in its own firm, no need to pay salary here as Spy::pay_expense() will do that ---//
//
// -If your spies are mobile:
// >your nation pays them 1 food and $5 dollars per month
//
// -If your spies are in an enemy's town or firm:
// >the enemy pays them 1 food and the normal salary of their jobs.
//
// >your nation pays them $5 dollars per month. (your nation pays them no food)
//
// -If your spies are in your own town or firm:
// >your nation pays them 1 food and $5 dollars per month
//
//------------------------------------------------------//
if( spy_recno )
{
if( is_visible() ) // the cost will be deducted in spy_array
return;
if( unit_mode == UNIT_MODE_OVERSEE &&
firm_array[unit_mode_para]->nation_recno == true_nation_recno() )
{
return;
}
}
//---------- if it's a human unit -----------//
//
// The unit is paid even during its training period in a town
//
//-------------------------------------------//
Nation* nationPtr = nation_array[nation_recno];
if( unit_res[unit_id]->race_id > 0 )
{
if( rank_id != RANK_KING )
{
//---------- reduce cash -----------//
if( nationPtr->cash > 0 )
{
if( rank_id == RANK_SOLDIER )
nationPtr->add_expense( EXPENSE_MOBILE_UNIT, (float) SOLDIER_YEAR_SALARY / 365, 1 );
if( rank_id == RANK_GENERAL )
nationPtr->add_expense( EXPENSE_GENERAL, (float) GENERAL_YEAR_SALARY / 365, 1 );
}
//---------- reduce food -----------//
if( nationPtr->food > 0 )
nationPtr->consume_food((float) UNIT_FOOD_YEAR_CONSUMPTION / 365);
else
{
if( info.game_date%NO_FOOD_LOYALTY_DECREASE_INTERVAL == 0 ) // decrease 1 loyalty point every 2 days
change_loyalty(-1);
}
}
}
else if( unit_res[unit_id]->is_monster() )
{
//--- currently not cost for monsters ----//
}
else //----- it's a non-human unit ------//
{
if( nationPtr->cash > 0 )
{
int expenseType;
switch(unit_res[unit_id]->unit_class)
{
case UNIT_CLASS_WEAPON:
expenseType = EXPENSE_WEAPON;
break;
case UNIT_CLASS_SHIP:
err_here();
// expenseType = EXPENSE_SHIP;
break;
case UNIT_CLASS_CARAVAN:
expenseType = EXPENSE_CARAVAN;
break;
default:
expenseType = EXPENSE_MOBILE_UNIT;
}
nationPtr->add_expense( expenseType, (float) unit_res[unit_id]->year_cost / 365, 1 );
}
else // decrease hit points if the nation cannot pay the unit
{
if( unit_res[unit_id]->unit_class != UNIT_CLASS_CARAVAN ) // Even when caravans are not paid, they still stay in your service.
{
if( hit_points > 0 )
{
hit_points--;
if( hit_points < 0 )
hit_points = (float) 0;
//--- when the hit points drop to zero and the unit is destroyed ---//
if( hit_points==0 )
{
if( nation_recno == nation_array.player_recno )
{
int unitClass = unit_res[unit_id]->unit_class;
// ###### begin Gilbert 24/3 #######//
if( unitClass==UNIT_CLASS_WEAPON || unitClass==UNIT_CLASS_MONS_WEAPON )
news_array.weapon_ship_worn_out(unit_id, get_weapon_version());
// ###### end Gilbert 24/3 #######//
else if( unitClass==UNIT_CLASS_SHIP )
news_array.weapon_ship_worn_out(unit_id, 0);
}
}
}
}
}
}
}
//--------- Begin of function Unit::betray ---------//
//
// If this unit is a spy, this function betray() will be
// called by Unit::spy_change_nation() or Firm::capture_firm().
//
// If this is not a spy, this function will only be called
// by think_betray() and other nation deinit functions.
//
int Unit::betray(int newNationRecno)
{
//----- if this is a spy, call spy_change_nation -----//
if( spy_recno &&
spy_array[spy_recno]->cloaked_nation_recno != newNationRecno ) // cloaked_nation_recno == newNationRecno if betray() is called by spy_change_nation() already
{
spy_change_nation(newNationRecno, COMMAND_AUTO);
return 1;
}
//-------------------------------//
err_when( newNationRecno && nation_array[newNationRecno]->is_human() && // monsters in firms should not betray to humans
is_monster() && unit_mode == UNIT_MODE_OVERSEE );
int unitRecno = sprite_recno;
err_when( unit_array.is_truly_deleted(unitRecno) );
err_when( rank_id == RANK_KING );
if( nation_recno == newNationRecno )
return 0;
if( unit_mode == UNIT_MODE_CONSTRUCT_FIRM || // don't change nation when the unit is constructing a firm
unit_mode == UNIT_MODE_CONSTRUCT_TOWN ||
unit_mode == UNIT_MODE_ON_SHIP ) // don't change nation when the unit is constructing a firm
{
return 0;
}
//--- special case: units in Monster Fortress cannot change nation ---//
if( unit_mode == UNIT_MODE_OVERSEE &&
firm_array[unit_mode_para]->firm_id == FIRM_FORTRESS )
{
return 0;
}
//---------- add news -----------//
if( nation_recno == nation_array.player_recno ||
newNationRecno == nation_array.player_recno )
{
//--- if this is a spy, don't display news message for betrayal as it is already displayed in Unit::spy_change_nation() ---//
if( !spy_recno )
news_array.unit_betray(sprite_recno, newNationRecno);
}
//------ change nation now ------//
err_when( unit_array.is_truly_deleted(unitRecno) );
change_nation(newNationRecno);
err_when( unit_array.is_truly_deleted(unitRecno) );
//-------- set the loyalty of the unit -------//
if( nation_recno )
{
Nation* nationPtr = nation_array[nation_recno];
loyalty = UNIT_BETRAY_LOYALTY + 10 + m.random(20);
if( nationPtr->reputation > 0 )
change_loyalty( (int) nationPtr->reputation );
if( race_res.is_same_race( nationPtr->race_id, race_id ) )
change_loyalty( 30 );
err_when( loyalty < 0 || loyalty > 100 );
update_loyalty(); // update target loyalty
}
else //------ if change to independent rebel -------//
{
loyalty = 0; // no loyalty needed
}
//--- if this unit is a general, change nation for the units he commands ---//
if( rank_id==RANK_GENERAL )
{
err_when( !team_info );
for( int i=0 ; i<team_info->member_count ; i++ )
{
int memberUnitRecno = team_info->member_unit_array[i];
if( memberUnitRecno == unitRecno ) // this is the unit itself
continue;
Unit* unitPtr = unit_array[memberUnitRecno];
if( !unitPtr->is_visible() )
continue;
if( unitPtr->spy_recno ) // if the unit is a spy
unitPtr->spy_change_nation(newNationRecno, COMMAND_AUTO);
else
unitPtr->change_nation(newNationRecno);
}
}
err_when( unit_array.is_truly_deleted(unitRecno) );
//------ go to meet the new master -------//
if( is_visible() && nation_recno )
{
if( !spy_recno || spy_array[spy_recno]->notify_cloaked_nation_flag )
{
if( is_civilian() )
ai_move_to_nearby_town();
else
ai_move_to_nearby_firm(FIRM_CAMP, FIRM_FORT);
}
}
err_when( unit_array.is_truly_deleted(unitRecno) );
return 1;
}
