#海のほら穴から出る
<out>
fade(out,(type=holcircle,color=000000,wait=16)); fc(*actor,moved,x-); if(nowres); fc(*actor,move,-1,11,center); else; fc(*actor,move,38,-17,center); endif; changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));
#fc(move,*actor,2,38,-17,); changemap(フィールド);
#fade(mosaic,1,256,16); fc(move,*actor,2,38,-17,); changemap(フィールド); fade(mosaic,2,256,16);


<loop>
#fc(dir,*actor,==,0);
fc(*actor,moved,x+); or; fc(c5,apr,==,1); or; fc(c6,apr,==,1); or; fc(c7,apr,==,1); or; fc(c8,apr,==,1); if(nowres);
fc(*actor,move,-11,0,slide);

#ヒント石碑出現
fc(*actor,moved,x+); unif(nowres); evflag(*inmap:looped,<,2); if(nowres); evflag(*inmap:looped,+=,1); else; fc(c2,apr,=,1); endif; endif;

endif;


<gate1>
fc(c5,apr,=,0); fc(c6,apr,=,1);


<gate2>
#fc(dir,*actor,==,3); if(nowres); fc(apr,c6,=,0); end; endif;
#fc(dir,*actor,==,2); if(nowres); fc(apr,c6,=,0); fc(apr,c5,=,1); end; endif;
fc(*actor,moved,y-); if(nowres); fc(c6,apr,=,0); end; endif;
fc(*actor,moved,y+); if(nowres); fc(c6,apr,=,0); fc(c5,apr,=,1); end; endif;


<gate3>
fc(c7,apr,=,0); fc(c8,apr,=,1);


<gate4>
#fc(dir,*actor,==,0); if(nowres); fc(apr,c8,=,0); end; endif;
#fc(dir,*actor,==,1); if(nowres); fc(apr,c8,=,0); fc(apr,c7,=,1); end; endif;
fc(*actor,moved,x+); if(nowres); fc(c8,apr,=,0); end; endif;
fc(*actor,moved,x-); if(nowres); fc(c8,apr,=,0); fc(c7,apr,=,1); end; endif;


#ボス
<boss>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=グリーンペンギン,bgm=battle2:0,stm=0,downefc=down3)); fade(in2,);
#fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle(ガルパ×３,*def,, (battle2,0),(*def,def),(*def,def), , 0,,); fade(in,def,,,);
#battle(ガルパ×２,*def,, battle2,0,,,def,def, , 0,,);
#evflag(*selected,==,3); if(nowres); goto(1); endif;
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); end; endif;
evflag(*selected,==,3); if(nowres); label(1); fc(*actor,walk,0,8,0,1,u); return; end; endif;
#btres(escaped);


#アイテム合成所
<mixitem>
text(1,face=uam,アイテム合成的な事ができるようだ。);
buy(gousei1,only);
#select(*［アイテムの合成］(cid=,udev=@update_mixitem,dnev=@done_mixitem));


#ループ脱出ヒント
<brd_seacave>
#text(1,face=+evfch,道に迷いし者よ、長きほうを進むのだ。);
text(1,face=+evfch,近道で済まそうとするならば、永遠に道は続くであろう……。);


#極超聖水合成ヒント
<brd_jikken>
text(1,face=+evfch,〓〓ご注意〓〓\nここでは聖水の類は合成できません。);
#zukan(item:極超聖水,==,1); if(nowres); text(1,face=uam,『%it[*極超聖水].nmic』。); end; endif;
#item(check:6,映写機,1);
#text(1,face=+evfch,キノコの道に地下への入口有り。非常に他愛もない方法で行く事ができるだろう。まずは貪欲になるのがいいかもしれない。);
#text(1,face=+evfch,キノコの道に地下への入口有り。非常に他愛もない方法で行く事ができるだろう。まずは貪欲になるのがいいかもしれない。);


#毒ガードⅡヒント
<brd_hyesc>
text(1,face=+evfch,いっぺん秘境より逃げて帰ってみるべし。);
#text(1,face=+evfch,秘境より逃げて帰ると、非買アイテムが手に入る。ただし、記念以上の意味は無いので、気にする事なかれ。);
item(check:aleq|alpt|bank,毒ガードⅡ,1); if(nowres); text(1,face=uam,『%it[*毒ガードⅡ].nmic』の回収法についての補足だったようだ。); endif;