<init>
subevent(mapinit,);
#evflag(enzyj,==,2); if(nowres); mc(1,enegr,+=,(Ａ３＆羅修残(2),Ａ３＆ガリド(2),Ａ３＆いづち(2),Ａ３＆ゾウク(2),Ｂ３＆羅修残,Ｂ３＆ガリド,Ｂ３＆いづち,Ｂ３＆ゾウク,Ｃ３＆羅修残,Ｃ３＆ガリド,Ｃ３＆いづち,Ｃ３＆ゾウク,ガルパデ(5),ゴルゼム(5),シャジェップ(5))); 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>
evflagsw(ct_valaback,=,0);
evflagsw(pr_caslidou,==,0); if(nowres);
evflagsw(pr_caslidou,=,1); text(1,(face=uam,swait=-1),移動装置が稼働し出した！);
endif;
#label(1); fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿１Ｆ); fade(in,(type=fade,color=000000,wait=16));
label(1); fade(out,(type=voltex(-3,0),color=000000,wait=32)); changemap(大ナパー宮殿１Ｆ); fade(in,(type=voltex(-3,0),color=000000,wait=32));


#宮殿３Ｆへ
<to3>
fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿３Ｆ); fade(in,(type=fade,color=000000,wait=16));


#バラノーパ
<valanorpa>
while;
fc(*target,y,<,-6); if(nowres); fc(*target,walk,0,8,0,1,d); return; next; endif;
fc(*target,y,>,-6); if(nowres); fc(*target,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,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,,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,,0,8,0,0,2);

#fc(dir,*actor,==,0,21); fc(dir,*actor,==,1,22); fc(dir,*actor,==,2,23); goto(20);
#label(21); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,1,0,0); return; goto(20);
#label(22); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,-1,0,1); return; goto(20);
#label(23); fc(walk,*actor,0,8,1,0,0); return; fc(walk,*actor,0,8,0,2,2); fc(walk,2,0,8,0,0,0); return; fc(walk,*actor,0,8,-1,0,1); return; goto(20);
#label(20); fc(walk,*actor,0,8,0,0,3); fc(walk,2,0,8,0,0,2);

music(main,=,boss:0);

fc(*actor,pic,==,valanorpa); or; fc(*actor,pic,==,mutou); if(nowres);
text(1,(face=+evfch,swait=-1),バラノーパ「ほう、ナパー軍団に入りたいと見えるな。ならば一度解体してから再利用してやろう」);
else;
party(,count,==,1); if(nowres); text(1,(face=+evfch,swait=-1),バラノーパ「寂しい独り旅に終止符を打ってやろう」);
#party(,count,==,1); if(nowres); text(1,(face=+evfch,swait=-1),バラノーパ「独り旅は辛かったろう。終止符を打ってやろう」);
#party(,count,==,1); if(nowres); text(1,(face=+evfch,swait=-1),バラノーパ「来たなぼっち！」);
else; text(1,(face=+evfch,swait=-1),バラノーパ「来たな愚民ども」); endif;
#else; text(1,(face=+evfch,swait=-1),バラノーパ「来たな下等生物ども」); endif;
#else; text(1,(face=+evfch,swait=-1),バラノーパ「来たな底辺ども」); endif;
endif;
#text(1,(face=+evfch,swait=-1),バラノーパ「来たな」);
#party(,count,==,1); if(nowres); text(1,(face=+evfch,swait=-1),バラノーパ「来たなぼっち！」); else; text(1,(face=+evfch,swait=-1),バラノーパ「来たな愚民ども！」); endif;
fc(*actor,mvable,+0,+1); if(nowres); fc(*actor,walk,0,8,0,1,u); fc(*target,walk,0,8,0,1,d); return; endif;
fc(*actor,walk,0,8,1,0,u); fc(*target,walk,0,8,-1,0,d); return;
fc(*actor,walk,0,8,1,0,u); fc(*target,walk,0,8,-1,0,d); return;
fc(*actor,walk,0,8,0,-1,l); fc(*actor,jump,=,384); fc(*target,walk,0,8,1,0,r); fc(*target,jump,=,384); return;
fc(*actor,walk,0,8,-1,0,l); fc(*target,walk,0,8,1,0,r); return; fcwait(*all);
#battle(バラノーパ,rock-sc, boss,0,,,,, ,, 0,7,82,!);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=バラノーパ,back=rock-sc,bgm=,winbgm=,fade=(type=zoom),stm=0,btm=if|ne));

evflag(*selected,==,1); if(nowres);
fade(in,);
fc(*actor,walk,0,8,-1,0,l); fc(*target,walk,0,8,1,0,r); return;
fc(*actor,walk,0,8,-1,0,l); fc(*target,walk,0,8,1,0,r); return;
#text(1,(face=+evfch,swait=-1),バラノーパ「ばーーーかーーーなーーー！！！！」); sound(attack2); fc(apr,1,=,0);
text(1,(face=+evfch,swait=-1),バラノーパ「ばーー%s4ー%s0かーー%s4ー%s0なーーー！！！！」); fc(*target,picset,fch,org:nrm,=,vala-snf); wait(16); feffect(bomb,,*target,*actor,1); fc(*target,apr,=,0); return;
music(main,=,win:0);
party(,check,主人公); if(nowres); text(1,(face=*主人公:nrm,swait=-1),%mem[*主人公]「%pty[e]は無敵だ」); endif;
#party(,check,主人公); if(nowres); text(1,face=*主人公,%mem[*主人公]「夕日が綺麗だぜ！」); endif;
#party(,check,主人公); if(nowres); text(1,face=*主人公,%mem[*主人公]「聖根の力は無敵だ」); endif;
#party(,check,主人公); if(nowres); text(1,face=*主人公,%mem[*主人公]「これが聖根の力だ」); endif;
#party(,check,主人公); if(nowres); text(1,face=*主人公,%mem[*主人公]「これが%memk[*主人公]の力だ」); endif;
fc(*actor,walk,0,8,1,0,r); return; fc(*actor,walk,0,8,0,0,d); return;
#evflag(main,>=,2,11,); evflag(main,=,2); fc(mvrgn,*actor,|=,海); label(11);
subevent(recover2,); evflagsw(encounton2,=,0);

subevent(valapriv,);
#evflagsw(debug_it_v,=,1);
text(1,(face=uam,swait=-1),バラノーパを倒した！\n全快した！\n水上歩行能力を身につけた！\n%mem[*主人公]を部隊から外せるようになった！\n%mem[*Ｍ巨漢Ｂ]〜%mem[*ＭガイコツＢ]を部隊に加えられるようになった！\n『%it[*jukebox].nmic』に音楽が幾つか登録された！);
#耐性±０の時の状態付加率
evflagsw(ct_valaback,=,1);
evflagsw(ct_cuted,==,1); if(nowres); end; endif;
#evflagsw(ex_ending,==,1); if(nowres); select2(reset); select2(+見る(id=0)); select2(+補足説明だけ見る(id=1)); select2(+見ない); select2(*エンディング（？）を再度見ますか？(cid=)); evflag(*selected,==,1); if(nowres); goto(1); endif; evflag(*selected,==,-1); if(nowres); end; endif; endif;
#evflagsw(ex_ending,=,1);
#fade(out,fade,ffc000,255,64); caproll(8,制作：ACON-KYOU,音楽・画像：ACON-KYOU,テストプレイヤー：ACON-KYOU,プログラミングツール：ＶＣ＋＋,MIDI作成ツール：Cakewalk,WAVE作成ツール：SWave、MSｻｳﾝﾄﾞﾚｺｰﾀﾞｰ,描画ツール：MSペイント、PictBear,THE 完,ffff00,00c000,16,4,4,2,ffc000,uamback.bmp); fade(in,fade,ffc000,255,64);
music(main,=,ending:0);
subevent(ending,);
#label(1);
text(1,(face=uam,swait=-1),『%it[*雑多メモ].nmic』からこのスタッフロール、および顔グラ一覧・歩行グラ一覧などが見られるようになった！\nメニューの『%sysm[*config].nmic』により、このエンディングの省略設定ができるようになった！);
#text(1,face=uam,制作：ACON-KYOU\nテストプレイヤー：ACON-KYOU\nこのゲームはこれでおしまいです…。オマケが幾つかありますので、お暇なかたはどうぞ。\n［完］\n); end;
subevent(@chair,);
#text(1,face=uam,本編はこれでおしまいです…。オマケが幾つか有りますので、もしお暇がありましたらどうぞ（ヒント不足かも）。\nなお、聖根の祠の地下の冷蔵庫の所に『%ct2ナポリタン%cd』と打ち込むと、バージョンアップによってセーブが使い物にならなくなっても、この辺の状態から再開できます（暗号は１Ｆのパソコンでも確認できます）。\rまた、今まで通り水上は歩けない方が都合が良い場合は、『%dtp[*item].nmic』の『%ct2%it[*予備設定].nmic%cd』の『%ct2%sysm[*setwalkrgn].nmic%cd』をご利用ください。\n今後は全滅しても船の位置はそのままとなります。);
#『%dtp[*item].nmic』の『%ct2%it[*移動範囲].nmic%cd』をご利用ください。
#text(1,face=uam,このゲームはこれでおしまいです…。\nオマケが幾つか有りますので、お暇なかたはどうぞ（ヒント不足かも…）。\nなお、聖根の祠の地下の冷蔵庫の所に『%c880ナポリタン%cd』と打ち込むと、バージョンアップによってセーブが使い物にならなくなっても、この辺の状態から再開できます。);
end; endif;

evflag(*selected,==,2); if(nowres);
label(82); fc(*actor,move,31,-20,center); changemap(フィールド); mapname(0); fc(*actor,apr,=,0); fade(in,(type=fade,color=000000,wait=16));
text(1,,こうして世界はナパー達に支配されたのでした。); fade(out,(type=fade,color=000000,wait=32)); subevent(lost,);
#fade(out,(type=fade,color=000000,wait=16));
#evflag(*btres,=,lost); end;
#btres(lost);
#gameover;
end; endif;

#label(5);


#ナポルニ
<napoluni>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); else;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ナポルニ,bgm=battle2:0,stm=0)); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); end; endif;
#label(1);
evflag(*selected,==,3); if(nowres); fc(*actor,walk,0,8,0,1,u); return; end; endif;
#btres(escaped);
endif;


#椅子
<chair>
text(1,(face=uam,swait=-1),本編はこれでおしまいです…。オマケが幾つか有りますので、もしお暇がありましたらどうぞ（ヒント不足かも）。\nなお、聖根の祠の地下の冷蔵庫の所に『%ct2ナポリタン%cd』と打ち込むと、バージョンアップによってセーブデータが使い物にならなくなっても、この辺の状態から再開できます。\rまた、今まで通り水上は歩けない方が都合が良い場合は、メニューの『%ct2%sysm[*config].nmic%cd』の『%ct2%sysm[*setwalkrgn].nmic%cd』をご利用ください。\n今後は全滅しても船の位置はそのままとなります。);
#（暗号は１Ｆのパソコンでも確認できます）
#evflagsw(ex_caslin,=,0);
#text(1,face=uam,椅子だ。特に何も無いようだ。);
#text(1,face=uam,１Ｆのパソコンで、エンディングの省略と暗号の確認ができるようになっているぞ！);
#text(1,face=uam,ここまでの暗号は『%ct2ナポリタン%cd』だ（※「ポ」と「ボ」の打ち間違いにご注意ください）。\n水上歩行のＯＮ／ＯＦＦは『%dtp[*item].nmic』の『%ct2%it[*予備設定].nmic%cd』の『%ct2歩行範囲の設定%cd』で可能だ。);
#text(1,face=uam,ここに触れると、この宮殿に最初に入ろうとした時に表示された演出的なものが再度出るようになるようだ。\nなお、ここまでの暗号は『%c880ナポリタン%cd』だ。);
#チャチな壁紙
#\nまた、この戦闘で負けると負けイベント的なものが出て来るが、他の戦闘ではそういったイベントは無いようだ。
#なお、聖根の祠の地下の冷蔵庫の所に『%c880ナポリタン%cd』と打ち込むと、バージョンアップによってセーブが使い物にならなくなっても、この辺の状態から再開できるようだ。
#text(1,face=uam,また、この戦闘で負けると負けイベント的なものが出て来るが、他の戦闘ではそういったイベントは無いようだ。);


#宮殿４Ｆの扉
<door_cs>
fc(*actor,y,<,fc(*target,y)); if(nowres);
#fc(*actor,dir,==,2); or; item(check:eq,caskey,1); if(nowres);
label(1); sound(select); fc(*target,apr,=,0);
else;
item(check:eq,caskey,1); if(nowres); text(1,face=uam,『%it[*caskey].nmic』が合った！); goto(1); endif;
sound(shield); text(1,face=uam,こちら側からは鍵が掛っている。２Ｆのもう片方の道の先に、この先へ行くための仕掛けがありそうだ。);
#sound(shield); text(1,face=uam,こちら側からは鍵が掛っている。この宮殿内のどこかに、この先へ行くための仕掛けがありそうだ。);
#sound(shield); text(1,face=uam,こちら側からは鍵が掛っている。この宮殿内のどこかに、この先へ行くための抜け道がありそうだ。怪しい所は無かっただろうか？);
#他に抜け道がありそうだ。
#もう片方の道に何かありそうだ。
#もう片方の道の突き当たりの所に、この先へ進む仕掛けがありそうだ。
#あからさまに怪しい所が無いか、目を凝らしてよく見てみよう。
endif;


#看板（極超薬草）
<brd_gcyaku>
text(1,face=+evfch,命を繋ぐ希望、手元より尽きし時、パンドラの箱の底に眠りし、更なる希望が目覚めるだろう。);
#text(1,face=+evfch,命繋ぐ希望尽きし時、パンドラの箱の底に眠りし、更なる希望が目覚めるだろう。);
zukan(item:gchyaku,==,1); if(nowres); text(1,face=uam,『%it[*gchyaku].nmic』をゲットするための謎かけだったようだ。); endif;
#item(check:aleq|alpt|bank,gchyaku,1); or; item(check:eq,gchyaku＋＋,1);
#item(check:aleq|alpt|bank,gchyaku,1); if(nowres); text(0,『%it[*gchyaku].nmic』は既にゲットしている。); endif;
#item(check:aleq|alpt|bank,gchyaku,1); if(nowres); text(1,,既にゲットした『gchyaku』についての情報のようだ。); endif;


#看板（真理の山）
<brd_evitem>
#text(1,face=+evfch,秘境に赴く為には聖なる印が必要だ。南西（↓←）の山へ征け。);
text(1,face=+evfch,秘境に赴く為には聖なる印が必要だ。南西（↓←）に秘されし山へ征くべし。);
#に秘されし
#item(check:2,聖根聖剣,1); and; item(check:2,聖根聖盾,1); if(nowres); text(0,試練は既に達成している。); endif;
#item(check:aleq|alpt|bank,聖根の印,1); or; item(check:aleq|alpt|bank,聖根聖印,1); if(nowres); text(0,試練は既に達成している。); endif;
#item(check:aleq|alpt|bank,聖根の印,1); or; item(check:aleq|alpt|bank,聖根聖印,1); if(nowres); text(1,face=uam,この試練は既に達成している。); 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);
zukan(warppos:*all,&,hyper); if(nowres); text(1,face=uam,『秘境』とはハイパープレーンの事だったようだ。); endif;
#zukan(warppos:*all,&,hyper); if(nowres); text(0,秘境とはハイパープレーンの事だったようだ。); endif;
#item(check:aleq|alpt|bank,聖根の印,1); or; item(check:aleq|alpt|bank,聖根聖印,1); if(nowres); text(1,,既に獲得した『聖根の印』についての情報のようだ。); endif;
#text(1,face=+evfch,秘境に赴く為には更なる聖なる力が必要だ。南西（↓←）の山へ征け。);
#どちらの場合も、装備はしててもしてなくても良いぞ。