code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_53:城塞都市ヴェロエア
;-------------------------------------------------
@QST_TITLE_QUEST_53
RESULTS '= "城塞都市ヴェロエア"

;ギルドメニューでクエストをフィルターする際のタグリスト。末尾の','を忘れないように
@QST_QUEST_TAG_53
RESULTS '= "周期,街,"

;クエスト選択画面で呼び出される概要説明
;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_53
RESULTS:0 '= "ヴェロエアは中央世界から見たオリエンス、中央大陸中東部を割拠する王国の一つである"
RESULTS:1 '= "大内海のおおよそ東端に位置し、南方大陸をローメンハイラ海峡を挟んで西南に臨む"
RESULTS:2 '= "中央世界とは明確に異なる歴史を歩み、独自の風俗、宗教、文化を保って発展してきた"

RESULTS:4 '= "大元は、小高い丘陵それ自体を縄張りとした城塞を中心に拡大していった城市"
RESULTS:5 '= "キャラバン・ロードの中継地として東西交通の要衝を占め、また南方大陸や大内海にも近い好立地ゆえ"
RESULTS:6 '= "商人たちが運び込む多様な物産品が常に市場にあふれ、人々に大きな利益をもたらしている"
RESULTS:7 '= "東方世界の入口、その多様性を象徴する市街は、今日も多くの人々で賑わっている"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_53
RESULTS:0 '= @"難易度：- (実装途中のクエストです)"
RESULTS:1 '= "報酬：-"
RESULTS:2 '= "推奨パーティ人数:１人以上・あなたの参加は必須"
RESULTS:3 '= "備考:定期性クエスト(4期毎)"
RESULTS:4 '= @"@C:{カラー_選択不可}@「だいぶ遠くまで足を伸ばすな。なんにせよ、旅をするのはいいことだ」@/C@"
RESULTS:5 '= @"@C:{カラー_選択不可}@「中央世界の外だと、風土も食べ物も、人の考え方も何もかもが違って見えるだろう」@/C@"
RESULTS:6 '= @"@C:{カラー_選択不可}@「郷に入っては郷に従え、とも言うしな。眼を開いて楽しんでくるといい」@/C@"

;-------------------------------------------------
;クエストの実行可能条件を定義
;-------------------------------------------------
@QST_AVAILABLE_QUEST_53(QUEST_ID)
#DIM QUEST_ID
;前提としてQUEST_52_東方世界への道の攻略が必要
SIF QST_SV_QUEST_FLAG:52 != 2
    RETURN 0
SIF QST_COOLTIME:QUEST_ID
    RETURN 0
RETURN 1

;-------------------------------------------------
;クエスト固有の開始条件
;[このクエストを開始する]押下時に呼ばれる
;-------------------------------------------------
@QST_CAN_START_QUEST_53(QUEST_ID)
#DIM QUEST_ID
#DIM DYNAMIC ERR_CNT
#DIM DYNAMIC CHARA_ID

IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(MASTER)) == -1
	PRINTFORMW このクエストには%ANAME(MASTER)%自らが出向く必要がある……
	RETURN 0
ENDIF
RETURN 1

;-------------------------------------------------
;マップデータ定義
;クエストタイプが"GMAPの場合"マップ定義は外部マップデータに持っているので
; ERB側のマップデータにはEVENT_LISTさえ定義すればよい
;-------------------------------------------------
@QST_SET_MAPDATA_QUEST_53(MAP_ID)
#DIM MAP_ID
;mapdata定義ファイルの格納先フォルダを指定
QST_GMAPDATA_PATH '= "ERB/QUEST/クエストデータ/QUEST_53_城塞都市ヴェロエア"
;マップデータ定義XMLとTXTのファイル名を指定。
;2ファイルの名称は拡張子を除いて一致している必要がある
QST_GMAPDATA_FILENAME '= "城塞都市ヴェロエア"
;このフラグを1にすると経路描画が行われなくなる。屋内マップなどあえて経路を図示する必要がない場合に立てるとよい
QST_HIDE_PATH = 0

;各エリア（ノード）に配置するイベントIDを記入。0-24はノード番号に対応
;EVENT_LIST末尾の’,’を忘れないように
_DIC_HO_MAPDATA:MAP_ID:0   '= "[EVENT_LIST:0,1,]"     ;新市街入口
_DIC_HO_MAPDATA:MAP_ID:1   '= "[EVENT_LIST:0,10,11,]"     ;異人街
_DIC_HO_MAPDATA:MAP_ID:2   '= "[EVENT_LIST:0,20,21,]"     ;正教の教会
_DIC_HO_MAPDATA:MAP_ID:3   '= "[EVENT_LIST:0,30,31,]"  ;旧市街南門
_DIC_HO_MAPDATA:MAP_ID:4   '= "[EVENT_LIST:0,40,41,]"   ;城塞への入口
_DIC_HO_MAPDATA:MAP_ID:5   '= "[EVENT_LIST:0,50,51,]"     ;礼拝堂前の広場
_DIC_HO_MAPDATA:MAP_ID:6   '= "[EVENT_LIST:0,60,61,]"  ;礼拝堂内部
_DIC_HO_MAPDATA:MAP_ID:7   '= "[EVENT_LIST:0,70,71,]"     ;初等学院
_DIC_HO_MAPDATA:MAP_ID:8   '= "[EVENT_LIST:0,80,81,82,83,]"     ;高等学院
_DIC_HO_MAPDATA:MAP_ID:9   '= "[EVENT_LIST:0,90,91,]"     ;救貧所
_DIC_HO_MAPDATA:MAP_ID:10  '= "[EVENT_LIST:0,100,101,102,103,104,105,]"     ;スーク
_DIC_HO_MAPDATA:MAP_ID:11  '= "[EVENT_LIST:0,110,111,112,113,114,115,]"  ;隊商宿
_DIC_HO_MAPDATA:MAP_ID:12  '= "[EVENT_LIST:0,120,121,]"  ;旧市街北門
_DIC_HO_MAPDATA:MAP_ID:13  '= "[EVENT_LIST:0,130,]"  ;ドワーフ居留区入口
_DIC_HO_MAPDATA:MAP_ID:14  '= "[EVENT_LIST:0,140,141,142,]"   ;ベルク鉄工所・鍛屋
_DIC_HO_MAPDATA:MAP_ID:15  '= "[EVENT_LIST:0,150,151,]"   ;ベルク鉄工所・事務所
_DIC_HO_MAPDATA:MAP_ID:16  '= "[EVENT_LIST:0,160,161,162,163,]"   ;郊外の窪地

;-------------------------------------------------
;クエストのタイプ
;-------------------------------------------------
@QST_TYPE_QUEST_53
RESULTS '= "GMAP"

;-------------------------------------------------
;クエスト固有の初期化処理
;-------------------------------------------------
@QST_INIT_QUEST_53

;クエスト固有のユニークエネミーをエネミー定義データに追加
CALL QST_QUEST_53_ENEMY_DATA
;クエストクールタイムを加算
QST_COOLTIME:QST_有効クエストID += 4
;商品を補充
CALL HO_SHOP_MANAGE_SHOP_QUEST_53_スーク_RESTOCK()
;ウーツ鋼インゴットを補充
CALL HO_SHOP_MANAGE_SHOP_QUEST_53_直売所_RESTOCK()
;薬を補充
CALL HO_SHOP_MANAGE_SHOP_QUEST_53_陰気な露店_RESTOCK()
;イベント活性化処理
CALL QST_ACTIVATE_EVENT(103)
CALL QST_ACTIVATE_EVENT(112)

;MAPID_16はイベント進捗に応じて活性化
SELECTCASE QST_QUEST_53_MAPID_16_PROGRESS_LEVEL()
	CASE 1
		CALL QST_ACTIVATE_EVENT(160)
	CASE 2
		CALL QST_ACTIVATE_EVENT(161)
	CASE 3, 4
		CALL QST_ACTIVATE_EVENT(162)
	CASE 5
		CALL QST_ACTIVATE_EVENT(162)
		CALL QST_ACTIVATE_EVENT(163)
ENDSELECT

;-------------------------------------------------
;クエストの探索状態保持設定
;-------------------------------------------------
@QST_QUEST_53_SAVE_EXPLORED
RETURN 1

;-------------------------------------------------
; クエスト中止時の処理
; QST_QUEST_{QUEST_ID}_ABORT は撤退コマンド実行時に呼ばれる
;-------------------------------------------------
@QST_QUEST_53_ABORT
QST_SV_QUEST_FLAG:QST_有効クエストID = 1

;-------------------------------------------------
;クエスト53　MAPID_16の進捗度を出力する式中関数
;-------------------------------------------------
@QST_QUEST_53_MAPID_16_PROGRESS_LEVEL()
#FUNCTION
#DIM DYNAMIC EVENT_FLAG83
#DIM DYNAMIC EVENT_FLAG160
#DIM DYNAMIC EVENT_FLAG161
#DIM DYNAMIC EVENT_FLAG162

;高等学院の掃除婦に話を聞いた
EVENT_FLAG83 = QST_GET_SV_EVENT_FLAGF(83)
;窪地で投資交渉中
EVENT_FLAG160 = QST_GET_SV_EVENT_FLAGF(160)
;投資額
EVENT_FLAG161 = QST_GET_SV_EVENT_FLAGF(161)
;油田駆動
EVENT_FLAG162 = QST_GET_SV_EVENT_FLAGF(162)

;窪地で投資交渉をする段階
IF EVENT_FLAG83 == 1 && (EVENT_FLAG160 == 0 || EVENT_FLAG160 == 1 || EVENT_FLAG160 == 2)
	RETURNF 1
;投資・開発中の段階
ELSEIF EVENT_FLAG160 == 3 && EVENT_FLAG161 < 2500000
	RETURNF 2
;投資を完了した
ELSEIF EVENT_FLAG161 >= 2500000 && EVENT_FLAG162 == 0
	RETURNF 3
;採掘が始まっている
ELSEIF EVENT_FLAG162 == 1 || EVENT_FLAG162 == 2
	RETURNF 4
ELSEIF EVENT_FLAG162 >= 3
	RETURNF 5
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;クエストの導入文
;-------------------------------------------------
@QST_INTRO_QUEST_53

CALL PRINT_TITLE("城塞都市ヴェロエア", "クエスト")

PRINTFORML 中央世界から一路東へ
PRINTFORMW 熱砂を超え、黒山脈を西南に捉えながらキャラバンロードを進む
PRINTL
PRINTFORMW やがて、中央大陸中東部の半乾燥高原にさしかかると、その城郭の威容が姿を現す
PRINTL
PRINTFORMW ――『城塞都市』　ヴェロエアを人はそう呼ぶ
PRINTL
PRINTFORMW 元は遊牧民が定住化した、肥沃な谷と点在する丘陵を基盤とする集落であったという
PRINTFORML やがて、その小高い丘に神性を見出した者たちが神殿を築き、
PRINTFORMW それを守る形で長い時間をかけて城市が形成されていった
PRINTL
PRINTFORML 人の往来が活発化すると、当地はヒンダースやさらに東方の地への交易路「キャラバン・ロード」と、
PRINTFORMW 大内海東岸、ローメンハイラ海峡を挟んでの南方大陸への結節点となり、行き交う商人たちによって賑いを見せた
PRINTL
PRINTFORML 中継貿易の拠点、物産品と人間の集積地となったヴェロエアの地には、
PRINTFORMW 周囲を徘徊する魔物や敵対する部族からの自衛のため、いつしか堅固な城塞が築かれていった
PRINTFORMW 『城塞都市』の礎は、ほぼここに定まったと言っていいだろう
PRINTL
PRINTFORMW 市街を睥睨する質実剛健たる城塞はやや古めかしくはあるが、今だ現役である
PRINTFORMW その真価はかつて「帝国」を瓦解させた大戦、その東部戦域において遺憾なく発揮された
PRINTL
PRINTFORMW 「ヴェロエア人魔戦線」と歴史家の言う
PRINTFORML 南方大陸より落ち延びてきたドワーフたちの助勢を得て強化改築を施され、白亜の輝きを放っていたという城郭は、
PRINTFORML 黒山脈を攻略、南方より大挙して押し迫った魔軍を押し留め、ドワーフ同様に故地を失った亜人種の挺身、
PRINTFORMW 獅子奮迅の戦いぶりも相まって、終戦まで抜かれることなく当地を守り切ったという
PRINTL
PRINTFORMW …………
PRINTFORMW ………
PRINTFORMW ……
PRINTL

VARI CHARA_ID
CHARA_ID = NAME_TO_CHARA("QUEST_52_アゥルフ")
SETCOLOR 0xAB8787
CALL DRAW_PORTRAIT(CHARA_ID, "[感情:通常][サイズ:150px][POS_X:100]",, 1)

PRINTFORMW 「……んじゃあ、ここでいったん別れるとしようか」
PRINTFORMW 「帰る時には使いをやってまた声をかけるよ」
PRINTL
PRINTFORMW 「私の名前を出せば、話を聞いてくれる場所も多いはずさ」
PRINTFORMW 「せっかくの異邦の地だ。色々と見て回ってみるといい」
PRINTL
PRINTFORMDW 異邦の地の乾いた熱風が、街を駆け抜ける
PRINTFORMDW 中央にそり立つ城塞を目印に、あなたたちは歩き出した……
PRINTL
RESETCOLOR

;ゲーム内時刻を10:00にセット
HO_TIME = HO_CLOCK(1000)
FLAG:クエスト_中断を許可 = 1
;居住区で実行可能なコマンドの一部を実行可能にするフラグ
FLAG:クエスト_交流コマンド許可 = 1
;0時にクエスト強制終了
FLAG:QST_終了時刻 = HO_CLOCK(2200)
;BGMセット
CALL FL_PLAYBGM("Orient_2.ogg")
;-------------------------------------------------
;イベントリストに登録するイベント情報
;イベントリストに登録するイベント情報を記述する
;<記述方法>
;EVENT_TRIGGER
; "ENTER_ROOM" イベントが配置されたルームの入室時に強制的に実行される
; "EVENT_SLOT" イベントリストのクリック時に実行される
; "TRAIN_EXIT" 調教イベント終了後 ※予め変数:QST_TRAIN_EXIT_EVENT_ID に調教終了後に実行したいイベントIDを指定する必要がある
;EVENT_SLOT_NAME
; イベントリスト上の表示名
;EVENT_TYPE
; "ONCE" クエスト中一度のみ呼出されるイベント(※トリガーが"ENTER_ROOM"のイベントのみ機能)
;           実行済みかをフラグ管理するまでもないイベント(会話など)で使用する想定
;
;戻り値
; RESULT:0 = EVENT_TRIGGER
; RESULT:1 = EVENT_SLOT_NAME
; RESULT:2 = EVENT_TYPE
;-------------------------------------------------
;-------------------------------------------------
;EV0
;エリア入場時にログ出力する情景描写
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_0
; #region EV0
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = ""
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

@QST_QUEST_53_EVENT_0
#DIMS ROOM_NAME

CALL HO_CREAR_LOG()
SELECTCASE HO_MASTER現在地
    CASE 0 ;新市街入口
        CALL HO_PRINT_LOG("新しく大きな白亜の門が、旅人を迎えている……", 1)
        CALL HO_PRINT_LOG("威圧感というより開放感を感じる、広く開け放たれた印象のアーチ構造が印象的だ", 1)
        CALL HO_PRINT_LOG("遠くには、視界を切り取る城塞と、天を衝く白亜の塔が見えている……", 1)
    CASE 1 ;異人街
        CALL HO_PRINT_LOG("少々傷んではいるが、見慣れた中央世界様式の建物が並んでいる……", 1)
    CASE 2 ;正教の教会
        CALL HO_PRINT_LOG("こじんまりとした建物だが、しっかりと正教の教会の様式に則っている……", 1)
    CASE 3, 12 ;旧市街南門、旧市街北門
        CALL HO_PRINT_LOG("古めかしい印象の門が、そそり立つ城壁に埋もれるように口を開けている", 1)
        CALL HO_PRINT_LOG("こちらはどちらかというと閉鎖的、かつ防御的な印象を受ける", 1)
        CALL HO_PRINT_LOG("戦が絶えなかった時代の、守りの要として機能していたものであろうか", 1)
    CASE 4 ;城塞への入口
        CALL HO_PRINT_LOG("空堀をめぐらした城塞へ繋がる橋の前には、屈強な衛兵が立ちはだかっている", 1)
        CALL HO_PRINT_LOG("今だ現役の城郭は、美しくも荘厳な雰囲気を醸し出している……", 1)
    CASE 5 ;礼拝堂前の広場
        CALL HO_PRINT_LOG("旧市街全ての街路が通じる礼拝堂の前の広場には、多くの人たちが行き交っている", 1)
        CALL HO_PRINT_LOG("土産物、出店、賑やかな喧噪に大道芸人たちの威勢の良い声が重なる", 1)
        CALL HO_PRINT_LOG("大きな礼拝堂の立派な門と、壁面を彩る一面のモザイクタイルの鮮やかさが目を奪う…", 1)
    CASE 6 ;礼拝堂内部
        CALL HO_PRINT_LOG("多柱式の回廊の中央に広い中庭が設けられ、回廊から各施設への接続が図られている", 1)
        CALL HO_PRINT_LOG("中庭の中央には身を清めるための泉亭が設えられ、床じゅうに大理石が敷き詰められている", 1)
        CALL HO_PRINT_LOG("美しくも規律を秘めた幾何学模様の黒白の石敷が、その精神世界を投影している……", 1)
    CASE 7 ;初等学院
        CALL HO_PRINT_LOG("礼拝堂と回廊でつなげられた、一般家屋よりはるかに大きい２階建ての建物が立っている", 1)
        CALL HO_PRINT_LOG("どうやら、礼拝堂に併設されているという学院であるらしい", 1)
    CASE 8 ;高等学院
        CALL HO_PRINT_LOG("礼拝堂のほど近くに、砦と見まごうばかりの３階建て相当の建物が鎮座している", 1)
        CALL HO_PRINT_LOG("外面からは無表情な背の高い壁に覆われているだけだが……？", 1)
    CASE 9 ;救貧所
        CALL HO_PRINT_LOG("礼拝堂に隣接した施設の広い中庭では、炊き出しが行われている", 1)
        CALL HO_PRINT_LOG("老若男女問わず、多くの人々がひっきりなしに訪れている……", 1)
    CASE 10 ;スーク
        CALL HO_PRINT_LOG("旧市街に巡らされた市壁の中に、天井に覆われた市場が続いている", 1)
        CALL HO_PRINT_LOG("多くの人、人種、商品、牛馬に駱駝が行き交い、雑多な活気に満ち溢れている……", 1)
    CASE 11 ;隊商宿
        CALL HO_PRINT_LOG("ラクダに乗ったままくぐれる大きな門を備えた立派な隊商宿だ", 1)
        CALL HO_PRINT_LOG("多くの隊商がラクダをつなぎ休息している　今日も盛況のようだ……", 1)
    CASE 13 ;ドワーフ居留区入口
        CALL HO_PRINT_LOG("ドワーフの居留区に入った途端、周囲の会話の音量が三割増しくらいになった気がする", 1)
        CALL HO_PRINT_LOG("種々雑多な建物が立ち並び、機能がよくわからない計器やパイプがそこら中にハミ出ている", 1)
        CALL HO_PRINT_LOG("高く伸びた煙突から煙を吐き出し続ける、古めかしくも大きい建物が見える", 1)
    CASE 14 ;ベルク鉄工所・鍛屋
        CALL HO_PRINT_LOG("窓を開け放たれた建屋から、金属が打ち合わされる子気味よい音が聞こえる", 1)
        CALL HO_PRINT_LOG("多くのドワーフが工具や木箱を抱えて出入りしている……", 1)
    CASE 15 ;ベルク鉄工所・事務所
        CALL HO_PRINT_LOG("「商談はこちら」と雑な筆跡で示された立て札が立っている", 1)
        CALL HO_PRINT_LOG("一見倉庫のような建物で、とても事務所には見えないが……", 1)
    CASE 16 ;郊外の窪地
		SELECTCASE QST_QUEST_53_MAPID_16_PROGRESS_LEVEL()
			CASE 0, 1
				CALL HO_PRINT_LOG("何の変哲もない乾いた砂と土だけの窪地だ", 1)
				CALL HO_PRINT_LOG("少し異臭がする……", 1)
			CASE 2
				SELECTCASE QST_GET_SV_EVENT_FLAGF(161)
					CASE 0 TO 500000
						CALL HO_PRINT_LOG("窪地に資材が集められ始めている", 1)
						CALL HO_PRINT_LOG("少し異臭がする……", 1)
					CASE 500001 TO 1000000
						CALL HO_PRINT_LOG("窪地に建屋がいくつか立ち並び、穴を掘るための施設が組み上げられ始めている", 1)
						CALL HO_PRINT_LOG("少し異臭がする……", 1)
					CASE 1000001 TO 1500000
						CALL HO_PRINT_LOG("窪地に建屋がいくつか立ち並び、穴を掘るための施設が稼働を始めている", 1)
						CALL HO_PRINT_LOG("少し異臭がする……", 1)
					CASE 1500001 TO 2000000
						CALL HO_PRINT_LOG("窪地に建屋が多数立ち並び、穴を掘るための施設が稼働し続けている", 1)
						CALL HO_PRINT_LOG("煮炊きの煙が立ち上り、作業員や雇われの警備員など、多くの人が行き交っている", 1)
						CALL HO_PRINT_LOG("少し異臭がする……", 1)
					CASEELSE
						CALL HO_PRINT_LOG("窪地に建屋が多数立ち並び、穴を掘るための施設が採油施設に造り変えられつつある", 1)
						CALL HO_PRINT_LOG("煮炊きの煙が立ち上り、作業員や雇われの警備員など、多くの人が行き交っている", 1)
						CALL HO_PRINT_LOG("周囲には強い石油の匂いが漂っている……", 1)
				ENDSELECT
			CASE 3, 4
				CALL HO_PRINT_LOG("窪地に建屋が多数立ち並び、石油を汲み上げる施設がゆっくりと稼働している", 1)
				CALL HO_PRINT_LOG("煮炊きの煙が立ち上り、作業員や雇われの警備員など、多くの人が行き交っている", 1)
				CALL HO_PRINT_LOG("周囲には強い石油の匂いが漂っている……", 1)
		ENDSELECT
ENDSELECT
; #endregion

;-------------------------------------------------
;MAPID_0 EV1～
;新市街の門
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_1
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "街の印象"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_1
PRINTL
PRINTFORMW 街に足を踏み入れて改めて実感する……ここが、紛れもない異邦の地であることを
PRINTL
PRINTFORML 中央世界の中で訪れた町々にも当然ながら印象の差異はあったが、
PRINTFORMW 今訪れている此処ほど、大きなギャップを感じることはなかった
PRINTL
PRINTFORMW 日干しレンガによって作られた家々、迷路のように狭く複雑な街路
PRINTL
PRINTFORML 石造りや木造を旨とした中央世界の建造物と異なり、
PRINTFORMW ここでは土と砂によって作られた建物が多く、街全体が褐色がかった印象を受ける
PRINTL
PRINTFORMW そこに暮らす人々の様子もまた、中央世界とはだいぶ印象を異にする
PRINTL
PRINTFORML 着るというより「体を包む」ような、首から踵までに達する長衣をまとい、
PRINTFORMW 長いスカーフで頭を覆う、日焼けした髭面の男たちが街を闊歩する
PRINTL
PRINTFORML 同時に、黒いローブを纏い、ヴェールで顔まで隠した人々が、女性なのだと理解するのに少し時間がかかった
PRINTFORMW ここでは、人前で肌を晒すことはあまり好まれていないようである
PRINTL
PRINTFORMW 全てが目新しい……と言えば聞こえはいいが、同時に疎外感もついて回る
PRINTFORMW ここでは異邦人なのだという自覚をもって行動するようにするべきだろう……
PRINTL
CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)

;-------------------------------------------------
;MAPID_1 EV10～
;異人街
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_10
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "異人街の街角にて"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_10

PRINTL
PRINTFORMW 異邦の街中に、突如として現出した見覚えのある光景
PRINTFORMW ほっとするというより、違和感のほうが先に立つ
PRINTFORMW どうやら、この地に築かれた中央世界の民の居留地のようだ
PRINTFORMW 誰かに話を聞いてみようか？
$INPUT_LOOP
IF HO_OCLOCK() < 1900
	PRINTL
	CALL ASK_MULTI_JUDGE("中央世界風の衣服をまとう男性", 1, "流れ者の獣人",1, "くだを巻く冒険者", 1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「あんたら、西のほうの人間か。匂いでわかるさ」
			PRINTFORMW 「親近感を持ってくれるのはありがたいが、もう何代もこっちにいるから、実質ヴェロエア人だよ」
			PRINTFORMW 「……異人街、とか言われるけどな。まあ、住めば都ってことさ」
			RESETCOLOR
		CASE 1
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「真教の都ってことで、始めはビクビクしながら過ごしてたけど……意外と、中央世界より偏見が少ないようにも感じるね」
			PRINTFORMW 「古くから根付いている同族もいるみたいだし」
			PRINTFORMW 「しばらく、ここで暮らそうかな？」
			RESETCOLOR
		CASE 2
			PRINTL
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「え、キャラバンロードが開通したって？」
			PRINTFORMW 「こうしちゃいられない、早く荷をまとめて帰らなくっちゃ！」
			RESETCOLOR
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ELSE
	PRINTL
	CALL ASK_MULTI_JUDGE("酒をちびちび舐めている男性", 1, "警邏中の男性",1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ふぃー……この街だと、一杯やるための酒を手に入れるのだって一苦労さ」
			PRINTFORMW 「真教の戒律で飲酒が禁じられてるせいか、流通があまり多くないからな」
			PRINTFORMW 「まあ、その苦労の甲斐もあって旨さもひとしおだよ」
			RESETCOLOR
		CASE 1
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「この居留区の住人で自警団を組織して、夜間は警邏を行ってるんだ」
			PRINTFORML 「そんなに治安が悪いわけじゃないけど……
			PRINTFORMW 　まあ、異邦の地ではあるし、自分の身は自分たちで守らないとね」
			RESETCOLOR
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ENDIF
GOTO INPUT_LOOP

;-------------------------------------------------
;EV11 異人街ベンチ
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_11
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "ベンチ"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:CHESS-ROOK]"

@QST_QUEST_53_EVENT_11
#DIM EVENT_FLAG
#DIM CHARA_ID

CALL QST_GET_EVENT_FLAG(QST_NOWEV)
EVENT_FLAG = RESULT

IF !EVENT_FLAG
    PRINTFORML %QST_LEADER_NAME()%はベンチに腰掛けた
    CALL QST_SET_EVENT_SLOT_NAME(, @"ベンチを立つ")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 1)
    ;このイベントIDのイベント以外実行不可に
    QST_イベント選択制限 = QST_NOWEV
    ;1=隣接エリアのみ移動可,2=エリア移動不可
    FLAG:移動制限フラグ = 2
    ;擬似的に設備:ベンチ(ID=22)を使っている状態にする
    TFLAG:クエスト_ダミー設備ID = 22
    WAIT
ELSE
    PRINTFORMW %QST_LEADER_NAME()%はベンチを立ち去った……
    CALL QST_SET_EVENT_SLOT_NAME(, @"ベンチ")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
    QST_イベント選択制限 = -1
    FLAG:移動制限フラグ = 0
    TFLAG:クエスト_ダミー設備ID = 0
    CALL QST_REDRESSALL
ENDIF

;-------------------------------------------------
;MAPID_2 EV20～
;正教の教会
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_20
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "若い牧師"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_20
PRINTL
PRINTFORML 礼拝者も少ない、静かな空間で書を手繰っていた若い牧師が、
PRINTFORMW こちらを認めて相好を崩した
PRINTL
IF HO_OCLOCK() < 900
	PRINTFORMW 「ああ、ようこそ。朝も早くからご苦労様です」
ELSEIF HO_OCLOCK() > 1900
	PRINTFORMW 「ああ、ようこそ。夕餉の前のお祈りですか？」
ELSE
	PRINTFORMW 「ああ、ようこそ。手狭な所ですが、それでもよろしければ」
ENDIF
PRINTFORMW 「肩身の狭い異邦の地ではありますが、それなりには正教の信徒がおりますので」
PRINTFORMW 「まあ、表立って布教などできる余地などありませんが」
PRINTL
PRINTFORMW 「……ええ、この地では正教ではない別の教えが信仰されております」
PRINTFORMW 「真教――ある預言者の著した『聖典』を基盤とした教えです」
PRINTL
PRINTFORMW 「私もこの地を訪れたときには驚きましたが……まあ、幸いにも弾圧や改宗を強いられてはおりません」
PRINTL
PRINTFORML 「そのあたり寛容というか……この街には見た所ドワーフや亜人種も多いようですし、
PRINTFORMW 　指導者層は、存外に民衆の統制には気を使っているのかもしれませんね」
CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)

@QST_ADD_EVENT_QUEST_53_EVENT_21
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "老練なシスター"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_21
PRINTL
PRINTFORMW 「……この地で正教の教会を切り盛りするのは本当に骨が折れたさね」
PRINTFORMW 「先代の牧師も良く頑張ってくれたが……まあ、頑張り過ぎたのが運の尽きだったか」
PRINTL
PRINTFORMW 「今の牧師にゃ、無私無欲を貫いてもらいたいものだね」
CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)

;-------------------------------------------------
;MAPID_3 EV30～
;旧市街南門
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_30
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "日焼けした門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_30
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 一心に礼拝をしている……
	CASEELSE
		PRINTL
		PRINTFORML 「ここから先が旧市街です」
		PRINTFORMW 「場所によっては大戦前の建物も遺っていますよ」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

@QST_ADD_EVENT_QUEST_53_EVENT_31
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "犬人の門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_31
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 一心に礼拝をしている……
	CASEELSE
		PRINTFORMW 「……珍しいかい？　犬人（カニノール）がこんなところで働いてるのは」
		PRINTFORMW 「この街では、亜人種でも真教徒なら分け隔てなく公職に就けるのさ」
		PRINTFORMW 「ご先祖様たちがこの街に多大な貢献をしたとかでね。それが俺たちの誇りでもあるのさ」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

;-------------------------------------------------
;MAPID_4 EV40～
;城塞への入口
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_40
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "城門の門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_40
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 作法通りに礼拝をしている……
	CASEELSE
		PRINTFORMW 「……城塞への立ち入りは禁じられている。見学なら手短にな」
		PRINTL
		PRINTFORMW 厳めしい顔の衛兵は揃いの赤い軍服に身を包んでいる
		PRINTFORMW 特徴的な、トサカのような長い羽根飾りが伸びる金属製の額当てを設えた長帽
		PRINTFORMW 肩にはマスケット銃をかけ、腰には長剣を提げた、派手ながらも威圧感のある軍装だ
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

@QST_ADD_EVENT_QUEST_53_EVENT_41
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "門前の小物屋"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_41
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 店に集まった人々は一心に礼拝をしている……
	CASE IS > 1900
		PRINTFORMW 店は閉まっていて誰もいない……
	CASEELSE
		PRINTFORMW 小物屋の店主と思しき男性から話を聞くことができた……
		PRINTL
		PRINTFORMW 「あいつらは君主直属の奴隷兵……幼少期に正教から改宗させられ、教育や軍事教練を受けたエリートたちさ」
		PRINTFORMW 「立場上は君主の抱える奴隷だから妻帯とかは許されないが、高い給料は出るし、君主の側仕えや、栄進すれば知事や官僚にも出世できる」
		PRINTL
		PRINTFORMW 「あ？　なんでわざわざ君主が直接奴隷として召し抱えてるのかって？」
		PRINTFORMW 「いざ、って時に地方の領主たちは言うことを聞かないこともあるから、君主直属の私兵を抱えておきたかったんだろうよ」
		PRINTL
		PRINTFORMW 「ヤツら君主直属軍は北の『ウルス』の連中とも互角にやり合ったらしいから、実力は確かさ」
		PRINTFORMW 「……まあ、平時はギルドの顔役みたいなことをやってるヤツもいるから、あんまり評判はよくないんだがな」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

;-------------------------------------------------
;MAPID_5 EV50～
;礼拝堂前の広場
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_50
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "広場の喧噪"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_50
PRINTL
PRINTFORMW 大きな礼拝堂前には、これまた大きな広場が設けられている
IF HO_OCLOCK() < 1900
	PRINTFORMW その広い空間が、見渡す限りの人で埋め尽くされている様は圧巻である
	PRINTFORMW 礼拝堂目当てにやってきた観光客や、礼拝に訪れた利用者、出店を構えた商売人、大道芸人……
	PRINTFORMW 街の中心としてこの上ない活気に満ち溢れているように見える
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 日中に比べれば人は少ないが、それでも多くの人々が行きかっている
	PRINTFORMW 誰かに話を聞いてみようか？
ENDIF
$INPUT_LOOP
IF HO_OCLOCK() < 1900
	PRINTL
	CALL ASK_MULTI_JUDGE("出店の店主", 1, "散歩中の老人",1, "ラクダを連れた商人", 1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「あれがこの街の文化の中心、大礼拝堂さ！」
				PRINTFORMW 「真教の礼拝堂だけじゃなく、教育機関や医院、浴場なんかも兼ねてる複合施設なのさ」
				PRINTFORMW 「この街に来たのなら、一度は見ていかないと損だよ！」
				RESETCOLOR
			ENDIF
		CASE 1
			PRINTL
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「この地域に礼拝堂は数あれど、ここの礼拝堂に匹敵するものはそうはなかろう」
				PRINTFORMW 「宮殿のように絢爛な外装と、その表面を彩るモザイクの美しさたるや……」
				PRINTFORMW 「ううむ、毎日見ていても飽きないのう！」
				RESETCOLOR
			ENDIF
		CASE 2
			PRINTL
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_オレンジ
				PRINTFORMW 「ここも賑やかだけど、この先のスークも人出じゃあ負けてない」
				PRINTFORMW 「え？　スークって何かって？　ああ、市場のことだよ」
				PRINTFORMW 「たくさんの商品が出てるから、きっとあんたらの気に入るものもあるはずさ」
				RESETCOLOR
			ENDIF
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ELSE
	CALL ASK_MULTI_JUDGE("出店の店主", 1, "休憩中の老人",1, "警邏中の衛兵", 1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「今日はもう店じまいだよ。また来ておくれ」
			RESETCOLOR
		CASE 1
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「照明の燈火に浮かび上がる礼拝堂も幻想的でよいのお」
			PRINTFORMW 「ううむ、やはり一日見ていても飽きないのう！」
			RESETCOLOR
			PRINTL
			PRINTFORMW ……ご老体、そろそろ帰った方がいいのではないだろうか
		CASE 2
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「以前に、人に擬態した魔物が入り込んだことがありまして」
			PRINTFORMW 「東の『山の魔人』に連なるものじゃないかと疑われています」
			PRINTFORMW 「……夜に出歩く場合は、十分お気をつけて」
			RESETCOLOR
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ENDIF
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_51
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "礼拝堂の門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_51
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 一心に礼拝をしている……
	CASE IS > 1900
		PRINTFORMW 「今日の礼拝は終わりましたよ」
		PRINTFORMW 「礼拝堂以外の施設に用があるなら、どうぞ」
	CASEELSE
		PRINTFORMW 「異邦の方であっても拒みはしませんよ」
		PRINTFORMW 「我らの教えの一端、ぜひご覧になっていってください」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

;-------------------------------------------------
;EV52 広場の演台
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_52
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "演台"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:CHESS-ROOK]"

@QST_QUEST_53_EVENT_52
#DIM EVENT_FLAG
CALL QST_GET_EVENT_FLAG(QST_NOWEV)
EVENT_FLAG = RESULT

IF !EVENT_FLAG
    PRINTFORML %QST_LEADER_NAME()%は演台に立った
    CALL QST_SET_EVENT_SLOT_NAME(, @"演台を降りる")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 1)
    ;このイベントIDのイベント以外実行不可に
    QST_イベント選択制限 = QST_NOWEV
    ;1=隣接エリアのみ移動可,2=エリア移動不可
    FLAG:移動制限フラグ = 2
    ;擬似的に設備:演台(ID=901)を使っている状態にする
    TFLAG:クエスト_ダミー設備ID = 901
    ;パフォーマンス関連の初期化処理
    CALL PERFORMANCE_INIT()
    TFLAG:公演_難易度 = 0
    WAIT
ELSE
    PRINTFORMW %QST_LEADER_NAME()%は演台から降りた
    CALL QST_SET_EVENT_SLOT_NAME(, @"演台")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
    QST_イベント選択制限 = -1
    FLAG:移動制限フラグ = 0
    TFLAG:クエスト_ダミー設備ID = 0
    ;パフォーマンス関連の初期化処理
    CALL PERFORMANCE_INIT()
ENDIF

;-------------------------------------------------
;MAPID_6 EV60～
;礼拝堂内部
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_60
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "礼拝堂の中庭"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_60
PRINTL
PRINTFORMW 門をくぐって礼拝堂内部に入ると、そこに広がる光景にまた目を奪われる
PRINTFORMW 中央に広い中庭、その周囲に巡らされた多柱式の回廊に施されたモザイク
PRINTFORMW 中庭の床敷きは白黒の大理石からなり、複雑な幾何学模様が視界一面に広がっている
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 中庭の中央に設えられた泉亭では、礼拝に臨む教徒が身を清めている
	PRINTFORMW その奥、ひときわ立派な彫刻が施された門の向こうが、礼拝堂の本堂であろうか
	PRINTL
	PRINTFORMW 中庭では人々が老若男女問わず、思い思いに時を過ごしているようだ
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 日中に比べれば人は少ないが、静かな時間を過ごしている人々もいる
	PRINTFORMW 誰かに話を聞いてみようか？
ENDIF
$INPUT_LOOP
IF HO_OCLOCK() < 1900
	PRINTL
	CALL ASK_MULTI_JUDGE("熱心そうな信徒", 1, "礼拝呼掛人",1, "西方からの観光客", 1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「時間が来たら、『聖典』に示された聖地に向けて礼拝をするんだ」
				PRINTFORMW 「その時間だけは店も開店休業だよ。外から来た人にはビックリされるけどな」
				RESETCOLOR
			ENDIF
		CASE 1
			PRINTL
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「高い塔が立っていただろう？　あれが、この礼拝所のシンボル」
				PRINTFORMW 「遠くから見ても、ここに礼拝堂があるのがすぐわかる、って寸法さ」
				PRINTFORMW 「時間が来たら、あそこから広く礼拝を呼びかけるのさ」
				RESETCOLOR
			ENDIF
		CASE 2
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「あまり大きな声では言えないが……もとはここは草創期の正教の大聖堂だった、って話もある」
			PRINTFORMW 「……礼拝堂の奥には、その時代の祠堂が厳重に保存されているらしい」
			PRINTFORMW 「そういう見方で言うと、この列柱式のつくりとか、中央世界の神殿にも似てるところがあるよな」
			RESETCOLOR
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ELSE
	PRINTL
	CALL ASK_MULTI_JUDGE("書を手繰る青年", 1, "ヴェールをまとった婦人",1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「……ん、もうこんな時間か」
			PRINTFORMW 「礼拝堂は礼拝だけのものでもない。各々が自分を見つめなおす場所でもあるのさ」
			RESETCOLOR
		CASE 1
			PRINTL
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「自主的に清掃をさせてもらっていますの」
			PRINTFORMW 「礼拝は、清浄なる場所で行われるべき、と『聖典』にもありますから」
			RESETCOLOR
		CASEELSE
			RETURN
	ENDSELECT
ENDIF
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_61
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "本堂"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_61
IF HO_OCLOCK() < 1900
	CALL FL_PAUSEBGM()
	PRINTFORMW 靴を脱いで、本堂の広間に足を踏み入れる
	PRINTFORMW 入口からずっと奥へ広がり続く絨毯と長大な身廊が特徴的だ
	PRINTFORMW 高いアーチ状の天井と、それを支える柱が十数本立っている立派なものである
	PRINTL
	PRINTFORMW 本堂の奥には、壁面に聖地の方角を示す窪みが掘られ、精緻な彫刻で飾り立てられている
	PRINTFORMW その隣には、古めかしくも美しい、磨き上げられた木製の説教壇が設えられていた
	PRINTFORMW 偶像崇拝を排したシンプルな真教の礼拝堂ではあるが、清浄で威厳ある空気感に満ち満ちている……
	PRINTL
	PRINTFORMW 幾人かの人々が礼拝の時を待ったり、静かな談話に花を咲かせている
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 門が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("真教の導師", 1, "礼拝堂の学者",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 教徒の手本となるような、ゆったりと、それでいて堂々たる礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「真教は、ある預言者が一なる神より啓示を受け、それを教え広めたことを端緒としている」
			PRINTFORMW 「預言者はその教えを『聖典』に遺してこの世を去り、今なおその教えはこの地に確と根付いている」
			PRINTL
			PRINTFORMW 「我らが『聖典』に基づき、それが示す『法』に則って行動する。それが我らにとっての大いなる安息である」
			PRINTFORMW 「真『教』と呼ばれてはいるが、それは『宗教』であり、同時に『政治形態』であり、『生活共同体』でもある」
			PRINTL
			PRINTFORMW 「人生を『聖典』に委ね、帰依すること。それが、我ら『聖典の民』が生き様なのだ」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 教徒の手本となるような、ゆったりと、それでいて堂々たる礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「真教の宗教的指導者は、同時に政治的指導者を兼ねるべきとされています」
			PRINTFORMW 「現に、真教が成立した当初は、宗教指導者……預言者がそのコミュニティを全て統制していました」
			PRINTL
			PRINTFORMW 「やがて、コミュニティが肥大化すると、『王』や『候』などのまとめ役が現れていくわけですが……」
			PRINTFORMW 「彼らのような地域の政治的指導者が民衆からの支持を得るためには、やはり真教の力が必要でした」
			PRINTL
			PRINTFORMW 「最終的に、王権というものは聖典の示す『法』によって定義・保証され、王は『信仰者の長』として振舞うことになりました」
			PRINTFORMW 「つまり、王の権力は我々『法』を扱う宗教学者の存在を裏打ちにしたものなのです」
			PRINTFORMW 「まあ、よほどのことが無い限り、我々が政治に口を挟むことはありませんが」
			PRINTL
			PRINTFORMW 「この礼拝堂も、王命によって建築・整備されたものだそうですが、実際には我々導師が運営しております」
			PRINTFORMW 「宗教と政治の結びつきの強さは、西方の『啓典の民』よりはるかに強いものであろうと存じます」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL FL_REPLAYBGM
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

;-------------------------------------------------
;MAPID_7 EV70～
;初等学院
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_70
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "学院の風景"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_70
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 入口の門をくぐると、中央に水場を備えた中庭につながっている
	PRINTFORML 周囲に巡らされた回廊はそれぞれの小部屋……教室につながり、
	PRINTFORMW せり出した回廊の２階にも同様にいくつかの教室の入口が見える
	PRINTL
	IF HO_OCLOCK() < 1400
		PRINTFORMW 少しのぞき見をすると、教徒の子弟が授業を受けている
		PRINTFORMW ……なかなかに珍しい光景だ。中央世界では、教育を受けられない年少者も多いというのに
		PRINTL
	ENDIF
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 門が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("教室の様子", 1, "学院の教師",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230)
			PRINTFORMW 一心に礼拝をしている……
		ELSEIF HO_OCLOCK() > 1400
			PRINTFORMW 授業が終わった教室は静まり返っている……
		ELSE
			PRINTFORMW 「…………」
			PRINTL
			PRINTFORMW 授業に取り組む子供たちのまなざしはみな真剣そのものだ
			PRINTFORMW お邪魔するのもなんだ、立ち去ることにしよう
		ENDIF
		;アルノーがパーティにいる場合
		IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("アルノー"))) != -1
			PRINTL
			CALL DRAW_PORTRAIT(NAME_TO_CHARA("アルノー"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
			CALL KJ_PRINT(NAME_TO_CHARA("アルノー"), @"「……」", 1)
			PRINTL
			PRINTFORMW アルノーは、憮然とした顔で学びに向かう子どもたちを見つめている……
			PRINTFORMW ……やはり、思うところでもあるのだろうか
			PRINTL
			CALL KJ_PRINT(NAME_TO_CHARA("アルノー"), @"「なんですか、ヘンな顔して」", 1)
			CALL KJ_PRINT(NAME_TO_CHARA("アルノー"), @"「気遣いなんて要らねえ……ですよ。今は……まあ、それなりに恵まれてますんでね」", 1)
			PRINTL
			PRINTFORMW そう言い置くと、アルノーは少し照れくさそうにこちらから視線を逸らした……
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ここでは読み書き算盤、基本的な神学や法学、聖典の暗唱など、真教における基礎的な学びに取り組みます」
			PRINTFORMW 「真教の教えの行き届いた社会共同体を作る上では、教育は欠かせませんからね」
			PRINTL
			PRINTFORMW 「近年では歴史や科学などについての特別な講義も行われるようになりました」
			PRINTFORMW 「子どもたちにとって必要な学びを、きちんと提供できるとよいな、と思いますよ」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_71
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "学院の寮"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_71
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 学院内の１つの扉をくぐると、大きな長机とたくさんの椅子が設えられた部屋に出た
	PRINTFORMW どうやら、学院の生徒たちのための食堂のようだ
	PRINTFORMW その奥には、いくつもの房が連なった廊下が続いている
	PRINTL
	IF HO_OCLOCK() > 1400
		PRINTFORMW しばらく見ていると、教徒の子弟たちが部屋に戻っていく様子が見えた
		PRINTFORMW どうやら、合宿施設のようでもあるが……
		PRINTL
	ENDIF
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 扉が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("学院の世話人", 1, "厨房のご婦人",1, "巡回する掃除婦",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「この学院の経営は、真教の教えの一つ、喜捨・寄進によって成り立っています」
			PRINTFORMW 「孤児や貧しい家庭の者には、寮も用意されていますよ」
			PRINTL
			PRINTFORMW 「ありとあらゆる身分、境遇の者に手を差し伸べ、助け合う」
			PRINTFORMW 「それが、我ら『聖典の民』の生き方そのものですから」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「ああ忙しい、忙しい」
			PRINTFORMW 「お腹を空かした子供たちのために、沢山の食事を作らないとね」
			PRINTFORMW 「お勉強するにしても、身体を動かすにしても、食べなかったら何にも始まらないよ」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「ここで働いているのは、次の世代を担う子供たちを直に援けられるからです」
			PRINTFORMW 「立派な大人になるために、良く学び、良く食べ、よく眠ってほしい」
			PRINTFORMW 「そうやって育った人間は、自分の子どもにひもじい思いをさせたりはしないでしょうから」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

;-------------------------------------------------
;MAPID_8 EV80～
;高等学院
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_80
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "高等学院のホール"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_80
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 入口の重厚な門をくぐると、表向きの武骨な印象からは想像できない広い中庭の開放的な光景に息を飲んだ
	PRINTFORMW 中央に噴水の出る泉盤を配し、四方に巡らされた回廊の列柱に施されたモザイクタイルの幾何学模様が目を引く
	PRINTL
	PRINTFORML 周囲に巡らされた回廊はそれぞれの小部屋……教室につながり、
	PRINTFORMW せり出した回廊の２階、３階にも同様にいくつかの教室や寮室の入口が見える
	PRINTL
	PRINTFORML 若い学生たちに、教授役と思しき年嵩の男性たちがそこかしこで講義を行い、
	PRINTFORMW 厳かながらも活発な雰囲気で学業に勤しんでいる様子が見て取れた
	PRINTL
	PRINTFORMW どうやら、中央世界の「大学」に相当する高等教育・学術研究を行う場であるようだ
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 門が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("長い髭をたくわえた老学者", 1, "厳格そうな法学者",1, "若い法学者",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「我々にとって『聖典』は絶対だ」
			PRINTFORMW 「だが……その解釈、ことに『法』の在り様を巡っては、多少の幅がある」
			PRINTL
			PRINTFORMW 「場合によっては、その解釈を巡って同胞相争うことにもなる。それだけ、『法』は我らにとって重いものなのだ」
			PRINTFORMW 「現に……国を二分し、学派の異なる真教徒を異端と認定し、攻め滅ぼした苦い歴史もある」
			PRINTL
			PRINTFORMW 「果たして、何のための教えなのか……ままならぬものよ」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「『聖典』を読み解き、その解釈を通して『法』として定義する……それが我ら法学者の使命だ」
			PRINTFORMW 「現実に生じる諸問題と、『聖典』を擦り合わせ、それに沿った解決策を提案する」
			PRINTL
			PRINTFORMW 「戒律、儀礼、家族法、債権法、刑事法……全てが、我らの学究の成果と言えるだろう」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「『聖典』の示す規範のひとつに、『寄進』があります。欲に打ち勝ち、身を清める行為として推奨されました」
			PRINTFORMW 「やがて『寄進』は学院や市場、浴場や医院、隊商宿のような公共施設の建設・運営にも結びついていきました」
			PRINTL
			PRINTFORMW 「『寄進』がなぜここまで真教の徒に浸透したのか。もちろん、純粋な信仰心もあるでしょうが」
			PRINTFORMW 「実態は……名声を高めると同時に、租税を回避する手段としても有効だったわけです」
			PRINTFORMW 「ほら、公共施設を造れば、国にも差し押さえられることはないでしょう？」
			PRINTL
			PRINTFORMW 「それに、公共施設の造営が都市の社会資本を増大させ、そこを中核として都市がさらに拡大する」
			PRINTFORMW 「ヴェロエアはそうやって巨大化し、維持されてきた街なのです。国家権力も、首長も一切関わらずに、ね」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_81
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "高等学院の大書庫"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_81
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 中庭に面した一室に足を踏み入れると、視界を埋め尽くすほどの膨大な量の文献・書物に圧倒された
	PRINTFORMW ここがこの学院の知の基盤、大書庫であろう
	PRINTL
	PRINTFORMW ２階相応の高い天井まで届かんばかりの書棚と、本を取るために使い込まれた梯子
	PRINTFORMW 熟成された本の匂いが、独特の空気感を醸成している
	PRINTL
	PRINTFORML 書物を片手に思索に耽る学者や、文献資料を探す若い学生が往来し、
	PRINTFORMW その知が死蔵されることなく活用されている様は、まさしく学究の礎と言うに相応しい
	PRINTL
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 門が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("ペンを振るう写字生", 1, "史書を手繰る歴史学者",1, "標本の手入れをする地理学者",1, "模型を作っている筋骨隆々の男",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「西方の書物の翻訳を行い、こちらの言語で読めるようにした写本も結構多いのです」
			PRINTFORMW 「おそらく西方では、正本が大戦の戦災で失われたものも多いのでは？」
			PRINTL
			PRINTFORMW 「古の知識を正しく後世に伝えるためには、書物は必要不可欠なのです」
			PRINTFORMW 「たとえそれが異邦の地のものであろうと、貴重な人の叡智の結晶には変わりありませんから」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「古くよりこの街は東西交通の要衝にあり、商業都市として栄えてきた」
			PRINTFORMW 「それゆえに外敵も多く、自衛のための城塞と兵力を備え、城郭都市としての発展に結びついていった」
			PRINTL
			PRINTFORMW 「『大戦』までに形成された部分が旧市街。『大戦』後に造られた新しい街が新市街と呼ばれている」
			PRINTFORMW 「もっとも、旧市街の大半は『大戦』によって焦土と化した。ここも含め、残された部分は貴重な遺産と言えるだろう」
			PRINTL
			PRINTFORMW 「西方とは、過去に帝国との婚姻関係を結ぶなど繋がりもそれなりにあったようだが、大戦以降は国家としては疎遠なままだ」
			PRINTFORMW 「……まあ、現在は大内海の制海権を巡って、少々いさかいもあるようだがね」
			PRINTFORMW 「大内海を『我らが海』としたいのは、我々も、ノアレルムも、コモンウェルスも同じということだ」
			PRINTL
			PRINTFORMW 「とはいえ、我が王とて海軍どうしで直接対決する愚は冒したくないのが本音だろう」
			PRINTFORMW 「そこで……大内海東部に跳梁する海賊たちに私掠権を与え、その軍事政権を黙認する形で、間接的な影響力を行使する形を取った」
			PRINTFORMW 「南方大陸北東岸には、そのような海賊共和国がいくつか存在する。その中には、相当数の聖典の民の水夫も混じっているだろう」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			PRINTFORML 書庫の片隅のスペースに、中央世界の衣服とも、ヴェロエア風の衣服とも違う衣服が展示されているのが目についた
			PRINTFORMW 寒冷地向けと思しき、フェルトや羊毛を内に縫い付けた、立ち襟、左に打ち合わせのある長衣だ
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「……それは、ここより遥か北東の大草原を根拠とした、遊牧民の国家政権――『ウルス』の民族衣装だよ」
			PRINTFORMW 「歴史上幾度もこの土地の覇権を巡って争ってきた、いわばヴェロエアという国家の宿敵だな」
			PRINTL
			PRINTFORMW 「遊牧民たちの国家とは言っても、都城も構えた一端の主権国家さ」
			PRINTFORMW 「幼少期から馬とともに育ってきた彼らは全国民皆騎兵だから、その機動力・突破力は極めて高い」
			PRINTL
			PRINTFORMW 「さらに北方、極寒の山岳地に住まう少数民族が諸部族連合に参画しているようだが……」
			PRINTFORMW 「こいつらは、飛竜をいかなる方法か手懐け、数こそ少ないが字義通りの竜騎兵（ドラゴンライダー）として運用している」
			;現実の竜騎兵（ドラグーン）は銃火器で武装した騎兵のこと。FL世界にもいそうではあるが、ファンタジーならば竜に乗った騎兵が出るべきでしょう
			PRINTL
			PRINTFORMW 「空襲を仕掛けてくる竜騎兵が相手では、陣地も城壁も無用の長物だ」
			PRINTFORML 「野戦でも戦列歩兵を竜のブレスで焼き払ってから、重装騎兵の突撃で戦陣をズタズタにする……
			PRINTFORMW 　などという、魔物の軍勢もかくや、という戦法を平然と繰り出してくるらしい」
			PRINTL
			PRINTFORMW 「我が国が銃火器を積極的に取り入れだしたのも、ウルスの軍勢への対抗策を模索してのことだという」
			PRINTFORML 「常に一進一退を繰り返しながら、今の状態が作られているわけだが……
			PRINTFORMW 　境界の地区ではいやがらせのような、小規模な襲撃・略奪がやまないらしい」
			RESETCOLOR
			;ススキがパーティにいる場合
			IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("UC_ススキ"))) != -1
				PRINTL
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_ススキ"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				CALL KJ_PRINT(NAME_TO_CHARA("UC_ススキ"), @"「極東の方にあるうちの里の方にも、海を越えてウルスの連中がやって来たことがあったみたい」", 1)
				CALL KJ_PRINT(NAME_TO_CHARA("UC_ススキ"), @"「大嵐が来たとか何とかで、その時はなんとかなったらしいけど……」", 1)
				CALL KJ_PRINT(NAME_TO_CHARA("UC_ススキ"), @"「馬に乗ると目線が上がって、支配的・攻撃的になるとか。ホントかねえ？」", 1)
			ENDIF
		ENDIF
	CASE 3
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「冒険者か。私はここで魔物を研究している者だ」
			PRINTFORMW 「なに？　このような場でそんな研究をするのはふさわしくないのでは、だと？」
			PRINTFORMW 「人類に被害を出している以上、最優先で研究・対策をせねばならないのは当然だろう」
			PRINTL
			PRINTFORMDW 害獣駆除と同類と考えれば、まあ専門家がいてもおかしくはないのだが……
			PRINTL
			PRINTFORMW 「目下、東の峡谷地帯に拠点を構えた『山の魔人』なる存在の調査を行っている所だ」
			PRINTFORMW 「十数年前から活動が散発的に見られているが、近年その勢力が増大傾向にあるらしい」
			PRINTL
			PRINTFORML 「北のウルスの連中とも衝突を繰り返しているそうだが、あの戦馬鹿どもと何度もかち合って無事でいるあたり、
			PRINTFORMW 　その戦力侮りがたし、といったところだろう」
			PRINTL
			PRINTFORMW 「特異な点として……奴らの勢力は、魔物だけでなく、人間の兵員も混じっていることが挙げられるだろう」
			PRINTFORMW 「近隣の人里から若者を拉致し、何らかの方法で洗脳して自身の手駒としてしまうのだ」
			PRINTL
			PRINTFORMW 「……我が国の出した討伐隊も、将軍、指揮官が幾人も暗殺されて撤退を余儀なくされてしまった」
			PRINTFORMW 「身を挺した決死攻撃、まさに狂信の為せる業だろう。なんともおぞましい話だ」
			PRINTL
			PRINTFORMW 「とはいえ、積極的に攻め入ってこないのは、向こうにもこちらを落としきる戦力がないと見るべきなのか」
			PRINTFORMW 「不気味としかいいようがない……なんにせよ、情報収集は続けねばならんな」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_82
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "研究工作室"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_82
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 高等学院の付属施設に、アゥルフの知己の研究機関があると聞いていたので訪問してみることにした
	PRINTL
	PRINTFORML 「アゥルフの姐さんの……　あの幻獣を討ち滅ぼした方々ですか！
	PRINTFORMW 　ええ、とっちらかってはいますが、それでもよろしければ！」
	PRINTL
	PRINTFORMW 守衛の猫人に案内された離れの建屋からは、様々な騒音めいた異音が漏れ聞こえてくる……
	PRINTFORMW 倉庫のような広大な空間には、種々の工作機械が無造作に置かれている
	PRINTFORML また、パーテーションで区切られた空間……工房？には、錬金学由来の実験器具や加熱器具が設えられ、
	PRINTFORMW 薬品を調合・反応させる実験を行えるようになっているようだ
	PRINTL
	PRINTFORMW どうやら、学院に収まりきらない研究・実験・工作を行うための別棟のようだ
	PRINTFORMW ドワーフやハーフドワーフたちがその雑多な工房の隙間をぬって動き回っているのが見える
	PRINTFORMW かつて南方大陸にあったというドワーフの王国にも、このような施設があったのだろうか……
	PRINTL
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 門が締まっている……
	PRINTFORMW また出直すことにしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("ハーフドワーフの技術者", 1, "保護ゴーグルをかけた錬金学者",1, "ハーフドワーフのガンスミス",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 作法通りに礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「『聖典』の研究だけがこの学院の使命じゃあない」
			PRINTFORMW 「南方大陸から我らのご先祖様がもたらした工学技術をさらに発展させる試みも続いているぞ」
			PRINTL
			PRINTFORMW 「金属加工……切削や成形、表面加工や、工作機械の活用については随一と自負してる」
			PRINTFORMW 「音に聞こえし北方のアカデミー、西方の魔術協会など何のその、だ」
			PRINTFORMW 「我らの学究、とくとご覧あれ」
			RESETCOLOR
			;エルがパーティにいる場合
			IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("エル"))) != -1
				PRINTL
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("エル"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				CALL KJ_PRINT(NAME_TO_CHARA("エル"), @"「ふうん……アカデミーに伍する、とはまた、大きく出たものだね」", 1)
				CALL KJ_PRINT(NAME_TO_CHARA("エル"), @"「……まあ、技術水準は確かに高い。あながちハッタリでもなさそうだ」", 1)
			ENDIF
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「水銀と濃硝酸を反応させて硝酸水銀溶液を作り、そこにとある液体を加えると……」
			PRINTL
			CALL FL_PLAYSE("Craft_4.mp3")
			PRINTFORMDW 白い煙を立てていた瓶内の薬液が落ち着くと、液体の中には灰色の沈殿物が残っている
			PRINTL
			;雷酸水銀。雷管、パーカッション式銃あるいは実包の開発へとつながる物質
			PRINTFORMW 「こうして作られた粉末は、ほんの少しの衝撃で発火・炸裂を起こす性質を有している」
			PRINTL
			PRINTFORMW 「雷汞、と呼ばれているが……これは、間違いなく銃火器の性質を一変させるものになる」
			PRINTFORMW 「何しろ、銃や爆弾に必須だった火縄や火打石を不要とするものだ」
			PRINTFORMW 「研究を続ければ、いずれ様々な形で応用していけるだろうさ」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 作法通りに礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ウルスの連中……特に竜騎兵を遠方から撃ち落とす方法については、ずっと研究が続けられてきた」
			PRINTFORMW 「皮肉にも、一番有効なのがヤツらの同胞の弓騎兵の騎射なんだが……まあそれは置いておくとして」
			PRINTL
			PRINTFORMW 「現行のマスケット……いわゆる滑腔銃は、威力は十分だが射程と精度には難がある」
			PRINTFORMW 「だから、歩兵で戦列を組んで、近距離までにじり寄ってから一斉に発砲するわけだが」
			PRINTFORMW 「まぁ、竜相手にそんな悠長なことをやってたら、一息に焼かれちまうわな。そこで……これだ」
			PRINTL
			CALL FL_PLAYSE("Unlock_0.mp3")
			PRINTFORMDW ずい、と突き付けられた銃口に少し戦きながらも、その銃口をのぞき込むと……
			PRINTFORMDW 仄暗い銃身内には、らせん状の浅い溝が刻み込まれていた
			PRINTL
			PRINTFORMW 「回転物体は、その運動を乱されにくくなる、ってのは学院の実験でも確かめられていた」
			PRINTFORML 「つまり……銃身に溝を掘り、これに弾丸を食い込ませながら発射することで銃弾そのものを旋転させる。
			PRINTFORMW 　これによって弾道を安定させ、遠くまで正確に弾丸を飛ばすことができる……って寸法さ」
			PRINTL
			PRINTFORMW 「ただ、そのためには、口径よりも少し大きめの弾を無理やり込めて、溝から火薬の燃焼ガスを逃さないようにする必要がある」
			PRINTFORMW 「これだと、弾込めに時間がかかって発砲間隔が伸びちまう。これもまた竜の餌食だ」
			PRINTL
			PRINTFORMW 「要は、装填しやすいように発射前は小さく、発砲時には大きくなって施条に食い込む弾丸をこさえればいいわけだ」
			PRINTL
			PRINTFORMDW じゃらり、と示された銃弾は……球体ではない、椎の実のような円柱円錐の形をしていた
			PRINTL
			PRINTFORMW 「この弾は、発砲時の爆燃ガスで弾の後ろに仕込んだチップが楔のように弾を押し広げ、銃身に食い込むつくりになってる」
			;いわゆるミニエー銃ですね
			PRINTFORMW 「この銃身と弾を組み合わせた新型銃が――人呼んで、『ライフルド・マスケット』さ」
			PRINTFORMW 「威力・射程・命中精度、どれを取っても従来のマスケット銃より上を行く。竜騎兵にも遅れはとらんだろうさ」
			PRINTL
			PRINTFORMW 「……まあ、バレルの清掃や専用の弾丸の準備、簡便になったとはいえ弾丸の装填等々、今までの滑腔銃よりも面倒なことは多いんだが」
			PRINTFORMW 「ま、その辺の手続きは運用する連中が考えればいいこった」
			PRINTFORMW 「俺たちの仕事は、求められたものを求められた性能通りにきちんと形にすることだからな」
			RESETCOLOR
			;フレーヴェがパーティにいる場合
			IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("フレーヴェ"))) != -1
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("フレーヴェ"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				CALL KJ_PRINT(NAME_TO_CHARA("フレーヴェ"), @"「ううむ、この変態的な工作精度……やはり、ドワーフの技術を受け継ぐと称するだけのことはある」", 1)
				CALL KJ_PRINT(NAME_TO_CHARA("フレーヴェ"), @"「こんなところで、同輩に出会うとは。いやはや、世界は広いものだね」", 1)
			ENDIF
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_83
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "回廊の廊下"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_83

PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 一心に礼拝をしている……
	CASE IS < 1900
		IF QST_QUEST_53_MAPID_16_PROGRESS_LEVEL() == 4
			PRINTFORMW 掃除婦たちが話をしている……
			PRINTL
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「聞いた？　ここの学者だったナジブさん、郊外で石油を掘り当てたらしいよ」
			PRINTFORMW 「なんか、西の方から来た御大尽からもの凄い額の資金援助を受けたとか」
			PRINTFORMW 「まったく物好きな人もいるものだねえ」
			PRINTL
			RESETCOLOR
			PRINTFORMW ……それは自分のことだ、と言いたくなったが、ぐっとこらえておいた
		ELSE
			PRINTFORMW 研究室だったと思しき部屋を片付けている掃除婦がいる……
			PRINTL
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「ここの地質学者だった男が、山師になってしまったよ」
			PRINTFORMW 「出奔する前には、『これからは石油の時代だ！』とかなんとか言ってたかしらね」
			PRINTL
			PRINTFORMW 「え？　郊外の地質調査の後から色々調べ回っていたみたいだし、今もその辺りにいるんじゃないかね」
			RESETCOLOR
			;窪地で採掘投資を行っていない
			IF QST_QUEST_53_MAPID_16_PROGRESS_LEVEL() < 2
				;エルかフレーヴェがパーティにいる場合
				IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("エル"))) != -1
					PRINTL
					CALL DRAW_PORTRAIT(NAME_TO_CHARA("エル"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
					CALL KJ_PRINT(NAME_TO_CHARA("エル"), @"「石油、か。液体の燃料としてにわかに注目されているようだけれど……」", 1)
					CALL KJ_PRINT(NAME_TO_CHARA("エル"), @"「鯨油はおろか、石炭に取って代わる可能性もあるという話だし、ちょっと調べてみたいな」", 1)
				ELSEIF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("フレーヴェ"))) != -1
					PRINTL
					CALL DRAW_PORTRAIT(NAME_TO_CHARA("フレーヴェ"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
					CALL KJ_PRINT(NAME_TO_CHARA("フレーヴェ"), @"「ほう、石油が出ているのか。興味深いね」", 1)
					CALL KJ_PRINT(NAME_TO_CHARA("フレーヴェ"), @"「上手く使えば色々と使いでがありそうだ。ぜひ話を聞きに行こうじゃないか」", 1)
				ENDIF
				;窪地のイベントを活性化
				CALL QST_ACTIVATE_EVENT(160)
				CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			ENDIF
		ENDIF
	CASEELSE
		PRINTFORMW 門が締まっている……
		PRINTFORMW また出直すことにしよう
ENDSELECT

;-------------------------------------------------
;MAPID_9 EV90～
;救貧所
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_90
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "救貧所の中庭の様子"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_90
PRINTL
PRINTFORMW 礼拝所に併設された施設の中庭には、多くの人がつめかけていた
PRINTFORMW 全体に、身なりが薄汚れている所を見ると、貧民か難民の類であることがうかがえる
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORML 大釜で煮炊きした食物を配る黒いヴェール姿の女性や、怪我人・病人の周りを行き来する医師と思しき人々もいる
	PRINTFORMW 疲れ切った様子の人々に献身的に接する様子は、正教を信仰する民のそれを彷彿とさせた
	PRINTL
ELSE

ENDIF
PRINTL
PRINTFORMW 誰かに話を聞いてみようか？

$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("ベールを被った女性", 1, "隈が目立つ若い医者",1, "気風のいいご婦人",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSEIF HO_OCLOCK() > 1900
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「……見回りを行っています」
			PRINTFORMW 「お休みの方も多いので、どうぞお静かに……」
			RESETCOLOR
		ELSE
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「ここは、『寄進』によって運営されている、貧しい人々に配給を行う施設です」
			PRINTFORMW 「よろしければ、ご寄付をいただけないでしょうか」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSEIF HO_OCLOCK() > 1900
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「……む……んん」
			PRINTFORMW 「いかんいかん、今日の傷病者の記録をまとめねば……」
			RESETCOLOR
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ここでけが人や病人の対応をしているが……いつまで経っても、診療希望者は引きも切らない」
			PRINTFORMW 「……このままだと、私のほうが不摂生で倒れてしまいそうだよ」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSEIF HO_OCLOCK() > 1900
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「洗い物が終わったら、明日の仕込みだよ」
			PRINTFORMW 「……休む暇もありゃしないけど、困っている人たちはもっと苦しい思いをしているからね」
			RESETCOLOR
		ELSE
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「ありがたいことに食材はある、とかく足りないのは調理と配膳の人手さ」
			PRINTFORMW 「お偉い学者様方も、ご高説垂れるのは結構だけど……もう少し足元を見た方がいいんじゃないかね」
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_91
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "回廊にたむろする人々"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_91
PRINTL
PRINTFORML 回廊には、着の身着のまま座り込む人や、わずかな家財道具にもたれ掛かるように蹲る人々が
PRINTFORMW 力なくうなだれている……
PRINTL
PRINTFORMW 誰かに話を聞いてみようか？

$INPUT_LOOP
PRINTL
IF HO_OCLOCK() < 1900
	CALL ASK_MULTI_JUDGE("傷病兵", 1, "正教徒と思しき少年",1, "痩せこけた農夫",1, "汚れてはいるが整った身なりの男",1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「いい歳してこんなところで配給貰うのも心苦しいんだが……ちょいと、ハジをかいちまってな」
				PRINTL
				PRINTFORMDW 薄汚れた軍装と思しき衣服をまとった男には、片脚が無かった……
				PRINTL
				PRINTFORMW 「ウルスの連中と北辺で戦ってたんだが、このザマでお役御免さ」
				PRINTFORMW 「やつらは機動力を武器に略奪を繰り返してる。このままじゃあ難民が増える一方だ……くそったれ」
				RESETCOLOR
			ENDIF
		CASE 1
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「……奴隷として売られたけど、逃げてきた」
			PRINTFORMW 「まあ、言うほど待遇は悪くなかったんだけどな」
			PRINTFORMW 「小間使いというか、私兵というか……どっちにしても、一生子飼いで終わるのもイヤだったんでね」
			RESETCOLOR
		CASE 2
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 生気のない目で、無心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「住んでいた集落がウルスの襲撃にあって、北の方から逃げてきました……」
				PRINTFORMW 「軍馬の嘶きと……竜騎の咆哮が耳にこびりついて離れないのです」
				PRINTFORMW 「故郷に戻ったところで、またいつ襲われるか……ああ………」
				RESETCOLOR
			ENDIF
		CASE 3
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「エスターリアの船上から連れてこられてもう何年経つか……」
			PRINTFORMW 「異教徒の民の私掠船……海賊たちに、身代金狙いで捕虜にされてしまったんだ……」
			PRINTFORMW 「……忌々しい海賊たちめ、今に神から天罰が下るだろう……！」
			RESETCOLOR
		CASEELSE
			;リュミエールがパーティにいる場合
			IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("リュミエール"))) != -1
				PRINTL
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("リュミエール"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				CALL KJ_PRINT(NAME_TO_CHARA("リュミエール"), @"「………」", 1)
				PRINTL
				PRINTFORMW リュミエールが、いつもの無表情で立ち尽くしている
				PRINTFORMW ほんのわずかに……わずかばかりにだが、沈痛な面差しが見えた、気もする
				PRINTL
				CALL KJ_PRINT(NAME_TO_CHARA("リュミエール"), @"「……いえ。何処でも、あまり変わらないものですね」", 1)
				CALL KJ_PRINT(NAME_TO_CHARA("リュミエール"), @"「力無きものが虐げられるのは世の常、ですが……やりきれないものですね」", 1)
			ENDIF
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ELSE
	CALL ASK_MULTI_JUDGE("正教徒と思しき少年",1, "痩せこけた農夫",1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTFORMW 「…………」
			PRINTFORMW 身体を丸めて眠りこけている……
		CASE 1
			PRINTFORMW 「…………」
			PRINTFORMW 俯くようにして眠っている……と思いきや、目が開いている……
			PRINTFORMW 眠れないのだろうか……
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ENDIF
GOTO INPUT_LOOP

;-------------------------------------------------
;MAPID_10 EV100-
;スーク
;-------------------------------------------------
;EV100 会話イベント
@QST_ADD_EVENT_QUEST_53_EVENT_100
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "地元の商人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_100
PRINTL
IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
	PRINTFORMW 一心に礼拝をしている……
ELSE
	SETCOLOR カラー_オレンジ
	PRINTFORML 「ここの名産品？　色々あるけど……石鹸かねぇ？
	PRINTFORMW 　植物油を取ったオリーブがらを利用して作るんだよ」
	PRINTL
	PRINTFORMW 「ああ、あとは緞子（どんす）の織物も有名かね」
	PRINTFORMW 「礼拝の時に必ず使うけど、ふかふかで綺麗でいいものだよ」
	RESETCOLOR
	CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDIF

;EV101 会話イベント2
@QST_ADD_EVENT_QUEST_53_EVENT_101
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "妙に頬が膨らんだ老人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_101
PRINTL
IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
	PRINTFORMW 一心に礼拝をしている……
ELSE
	SETCOLOR カラー_ライトブルー
	PRINTFORMW 「……なんだい、旅人さん。そんなに珍しいかい？」
	PRINTL
	PRINTFORMDW やや聞き取りにくい声で会話しながらも、何かをもぐもぐと咀嚼するように老人の頬が動いている
	PRINTL
	PRINTFORMW 「……ああ、これかい？　カート、って言ってな」
	PRINTL
	PRINTFORMDW そう言うと、老人は枝ぐるみの若葉を示して見せた
	PRINTL
	PRINTFORML 「これを千切って頬に貯めながら、じっくり噛み潰していくとな、こう……
	PRINTFORMW 　パァーッと！　キマってくるって寸法さ」
	PRINTL
	PRINTFORMDW 大げさな身振り手振りで、ちょっとどこを見てるのかわからない目つきで力説する老人
	PRINTFORMDW ……要するに、「危ない葉っぱ」というわけか
	PRINTL
	PRINTFORMDL そんなものを、こんな往来で堂々と嗜んでていいのか……と思えば、
	PRINTFORMDW わりとそこらじゅうの旦那衆の頬が膨れているのが見て取れた
	PRINTL
	PRINTFORMW 「俺らは、酒を呑むのが戒律で禁じられてるからな。それに代わる娯楽ってヤツさ」
	PRINTL
	PRINTFORMDW ……なんだか、本末転倒な気もするのだが
	PRINTFORMDW 麻薬の類なら、禁止令とか取り締まりとか出そうなものではあるが
	PRINTL
	PRINTFORMW 「ハ、御大尽たちだって、コレをやりながら会議してんだ。禁止なんかできるもんかよ」
	PRINTL
	PRINTFORMDW 咀嚼音塗れの低い笑いが一斉に漏れた
	PRINTFORMDW まあ……個人の愉しみを咎めることもないだろう
	RESETCOLOR
	CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDIF

;EV102、会話イベント3
@QST_ADD_EVENT_QUEST_53_EVENT_102
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "手伝いの徒弟"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_102
PRINTL
IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
	PRINTFORMW 一心に礼拝をしている……
ELSE
	SETCOLOR カラー_ライトブルー
	PRINTFORMW 「お客さんは西方の人？　西の方って、どんなところなの？」
	PRINTL
	PRINTFORMW 「え？　見渡す限り、木がいっぱい生えてる？　森？」
	PRINTFORMW 「へええ、すごいなあ……！」
	PRINTL
	RESETCOLOR
	PRINTFORMW 砂漠と荒野の民には珍しいのか、色々な話を聞かれた……
ENDIF

;EV103、胡散臭い商人　渾身のアッサラーム商法が炸裂する
@QST_ADD_EVENT_QUEST_53_EVENT_103
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "胡散臭い商人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:SHOP]"

@QST_QUEST_53_EVENT_103
#DIM DYNAMIC CHARA_ID
#DIM DYNAMIC PRICE

PRINTL
IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
	PRINTFORMW 一心に礼拝をしている……
ELSE
	SETCOLOR カラー_ライトブルー
	PRINTFORMW 「おお、私の友達！」
	PRINTFORMW 「お待ちしておりました、売っているものを見ますか？」
	PRINTL
	PRINTFORMDW 何の気なしに商店を覗くと、東方伝来と思しき『美しい色絵の磁器』が陳列されていた
	PRINTFORMDW 促されて値段を見るが……どう見ても法外な値段である
	PRINTFORMDW こんな値段で買えるわけがないだろう、と返せば、
	PRINTL
	PRINTFORMW 「おお、お客さん、買い物上手。ワタシ、参ってしまいます！」
	PRINTL
	RESETCOLOR
	PRINTFORMW と言いながら、店主もしたり顔で笑っている
	;オリヴィアがパーティにいる場合
	IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("UC_オリヴィア"))) != -1
		PRINTL
		CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_オリヴィア"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「%ANAME(MASTER)%さん、ちょっと」", 1)
		PRINTL
		PRINTFORMW オリヴィアが、こちらの裾を引っ張ってくる
		PRINTL
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「……これが、この土地の商人の常套手段です。よそ者に対しては挨拶代わりに高額を吹っ掛けてきますが……」", 1)
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「対話の中で、うまく値引いていければ、だいぶ安く買い上げることもできますよ」", 1)
		PRINTL
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「どんどん押したり、時には興味を失った素振りで退いたり……」", 1)
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「商談の醍醐味……相手の気持ちを読んでの駆け引き、存分に楽しんでみてはいかがでしょう？」", 1)
		PRINTL
		CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「もし、どうしてもと言うなら……私がこのお話、まとめて差し上げてもよろしいですが」", 1)
	ELSE
		PRINTFORMW ……どうやら、値引くのも買い物のうち、ということらしい
	ENDIF
	PRINTL
	PRINTFORMW さて、買い物を続けようか？
	CALL ASK_MULTI_JUDGE("やめておく", 1, "買い物を続ける",1)
	SELECTCASE RESULT
		CASE 0
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「そうですか、残念です……」
			PRINTFORMW 「また、きっと来てくださいね！」
			RESETCOLOR
		CASE 1
			PRICE = 500000
			FOR LOCAL, 0, 3
				PRINTL
				PRINTFORML ■現在の価格：%TOSTR(PRICE, "###,###,##0")%ディナリ相当　　■手持ちの資金：%TOSTR(MONEY, "###,###,##0")%ディナリ
				SELECTCASE LOCAL
					CASE 0
						CALL QST_ROLL_MULTI("社交,", "値引き交渉を挑む(社交),", "100", 5, 1, "交渉をやめる", -1, 0, "", 1)
					CASE 1
						CALL QST_ROLL_MULTI("社交,", "さらに値引き交渉を挑む(社交),", "250", 15, 1, "交渉をやめる", -1, 0, "", 1)
					CASE 2
						CALL QST_ROLL_MULTI("社交,", "徹底した値引き交渉を挑む(社交),", "400", 25, 1, "交渉をやめる", -1, 0, "", 1)
				ENDSELECT
				CHARA_ID = RESULT:1
				IF RESULT == 1
					;交渉が一回成立するごとに半額に
					PRICE = PRICE / 2
					SELECTCASE LOCAL
						CASE 0
							PRINTFORMW %ANAME(CHARA_ID)%は世間話から入り、値引きを要求した…
						CASE 1
							PRINTFORMW %ANAME(CHARA_ID)%は他店の価格比較をし、値引きを要求した…
						CASE 2
							PRINTFORMW %ANAME(CHARA_ID)%は別の店に行くと嘯き、値引きを要求した…
					ENDSELECT
					PRINTL
					SETCOLOR カラー_ライトブルー
					SELECTCASE LOCAL
						CASE 0
							PRINTFORML 「では%TOSTR(PRICE, "###,###,##0")%ディナリにいたしましょう。
							PRINTFORMW 　これならいいでしょう？」
						CASE 1
							PRINTFORMW 「おお、これ以上まけると、ワタシ大損します！」
							PRINTFORML 「でも、アナタ友達！　では%TOSTR(PRICE, "###,###,##0")%ディナリにいたしましょう。
							PRINTFORMW 　これならいいでしょう？」
						CASE 2
							PRINTFORMW 「おお、アナタ、ひどいひと！　ワタシに首つれと言いますか！」
							PRINTFORML 「仕方ありません、では%TOSTR(PRICE, "###,###,##0")%ディナリにいたしましょう。
							PRINTFORMW 　これならいいでしょう？」
					ENDSELECT
					RESETCOLOR
				ELSE
					PRINTFORMW 値引き交渉に失敗した……
				ENDIF
				PRINTL
				PRINTFORML ■現在の価格：%TOSTR(PRICE, "###,###,##0")%ディナリ相当　　■手持ちの資金：%TOSTR(MONEY, "###,###,##0")%ディナリ
				PRINTFORML 『色絵の陶磁器』をこの値段で購入しようか？
				CALL ASK_MULTI_JUDGE("やめておく", 1, "購入する", MONEY > PRICE, "もう少し吹っ掛ける", LOCAL < 2)
				PRINTL
				SELECTCASE RESULT
					CASE 0
						SETCOLOR カラー_ライトブルー
						PRINTFORMW 「そうですか、残念です……」
						PRINTFORMW 「また、きっと来てくださいね！」
						RESETCOLOR
						;一度でも交渉したら一度折る　再訪時にまたトライ可能に
						CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
						BREAK
					CASE 1
						SETCOLOR カラー_ライトブルー
						PRINTFORMW 「おお、ありがとう、ワタシの友達！」
						RESETCOLOR
						PRINTFORMW 商人はニコニコしながら、商品を取りまとめてくれた
						MONEY -= PRICE
						CALLF TAG_PRINT(@"@C:{カラー_注意}@%TOSTR(ABS(PRICE),"###,###,##0")%ディナリを失った@/C@", 1)
						CALL FL_PLAYSE("Money_0.mp3")
						CALL PRINT_NOTICE(@"設備　[色絵の磁器]　を一つ入手した", カラー_緑)
						HO_MODULE_STOCK:708 += 1
						CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
						;成立したら一度折る　再訪時にまたトライ可能に
						CALL QST_DEACTIVATE_EVENT(QST_NOWEV)

						;オリヴィアがパーティにいる場合　寸評
						IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("UC_オリヴィア"))) != -1
							PRINTL
							CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_オリヴィア"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
							SELECTCASE PRICE
								CASE 500000
									CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「%ANAME(MASTER)%さん、あの流れで言い値で買うのはどうかと……」", 1)
									PRINTFORMW オリヴィアの視線が痛い……
								CASE 250000
									CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「%ANAME(MASTER)%さん、まだまだ値切れたと思いますが」", 1)
									PRINTFORMW オリヴィアは少し不満げだ……
								CASE 125000
									CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「まあまあ、でしょうかね。もう一押し行けたかもしれませんが」", 1)
									PRINTFORMW オリヴィアは商品を矯めつ眇めつしながら、納得したような顔で頷いている……
								CASE 62500
									CALL KJ_PRINT(NAME_TO_CHARA("UC_オリヴィア"), @"「うん、この価格なら上等でしょう。いい買い物をしました！」", 1)
									PRINTFORMW オリヴィアが狐耳をピンと立て、満足げな表情で頷いている……
							ENDSELECT
						ENDIF
						BREAK
					CASE 2
						CLEARLINE 5
						CONTINUE
				ENDSELECT
			NEXT
	ENDSELECT
ENDIF

;EV104 スーク
@QST_ADD_EVENT_QUEST_53_EVENT_104
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "スーク"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:SHOP]"

@QST_QUEST_53_EVENT_104
CALL HO_SHOP_MENU("QUEST_53_スーク", "スーク", "QUEST_53_DIC_SHOP_STOCK_0")

;EV105 エレノア
@QST_ADD_EVENT_QUEST_53_EVENT_105
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "陰気な露店"
RESULTS:0 = %EVENT_TRIGGER%
IF CFLAG:NAME_TO_CHARA("UC_ロイド"):所属 == 所属_ゲストNPC
	RESULTS:1 = エレノア達の露店
ELSE
	RESULTS:1 = %EVENT_SLOT_NAME%
ENDIF
RESULTS:3 '= "[EVENT_ICON:SHOP]"

@QST_QUEST_53_EVENT_105
VARI CHARA_ID
CHARA_ID = NAME_TO_CHARA("エレノア")

;採掘助手クエストみたいにできたらいいね？　まぁ気力が沸けばそのうち……
IF CFLAG:NAME_TO_CHARA("UC_ロイド"):所属 == 所属_ゲストNPC
	PRINTL
	IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
		PRINTFORMW エレノアとロイドは礼拝中のようだ。少し待つ必要があるだろう……
		RETURN
	ELSE
		;エレノアがロイドに遺産を残さねば……！　と商売に本気になる＋ロイドが優秀なので店は繁盛する
		PRINTFORML 市場の外縁部に位置するその露店は、以前とは違い賑わいを見せている
		PRINTFORMW 客足が増えたからか、エレノアの店の周りにも他の露店が増え始めているようだ
		PRINTL
		PRINTFORML ロイドは客と会話をしていたが、目が合うと会釈をしてきた
		PRINTFORMW 遅れてエレノアもこちらに気付いたようで、表情を明るくして軽く手を振ってくる
		PRINTL
		PRINTFORMW 商品を見るか、あるいはエレノアやロイドと話をしてみるのもいいだろう……
	ENDIF
ELSEIF CFLAG:CHARA_ID:面識 != 1
	PRINTL
	PRINTFORML 賑やかな中心部から離れた、市場の外縁。その露店は、喧騒を避けるかのようにひっそりと存在していた
	IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
		PRINTFORMW フード姿の店主は作法通りの礼拝をしている。買い物をしたいなら少し待つ必要があるだろう……
		RETURN
	ELSE
		PRINTFORMW フードを被った店主と思しき女性は、こちらに気づくと会釈をしてきた
		PRINTL
		PRINTFORML 並べられている品々を見るに、薬品店だろうか。怪しげな風体の店主は錬金術師らしい
		PRINTFORMW 商品を見るか、あるいは店主と話をしてみるのもいいだろう……
	ENDIF
ELSE
	PRINTL
	PRINTFORML 賑やかな中心部から離れた、市場の外縁。その露店は、喧騒を避けるかのようにひっそりと存在していた
	IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
		PRINTFORMW エレノアは作法通りの礼拝をしている。話や買い物をしたいなら少し待つ必要があるだろう……
		RETURN
	ELSE
		PRINTFORMW エルフの店主――エレノアはこちらに気が付くと表情を明るくし、軽く手を振ってきた
		PRINTL
		PRINTFORMW 商品を見るか、あるいは店主と話をしてみるのもいいだろう……
	ENDIF
ENDIF

$INPUT_LOOP
PRINTL
IF　CFLAG:NAME_TO_CHARA("UC_ロイド"):所属 == 所属_ゲストNPC
	CALL ASK_MULTI_JUDGE("商品を見る", 1, "エレノアと会話",1, "ロイドと会話",1, "やめておく", 1)
ELSEIF CFLAG:CHARA_ID:面識 < 1
	CALL ASK_MULTI_JUDGE("商品を見る", 1, "フードの女性と会話",1, "やめておく", 1)
ELSE
	CALL ASK_MULTI_JUDGE("商品を見る", 1, "エレノアと会話",1, "やめておく", 1)
ENDIF

IF CFLAG:NAME_TO_CHARA("UC_ロイド"):所属 != 所属_ゲストNPC
	SELECTCASE RESULT
		CASE 0
			CALL HO_SHOP_MENU("QUEST_53_陰気な露店", "陰気な露店", "QUEST_53_DIC_SHOP_STOCK_2")
		CASE 1
			;他種族の文化に慣れ親しんでいるので、郷に入っては郷に従う
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 作法通りの礼拝をしている……
			ELSEIF CFLAG:CHARA_ID:面識 < 1
				CALL DRAW_PORTRAIT(CHARA_ID, "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				PRINTL
				SETCOLOR 0x24A884
				PRINTFORML 「あら、お客さんですか？
				PRINTFORMW 　わたくしは薬売りを営んでおります。よろしければ見ていってくださいな」
				RESETCOLOR
				;CFLAG:CHARA_ID:面識 = 1
				;面識はクエストで付与
			ELSE
				CALL DRAW_PORTRAIT(CHARA_ID, "[感情:喜][サイズ:150px][POS_X:100]",, 1)
				PRINTL
				SETCOLOR 0x24A884
				PRINTFORML 「あら、冒険者様。その節は大変お世話になりました。
				PRINTFORMW 　よろしかったら商品を見ていってくださいな」
				IF LIST_INDEXOF(_LIST_QST_PARTY, TOSTR(NAME_TO_CHARA("UC_ロイド"))) != -1
					PRINTL
					PRINTFORMW 「ロイド様も、お会いできて嬉しいですわ」
					PRINTL
					CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_ロイド"), "[感情:喜][口:笑い][サイズ:150px][POS_X:100]",, 1)
					PRINTL
					CALL KJ_PRINT(NAME_TO_CHARA("UC_ロイド"), @"「エレノアさんこそ、元気そうで何よりだ」", 1)
				ENDIF
				RESETCOLOR
			ENDIF
		CASEELSE
			PRINTL
			PRINTFORMW 露店を後にした……
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
	GOTO INPUT_LOOP
ELSE
	SELECTCASE RESULT
		CASE 0
			CALL HO_SHOP_MENU("QUEST_53_陰気な露店", "陰気な露店", "QUEST_53_DIC_SHOP_STOCK_2")
		CASE 1
			;他種族の文化に慣れ親しんでいるので、郷に入っては郷に従う
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 作法通りの礼拝をしている……
			ELSE
				CALL DRAW_PORTRAIT(CHARA_ID, "[感情:喜][サイズ:150px][POS_X:100]",, 1)
				PRINTL
				SETCOLOR 0x24A884
				PRINTFORML 「あら、冒険者様。その節は大変お世話になりました。
				PRINTFORMW 　最近は忙しくて……ふふ、嬉しい悲鳴ですね。よろしかったら商品を見ていってくださいな」
				RESETCOLOR
			ENDIF
		CASE 2
			;ロイドの加入を断った場合、ここで働く。出来れば加入させてほしいのであまり大規模のイベントは作る気はないが、そのうちお礼イベントくらいは用意すべきか
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 作法通りの礼拝をしている……
			ELSEIF CFLAG:NAME_TO_CHARA("UC_ロイド"):面識 < 1
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_ロイド"), "[感情:通常][サイズ:150px][POS_X:100]",, 1)
				PRINTL
				SETCOLOR 0xFFF420
				PRINTFORML 「あなたは――エレノアさんからお話しは伺っています
				PRINTFORMW 　助けて頂き、ありがとうございました。いつか、お礼は必ず」
				RESETCOLOR
				CFLAG:NAME_TO_CHARA("UC_ロイド"):面識 = 1
				CFLAG:NAME_TO_CHARA("UC_ロイド"):好感度 += 200
			ELSE
				CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_ロイド"), "[感情:喜][口:笑い][サイズ:150px][POS_X:100]",, 1)
				PRINTL
				SETCOLOR 0xFFF420
				PRINTFORML 「ああ、%QST_LEADER_NAME(1)%さん。いらっしゃいませ
				PRINTFORMW 　俺は何とかやっていけてますよ。今日は商品を見にいらしたんですか？」
				RESETCOLOR
			ENDIF
		CASEELSE
			PRINTL
			PRINTFORMW 露店を後にした……
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
	GOTO INPUT_LOOP
ENDIF

;-------------------------------------------------
;MAPID_11 EV110-
;隊商宿
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_110
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "隊商宿の主人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_110
PRINTL
IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
	PRINTFORMW 一心に礼拝をしている……
ELSE
	PRINTFORMW 「あんたらが、キャラバン・ロードを再開通させてくれたっていう冒険者か」
	PRINTL
	PRINTFORMW 「アゥルフの友人なら俺らにとっても友人だ」
	PRINTFORMW 「部屋なら空いてるよ、よければ泊まっていきな！」
	CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDIF

@QST_ADD_EVENT_QUEST_53_EVENT_111
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "隊商宿のロビー"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_111
PRINTL
PRINTFORMW 隊商宿のロビーには、様々な服装、人種の人々が集い、思い思いにくつろいでいるようだ
PRINTL
PRINTFORMW 誰かに話を聞いてみようか？

$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("喫茶スペースの給仕", 1, "長い筒を咥えた男",1, "帳簿と睨めっこしている商人",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「お客人にはコーヒーを振舞ってるよ……はい、どうぞ」
			PRINTL
			CALL FL_PLAYSE("Put_0.mp3")
			PRINTFORMDW 美麗な装飾が施された、取っ手のない小さなコップに黒い液体が注がれている……
			PRINTFORMDW ありがたく頂戴すると……無糖で苦いが、不思議と爽やかな風味が口腔内を駆け抜けた
			PRINTL
			PRINTFORMW 「コーヒー豆だけでなく、いくつかのスパイスをブレンドしているんだ」
			PRINTFORMW 「甘いデーツやドライフルーツも用意してるから、付け合わせにどうぞ」
			RESETCOLOR
		ENDIF
	CASE 1
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「……んー？　ああ、これかい？」
			PRINTFORMW 「水タバコ、って言ってね。タバコの煙をいったん水にくぐらせてから吸うのさ」
			PRINTL
			PRINTFORMDW 長い筒のつながった、美麗な装飾の施された根元の壺を示しながら男が笑う
			PRINTL
			PRINTFORMW 「煙が冷やされ、ろ過されるから、柔らかい口当たりになるんだよ」
			PRINTFORMW 「この火皿で燃やしてるタバコの葉には香料や糖蜜も混ぜてあるから、独特の甘い香りが立ち上るワケ」
			PRINTL
			PRINTFORMDW ぷかー、と実にリラックスした様子で煙を吐き出す男
			PRINTL
			PRINTFORMW 「それに、一回の喫煙で小一時間はゆったり楽しめる。休憩にはもってこいなのさ」
			RESETCOLOR
		ENDIF
	CASE 2
		IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
			PRINTFORMW 一心に礼拝をしている……
		ELSE
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「南部で仕入れた絹糸を此処で卸して……東方のスパイスを仕入れて……」
			CALL FL_PLAYSE("Page_1.mp3")
			PRINTFORMW 「ああ、極東からの染料も……いや、ここはフォルメンまで足を伸ばして……」
			PRINTL
			PRINTFORMDW ぶつぶつ、と帳簿をめくりながら商人が頭を掻いている
			PRINTFORMDW 商材に溢れているゆえ、どう商うべきか悩みは尽きないのだろう
			RESETCOLOR
		ENDIF
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

;隊商宿の部屋を借りる
@QST_ADD_EVENT_QUEST_53_EVENT_112
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "部屋を借りる"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:CHESS-ROOK]"

@QST_QUEST_53_EVENT_112
PRINTFORML 「部屋は一泊2,500ディナリだ」
PRINTFORMW 「くく、友人とはいえ、宿泊代はまからんぜ？」
PRINTL
CALL ASK_MULTI_JUDGE("部屋を借りる", MONEY >2500 , "やめておく", 1)
PRINTL
IF RESULT
	PRINTFORMW やめておこう……
	RETURN
ENDIF
PRINTFORMW 「ほれ、部屋の鍵だ。これで好きに出入りするといい」
CALL PRINT_NOTICE("主人から客室の鍵を受け取った")
CALL FL_PLAYSE("Money_0.mp3")
CALL QST_CHANGE_ITEM("MONEY,-2500,")
CALL QST_ACTIVATE_EVENT(113)
CALL QST_SET_FLAGMAP("客室の鍵", "入手済")
CALL QST_DEACTIVATE_THIS_EVENT()

;隊商宿の客室
@QST_ADD_EVENT_QUEST_53_EVENT_113
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "客室に入る"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
;初期状態をイベント非活性に
;EVENT132で客室を借りると有効化される
RESULTS:3 '= "[EVENT_STATE:DEACTIVE][EVENT_ICON:CHESS-ROOK]"

@QST_QUEST_53_EVENT_113
#DIM EVENT_FLAG
#DIM CHARA_ID

CALL QST_GET_EVENT_FLAG(QST_NOWEV)
EVENT_FLAG = RESULT

IF !EVENT_FLAG
	PRINTFORMW %QST_LEADER_NAME()%は客室の鍵を開けた……
	CALL QST_SET_EVENT_SLOT_NAME(, @"客室を出る")
	CALL QST_SET_EVENT_FLAG(QST_NOWEV, 1)
	;このイベントIDのイベント以外実行不可に
	QST_イベント選択制限 = QST_NOWEV
	;1=隣接エリアのみ移動可,2=エリア移動不可
	FLAG:移動制限フラグ = 2
	;ウフフ系コマンドの実行を許可
	FLAG:クエスト_ウフフ許可 = 1
	;擬似的に設備:ベッド(ID=8)を使っている状態にする
	TFLAG:クエスト_ダミー設備ID = 8
ELSE
	PRINTFORMW %QST_LEADER_NAME()%は客室を立ち去った……
	CALL QST_SET_EVENT_SLOT_NAME(, @"客室に入る")
	CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
	QST_イベント選択制限 = -1
	FLAG:移動制限フラグ = 0
	FLAG:クエスト_ウフフ許可 = 0
	TFLAG:クエスト_ダミー設備ID = 0
	CALL QST_REDRESSALL
ENDIF

@QST_ADD_EVENT_QUEST_53_EVENT_114
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "獣人の屋台"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_114
#DIM DYNAMIC TARGET_ID
SELECTCASE HO_OCLOCK()
	CASE IS < 1500
		IF QST_GET_FLAGMAP("食事状態") == "昼食済"
			PRINTFORMW 今は満腹だ……
			RETURN
		ELSE
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「いらっしゃい！」
			PRINTL
			PRINTFORMDW やたらいい匂いがすると思えば……
			PRINTFORMDW 縦に長い立派な肉塊を、ゆっくりと回転させながらグリルしているようだ
			PRINTL
			PRINTFORMW 「美味しそうだろ？　どう、食べてくかい？」
			PRINTL
			RESETCOLOR
			PRINTFORML 1,500ディナリで食事をとることができるようだ
			PRINTL
			CALL ASK_YN("食事にする", "やめておく")
			PRINTL
			IF !RESULT
				IF MONEY < 1500
					PRINTFORMW お金が足りないようだ……
					RETURN
				ENDIF
			ELSE
				PRINTFORMW やめておこう……
				RETURN
			ENDIF
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「はいはい、ちょっと待っておくんな」
			PRINTL
			PRINTFORMDW 塊のままグリルされている肉を器用に薄切りにしていく……
			PRINTFORMDW その肉はたちまちのうちに、ポケット状にしたパンの中に野菜と共にどっさりと詰め込まれた
			PRINTL
			PRINTFORMW 「はいよ！　シャワルマ、っていうんだ。熱いうちに食べてってくれよ！」
			RESETCOLOR
			PRINTL
			FOR LOCAL, 0, QST_PARTYNUM
				TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
				CALL QST_CHANGE_HP(TARGET_ID, 2500)
			NEXT
			CALL QST_SET_FLAGMAP("食事状態", "昼食済")
			PRINTL
			PRINTFORML ……これは美味い！
			PRINTFORMW サンドイッチとはまた違う、シンプルながらパンチのある味わいに舌鼓を打った……
			CALL FL_PLAYSE("Money_0.mp3")
			CALL QST_CHANGE_ITEM("MONEY,-1500,")
		ENDIF
	CASE IS > 1501
			IF QST_GET_FLAGMAP("食事状態") == "夕食済"
			PRINTFORMW 今は満腹だ……
			RETURN
		ELSE
			PRINTL
			SETCOLOR カラー_オレンジ
			PRINTFORMW 「いらっしゃーい」
			PRINTL
			PRINTFORMDW 揚げ物の匂いに誘われてくれば……
			PRINTFORMDW コロッケのようなものをグリルしているようすが見受けられた
			PRINTL
			PRINTFORMW 「キッベって言ってね。小麦の生地の中に挽肉を詰めた料理さ。　どう、食べてく？」
			PRINTL
			RESETCOLOR
			PRINTFORML 2,500ディナリで食事をとることができるようだ
			PRINTL
			CALL ASK_YN("食事にする", "やめておく")
			PRINTL
			IF !RESULT
				IF MONEY < 2500
					PRINTFORMW お金が足りないようだ……
					RETURN
				ENDIF
			ELSE
				PRINTFORMW やめておこう……
				RETURN
			ENDIF
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「はいはい、ちょっとお待ちよ」
			PRINTL
			PRINTFORMDW 適度に焦げ目がつけられたきつね色のボール大の塊が、
			PRINTFORMDW 豪勢な野菜や芋のソテーとともに皿に乗せられた……
			PRINTL
			PRINTFORMW 「できあがり！　さあさ、どうぞ！」
			RESETCOLOR
			PRINTL
			FOR LOCAL, 0, QST_PARTYNUM
				TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
				CALL QST_CHANGE_HP(TARGET_ID, 2500)
			NEXT
			CALL QST_SET_FLAGMAP("食事状態", "夕食済")
			PRINTL
			PRINTFORML ……これは美味い！
			PRINTFORMW コロッケよりも衣が強く、ザクザクとした歯ごたえとスパイスの効いた挽肉がよくマッチしている！
			CALL FL_PLAYSE("Money_0.mp3")
			CALL QST_CHANGE_ITEM("MONEY,-2500,")
		ENDIF
ENDSELECT

@QST_ADD_EVENT_QUEST_53_EVENT_115
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "告知板"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_115
#DIM DYNAMIC TARGET_ID

PRINTFORML カウンターの横には告知板があり、労働者向けの募集のほか当地の冒険者ギルドが依頼を掲示しているようだ
PRINTFORMW 隊商護衛の仕事が多いが、興味がある案件があれば取り掛かってみてもいいだろう……
PRINTL
SETCOLOR カラー_注意
PRINTFORMW 依頼をこの場で受注できるが、クエスト後には補給・治療のため一度拠点に帰還する必要がある
RESETCOLOR
PRINTL
CALL QUEST_53_EV115_QUEST_LIST

;-------------------------------------------------
;MAPID_12 EV120～
;旧市街北門
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_120
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "日焼けした門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_120
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 一心に礼拝をしている……
	CASEELSE
		PRINTL
		PRINTFORML 「ここが旧市街と新市街の境目です」
		PRINTFORMW 「ここから北側には、ドワーフの居留地がありますよ」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

@QST_ADD_EVENT_QUEST_53_EVENT_121
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "ハーフドワーフの門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_121
PRINTL
SELECTCASE HO_OCLOCK()
	CASE 1205 TO 1230, 1700 TO 1730
		PRINTFORMW 作法通りの礼拝をしている……
	CASEELSE
		PRINTFORMW 「俺はあっちにあるドワーフ居留区の出身でね」
		PRINTFORMW 「何でも、大戦のころに南方大陸から避難してきたドワーフや亜人種たちがそのまま居ついた場所らしい」
		PRINTFORMW 「ドワーフだけでなく亜人種たちのコミュニティもあるし、色んな人種が行き交う街になっているのさ」
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ENDSELECT

;-------------------------------------------------
;MAPID_13 EV130～
;ドワーフ居留区入口
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_130
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "居留区の広場"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_130
PRINTL
PRINTFORMW アゥルフの知己の鍛冶師がいると聞いて、ドワーフ居留区にやってきたが……
PRINTL
PRINTFORMW ……うるさい。すごいうるさい
PRINTL
PRINTFORMW 周囲の会話音量が、旧市街の三倍増しくらいに跳ね上がったような気がする……
PRINTFORMW 誰かに話を聞いてみようか？

$INPUT_LOOP
PRINTL
IF HO_OCLOCK() < 1900
	CALL ASK_MULTI_JUDGE("若いドワーフ", 1, "ヴェロエア風の衣服をまとった老ドワーフ",1, "出入りの商人",1, "背の高いハーフドワーフ", 1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			SETCOLOR カラー_ライトブルー
			PRINTFORMDW ……矮躯ながら、岩盤のように分厚い胸板、丸太のように屈強な四肢
			PRINTFORMDW 編みこみとビーズによる飾り付けが入った長い髭と、ぎょろりとした瞳に濃い眉、高いかぎ鼻……
			PRINTL
			PRINTFORMDW まさしく、寝物語に聞いた『ドワーフ』そのものだ！
			PRINTL
			PRINTFORMW 「ああ゛？　なんだコラ、ガンつけてんじゃねえぞ！」
			PRINTL
			PRINTFORMDW ……気性が激しく、喧嘩っ早いのもそのとおりだった！
			RESETCOLOR
		CASE 1
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「もう長い事ここに暮らしてるが……衣食には馴染んだものだわい」
			PRINTFORMW 「だが、宗教だけはダメじゃ。ありゃあどうもいけ好かん」
			PRINTL
			PRINTFORMW 「何しろ、酒が呑めんからな。呑まずに人生なんかやってられんからの！」
			PRINTL
			RESETCOLOR
			PRINTFORMW ガハハ、と笑いながら、豪快に酒瓶から蒸留酒をラッパ飲みしている……
		CASE 2
			IF INRANGE(HO_OCLOCK(), 1205, 1230) || INRANGE(HO_OCLOCK(), 1700, 1730)
				PRINTFORMW 一心に礼拝をしている……
			ELSE
				SETCOLOR カラー_ライトブルー
				PRINTFORMW 「この地区のドワーフたちには、あまり真教の教えは浸透していません」
				PRINTFORMW 「もともと自主独立の精神が強い方々なので、宗教とかそういうのが馴染まないんでしょうね」
				PRINTL
				PRINTFORMW 「まあ、こうして同じ町で、よき隣人としてともに暮らしていけるだけでもよしと――」
				PRINTL
				PRINTFORMDW ああ！？　やんのかコラァ！　はぁ！？舐めてんのかテメェ！
				CALL FL_PLAYSE("HeavySmash_1.mp3")
				PRINTFORMDW （ひどい罵り合いと、物が壊れる音が続く）
				PRINTL
				PRINTFORMW 「…………」
				PRINTFORMW 「ま、まあ、これもドワーフらしさ、ということで」
				RESETCOLOR
			ENDIF
		CASE 3
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ここだと、旧市街区だと背が低い方の俺でも、自分が長躯だと錯覚するよ」
			PRINTFORMW 「この街区だとハーフは珍しいのかって？　そうだな、ハーフドワーフの同輩は、わりと此処を出て暮らしてるヤツも多いかな」
			PRINTL
			PRINTFORMW 「真教の教えに帰依するヤツもいるし、学問を究めたり兵役に就いたりするヤツもいる」
			PRINTFORMW 「まぁそれでも、みんな此処に戻ってくると落ち着くらしいな」
			PRINTL
			PRINTFORMW 「本当の故地は、今は戻れない南の大地なんだろうが……今はここが、俺たちの故郷だからさ」
			RESETCOLOR
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ELSE
	CALL ASK_MULTI_JUDGE("軒先の飲み屋", 1, "酒を運ぶドワーフ",1, "踊っているドワーフの女性",1, "やめておく", 1)
	SELECTCASE RESULT
		CASE 0
			PRINTFORMW 髭面のむさい男たちが狭いカウンターに身を寄せ合い、大声を張り上げてガハハと笑っている
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「しっかし、こないだの仕事は訳がわからんかったのお」
			PRINTFORMW 「そうじゃのう、なんの鉱石の気配もない郊外の丘陵をほじくり返して、満足そうに帰って行きよったわ」
			PRINTFORMW 「お偉い学者さんの考えてることはよくわからんのお」
			PRINTFORMW 「まったくじゃあ」
			RESETCOLOR
		CASE 1
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「ここの居留地には、ドワーフたちが経営する大きな蒸留所があるんだ」」
			PRINTFORMW 「そこで、ナツメヤシやブドウから醸造した酒を蒸留して、この『アラック』を作ってるのさ」
			PRINTL
			PRINTFORMDW 蒸留酒が詰まった樽２つを軽々と担ぎ上げながら、ドワーフが歯を見せて笑った
			PRINTL
			PRINTFORMW 「味は俺たちが保証するさ。ドワーフは鉱石と酒にはうるさいからな！」
			PRINTFORMW 「……真教の連中の頭が堅くなけりゃあ、旧市街の方にも売り込みにいけるんだがなあ」
			RESETCOLOR
		CASE 2
			PRINTFORMW 矮躯ではあるが肉感的なドワーフの女性が、ダラブッカとウードの音色を背に舞い踊る…
			PRINTL
			SETCOLOR カラー_ライトブルー
			PRINTFORMW 「いいぞー、ねーちゃん！」
			PRINTFORMW 「もっと激しく踊れー！」
			RESETCOLOR
			PRINTL
			PRINTFORMW 既に出来上がっている大酒飲みの赤ら顔のドワーフたちが口々に大声で囃し立てる
			PRINTFORMW ……耳が痛い。物理的に
			PRINTL
			PRINTFORMW ドワーフの踊り子は、そんな観衆もどこ吹く風で、軽妙かつ妖艶な踊りを続けている……
		CASEELSE
			CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
			RETURN
	ENDSELECT
ENDIF
GOTO INPUT_LOOP

;-------------------------------------------------
;MAPID_14 EV140～
;ベルク鉄工所・鍛屋
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_140
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "獣人の門衛"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_140
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 「ここは、ン百年のドワーフの伝統を受け継ぐ鍛冶屋だよ」
	PRINTL
	PRINTFORMW 行商のアゥルフの紹介でやって来た、と門衛に名乗ると、
	PRINTL
	PRINTFORMW 「あぁ、アゥルフの姐さんから話は聞いてまさぁ」
	PRINTFORMW 「どうぞどうぞ、見てってくだせぇ」
ELSE
	PRINTFORMW 「今日の営業は終了でさ」
	PRINTFORMW 「またお越しくだせぇ」
ENDIF

@QST_ADD_EVENT_QUEST_53_EVENT_141
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "精錬所の様子"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_141
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 門衛の案内で、高い煙突を備えた建屋に通される
	PRINTFORMW 建屋に入った瞬間……ぶわっ、と押し迫る熱気に圧倒される
	PRINTFORMW その熱源たる金属精錬の心臓部、巨大な炉に燃料をくべるドワーフたちの姿が見て取れる
	PRINTL
	PRINTFORMW 煤と汗に汚れたドワーフたちの精悍な横顔には、緊張感が漲っている……
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 今日の営業は終了しているようだ……
	PRINTFORMW また出直すとしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("徒弟のハーフドワーフ", 1, "るつぼに囲まれたドワーフ",1, "炉を睨みつけるドワーフ",1, "るつぼを砕くドワーフ", 1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「どけどけぇ、ヤケドしたくないなら引っ込んでなァ！」
		RESETCOLOR
		PRINTL
		PRINTFORMW 汗まみれの赤ら顔がドタドタと木箱を背負って走り回っている……
	CASE 1
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「…………」
		PRINTL
		PRINTFORMDW 鉄鉱石と黒い粉末、マナ触媒や植物の葉・果皮のようなものを「るつぼ」に入れる作業を黙々と繰り返している……
		PRINTFORMDW その軽量と混合の手つきに澱みはなく、熟練者の風格をうかがわせる
		PRINTL
		PRINTFORMW 「……………………」
		RESETCOLOR
		PRINTL
		PRINTFORMW 心なしか迷惑そうな顔をしている……ドワーフには珍しく、シャイな質なのかもしれない
	CASE 2
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「……こうして赤熱する炉を見続けてると、火の粉なんかで目を患うヤツも多い」
		PRINTFORMW 「俺たちは並みの人族より丈夫にできてるからな、多少の無茶も何とかなるのさ」
		RESETCOLOR
		PRINTL
		PRINTFORMW そう言いながらドワーフがニッ、といい笑顔で笑った
		PRINTFORMW 大量の燃料をくべ、飛び散る火の粉をものともしないその姿は、まさに古の火の民そのものだ
	CASE 3
		PRINTFORMW 年嵩のドワーフが炉から取り出されたと思しきるつぼを砕いて、中身を検めている
		PRINTL
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「おう、なかなかの出来だなァ」
		PRINTFORMW 「これが、この鉄工所伝統の逸品……『ウーツ鋼』さ」
		PRINTL
		PRINTFORMDW ドワーフが光にかざしたその鋼のインゴットは、表面に不可思議なきらめきと紋様を帯びている……
		PRINTL
		PRINTFORMW 「製法は秘密だが……うちで作られたウーツ鋼は、それはもう上物も上物だぜ」
		PRINTFORMW 「この特殊鋼で使った武具の美しさと靭さは、西方の鋼の武具なんぞとは比べ物にならんよ」
		PRINTFORMW 「鍛屋のほうで実際に鍛え研がれた武具を見ていくといい」
		RESETCOLOR
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

@QST_ADD_EVENT_QUEST_53_EVENT_142
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "鍛屋の様子"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_142
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 門衛の案内で、精錬所の隣の建屋に通される
	PRINTFORML こちらでは、外にも漏れ聞こえていた音の源――赤熱した鋼を金槌で鍛造する姿や、
	PRINTFORMW 砥石で黙々と刃物を磨き上げるドワーフたちの姿が見て取れた
	PRINTL
	PRINTFORMW 金槌を背負って工房をちょこまかと動き回るドワーフたち
	PRINTFORMW ……まさに、御伽噺で聞いたドワーフの姿そのもので、不思議な感慨に囚われる
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 今日の営業は終了しているようだ……
	PRINTFORMW また出直すとしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("二人組のドワーフ", 1, "場違いなエルフの男性",1, "ハーフドワーフの研ぎ師",1, "鉄工所の長", 1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		SETCOLOR カラー_ライトブルー
		CALL FL_PLAYSE("Slash_4.mp3")
		PRINTFORMW 「はっ」
		CALL FL_PLAYSE("Slash_4.mp3")
		PRINTFORMW 「ほっ」
		CALL FL_PLAYSE("Slash_4.mp3")
		PRINTFORMW 「はっ」
		CALL FL_PLAYSE("Slash_4.mp3")
		PRINTFORMW 「ほっ」
		PRINTL
		RESETCOLOR
		PRINTFORMW 赤熱した鋼を、二人のドワーフが息の合った動作で叩き延べている……
	CASE 1
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「……ドワーフだらけのむさ苦しい工場に、なんでエルフが？　ってカオだね」
		PRINTFORMW 「私は細工師だよ。彫金やルーンの刻印、さび止め等の呪的な固定の作業には、私たちの技が必要なのでね」
		PRINTL
		PRINTFORMDW エルフとドワーフは反目しているイメージがあったけれど……
		PRINTL
		PRINTFORMW 「キミも知ってるだろう隊商の女統領に、どうしても、って言われてね。ホントはイヤなんだが……」
		PRINTFORMW 「まあ、砂漠で死にかけてたところを拾ってもらった恩は返さなくてはね、うん」
		PRINTL
		RESETCOLOR
		PRINTFORMW ……なんだか、俗っぽいエルフもいたものだ
	CASE 2
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「ウーツ鋼の武具の美しさは、磨き上げられたその刀身に現れる……見てみろ」
		PRINTL
		PRINTFORMDW 研ぎ師が示す、磨き上げられた刀身に思わず息を飲んだ
		PRINTL
		PRINTFORMDW 白銀の刀身にびっしりと浮き上がった、黒い流紋……
		PRINTFORMDW 固定化された水の波紋のような、生気の溢れた木目のような、不可思議で吸い込まれそうな印象を持つ紋様だ
		PRINTL
		PRINTFORMW 「どうだ、素晴らしいだろう。美術品としても高い評価を受けるゆえんさ」
		PRINTFORMW 「もちろん、武器としての強度も折り紙付きだ。一流の戦士にこそふさわしい武具だぜ」
		RESETCOLOR
	CASE 3
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「アゥルフが世話になったみたいだな。ヴェロエアの民としても、礼を言わせてもらうぜ」
		PRINTL
		PRINTFORMW 「ここは、伝統的なドワーフの鍛冶技術を受け継いだ鉄工所だ」
		PRINTFORMW 「見ての通り、ドワーフやハーフドワーフの鍛冶師が大半を占めてる」
		PRINTL
		PRINTFORMDW やたら筋肉質で毛むくじゃら、矮躯の従業員たち……
		PRINTFORMDW よそでは珍しい、純血のドワーフがここでは多いようだけど
		PRINTL
		PRINTFORML 「ああ……ヴェロエアには、かつて南方大陸にあったドワーフの都が失陥してから、
		PRINTFORMW 　他の土地と比してもかなり多くのドワーフや亜人種が流れ着いたらしい」
		PRINTFORMW 「同盟していた帝国を頼ってレルム半島に渡れた者ばかりではなかったということだろうな」
		PRINTL
		PRINTFORMW 「難民としてこの都市を訪れたご先祖様たちだったが、ここヴェロエアもすぐさま魔物の標的にされた」
		PRINTFORMW 「だが、落ち延びてきたとはいえ、つい先日まで魔物との絶滅戦争の最前線で戦ってた勇猛な戦士たちだ」
		PRINTFORMW 「魔物との豊富な交戦経験や高い技術力を買われて、軍事教練の担当官や兵器工廠、工兵なんかに登用されるようになった」
		PRINTL
		PRINTFORMW 「故地を追われたドワーフたちは、惜しみなく技術協力をし、当時のヴェロエアの戦力を数倍にも引き上げた、らしい」
		PRINTFORMW 「うちが今も作り続けているウーツ鋼は、その時代の産物……ドワーフ王国の遺産ともいうべき代物だ」
		PRINTL
		PRINTFORMW 「そうして迎えた大戦……いわゆるヴェロエア人魔戦線を、ドワーフと亜人種、この地の民は戦い抜いた」
		PRINTFORMW 「おそらく、俺たちのご先祖様の働きがなければ、ヴェロエアも陥落していただろう、とは老人たちの昔語りさ」
		PRINTL
		PRINTFORML 「ま、魔物の軍勢の主兵力は帝国のほうに差し向けられていたらしいから、
		PRINTFORMW 　こっちにやって来たのは余録だったのかもしれないがね」
		PRINTL
		PRINTFORMW 「以来、ドワーフや亜人種はヴェロエアでは信を置かれ、新市街に大きな居住区も与えられた」
		PRINTFORMW 「人間社会に同化する者もいれば、各々のコミュニティで一生を終える者もいたから、わりと純血のドワーフも多いのかもな」
		RESETCOLOR
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

;-------------------------------------------------
;MAPID_15 EV150～
;ベルク鉄工所・事務所
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_53_EVENT_150
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "事務所の喧噪"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:TALK]"

@QST_QUEST_53_EVENT_150
PRINTL
IF HO_OCLOCK() < 1900
	PRINTFORMW 門衛の案内で、事務所……という名の付けられた倉庫のような場所に通される
	PRINTFORMW 商品や鍛冶道具の一時保管場所になっているようだ……
	PRINTL
	PRINTFORMW 誰かに話を聞いてみようか？
ELSE
	PRINTFORMW 今日の営業は終了しているようだ……
	PRINTFORMW また出直すとしよう
	RETURN
ENDIF
$INPUT_LOOP
PRINTL
CALL ASK_MULTI_JUDGE("荷箱を点検するハーフドワーフ", 1, "鉄工所長の奥方",1, "ハーフドワ－フの商人",1, "やめておく", 1)
SELECTCASE RESULT
	CASE 0
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「武器や鎧の製造依頼は引きも切らないぜ」
		PRINTFORMW 「ウルスの連中や、南方大陸から飛んでくる魔物、東の山の方に拠点を構えたっていう魔獣の一団の脅威にさらされてるからな」
		PRINTL
		PRINTFORMW 「腕の振るい甲斐もあるってもんだが……キリがねえな、ってのも本音だよ」
		RESETCOLOR
	CASE 1
		SETCOLOR カラー_オレンジ
		PRINTFORMW 「ああ、忙しい、忙しいったらありゃしない！」
		PRINTFORMW 「男どもは楽しそうにハガネ叩いたり、炉で鉱石溶かしたり好き放題にやってるってのに」
		PRINTL
		PRINTFORMW 「アタシたちは、ひたすら汗と煤で汚れた衣服の洗い物と、大飯喰らいどもの胃袋を満たす食事の準備で手いっぱいだよ！」
		PRINTFORMW 「あー、ストレスが溜まっておかしくなる前に、旦那からハンマーを分捕って――」
		PRINTL
		PRINTFORMW 「――ひたすらハガネをぶっ叩いて、包丁の一本でもこさえてやろうかしらね！」
		PRINTL
		RESETCOLOR
		PRINTFORMW 女性であろうと、そこはドワーフの血の争えない所なのだなあ、と感じ入った……
	CASE 2
		SETCOLOR カラー_ライトブルー
		PRINTFORMW 「本当は市場に卸すもんだが、姐さんの客なら特別に商ってやるとも」
		PRINTFORMW 「ウーツ鋼のインゴットのほうがお望みなら、それも声をかけておくんな」
		PRINTL
		PRINTFORMW 「まあ、少量生産だから、一度に取引できる量には限りがあるんだがね」
		PRINTFORMW 「ここんところ、ウーツ鋼の原料になるヒンダース産の鉱石が細ってきててな、参っちまってるんだ」
		PRINTL
		PRINTFORMW 「今用意できる量以上に欲しいなら、時間をあけてもう一度来てくれや」
		RESETCOLOR
	CASEELSE
		CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
		RETURN
ENDSELECT
GOTO INPUT_LOOP

;EV151 直売所
@QST_ADD_EVENT_QUEST_53_EVENT_151
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "直売所"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
RESULTS:3 '= "[EVENT_ICON:SHOP]"

@QST_QUEST_53_EVENT_151
CALL HO_SHOP_MENU("QUEST_53_直売所", "直売所", "QUEST_53_DIC_SHOP_STOCK_1")

;-------------------------------------------------
;ショップの定義
;関数名は@HO_SHOP_MANAGE_SHOP_{ショップ名称}で定義
;【メモ】
;露店は在庫データをセーブするために専用の広域変数を確保している。
;在庫をセーブに保持する必要がないならDICS_SHOP_STOCK:nに直接販売したいアイテムの情報を書き込めば良い
;-------------------------------------------------
@HO_SHOP_MANAGE_SHOP_QUEST_53_スーク(DICS_SHOP_STOCK)
#DIMS REF DICS_SHOP_STOCK
IF QUEST_53_DIC_SHOP_STOCK_0:0 == ""
    QUEST_53_DIC_SHOP_STOCK_0:0 '= @"[ITEM_ID:{ITEM_岩塩}][ITEM_PRICE:500]"
    QUEST_53_DIC_SHOP_STOCK_0:1 '= @"[ITEM_ID:{ITEM_バター}][ITEM_PRICE:600][SHOP_STOCK:20]"
    QUEST_53_DIC_SHOP_STOCK_0:2 '= @"[ITEM_ID:{ITEM_乳}][ITEM_PRICE:200]"
    QUEST_53_DIC_SHOP_STOCK_0:3 '= @"[ITEM_ID:{ITEM_レッドペッパー}][ITEM_PRICE:900]"
    QUEST_53_DIC_SHOP_STOCK_0:4 '= @"[ITEM_ID:{ITEM_東方スパイス}][ITEM_PRICE:10000][SHOP_STOCK:20]"
    QUEST_53_DIC_SHOP_STOCK_0:5 '= @"[ITEM_ID:{ITEM_鮮肉の大塊}][ITEM_PRICE:10000][SHOP_STOCK:10]"
    QUEST_53_DIC_SHOP_STOCK_0:6 '= @"[ITEM_ID:{ITEM_竜の肉}][ITEM_PRICE:20000][SHOP_STOCK:5]"
    QUEST_53_DIC_SHOP_STOCK_0:7 '= @"[ITEM_ID:{ITEM_硫黄}][ITEM_PRICE:1500][SHOP_STOCK:20]"
    QUEST_53_DIC_SHOP_STOCK_0:8 '= @"[CLOTH_ID:14][CLOTH_PART:{衣装部位_頭}][ITEM_PRICE:4500]";ヴェール
    QUEST_53_DIC_SHOP_STOCK_0:9 '= @"[CLOTH_ID:23][CLOTH_PART:{衣装部位_頭}][ITEM_PRICE:4500]";頭巾
    QUEST_53_DIC_SHOP_STOCK_0:10 '= @"[ITEM_ID:{ITEM_布}][ITEM_PRICE:1200][SHOP_STOCK:20]"

    {
        QUEST_53_DIC_SHOP_STOCK_0:11 '= @"
            [WEAPON_ID:2][EQUIP_TYPE:1][WEAPON_NAME:邪視除けのお守り]
            [WEAPON_RANK:0][MATERIAL:{WPN_材質_銀}]
            [PASSIVE_WEAPON_SKILL:WPN_BOOST_REGIST_BLIND,3,WPN_BOOST_CRT,2,]
            [ITEM_PRICE:60000][SHOP_STOCK:1]
            "
    }
    {
        QUEST_53_DIC_SHOP_STOCK_0:12 '= @"
            [WEAPON_ID:1][EQUIP_TYPE:1][WEAPON_NAME:赤べこ]
            [WEAPON_RANK:5][MATERIAL:{WPN_材質_木}]
            [ITEM_PRICE:4000][SHOP_STOCK:3]
            "
    }
ENDIF
ARRAYCOPY "QUEST_53_DIC_SHOP_STOCK_0", "DICS_SHOP_STOCK"

@HO_SHOP_MANAGE_SHOP_QUEST_53_直売所(DICS_SHOP_STOCK)
#DIMS REF DICS_SHOP_STOCK
IF QUEST_53_DIC_SHOP_STOCK_1:0 == ""
    QUEST_53_DIC_SHOP_STOCK_1:0 '= @"[ITEM_ID:{ITEM_ウーツ鋼インゴット}][ITEM_PRICE:10000][SHOP_STOCK:3]"
ENDIF
IF QUEST_53_DIC_SHOP_STOCK_1:1 == ""
    {
        QUEST_53_DIC_SHOP_STOCK_1:1 '= @""
            + @"[WEAPON_ID:7][EQUIP_TYPE:0][WEAPON_NAME:ウーツ鋼の刀]"
            + @"[WEAPON_RANK:3][MATERIAL:{WPN_材質_ウーツ鋼}]"
            + @"[ACTIVE_WEAPON_SKILL:WPN_SMITE,2,]"
            + @"[PASSIVE_WEAPON_SKILL:WPN_DEF_PENETRATE,3,WPN_BOOST_CRT_DAMAGE,3,]"
            + @"[ITEM_PRICE:90000][SHOP_STOCK:1]"
    }
    {
        QUEST_53_DIC_SHOP_STOCK_1:2 '= @""
            + @"[WEAPON_ID:1][EQUIP_TYPE:0][WEAPON_NAME:ウーツ鋼の短剣]"
            + @"[WEAPON_RANK:3][MATERIAL:{WPN_材質_ウーツ鋼}]"
            + @"[ACTIVE_WEAPON_SKILL:WPN_FATAL_ATTACK,2,]"
            + @"[PASSIVE_WEAPON_SKILL:WPN_ADDITIONAL_ATTACK,2,WPN_DEF_PENETRATE,2,]"
            + @"[ITEM_PRICE:75000][SHOP_STOCK:1]"
    }
ENDIF
ARRAYCOPY "QUEST_53_DIC_SHOP_STOCK_1", "DICS_SHOP_STOCK"

@HO_SHOP_MANAGE_SHOP_QUEST_53_陰気な露店(DICS_SHOP_STOCK)
#DIMS REF DICS_SHOP_STOCK
IF QUEST_53_DIC_SHOP_STOCK_2:0 == ""
	QUEST_53_DIC_SHOP_STOCK_2:0 '= @"[ITEM_ID:{ITEM_薬草}][ITEM_PRICE:600]"
	QUEST_53_DIC_SHOP_STOCK_2:1 '= @"[ITEM_ID:{ITEM_香草}][ITEM_PRICE:600]"
	QUEST_53_DIC_SHOP_STOCK_2:2 '= @"[ITEM_ID:{ITEM_ポーション}][ITEM_PRICE:1800]"
	QUEST_53_DIC_SHOP_STOCK_2:3 '= @"[ITEM_ID:{ITEM_鎮静剤}][ITEM_PRICE:2900][SHOP_STOCK:10]"
	QUEST_53_DIC_SHOP_STOCK_2:4 '= @"[ITEM_ID:{ITEM_ヴェスパの薬}][ITEM_PRICE:10000][SHOP_STOCK:3]"
	QUEST_53_DIC_SHOP_STOCK_2:5 '= @"[ITEM_ID:{ITEM_母乳促進剤}][ITEM_PRICE:32000][SHOP_STOCK:3]"
;冷静に考えて性転換薬売ってるってヤバくね？ サルマキスとかもっとヤバそうなので保留→性転換薬なんか仕様変更するみたいだし、ユーザにも反発もあるみたいなので一旦保留
;	QUEST_53_DIC_SHOP_STOCK_2:6 '= @"[ITEM_ID:{ITEM_性転換薬}][ITEM_PRICE:40000][SHOP_STOCK:1]"
;    QUEST_53_DIC_SHOP_STOCK_2:7 '= @"[ITEM_ID:{ITEM_体力増強剤}][ITEM_PRICE:100][SHOP_STOCK:2]"
ENDIF
ARRAYCOPY "QUEST_53_DIC_SHOP_STOCK_2", "DICS_SHOP_STOCK"

;在庫は訪問毎に補充される
@HO_SHOP_MANAGE_SHOP_QUEST_53_スーク_RESTOCK()
QUEST_53_DIC_SHOP_STOCK_0:1 '= @"[ITEM_ID:{ITEM_バター}][ITEM_PRICE:600][SHOP_STOCK:20]"
QUEST_53_DIC_SHOP_STOCK_0:4 '= @"[ITEM_ID:{ITEM_東方スパイス}][ITEM_PRICE:10000][SHOP_STOCK:20]"
QUEST_53_DIC_SHOP_STOCK_0:5 '= @"[ITEM_ID:{ITEM_鮮肉の大塊}][ITEM_PRICE:10000][SHOP_STOCK:10]"
QUEST_53_DIC_SHOP_STOCK_0:6 '= @"[ITEM_ID:{ITEM_竜の肉}][ITEM_PRICE:20000][SHOP_STOCK:5]"
QUEST_53_DIC_SHOP_STOCK_0:7 '= @"[ITEM_ID:{ITEM_硫黄}][ITEM_PRICE:1500][SHOP_STOCK:20]"
QUEST_53_DIC_SHOP_STOCK_0:10 '= @"[ITEM_ID:{ITEM_布}][ITEM_PRICE:1200][SHOP_STOCK:20]"

;ウーツ鋼インゴットは訪問するたびに補充される
@HO_SHOP_MANAGE_SHOP_QUEST_53_直売所_RESTOCK()
QUEST_53_DIC_SHOP_STOCK_1:0 '= @"[ITEM_ID:{ITEM_ウーツ鋼インゴット}][ITEM_PRICE:10000][SHOP_STOCK:3]"

;薬は訪問するたびに補充される
@HO_SHOP_MANAGE_SHOP_QUEST_53_陰気な露店_RESTOCK()
QUEST_53_DIC_SHOP_STOCK_2:3 '= @"[ITEM_ID:{ITEM_鎮静剤}][ITEM_PRICE:2900][SHOP_STOCK:10]"
QUEST_53_DIC_SHOP_STOCK_2:4 '= @"[ITEM_ID:{ITEM_ヴェスパの薬}][ITEM_PRICE:10000][SHOP_STOCK:3]"
QUEST_53_DIC_SHOP_STOCK_2:5 '= @"[ITEM_ID:{ITEM_母乳促進剤}][ITEM_PRICE:32000][SHOP_STOCK:3]"
;QUEST_53_DIC_SHOP_STOCK_2:6 '= @"[ITEM_ID:{ITEM_性転換薬}][ITEM_PRICE:40000][SHOP_STOCK:1]"
;QUEST_53_DIC_SHOP_STOCK_2:7 '= @"[ITEM_ID:{ITEM_体力増強剤}][ITEM_PRICE:100][SHOP_STOCK:2]"

path: ERB/QUEST/クエストデータ/QUEST_53_城塞都市ヴェロエア/QUEST_53_城塞都市ヴェロエア.ERB