太閤立志伝５イベントソース
チャプター:{

//トランプを使ったカードゲーム「ブラックジャック」
//幕末志士伝で日本中の妓楼を渡り歩くプレイをしていて、ふと遊郭で遊べる「こいこい」のような物を
//太閤５でもやりたいと思い作成（本当は遊郭を作成したかった）
//思考ロジックと言えるほどの物は搭載されていないので、負けたからと言って熱くならない方がいいでしょう
//イベント自体、論理の構築というより、感性と実行しての動作結果を元に作り上げたので、バグが残っている可能性大
//演出はテキストのみというチープさなので、セガサターンやプレイステーションなどの次世代機で育ったポリゴン世代は注意

//更新履歴：

//2008.10.21　ver0.50	デッキでのカード使用状況を、変数ビットフラグで管理していた
//2008.10.21　ver0.80	コンテナという便利な道具が使えることに気付いた
//2008.10.22　ver1.00	３０〜５０ゲーム試して、破綻無いことを確認した
//2009.08.09　ver1.01	金が無いのにゲームさせられて、数値入力でループする問題を解決
//2009.08.12　ver1.02	千階堂変換をしなくとも動作するようにした／ブラックジャックの役で上がったときの点数計算がおかしかった／ゲーム中にカードが足りなくなった場合、手持ちの札で勝負するようにした

	イベント:汎用：プレハブ小屋・ブラックジャックをヨロシク{//糞長いだけの映画(某人談)へのオマージュ
		属性:何度でも
		発生契機:人物会話時(ラファエル)
		発生条件:{
			調査:(Ｒｎｄ１００)<(10)
			調査:(主人公.所持金)>(1)

		}
		スクリプト:{
			代入人物Ａ:(主人公)
			代入ａ:(0)
			文字列設定:(Ｅｍｐｔｙ)[[＠千＠代入＠ａ＠人物Ａ。最大積載]]
			調査:(ａ)!=(0)
			分岐:(真){
				更新:(イベントフラグ::ラファとＢＪ・数値入力)(1)
			}
			分岐:(偽){
				更新:(イベントフラグ::ラファとＢＪ・数値入力)(0)
			}
			
			代入人物Ａ:(ラファエル)
			会話可否選択:(ラファエル,主人公)[[ブラックジャックしマショー！]]
			ブロック脱出:(否)

			コンテナ設定:(人物,無効,無効)
			コンテナ選抜:(残す,52)
			
			コンテナソート:(無効,シャッフル,昇順)
			代入ｗ:(20)//規定値
			代入ｊ:(800)//親所持金
			調査:(イベントフラグ::汎用：ブラックジャック・ラファエル・おけら)
			分岐:(真){
				代入ｗ:(200)
				代入ｊ:(8000)//親所持金
				会話可否選択:(ラファエル,主人公)[[{二人称名前}には借りがアリマース\nデスから、今日のレートはいつもの１０倍デース！]]
			}
			
			代入ｉ:(0)//ゲーム回数

			
			ループ:{
				
				調査:(主人公.所持金)>(0)
				分岐:(偽){
					会話:(人物Ａ,主人公)[[オ〜！\nオケラみたいデース！\n出直してキナサイ！]]
				}
				ブロック脱出:(偽)
				
				代入ｉ:(ｉ)+(1)
				
				会話:(人物Ａ,主人公)[[デハ、カードを配りますヨ！]]
				
				調査:(コンテナカウンタ)<(15)
				分岐:(真){
					ＳＥスタート:(生薬をくだく)
					会話:(人物Ａ,主人公)[[カードが足りなくなってきたノデ\n切りなおしマース]]
					コンテナ設定:(人物,無効,無効)
					コンテナ選抜:(残す,52)
					
					コンテナソート:(無効,シャッフル,昇順)
				}
				
				代入ｚ:(0)
				
				代入ｆ:(52)//残りカード
				
				代入ｇ:(0)//使われたカードフラグ１
				代入ｈ:(0)//使われたカードフラグ１
				
				

				
				代入ｋ:(0)//子・Ａ枚数
				代入ｌ:(0)//親・Ａ枚数
				
				
				
				代入ｍ:(0)//子・枚数
				代入ｎ:(0)//親・枚数
				
				
				代入ｏ:(0)//子・１
				代入ｐ:(0)//子・２
				代入ｑ:(0)//子・３
				代入ｒ:(0)//子・４
				
				代入ｓ:(0)//親・１
				代入ｔ:(0)//親・２
				代入ｕ:(0)//親・３
				代入ｖ:(0)//親・４
				
				代入ａ:(0)
				代入ｂ:(0)
				代入ｃ:(0)
				代入ｄ:(0)
				代入ｅ:(0)

				
				代入ｘ:(0)//子の点
				代入ｙ:(0)//親の点
				
				コンテナ選択:(人物Ｅ,先頭)
				コンテナ選抜:(削る,1)
				代入ａ:(人物Ｅ.人物番号)%(13)
				代入ａ:(ａ)+(1)
				ＳＥスタート:(札配り音)
				ナレーション:[[シュッ！]]
				ひとりごと:[[<ａ>か]]
				文字列設定:(文字列Ｂ)[[<ａ>]]
				調査:(ａ)>=(10)
				分岐:(真){
					代入ａ:(10)
				}
				調査:(ａ)==(1)
				分岐:(真){
					代入ａ:(11)
					代入ｋ:(1)
				}
				
				
				代入ｏ:(ａ)
				代入ｍ:(ｍ)+(1)
				
				
				コンテナ選択:(人物Ｅ,先頭)
				コンテナ選抜:(削る,1)
				代入ａ:(人物Ｅ.人物番号)%(13)
				代入ａ:(ａ)+(1)
				文字列設定:(文字列Ａ)[[<ａ>]]
				ＳＥスタート:(札配り音)
				ナレーション:[[シュッ！]]
				会話:(人物Ａ,主人公)[[<ａ>デース]]
				調査:(ａ)>=(10)
				分岐:(真){
					代入ａ:(10)
				}
				調査:(ａ)==(1)
				分岐:(真){
					代入ａ:(11)
					代入ｌ:(1)
				}
				
				代入ｓ:(ａ)
				代入ｎ:(ｎ)+(1)
				会話:(ラファエル,主人公)[[さあさあ、いくら賭けマスカー？\n親：<文字列Ａ>\n子：<文字列Ｂ>]]
				
				代入ｃ:(20)
				
				調査:(イベントフラグ::汎用：ブラックジャック・ラファエル・おけら)
				分岐:(真){
					代入ｃ:(200)
				}
				
				調査:(主人公.所持金)<(ｃ)
				分岐:(真){
					代入ｃ:(主人公.所持金)
				}
				調査:(主人公.所持金)<(ｗ)
				分岐:(真){
					代入ｗ:(主人公.所持金)
				}
				
				ループ:{
					更新:(イベントフラグ::ラファとＢＪ・入力完了)(0)
					調査:(イベントフラグ::ラファとＢＪ・数値入力)==(1)
					分岐:(真){
						文字列設定:(Ｅｍｐｔｙ)[[＠千＠数値入力＠ｗ＠1＠ｃ＠ｗ＠貫＠いくら賭けますか？]]
						分岐:(真){
							更新:(イベントフラグ::ラファとＢＪ・入力完了)(1)
						}
					}
					分岐:(偽){
						ループ:{
							
							選択:[[<ｗ>貫]][[＋１貫]][[＋５貫]][[−１貫]][[−５貫]][[中止]]
							分岐:([[<ｗ>貫]]){
								更新:(イベントフラグ::ラファとＢＪ・入力完了)(1)
							}
							ブロック脱出:([[<ｗ>貫]])
							分岐:([[＋１貫]]){
								代入ａ:(1)
							}
							分岐:([[＋５貫]]){
								代入ａ:(5)
							}
							分岐:([[−１貫]]){
								代入ａ:(-1)
							}
							分岐:([[−５貫]]){
								代入ａ:(-5)
							}
							ブロック脱出:([[中止]])
							
							代入ｗ:(ｗ)+(ａ)
							調査:(ｗ)>(20)
							分岐:(真){
								代入ｗ:(20)
								
							}
							調査:(ｗ)<(1)
							分岐:(真){
								代入ｗ:(1)
							}
							
							調査:(ｗ)>(主人公.所持金)
							分岐:(真){
								代入ｗ:(主人公.所持金)
							}
							
							調査:(イベントフラグ::ラファとＢＪ・入力完了)==(1)
							ブロック脱出:(真)
						}

						
					}
					
					調査:(イベントフラグ::ラファとＢＪ・入力完了)==(1)
					ブロック脱出:(真)
					
					会話:(ラファエル,主人公)[[もうカードを切ってしまってマース\n逃げるコトはデキませんヨ]]
					調査:(主人公.所持金)>(0)
					分岐:(偽){
						ひとりごと:[[いや、その……\nもう鼻血も出んのだが……]]
						会話:(ラファエル,主人公)[[Ｏｈ〜？　鼻血デスか？\nそれは恐ろしいデスネー\nワカリマシタ、止めまショウ]]
						ひとりごと:[[（なんだかよくわからんが\n　とりあえず止めてくれるらしい）]]
						代入ｚ:(1)
					}
					ブロック脱出:(偽)
					
					会話選択:(ラファエル,主人公)[[さあさあ、いくら賭けマスカー？\n親：<文字列Ａ>\n子：<文字列Ｂ>]]
				}
				
				

				調査:(ｚ)!=(0)
				ブロック脱出:(真)
				代入ｚ:(0)
				
				コンテナ選択:(人物Ｅ,先頭)
				コンテナ選抜:(削る,1)
				代入ａ:(人物Ｅ.人物番号)%(13)
				代入ａ:(ａ)+(1)
				ＳＥスタート:(札配り音)
				ナレーション:[[シュッ！]]
				ひとりごと:[[（ふむ、<ａ>か……）]]
				文字列設定:(文字列Ｂ)[[<文字列Ｂ>、<ａ>]]
				調査:(ａ)>=(10)
				分岐:(真){
					代入ａ:(10)
				}
				調査:(ａ)==(1)
				分岐:(真){
					代入ａ:(11)
					代入ｋ:(ｋ)+(1)
				}
				
				
				代入ａ:(ａ)*(64)
				代入ｏ:(ｏ)+(ａ)
				代入ｍ:(ｍ)+(1)
				//ひとりごと:[[<ｏ>]]
				
				コンテナ選択:(人物Ｅ,先頭)
				コンテナ選抜:(削る,1)
				代入ａ:(人物Ｅ.人物番号)%(13)
				代入ａ:(ａ)+(1)
				ＳＥスタート:(札配り音)
				ナレーション:[[シュッ！]]
				会話:(ラファエル,主人公)[[コレはおミセできまセーン]]
				文字列設定:(文字列Ｃ)[[<文字列Ａ>、？]]
				文字列設定:(文字列Ｅ)[[<文字列Ｃ>]]
				文字列設定:(文字列Ａ)[[<文字列Ａ>、<ａ>]]
				調査:(ａ)>=(10)
				分岐:(真){
					代入ａ:(10)
				}
				調査:(ａ)==(1)
				分岐:(真){
					代入ａ:(11)
					代入ｌ:(ｌ)+(1)
				}
				
				代入ａ:(ａ)*(64)
				代入ｓ:(ｓ)+(ａ)
				代入ｎ:(ｎ)+(1)
				
				代入ａ:(ｏ)%(64)
				調査:(ｋ)==(1)
				調査:(ａ)==(10)
				分岐:(真){
					
					代入ｚ:(1)
				}
				
				代入ａ:(ｓ)%(64)
				調査:(ｌ)==(1)
				調査:(ａ)==(10)
				分岐:(真){
					代入ｚ:(ｚ)+(2)
				}
				
				
				
				代入ａ:(ｏ)%(64)
				代入ｂ:(ｏ)/(64)
				代入ａ:(ａ)+(ｂ)
				
				調査:(ａ)>(21)
				分岐:(真){
					代入ａ:(ａ)-(10)
				}
				
				文字列設定:(文字列Ｄ)[[<文字列Ｂ>：合計<ａ>]]
				文字列設定:(文字列Ｃ)[[<文字列Ｃ>：合計？]]
				
				
				会話:(ラファエル,主人公)[[ハイ、ハイ\n親：<文字列Ｃ>\n子：<文字列Ｄ>]]
				
				
				調査:(ｚ)!=(0)
				分岐:(真){
					代入ａ:(ｗ)*(15)
					代入ａ:(ａ)/(10)
					調査:(ｚ)==(1)
					分岐:(真){
						ＳＥスタート:(賭場スペシャル�B)
						ひとりごと:[[見よ！　ブラックジャックだ！]]
						会話:(ラファエル,主人公)[[Ｏｈ！　ｓｈｉｔ！……\nい、イエ……　何でもゴゼマセン……]]
						代入ｊ:(ｊ)-(ａ)
						ループ:{
							調査:(ａ)>(0)
							ブロック脱出:(偽)
							所持金変更:(1)
							代入ａ:(ａ)-(1)
						}
						
					}
					調査:(ｚ)==(2)
					分岐:(真){
						ＳＥスタート:(プレイヤー敗北)
						会話:(ラファエル,主人公)[[ハッハッハ！！\nブラックジャックなのデース！]]
						代入ｊ:(ｊ)+(ａ)
						ループ:{
							調査:(ａ)>(0)
							ブロック脱出:(偽)
							所持金変更:(-1)
							代入ａ:(ａ)-(1)
						}
						
					}
					調査:(ｚ)==(3)
					分岐:(真){
						ＳＥスタート:(賭場スペシャル�B)
						ひとりごと:[[うりゃあ！　ブラックジャックだぜ！]]
						ＳＥスタート:(失敗音)
						会話:(ラファエル,主人公)[[ワタシもブラックジャックなのデース！\nコレは引き分けデース！]]
					}
					
					
				}
				分岐:(偽){//ブラックジャックで決まらなかったので通常役でチェック
					代入ｇ:(0)//子上がりフラグ
					代入ｈ:(0)//親上がりフラグ
				
					ループ:{
						
						調査:(コンテナカウンタ)>=(2)
						分岐:(偽){
							会話:(ラファエル,主人公)[[おおっと！　カードが足りまセーン\nシカタナイ、これで勝負といきまショー]]
						}
						ブロック脱出:(偽)
						
						
						代入ｚ:(0)
						調査:(ｇ)==(0)
						分岐:(真){
							会話選択:(ラファエル,主人公)[[もう一枚とりマースか？\n親：<文字列Ｃ>\n子：<文字列Ｄ>]]
							選択:[[ヒット]][[スタンド]]
							分岐:([[スタンド]]){
								代入ｇ:(1)
							}
						}
						
						調査:(ｇ)==(0)
						分岐:(真){//子がカードを引く
							ＳＥスタート:(札配り音)
							ナレーション:[[パチリ！]]
							コンテナ選択:(人物Ｅ,先頭)
							コンテナ選抜:(削る,1)
							
							代入ａ:(人物Ｅ.人物番号)%(13)
							
							代入ａ:(ａ)+(1)
							
							文字列設定:(文字列Ｂ)[[<文字列Ｂ>、<ａ>]]
							ひとりごと:[[<ａ>が来たか\n「<文字列Ｂ>」]]
							調査:(ａ)>(10)
							分岐:(真){
								代入ａ:(10)
							}
							調査:(ａ)==(1)
							分岐:(真){
								代入ｋ:(ｋ)+(1)
								代入ａ:(11)
							}
							
							代入ｂ:(ｍ)/(4)
							代入ｃ:(ｍ)%(4)
							
							代入ｍ:(ｍ)+(1)
							
							代入ｄ:(1)
							ループ:{
								調査:(ｃ)>(0)
								ブロック脱出:(偽)
								代入ｃ:(ｃ)-(1)
								代入ｄ:(ｄ)*(64)
							}
							代入ｅ:(ｄ)*(ａ)
							//ひとりごと:[[<ｍ>枚目は<ａ>である\n<ｄ>＊<ａ>＝<ｅ>\n]]
							
							代入ａ:(ｅ)
							場合別:(ｂ){
								場合分岐:(0){
									代入ｂ:(ｏ)
									代入ｏ:(ｏ)+(ａ)
									//ひとりごと:[[ｏ＝<ｂ>＋<ａ>]]
								}
								場合分岐:(1){
									代入ｐ:(ｐ)+(ａ)
									//ひとりごと:[[ｐ＝<ｐ>]]
								}
								場合分岐:(2){
									代入ｑ:(ｑ)+(ａ)
									//ひとりごと:[[ｑ＝<ｑ>]]
								}
								場合分岐:(3){
									代入ｒ:(ｒ)+(ａ)
									//ひとりごと:[[ｒ＝<ｒ>]]
								}
							}
						}//子がカードを引く

						ブロック開始:{//子の点計算
							代入ｅ:(0)
							代入ｘ:(0)
							代入ｄ:(ｍ)//数え上げ残り枚数
							ループ:{
								調査:(ｄ)>(0)
								ブロック脱出:(偽)
								

								
								代入ｂ:(ｄ)-(1)
								代入ｃ:(ｂ)%(4)
								代入ｂ:(ｂ)/(4)
								
								
								場合別:(ｂ){
									場合分岐:(0){
										代入ａ:(ｏ)
									}
									場合分岐:(1){
										代入ａ:(ｐ)
										//ひとりごと:[[ｐ：<ｃ>：<ｄ>]]
									}
									場合分岐:(2){
										代入ａ:(ｑ)
									}
									場合分岐:(3){
										代入ａ:(ｒ)
									}
								}
								
								代入ｃ:(ｃ)+(1)
								
								代入ｂ:(1)
								ループ:{
									調査:(ｃ)>(0)
									ブロック脱出:(偽)
									
									代入ｂ:(ｂ)*(64)
									
									代入ｃ:(ｃ)-(1)
								}
								
								代入ｃ:(ａ)%(ｂ)
								//ひとりごと:[[ｃ（<ｃ>）＝<ａ>％<ｂ>]]
								
								代入ｂ:(ｂ)/(64)
								
								代入ａ:(ｃ)/(ｂ)
								//ひとりごと:[[<ｃ>を<ｂ>で割る＝<ａ>]]

								//ひとりごと:[[<ａ>＋＋]]
								代入ｘ:(ｘ)+(ａ)
								
								代入ｄ:(ｄ)-(1)
							}
							
							代入ｂ:(ｋ)
							
							調査:(ｘ)>(21)
							分岐:(真){
								ループ:{
									調査:(ｂ)>(0)
									ブロック脱出:(偽)
									代入ｂ:(ｂ)-(1)
									代入ｘ:(ｘ)-(10)
									調査:(ｘ)<=(21)
									ブロック脱出:(真)
								}
							}
							
							
							
							文字列設定:(文字列Ｄ)[[<文字列Ｂ>：合計<ｘ>]]
							
							調査:(ｘ)>(21)
							分岐:(真){
								代入ｇ:(1)
								代入ｚ:(1)
								
								代入ｈ:(0)
								代入ａ:(Ｒｎｄ１００)%(5)
								条件ブロック:(ａ)==(0){
									ひとりごと:[[（げぇ！　２１を超えてしまった！……）]]
								}
								条件ブロック:(ａ)==(1){
									ひとりごと:[[（ぐは！　２１を超えているな……）]]
								}
								条件ブロック:(ａ)==(2){
									ひとりごと:[[（しまった！　２１を超えておるぞ！……）]]
								}
								条件ブロック:(ａ)==(3){
									ひとりごと:[[（うむむ……　２１を超えてしまった……）]]
								}
								条件ブロック:(ａ)==(4){
									ひとりごと:[[（うほ！　やぶ蛇で２１を超えてないか？）]]
								}
								
								
							}
		
						}//子の点

						ブロック開始:{//親の点
							代入ｅ:(0)
							代入ｙ:(0)
							代入ｄ:(ｎ)//数え上げ残り枚数
							ループ:{
								調査:(ｄ)>(0)
								ブロック脱出:(偽)
								
	
								
								代入ｂ:(ｄ)-(1)
								代入ｃ:(ｂ)%(4)
								代入ｂ:(ｂ)/(4)
								
								
								場合別:(ｂ){
									場合分岐:(0){
										代入ａ:(ｓ)
									}
									場合分岐:(1){
										代入ａ:(ｔ)
									}
									場合分岐:(2){
										代入ａ:(ｕ)
									}
									場合分岐:(3){
										代入ａ:(ｖ)
									}
								}
								
								代入ｃ:(ｃ)+(1)
								代入ｂ:(1)
								ループ:{
									調査:(ｃ)>(0)
									ブロック脱出:(偽)
									
									代入ｂ:(ｂ)*(64)
									
									代入ｃ:(ｃ)-(1)
								}
								代入ｃ:(ａ)%(ｂ)
								代入ｂ:(ｂ)/(64)
								代入ａ:(ｃ)/(ｂ)
								代入ｙ:(ｙ)+(ａ)
								
								代入ｄ:(ｄ)-(1)
							}
							
							代入ｂ:(ｌ)
							調査:(ｙ)>(21)
							分岐:(真){
								ループ:{
									調査:(ｂ)>(0)
									ブロック脱出:(偽)
									代入ｂ:(ｂ)-(1)
									代入ｙ:(ｙ)-(10)
									調査:(ｙ)<=(21)
									ブロック脱出:(真)
								}
							}
							
							調査:(ｙ)>(21)
							分岐:(真){
								代入ｚ:(2)
							}
							代入ｈ:(1)
							調査:(ｚ)==(0)
							調査:(ｙ)<(17)
							分岐:(真){
								代入ｈ:(0)
								代入ａ:(Ｒｎｄ１００)%(5)
								条件ブロック:(ａ)==(0){
									会話:(人物Ａ,主人公)[[ワタシはもう一枚貰いマース]]
								}
								条件ブロック:(ａ)==(1){
									会話:(人物Ａ,主人公)[[ワタシはさらに一枚貰いマース]]
								}
								条件ブロック:(ａ)==(2){
									会話:(人物Ａ,主人公)[[ワタシはもっと欲しいデース]]
								}
								条件ブロック:(ａ)==(3){
									会話:(人物Ａ,主人公)[[ドンドン持って来いデース！]]
								}
								条件ブロック:(ａ)==(4){
									会話:(人物Ａ,主人公)[[マダ足りませんネ、もう一枚デース]]
								}
								
								
								文字列設定:(文字列Ｅ)[[<文字列Ｅ>、？]]
								
							}
							
							
							
							文字列設定:(文字列Ｃ)[[<文字列Ｅ>：合計？]]
							
						}//親の得点〆
						
						ＡＮＤ調査:{
							調査:(ｚ)==(0)
							調査:(ｈ)==(0)
						}
						分岐:(真){//親がカードを引く
							ＳＥスタート:(札配り音)
							ナレーション:[[パチリっ]]//竜馬奇士Ｏフ先生に捧ぐ
							コンテナ選択:(人物Ｅ,先頭)
							コンテナ選抜:(削る,1)
							
							代入ａ:(人物Ｅ.人物番号)%(13)
							//代入ａ:(0)
							代入ａ:(ａ)+(1)
							文字列設定:(文字列Ａ)[[<文字列Ａ>、<ａ>]]

							
							調査:(ａ)==(1)
							分岐:(真){
								代入ｌ:(ｌ)+(1)
								代入ａ:(10)
							}
							
							代入ｂ:(ｎ)/(4)
							代入ｃ:(ｎ)%(4)
							
							代入ｎ:(ｎ)+(1)
							
							代入ｄ:(1)
							ループ:{
								調査:(ｃ)>(0)
								ブロック脱出:(偽)
								代入ｃ:(ｃ)-(1)
								代入ｄ:(ｄ)*(64)
							}
							代入ｅ:(ｄ)*(ａ)
							
							代入ａ:(ｄ)*(ａ)
							場合別:(ｂ){
								場合分岐:(0){
									代入ｓ:(ｓ)+(ａ)
								}
								場合分岐:(1){
									代入ｔ:(ｔ)+(ａ)
								}
								場合分岐:(2){
									代入ｕ:(ｕ)+(ａ)
								}
								場合分岐:(3){
									代入ｖ:(ｖ)+(ａ)
								}
							}
							
						}
						
						
						
						

						
						ＡＮＤ調査:{
							調査:(ｇ)!=(0)
							調査:(ｈ)!=(0)
						}
						ブロック脱出:(真)					
						
						調査:(ｚ)!=(0)
						ブロック脱出:(真)
						
					}//ループ終了
					
					ブロック開始:{//子の点計算
						代入ｅ:(0)
						代入ｘ:(0)
						代入ｄ:(ｍ)//数え上げ残り枚数
						ループ:{
							調査:(ｄ)>(0)
							ブロック脱出:(偽)
							

							
							代入ｂ:(ｄ)-(1)
							代入ｃ:(ｂ)%(4)
							代入ｂ:(ｂ)/(4)
							
							
							場合別:(ｂ){
								場合分岐:(0){
									代入ａ:(ｏ)
								}
								場合分岐:(1){
									代入ａ:(ｐ)
									//ひとりごと:[[ｐ：<ｃ>：<ｄ>]]
								}
								場合分岐:(2){
									代入ａ:(ｑ)
								}
								場合分岐:(3){
									代入ａ:(ｒ)
								}
							}
							
							代入ｃ:(ｃ)+(1)
							
							代入ｂ:(1)
							ループ:{
								調査:(ｃ)>(0)
								ブロック脱出:(偽)
								
								代入ｂ:(ｂ)*(64)
								
								代入ｃ:(ｃ)-(1)
							}
							
							代入ｃ:(ａ)%(ｂ)
							//ひとりごと:[[ｃ（<ｃ>）＝<ａ>％<ｂ>]]
							
							代入ｂ:(ｂ)/(64)
							
							代入ａ:(ｃ)/(ｂ)
							//ひとりごと:[[<ｃ>を<ｂ>で割る＝<ａ>]]

							
							代入ｘ:(ｘ)+(ａ)
							
							代入ｄ:(ｄ)-(1)
						}
						
						代入ｂ:(ｋ)
						
						調査:(ｘ)>(21)
						分岐:(真){
							ループ:{
								調査:(ｂ)>(0)
								ブロック脱出:(偽)
								代入ｂ:(ｂ)-(1)
								代入ｘ:(ｘ)-(10)
								調査:(ｘ)<=(21)
								ブロック脱出:(真)
							}
						}
						

						
						文字列設定:(文字列Ｄ)[[<文字列Ｂ>：合計<ｘ>]]

	
					}//子の点
					
					ブロック開始:{//親の点
						代入ｅ:(0)
						代入ｙ:(0)
						代入ｄ:(ｎ)//数え上げ残り枚数
						ループ:{
							調査:(ｄ)>(0)
							ブロック脱出:(偽)
							

							
							代入ｂ:(ｄ)-(1)
							代入ｃ:(ｂ)%(4)
							代入ｂ:(ｂ)/(4)
							
							
							場合別:(ｂ){
								場合分岐:(0){
									代入ａ:(ｓ)
								}
								場合分岐:(1){
									代入ａ:(ｔ)
								}
								場合分岐:(2){
									代入ａ:(ｕ)
								}
								場合分岐:(3){
									代入ａ:(ｖ)
								}
							}
							
							代入ｃ:(ｃ)+(1)
							代入ｂ:(1)
							ループ:{
								調査:(ｃ)>(0)
								ブロック脱出:(偽)
								
								代入ｂ:(ｂ)*(64)
								
								代入ｃ:(ｃ)-(1)
							}
							代入ｃ:(ａ)%(ｂ)
							代入ｂ:(ｂ)/(64)
							代入ａ:(ｃ)/(ｂ)
							代入ｙ:(ｙ)+(ａ)
							
							代入ｄ:(ｄ)-(1)
						}
						
						代入ｂ:(ｌ)

						
						調査:(ｙ)>(21)
						分岐:(真){
							ループ:{
								調査:(ｂ)>(0)
								ブロック脱出:(偽)
								代入ｂ:(ｂ)-(1)
								代入ｙ:(ｙ)-(10)
								調査:(ｙ)<=(21)
								ブロック脱出:(真)
							}
						}
						
						文字列設定:(文字列Ｃ)[[<文字列Ａ>：合計<ｙ>]]
						
					}//親の点
					
					調査:(ｘ)>(21)
					分岐:(真){
						代入ｚ:(3)
					}
					分岐:(偽){
						調査:(ｙ)>(21)
						分岐:(真){
							代入ｚ:(4)
						}
						分岐:(偽){
							代入ｚ:(0)
						}
					}

					
					
					
	
					調査:(ｚ)==(0)
					分岐:(偽){
						場合別:(ｚ){
							場合分岐:(3){
								ＳＥスタート:(プレイヤー敗北)
								会話:(ラファエル,主人公)[[Ｏｈ〜\nヨクバリすぎネ！\n（(主人公)は<ｘ>、(人物Ａ)は<ｙ>）]]
								代入ｊ:(ｊ)+(ｗ)
								代入ａ:(ｗ)
								ループ:{
									調査:(ａ)>(0)
									ブロック脱出:(偽)
									所持金変更:(-1)
									
									代入ａ:(ａ)-(1)
								}
								
							}
							場合分岐:(4){
								ＳＥスタート:(プレイヤー勝利)
								会話:(ラファエル,主人公)[[Ｏｈ〜Ｎｏ〜！　ワタシは２１を超えタヨ！\nウーン、ラックがなかったネ！\n（<ｙ>）<文字列Ａ>]]
								代入ａ:(ｗ)
								ループ:{
									調査:(ａ)>(0)
									ブロック脱出:(偽)
									所持金変更:(1)
									
									代入ａ:(ａ)-(1)
								}
								代入ｊ:(ｊ)-(ｗ)
							}
						}
						
	
					}
					分岐:(真){
						
	
						
						会話:(ラファエル,主人公)[[では、勝負といきマショー！\nワクワクしますネー！]]
						会話:(ラファエル,主人公)[[ワタシは<ｙ>デース！\n「<文字列Ａ>」]]
						会話:(主人公,ラファエル)[[{一人称}は<ｘ>{だ}\n「<文字列Ｂ>」]]
						
						調査:(ｘ)>(ｙ)
						分岐:(真){
							ＳＥスタート:(プレイヤー勝利)
							会話:(ラファエル,主人公)[[お見事デース！\nワタシの負けデース]]
							代入ａ:(ｗ)
							場合別:(ｍ){//こんな役があるのかどうか、本当のところは知りません
								場合分岐:(3){
									代入ａ:(ｏ)%(64)
									代入ｂ:(ｏ)%(4096)
									代入ｂ:(ｂ)/(64)
									代入ｃ:(ｏ)%(262144)
									代入ｃ:(ｃ)/(4096)
									調査:(ａ)==(7)
									調査:(ｂ)==(7)
									調査:(ｃ)==(7)
									分岐:(真){
										会話:(ラファエル,主人公)[[スリーセブン！！\n７７７倍役デース！！\n寿命が７年は縮みましたヨ！！]]
										代入ａ:(ａ)*(777)
									}
								}
								
								場合分岐:(5){//大航海時代IIへのオマージュ
									会話:(ラファエル,主人公)[[オ〜！　エンリケ王子！！\n三倍役の五枚札デスカ！\nアナタこそ海の男デース！]]
									代入ａ:(ａ)*(3)
								}
								場合分岐:(6){//ここ以下の役はテケトーです
									会話:(ラファエル,主人公)[[オ〜！　イカレポンチ！\n五倍役のシックスカードかヨ！\nコレはたマリまセーン！]]
									代入ａ:(ａ)*(5)
								}
								場合分岐:(7){
									会話:(ラファエル,主人公)[[オ〜！　クレイジー！！\n１０倍役のセブンス！\nドウにでもしてくだサーイ！！]]
									代入ａ:(ａ)*(10)
								}
								場合分岐:(8){
									会話:(ラファエル,主人公)[[オ〜！　クレイジー！！\n２０倍役の八枚札デース！\nフェルナンドもはだしで逃げ出しマース]]
									代入ａ:(ａ)*(20)
								}
								場合分岐:(9){
									会話:(ラファエル,主人公)[[オ〜！　オ〜！　オ〜！\n５０倍役のナインス！\nそんなはずナインス、なんチテ……]]
									代入ａ:(ａ)*(50)
								}
								場合分岐:(10){
									会話:(ラファエル,主人公)[[アッハッハ！　アッハッハ！……\n１００倍役の１０枚札デース！\nナンデモ持っていってクダサーイ！]]
									代入ａ:(ａ)*(100)
								}

								場合分岐:(11){//1・1・1・1・2・2・2・2・3・3・3という、いつ自分の脳天に直径10cmの隕石が落ちてきてもおかしくない確率です(根拠レス)
									会話:(ラファエル,主人公)[[神よユルシを！！\nこのようなコトに奇跡を起こすトハ\nいったい何にお怒りなのデスカー！！！]]
									代入ａ:(ｊ)
								}
								場合分岐:(その他){
									調査:(ｍ)>(11)//アリエナ〜イ
									分岐:(真){
										会話:(ラファエル,主人公)[[アリエナ〜イ！！\nこのカードはイカサマネ！\nもう終わりデース！！]]
										ひとりごと:[[いや……\n{一人称}にそんなこといわれても……]]
										代入ｊ:(-1)
										代入ａ:(0)
									}
								}
								
							}
							代入ｊ:(ｊ)-(ａ)
							ループ:{
								調査:(ａ)>(0)
								ブロック脱出:(偽)
								所持金変更:(1)
								
								代入ａ:(ａ)-(1)
							}
							
							
							
						}
						分岐:(偽){
							調査:(ｘ)==(ｙ)
							分岐:(真){
								ＳＥスタート:(失敗音)
								会話:(ラファエル,主人公)[[オヤ、同点デスカ？\nでは引き分けデース！]]
							}
							分岐:(偽){
								ＳＥスタート:(プレイヤー敗北)
								会話:(ラファエル,主人公)[[ハッハッハ！\nワタシの勝ちデース！]]
								代入ｊ:(ｊ)+(ｗ)
								代入ａ:(ｗ)
								ループ:{
									調査:(ａ)>(0)
									ブロック脱出:(偽)
									所持金変更:(-1)
									
									代入ａ:(ａ)-(1)
								}
								
							}
						}
	
						
					}//勝負
				}//ブラックジャックでは決まらなかったので通常役でチェック
				
				
				
				

				
				
				
				
				調査:(ｊ)<(0)
				分岐:(真){
					ＳＥスタート:(賭場スペシャル�B)
					会話:(ラファエル,主人公)[[Ｏｈ！　Ｎｏ！\nご破算デース！\nもう鼻毛も抜けまセーン！]]
					調査:(イベントフラグ::汎用：ブラックジャック・ラファエル・おけら)
					分岐:(真){
						会話:(ラファエル,主人公)[[一度ならず二度までも……\n{二人称}こそ、真の「ギャンブルア」デース！]]
						調査:(カード::天下一博徒.所持フラグ)==(1)
						分岐:(偽){
							ＳＥスタート:(通常札獲得音)
							スチル表示:(カード,天下一博徒,無効,無効,回転ワイプ)
							会話:(ラファエル,主人公)[[尊敬の印として\nこのトランプセットを差し上げマース！]]
							更新:(カード::天下一博徒.所持フラグ)(1)
							スチル消去:(ラインワイプ)
						}
						
					}
					更新:(イベントフラグ::汎用：ブラックジャック・ラファエル・おけら)(1)
					次の場面:(拠点内画面)
				}
				ブロック脱出:(真)
				
				調査:(ｉ)>(60)
				分岐:(真){
					会話:(ラファエル,主人公)[[うーん……\n{二人称名前}はタフデスネ……\n若い頃のクラウを思い出すカモ……]]
					
					会話:(ラファエル,主人公)[[お付き合いシタイのはヤマヤマだけれド\n愛しのシャルロッテがボクを待っているノデ\n残念デスが、ここまでにシマショー]]
					ひとりごと:[[なに？……\nならば仕方あるまい……]]
					
					会話:(ラファエル,主人公)[[さよならトリアングロ！\nまた来てクァドリアテロ！]]
					次の場面:(拠点内画面)
				}
				ブロック脱出:(真)
				
				会話可否選択:(ラファエル,主人公)[[もう一回やりまショーカ？]]
				分岐:(否){
					会話:(ラファエル,主人公)[[Ｏｈ〜　ソウデスカ……\nまたブラックジャックしましょうネ！\nイイデスネ、待ってマスヨ！]]
					次の場面:(拠点内画面)
				}
				ブロック脱出:(否)
			}
		}
	}

//ウェイト:(-??)を使ったインタラクティブイベントの一例
//ウェイト:(-??)は、割り込み処理に負荷かかる分、指定した時間よりも待たされる時間が長くなる
//どれくらい長くなるかは環境依存かもしれない（ので、実際にはちょっと使いにくい）

//更新履歴：
//2008.09.??　ver0.10	仔細忘却
//2009.08.??　ver0.40	ＱＵＩＺゲームとしてまともに動作するか調査していなかったので、正答を追加してデバッグしてみた

	イベント:汎用：プレハブ小屋・戦国ＱＵＩＺショー{
		属性:一度だけ
		発生契機:拠点内画面表示後(京の町)
		発生条件:{
			調査:(主人公)!=(安宅冬康)
			調査:(主人公)!=(直江兼続)
			調査:(Ｒｎｄ１００)<(1)
		}
		スクリプト:{
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[戦国ＱＵＩＺショー！]]//ラファエロは桃色戦国時代へのオマージュ
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[とつぜんデスガ\nミヤケ（三宅）ＱＵＩＺデース]]
			会話:(安宅冬康,ラファエル)[[ミヤケＱＵＩＺとは……\nなん{だ}？]]//三択といえばアンタック、アンタックといえば安宅という、昭和末期の薫りただよう連想(意味不明)
			会話:(直江兼続,ラファエル)[[ほほう、面白そうな話だの\n{一人称}も参加したいだの]]//いつかどこかで見た、兼続が「だのだの」言っている画像へのオマージュ。その後、それの元ネタが藤沢周平の『密謀』だと知る(多分)。
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[ノープログラムデース！]]
			会話:(安宅冬康,ラファエル)[[なにか違うような……]]
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[コマカイことは、キニシナーイ！]]
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[制限ジカンは５秒デース\nデハ、第一問、イキマスヨ！]]
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[アア、ソウソウ\nこのスイッチはちょっと接触がワルいネ\n回答するときはバシバシ連打シテネ]]
			ＳＥスタート:(ミニゲーム開始音)
			変名会話選択:(ラファエル,主人公,[[ラファ]],[[エロ]])[[平戸の町の南蛮商人リノレさん\nそのリノレさんのダンナさんは\nいったい誰デショーカ？]]
			ウェイト:(3.0)
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[サア、回答してくだサーイ！]]
			代入ｚ:(0)
			代入経過時間:(0)
			代入経過時間:(0)
			代入ｂ:(経過時間)
			代入ｃ:(0)
			ループ:{
				代入ｄ:(経過時間)-(ｂ)
				代入ｄ:(50)-(ｄ)
				代入ｅ:(ｄ)%(10)
				代入ｄ:(ｄ)/(10)

				ひとりごと選択:[[残り<ｄ>．<ｅ>秒…]]
				代入ｃ:(経過時間)
				ウェイト:(-1)
				代入ｃ:(経過時間)-(ｃ)
				調査:(ｃ)<(15)//環境依存かもしれない
				分岐:(真){
					ＳＥスタート:(カード勝負めくり)
					ひとりごと選択:[[ひらめいた！]]
					ウェイト:(-1)
					代入ａ:(1)
					代入ｚ:(1)
				}
				ブロック脱出:(真)
				
				代入ｄ:(直江兼続.素知謀)/(10)
				調査:(ｄ)>(Ｒｎｄ１００)
				分岐:(真){
					ＳＥスタート:(カード勝負めくり)
					会話選択:(直江兼続,ラファエル)[[わかっただの！]]
					ウェイト:(-1)
					代入ａ:(3)
					代入ｚ:(1)
				}
				ブロック脱出:(真)
				
				代入ｄ:(安宅冬康.素知謀)/(10)
				調査:(ｄ)>(Ｒｎｄ１００)
				分岐:(真){
					ＳＥスタート:(カード勝負めくり)
					会話選択:(安宅冬康,ラファエル)[[わかったぞ！]]
					ウェイト:(-1)
					代入ａ:(4)
					代入ｚ:(1)
				}
				ブロック脱出:(真)
				
				代入ｄ:(経過時間)-(ｂ)
				調査:(ｄ)<(50)
				分岐:(偽){

					代入ａ:(-１)
				}
				ブロック脱出:(偽)
				
				調査:(ｚ)!=(0)
				ブロック脱出:(真)
			}
			場合別:(ａ){
				場合分岐:(1){
					代入ｂ:(経過時間)
					選択:[[冒険野郎・カミトロ]][[エロネスト・ロリス]][[知らん]]//正答は無いわけです。
					//選択:[[冒険野郎・カミトロ]][[エロネスト・ロリス]][[知らん]][[巻き毛のカミロ]]//デバッグ用
					
					
					分岐:([[冒険野郎・カミトロ]]){
						ひとりごと:[[彼女と同じジェノバ出身で\n天下一冒険家と名高い\n冒険野郎・カミトロに決まっておる！]]
					}
					分岐:([[エロネスト・ロリス]]){
						ひとりごと:[[アムストダムス出身の両刀使いであり\n○児性愛者にして天下一マッパーと呼ばれる\nエロネスト・ロリスじゃろう！]]
					}
					分岐:([[知らん]]){
						ひとりごと:[[知らん！]]
					}
					他岐:{//これが選ばれることは無い
						ひとりごと:[[巻き毛のカミロじゃ！\n間違いないっ！]]
						変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[巻き毛のカミロと言われてモ……\nドコのダレデスカ、それハ？]]
						ひとりごと:[[カミロじゃ！\nカミロじゃ！　カミロじゃ！]]
						変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[………………]]
						ナレーション:[[ピンポンっ]]
						
						ひとりごと:[[やったぞ！]]
						
						
						会話:(安宅冬康,ラファエル)[[おいっ！\n本当に今のが正解なのか？]]
						会話:(直江兼続,ラファエル)[[時間の無駄だの]]
						変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[Ｏｈ〜、ヨクわかりマセーン]]
						
						ナレーション:[[しゅたたっ]]
						
						ひとりごと:[[お、おい！\nどこへ行くっ……]]
						会話:(安宅冬康,ラファエル)[[それじゃあ、{一人称}も……]]
						会話:(直江兼続,ラファエル)[[{一人称}は本当はこんな所来とう無かっただの！]]//2009年大河ドラマのセリフとのこと(未見)
						
						ナレーション:[[しゅたたっ]]
						ひとりごと:[[お、おい！\nお主たちまでっ！……]]
						
						ひとりごと:[[く、くそー！]]
						強制移動:(宇須岸の町)
						
					}
					
					ナレーション:[[ブブー]]
					代入ｂ:(経過時間)-(ｂ)
					調査:(ｂ)>(30)
					分岐:(真){
						変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[時間切れデース！\nこのオ馬鹿ヤロウ！]]
						ＳＥスタート:(バカにする（男）)
					}
					ひとりごと:[[むぅ……]]
				}
				場合分岐:(3){
				会話:(直江兼続,ラファエル)[[お菊さまに違いないだの]]
				ナレーション:[[ブブー]]
				会話:(直江兼続,ラファエル)[[む……お船の間違いであったのかだの……]]
				}
				場合分岐:(4){
				会話:(安宅冬康,ラファエル)[[べにず出身の大商人にして\n世界一の冒険者との異名を持つ\nひえとろ・こんてい殿じゃろう！]]//私的には、好きなゲーキャラコンビNo.1のピエトロとカミーロ(非ホ○)
				ナレーション:[[ブブー]]
				会話:(安宅冬康,ラファエル)[[なにっ！……]]
				}
				場合分岐:(その他){
				変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[時間切れデース！\nキミたち、男のクセにハズカシヨ！]]
				会話:(直江兼続,ラファエル)[[なかなか難しいだの……]]
				会話:(安宅冬康,ラファエル)[[大体、リノレって誰じゃい！]]
				変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[Ｏｈ！　ミステーク！\nカノジョは平戸のミステリーですヨ！]]
				ひとりごと:[[わけわからん……]]
				}
			}

			
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[正解ハ……]]
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[正解ハ……\n越後○菓デシタ！]]//新○県長岡市にあるお菓子メーカー。高橋某の出演するＣＭが元ネタ。
			ひとりごと:[[なんじゃそりゃあ！！]]
			ＳＥスタート:(刀で斬られる１)
			変名会話:(ラファエル,主人公,[[ラファ]],[[エロ]])[[グフッ！……]]
			
			会話:(直江兼続,ラファエル)[[とんだクソイベだの……]]
			会話:(安宅冬康,ラファエル)[[いや、少しは見るべきところが……\nなかったかもしれんな……]]
		}
	}
}