<init>
subevent(mapinit,);
zukan(warppos:*all,|=,forest2);

item(check:eq,漢和辞典,1); if(nowres); mc(12,enegr,+=,(サンゴ×６,いけ月＆サンゴ)); endif;


<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,16,16,center); fc(*actor,float,=,0); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#北へジャンプ
<jumpn>
#fc(*actor,dir,==,3); if(nowres); fc(*actor,move,+1,+-4,center); endif;
fc(*actor,moved,y-); if(nowres); fade(out,(type=fade,color=808000,wait=16)); fc(*actor,move,+1,+-4,center); fade(in,(type=fade,color=808000,wait=16)); endif;


#南へジャンプ
<jumps>
#fc(*actor,dir,==,2); if(nowres); fc(*actor,move,+-1,+4,center); endif;
fc(*actor,moved,y+); if(nowres); fade(out,(type=fade,color=808000,wait=16)); fc(*actor,move,+-1,+4,center); fade(in,(type=fade,color=808000,wait=16)); endif;


<event>
evflagsw(pr_forest2-0,=,1);

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

unif(nowres);
evflagsw(pr_forest2,==,0); if(nowres); evflagsw(pr_forest2,=,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』はこれ以上は持てない。);
#else; text(1,face=uam,復活薬はこれ以上は持てない。もう一つの森でも同じ事をしてみるといいかもしれない。);
#else; text(1,face=uam,復活薬はこれ以上は持てない。そしてこちらの森には情報は無い。);
#else; text(1,face=uam,復活薬はこれ以上は持てない。他の状態回復系が欲しければ、ある隠し敵キャラのアイテムドロップを狙う事だ。それを持っているとある場所で変化が起きるぞ。ちなみに洞窟に出る白いヤツの事では無いぞ。);
#else; text(1,face=uam,復活薬はこれ以上は持てない。\n話は変わるが、聖なる場所では行儀良く帰った方が良いかもしれない。それから、クリア後の話になるが、海に浮かぶ洞窟には秘密があるらしい。);
#item(check:6,極超聖水,1); if(nowres); text(0,極超聖水は既に手中に収めている。); endif;
endif;
endif; subevent(recover,);


<twire>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ツワイヤー,fade=(type=voltex(2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<twire2>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ツワイ×２,fade=(type=voltex(2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<twire3>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ツワイ×３,fade=(type=voltex(2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<twire6>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ツワイ×６,fade=(type=voltex(2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<atwire>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(-2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=アンチツワイヤー,fade=(type=voltex(-2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<atwire2>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(-2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=Ａツワ×２,fade=(type=voltex(-2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<atwire3>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(-2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=Ａツワ×３,fade=(type=voltex(-2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;


<atwire6>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=voltex(-2,6),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=Ａツワ×６,fade=(type=voltex(-2,6)))); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); endif;