;------------------- We will make us some Prostatas
-------------------;
monitor_event FactionTurnStart
;setup Protestant CONVERSION counters
add_events
event counter protestant_conversion_accepted_hre
event counter protestant_conversion_declined_hre
event counter protestant_conversion_accepted_england
event counter protestant_conversion_declined_england
event counter protestant_conversion_accepted_scotland
event counter protestant_conversion_declined_scotland
event counter protestant_conversion_accepted_ireland
event counter protestant_conversion_declined_ireland
event counter protestant_conversion_accepted_spain
event counter protestant_conversion_declined_spain
event counter protestant_conversion_accepted_portugal
event counter protestant_conversion_declined_portugal
event counter protestant_conversion_accepted_france
event counter protestant_conversion_declined_france
event counter protestant_conversion_accepted_venice
event counter protestant_conversion_declined_venice
event counter protestant_conversion_accepted_milan
event counter protestant_conversion_declined_milan
event counter protestant_conversion_accepted_sicily
event counter protestant_conversion_declined_sicily
event counter protestant_conversion_accepted_hungary
event counter protestant_conversion_declined_hungary
event counter protestant_conversion_accepted_poland
event counter protestant_conversion_declined_poland
event counter protestant_conversion_accepted_denmark
event counter protestant_conversion_declined_denmark
event counter protestant_conversion_accepted_norway
event counter protestant_conversion_declined_norway
event counter protestant_conversion_accepted_lithuania
event counter protestant_conversion_declined_lithuania
event counter protestant_emerge
event counter protestant_emerge_not
event counter protestant_conversion_timer
date 0
end_add_events
;generate_random_counter protestant_conversion_timer 1 50
set_event_counter protestant_conversion_accepted_hre 0
set_event_counter protestant_conversion_declined_hre 0
set_event_counter protestant_emerge_not 1
set_event_counter protestant_emerge 0
terminate_monitor
end_monitor
monitor_event PreFactionTurnStart FactionType hre
set_event_counter protestant_emerge_not 1
set_event_counter protestant_emerge 0
if I_EventCounter protestant_conversion_accepted_hre = 1
set_event_counter protestant_emerge_not 0
set_event_counter protestant_emerge 1
end_if
end_monitor
monitor_event FactionTurnStart FactionType FactionIsLocal
inc_event_counter protestant_conversion_timer 1
if I_EventCounter protestant_conversion_accepted_hre = 1
terminate_monitor
end_if
end_monitor
monitor_event FactionTurnStart FactionType hre
if I_EventCounter protestant_conversion_timer >= 3 ;218 = 1517
and I_EventCounter protestant_conversion_accepted_hre = 0
;offer conversion to protestantism
historic_event protestant_conversion true factions { hre, }
;if AI random chance to accept
if I_IsFactionAIControlled hre
generate_random_counter random_accept_hre 1 2
if I_EventCounter random_accept_hre < 2
set_event_counter protestant_conversion_accepted_hre 1
end_if
end_if
terminate_monitor
end_if
end_monitor
monitor_conditions I_EventCounter protestant_conversion_timer >= 2
;notify all factions that Protestantism is on the rise
historic_event hre_idebt ;event/Lithuania_converts.bik
terminate_monitor
end_monitor
monitor_conditions I_EventCounter protestant_conversion_accepted_hre = 1
;Three easy steps for conversion
;1 - Convert the people
set_religion hre protestant
change_population_religion hre protestant 75 catholic
link_faction_ai hre default
;2 - Destroy the pagan buildings
destroy_buildings hre catholic true
destroy_buildings hre catholic_castle true
;3 - Disband the pagan units
retire_characters hre priest
;notify all factions that Lithuania has converted and become Catholic
historic_event lithuania_converts event/Lithuania_converts.bik
set_event_counter protestant_emerge 1
set_event_counter protestant_emerge_not 0
terminate_monitor
end_monitor