太閤立志伝５イベントソース

//米土倉　Ver1.00改(シンプル化)

//全国どの米屋でも所持金／貯金の出し入れが可能。
//預かり額が130,000,000貫以上ある状態での更なる預かりは不可。

チャプター:{
	イベント:米土倉始{
		属性:何度でも｜ひかえめ
		発生契機:室内画面表示後(無効,米屋)
		発生条件:{
			調査:(イベント::米土倉利用)==(0)
			調査:(イベント::米土倉不要)==(0)
			調査:(人物::主人公.所持金)>=(1000) //最低千貫でお願いします　↓イベント末尾
		}
		スクリプト:{
			会話:(米屋の主人,主人公):[[おや、あなたさまは\n{二人称名前}でございますな？]]
			調査:(人物::主人公.性別)==(男)
			分岐:(真){
				会話:(主人公,米屋の主人):[[いかにもそう{だ}が…]]
			}
			分岐:(偽){
				会話:(主人公,米屋の主人):[[{はい}、そうですが…]]
			}
			会話:(米屋の主人,主人公):[[おお、やはりそうでしたか…\n実は、新しい商いを興そうとしておりまして\nぜひ、{二人称名前}にもご利用頂きたく…]]
			調査:(人物::主人公.性別)==(男)
			分岐:(真){
				会話:(主人公,米屋の主人):[[新しい商いとな？]]
			}
			分岐:(偽){
				会話:(主人公,米屋の主人):[[新しい商いですか？]]
			}
			会話:(米屋の主人,主人公):[[はい……\n有体に申せば金庫でございます]]
			選択:([[興味がある]][[興味はない]])

			分岐:([[興味はない]]){
				調査:(人物::主人公.性別)==(男)
				分岐:(真){
					会話:(主人公,米屋の主人):[[特に興味はないな…]]
				}
				分岐:(偽){
					会話:(主人公,米屋の主人):[[特に興味はありませんので…]]
				}
				会話:(米屋の主人,主人公):[[左様でございますか……\nではこの話は無かったことに\nさせていただきます……]]
				ナレーション:[[米屋の主人の誘いを断った]]
				更新:(イベント::米土倉不要)(1)
			}//興味はない　閉じる

			分岐:([[興味がある]]){
				調査:(人物::主人公.性別)==(男)
				分岐:(真){
					会話:(主人公,米屋の主人):[[……いますこし詳しく聞かせてくれ]]
				}
				分岐:(偽){
					会話:(主人公,米屋の主人):[[……いま少し詳しく聞かせていただいても？]]
				}
				会話:(米屋の主人,主人公):[[{二人称名前}には、\n金子を私どもに預けていただくだけで…]]
				会話:(米屋の主人,主人公):[[お好きな時にお好きな町で金子を\nお受け取りいただけます]]
				会話:(米屋の主人,主人公):[[私どもは、その代りとして\n少額の手数料を頂きます]]
				会話:(米屋の主人,主人公):[[日の本中のどこの米屋の主人でも\n金子の預け入れ、引き落としもできます\nぜひご利用くださいませ]]
				ＳＥスタート:(成功音)
				ナレーション:[[米土蔵が利用できるようになった]]
				更新:(イベント::米土倉利用)(1)
				更新:(イベント::米土倉桁０)(0)
				更新:(イベント::米土倉桁１)(0)
				更新:(イベント::米土倉桁２)(0)
				更新:(イベント::米土倉桁３)(0)
				更新:(イベント::米土倉桁４)(0)
				更新:(イベント::米土倉桁５)(0)
				更新:(イベント::米土倉桁６)(0)
				更新:(イベント::米土倉桁７)(0)
				更新:(イベント::米土倉桁８)(0)
				更新:(イベント::米土倉桁９)(0)
				更新:(イベント::米土倉桁Ａ)(0)
				更新:(イベント::米土倉桁Ｂ)(0)
				更新:(イベント::米土倉桁Ｃ)(0)
				更新:(イベント::米土倉桁Ｄ)(0)
				更新:(イベント::米土倉桁Ｅ)(0)
				更新:(イベント::米土倉桁Ｆ)(0)
				更新:(イベント::米土倉桁Ｇ)(0)
			}//分岐　興味がある　閉じる
		}//スクリプト閉じる
	}//イベント閉じる

	イベント:米土倉再{
		属性:何度でも｜ひかえめ
		発生契機:室内画面表示後(無効,米屋)
		発生条件:{
			調査:(イベント::米土倉利用)==(0)
			調査:(イベント::米土倉不要)==(1)
			調査:(人物::主人公.所持金)>=(1000)//最低千貫でお願いします　↓イベント末尾
			調査:(Ｒｎｄ１００)<(5)	//てきとうに
		}
		スクリプト:{
			会話:(米屋の主人,主人公):[[{二人称名前}、いつもご利用\nありがとうございます]]
			会話:(米屋の主人,主人公):[[以前お話いたしました新しい商いに\nつきまして、やはりご興味は\nありませんでしょうか？]]
			選択:([[興味はない]][[興味がある]])

			分岐:([[興味はない]]){
				調査:(人物::主人公.性別)==(男)
				分岐:(真){
					会話:(主人公,米屋の主人):[[特に興味はないな…]]
				}
				分岐:(偽){
					会話:(主人公,米屋の主人):[[特に興味はありませんので…]]
				}
				会話:(米屋の主人,主人公):[[左様でございますか……\n大変失礼いたしました……]]
				ナレーション:[[米屋の主人の誘いを断った]]
			}//聞きたくもない　閉じる

			分岐:([[興味がある]]){
				調査:(人物::主人公.性別)==(男)
				分岐:(真){
					会話:(主人公,米屋の主人):[[……いますこし詳しく聞かせてくれ]]
				}
				分岐:(偽){
					会話:(主人公,米屋の主人):[[……いま少し詳しく聞かせていただいても？]]
				}
				会話:(米屋の主人,主人公):[[{二人称名前}には、\n金子を私どもに預けていただくだけで…\nお好きな時にお好きな町で金子お受け取りいただけます]]
				会話:(米屋の主人,主人公):[[私どもは、その代りとして\n少額の手数料を頂きます]]
				会話:(米屋の主人,主人公):[[日の本中のどこの米屋の主人でも\n金子の預け入れ、引き落としもできます\nぜひご利用くださいませ]]
				ＳＥスタート:(成功音)
				ナレーション:[[米土蔵が利用できるようになった]]
				更新:(イベント::米土倉利用)(1)
				更新:(イベント::米土倉桁０)(0)
				更新:(イベント::米土倉桁１)(0)
				更新:(イベント::米土倉桁２)(0)
				更新:(イベント::米土倉桁３)(0)
				更新:(イベント::米土倉桁４)(0)
				更新:(イベント::米土倉桁５)(0)
				更新:(イベント::米土倉桁６)(0)
				更新:(イベント::米土倉桁７)(0)
				更新:(イベント::米土倉桁８)(0)
				更新:(イベント::米土倉桁９)(0)
				更新:(イベント::米土倉桁Ａ)(0)
				更新:(イベント::米土倉桁Ｂ)(0)
				更新:(イベント::米土倉桁Ｃ)(0)
				更新:(イベント::米土倉桁Ｄ)(0)
				更新:(イベント::米土倉桁Ｅ)(0)
				更新:(イベント::米土倉桁Ｆ)(0)
				更新:(イベント::米土倉桁Ｇ)(0)
			}//分岐　興味がある　閉じる
		}//スクリプト閉じる
	}//イベント閉じる

	イベント:米土倉メイン{
		属性:何度でも
		発生契機:室内画面表示後(無効,米屋)
		発生条件:{
			調査:(イベント::米土倉利用)==(1)
		}

		スクリプト:{
			会話:(米屋の主人,主人公):[[いらっしゃいませ\n{二人称名前}、本日はどのような御用で…]]
			選択:([[米土倉に用がある]][[米屋に用がある]])

			分岐:([[米土倉に用がある]]){
				会話:(主人公,米屋の主人):[[土倉に用があって参った]]
				会話:(米屋の主人,主人公):[[それはそれは…\nして、いかなるご用件でございましょう？]]

				代入ｚ:(0)
				代入ｔ:(0)
				代入ｕ:(イベント::米土倉桁０)*(1)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁１)*(2)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁２)*(4)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁３)*(8)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁４)*(16)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁５)*(32)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁６)*(64)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁７)*(128)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁８)*(256)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁９)*(512)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ａ)*(1024)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｂ)*(2048)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｃ)*(4096)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｄ)*(8192)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｅ)*(16384)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｆ)*(32768)
				代入ｔ:(ｔ)+(ｕ)
				代入ｕ:(イベント::米土倉桁Ｇ)*(65536)
				代入ｔ:(ｔ)+(ｕ)

				ループ:{//ループ開始
					調査:(ｚ)==(1)
					ブロック脱出:(真)
					代入ｖ:(0) //0なら所持金、1なら貯金が対象
					代入ｙ:(0) //サブループ脱出

					選択:([[確認]][[預入]][[払戻]][[やめる]])
					分岐:([[確認]]){
						会話:(米屋の主人,主人公):[[現在、{二人称名前}からお預かりしているのは……]]
						代入ｐ:(ｔ)*(1000)
						会話:(米屋の主人,主人公):[[<ｐ>貫にございますな]]
					}//確認　閉じる

					分岐:([[預入]]){
						調査:(ｔ)>=(130000)
						分岐:(真){
							ＳＥスタート:(失敗音)
							会話:(米屋の主人,主人公):[[これ以上はお預かりできませぬ]]
						}//上限の場合 
						分岐:(偽){
							調査:(人物::主人公.所持金)<(1000)
							分岐:(真){
								ＳＥスタート:(失敗音)
								会話:(米屋の主人,主人公):[[…一口は千貫からでございます]]
							}//1000貫未満の場合　閉じる
							分岐:(偽){
								会話:(米屋の主人,主人公):[[預入でございますね\nどこからお預かりいたしましょうか？]]
								選択:([[所持金]][[貯金]][[やめる]])
								分岐:([[所持金]]){
									会話:(米屋の主人,主人公):[[いかほどお預かりいたしましょうか？]]
									ループ:{//ループ開始
										調査:(ｙ)==(1)
										ブロック脱出:(真)
										代入ｏ:(0)
										選択:([[1000貫]][[5000貫]][[10000貫]][[50000貫]][[全部]][[やめる]])
										分岐:([[1000貫]]){
											調査:(人物::主人公.所持金)<(1000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//1000貫持ってない場合
											分岐:(偽){
												代入ｏ:(1)
											}//1000貫持っている場合
										}//1口
										分岐:([[5000貫]]){
											調査:(人物::主人公.所持金)<(5000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//5000貫持ってない場合
											分岐:(偽){
												代入ｏ:(5)
											}//5000貫持っている場合
										}//5口
										分岐:([[10000貫]]){
											調査:(人物::主人公.所持金)<(10000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//10000貫持ってない場合
											分岐:(偽){
												代入ｏ:(10)
											}//10000貫持っている場合
										}//10口
										分岐:([[50000貫]]){
											調査:(人物::主人公.所持金)<(50000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//50000貫持ってない場合
											分岐:(偽){
												代入ｏ:(50)
											}//50000貫持っている場合
										}//50口
										分岐:([[全部]]){
											代入ｏ:(人物::主人公.所持金)/(1000)
											代入ｙ:(1)
										}//全部
										分岐:([[やめる]]){
											代入ｙ:(1)
										}//やめる
										調査:(ｏ)>(0)
										分岐:(真){
											ＳＥスタート:(コイン)
											代入ｒ:(ｏ)*(1000)
											代入ｑ:(人物::主人公.所持金)-(ｒ)
											更新:(人物::主人公.所持金)(ｑ)}
											代入ｔ：(ｔ)+(ｏ)
											代入ｕ：(ｔ)
											代入ｐ:(ｔ)*(1000)
											代入ｓ:(ｏ)*(1000)
											会話:(米屋の主人,主人公):[[<ｓ>貫、お預りいたしました\nお預り残高は、<ｐ>貫となりました\n所持金は、<ｑ>貫となりました\n]]
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁０)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁１)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁２)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁３)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁４)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁５)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁６)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁７)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁８)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁９)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ａ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｂ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｃ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｄ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｅ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｆ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｇ)(ｗ)
										}//ｏ>0
									}//ループ終了
								}//所持金　終了
								分岐:([[貯金]]){
									会話:(米屋の主人,主人公):[[いかほどお預かりいたしましょうか？]]
									ループ:{//ループ開始
										調査:(ｙ)==(1)
										ブロック脱出:(真)
										代入ｏ:(0)
										選択:([[1000貫]][[5000貫]][[10000貫]][[50000貫]][[100000貫]][[500000貫]][[全部]][[やめる]])
										分岐:([[1000貫]]){
											調査:(人物::主人公.貯金)<(1000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//1000貫持ってない場合
											分岐:(偽){
												代入ｏ:(1)
											}//1000貫持っている場合
										}//1口
										分岐:([[5000貫]]){
											調査:(人物::主人公.貯金)<(5000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//5000貫持ってない場合
											分岐:(偽){
												代入ｏ:(5)
											}//5000貫持っている場合
										}//5口
										分岐:([[10000貫]]){
											調査:(人物::主人公.貯金)<(10000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//10000貫持ってない場合
											分岐:(偽){
												代入ｏ:(10)
											}//10000貫持っている場合
										}//10口
										分岐:([[50000貫]]){
											調査:(人物::主人公.貯金)<(50000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//50000貫持ってない場合
											分岐:(偽){
												代入ｏ:(50)
											}//50000貫持っている場合
										}//50口
										分岐:([[100000貫]]){
											調査:(人物::主人公.貯金)<(100000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//100000貫持ってない場合
											分岐:(偽){
												代入ｏ:(100)
											}//100000貫持っている場合
										}//100口
										分岐:([[500000貫]]){
											調査:(人物::主人公.貯金)<(500000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…手持ちでは足りませんな\nいますこし小口にして下され]]
											}//500000貫持ってない場合
											分岐:(偽){
												代入ｏ:(500)
											}//500000貫持っている場合
										}//100口
										分岐:([[全部]]){
											代入ｏ:(人物::主人公.貯金)/(1000)
											代入ｙ:(1)
										}//全部
										分岐:([[やめる]]){
											代入ｙ:(1)
										}//やめる
										調査:(ｏ)>(0)
										分岐:(真){
											ＳＥスタート:(コイン)
											代入ｒ:(ｏ)*(1000)
											代入ｑ:(人物::主人公.貯金)-(ｒ)
											更新:(人物::主人公.貯金)(ｑ)}
											代入ｔ：(ｔ)+(ｏ)
											代入ｕ：(ｔ)
											代入ｐ:(ｔ)*(1000)
											代入ｓ:(ｏ)*(1000)
											会話:(米屋の主人,主人公):[[<ｓ>貫、お預りいたしました\nお預り残高は、<ｐ>貫となりました\n貯金は、<ｑ>貫となりました]]
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁０)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁１)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁２)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁３)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁４)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁５)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁６)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁７)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁８)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁９)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ａ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｂ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｃ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｄ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｅ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｆ)(ｗ)
											代入ｕ:(ｕ)/(2)
											代入ｗ:(ｕ)%(2)
											更新:(イベント::米土倉桁Ｇ)(ｗ)
										}//ｏ>0
									}//ループ終了
								}//貯金　終了
								分岐:([[やめる]]){
								}//やめる  終了
							}//1000貫以上所持の場合　閉じる
						}//上限未満の場合　閉じる
					}//預入　閉じる

					分岐:([[払戻]]){
						調査:(ｔ)==(0)
						分岐:(真){
							会話:(米屋の主人,主人公):[[残高が\nございませぬ…]]
						}
						分岐:(偽){
							代入ｐ:(ｔ)*(1000)
							会話:(米屋の主人,主人公):[[残高は\n<ｐ>貫となっております]]
							会話:(米屋の主人,主人公):[[どちらへご入金いたしましょうか？]]
							選択:([[所持金]][[貯金]][[やめる]])
							分岐:([[所持金]]){
								会話:(米屋の主人,主人公):[[いかほどご入用でございましょうか？]]
								ループ:{//ループ開始
									調査:(ｙ)==(1)
									ブロック脱出:(真)
									代入ｏ:(0)
									選択:([[1000貫]][[5000貫]][[10000貫]][[50000貫]][[持てるだけ]][[やめる]])
									分岐:([[1000貫]]){
										調査:(人物::主人公.所持金)>(99000)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
										}
										分岐:(偽){
											代入ｏ:(1)
										}
									}
									分岐:([[5000貫]]){
										調査:(ｔ)<(5)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											調査:(人物::主人公.所持金)>(95000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(5)
											}
										}
									}
									分岐:([[10000貫]]){
										調査:(ｔ)<(10)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											調査:(人物::主人公.所持金)>(90000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(10)
											}
										}
									}
									分岐:([[50000貫]]){
										調査:(ｔ)<(50)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											調査:(人物::主人公.所持金)>(50000)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(50)
											}
										}
									}
									分岐:([[持てるだけ]]){
										代入ｕ：(ｐ)+(人物::主人公.所持金)
										調査:(ｕ)>(100000)
										分岐:(真){
											代入ｏ:(100000)-(人物::主人公.所持金)
											代入ｏ:(ｏ)/(1000)
										}
										分岐:(偽){
											代入ｏ:(ｐ)/(1000)
										}
										代入ｙ:(1)
									}
									分岐:([[やめる]]){
										代入ｙ:(1)
									}//やめる
									調査:(ｏ)>(0)
									分岐:(真){
										ＳＥスタート:(コイン)
										代入ｒ:(ｏ)*(1000)
										代入ｑ:(人物::主人公.所持金)+(ｒ)
										更新:(人物::主人公.所持金)(ｑ)
										代入ｔ：(ｔ)-(ｏ)
										代入ｕ：(ｔ)
										代入ｐ:(ｔ)*(1000)
										代入ｓ:(ｏ)*(1000)
										会話:(米屋の主人,主人公):[[<ｓ>貫、お渡しいたしました\nお預り残高は、<ｐ>貫となりました\n所持金は、<ｑ>貫となりました]]
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁０)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁１)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁２)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁３)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁４)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁５)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁６)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁７)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁８)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁９)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ａ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｂ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｃ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｄ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｅ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｆ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｇ)(ｗ)
									}//払戻あり
								}//ループ終了
							}//所持金 終了
							分岐:([[貯金]]){
								会話:(米屋の主人,主人公):[[いかほどご入用でございましょうか？]]
								ループ:{//ループ開始
									調査:(ｙ)==(1)
									ブロック脱出:(真)
									代入ｏ:(0)
									選択:([[1000貫]][[5000貫]][[10000貫]][[50000貫]][[100000貫]][[500000貫]][[持てるだけ]][[やめる]])
									分岐:([[1000貫]]){
										代入ｕ:(500000)
										代入ｕ:(ｕ)+(498999)//代入上限の回避
										調査:(人物::主人公.貯金)>(ｕ)//数値比較上限の回避
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
										}
										分岐:(偽){
											代入ｏ:(1)
										}
									}
									分岐:([[5000貫]]){
										調査:(ｔ)<(5)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											代入ｕ:(500000)
											代入ｕ:(ｕ)+(494999)//代入上限の回避
											調査:(人物::主人公.貯金)>(ｕ)//数値比較上限の回避
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(5)
											}
										}
									}
									分岐:([[10000貫]]){
										調査:(ｔ)<(10)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											代入ｕ:(500000)
											代入ｕ:(ｕ)+(489999)//代入上限の回避
											調査:(人物::主人公.貯金)>(ｕ)//数値比較上限の回避
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(10)
											}
										}
									}
									分岐:([[50000貫]]){
										調査:(ｔ)<(50)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											代入ｕ:(500000)
											代入ｕ:(ｕ)+(449999)//代入上限の回避
											調査:(人物::主人公.貯金)>(ｕ)//数値比較上限の回避
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(50)
											}
										}
									}
									分岐:([[100000貫]]){
										調査:(ｔ)<(100)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											代入ｕ:(500000)
											代入ｕ:(ｕ)+(399999)//代入上限の回避
											調査:(人物::主人公.貯金)>(ｕ)//数値比較上限の回避
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(100)
											}
										}
									}
									分岐:([[500000貫]]){
										調査:(ｔ)<(100)
										分岐:(真){
											会話:(米屋の主人,主人公):[[…そんなに預かっておりませぬ…]]
										}
										分岐:(偽){
											調査:(人物::主人公.貯金)>(499999)
											分岐:(真){
												会話:(米屋の主人,主人公):[[…そんなに持ちきれませぬ…]]
											}
											分岐:(偽){
												代入ｏ:(500)
											}
										}
									}
									分岐:([[持てるだけ]]){
										代入ｗ:(ｐ)+(人物::主人公.貯金)
										代入ｕ:(500000)
										代入ｕ:(ｕ)+(499999)//代入上限の回避
										調査:(ｗ)>(ｕ)//数値比較上限の回避
										分岐:(真){
											代入ｏ:(ｕ)-(人物::主人公.貯金)
											代入ｏ:(ｏ)/(1000)
										}
										分岐:(偽){
											代入ｏ:(ｐ)/(1000)
										}
										代入ｙ:(1)
									}
									分岐:([[やめる]]){
										代入ｙ:(1)
									}//やめる
									調査:(ｏ)>(0)
									分岐:(真){
										ＳＥスタート:(コイン)
										代入ｒ:(ｏ)*(1000)
										代入ｑ:(人物::主人公.貯金)+(ｒ)
										更新:(人物::主人公.貯金)(ｑ)
										代入ｔ:(ｔ)-(ｏ)
										代入ｕ:(ｔ)
										代入ｐ:(ｔ)*(1000)
										代入ｓ:(ｏ)*(1000)
										会話:(米屋の主人,主人公):[[<ｓ>貫、お渡しいたしました\nお預り残高は、<ｐ>貫となりました\n貯金は、<ｑ>貫となりました]]
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁０)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁１)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁２)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁３)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁４)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁５)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁６)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁７)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁８)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁９)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ａ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｂ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｃ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｄ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｅ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｆ)(ｗ)
										代入ｕ:(ｕ)/(2)
										代入ｗ:(ｕ)%(2)
										更新:(イベント::米土倉桁Ｇ)(ｗ)
									}//払戻あり
								}//ループ終了
							}//貯金  終了
							分岐:([[やめる]]){
							}//やめる
						}//残高がある場合　閉じる
					}//払戻　閉じる

					分岐:([[やめる]]){
						代入ｚ:(1)
					}//分岐　やめる　閉じる
				}//ループ〆
			}//分岐　米土倉に用がある　閉じる

			分岐:([[米屋に用がある]]){
				会話:(主人公,米屋の主人):[[今日は米の商いの件で参った]]
				会話:(米屋の主人,主人公):[[それはそれは…\nどうぞこちらへ]]
			}//分岐　米屋の主人に用がある　閉じる

		}//スクリプト閉じる
	}//イベント閉じる

	イベント:米土倉利用{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉不要{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁０{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁１{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁２{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁３{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁４{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁５{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁６{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁７{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁８{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁９{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ａ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｂ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｃ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｄ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｅ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｆ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}
	イベント:米土倉桁Ｇ{//フラグとして利用
		属性:何度でも｜ひかえめ
		発生契機:チャプター凍結時
		発生条件:{
			調査:(0)==(1)
		}
		スクリプト:{
		}
	}

}//チャプター閉じる