#洞窟水下→洞窟
<to_1>
#fc(apr,4,==,1,3); goto(2); label(3); text(0,左上！左上！); label(2);
#fc(apr,4,!=,1,2); text(0,左上！左上！); label(2);

fc(c4,apr,==,1); and; not; item(check:eq,caskey,1) ;if(nowres); text(0,左上！左上！); endif;
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,7,-13,3); changemap(洞窟トンネル); mapname(0); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,7,-13,center); fc(*actor,dir,=,l); changemap(洞窟トンネル); mapname(0); fc(uam,apr,=,0); fade(in,(type=mosaic,wait=16));


#洞窟水下階段１
<kd1>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,4,4,1); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,4,4,center); fc(*actor,dir,=,l); fade(in,(type=mosaic,wait=16));
evflag(*inmap:saitan,=,0);


#洞窟水下階段２
<kd2>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,13,1,1); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,13,1,center); fc(*actor,dir,=,l); fade(in,(type=mosaic,wait=16));
evflag(*inmap:saitan,=,0);


#洞窟水下階段３
<kd3>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,0,0,0); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); fade(in,(type=mosaic,wait=16));
evflag(*inmap:saitan,=,0);

#mfade(ff0000,0);
#fade(out,fade,ff0000,128,32); fade(fade,0;
#mfade(ff0000,128);


#洞窟水下階段１（アタリ）
<kd1b>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,4,4,1); changemap(洞窟トンネル２−４); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,4,4,center); fc(*actor,dir,=,l); mfade(0,000080,192); mfade(1,000080,128); music(main,=,*def:-9600);
#music(main,=,*silent:-2000);
#全体効果有り
fc(c3,apr,=,0);
fcslc(c4); while; if(nowres); fc(*select,apr,=,1); fcslc(*nextlabel); next; endif; wend;
evflag(*inmap:saitan,==,1); if(nowres); fc(uam,apr,=,1); endif;
#fc(c4,apr,=,1);
#fc(apr,5,=,1);
fade(in,(type=mosaic,wait=16));


#洞窟水下階段２（アタリ）
<kd2b>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,13,1,1); changemap(洞窟トンネル２−２); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,13,1,center); fc(*actor,dir,=,l); mfade(0,000080,96); mfade(1,000080,64); music(main,=,*def:-1000); fade(in,(type=mosaic,wait=16));
fc(c1,apr,=,0); fc(c2,apr,=,1);


#洞窟水下階段３（アタリ）
<kd3b>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,0,0,0); changemap(洞窟トンネル２−３); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); mfade(0,000080,144); mfade(1,000080,76); music(main,=,*def:-2000); fade(in,(type=mosaic,wait=16));
fc(c2,apr,=,0); fc(c3,apr,=,1);


#洞窟水下階段１（ハズレ）
<kd1c>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,4,4,1); changemap(洞窟トンネル２); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,4,4,center); fc(*actor,dir,=,l); fade(in,(type=mosaic,wait=16));
fc(c1,apr,=,1); fc(c2,apr,=,0); fc(c3,apr,=,0); fc(c4,apr,=,0); fc(uam,apr,=,0);


#洞窟水下階段２（ハズレ）
<kd2c>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,13,1,1); changemap(洞窟トンネル２); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,13,1,center); fc(*actor,dir,=,l); fade(in,(type=mosaic,wait=16));
fc(c1,apr,=,1); fc(c2,apr,=,0); fc(c3,apr,=,0); fc(c4,apr,=,0); fc(uam,apr,=,0);


#洞窟水下階段３（ハズレ）
<kd3c>
#fade(out,(type=mosaic,wait=16)); fc(move,*actor,2,0,0,0); changemap(洞窟トンネル２); mapname(0); fade(in,(type=mosaic,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); fade(in,(type=mosaic,wait=16));
fc(c1,apr,=,1); fc(c2,apr,=,0); fc(c3,apr,=,0); fc(c4,apr,=,0); fc(uam,apr,=,0);


#夢灯
<mutou>
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
sound(boon); fade(out,(type=fade,color=000000,dep=128,wait=32)); fade(in,(type=fade,color=000000,dep=128,wait=32));
#text(1,(ym=c,dsp=2,keyok=0,lwait=64),「%s3ケケケ・・・秘密を暴いてしまった者は抹殺されねばならない・・・」);
text(1,(ym=c,dsp=2,keyok=0,lwait=64,inneralign=0),%s3ケケケ・・・\n秘密を暴いてしまった者は抹殺されねばならない・・・);
feffect(mutou,,*actor,*actor,1); return;

#formem(party); member(select,pcond, cond,,+=,(攻↓(3),防↓(3))); nextmem();
#formem(party); member(select,pcond, cond,,+=,時絶); nextmem();

fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=夢灯,bgm=battle2:0,winbgm=win:0,stm=0,btm=ne,downefc=down3)); fade(in2,);
#,mfade=000000:128
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); end; endif;
evflag(*selected,==,3); if(nowres); fc(*actor,walk,1,8,-1,0,r); return; end; endif;


#聖根聖印
<evmark>
item(check:eq,聖根の印,1); if(nowres);
#music(*silent,0);
#item(check:eq,聖根聖剣,1); and; item(check:eq,聖根聖剣,1); if(nowres);
subevent(evolution,);
#music(def,def);
item(change:eq,聖根の印,聖根聖印,1);
text(1,(face=uam,swait=-1),『%ct2%it[*聖根の印].nmic%cd』が『%ct2%it[*聖根聖印].nmri%cd』に進化した！！！);
#else; #text(1,face=uam,剣と盾に更なる力を与え、持って来るべし。); endif;
else;
item(check:eq,聖根聖印,1); if(nowres);
text(1,(face=uam,lwait=0,select=戻す\n戻さない,islc=1),『%it[*聖根聖印].nmic』を『%it[*聖根の印].nmic』に戻しますか？\n%ct3※あえて戻しても特典などは有りません。%cd);
#select(reset); select(+はい(id=0)); select(+いいえ); select(/); select(*(cid=));
evflag(*selected,==,0); if(nowres); item(change:eq,聖根聖印,聖根の印,1); endif;
else; text(1,(face=uam,swait=-1),とある印を持って来るべし。);
endif;
endif;
subevent(recover,);