Problems with emerging Portugal

[Irb_the_Pictish_Berserker]

I've been trying to make Portugal an emerging faction for my early period campaign, but have been having some problems. I tried using the Mongol emergent script as my example, but I'm not the most proficient scripter and it didn't quite work. The game recognizes the script itself, but once the scheduled year arrives, the game CTDs with the dreaded "M2TW has encountered an unspecified error and will not exit" message. Game log is no help.

Here's an excerpt from my script:

;-------------- PORTUGESE EMERGE --------------;

monitor_event EventCounter EventCounterType portugese_emerge
and EventCounter > 0
if I_EventCounter portugese_emerge == 1
add_events
;;; SCOUTING INVASION
event emergent_faction portugal
date 0
region Oporto_Province ;1 Guimaraes
;ADD MONGOL INVASION 1
event counter portugese_emerge
date 0
end_add_events
end_if

spawn_army
faction portugal
character Afonso Henriques, named character, age 40, x 22, y 144, family
traits Supplies 1 , Turnsaway 12 , MilitaryInclination 1 , GoodCommander 2 , Energetic 1 , PublicFaith 2 , Intelligent 1 , Bloodthirsty 1 , ReligionStarter 1
unit SE Bodyguard exp 3 armour 0 weapon_lvl 0
unit Feudal Knights exp 1 armour 0 weapon_lvl 0
unit Mailed Knights exp 1 armour 0 weapon_lvl 0
unit Jinetes exp 1 armour 0 weapon_lvl 0
unit Jinetes exp 0 armour 0 weapon_lvl 0
unit Spear Militia exp 1 armour 0 weapon_lvl 0
unit Spear Militia exp 1 armour 0 weapon_lvl 0
unit Lusitanian Javelinmen exp 1 armour 0 weapon_lvl 0
unit Peasant Crossbowmen exp 0 armour 0 weapon_lvl 0
unit Peasant Crossbowmen exp 2 armour 0 weapon_lvl 0
end
spawn_army
faction portugal
character Sancho, named character, age 19, x 24, y 146, family
traits Supplies 1 , Turnsaway 12 , LoyaltyStarter 1 , GovernorInclination 1 , GoodCommander 1 , PublicFaith 1 , Intelligent 2 , ReligionStarter 1
unit SE Bodyguard exp 3 armour 0 weapon_lvl 0
unit Mailed Knights exp 1 armour 0 weapon_lvl 0
unit Jinetes exp 0 armour 0 weapon_lvl 0
unit Light Swordsmen exp 1 armour 0 weapon_lvl 0
unit Light Swordsmen exp 1 armour 0 weapon_lvl 0
unit Lusitanian Javelinmen exp 1 armour 0 weapon_lvl 0
unit Peasant Archers exp 0 armour 0 weapon_lvl 0
end

end_monitor

monitor_event FactionTurnStart FactionType portugal
and not I_SettlementOwner Oporto = portugal

if I_CharacterExists Afonso Henriques
siege_settlement Afonso Henriques, Oporto, maintain
end_if

end_monitor