プロローグ:
Load System
Option 味方フェイズ強制発動
Option 等身大基準
Option アイテム交換
Option 改造不可
Option ＨＰ成長
Option 地形適応修正繰り下げ
Option ２回行動能力使用
Option ＥＮ０時行動可
Option ＥＮ自然回復無効
Option 会話パイロット名改行
Option 信頼補正
Option 合体技パートナー行動数無消費
#Hardは封印
Option 乱数系列非保存
#Hardで採用
#Option ユニット情報隠蔽
#Option 予測ダメージ非表示
#Option 予測命中率非表示
#隠し
#Option クイックセーブ不可
Global 残機数
Global 難易度
Global マニュアルＢＧＭ
Set マニュアルＢＧＭ "EPS_Battle.mp3"
Global ＢＧＭモード
Set ＢＧＭモード 1
Global バトルテーマＯＮ
Set バトルテーマＯＮ
#Peaceful 1 Easy 2 Normal 3 Hard 4 Genocide 5
Global 主人公
Set 主人公 ""
Global パートナー
Set パートナー ""
RenameTerm 格闘 速射攻
RenameTerm 射撃 狙撃攻
RenameTerm 命中 速射防
RenameTerm 回避 狙撃防
RenameTerm 技量 戦略力
RenameTerm 反応 宴会力
RenameTerm ＥＮ ＢＰ
RenameTerm 装甲 弾幕防御
RenameTerm 運動性 回避率
RenameTerm サイズ 被弾範囲
RenameTerm "資金" 得点
RenameTerm EN BP
RenameTerm 運動 回避
Cls
Show
StartBGM 01_Title.mid
Talk パチュリー＝ノーレッジ
あら、いらっしゃい……
私はパチュリー＝ノーレッジ……:今回の進行役よ……
まず、あなたの名前が聞きたいわ……
End

Global プレイヤー愛称
Set プレイヤー愛称 ""
プレイヤーエントリー:
Input プレイヤー愛称 あなたの名前が聞きたいわ
If プレイヤー愛称 = "" Then
Talk パチュリー＝ノーレッジ
別にスペルネームで操ったりはしないから。素直に名乗って結構よ……
End
goto プレイヤーエントリー
Else
Talk パチュリー＝ノーレッジ
$(プレイヤー愛称)？
Suspend
Confirm "この名前でいいの？"
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;今度は素直に名乗って頂戴……
End
goto プレイヤーエントリー
Endif
Endif

Talk パチュリー＝ノーレッジ
よろしい……:;では次にこの物語の扉を開く合言葉を言いなさい……
End
Set 合言葉 "戦略「東方館恋劇」"
合言葉を入力せよ:
Input 合言葉 この物語の扉を開く合言葉を言いなさい "戦略「東方館恋劇」"

パスワード判定

Switch 合言葉結果
Case 0
Talk パチュリー＝ノーレッジ
深く考えなくていいわ……
何も知らないなら、<B>最初から書かれているのをそのまま入力すればいいわ……</B>
End
Goto 合言葉を入力せよ
Case 1
Talk パチュリー＝ノーレッジ
ようこそ……:ＳＲＣ『東方館恋劇』へ……:;私やこの物語の住人はあなたを歓迎するわ
さて、もう少し質問させてもらう……
Suspend
Case 2
Talk パチュリー＝ノーレッジ
それを知っているということは……:;あなたはもう一つの物語を楽しみたいようね……
いいわ案内してあげる
End
Set 難易度追加
Case 3
Talk パチュリー＝ノーレッジ
それを知っているということは……:;あなたはちゃんとマニュアルを読んだみたいね……
感心感心…♪: さっそく<B>開発を断念したプラクティスステージ</B>を始めるわね
End
Set 難易度 3
Set 残機数 10
Set 主人公 "藤原妹紅"
Set パートナー "因幡てゐ"
Set セーブデータファイル名 "東方館恋劇―$(プレイヤー愛称)―.src"
Continue Eve\Practice〜初心者の公園〜.eve

Case 4
Global 狂月
Set 狂月
Set 難易度追加
Talk きもんげ
その合言葉を知っていることは……:君は恐るべき戦略を求めているようだな
いいだろう……:狂気の戦略『LunaticMoon』
<SIZE=20><B>思う存分味わうがいい！！</B></SIZE>
End

Endsw
Talk パチュリー＝ノーレッジ
まずはあなたはこの世界でどのような戦略を望んでいるの？
End
難易度選択:
If 難易度追加 Then
Ask どのような戦略を望んでいるの？
Peaceful-平和-
Easy-容易-
Normal-普通-
Hard-困難-
Genocide-殺戮-
End
Set 難易度 選択

Else

Ask どのような戦略を望んでいるの？
Easy-容易-
Normal-普通-
Hard-困難-
End

Set 難易度 (選択 + 1)

Endif

難易度表示

Confirm この戦略でいいの？
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;なら選びなおして頂戴……
End
Cls
Refresh
goto 難易度選択
Endif

Switch 難易度
Case 1
Set 残機数 10
Load 東方館恋劇Peaceful
Case 2
Set 残機数 8
Load 東方館恋劇Easy
Case 3
Set 残機数 5
Load 東方館恋劇Normal
Case 4
Set 残機数 3
Load 東方館恋劇Hard
Option 乱数系列非保存 解除
Option ユニット情報隠蔽
Option 予測ダメージ非表示
Option 予測命中率非表示
Case 5
Set 残機数 100
Load 東方館恋劇Genocide
Endsw

If 狂月 Then
Option ＥＮ０時行動可 解除
Option 乱数系列非保存 解除
Option ユニット情報隠蔽 解除
Option 予測ダメージ非表示
Option 予測命中率非表示
Option クイックセーブ不可
Option 毒効果大
Option ダメージ表示無効
Option アビリティ経験値無効
Endif
Cls
Refresh
Talk パチュリー＝ノーレッジ
では次にこの物語の主役を選びなさい……
End

主人公選択:
Set 主人公選択[博麗霊夢] 博麗霊夢
Set 主人公選択[霧雨魔理沙] 霧雨魔理沙
Set 主人公選択[十六夜咲夜] 十六夜咲夜
Set 主人公選択[魂魄妖夢] 魂魄妖夢
Set 主人公選択[鈴仙＝優曇華院＝イナバ] 鈴仙＝優曇華院＝イナバ
Set 主人公選択[東風谷早苗] 東風谷早苗
Set 主人公選択[アンジュ＝ライムドリズル] アンジュ＝ライムドリズル
Ask 主人公選択 この物語の主役を選びなさい 拡大
Set 主人公 選択
キャラクターステイタス 主人公

Confirm この主人公でいいの？
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;なら選びなおして頂戴……
End
Cls
Refresh
goto 主人公選択
Endif
Cls
Refresh
Talk パチュリー＝ノーレッジ
では次に主役とともに戦うパートナーを選びなさい……
End

パートナー選択:
If 難易度追加 Then
Set パートナー選択[一人で行く] 一人で行く
Endif
If Not 主人公 = 博麗霊夢 Then
Set パートナー選択[博麗霊夢] 博麗霊夢
Endif
If Not 主人公 = 霧雨魔理沙 Then
Set パートナー選択[霧雨魔理沙] 霧雨魔理沙
Endif
If Not 主人公 = 十六夜咲夜 Then
Set パートナー選択[十六夜咲夜] 十六夜咲夜
Endif
If Not 主人公 = 魂魄妖夢 Then
Set パートナー選択[魂魄妖夢] 魂魄妖夢
Endif
If Not 主人公 = 鈴仙＝優曇華院＝イナバ Then
Set パートナー選択[鈴仙＝優曇華院＝イナバ] 鈴仙＝優曇華院＝イナバ
Endif
If Not 主人公 = 東風谷早苗 Then
Set パートナー選択[東風谷早苗] 東風谷早苗
Endif
If Not 主人公 = アンジュ＝ライムドリズル Then
Set パートナー選択[アンジュ＝ライムドリズル] アンジュ＝ライムドリズル
Endif
Ask パートナー選択 パートナーを選びなさい 拡大
Set パートナー 選択
キャラクターステイタス パートナー
Confirm このパートナーでいいの？
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;なら選びなおして頂戴……
End
Cls
Refresh
goto パートナー選択
Endif
Cls
Refresh
Talk パチュリー＝ノーレッジ
私の図書館にいる小悪魔には特に名前は決まってないのだけど……
あなたは彼女のことをどう呼んでいるの？
End
Global 小悪魔愛称
Set 小悪魔愛称 "リトル"
小悪魔エントリー:
Input 小悪魔愛称 小悪魔のことをどう呼んでいるの？ リトル
If 小悪魔愛称 = "" Then
Set 小悪魔愛称 "リトル"
Endif
Talk パチュリー＝ノーレッジ
$(小悪魔愛称)？
Suspend
Confirm "そういうふうに呼んでいるの？"
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;今度はちゃんと言って頂戴……
End
goto 小悪魔エントリー
Endif

Talk パチュリー＝ノーレッジ
それと今回は、間違って大悪魔を呼んでしまったわけなんだけど……
あなたは大悪魔のことをどう呼ぶの？
End
Global 大悪魔愛称
Set 大悪魔愛称 "カーミラ"
大悪魔愛称エントリー:
Input 大悪魔愛称 大悪魔のことをどう呼ぶの？ カーミラ
If 大悪魔愛称 = "" Then
Set 大悪魔愛称 "カーミラ"
Endif
Talk パチュリー＝ノーレッジ
$(大悪魔愛称)？
Suspend
Confirm "そういうふうに呼ぶの？"
If 選択 = 0 Then
Talk パチュリー＝ノーレッジ
そう……;今度はちゃんと言って頂戴……
End
goto 大悪魔愛称エントリー
Endif

Talk パチュリー＝ノーレッジ
これで準備はそろったわ……:;納得がいかなかったらやり直して頂戴……
幸運を祈るわ……
End
Switch 主人公
Case 博麗霊夢
Unit 博麗霊夢(霊符) 0
Pilot 博麗霊夢 2
Ride 博麗霊夢 博麗霊夢(霊符)
Case 霧雨魔理沙
Unit 霧雨魔理沙(魔符) 0
Pilot 霧雨魔理沙 2
Ride 霧雨魔理沙 霧雨魔理沙(魔符)
Case 十六夜咲夜
Unit 十六夜咲夜(幻符) 0
Pilot 十六夜咲夜 2
Ride 十六夜咲夜 十六夜咲夜(幻符)
Case 魂魄妖夢
Unit 魂魄妖夢(人符) 0
Pilot 魂魄妖夢 2
Ride 魂魄妖夢 魂魄妖夢(人符)
Case 鈴仙＝優曇華院＝イナバ
Unit 鈴仙＝優曇華院＝イナバ(銃符) 0
Pilot 鈴仙＝優曇華院＝イナバ 2
Ride 鈴仙＝優曇華院＝イナバ 鈴仙＝優曇華院＝イナバ(銃符)
Case 東風谷早苗
Unit 東風谷早苗(術符) 0
Pilot 東風谷早苗 2
Ride 東風谷早苗 東風谷早苗(術符)
Case アンジュ＝ライムドリズル
Unit アンジュ＝ライムドリズル(呪符) 0
Pilot アンジュ＝ライムドリズル 2
Ride アンジュ＝ライムドリズル アンジュ＝ライムドリズル(呪符)
Endsw
Switch パートナー
Case 博麗霊夢
Unit 博麗霊夢(霊符) 0
Pilot 博麗霊夢 1
Ride 博麗霊夢 博麗霊夢(霊符)
Case 霧雨魔理沙
Unit 霧雨魔理沙(魔符) 0
Pilot 霧雨魔理沙 1
Ride 霧雨魔理沙 霧雨魔理沙(魔符)
Case 十六夜咲夜
Unit 十六夜咲夜(幻符) 0
Pilot 十六夜咲夜 1
Ride 十六夜咲夜 十六夜咲夜(幻符)
Case 魂魄妖夢
Unit 魂魄妖夢(人符) 0
Pilot 魂魄妖夢 1
Ride 魂魄妖夢 魂魄妖夢(人符)
Case 鈴仙＝優曇華院＝イナバ
Unit 鈴仙＝優曇華院＝イナバ(銃符) 0
Pilot 鈴仙＝優曇華院＝イナバ 1
Ride 鈴仙＝優曇華院＝イナバ 鈴仙＝優曇華院＝イナバ(銃符)
Case 東風谷早苗
Unit 東風谷早苗(術符) 0
Pilot 東風谷早苗 1
Ride 東風谷早苗 東風谷早苗(術符)
Case アンジュ＝ライムドリズル
Unit アンジュ＝ライムドリズル(呪符) 0
Pilot アンジュ＝ライムドリズル 1
Ride アンジュ＝ライムドリズル アンジュ＝ライムドリズル(呪符)
Case 一人で行く
Item スタンドアローン
Equip 主人公 スタンドアローン
Fix スタンドアローン
Endsw
Set セーブデータファイル名 "東方館恋劇―$(プレイヤー愛称)―.src"
Continue Eve\東方館恋劇〜大悪魔騒動〜.eve

Exit