<init>
subevent(mapinit,);

item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(いけ月＆サンゴ２)); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(サンゴ×６)); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(サンゴ×６,しなち＆サンゴ３,サキヲ＆サンゴ３,ＤＨＭ＆サンゴ３)); endif;
#item(check:eq,スキー板,1); or; item(check:eq,たすき,1); if(nowres);
#mc(24,enegr,+=,(Ａ４×６,しなち＆Ａ４３,サキヲ＆Ａ４３,ＤＨＭ＆Ａ４３));
#item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(サンゴ＆Ａ４３)); endif;
#,いけ月＆Ａ４,しなち＆サンゴ３,サキヲ＆サンゴ３,いけ月＆サンゴ２
#endif;

#item(check:eq,スケート靴,1); and; item(check:eq,ビーサン,1); and; item(check:eq,ロラスケ,1); and; item(check:eq,スキー板,1); and; item(check:eq,壷,1); and; item(check:eq,魔法瓶,1); and; item(check:eq,ひょうたん,1); and; item(check:eq,サンバイザー,1); and; item(check:eq,頭巾,1); and; item(check:eq,笠,1); if(nowres); fc(yj,apr,=,1); else; fc(yj,apr,=,0); endif;

subevent(yj5adbl,); if(nowres);
mc(24,enegr,+=,(ＹＪ−Ａ５));
endif;


#山２→山
<to1>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,13,-37,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(真理の山); fc(c2,apr,=,0); fc(c3,apr,=,0); fade(in,(type=fade,color=000000,wait=16));
fc(c5,apr,=,1); fc(c5,ani,=,0); fc(c4,apr,=,1);
#mapname(0); fc(c4,apr,=,1);


#外へ
<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,29,-17,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#外へ（落下）
<dropout>
sound(drop); fade(out,(type=fade,color=00ffff,wait=16)); fc(*actor,move,29,-17,center); fc(*actor,dir,=,d); fc(*actor,float,=,128); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#極超聖水
<gcseisui>
evflagsw(pr_jikken,=,1);

item(check:eq,超聖水,1); and; item(check:eq,深海の結晶,1); or; item(check:eq,極超聖水,1); if(nowres);

sound(paraly); music(main,=,*silent);
fc(party2,chain,*null);
fc(*actor,walk,1,8,-1,0,r); return; wait(48);
fc(party2,chain,party1);
#fc(dir,*actor,==,0,7); goto(8); label(7); fc(move,,0,+0,+0,1); label(8);
#fc(move,,0,+0,+0,-3);
sound(sleep); fade(out,(type=fade,color=ffff00,wait=64)); fc(*target,picset,fch,org:nrm,=,coral); fc(*target,dir,=,~l); fade(in,(type=fade,color=ffff00,wait=64));
#select2(挑戦する|やめておく,0,1,0, ,4);
wait(16);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=サンゴ,back=hyper_fal,bgm=boss:0,fade=(type=zoom),stm=0,downefc=down5)); fade(in2,);
#(fbk_hyper,starfall)

evflag(*selected,==,1); if(nowres);
subevent(recover2,);
fade(out,(type=fade,color=ffff00,wait=64)); fc(*target,apr,=,0); music(main,=,*def:def); fade(in,(type=fade,color=ffff00,wait=64));
not; item(check:eq,極超聖水,1); if(nowres); item(lost:eq,深海の結晶,1); item(lost:eq,超聖水,1);
#item(change,超聖水,極超聖水,3);
item(get,極超聖水,1); if(nowres); sound(warp); text(0,『%it[*極超聖水].nmic』を手に入れた！); endif; endif;
text(1,(face=uam,swait=-1),%ct2ＥＸイベント『%sysm[*ex-gcseis]』を攻略した！%cd\n全快した！\n※『%it[*極超聖水].nmic』を手元に持ってないと攻略してると見なされないので注意しよう！　逆に攻略と見なされたくない場合は金庫に預けてしまおう！);
#evflagsw(pr_gcseis,=,1);
zukan(sysm:ex-gcseis,=,1);
end; endif;

evflag(*selected,==,3); if(nowres); goto(4); endif;

else;
text(1,face=uam,実験材料が足りない！\n希望は無い！);
label(4); sound(drop); fade(out,(type=fade,color=00ffff,wait=16)); fc(*actor,move,29,-17,center); fc(*actor,dir,=,d); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));
endif;


<ato>
text(1,face=uam,これ以上は特に何も無いようだ。);


#地底ヒント
<brd_chitei>
text(1,face=+evfch,行きは生えていても、帰りは生えていないかもしれない。);
zukan(map:キノコ通路地下,!=,0); if(nowres); text(1,face=uam,『%map[*キノコ通路].nmic』の地下への行き方を意味していたようだ。); endif;
#evflagsw(pr_chitei,==,1);
#item(check:6,映写機,1);
#text(1,face=+evfch,キノコの道に地下への入口有り。非常に他愛もない方法で行く事ができるだろう。まずは貪欲になるのがいいかもしれない。);
#text(1,face=+evfch,キノコの道に地下への入口有り。非常に他愛もない方法で行く事ができるだろう。まずは貪欲になるのがいいかもしれない。);