PON2-scripting Turning points - the 1902 Anglo Japanese alliance

[Christophe.Barot]

[ATTACH]25812[/ATTACH]

[color="#40E0D0"]this alliance is a crucial diplomatic turning point of 19th (actually beginning of 20th) century

by its causes and direct or indirect consequences :

cause result from a common feeling of being threatened by Russian expansion and a common desire to stall it :

expansion of Russia in Manchuria, northern China, and korea threatened, harmed and Frustrated japan hence the need of an agreement
access to a warm water port was seen by britain, from such a powerful land power, already threatening Indias by land, as untolerable threat
humiliation of Japan at the hands of triple mediations of RUS-GER-FRA making search for a pmowerful alliance absolutely compulsory as an insurance for a winnable 1 to 1 fight
results were manyfold :
- securization of Britain far east possessions, somehow allowing her to compete with Germany and not abide to her demands
- emboldening of Japan
- an astonishing and unexpected defeat from an European (white) great power, weakening structurally Russia (internal consequences)
- accession of Japan to great power status[/color]

so here it is

[color="#0000FF"]//http://en.wikipedia.org/wiki/Anglo-Japanese_Alliance[/color]


SelectFaction = $CMN
SelectRegion = $London
StartEvent = evt_nam_JAP_Anglo-Japanese_alliance_1902AI|1|2|evt_txt_JAP_Anglo-Japanese_alliance_1902AI|Event-img_JAP_Anglo-Japanese_alliance_1902AI|$London|NULL

Conditions

SelectFaction = $JAP
CheckAILevel = 1
EvalIsAtPeaceWith = GBR
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = FRA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT
EvalDiploItem = GBR;$diDefensiveTreaty;NOT

SelectFaction = $GBR
CheckAILevel = 1
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = JAP;$diDefensiveTreaty;NOT
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT
[color="#FF0000"]
//in this case both Japan and Britain are AI[/color]

[color="#40E0D0"]//the only compatible PREEXISTING alliance is France - for Britain only - is the other ship supplier of Japan
//any other alliance would conlict with colonial ambitions at least of japan - Japanese alliance is needed
//and tolerable for Britain - only as it contains Russia but does not constraint her general policy
//for japan is needed as deterring potential German and or French seapower - Italy and Austria are not relevant[/color]

SelectFaction = $RUS
EvalRgnOwned = $Lushun

[color="#40E0D0"]//I streamlined condition here is the key - Russian presence here is both a claim to Manchuria a threat to Korea
//a competition to China and a naval threat with high water seas base so deserve defensive (GBR view, not Japans) step
//and normally ... Russia SHOULD have Lushun by now - and remember - from British point of view - it is ONLY defensive[/color]

MinDate = 1902/01/30
MaxDate = 1920/12/31
Probability = 50

Actions
DescEvent = evt_desc_JAP_Anglo-Japanese_alliance_1902AI
[color="#FF0000"]
//to write[/color]

SelectFaction = $JAP
ChgFacRelationships = GBR;20
ChgVPCount = 100
ChangeFacMorale = 10
AddDiploItem = GBR;$diDefensiveTreaty;CURRENT
AddDiploItem = GBR;$diComAgree;CURRENT

AI.SetDiploItemBias = USA;*Military*;100
[color="#40E0D0"]//alliance no longer acutely needed[/color]
AI.SetDiploItemBias = GBR;Commerce*;300;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = RUS;*War*;400
AI.SetDiploItemBias = FRA;*Commerce*;200
[color="#40E0D0"]//in spite of support and french russian bonds no more agressivity as french is a big naval supplier with good relations[/color]
AI.SetDiploItemBias = ITA;*War*;100
AI.SetDiploItemBias = GER;*War*;200
AI.SetDiploItemBias = CHI;*War*;400
AI.SetDiploItemBias = KOR;*War*;500;*CB*;300
[color="#40E0D0"]//for the other parts, effect is mostly emboldening Japan[/color]

SelectFaction = $GBR
ChgVPCount = 50

AI.SetDiploItemBias = JAP;*CB*;0;*Commerce*;200;*Military*;200;*DipSupport*;150
AI.SetDiploItemBias = CHI;*War*;200
[color="#40E0D0"]//the *military* increase is for treaty renewal[/color]

SelectFaction = $GER
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = RUS;*DipSupport*;150
//protects Japan - irrelevant for Britain as japan is underrated - opportunistic attempt to close with Russia

SelectFaction = $RUS
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = FRA;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = GER;*DipSupport*;110
[color="#40E0D0"]//Russia will try to create closer links with France in answer - support germany too but limited by French bonds[/color]

SelectFaction = $FRA
AI.SetDiploItemBias = RUS;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50;*Military*;50
[color="#40E0D0"]//the 50 military is a progress from zero - France will support Russia (closer links), but not risk war with Britain
//if Russia and japan are compatible, desired complement British alliance makes Japan alliance more compatible[/color]

SelectFaction = $USA
AI.SetDiploItemBias = GER;*DipSupport*;50
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = CHI;*War*;200;*CB*;50;*Commerce*;200;*Military*;50;*DipSupport*;200
[color="#40E0D0"]//as USA will tend to try harder to get along with new GBR/JAP block, it isolates Germany slightly more
//effects on China vary upon new block relations, relations with China, and self objectives[/color]

EndEvent

[Christophe.Barot]

the same if British AI and japan player



[ATTACH]25813[/ATTACH]



SelectFaction = $CMN
SelectRegion = $London
StartEvent = evt_nam_JAP_Anglo-Japanese_alliance_1902BrAI|1|2|evt_txt_JAP_Anglo-Japanese_alliance_1902AI|Event-img_JAP_Anglo-Japanese_alliance_1902AI|$London|NULL

Conditions

SelectFaction = $JAP
CheckIsPlayer = NULL
[color="#FF0000"]//this event simulates British diplomacy only[/color]
EvalIsAtPeaceWith = GBR
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = FRA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT
EvalDiploItem = GBR;$diDefensiveTreaty;NOT

SelectFaction = $GBR
CheckAILevel = 1
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = JAP;$diDefensiveTreaty;NOT
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT

SelectFaction = $RUS
EvalRgnOwned = $Lushun

MinDate = 1902/01/30
MaxDate = 1920/12/31
Probability = 50

Actions
DescEvent = evt_desc_JAP_Anglo-Japanese_alliance_1902AI

//to write

SelectFaction = $JAP
ChgFacRelationships = GBR;20
ChgVPCount = 100
ChangeFacMorale = 10
AddDiploItem = GBR;$diComAgree

AI.SetDiploItemBias = USA;*Military*;100
AI.SetDiploItemBias = GBR;Commerce*;300;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = RUS;*War*;400
AI.SetDiploItemBias = FRA;*Commerce*;200
AI.SetDiploItemBias = ITA;*War*;100
AI.SetDiploItemBias = GER;*War*;200
AI.SetDiploItemBias = CHI;*War*;400
AI.SetDiploItemBias = KOR;*War*;500;*CB*;300
[color="#40E0D0"]//this part is kept in case there is a shift of played nations to guide potential JAP AI[/color]

SelectFaction = $GBR
ChgVPCount = 50
AddDiploItem = JAP;$diOfferDefensiveTreaty
AI.SetDiploItemBias = JAP;*CB*;0;*Commerce*;200;*Military*;200;*DipSupport*;150
AI.SetDiploItemBias = CHI;*War*;200


SelectFaction = $GER
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = RUS;*DipSupport*;150

SelectFaction = $RUS
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = FRA;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = GER;*DipSupport*;110

SelectFaction = $FRA
AI.SetDiploItemBias = RUS;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50;*Military*;50

SelectFaction = $USA
AI.SetDiploItemBias = GER;*DipSupport*;50
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = CHI;*War*;200;*CB*;50;*Commerce*;200;*Military*;50;*DipSupport*;200

EndEvent

[Christophe.Barot]

[color="#FF0000"]And now in case British is played but Japan is AI[/color]


[ATTACH]25814[/ATTACH]

SelectFaction = $CMN
SelectRegion = $London
StartEvent = evt_nam_JAP_Anglo-Japanese_alliance_1902JpAI|1|2|evt_txt_JAP_Anglo-Japanese_alliance_1902AI|Event-img_JAP_Anglo-Japanese_alliance_1902AI|$London|NULL

Conditions

[color="#FFFF00"]SelectFaction = $JAP

CheckAILevel = 1[/color]
EvalIsAtPeaceWith = GBR
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = FRA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT
EvalDiploItem = GBR;$diDefensiveTreaty;NOT

SelectFaction = $GBR
CheckIsPlayer = NULL
//this event simulates Japanese diplomacy only
EvalIsAtPeaceWith = GER
EvalIsAtPeaceWith = RUS
EvalIsAtPeaceWith = FRA
EvalIsAtPeaceWith = USA
EvalDiploItem = JAP;$diDefensiveTreaty;NOT
EvalDiploItem = RUS;$diDefensiveTreaty;NOT
EvalDiploItem = GER;$diDefensiveTreaty;NOT
EvalDiploItem = USA;$diDefensiveTreaty;NOT
EvalDiploItem = CHI;$diDefensiveTreaty;NOT

[color="#008000"]SelectFaction = $RUS
EvalRgnOwned = $Lushun
[/color]
MinDate = 1902/01/30
MaxDate = 1920/12/31
Probability = 50

Actions
DescEvent = evt_desc_JAP_Anglo-Japanese_alliance_1902AI

[color="#FF0000"]//to write[/color]

SelectFaction = $JAP
ChgFacRelationships = GBR;20
ChgVPCount = 100
ChangeFacMorale = 10
AddDiploItem = GBR;$diOfferDefensiveTreaty
AddDiploItem = GBR;$diComAgree

AI.SetDiploItemBias = USA;*Military*;100
AI.SetDiploItemBias = GBR;Commerce*;300;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = RUS;*War*;400
AI.SetDiploItemBias = FRA;*Commerce*;200
AI.SetDiploItemBias = ITA;*War*;100
AI.SetDiploItemBias = GER;*War*;200
AI.SetDiploItemBias = CHI;*War*;400
AI.SetDiploItemBias = KOR;*War*;500;*CB*;300


SelectFaction = $GBR
ChgVPCount = 50

AI.SetDiploItemBias = JAP;*CB*;0;*Commerce*;200;*Military*;200;*DipSupport*;150
AI.SetDiploItemBias = CHI;*War*;200
[color="#40E0D0"]//this part is kept in case there is a shift of played nations to guide potential GBR AI[/color]

SelectFaction = $GER
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = RUS;*DipSupport*;150

SelectFaction = $RUS
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = FRA;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = GER;*DipSupport*;110

SelectFaction = $FRA
AI.SetDiploItemBias = RUS;*Military*;300;*DipSupport*;300
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50;*Military*;50

SelectFaction = $USA
AI.SetDiploItemBias = GER;*DipSupport*;50
AI.SetDiploItemBias = GBR;*War*;90;*CB*;40
AI.SetDiploItemBias = JAP;*War*;50;*CB*;50
AI.SetDiploItemBias = CHI;*War*;200;*CB*;50;*Commerce*;200;*Military*;50;*DipSupport*;200

EndEvent