Code:
set_event_counter player_aggressivity 0
set_event_counter player_aggressivity_feedback 0 ; 1 if info on acceptable neighbour already fired, 2 if info on warmonger already fired
monitor_event GeneralCaptureSettlement not IsFactionAIControlled
log --- Player aggressivity : info event
historic_event info_player_aggressivity
set_event_counter player_aggressivity_feedback 1 ; consider first info on as as "acceptable neighbour" info
terminate_monitor
end_monitor
monitor_event GeneralCaptureSettlement not IsFactionAIControlled
inc_event_counter player_aggressivity 5
log TEST player_aggressivity inc by 5
end_monitor
monitor_event FactionTurnStart not IsFactionAIControlled
if I_EventCounter player_aggressivity > 0
inc_event_counter player_aggressivity -1
log TEST LOWERING player_aggressivity
if I_EventCounter player_aggressivity > 8
and I_EventCounter player_aggressivity_feedback = 1
historic_event player_aggressivity_warmonger
set_event_counter player_aggressivity_feedback 2
end_if
if I_EventCounter player_aggressivity < 9
and I_EventCounter player_aggressivity_feedback = 2
historic_event player_aggressivity_acceptable
set_event_counter player_aggressivity_feedback 1
end_if
end_if
end_monitor
And then a descr_faction_standing trigger: