<init>
subevent(mapinit,);
#evflag(warpable,=,0);

#evflag(enzyj,==,2); if(nowres);
#mc(6,enegr,+=,(ＹＪα３＆羅修残(2),ＹＪα３＆ガリド(2),ＹＪα３＆いづち(2),ＹＪα３＆ゾウク(2),ＹＪβ３＆羅修残,ＹＪβ３＆ガリド,ＹＪβ３＆いづち,ＹＪβ３＆ゾウク,ＹＪγ３＆羅修残,ＹＪγ３＆ガリド,ＹＪγ３＆いづち,ＹＪγ３＆ゾウク,ナポル＆ガルパ(4),ガルパ＆ゴルゼ(4),ゴルゼ＆シャジ(4),ナポル＆シャジ(4)));
#mc(7,enegr,+=,(ＹＪα３＆羅修残(2),ＹＪα３＆ガリド(2),ＹＪα３＆いづち(2),ＹＪα３＆ゾウク(2),ＹＪβ３＆羅修残,ＹＪβ３＆ガリド,ＹＪβ３＆いづち,ＹＪβ３＆ゾウク,ＹＪγ３＆羅修残,ＹＪγ３＆ガリド,ＹＪγ３＆いづち,ＹＪγ３＆ゾウク,ナポル＆ガルパ(4),ガルパ＆ゴルゼ(4),ゴルゼ＆シャジ(4),ナポル＆シャジ(4)));
#mc(8,enegr,+=,(ＹＪα３＆羅修残(2),ＹＪα３＆ガリド(2),ＹＪα３＆いづち(2),ＹＪα３＆ゾウク(2),ＹＪβ３＆羅修残,ＹＪβ３＆ガリド,ＹＪβ３＆いづち,ＹＪβ３＆ゾウク,ＹＪγ３＆羅修残,ＹＪγ３＆ガリド,ＹＪγ３＆いづち,ＹＪγ３＆ゾウク,ナポル＆ガルパ(4),ガルパ＆ゴルゼ(4),ゴルゼ＆シャジ(4),ナポル＆シャジ(4)));
#mc(9,enegr,+=,(ＹＪα３＆羅修残(2),ＹＪα３＆ガリド(2),ＹＪα３＆いづち(2),ＹＪα３＆ゾウク(2),ＹＪβ３＆羅修残,ＹＪβ３＆ガリド,ＹＪβ３＆いづち,ＹＪβ３＆ゾウク,ＹＪγ３＆羅修残,ＹＪγ３＆ガリド,ＹＪγ３＆いづち,ＹＪγ３＆ゾウク,ナポル＆ガルパ(4),ガルパ＆ゴルゼ(4),ゴルゼ＆シャジ(4),ナポル＆シャジ(4)));
#endif;


#宮殿から出る
<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,36,-25,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#宮殿１Ｆへ
<to1>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,0,6,0); changemap(大ナパー宮殿１Ｆ); fade(in,(type=fade,color=000000,wait=16));
#fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿１Ｆ); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=blind(1,1),color=000000,wait=16)); fc(*actor,float,=,-20); changemap(大ナパー宮殿１Ｆ);
fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fcslc(c3); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fade(in,(type=blind(1,1),color=000000,wait=16));


#宮殿バリアＯＮ／ＯＦＦ
<brsw>
#sound(attack1);
sound(elec); flash(ffff80,128,8); wait(4);
fc(c6,apr,==,1); if(nowres); fc(c6,apr,=,0); fc(c7,apr,=,1); else; fc(c6,apr,=,1); fc(c7,apr,=,0); endif;


<valanorpa2>
while;
fc(*actor,y,<,fc(*target,y)+1); if(nowres); fc(*actor,walk,0,8,0,1,d); return; next; endif;
fc(*actor,y,>,fc(*target,y)+1); if(nowres); fc(*actor,walk,0,8,0,-1,u); return; next; endif;
fc(*actor,x,<,fc(*target,x)); if(nowres); fc(*actor,walk,0,8,1,0,r); return; next; endif;
fc(*actor,x,>,fc(*target,x)); if(nowres); fc(*actor,walk,0,8,-1,0,l); return; next; endif;
wend;
fc(*actor,walk,0,8,0,0,u); fc(*target,walk,0,8,0,0,d);

#fc(dir,*actor,==,0); if(nowres); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,1,0,0); return;
#else; fc(dir,*actor,==,1); if(nowres); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,-1,0,1); return;
#else; fc(dir,*actor,==,2); if(nowres); fc(walk,*actor,0,8,1,0,0); return; fc(walk,*actor,0,8,0,2,2); fc(walk,c2,0,8,0,0,0); return; fc(walk,*actor,0,8,-1,0,1); return;
#else; endif; endif; endif; fc(walk,*actor,0,8,0,0,3); fc(walk,c2,0,8,0,0,2);

fade(out,(type=mosaic,wait=16)); rasop(4,ffffff); fade(in,(type=mosaic,wait=16));
text(1,(face=+evfch,swait=-1),バラノーパ「ナパーは無限だ」);
#text(1,(face=+evfch,swait=-1),バラノーパ「我が分裂の術を見よ」);
fade(out,(type=mosaic,wait=16)); rasop(0); fade(in,(type=mosaic,wait=16));
fc(*target:1,apr,=,1); fc(*target:2,apr,=,1); fc(*target:1,move,*0,*0,); fc(*target:2,move,*0,*0,);
fc(*target:1,walk,0,8,2,0,r);  fc(*target:2,walk,0,8,-2,0,l); return;
fc(*target:1,walk,0,8,0,1,d);  fc(*target:2,walk,0,8,0,1,d); return;
fc(*target:1,walk,0,8,-1,0,l); fc(*target:2,walk,0,8,1,0,r); return;
fade(out,(type=blind(9,9),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=バラノ分裂,back=sea-sc,bgm=boss:0,fade=(type=zoom),stm=0,btm=ne)); fade(in2,);
#blind99,,

evflag(*selected,==,1); if(nowres);
text(1,(face=+evfch,swait=-1),バラノーパ「ばかな！！%s5　%s0あほな！！%s5　%s0たわけなーーー！！！！」);
#sound(attack2); fc(apr,3,=,0); wait(16); sound(attack2); fc(apr,4,=,0); wait(16); sound(attack2); fc(apr,2,=,0);
#fc(*target:1,apr,=,0); feffect(bomb,,*target:1,*actor,0); fc(*target:2,apr,=,0); feffect(bomb,,*target:2,*actor,0); fc(*target,apr,=,0); feffect(bomb,,*target,*actor,0);
feffect(bomb,,*target:1,*actor,0); fc(*target:1,apr,=,0); wait(12); feffect(bomb,,*target:2,*actor,0); fc(*target:2,apr,=,0); wait(12); feffect(bomb,,*target,*actor,0); fc(*target,apr,=,0); wait(12);
fc(*target,apr,=,1); fc(*target:1,apr,=,1); fc(*target:2,apr,=,1);
feffect(bomb,,(*target,*target:1,*target:2),*actor,0);
fc(*target,apr,=,0); fc(*target:1,apr,=,0); fc(*target:2,apr,=,0);
waiteffect;
#fc(apr,c3,=,0); fc(apr,c4,=,0); fc(apr,c2,=,0); feffect(bomb,,3,c2,c3,c4,*actor);
#fc(apr,c3,=,0); fc(apr,c4,=,0); feffect(bomb,,2,c3,c4,*actor); fc(apr,c2,=,0); feffect(bomb,,1,c2,*actor);
subevent(recover2,);
#evflagsw(pr_dfvala2,=,1);
text(1,face=uam,バラノーパを倒した！\n全快した！\n);
end; endif;


<chair>
fc(c5,apr,==,0); if(nowres);
fc(c5,apr,=,1); fc(c5,ani,=,0);
sound(select); flash(80c0ff,128,8); wait(4);
endif;
#subevent(recover,);


<barrier>
text(1,face=uam,バリアのようだ。例によって何かの仕掛けで解除できそうだ。);
#text(1,face=uam,へっぽこそうなバリアだが、折角だから仕掛けを解いてみよう);


<box_deckbr>
fc(*target,ans,=,16); wait(32); fc(*target,ans,=,0);
item(check:eq,デッキブラシ,1); if(nowres);
#椅子に触れ直しただけで入手した場合も想定した値段に
#label(15);
party(,gold,+=,1000000);
sound(select); text(0,『%o[*gold]百万円』を手に入れた！);
fc(*target,apr,=,0);
else;
item(get,デッキブラシ,1);
sound(select); text(0,『%it[*デッキブラシ].nmic』を手に入れた！);
#text(1,,『%it[*デッキブラシ].nmic』は、『%it[*脱出レバー].nmic』や全滅によって帰還すると紛失されてしまうので注意しよう！（ここ以外でなら紛失されません）);
fc(*target,apr,=,0);
#else; fc(*target,ans,=,-16); wait(32); fc(*target,ans,=,0);
endif;


<brd_chdmpt>
text(1,face=+evfch,ここでは『%cond[*魔除け].nmic』の効果は無い。『%sk[*逃げる].nmic』は『テンキー３』または『Ｓ』を押すだけでも発動するので、戦闘が面倒臭かったらどんどん利用しよう！);
#逆に芳香剤は効果ある。


<brd_seacav>
text(1,face=+evfch,水に浮かびし穴に秘密在り。危なきもの売られし場所に辿り着く方法が鍵となるだろう。);
#text(1,face=+evfch,水に浮かびし穴、とある家と類似の構造有り。);
#text(1,face=+evfch,水に浮かびし穴、秘密の入り口在り。);
#text(1,face=+evfch,水に浮かびし穴に秘密在り。);
#text(1,face=+evfch,水に浮かびし穴、とある家と類似の構造有り。そして無限に続く道は、急がば回るべし。);
#text(1,face=+evfch,もう一つの材料が得たくば、砂漠の祠の構造を思い出すべし。そして無限に続く道は、急がば回るべし。);
#text(1,face=+evfch,浮びしものの秘密を解きたくば、砂漠の家の構造を思い出すべし。そして無限に続く道は、急がば回るべし。);
#text(1,face=+evfch,聖根の祠に入る時、壁紙（絵）が出たり出なかったりする。その条件を見極めるべし。\nそして急がば回るべし。);
#text(1,face=+evfch,二手に分かれた道、正しきは片方のみ。急いでダメなら、回るべし。);
#この宮殿に入る時にも同様の『仕掛け』があり、入場時の戦闘を飛ばしたり、いきなり最上階へ入れたりするが、当初は未だ縁の無い事だろう。
zukan(map:海のほら穴,==,1); if(nowres); text(1,face=uam,『%map[*海のほら穴].nmic』に入るための手掛かりだったようだ。); endif;
#zukan(item:深海の結晶,==,1); if(nowres); text(1,face=uam,『%it[*深海の結晶].nmic』の入手の仕方を示すものだったようだ。); endif;
#item(check:aleq|alpt|bank,深海の結晶,1); or; item(check:aleq|alpt|bank,極超聖水,1); if(nowres); text(1,face=uam,『%it[*深海の結晶].nmic』の入手の仕方を示すものだったようだ。); endif;
#item(check:aleq|alpt|bank,深海の結晶,1); or; item(check:aleq|alpt|bank,極超聖水,1); if(nowres); text(1,face=uam,『%it[*深海の結晶].nmic』を入手するための情報だったようだ。); endif;
#item(check:aleq|alpt|bank,深海の結晶,1); or; item(check:aleq|alpt|bank,極超聖水,1); if(nowres); text(0,『%it[*深海の結晶].nmic』の謎は既に解いている。); endif;
#item(check:aleq|alpt|bank,深海の結晶,1); or; item(check:aleq|alpt|bank,極超聖水,1); if(nowres); text(1,,この謎は既に解いている。既に手に入れた『深海の結晶』についての情報のようだ。); endif;
#item(check:aleq|alpt|bank,極超聖水,1); if(nowres); text(0,極超聖水は既に手中に収めている。); end; endif;