//オリゾンテ隣接判定スクリプト
//21さん提案の枝刈り後に変更済み-----------------------------------------------
Set s 0
Set t 0
Set c 0
Start
if(s>0)
{
	Set c,0
	if (a!=0 && b!=0 && a!=100 && b!=100)
	{
		if(b== 6 | b== 3 | b== 2 | b== 5 | b== 4 & a== 1)
		if(b== 2 | b==10 | b== 4 & a== 3)
		if(b== 7 | b== 9 & a== 5)
		if(b== 4 | b==27 | b==31 | b==48 & a== 6)
		if(b== 7 | b== 9 | b==15 | b==76 & a== 8)
		if(b==11 | b==12 | b==13 & a==10)
		if(b== 4 | b==16 & a==11)
		if(b== 2 | b==14 | b==17 & a==13)
		if(b== 7 | b==14 | b==24 & a==15)
		if(b==12 | b==18 | b==19 & a==17)
		if(b==12 | b==18 | b==20 | b==21 & a==19)
		if(b==12 | b==57 & a==20)
		if(b==18 | b==60 | b==64 & a==21)
		if(b==14 | b==22 | b==24 & a==23)
		if(b==22 | b==26 | b==76 & a==24)
		if(b==22 | b==26 | b==71 & a==25)
		if(b==54 | b==85 | b==27 & a==28)
		if(b==30 | b==37 | b==31 | b==27 & a==29)
		if(b==33 | b==36 | b==31 | b==47 & a==32)
		if(b==50 | b==36 | b==34 & a==33)
		if(b==31 | b==34 | b==35 & a==36)
		if(b==35 | b==80 & a==37)
		if(b==76 | b==38 & a==39)
		if(b==42 | b==38 | b==43 & a==40)
		if(b==41 | b==43 & a==42)
		if(b== 9 | b==46 & a==43)
		if(b==46 | b==44 & a==45)
		if(b==48 | b==46 & a==47)
		if(b==52 | b==44 & a==49)
		if(b==52 | b==34 | b==50 & a==51)
		if(b==55 | b==53 & a==54)
		if(b==53 | b==56 & a==55)
		if(b==56 | b==57 & a==58)
		if(b==60 | b==57 | b==62 & a==59)
		if(b==62 | b==64 | b==63 & a==61)
		if(b==63 | b==67 & a==64)
		if(b==67 | b==68 | b==66 & a==65)
		if(b==18 | b==68 & a==66)
		if(b==72 | b==63 & a==67)
		if(b==69 | b==71 | b==74 & a==70)
		if(b==69 | b==72 & a==71)
		if(b==75 | b==26 | b==73 & a==74)
		if(b==73 | b==76 & a==75)
		if(b==78 | b==52 & a==77)
		if(b==81 | b==84 | b==79 & a==80)
		if(b==34 | b==78 | b==79 & a==81)
		if(b==85 | b==84 | b==83 & a==82)
		if(b==84 | b==78 | b==79 & a==83)
		if(b==16 | b==92 & a==86)
		{
			Set c,s
		}
		if(t==0 && c==0)
		{
			Set t,a
			Set a,b
			Set b,t
			Set t,1
			GoTo
		}
		Set t,0
	}
}
if(s==0 && Flag[171]==0 && HeroFlag[%ホワイト] && Flag[40] && AreaKuni[73]==10 && Flag[242]==false)
{
	Set s,1
	Set a,BaseArea[10]
	Set b,BaseArea[16]
	GoTo
}	
if(s<2 && c==0 && Flag[178]==0 && Ley[61]==1 && KuniFlag[10] && KuniFlag[5] && Flag[242]==false)
{
	Set s,2
	Set a,BaseArea[5]
	Set b,BaseArea[16]
	GoTo
}
//追加。イザナギとティアマトが隣接。（「時を超えし巫女」発生後）
if(s<3 && c==0 && Flag[245]==0 && Flag[244] && HeroKuni[%クズハ]==16 && HeroKuni[%ヒサメ]==16 && KuniFlag[26])
{
	Set s,3
	Set a,BaseArea[16]
	Set b,BaseArea[26]
	GoTo
}
//隣接会話宣戦布告用スクリプト「前半」
Set p,Ley[56]
if(s<61 && c==0 && League[1][61]==0 && KuniPlayer[p]==1 && p!=1 && KuniFlag[1] && League[1][p]==0)
{
	Set s,61
	Set a,BaseArea[p]
	Set b,BaseArea[1]
	GoTo
}
if(s<62 && c==0 && League[1][62]==0 && KuniPlayer[p]==1 && p!=2 && KuniFlag[2] && League[2][p]==0)
{
	Set s,62
	Set a,BaseArea[p]
	Set b,BaseArea[2]
	GoTo
}
if(s<63 && c==0 && League[1][63]==0 && KuniPlayer[p]==1 && p!=3 && KuniFlag[3] && League[3][p]==0)
{
	Set s,63
	Set a,BaseArea[p]
	Set b,BaseArea[3]
	GoTo
}
if(s<64 && c==0 && League[1][64]==0 && KuniPlayer[p]==1 && p!=4 && KuniFlag[4] && League[4][p]==0)
{
	Set s,64
	Set a,BaseArea[p]
	Set b,BaseArea[4]
	GoTo
}
if(s<65 && c==0 && League[1][65]==0 && KuniPlayer[p]==1 && p!=5 && KuniFlag[5] && League[5][p]==0)
{
	Set s,65
	Set a,BaseArea[p]
	Set b,BaseArea[5]
	GoTo
}
if(s<66 && c==0 && League[1][66]==0 && KuniPlayer[p]==1 && p!=6 && KuniFlag[6] && League[6][p]==0)
{
	Set s,66
	Set a,BaseArea[p]
	Set b,BaseArea[6]
	GoTo
}
if(s<67 && c==0 && League[1][67]==0 && KuniPlayer[p]==1 && p!=7 && KuniFlag[7] && League[7][p]==0)
{
	Set s,67
	Set a,BaseArea[p]
	Set b,BaseArea[7]
	GoTo
}
if(s<68 && c==0 && League[1][68]==0 && KuniPlayer[p]==1 && p!=8 && KuniFlag[8] && League[8][p]==0)
{
	Set s,68
	Set a,BaseArea[p]
	Set b,BaseArea[8]
	GoTo
}
if(s<69 && c==0 && League[1][69]==0 && KuniPlayer[p]==1 && p!=9 && KuniFlag[9] && League[9][p]==0 && Ley[50]!=999 && AreaKz[9]>=AreaKz[p])
{
	Set s,69
	Set a,BaseArea[p]
	Set b,BaseArea[9]
	GoTo
}
if(BaseArea[10]==73 || BaseArea[10]==74 || BaseArea[10]==75 || BaseArea[10]==76 && s<70 && c==0 && League[1][70]==0 && KuniPlayer[p]==1 && p!=10 && KuniFlag[10] && League[10][p]==0)
{
	Set s,70
	Set a,BaseArea[p]
	Set b,BaseArea[10]
	GoTo
}
if(s<71 && c==0 && League[1][71]==0 && KuniPlayer[p]==1 && p!=11 && KuniFlag[11] && League[11][p]==0)
{
	Set s,71
	Set a,BaseArea[p]
	Set b,BaseArea[11]
	GoTo
}
if(s<72 && c==0 && League[1][72]==0 && KuniPlayer[p]==1 && p!=12 && KuniFlag[12] && League[12][p]==0)
{
	Set s,72
	Set a,BaseArea[p]
	Set b,BaseArea[12]
	GoTo
}
if(BaseArea[13]==79 || BaseArea[13]==80 || BaseArea[13]==81 || BaseArea[13]==29 || BaseArea[13]==31 || BaseArea[13]==35 || BaseArea[13]==37 && s<73 && c==0 && League[1][73]==0 && KuniPlayer[p]==1 && p!=13 && KuniFlag[13] && League[13][p]==0)
{
	Set s,73
	Set a,BaseArea[p]
	Set b,BaseArea[13]
	GoTo
}
if(s<74 && c==0 && League[1][74]==0 && KuniPlayer[p]==1 && p!=14 && KuniFlag[14] && League[14][p]==0)
{
	Set s,74
	Set a,BaseArea[p]
	Set b,BaseArea[14]
	GoTo
}
if(s<75 && c==0 && League[1][75]==0 && KuniPlayer[p]==1 && p!=15 && KuniFlag[15] && League[15][p]==0)
{
	Set s,75
	Set a,BaseArea[p]
	Set b,BaseArea[15]
	GoTo
}
if(s<76 && c==0 && League[1][76]==0 && KuniPlayer[p]==1 && p!=16 && KuniFlag[16] && League[16][p]==0 && Flag[353]==0 && Flag[242]==0)
{
	Set s,76
	Set a,BaseArea[p]
	Set b,BaseArea[16]
	GoTo
}
if(s<77 && c==0 && League[1][77]==0 && KuniPlayer[p]==1 && p!=17 && KuniFlag[17] && League[17][p]==0)
{
	Set s,77
	Set a,BaseArea[p]
	Set b,BaseArea[17]
	GoTo
}
if(s<78 && c==0 && League[1][78]==0 && KuniPlayer[p]==1 && p!=18 && KuniFlag[18] && League[18][p]==0)
{
	Set s,78
	Set a,BaseArea[p]
	Set b,BaseArea[18]
	GoTo
}
if(s<79 && c==0 && League[1][79]==0 && KuniPlayer[p]==1 && p!=23 && KuniFlag[23] && League[23][p]==0)
{
	Set s,79
	Set a,BaseArea[p]
	Set b,BaseArea[23]
	GoTo
}
if(c==1)
{
////イベント内容はカット
}
if(c==2)
{
////以降c==79まで続く、
////隣接会話が一つのターンに一回しか発生しないのは仕様
////連鎖させたい場合はcを条件にGoToする
}