//隣接会話イベント冒頭
Set s,0
Set t,0
//隣接判定
Start
if(s>0)
{
	Set c,0
	if (a!=0 && b!=0 && a!=100 && b!=100)
	{
		if (a==1 && b==2)
		{
			Set c,1
		}
		if (a==1 && b==9)
		{
			Set c,1
		}
		if (a==2 && b==3)
		{
			Set c,1
		}
		if (a==2 && b==10)
		{
			Set c,1
		}
		if (a==2 && b==11)
		{
			Set c,1
		}
		if (a==3 && b==4)
		{
			Set c,1
		}
		if (a==4 && b==5)
		{
			Set c,1
		}
		if (a==5 && b==6)
		{
			Set c,1
		}
		if (a==5 && b==13)
		{
			Set c,1
		}
		if (a==6 && b==7)
		{
			Set c,1
		}
		if (a==6 && b==13)
		{
			Set c,1
		}
		if (a==6 && b==15)
		{
			Set c,1
		}
		if (a==7 && b==8)
		{
			Set c,1
		}
		if (a==7 && b==15)
		{
			Set c,1
		}
		if (a==9 && b==18)
		{
			Set c,1
		}
		if (a==10 && b==11)
		{
			Set c,1
		}
		if (a==10 && b==18)
		{
			Set c,1
		}
		if (a==11 && b==19)
		{
			Set c,1
		}
		if (a==12 && b==13)
		{
			Set c,1
		}
		if (a==12 && b==20)
		{
			Set c,1
		}
		if (a==12 && b==21)
		{
			Set c,1
		}
		if (a==13 && b==21)
		{
			Set c,1
		}
		if (a==14 && b==22)
		{
			Set c,1
		}
		if (a==15 && b==16)
		{
			Set c,1
		}
		if (a==15 && b==23)
		{
			Set c,1
		}
		if (a==16 && b==23)
		{
			Set c,1
		}
		if (a==17 && b==18)
		{
			Set c,1
		}
		if (a==18 && b==26)
		{
			Set c,1
		}
		if (a==19 && b==20)
		{
			Set c,1
		}
		if (a==20 && b==28)
		{
			Set c,1
		}
		if (a==20 && b==29)
		{
			Set c,1
		}
		if (a==22 && b==23)
		{
			Set c,1
		}
		if (a==22 && b==29)
		{
			Set c,1
		}
		if (a==22 && b==31)
		{
			Set c,1
		}
		if (a==23 && b==31)
		{
			Set c,1
		}
		if (a==24 && b==32)
		{
			Set c,1
		}
		if (a==25 && b==33)
		{
			Set c,1
		}
		if (a==26 && b==27)
		{
			Set c,1
		}
		if (a==26 && b==34)
		{
			Set c,1
		}
		if (a==27 && b==28)
		{
			Set c,1
		}
		if (a==27 && b==35)
		{
			Set c,1
		}
		if (a==28 && b==29)
		{
			Set c,1
		}
		if (a==28 && b==36)
		{
			Set c,1
		}
		if (a==29 && b==30)
		{
			Set c,1
		}
		if (a==30 && b==37)
		{
			Set c,1
		}
		if (a==30 && b==38)
		{
			Set c,1
		}
		if (a==31 && b==39)
		{
			Set c,1
		}
		if (a==31 && b==40)
		{
			Set c,1
		}
		if (a==32 && b==40)
		{
			Set c,1
		}
		if (a==32 && b==48)
		{
			Set c,1
		}
		if (a==33 && b==34)
		{
			Set c,1
		}
		if (a==33 && b==41)
		{
			Set c,1
		}
		if (a==34 && b==41)
		{
			Set c,1
		}
		if (a==34 && b==42)
		{
			Set c,1
		}
		if (a==35 && b==36)
		{
			Set c,1
		}
		if (a==35 && b==43)
		{
			Set c,1
		}
		if (a==36 && b==44)
		{
			Set c,1
		}
		if (a==37 && b==38)
		{
			Set c,1
		}
		if (a==38 && b==45)
		{
			Set c,1
		}
		if (a==38 && b==46)
		{
			Set c,1
		}
		if (a==39 && b==40)
		{
			Set c,1
		}
		if (a==39 && b==47)
		{
			Set c,1
		}
		if (a==40 && b==47)
		{
			Set c,1
		}
		if (a==41 && b==42)
		{
			Set c,1
		}
		if (a==41 && b==49)
		{
			Set c,1
		}
		if (a==42 && b==50)
		{
			Set c,1
		}
		if (a==43 && b==51)
		{
			Set c,1
		}
		if (a==44 && b==52)
		{
			Set c,1
		}
		if (a==44 && b==53)
		{
			Set c,1
		}
		if (a==45 && b==46)
		{
			Set c,1
		}
		if (a==45 && b==53)
		{
			Set c,1
		}
		if (a==46 && b==54)
		{
			Set c,1
		}
		if (a==48 && b==56)
		{
			Set c,1
		}
		if (a==49 && b==57)
		{
			Set c,1
		}
		if (a==50 && b==51)
		{
			Set c,1
		}
		if (a==50 && b==58)
		{
			Set c,1
		}
		if (a==51 && b==59)
		{
			Set c,1
		}
		if (a==52 && b==53)
		{
			Set c,1
		}
		if (a==52 && b==59)
		{
			Set c,1
		}
		if (a==52 && b==60)
		{
			Set c,1
		}
		if (a==54 && b==61)
		{
			Set c,1
		}
		if (a==54 && b==62)
		{
			Set c,1
		}
		if (a==55 && b==56)
		{
			Set c,1
		}
		if (a==55 && b==62)
		{
			Set c,1
		}
		if (a==55 && b==63)
		{
			Set c,1
		}
		if (a==56 && b==64)
		{
			Set c,1
		}
		if (a==57 && b==65)
		{
			Set c,1
		}
		if (a==57 && b==73)
		{
			Set c,1
		}
		if (a==58 && b==66)
		{
			Set c,1
		}
		if (a==58 && b==73)
		{
			Set c,1
		}
		if (a==59 && b==60)
		{
			Set c,1
		}
		if (a==59 && b==78)
		{
			Set c,1
		}
		if (a==60 && b==78)
		{
			Set c,1
		}
		if (a==61 && b==69)
		{
			Set c,1
		}
		if (a==62 && b==63)
		{
			Set c,1
		}
		if (a==62 && b==70)
		{
			Set c,1
		}
		if (a==62 && b==71)
		{
			Set c,1
		}
		if (a==63 && b==72)
		{
			Set c,1
		}
		if (a==64 && b==72)
		{
			Set c,1
		}
		if (a==65 && b==66)
		{
			Set c,1
		}
		if (a==66 && b==74)
		{
			Set c,1
		}
		if (a==67 && b==68)
		{
			Set c,1
		}
		if (a==67 && b==74)
		{
			Set c,1
		}
		if (a==67 && b==75)
		{
			Set c,1
		}
		if (a==67 && b==78)
		{
			Set c,1
		}
		if (a==68 && b==69)
		{
			Set c,1
		}
		if (a==68 && b==75)
		{
			Set c,1
		}
		if (a==68 && b==76)
		{
			Set c,1
		}
		if (a==69 && b==76)
		{
			Set c,1
		}
		if (a==70 && b==71)
		{
			Set c,1
		}
		if (a==70 && b==77)
		{
			Set c,1
		}
		if (a==71 && b==79)
		{
			Set c,1
		}
		if (a==72 && b==79)
		{
			Set c,1
		}
		if (a==72 && b==80)
		{
			Set c,1
		}
		if (a==74 && b==75)
		{
			Set c,1
		}
		if (a==76 && b==77)
		{
			Set c,1
		}
		if (a==79 && b==80)
		{
			Set c,1
		}
		if(t==0 && c!=1) 
		{
			Set t,a
			Set a,b
			Set b,t
			Set t,1
			GoTo
		}
		Set t,0
	}
}
//隣接会話イベントその1
if(s==0 && Flag[301]==false && Scenario<=2)
{
	Set c,0
	Set s,1
	Set a,BaseArea[16]
	Set b,BaseArea[23]
	if (b==HeroFlag[%フィネ])
	{
		GoTo
	}
}
if(s==1 && c==1)
{
	if (KuniPlayer[16] || KuniPlayer[23])
	{
//隣接会話イベントその1会話カット
	}
	Set Flag[301],true
}
//追記コメント、変数sは無限ループ防止に設定していると思います。
if(s==0 || s==1)
{
	Set s,2
}	
//隣接会話イベントその2 
if(s==2 && Flag[302]==false)
{
	Set s,3
	Set a,BaseArea[6]
	Set b,BaseArea[15]
	GoTo
}
if(s==3 && c==1)
{
	if (KuniPlayer[6] || KuniPlayer[15])
	{
//隣接会話イベントその2 会話カット
	}
	Set Flag[302],true
}
if(s==2 || s==3)
{
	Set s,4
}
//隣接会話イベントその3 
if(s==4 && Flag[303]==false)
{
	Set s,5
	Set a,BaseArea[5]
	Set b,BaseArea[15]
	Set d,a
	Set e,b
	GoTo
}
if(s==5 && c==1)
{
	if (KuniPlayer[5] || KuniPlayer[15])
	{
//隣接会話イベントその3 会話カット
	}
	Window 0
	Size 356,96
	Print ロマノフ家とダークフォースが
	Print ６ターンの同盟を結んだ。
	WindowOn 4000
	WindowOff
	Set League [5][15],6
	Set Flag[303],true
}
if(s==4 || s==5)
{
	Set s,6
}
//以下続く