<init>
subevent(mapinit,);
zukan(warppos:*all,|=,mount);

item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(サンゴ×２,サンゴ＆しなち,サンゴ＆サキヲ,サンゴ＆ＤＨＭ)); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(12,enegr,+=,(サンゴ×３(3),サンゴ＆グリペ２,サンゴ＆マル２,サンゴ＆六手梨２)); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(12,enegr,+=,(サンゴ＆グリペ,サンゴ＆グリペ２,サンゴ＆マル,サンゴ＆マル２,サンゴ＆六手梨,サンゴ＆六手梨２)); endif;

subevent(yj4adbl,); if(nowres);
mc(24,enegr,+=,(Ａ４×６,しなち＆Ａ４３,サキヲ＆Ａ４３,ＤＨＭ＆Ａ４３));
#mc(12,enegr,+=,(Ａ４×３(6),Ａ４＆グリペ２,Ａ４＆マル２,Ａ４＆六手梨２,Ａ４＆グリペ＆マル,Ａ４＆グリペ＆六手梨,Ａ４＆マル＆六手梨,しなち＆Ａ４＆グリペ(2),しなち＆Ａ４＆マル(2),しなち＆Ａ４＆六手梨(2),サキヲ＆Ａ４＆グリペ(2),サキヲ＆Ａ４＆マル(2),サキヲ＆Ａ４＆六手梨(2),ＤＨＭ＆Ａ４＆グリペ(2),ＤＨＭ＆Ａ４＆マル(2),ＤＨＭ＆Ａ４＆六手梨(2)));
#mc(12,enegr,+=,(Ａ４＆グリペ２,Ａ４＆マル２,Ａ４＆六手梨２,しなち＆Ａ４＆グリペ,しなち＆Ａ４＆マル,しなち＆Ａ４＆六手梨,サキヲ＆Ａ４＆グリペ,サキヲ＆Ａ４＆マル,サキヲ＆Ａ４＆六手梨));
#Ａ１〜Ａ３,Ｂ１〜Ｂ３,Ｃ１〜Ｃ３,Ａ１〜Ｃ３,Ａ１〜Ａ４,ＹＪ全,しなち＆サキヲ＆Ａ４
#item(check:eq,漢和辞典,1); if(nowres); mc(24,enegr,+=,(サンゴ＆Ａ４,しなち〜Ａ４＆サンゴ(3))); endif;
#item(check:eq,漢和辞典,1); if(nowres); mc(12,enegr,+=,(サンゴ＆Ａ４,しなち〜Ａ４(2))); endif;
endif;



#天空へ
<to2>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,float,=,0); changemap(真理の山２); fade(in,(type=fade,color=000000,wait=16));
#mapname(0); 


#外へ
<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));


<getmark>
setmapdat(reset);
item(check:aleq|alpt|bank,聖根の印,1); or; item(check:aleq|alpt|bank,聖根聖印,1); unif(nowres);
sound(warp); item(get,聖根の印,1); text(1,(face=uam,swait=-1),『%ct2%it[*聖根の印].nmri%cd』を手に入れた！);
#evflagsw(getmark,=,1);
else;
#item(check:eq,聖根の印,1); or; item(check:eq,聖根聖印,1); if(nowres);
text(1,(face=uam,lwait=0,select=還す\n還さない,islc=1),『%it[*聖根の印].nmic』を還しますか？\n%ct3※あえて還しても特典などは有りません。%cd);
#select2(reset); select2(+はい(id=0)); select2(+いいえ); select2(/); select2(*(cid=));
#evflag(*selected,==,0); if(nowres); item(lost:2,聖根の印,1); item(lost:2,聖根聖印,1); endif;
evflag(*selected,==,0); if(nowres); item(lost:aleq|alpt|bank,聖根の印,1); item(lost:aleq|alpt|bank,聖根聖印,1); endif;
#endif;
endif;
#fc(c5,apr,=,1); fc(c5,ani,=,0); subevent(recover,);


#<evweapon>
item(check:eq,聖根聖剣,1); and; item(check:eq,聖根聖盾,1); if(nowres);
text(1,(face=uam,lwait=0,select=戻す\n戻さない,islc=1),『%it[*聖根聖剣].nmic』と『%it[*聖根聖盾].nmic』を『%it[*聖根の剣].nmic』と『%it[*聖根の盾].nmic』に戻しますか？\n%ct3※あえて戻しても特典などは有りません。%cd);
#select2(reset); select2(+はい(id=0)); select2(+いいえ); select2(/); select2(*(cid=));
evflag(*selected,==,0); if(nowres); item(change:eq,聖根聖剣,聖根の剣,1); item(change:eq,聖根聖盾,聖根の盾,1); endif;
else;
evflagsw(pr_forest1,==,1); and; evflagsw(pr_forest2,==,1); if(nowres);
item(check:aleq|alpt|bank,聖根聖剣,1); and; item(check:aleq|alpt|bank,聖根聖盾,1); unif(nowres);
item(check:eq,聖根の剣,1); and; item(check:eq,聖根の盾,1); if(nowres);
subevent(evolution,);
#music(*silent); subevent(evolution,); music(*def);
#sound(warp); wait(64);
item(change:eq,聖根の剣,聖根聖剣,1); item(change:eq,聖根の盾,聖根聖盾,1);
text(1,(face=uam,swait=-1),『%ct2%it[*聖根の剣].nmic%cd』と『%ct2%it[*聖根の盾].nmic%cd』が、『%ct2%it[*聖根聖剣].nmri%cd』と『%ct2%it[*聖根聖盾].nmri%cd』に進化した！！！);
#text(0,聖根の剣が聖根聖剣に進化した！); text(0,聖根の盾が聖根聖盾に進化した！);
else; text(1,(face=uam,swait=-1),とある剣ととある盾を持って来るべし。);
endif;
endif;
else; text(1,(face=uam,swait=-1),２つの森の謎を解きし者、更なる聖なる力を得られん。);
endif;
endif;

fc(c5,apr,==,0); if(nowres); fc(c4,apr,=,1); endif;
fc(c5,apr,=,1); fc(c5,ani,=,0);
subevent(recover,);


<trap>
#evflagsw(saveable2,=,0);
fc(*target,apr,=,0);
setmapdat(single,12,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);
setmapdat(single,13,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);
setmapdat(single,14,-18,0,24);
sound(attack2); shake(1,4,4,2,2,8); wait(8);

#setmapdat(12,-18,71,73); setmapdat(12,-17,83,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);
#setmapdat(12,-18,63,73); setmapdat(13,-18,104,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);
#setmapdat(13,-18,103,73); setmapdat(14,-18,104,73);
#sound(attack2); shake(1,4,4,2,2,8); wait(8);

#text(1,,この仕掛けはただのイタズラです（￣ー￣）。);
text(1,face=uam,この仕掛けはただのトラップのようだ。);
#\n崖から飛び降りても無傷で帰られるのでご安心を。


#気紛れの箱
<box_kimagu>
#rand(9,1,2,3,4,5,6,7,8,9);
rand(1,10);
evflag(nowval,==,1); if(nowres); subevent(box_item(id(item:chyaku)),); end; endif;
evflag(nowval,==,2); if(nowres); subevent(box_item(id(item:復活薬)),); end; endif;
evflag(nowval,==,3); if(nowres); subevent(box_item(id(item:ブースター)),); end; endif;
evflag(nowval,==,4); if(nowres); subevent(box_item(id(item:聖水)),); end; endif;
evflag(nowval,==,5); if(nowres); subevent(box_item(id(item:非常口)),); end; endif;
evflag(nowval,==,6); if(nowres); subevent(box_item(id(item:爆弾)),); end; endif;
evflag(nowval,==,7); if(nowres); subevent(box_item(id(item:ジャンプ台)),); end; endif;
evflag(nowval,==,8); if(nowres); subevent(box_item(id(item:中和剤)),); end; endif;
evflag(nowval,==,9); if(nowres); subevent(box_item(-1,10000),); end; endif;
evflag(nowval,==,10); if(nowres); subevent(box_item(-1,0),); end; endif;
#label(30); text(0,何かを見つけたが、これ以上は持てなかった。);
#label(20);


#気紛れの箱説明
<brd_kimagu>
text(1,face=+evfch,これは「きまぐれの箱」。何が出るかはおたのしみ！\n%ct3※ここでしか手に入らないような物は有りません。\n※中身がランダムな宝箱はこれだけです。%cd);
#※ここ以外の宝箱は全て中身固定です。
#text(1,face=+evfch,これはきまぐれの箱。何が出るかはおたのしみ！\nでも特別なアイテムは出てこないよ。);
#text(1,face=+evfch,これはきまぐれの箱。何が出るかはおたのしみ！　ハズレを除いて全９種類！\n（※ここでしか手に入らないような物は有りません）);


<napegare>
fc(*actor,moved,y+); if(nowres); end; endif;
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
text(1,(face=napelest,swait=-1),ナペレスト「貴様聖根の者だな？！」);
#fc(*actor,moved,y+); if(nowres); text(1,face=garepest,ガレペスト「ボク達を倒さないとここからは帰られないヨ」); else;
text(1,(face=garepest,swait=-1),ガレペスト「ボク達を倒さないとここから先は通れないヨ」);
#endif;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ナペレ＆ガレペ,bgm=battle2:0,stm=0,downefc=down3)); fade(in2,);
evflag(*selected,==,1); if(nowres); fc(*target,apr,=,0); fc(c3,apr,=,0); end; endif;
evflag(*selected,==,3); if(nowres); fc(*actor,walk,1,8,-1,0,r); return; end; endif;


<garupade>
fc(*actor,moved,x-); if(nowres); end; endif;
subevent(passbattle,); if(nowres); fc(*target,apr,=,0); end; endif;
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ガルパデ,bgm=battle2:0,front=starfall00,stm=0,downefc=down3)); fade(in2,);
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; text(1,face=uam,その辺から飛び降りるしかなさそうだ。); return; end; endif;


<btlkaihi>
fc(c2,apr,==,1); and; not; fc(*actor,mvrgn,&,高); and; evflagsw(ex_btkaihi,==,0); if(nowres); evflagsw(ex_btkaihi,=,1); text(1,face=uam,戦闘の回避に成功した！); endif;
fc(*target,apr,=,0);
#fc(c2,apr,=,0);