PON2-scripting MinorS Diplomatic events -Balkans

[Christophe.Barot]

Balkan's was a "net of crabs" apermanent source of European tensions in general, and of RUS/AUS ones in particular

let's begin with a Serbian shift of alliance



SelectFaction = $SER
SelectRegion = $Serbia
StartEvent = Event_nam_SER_RUSclosing|999|1|NULL|NULL|$Serbia|NULL

Conditions
MinDate = 1900/01/01
MaxDate = 1920/12/31
EvalRuler = $ruler_SER_Petar1;0
Probability = 2
// makes roughly 50% happening per year with average luck
// Obrenovic are pro Austrian, Karageorgevic are Pro Austrian
EvalDiploItem = RUS;$diDefensiveTreaty;NOT

SelectFaction = $AUS
EvalDiploItem = BUL;$diDefensiveTreaty
EvalRgnOwned = $Herzegovina
// NO NEED TO TEST sAVA AND bOSNA TOO

Actions

SelectFaction = $SER
AddDiploItem = RUS;$diDefensiveTreaty;CURRENT
RemDiploItem = AUS;$diDefensiveTreaty;CURRENT
ChgFacRelationships = RUS;10;AUS;-10;BUL;-5
ChangeFacMorale = 10
AI.SetDiploItemBias = RUS;*Military*;200
AI.SetDiploItemBias = FRA;*Military*;150
AI.SetDiploItemBias = AUS;*War*;200;*CB*;200;*Military*;50
AI.SetDiploItemBias = BUL;*War*;200

SelectFaction = $AUS
ChgFacRelationships = RUS;-5
AI.SetDiploItemBias = TUR;*Military*;200
AI.SetDiploItemBias = SER;*War*;300
AI.SetDiploItemBias = BUL;*Military*;300
AI.SetDiploItemBias = RUS;*War*;300
AI.SetDiploItemBias = GER;*Military*;300

SelectFaction = $BUL
AI.SetDiploItemBias = RUS;*Military*;50
AI.SetDiploItemBias = AUS;*Military*;200
AI.SetDiploItemBias = GER;*Military*;200
AI.SetDiploItemBias = ;Military*;100
AI.SetDiploItemBias = SER;*War*;200

//note - is to compare with basic 1890 values, actual values will now semi-randomly vary with events, part randomly, part depending on historical actors
// or situations "on the field" - alliances, possessions of provinces and objectives
// in this one, an Austrian "ally" holds Serbian coveted lands and is allied with a natural enemy (Bulgaria, aka Makedonian competitor and former enemy)
// while a pro Russian leader takes throne from a pro austrian one - guess what ...

EndEvent

[ATTACH]26005[/ATTACH]

Peter I Karageorgevic of Serbia

[Christophe.Barot]

//AND ITS COUNTERPART

SelectFaction = $SER
SelectRegion = $Serbia
StartEvent = Event_nam_SER_AUSclosing|999|1|NULL|NULL|$Serbia|NULL

Conditions
MinDate = 1900/01/01
MaxDate = 1920/12/31
EvalRuler = $ruler_SER_Petar1;0;NOT
Probability = 2
// makes roughly 50% happening per year with average luck
// Obrenovic are pro Austrian, Karageorgevic are Pro Russian
EvalDiploItem = AUS;$diDefensiveTreaty;NOT

SelectFaction = $RUS
EvalDiploItem = BUL;$diDefensiveTreaty
SelectFaction = $AUS
EvalDiploItem = BUL;$diDefensiveTreaty;NOT

Actions

SelectFaction = $SER
AddDiploItem = AUS;$diDefensiveTreaty;CURRENT
RemDiploItem = RUS;$diDefensiveTreaty;CURRENT
ChgFacRelationships = RUS;-10;AUS;10;BUL;-5
ChangeFacMorale = 5

SelectFaction = $SER

AI.SetDiploItemBias = RUS;*Military*;50
AI.SetDiploItemBias = AUS;*War*;50;*CB*;50;*Military*;200
AI.SetDiploItemBias = FRA;*Military*;0
AI.SetDiploItemBias = BUL;*War*;200


SelectFaction = $BUL
AI.SetDiploItemBias = RUS;*Military*;200
AI.SetDiploItemBias = AUS;*Military*;100
AI.SetDiploItemBias = FRA;*Military*;0
AI.SetDiploItemBias = GER;*War*;*Military*;200;
AI.SetDiploItemBias = TUR;*War*;200
AI.SetDiploItemBias = SER;*War*;200

SelectFaction = $RUS
ChgFacRelationships = AUS;-5
AI.SetDiploItemBias = BUL;*Military*;200

SelectFaction = $AUS
AI.SetDiploItemBias = TUR;*War*;100
AI.SetDiploItemBias = SER;*War*;100;*CB*;50*Military*;150
AI.SetDiploItemBias = BUL;*War*;100;*Military*;100



EndEvent

[Christophe.Barot]

[color="#40E0D0"]Basically they'll do that if Austria has bonds with Serbia (and no independantists liberals bound to german courts)
[/color]
SelectFaction = $BUL
SelectRegion = $Bulgaria
StartEvent = Event_nam_BUL_RUSclosing|999|1|NULL|NULL|$Bulgaria|NULL

Conditions
MinDate = 1900/01/01
MaxDate = 1920/12/31
SelectFaction = $BUL
EvalRgnOwned = $Makedonia;NOT
Probability = 2
[color="#40E0D0"]// makes roughly 50% happening per year with average luck[/color]
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalRuler = $ruler_BUL_StefanStambolov;1;NOT
EvalRuler = $ruler_BUL_Ferdiand1;0;NOT

SelectFaction = $AUS
EvalDiploItem = SER;$diDefensiveTreaty

Actions

SelectFaction = $BUL
AddDiploItem = RUS;$diDefensiveTreaty;CURRENT
RemDiploItem = AUS;$diDefensiveTreaty;CURRENT
ChgFacRelationships = RUS;10;AUS;-10;SER;-5
ChangeFacMorale = 10

AI.SetDiploItemBias = RUS;*Military*;200
AI.SetDiploItemBias = AUS;*War*;100;*Military*;100
AI.SetDiploItemBias = GER;*Military*;100
AI.SetDiploItemBias = SER;*War*;200

SelectFaction = $AUS
ChgFacRelationships = RUS;-5
AI.SetDiploItemBias = TUR;*Military*;200
AI.SetDiploItemBias = SER;*War*;100;*Military*;100
AI.SetDiploItemBias = BUL;*Military*;100
AI.SetDiploItemBias = RUS;*War*;300
AI.SetDiploItemBias = GER;*Military*;300

SelectFaction = $SER
AI.SetDiploItemBias = RUS;*Military*;100
AI.SetDiploItemBias = AUS;*Military*;100
AI.SetDiploItemBias = BUL;*War*;200

EndEvent

[Christophe.Barot]

[color="#40E0D0"]the counterpart, Bulgaria switching sides to go to Austrians - there is still some nervosity about Makedonia and serbian alliances
first is with Stambolov, who opposed a Russian coup against Alexander, pro Russian, but considered as "too liberal" at petersburg [/color](or how to lose Bulgaria - communists didn't invent anything)



SelectFaction = $BUL
SelectRegion = $Bulgaria
StartEvent = Event_nam_BUL_AUSclosing1|999|1|NULL|NULL|$Bulgaria|NULL

Conditions
MinDate = 1900/01/01
MaxDate = 1920/12/31
SelectFaction = $BUL
EvalRgnOwned = $Makedonia;NOT
Probability = 2
[color="#40E0D0"]// makes roughly 50% happening per year with average luck[/color]
EvalDiploItem = AUS;$diDefensiveTreaty;NOT
[color="#40E0D0"] EvalRuler = $ruler_BUL_StefanStambolov;1[/color]
[color="#FF0000"]// there is a big problem for leaders date- values are not the ones of date , does it needs correction[/color]

SelectFaction = $AUS
EvalDiploItem = SER;$diDefensiveTreaty;NOT

Actions

SelectFaction = $BUL
AddDiploItem = AUS;$diDefensiveTreaty;CURRENT
RemDiploItem = RUS;$diDefensiveTreaty;CURRENT
ChgFacRelationships = RUS;-10;AUS;10;SER;-5
ChangeFacMorale = 5

SelectFaction = $BUL

AI.SetDiploItemBias = RUS;*Military*;50
AI.SetDiploItemBias = AUS;*Military*;200
AI.SetDiploItemBias = GER;*Military*;200
AI.SetDiploItemBias = SER;*War*;200

SelectFaction = $SER
AI.SetDiploItemBias = RUS;*Military*;200
AI.SetDiploItemBias = AUS;*War*;250
AI.SetDiploItemBias = FRA;*Military*;100
AI.SetDiploItemBias = BUL;*War*;200

SelectFaction = $RUS
ChgFacRelationships = AUS;-5
AI.SetDiploItemBias = BUL;*Military*;50
AI.SetDiploItemBias = AUS;*War*;200

SelectFaction = $AUS
AI.SetDiploItemBias = TUR;*War*;150
AI.SetDiploItemBias = SER;*War*;250;*Military*;50
AI.SetDiploItemBias = BUL;*War*;50;*Military*;200
AI.SetDiploItemBias = AUS;*War*;250

EndEvent

[Christophe.Barot]

[color="#40E0D0"]who, while he was considered by Petersburg as "the Austrian candidate", was still more than the "Central Powers puppet" we could have thought from a former Austro-Hungarian officer
still Petersburg considered his election as a blow from Vienna to the (almost direct) control of Bulgaria by Russians [/color]

SelectFaction = $BUL
SelectRegion = $Bulgaria
StartEvent = Event_nam_BUL_AUSclosing2|999|1|NULL|NULL|$Bulgaria|NULL

Conditions
MinDate = 1900/01/01
MaxDate = 1920/12/31
SelectFaction = $BUL
EvalRgnOwned = $Makedonia;NOT
Probability = 2
[color="#40E0D0"]// makes roughly 50% happening per year with average luck[/color]
EvalDiploItem = AUS;$diDefensiveTreaty;NOT
EvalRuler = $ruler_BUL_Ferdiand1;0
[color="#FF0000"]// there is a big problem for leaders date- values are not the ones of date , does it needs correction
// there is a correction to make to database - and so event, it is Ferdinand not Ferdiand[/color]

SelectFaction = $AUS
EvalDiploItem = SER;$diDefensiveTreaty;NOT

Actions

SelectFaction = $BUL
AddDiploItem = AUS;$diDefensiveTreaty;CURRENT
RemDiploItem = RUS;$diDefensiveTreaty;CURRENT
ChgFacRelationships = RUS;-10;AUS;10;SER;-5
ChangeFacMorale = 5

SelectFaction = $BUL

AI.SetDiploItemBias = RUS;*Military*;50
AI.SetDiploItemBias = AUS;*Military*;200
AI.SetDiploItemBias = GER;*Military*;200
AI.SetDiploItemBias = SER;*War*;200

SelectFaction = $SER
AI.SetDiploItemBias = RUS;*Military*;200
AI.SetDiploItemBias = AUS;*War*;250
AI.SetDiploItemBias = FRA;*Military*;100
AI.SetDiploItemBias = BUL;*War*;200

SelectFaction = $RUS
ChgFacRelationships = AUS;-5
AI.SetDiploItemBias = BUL;*Military*;50
AI.SetDiploItemBias = AUS;*War*;200

SelectFaction = $AUS
AI.SetDiploItemBias = TUR;*War*;150
AI.SetDiploItemBias = SER;*War*;250;*Military*;50
AI.SetDiploItemBias = BUL;*War*;50;*Military*;200
AI.SetDiploItemBias = AUS;*War*;250

EndEvent





http://en.wikipedia.org/wiki/History_of_Bulgaria
http://en.wikipedia.org/wiki/History_of_Bulgaria_%281878%E2%80%931946%29

http://en.wikipedia.org/wiki/Unification_of_Bulgaria
http://en.wikipedia.org/wiki/Serbo-Bulgarian_War

[Christophe.Barot]

relations of Bulgaria/Rumania/Ottoman about Dobrudja

relations of Bulgaria/Greece/Ottoman about Halkidiki

relations of Bulgaria/Serbia/Ottoman about Makedonia

relations of Rumania/Austria/Russia about Transylvania and Hohenzollern/Bissarabya

relations of Serbia/Austria about Bosnia/Herzegovina and Banat