<init>
subevent(mapinit,);

#item(check:eq,漢和辞典,1); if(nowres); mc(48,enegr,+=,(しなち〜サンゴ(6))); endif;
#,しなち＆サキヲ＆サンゴ(3),しなち＆ＤＨＭ＆サンゴ(3),サキヲ＆ＤＨＭ＆サンゴ(3)
#endif;

subevent(yj4adbl,); if(nowres);
mc(48,enegr,+=,(Ａ４×４(3),しなち＆Ａ４２(3),サキヲ＆Ａ４２(3),ＤＨＭ＆Ａ４２(3),しなち〜ＤＨＭ＆Ａ４(6)));
#mc(48,enegr,+=,(Ａ４×３,Ａ４＆グリペ２,Ａ４＆マル２,Ａ４＆六手梨２,しなち＆Ａ４＆グリペ,しなち＆Ａ４＆マル,しなち＆Ａ４＆六手梨,サキヲ＆Ａ４＆グリペ,サキヲ＆Ａ４＆マル,サキヲ＆Ａ４＆六手梨,しなち＆サキヲ＆Ａ４));
#mc(26,enegr,+=,(Ａ４×６,しなち＆Ａ４２,サキヲ＆Ａ４２,いけ月＆Ａ４));
#mc(27,enegr,+=,(Ａ４×６,しなち＆Ａ４２,サキヲ＆Ａ４２,いけ月＆Ａ４));
#mc(38,enegr,+=,(Ａ４×６,しなち＆Ａ４２,サキヲ＆Ａ４２,いけ月＆Ａ４));
#mc(39,enegr,+=,(Ａ４×６,しなち＆Ａ４２,サキヲ＆Ａ４２,いけ月＆Ａ４));
#item(check:eq,極超聖水,1); if(nowres); mc(48,enegr,+=,(しなち〜Ａ４(4))); endif;
#mc(48,enegr,+=,(Ａ４×４(6),しなち〜ＤＨＭ＆Ａ４(6)));
#,しなち＆サキヲ＆Ａ４(3),しなち＆ＤＨＭ＆Ａ４(3),サキヲ＆ＤＨＭ＆Ａ４(3)
#item(check:eq,漢和辞典,1); if(nowres); mc(48,enegr,+=,しなち〜Ａ４(6)); endif;
endif;

subevent(yj5adbl,); if(nowres);
# and; evflagsw(pr_bnyj-a4,==,1);
mc(26,enegr,+=,(Ａ５×２,熟しな＆Ａ５,サキＧ＆Ａ５,Ｄピュ＆Ａ５));
endif;

#item(check:eq,漢和辞典,1); if(nowres);
#mc(36,enegr,+=,(サンゴ×３,サンゴ＆グリペ２,サンゴ＆マル２,サンゴ＆六手梨２,しなち＆サキヲ＆サンゴ));
#mc(26,enegr,+=,(いけ月＆サンゴ,サンゴ×６));
#mc(27,enegr,+=,(いけ月＆サンゴ,サンゴ×６));
#mc(28,enegr,+=,(いけ月＆サンゴ,サンゴ×６));
#mc(29,enegr,+=,(いけ月＆サンゴ,サンゴ×６));
#endif;

#item(check:eq,漢和辞典,1); and; item(check:eq,スキー板,1); if(nowres);
#mc(36,enegr,+=,(しなち〜Ａ４(4)));
#endif;


<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,moved,x+); if(nowres); zukan(warppos:*all,|=,knw_e); fc(*actor,move,20,-21,center); fc(*actor,dir,=,r); else; fc(*actor,move,18,-21,center); fc(*actor,dir,=,l); endif; fc(*actor,float,=,0); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#タイマースタート
<timer_start>
subevent(@mush_dapr,);

#イベント優先度問題の応急処置
fc(c1:1,apr,=,1);

#timer(mush_tme,2,6);
timer(kinoko,@timer_end,15,6);


#タイムオーバー
<timer_end>
fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,mvpat,1,mush_apr,0); fcslc(*nextlabel); next; endif; wend;
#fc(*select,ans,=,0); fc(*select,ani,=,3); fc(*select,anw,=,127); 

#fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,ans,=,-16); fcslc(*nextlabel); next; endif; wend;
#wait(24);
#fcslc(c2); while; if(nowres); fc(*select,ans,=,0); fcslc(*nextlabel); next; endif; wend;
##fc(pic,c2,=,box); wait(16); fc(ani,c2,2,-1);

#イベント優先度問題の応急処置
fc(c1:1,apr,=,0);


#キノコアニメ消失
<mush_dapr>
fcslc(c2); while; if(nowres); fc(*select,apr,!=,0); if(nowres); fc(*select,mvpat,1,mush_dapr,0); endif; fcslc(*nextlabel); next; endif; wend;

#fcslc(c2); while; if(nowres); fc(*select,apr,!=,0); unif(nowres); fcslc(*nextlabel); next; endif; endif; wend;
#if(nowres);
#fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,ans,=,16); fcslc(*nextlabel); next; endif; wend;
#wait(24);
#fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
#endif;


#お金で通行
<srnd>
#evflagsw(pr_dfmoon,==,0); if(nowres);
not; fc(*actor,mvrgn,&,高); if(nowres);
text(1,face=+evfch,「どうしても通れないなら通してあげるよ？　一回弐千円程要るけれどね。この先の敵はもっと強いからよ〜く考えてね。お金が減る以外のペナルティは無いから、安心して払ってくれていいよ」);
#強引に突破しても問題無いよ
select2(reset,all);
select2(+通れない！　通して！(id=1));
select2(+こんなん楽勝だぜ？); select2(/);
select2(*通してもらう？(cid=));
evflag(*selected,==,1); if(nowres); party(,gold,>=,2000); if(nowres); party(,gold,+=,-2000); subevent(@mush_dapr,); fc(*target,event,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); else; text(1,face=+evfch,「お金が足りないよ」); endif; endif;
else;
text(1,face=+evfch,「どうしても通れないなら通してあげ……って言おうとしたけど、きみたちにはその必要は無いみたいだね。折角の機会だから伝説を聞かせてあげるよ」\r「『%ct2金属と虚空、そして生えしものの力を揃え、南西の光へ行くべし%cd』だってさ。重要度はかなり低い気がするよ」);
#。さすれば、これらの力をより多めに得られるだろう
#金属と虚空の力をより多く得たくば、金属と虚空、そして生えしものの力を揃え、南西の光へ行くべし
evflagsw(pr_elements,==,1); if(nowres); text(1,face=+evfch,「……うーん、なんか既にこの謎は解かれてる気がするよ」); endif;
#text(1,face=+evfch,「どうしても通れないなら通してあげ……って言おうとしたけど、きみたちにはもうその必要ないみたいだね」);
#text(1,face=+evfch,「きみたちにはもう必要ないようだけど…」);
#select2(reset,all);
#select2(+だがあえて頼む！(id=1));
#select2(+ザッツライト); select2(/);
endif;
#select2(*通してもらう？(cid=));

#evflag(*selected,==,1); if(nowres); party(,gold,>=,2000); if(nowres); party(,gold,+=,-2000); evflagsw(pr_dfmoon,==,1); if(nowres); text(1,face=+evfch,「折角だからこれあげるよ」); getdlg(,head,0,0,0, 0,加速薬Ｓ); endif; subevent(@mush_dapr,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); else; text(1,face=+evfch,「お金が足りないよ」); endif; endif;
#復活薬２Ｓ


#お金→経験値
<gdtoex>
#party(,gold,+=,999999999999);
text(1,face=+evfch,「ぼくは神話に名高いお金を経験に変えてしまうキノコさ」);
#text(1,face=+evfch,「ぼくは神話に高名なお金を経験に変えてしまうキノコさ」);
#party(,gold,>,0); if(nowres);
while;
memslcbox(party:*exp,［誰の経験値を上げる？］\n所持金: %pty[e].gd,,,4); if(nowres);
inpnum(［いくつ上げる？（１経験につき４円）］\n%mem[s]\n経験値: %mem[s].ex\n所持金: %pty[e].gd,16,(rate=4,mode=buy,cable=1)); and; evflag(*64:nowval,>,0); if(nowres); evflag(*64:instant1,=,evf(*64:nowval)); evflag(*64:instant3,=,evf(*64:instant1)); evflag(*64:instant1,*=,4);
party(,gold,>=,evf(*64:instant1)); if(nowres);
getdlg(,select,evf(*64:instant3),0,0, 0,); text(4,,%str[*def]);
#member(select,exp,+=,instant2,2,1); sound(warp); text(1,face=uam,%mem[s]の経験値が%mem[s].exになった！);
#text(1,,%eh[*instant1]\n%eh+[*instant3]);
party(,gold,-=,evf(*64:instant1));
else; text(1,face=+evfch,「お金が足りないよ」); endif;
endif; next; endif;
wend;
#endif;


#キノコ戦闘
<btlmush>
text(1,face=uam,立派なキノコが行く手を阻んでいる…。);

select2(reset,all);
select2(+強引に通る（ペナルティ無し）(id=0));
select2(+やめておく);
select2(*(cid=));

evflag(*selected,==,0); if(nowres); 
#evflagsw(dspenecdp2,=,1);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=キノコ,chdmg=+(状態表示),bgm=*nochange:def,stm=0,btm=ae)); fade(in2,);
#evflagsw(dspenecdp2,=,0);
evflag(*selected,==,1); if(nowres); subevent(@mush_dapr,); fc(*target,event,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); end; endif;
endif;


#地下へ
<to_b1>
evflagsw(pr_chitei,=,1);
fade(out,(type=fade,color=c06000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,d); changemap(キノコ通路地下); fade(in,(type=fade,color=c06000,wait=16));


#地下を塞ぐキノコ
<chikamush>
text(1,face=uam,何やら怪しい感じがする。);
#evflagsw(pr_honpen,==,0); if(nowres);
#text(1,face=uam,何やら怪しいが、未だ気にしなくて良さそうだ。);
#else;
#text(1,face=uam,何やら怪しいが、大して重要では無い気もする。); 
#endif;
#text(1,face=uam,何やら怪しいが、特に重要では無さそうだ。);