<init>
subevent(mapinit,);
#item(check:eq,スキー板,1); if(nowres); mc(30,enegr,+=,(いけ月＆Ａ４２)); endif;
#item(check:eq,ストロ,1); and; item(check:eq,月影の外套,1); if(nowres); mc(54,enegr,+=,(いけ皆×２,いけ皆×３,いけ皆×６)); endif;
item(check:eq,動物図鑑,1); and; item(check:eq,ストロ,1); and; item(check:eq,月影の外套,1); if(nowres); mc(54,enegr,+=,(いけ皆×２,いけ皆×３,いけ皆×６)); endif;

subevent(yj5adbl,); if(nowres);
mc(54,enegr,+=,(Ａ５×６,熟しな＆Ａ５３,サキＧ＆Ａ５３,Ｄピュ＆Ａ５３));
endif;


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


#宮殿２Ｆ→宮殿１Ｆ
<to1>
fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿);
fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fcslc(c3); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fade(in,(type=fade,color=000000,wait=16));


#宮殿２Ｆ→宮殿１Ｆ（穴）
<holl>
#sound(drop); fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿); fade(in,(type=fade,color=000000,wait=16));
evflagsw(ct_valaback,=,0);
sound(drop); fade(out,(type=zoom,dep=512,wait=32)); fc(*actor,float,=,128); changemap(大ナパー宮殿); fade(in,(type=zoom,dep=512,wait=32));


#宮殿３Ｆへ
<to3>
fade(out,(type=fade,color=000000,wait=16)); changemap(大ナパー宮殿３Ｆ); fade(in,(type=fade,color=000000,wait=16));


#宮殿３Ｆへ（浮遊）
<to3up>
fc(*actor,mvrgn,&,高); if(nowres);
text(1,face=uam,空中浮遊を使った！);
sound(warp); fade(out,(type=fade,color=000000,wait=16)); fc(*actor,float,=,-64); changemap(大ナパー宮殿３Ｆ); fade(in,(type=fade,color=000000,wait=16));
endif;


#針床説明
<brd_hari>
text(1,face=+evfch,ここはちょっと恐ろしい針の床！　歩く度に大ダメージを受け、更に毒の沼とは異なりダメージによって『%cond[*絶].nmic』になってしまうため、うっかりすれば全滅してしまうぞ！　無理に渡っても良いが、ダメージを受けずに渡る方法も有る。なお詰み防止のため、針床の上に居る間はセーブはできない。);
#text(1,face=+evfch,ここはちょっと恐ろしい針の床！　歩く度に大ダメージを受け、うっかりすれば全滅してしまうぞ！　無理に渡っても良いが、ダメージを受けずに渡る方法も有る。\r※ここは毒の沼と異なり、ダメージによって『%cond[*絶].nmic』になるため、もしゲームオーバー有りの設定にしていた場合、途中でセーブをすると詰む危険があります。もし詰んだらメニュー（の２ページ目の所）の『%sk[*緊急脱出].nmic』を使おう！);
#ついでに戦闘中もダメージを食らうぞ！
#守備や回避でもダメージが軽減される。
#text(1,face=+evfch,ここはちょっと恐ろしい針の床！　歩く度に大ダメージを受け、うっかりすればゲームオーバーになってしまうぞ！　無理に渡っても良いが、ダメージを受けずに渡る方法も有る。他にも守備や回避が上がるとダメージが軽減する。くれぐれもこんな所でセーブはしないように。\nちなみに戦闘中もダメージを食らうぞ！);
#text(1,face=+evfch,ちなみにリターンを押すと脱出できるよ！　親切ぅ～。\nついでに戦闘中もダメージを食らうぞ！);


#針床脱出
<esc_hari>
select2(reset,all); select2(+する(id=1)); select2(+しない); select2(*［脱出する？］(cid=)); end;
label(1); subevent(@out,);


#パスワード扉
<door_pw>
fc(*actor,x,>=,fc(*target,x)); if(nowres);
#fc(*actor,dir,!=,0); if(nowres);
text(1,face=+evfch,ここを開けるには、次の問いに答えねばならない！！);
text(1,face=+evfch,７＋９はいくつだ？\nこの次に表示される入力画面にて解答せよ。);
#input(７＋９＝？,1,8,16,1,ｼﾞｭｳﾛｸ,1,ｼﾞｭｰﾛｸ,1,sixteen,1,63,2,15,3,17,3,,4,);
#sound(shield); text(1,face=+evfch,わからない　こは、　おうちの　ひとに　きいてね。\n（先頭に0とか+とかスペースとかを付けると認識されません。最小限を入力してくだされば結構です）); end;
evtext(,input,(title=《問：７＋９＝？》,initpage=1)); unif(nowres); end; endif;
text(1,,『%str[0]』と入力した！);
evtext(,==,*１６); or; evtext(,==,*16); or; evtext(,==,*ⅩⅥ); or; evtext(,==,*ⅩⅤⅠ); or; evtext(,==,*ⅹⅵ); or; evtext(,==,*ⅹⅴⅰ); or; evtext(,==,*じゅうろく); or; evtext(,==,*じゅーろく); or; evtext(,==,*ジュウロク); or; evtext(,==,*ジューロク); or; evtext(,==,*十六); or; evtext(,==,*拾陸); or; evtext(,==,*ＳＩＸＴＥＥＮ); or; evtext(,==,*ｓｉｘｔｅｅｎ); or; evtext(,==,*Ｓｉｘｔｅｅｎ); or; evtext(,==,*SIXTEEN); or; evtext(,==,*sixteen); or; evtext(,==,*Sixteen); or; evtext(,==,*しっくすてぃーん); or; evtext(,==,*シックスティーン);
if(nowres); else; sound(shield);
evtext(,==,*６３); if(nowres); text(1,face=+evfch,掛け算はしなくていいんだよ。); end; endif;
evtext(,==,*１５); or; evtext(,==,*１７); if(nowres); text(1,face=+evfch,惜しい！); end; endif;
evtext(,==,*); if(nowres); text(1,face=+evfch,答えるだけでも答えてみようよ。); end; endif;
text(1,face=+evfch,わからない　こは、　おうちの　ひとに　きいてね。\n（先頭に０や＋やスペースを付けたり、半角や全角を混ぜこぜにしたり、マニアックな表現したりすると認識されません）); end;
endif; endif;
sound(select); fc(*target,apr,=,0);

#input(6+9=?,,1,1,15,1,2);
#input(「聖根」の読みは？,,0,2,あこん,10,アコン,10,11); end;
#input(「聖根」はアルファベットで？,,0,2,ａｃｏｎ,10,ＡＣＯＮ,10,11); end;
#label(10); text(0,correct); end;
#label(11); text(0,uncorrect); end;
#パスワードは１２字以内。
#タイトルは省略可。