太閤立志伝５イベントソース
////////////////////////////////////////////////////////////////////////
//イベント名：ポケットマネーで勝手に自領軍政
//
//■発生条件■
//
//自領の城に入ると発生（身分により可能な軍政が異なる）
//（但し城主以上では自領の城は軍政他のコマンド使用可能なので除外）
//
//■結果■
//発生拠点の
//城増築・城修理・治安向上・訓練・徴兵・兵糧援助を行う
//結果は主人公の政務値に従う（政務％の結果になる。兵糧援助を除く）
//１ヶ月に１回のみ（兵糧援助を除く）。
//主人公の所持金３０００・７０００を消費。足りない場合は警告。
//
//各軍務の結果（政務１００の場合）
//城増築１〜５上昇（最大３０）
//城修理１０〜４５上昇（最大：規模×８＋１０）
//新田開発１０〜３０（最大：基準石高）
//鉱山開発１０〜３０（最大：鉱山最高値）
//治安向上５〜２１上昇（最大１００）
//訓練５〜１４上昇（最大１００）
//徴兵５００〜２５００人増加（最大５００００）
//兵糧援助：主人公の所持金が７０００貫以上の時、兵糧１００００石を援助する。
//軍政の成果に応じた勲功が加算される（勲功アルバイト）
//
//使用変数
//大名家Ａ：主人公大名家
//城Ａ：主人公の拠点城 城Ｂ：発生拠点（城）
//ａ：主人公の政務値 ｇ：主人公の所持金 ｘ：主人公身分値（足軽組頭＝１〜家老＝５）
//ｂ〜ｉ：計算用変数（全て整数型変数） ｙ：軍政可能身分値 ｚ：消費金額
//ｊ、ｋ：勲功用変数
////////////////////////////////////////////////////////////////////////
チャプター:{
イベント:ポケットマネーで勝手に自領軍政{
属性:何度でも
発生契機:拠点内画面表示後(無効)
発生条件:{
調査:(拠点::発生拠点.拠点タイプ)==(城)
ＯＲ調査:{
調査:(人物::主人公.主命状態)==(主命なし)
調査:(人物::主人公.身分)==(国主)
調査:(人物::主人公.身分)==(城主)
}//ＯＲ調査
調査:(人物::主人公.イベント参加可能)
調査:(イベントフラグ::勝手に軍政ＰＭ)==(不成立)
ＯＲ調査:{
調査:(人物::主人公.身分)==(国主)
調査:(人物::主人公.身分)==(城主)
調査:(人物::主人公.身分)==(家老)
調査:(人物::主人公.身分)==(部将)
調査:(人物::主人公.身分)==(侍大将)
調査:(人物::主人公.身分)==(足軽大将)
調査:(人物::主人公.身分)==(足軽組頭)
}//ＯＲ調査
}//発生条件
スクリプト:{
条件ブロック:(人物::主人公.身分)==(足軽組頭){
代入ｘ:(1)
}
条件ブロック:(人物::主人公.身分)==(足軽大将){
代入ｘ:(2)
}
条件ブロック:(人物::主人公.身分)==(侍大将){
代入ｘ:(3)
}
条件ブロック:(人物::主人公.身分)==(部将){
代入ｘ:(4)
}
条件ブロック:(人物::主人公.身分)==(家老){
代入ｘ:(5)
}
条件ブロック:(人物::主人公.身分)==(城主){
代入ｘ:(5)
}
条件ブロック:(人物::主人公.身分)==(国主){
代入ｘ:(5)
}
代入大名家Ａ:(大名家::主人公大名家)
代入ａ:(人物::主人公.政務)
代入ｇ:(人物::主人公.所持金)
代入城Ｂ:(拠点::発生拠点)
ＡＮＤ調査:{
調査:(城::城Ｂ.所属大名家)==(大名家Ａ)
調査:(城::城Ｂ.城主)!=(主人公)
調査:(ｇ)>=(3000)
}//ＡＮＤ調査
分岐:(真){
ひとりごと:[[ここは勝手に軍政を進めてしまおう]]
ナレーション可否選択:[[軍政を実行しますか？]]
分岐:(可){
ナレーション選択:[[どの軍政を行いますか？]]
選択:[[城増築]][[城修理]][[新田開発]][[鉱山開発]][[治安向上]][[訓練]][[徴兵]][[兵糧援助]]
分岐:([[城増築]]){
代入ｙ:(5)
代入ｚ:(3000)
代入ｋ:(200)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.規模)
代入ｃ:(Ｒｎｄ)%(5)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(1)
代入ｉ:(ｅ)+(1)
調査:(ｆ)>(30)
分岐:(真){
代入ｆ:(30)
}
更新:(城::城Ｂ.規模)(ｆ)
ナレーション:[[<城Ｂ>の規模は<ｉ>増えて<ｆ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(5)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[増築が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[城修理]]){
代入ｙ:(4)
代入ｚ:(3000)
代入ｋ:(160)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.防御度)
代入ｃ:(Ｒｎｄ)%(35)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(10)
代入ｉ:(ｅ)+(10)
代入ｈ:(城::城Ｂ.規模)*(8)
代入ｈ:(ｈ)+(10)
調査:(ｆ)>(ｈ)
分岐:(真){
代入ｆ:(ｈ)
}
更新:(城::城Ｂ.防御度)(ｆ)
ナレーション:[[<城Ｂ>の防御度は<ｉ>増えて<ｆ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(45)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[修理が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[新田開発]]){
代入ｙ:(4)
代入ｚ:(3000)
代入ｋ:(160)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.現石高)
代入ｃ:(Ｒｎｄ)%(20)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(10)
代入ｉ:(ｅ)+(10)
代入ｈ:(城::城Ｂ.基準石高)
調査:(ｆ)>(ｈ)
分岐:(真){
代入ｆ:(ｈ)
}
更新:(城::城Ｂ.現石高)(ｆ)
ナレーション:[[<城Ｂ>の石高は<ｉ>増えて<ｆ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(30)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[修理が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[鉱山開発]]){
代入ｙ:(4)
代入ｚ:(3000)
代入ｋ:(160)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.現鉱山)
代入ｃ:(Ｒｎｄ)%(20)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(10)
代入ｉ:(ｅ)+(10)
代入ｈ:(城::城Ｂ.鉱山最高値)
調査:(ｆ)>(ｈ)
分岐:(真){
代入ｆ:(ｈ)
}
更新:(城::城Ｂ.現鉱山)(ｆ)
ナレーション:[[<城Ｂ>の鉱山は<ｉ>増えて<ｆ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(30)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[修理が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[治安向上]]){
代入ｙ:(3)
代入ｚ:(3000)
代入ｋ:(120)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.住民安定度)
代入ｃ:(Ｒｎｄ)%(16)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(5)
代入ｉ:(ｅ)+(5)
調査:(ｆ)>(100)
分岐:(真){
代入ｆ:(100)
}
更新:(城::城Ｂ.住民安定度)(ｆ)
ナレーション:[[<城Ｂ>の住民安定度は<ｉ>増えて<ｆ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(21)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[治安向上が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[訓練]]){
代入ｙ:(2)
代入ｋ:(80)
調査:(ｘ)>=(ｙ)
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.訓練度)
代入ｃ:(Ｒｎｄ)%(9)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(5)
代入ｉ:(ｅ)+(5)
調査:(ｆ)>(100)
分岐:(真){
代入ｆ:(100)
}
更新:(城::城Ｂ.訓練度)(ｆ)
ナレーション:[[<城Ｂ>の訓練度は<ｉ>増えて<ｆ>になりました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(14)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[訓練が可能な身分ではありません]]
}
}
分岐:([[徴兵]]){
代入ｙ:(3)
代入ｚ:(3000)
代入ｋ:(120)
ＡＮＤ調査:{
調査:(ｘ)>=(ｙ)
調査:(ｇ)>=(ｚ)
}
分岐:(真){
ナレーション可否選択:[[よろしいですか？]]
分岐:(可){
代入ｂ:(城::城Ｂ.兵士数)
代入ｃ:(Ｒｎｄ)%(2000)
代入ｄ:(ａ)*(ｃ)
代入ｅ:(ｄ)/(100)
代入ｆ:(ｂ)+(ｅ)
代入ｆ:(ｆ)+(500)
代入ｉ:(ｅ)+(500)
代入ｊ:(ｉ)/(100)
代入ｋ:(城::城Ｂ.住民安定度)
代入ｋ:(ｋ)-(ｊ)
調査:(ｆ)>(50000)
分岐:(真){
代入ｆ:(50000)
}
調査:(ｋ)<(0)
分岐:(真){
代入ｋ:(0)
}
更新:(城::城Ｂ.兵士数)(ｆ)
更新:(城::城Ｂ.住民安定度)(ｋ)
ナレーション:[[<城Ｂ>の兵士数は<ｉ>増えて<ｆ>になりました]]
ナレーション:[[<城Ｂ>の住民安定度は<ｊ>減って<ｋ>になりました]]
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
ナレーション:[[所持金が3000消費されました]]
代入ｋ:(ｋ)*(ｉ)
代入ｋ:(ｋ)/(2500)
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
更新:(イベントフラグ::勝手に軍政ＰＭ)(成立)
}
}
分岐:(偽){
ナレーション:[[徴兵が可能な身分でないか、\n所持金が不足しています]]
}
}
分岐:([[兵糧援助]]){
代入ｚ:(7000)
代入ｋ:(40)
調査:(ｇ)>=(ｚ)
分岐:(真){
代入ｂ:(城::城Ｂ.兵糧)
ひとりごと可否選択:[[この城の兵糧は<ｂ>石しかない。\n援助いたすか]]
分岐:(可){
代入ｇ:(人物::主人公.所持金)-(ｚ)
更新:(人物::主人公.所持金)(ｇ)
代入ｄ:(城::城Ｂ.兵糧)+(10000)
更新:(城::城Ｂ.兵糧)(ｄ)
ひとりごと:[[これでよい]]
代入ｊ:(人物::主人公.武士勲功)+(ｋ)
更新:(人物::主人公.武士勲功)(ｊ)
ナレーション:[[勲功が<ｋ>加わって<ｊ>になりました]]
ＳＥスタート:(成功音)
}//分岐:(可)
分岐:(否){
ひとりごと:[[・・・やめておこう]]
ＳＥスタート:(失敗音)
}//分岐:(否)
}//分岐:(真)
分岐:(偽){
ナレーション:[[所持金が不足しています]]
ＳＥスタート:(失敗音)
}//分岐:(偽)
}//分岐:([[兵糧援助]])
}//分岐可
分岐:(否){
ひとりごと:[[止めておこう]]
}//分岐否
}//分岐:(真)
}//スクリプト
}//イベント
イベント:ポケットマネーで勝手に自領軍政フラグクリア{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{
調査:(イベントフラグ::勝手に自領軍政ＰＭ)==(成立)
}//発生条件
スクリプト:{
更新:(イベントフラグ::勝手に自領軍政ＰＭ)(不成立)
}//スクリプト
}//イベント
}//チャプター
戻る