<init>
subevent(mapinit,);
zukan(warppos:*all,|=,forest1);
#item(check:eq,ロラスケ,1); or; item(check:eq,ひょうたん,1); or; item(check:eq,笠,1); if(nowres); mc(7,enegr,+=,(Ａ３×６(2),Ｂ３×６,Ｃ３×６,Ａ３＆Ｂ３３(2),Ａ３＆Ｃ３３(2),Ｂ３＆Ｃ３３,Ａ３〜Ｃ３２(3))); endif;

item(check:eq,漢和辞典,1); if(nowres);
mc(12,enegr,+=,(サンゴ×３,サンゴ＆しなち２,サンゴ＆サキヲ２,サンゴ＆ＤＨＭ２));
endif;


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


<event>
#全体効果有り
fcslc(c1); while; if(nowres); fc(*select,apr,==,1); if(nowres); else; fcslc(*nextlabel); next; endif; endif; wend;

unif(nowres);
evflagsw(pr_forest1,==,0); if(nowres); evflagsw(pr_forest1,=,1); text(1,face=uam,森のダンジョンの謎を解いた！); endif;
item(get,聖水,10); if(nowres); sound(select); text(0,『%it[*聖水].nmic』を10個手に入れた！); else; text(1,face=uam,『%it[*聖水].nmic』はこれ以上は持てない。); endif;
else;
text(1,face=uam,この森に眠る８つのアイテムを手に入れた者には、好きなだけの聖水が授けられるようだ。);
#text(1,face=uam,この森に眠る８つのアイテムを手に入れた者には、好きなだけの聖水が授けられるようだ。なお、満杯で持てなかった場合は手に入れた事にならないので、捨ててから手に入れよう（酷い仕様だ）。);
#text(1,face=uam,この森に眠る８つのアイテムを手に入れた者には、好きなだけの聖水を授けよう（満杯で持てない場合は捨てよう）。);
endif;

subevent(recover,);


#全滅帰還時の応急処置有り
<yj-a4>
item(check:eq,スケート靴,1); and; item(check:eq,ビーサン,1); and; item(check:eq,ロラスケ,1); or; item(check:eq,スキー板,1); or; item(check:eq,謎の光,1); unif(nowres); text(1,face=uam,妖しげな気配が渦巻いているのを感じる。\n…だが、全く重要では無さそうだ。); end; endif;
#formem(party); not; member(select,job,性別,==,♀); and; not; member(select,job,性別,==,♀♀); nextmem(exis); if(nowres);
#formem(party); not; member(select,job,性別,exis,♀系); nextmem(exis); if(nowres);

subevent(allisf,); if(nowres); text(1,face=uam,妖しげな気配が渦巻いているのを感じるが、♀系だけのパーティには反応しないようだ。); end; endif;

#evflagsw(ex_yj-a4,==,0); if(nowres); text(1,face=uam,妖しげな気配が渦巻いているのを感じる……。); endif;
evflagsw(ex_ayashii,==,0); if(nowres); evflagsw(ex_ayashii,=,1); text(1,face=uam,妖しげな気配が渦巻いているのを感じる……。); endif;
#zukan(enemy:yj-a4,==,0); if(nowres); text(1,face=uam,妖しげな気配が渦巻いているのを感じる……。); endif;
fade(out,(type=fade,color=ff0080,dep=128,wait=64)); fade(reset); mfade(0,ff0080,128); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo));
#enedf(yj-a4,==,0); if(nowres);
#battle(ＹＪ−Ａ４,*def,, battle2,0,*def,def,*def,def, , ,,);
#rand(2,2);
#else;
#battle((Ａ３×３,Ａ３〜Ｃ３,Ａ４,ＹＪ−Ａ４,Ａ４×２,Ａ４×２,Ａ４×３,Ａ４×３),*def,, battle2,0,*def,def,*def,def, , ,,);
#rand(1,4); 
#endif;
#fade(in,); mfade(000000,0); fade(in,(type=fade,color=ff0080,dep=128,wait=64));

battle((enegr=ＹＪ−Ａ４,bgm=battle2:def,stm=0,downefc=down3)); goto(10);
#evflag(nowval,==,1); if(nowres); battle((Ａ１×３,Ａ２×３(2),Ａ２〜Ｃ２,Ａ３×３(2),Ａ３〜Ｃ３),*def,, *def,def,*def,def,*def,def, , ,,); goto(10); endif;
#evflag(nowval,==,1); if(nowres); battle((Ａ３×６,Ｂ３×６,Ｃ３×６,Ａ３＆Ｂ３３,Ａ３＆Ｃ３３,Ｂ３＆Ｃ３３,Ａ３〜Ｃ３２),*def,, *def:def,*def:def,*def:def, , ,,); goto(10); endif;
#evflag(nowval,==,1); if(nowres); battle(Ａ３×３,*def,, *def:def,*def:def,*def:def, , ,,); goto(10); endif;
#evflag(nowval,==,2); if(nowres); battle(ＹＪ−Ａ４,*def,, battle2:def,*def:def,*def:def, , ,,); goto(10); endif;
#evflag(nowval,==,3); if(nowres); battle(Ａ４×２,*def,, battle2:def,*def:def,*def:def, , ,,); goto(10); endif;
#evflag(nowval,==,4); if(nowres); battle(Ａ４×３,*def,, battle2:def,*def:def,*def:def, , ,,); goto(10); endif;

label(10);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;
evflag(*selected,==,2); if(nowres); end; endif;
#fade(in,); mfade(0,000000,0); fade(in,(type=fade,color=ff0080,dep=128,wait=64));
fade(in,); mfade(0,def,def); fade(in,(type=fade,color=ff0080,dep=128,wait=64));


#極超聖水ヒント
<brd_gcseis>
#evflagsw(pr_forest1,==,0); if(nowres); text(1,face=uam,邪悪な汚れによって読めない。この森の謎を解く必要があるようだ。); end; endif;

#evflagsw(pr_wash,==,0); if(nowres); text(1,face=uam,邪悪な汚れによって読めない。これを洗い流すには聖水10個が必要のようだ。);
#item(check:eq,聖水,10); if(nowres);
#select2(reset); select2(+はい(id=0)); select2(+いいえ); select2(/); select2(*聖水10個を使用しますか？(cid=));
#evflag(*selected,==,0); if(nowres); item(lost:eq,聖水,10); evflagsw(pr_wash,=,1); text(1,face=uam,汚れが浄化された！); else; end; endif;
#else; end; endif;
#endif;

text(1,face=+evfch,%it[*聖水]は50個までしか持てないが、この世界には更に強力な%it[*聖水]が存在する。最も強力な%it[*聖水]を得る為には２つの材料が必要だ。その一つは、飛び降りずに帰る事によっていずるという。);
#text(1,face=+evfch,聖水は50個以上は持てないが、この世界には更に強力な聖水が存在する。最も強力な聖水を得る為には２つの材料が必要だ。その一つは『地上で最も強力な聖水』、もう一つは『海に眠りし秘法』であるという。);
#『%it[*聖水].nmic』は50個以上は持てない。だがこの世界には更に強力な聖水が存在する。
#もう一つは、水に浮かびし穴に秘密が有るらしい。
#text(1,face=+evfch,聖水は50個以上は持てない。だがこの世界には更に強力な聖水が存在する。最も強力な聖水を得る為には２つの材料が必要だ。その一つは、飛び降りずに帰る事によっていずるという。もう一つは、水に浮かびし穴の裏口に眠るそうな。);
zukan(item:極超聖水,==,1); if(nowres); text(1,face=uam,『%it[*極超聖水].nmic』を手中に収めるための情報だったようだ。); end; endif;
#item(check:eq,極超聖水,1); 
zukan(item:超聖水,==,1); if(nowres); text(1,face=uam,材料なるものの一つは『%it[*超聖水].nmic』だったようだ。); end; endif;
#item(check:eq,超聖水,1); 
#item(check:6,極超聖水,1); if(nowres); text(1,,既に手中に収めた『極超聖水』についての情報のようだ。); endif;
#item(check:6,極超聖水,1); if(nowres); text(0,『%it[*極超聖水].nmic』は既に手中に収めている。); endif;
#text(1,face=uam,聖水はこれ以上は持てない。だがこの世界には更に強力な聖水が存在する。最も強力な聖水を得る為には２つのアイテムが必要だ。その一つは、飛び降りるのが嫌いな者なら普通に得られるという。もう一つは、水に浮かぶ穴に秘密が有るらしい。);
#text(1,face=uam,聖水はこれ以上は持てない。だがこの世界には更に強力な聖水が存在する。最も強力な聖水を得る為には２つの材料が必要だ。その一つは、飛び降りずに帰る事によって得られるという。もう一つは、水に浮かびし穴に秘密が有るらしい。);
#海と湖とを繋ぐ洞窟
#label(3); text(1,face=uam,聖水はこれ以上は持てない。だがこの世界には未だ、更に強力な聖水が存在する。最も強力な聖水を得る為には、二つのアイテムが必要だ。その一つは、飛び降りるのが嫌いな者なら普通に得られるという。もう一つはクリア後の話になるが、海に浮かぶ洞窟に秘密があるらしい。);
#item(check:6,極超聖水,1); if(nowres); text(0,極超聖水は既に手中に収めている。); endif;
#item(check:6,極超聖水,1); if(nowres); text(1,,既に手中に収めた『極超聖水』についての情報のようだ。); endif;


#取得できなくても消える
<fr_item>
evarg(item,gold);
subevent(box_item(evf(*evarg:item),evf(*evarg:gold)),);
fc(*target,apr,=,0);