if not I_IsFactionAIControlled norway and I_SettlementOwner Bergen = norway
log -------------------- Norway evolution: (20) Ivory from Island ----------------------------------------
set_event_counter continue 0
inc_event_counter norway20_island_tribute_player 1 ; they kill walruses and gather ivory
if I_EventCounter FL_policy_merchant_skills > 0 ; the FL is good at asking for moeny
inc_event_counter norway20_island_tribute_player 1
end_if
if I_EventCounter FL_is_senile > 0 ; the FL forgets about the North
inc_event_counter norway20_island_tribute_player -1
end_if
if I_EventCounter norway20_island_tribute_player > 20 ; they are able to pay (every 10 years)
and RandomPercent < 10
set_event_counter continue 1 ; ok, we'll pay
end_if
if I_EventCounter FL_player_is_new_this_turn > 0 ; they want to pay homage to the new king
set_event_counter continue 1
end_if
if I_EventCounter continue = 1
set_event_counter continue 0
historic_event NORWAY20_ISLAND_TRIBUTE factions { hre, france, england, scotland, norway, denmark, poland, hungary, russia, }
console_command add_money norway, 1000
if not I_IsFactionAIControlled norway
set_event_counter norway20_island_tribute_player 0
end_if
end_if
end_if