太閤立志伝５イベントソース
//(一般・汎用)
//【弱小勢力自動降伏イベント】Ver3.0 by解体屋
//★Ver2.1からの修正点
//・スクリプトがかな〜り短くなった（なんであんな面倒なことしてたんだろう…＿|￣|○）
//★Ver2.0からの修正点
//・スクリプトを整理して少し短くした
//・降伏条件の判定がちゃんとできてなかったっぽいので、単純なものに戻した

//★内容・発生条件
//主人公の身分が大名で、支配力が２万以上のとき、毎月処理の最後に一定の確率で発生
//支配力が高くなれば、発生確率も高くなる
//イベントが発生すれば、隣接大名から３つの大名家をランダムにピックアップし
//ピックアップされた大名家の本城と同じ地方に主人公大名家の城があった場合
//相手の支配力に応じて、一定の確率で降伏を申し入れてくる
//降伏の申し入れは拒否できるが、その場合は外交関係が最悪になり、主人公大名家が攻略目標にされる
//イベントとは言っても、会話等はほとんどない味気ない作り
//★欠点
//短期間になんどもＵＰしてしまった（反省）

チャプター:{
イベント:弱小勢力自動降服(by解体屋){
属性:何度でも｜ひかえめ
発生契機:毎月処理の最後

発生条件:{
調査:(人物::主人公.身分)==(大名)
代入大名家Ｄ:(人物::主人公.所属大名家)
代入ａ:(大名家::大名家Ｄ.支配力)
ＯＲ調査:{
ＡＮＤ調査:{
調査:(ａ)>=(20000)
調査:(ａ)<(25000)
調査:(Ｒｎｄ１００)<(15)//主人公大名家の支配力が２００００以上２５０００より下だと１５％の確率で発生
}
ＡＮＤ調査:{
調査:(ａ)>=(25000)
調査:(ａ)<(30000)
調査:(Ｒｎｄ１００)<(20)//主人公大名家の支配力が２５０００以上３００００未満だと２０％の確率で発生
}
ＡＮＤ調査:{
調査:(ａ)>=(30000)
調査:(Ｒｎｄ１００)<(25)//主人公大名家の支配力が３００００以上だと２５％の確率で発生
}
}//ＯＲ〆
}//条件〆

スクリプト{
コンテナ設定:(大名家,隣接大名家(大名家Ｄ),真)
コンテナ除外:(大名家,存在,偽)
コンテナソート:(無効,シャッフル,昇順)//隣接大名家をシャッフル
コンテナ選択:(大名家Ａ,先頭)//降伏候補１
コンテナ選抜:(削る,1)
代入ｂ:(1)//１つだけ
調査:(コンテナカウンタ)>=(1)
分岐:(真){//A
コンテナ選択:(大名家Ｂ,先頭)
コンテナ選抜:(削る,1)
更新:(ｂ)(2)//２つあった
}//A〆
調査:(コンテナカウンタ)>=(1)
分岐:(真){//B
コンテナ選択:(大名家Ｃ,先頭)
更新:(ｂ)(3)//３つあった
}//B〆

ブロック開始:{//ブロック
////ここから大名家Ａ////
//遠隔地大名かどうか調査
代入城Ａ:(大名家::大名家Ａ.本城)
代入地方Ａ:(城::城Ａ.所在地方)
コンテナ設定:(城,所在地方,地方Ａ)
コンテナ除外:(城,所属大名家,大名家Ａ)//城Ａと同じ大名家の城を除外
コンテナ絞り込み:(城,所属大名家,大名家Ｄ)//主人公大名家の城を検索
調査:(コンテナカウンタ)>=(1)//主人公大名家の城があるか調査

分岐:(真){//A大名家Ａの本城と同じ地方に主人公支配城があったら
代入ｈ:(大名家::大名家Ａ.支配力)

ＯＲ調査:{
ＡＮＤ調査:{
調査:(ｈ)>=(5000)//支配力が５０００以上なら
調査:(Ｒｎｄ１００)<(1)//１％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｈ)<(5000)//５０００未満
調査:(ｈ)>=(3000)//かつ３０００以上なら
調査:(Ｒｎｄ１００)<(3)//３％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｈ)<(3000)//３０００未満
調査:(ｈ)>=(2000)//かつ２０００以上なら
調査:(Ｒｎｄ１００)<(6)//６％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｈ)<(2000)//２０００未満
調査:(ｈ)>=(1000)//かつ１０００以上なら
調査:(Ｒｎｄ１００)<(9)//９％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｈ)<(1000)//１０００未満
調査:(ｈ)>=(500)//かつ５００以上なら
調査:(Ｒｎｄ１００)<(18)//１８%の確率で降伏
}
ＡＮＤ調査:{
調査:(ｈ)<(500)//５００未満
調査:(Ｒｎｄ１００)<(36)//３６％の確率で降伏
}
}
}//ＯＲ〆

分岐:(真){//B
ＳＥスタート:(忍者報告)
会話選択:(忍者,主人公)[[{二人称名前}！\n<大名家Ａ>が降伏を申し入れて{参った}\nいかが{いたす}か？]]

選択:[[受け入れる]][[拒否する]]

分岐:([[受け入れる]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ａ>は<大名家Ｄ>に降伏しました]]
勢力滅亡:(大名家Ａ,大名家Ｄ)
}//受け〆

分岐:([[拒否する]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ａ>との外交関係が最悪になりました]]
更新:(大名家::大名家Ａ.外交同盟(大名家Ｄ))(同盟なし)
更新:(大名家::大名家Ａ.外交感情(大名家Ｄ))(絶交)
代入ｄ:(大名家::大名家Ｄ.大名家番号)//主人公大名家の番号をピックアップ
更新:(大名家::大名家Ａ.戦略)(大名攻略)//戦略方針を変更
更新:(大名家::大名家Ａ.戦略ターゲット)(ｄ)//ターゲットの数値を主人公の大名家番号に
}//拒否〆
}//B〆
}//A〆

調査:(ｂ)==(1)//隣接大名家１つのとき
ブロック脱出:(真)//これ以上調査しない

////ここから大名家Ｂ////
代入城Ｂ:(大名家::大名家Ｂ.本城)
代入地方Ｂ:(城::城Ｂ.所在地方)
コンテナ設定:(城,所在地方,地方Ｂ)
コンテナ除外:(城,所属大名家,大名家Ｂ)
コンテナ絞り込み:(城,所属大名家,大名家Ｄ)
調査:(コンテナカウンタ)>=(1)

分岐:(真){//A
代入ｉ:(大名家::大名家Ｂ.支配力)
ＯＲ調査:{
ＡＮＤ調査:{
調査:(ｉ)>=(5000)//支配力が５０００以上なら
調査:(Ｒｎｄ１００)<(1)//１％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｉ)<(5000)//５０００未満
調査:(ｉ)>=(3000)//かつ３０００以上なら
調査:(Ｒｎｄ１００)<(3)//３％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｉ)<(3000)//３０００未満
調査:(ｉ)>=(2000)//かつ２０００以上なら
調査:(Ｒｎｄ１００)<(6)//６％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｉ)<(2000)//２０００未満
調査:(ｉ)>=(1000)//かつ１０００以上なら
調査:(Ｒｎｄ１００)<(9)//９％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｉ)<(1000)//１０００未満
調査:(ｉ)>=(500)//かつ５００以上なら
調査:(Ｒｎｄ１００)<(18)//１８%の確率で降伏
}
ＡＮＤ調査:{
調査:(ｉ)<(500)//５００未満
調査:(Ｒｎｄ１００)<(36)//３６％の確率で降伏
}
}//ＯＲ〆

分岐:(真){//B
ＳＥスタート:(忍者報告)
会話選択:(忍者,主人公)[[{二人称名前}！\n<大名家Ｂ>が降伏を申し入れて{参った}\nいかが{いたす}か？]]

選択:[[受け入れる]][[拒否する]]

分岐:([[受け入れる]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ｂ>は<大名家Ｄ>に降伏しました]]
勢力滅亡:(大名家Ｂ,大名家Ｄ)
}//受け〆

分岐:([[拒否する]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ｂ>との外交関係が最悪になりました]]
更新:(大名家::大名家Ｂ.外交同盟(大名家Ｄ))(同盟なし)
更新:(大名家::大名家Ｂ.外交感情(大名家Ｄ))(絶交)
更新:(大名家::大名家Ｂ.戦略)(大名攻略)
更新:(大名家::大名家Ｂ.戦略ターゲット)(ｄ)
}//拒否〆
}//B〆
}//A〆


調査:(ｂ)==(2)//隣接大名家２つのとき
ブロック脱出:(真)//これ以上調査しない

////ここから大名家Ｃ////
代入城Ｃ:(大名家::大名家Ｃ.本城)
代入地方Ｃ:(城::城Ｃ.所在地方)
コンテナ設定:(城,所在地方,地方Ｃ)
コンテナ除外:(城,所属大名家,大名家Ｃ)
コンテナ絞り込み:(城,所属大名家,大名家Ｄ)
調査:(コンテナカウンタ)>=(1)

分岐:(真){//A
代入ｊ:(大名家::大名家Ｃ.支配力)
ＯＲ調査:{
ＡＮＤ調査:{
調査:(ｊ)>=(5000)//支配力が５０００以上なら
調査:(Ｒｎｄ１００)<(1)//１％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｊ)<(5000)//５０００未満
調査:(ｊ)>=(3000)//かつ３０００以上なら
調査:(Ｒｎｄ１００)<(3)//３％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｊ)<(3000)//３０００未満
調査:(ｊ)>=(2000)//かつ２０００以上なら
調査:(Ｒｎｄ１００)<(6)//６％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｊ)<(2000)//２０００未満
調査:(ｊ)>=(1000)//かつ１０００以上なら
調査:(Ｒｎｄ１００)<(9)//９％の確率で降伏
}
ＡＮＤ調査:{
調査:(ｊ)<(1000)//１０００未満
調査:(ｊ)>=(500)//かつ５００以上なら
調査:(Ｒｎｄ１００)<(18)//１８%の確率で降伏
}
ＡＮＤ調査:{
調査:(ｊ)<(500)//５００未満
調査:(Ｒｎｄ１００)<(36)//３６％の確率で降伏
}
}//ＯＲ〆

分岐:(真){//B
ＳＥスタート:(忍者報告)
会話選択:(忍者,主人公)[[{二人称名前}！\n<大名家Ｃ>が降伏を申し入れて{参った}\nいかが{いたす}か？]]

選択:[[受け入れる]][[拒否する]]

分岐:([[受け入れる]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ｃ>は<大名家Ｄ>に降伏しました]]
勢力滅亡:(大名家Ｃ,大名家Ｄ)
}//受け〆

分岐:([[拒否する]]){
ＳＥスタート:(忍者報告)
ナレーション:[[<大名家Ｃ>との外交関係が最悪になりました]]
更新:(大名家::大名家Ｃ.外交同盟(大名家Ｄ))(同盟なし)
更新:(大名家::大名家Ｃ.外交感情(大名家Ｄ))(絶交)
更新:(大名家::大名家Ｃ.戦略)(大名攻略)
更新:(大名家::大名家Ｃ.戦略ターゲット)(ｄ)
}//拒否〆
}//B〆
}//A〆

}//ブロック〆

}//スクリプト〆
}//イベント〆

}//チャプター〆