<init>
subevent(mapinit,);
#evflagsw(aks,==,0); if(nowres); 
#mc(6,enegr,=,); mc(7,enegr,=,); mc(8,enegr,=,);
#mc(6,enegr,=,(ピグマーグ,ツァンヌウ,ナプル,ガルプ,ナプル＆ガルプ));
#mc(7,enegr,=,(ナプル,ガルプ,ナプル×３,ガルプ×３,ナプル＆ガルプ));
#mc(8,enegr,=,(ナプル×３,ガルプ×３,ナプル＆ガルプ,ナプル×１２,ガルプ×１２));
#endif;

evflagsw(ex_caslin,==,0); if(nowres); fc(c4,apr,=,0); endif;
evflagsw(ct_valaback,==,1); if(nowres); fc(c5,apr,=,1); 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));


#宮殿２Ｆへ
<to2>
#fade(fade,1,000000,255,16); fc(move,*actor,0,0,center); 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));


#宮殿４Ｆへ
<to4>
evflagsw(pr_caslidou,==,0); if(nowres);
item(check:eq,caskey,1); if(nowres);
text(1,face=uam,『%it[*caskey].nmic』が合った！);
else;
text(1,face=uam,移動装置のようだ。最上階から入れば使えるようになりそうだ。); end;
endif;
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));
#label(1); fade(voltex,1,000000,2,0,32); changemap(大ナパー宮殿４Ｆ); fade(voltex,2,000000,2,0,32);
#label(1); fade(voltex,1,000000,2,1,32); changemap(大ナパー宮殿４Ｆ); fade(voltex,2,000000,2,1,32);
#label(1); fade(voltex,1,000000,5,0,32); changemap(大ナパー宮殿４Ｆ); fade(voltex,2,000000,5,0,32);


#宮殿地下へ
<tob>
item(check:eq,caskey,1); if(nowres);
evflagsw(pr_honpen,==,0); if(nowres); text(1,face=uam,本編をクリアしておく必要が有るようだ。);  end; endif;
evflagsw(ex_caslb,==,0); if(nowres); evflagsw(ex_caslb,=,1); text(1,face=uam,『%it[*caskey].nmic』が合った！); endif;
sound(select);
#fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿地下); fade(in,(type=fade,color=000000,wait=16)); end;
fade(out,(type=blind(1,1),color=000000,wait=16)); fc(*actor,float,=,128); changemap(大ナパー宮殿地下); fade(in,(type=blind(1,1),color=000000,wait=16)); end;
else; sound(shield);
evflagsw(pr_honpen,==,0); if(nowres);
text(1,face=uam,鍵が掛かっているが、未だ気にする必要は無さそうだ。他を当たろう。);
else;
text(1,face=uam,鍵が掛かっている。);
endif;
endif;


#宮殿３Ｆへ（浮遊）
<to2up>
fc(*actor,mvrgn,&,高); if(nowres);
text(1,face=uam,空中浮遊を使った！);
sound(warp); fade(out,(type=fade,color=000000,wait=16)); fc(*actor,float,=,-64); changemap(大ナパー宮殿２Ｆ); fade(in,(type=fade,color=000000,wait=16));
endif;


#宮殿１Ｆ、スイッチ
<sw>
#sound(attack2); shake(1,4,4,2,2,8); fc(apr,c2,=,0); fc(apr,,=,0);
#sound(attack2); shake(1,4,4,2,2,8); fc(apr,:c3,=,0); fc(apr,,=,0);
#sound(attack2); shake(1,4,4,2,2,8); fc(*target:1,apr,=,0); fc(*target,apr,=,0);
#fc(*target,apr,=,0); fc(*target:1,setdown,down2,1); fc(*target:1,waitdown); fc(*target:1,apr,=,0);
fc(*target,apr,=,0); fc(*target:1,setdown,down2,1); fc(*target:1,mvpat,1,block_dapr,0); shake(1,4,4,2,2,8);


#宮殿１Ｆ、壁
<wl>
text(1,face=uam,道がふさがっている。だが何かの仕掛けを動かせば開きそうだ。);


#極超薬草
<box_enemy>
fc(*target,ans,=,16); wait(32); fc(*target,ans,=,0);
#fc(ani,,3,);
#fc(pic,,=,box-o);
text(0,なんと中身はナパーだった！);
#fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle(ピグマ＆ツァヌ,*def,, battle2,0,*def,def,*def,def, , 0,,); fade(in,);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ピグマ〜テヅマ３,bgm=battle2:0,stm=0)); fade(in2,);
#item(check:eq,薬草,1,20,); item(check:eq,薬草２,1,20,); item(check:eq,薬草Ｘ,1,20,);

evflag(*selected,==,1); if(nowres);
item(check:eq,chyaku,1); or; item(check:eq,gchyaku,1); unif(nowres);
item(get,gchyaku,1); sound(warp); text(0,『%it[*gchyaku].nmic』を手に入れた！);
endif; fc(*target,apr,=,0);
end; endif;

evflag(*selected,==,3); if(nowres);
#label(30);
fc(*target,ans,=,-16); wait(32); fc(*target,ans,=,0); subevent(escaped,);
end; endif;


#相克の剣等入手
<box_shisak>
#fc(*target,ani,=,4);
#item(get,相克の剣,1); or; item(get,吸収の剣,1); or; item(get,相生の盾,1); or; item(get,反射の盾,1); if(nowres); text(0,『%it[*相克の剣].nmic』『%it[*吸収の剣].nmic』『%it[*相生の盾].nmic』『%it[*反射の盾].nmic』を手に入れた！); fc(*target,apr,=,0);
#else; text(0,『%it[*相克の剣].nmic』『%it[*吸収の剣].nmic』『%it[*相生の盾].nmic』『%it[*反射の盾].nmic』を見つけたがこれ以上は持てない。); fc(*target,ani,=,0); endif;

fc(*target,ani,=,4);
item(get,相克の剣,1); if(nowres); sound(select); text(0,『%it[*相克の剣].nmic』を手に入れた！); fc(*target,apr,=,0); else; text(0,『%it[*相克の剣].nmic』を見つけたがこれ以上は持てない。); endif;
item(get,吸収の剣,1); if(nowres); sound(select); text(0,『%it[*吸収の剣].nmic』を手に入れた！); fc(*target,apr,=,0); else; text(0,『%it[*吸収の剣].nmic』を見つけたがこれ以上は持てない。); endif;
item(get,相生の盾,1); if(nowres); sound(select); text(0,『%it[*相生の盾].nmic』を手に入れた！); fc(*target,apr,=,0); else; text(0,『%it[*相生の盾].nmic』を見つけたがこれ以上は持てない。); endif;
item(get,反射の盾,1); if(nowres); sound(select); text(0,『%it[*反射の盾].nmic』を手に入れた！); fc(*target,apr,=,0); else; text(0,『%it[*反射の盾].nmic』を見つけたがこれ以上は持てない。); endif;
zukan(stat:*all,|=,(atrec,ptref));
fc(*target,apr,!=,0); if(nowres); fc(*target,ani,=,0); endif;


<kabegami>
evflagsw(ex_caslin,=,0); fc(*target,apr,=,0);
text(1,face=uam,宮殿に最初に入ろうとした時に表示された演出的なものが再度表示されるようになった！);


<brd_valaback>
text(1,face=+evfch,材料が得られるのはここではない。山にて同じ事をすべし。);


<recover>
evflagsw(ex_casrecv,==,0); if(nowres); evflagsw(ex_casrecv,=,1); text(1,face=uam,ここでは回復ができるようだが、料金が発生するようだ。); endif;
select2(reset,all); select2(+回復する　10000円(id=0)); select2(+やめておく); select2(/); select2(*所持金: %pty[e].gd(cid=));
evflag(*selected,==,0); if(nowres); party(,gold,>=,10000); if(nowres); party(,gold,+=,-10000); subevent(recover,); else; text(0,お金が足りない！); endif; endif;