<init>
subevent(mapinit,);
#item(check:eq,スキー板,1); if(nowres); mc(53,eneg,+=,(Ａ４×２(3),Ａ４＆グリペ(2),Ａ４＆マル(2),Ａ４＆六手梨(2),しなち＆Ａ４(6),サキヲ＆Ａ４(6))); endif;
#item(check:eq,スキー板,1); if(nowres); mc(53,eneg,+=,Ａ４(48)); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(53,eneg,+=,サンゴ(48)); endif;


<out>
fade(out,(type=fade,color=0080ff,wait=16)); fc(*actor,move,14,5,center); fc(*actor,dir,=,u); changemap(キノコ通路);
fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fc(*select,ani,=,3); fcslc(*nextlabel); next; endif; wend;
retpos(set,フィールド,20,-21); fc(c1,apr,=,0); fc(c1:1,apr,=,0);
#fc(c4,apr,=,0); fc(c5,apr,=,0);
fade(in,(type=fade,color=0080ff,wait=16));


<recover>
#text(1,face=uam,※このエリアはただのボーナスステージのようなもので、特別な要素はありません。);
subevent(recover,);
#fc(*actor,walk,0,8,-8,0,l); return;


<cool>
setmapdat(all,0,38,0); fc(*target,apr,=,0);
sound(ice); flash(80ffff,128,8); wait(4);
text(1,face=uam,安全に帰れるようになった！);


<cool2>
setmapdat(single,8,8,0,0); fc(*target,apr,=,0);
sound(ice); flash(80ffff,128,8); wait(4);
text(1,face=uam,安全に帰れるようになった！);


<brd_taiyou>
#text(1,face=+evfch,様々な災い起こりし所、災いに追われし時なれば、希望に転ずるであろう。);
text(1,face=+evfch,様々な災い起こりし所、災いに追われし時なれば、災い起こらず。);
#text(1,face=+evfch,災いに追われし時、災い起こらず。);
#text(1,face=+evfch,様々な災い起こりし所、災いに追われし時に飛び込むべし。);
#text(1,face=+evfch,黄色き災いに追われし時、光集いし地にて災い起こらず。);
#text(1,face=+evfch,光集いし災いの地、災いに追われし時なれば、災い起こらず。);
zukan(item:太陽球,==,1); if(nowres); text(1,face=uam,『%it[*太陽球].nmic』の確実な取得法についての案内だったようだ。); endif;
#item(check:aleq|alpt|bank,太陽球,1);
#item(check:aleq|alpt|bank,太陽球,1); if(nowres); text(0,太陽球は既に取得している。); endif;
#item(check:aleq|alpt|bank,太陽球,1); if(nowres); text(1,,既に取得した『太陽球』の事のようだ。); endif;
#item(check:aleq|alpt|bank,太陽球,1); if(nowres); text(1,face=uam,既に取得した『%it[*太陽球].nmic』の簡単な取り方の事のようだ。); endif;


<brd_dark>
text(1,face=+evfch,輪を断ち切りし壁に紛れて現れし、輪を断ち切らざる壁を調べてみようぜ！);
#text(1,face=+evfch,輪を断ち切りし壁に紛れて現れし、道を塞がない壁を調べてみようぜ！);
if(evf(*sw:pr_lockdark) != 0); text(1,face=uam,廃墟地下への階段の固定方法を示していたようだ。); endif;
# zukan(item:十手,==,1); if(nowres); text(1,face=uam,『%it[*十手].nmic』の在処を示していたようだ。); endif;