Code:
--Timbe Litharion old code for DeI--
-- resupply function on character enters garrision
local function SupplyFleetTransportEntersPort(context)
local army = context:character():cqi()
local turns_at_sea = context:character():turns_at_sea()
if context:character():has_military_force() == true
and (char_is_general_with_navy(context:character()))
and context:character():has_garrison_residence() == true
then
if turns_at_sea >= 4
then LogSupply("SupplyFleetTransportEntersPort","Naval resupply effect bundles for: "..army)
if context:character():faction():culture() == "rom_Barbarian" then
scripting.game_interface:apply_effect_bundle_to_characters_force("Naval_Resupply_2", army,1);
else scripting.game_interface:apply_effect_bundle_to_characters_force("CIV_Naval_Resupply_2", army,1);
return;
end;
elseif turns_at_sea < 4
then LogSupply("SupplyFleetTransportEntersPort","Naval resupply effect bundles for: "..army)
if context:character():faction():culture() == "rom_Barbarian" then
scripting.game_interface:apply_effect_bundle_to_characters_force("Naval_Resupply", army,1)
else scripting.game_interface:apply_effect_bundle_to_characters_force("CIV_Naval_Resupply", army,1);
return;
end;
end;
end;
end;
-- fleet finished resupplying after a turn in port
local function Fleet_Ready_To_Take_off(context)
if context:character():has_military_force() == true
and (char_is_general_with_navy(context:character()))
and context:character():military_force():unit_list():num_items() >= 1
and context:character():has_garrison_residence() == true
then
local army = context:character():cqi()
Log("\t Remove naval effect bundles for: "..army)
RemoveBundle(army, naval_effect_bundles)
Log("\t add Navy_in_port"..army)
if context:character():faction():culture() == "rom_Barbarian" then
scripting.game_interface:apply_effect_bundle_to_characters_force("Navy_in_port", army,-1)
else scripting.game_interface:apply_effect_bundle_to_characters_force("CIV_Navy_in_port", army,-1)
return
end
end
end
local function SupplyFleetTransportLeavesPort(context)
local army = context:character():cqi();
if context:character():has_military_force() == true
and (char_is_general_with_navy(context:character()))
and context:character():has_garrison_residence() == false
then
scripting.game_interface:remove_effect_bundle_from_characters_force("Naval_Resupply", army);
scripting.game_interface:remove_effect_bundle_from_characters_force("Naval_Resupply_2", army);
scripting.game_interface:remove_effect_bundle_from_characters_force("CIV_Naval_Resupply_2", army);
scripting.game_interface:remove_effect_bundle_from_characters_force("CIV_Naval_Resupply", army);
scripting.game_interface:remove_effect_bundle_from_characters_force("Navy_in_port", army);
scripting.game_interface:remove_effect_bundle_from_characters_force("CIV_Navy_in_port", army);
end;
end;
--Timbe Litharion old code for DeI--