#初期化
<init>
subevent(mapinit,);
zukan(warppos:*all,|=,haikyo);

#階段出現
if(evf(*sw:pr_lockdark) != 0); fc(c2,apr,=,1); endif;


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


#ハズレ
<hazure>
evflag(*inmap:item,=,0);
mc(114,evtime,);
if(evf(*sw:pr_lockdark) == 0); fc(c2,apr,=,0); endif;


#ゴール
<goal>
if(evf(*inmap:item) >= 2);
item(get,toolset,1); or; item(get,潤滑薬Ｓ,1); or; item(get,目覚しＳ,1); if(nowres); evflag(*inmap:item,=,1); sound(select); text(0,『%it[*toolset].nmic』と『%it[*潤滑薬Ｓ].nmic』と『%it[*目覚しＳ].nmic』を手に入れた！); else; text(0,『%it[*toolset].nmic』と『%it[*潤滑薬Ｓ].nmic』と『%it[*目覚しＳ].nmic』を見つけたがこれ以上は持てない。); endif;
fc(c2,apr,=,1);
end;
endif;
if(evf(*inmap:item) != 0); text(0,これ以上は特に何も無いようだ。); end; endif;
text(0,特に何も無かった…。);
evflag(*inmap:itchecked,=,1);


<shikyuu>
fc(*actor,pic,==,mame); or; fc(*actor,pic,==,demond); if(nowres); text(1,(face=+evfch,swait=-1),「おや、マメマメしい姿だね？」); end; endif;
fc(*actor,pic,>=,valanorpa); and; fc(*actor,pic,<=,mutou); if(nowres); text(1,(face=+evfch,swait=-1),「おや、それはナパーの姿だね？　ナパーって実に迷惑だよねぇ」); end; endif;
fc(*actor,pic,==,shina); or; fc(*actor,pic,==,jshina); if(nowres); text(1,(face=+evfch,swait=-1),「メンマの姿をしているという事は、キミはたけのこ派かい？」); end; endif;
fc(*actor,pic,==,senksha); or; fc(*actor,pic,==,senkshag); if(nowres); text(1,(face=+evfch,swait=-1),「おや、なんだか珍妙な姿だね。そんなモノをぶらさげて、ボクにどうしろと言うんだい？」); end; endif;
fc(*actor,pic,==,dhmo); or; fc(*actor,pic,==,dhmopure); if(nowres); text(1,(face=+evfch,swait=-1),「球が３つか、じゃあ４つあるボクの勝ちだね？」); end; endif;
fc(*actor,pic,==,coral); if(nowres); text(1,(face=+evfch,swait=-1),「おや、随分と形容し難い姿だね？」); end; endif;
fc(*actor,pic,==,ikenaitsuki); or; fc(*actor,pic,==,ikenai2); if(nowres); text(1,(face=+evfch,swait=-1),「おや、月かい？　ボクは月見団子ではないよ？」); end; endif;
fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),「おや、なんだか妖しい感じのする姿だね？　ちょっとお子様には見せ辛いような動きをする事があったりする気がするよ。ある程度ダメージを与えておく必要があるかもね」); end; endif;
#fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),「おや、なんだか妖しい感じのする姿だね？　ちょっとお子様には見せ辛いような動きをする事があったりする気がするよ。ある程度痛めつけておく必要があるかもね」); end; endif;
#fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),「おや、なんだか妖しい感じのする姿だね？　ちょっとお子様には見せ辛いような動きをする事があったりする気がするよ。ある程度%cdp[*vp]を削っておく必要があるようだね」); end; endif;
fc(*actor,pic,>=,yj-a4); and; fc(*actor,pic,<=,yj-a4-ert); if(nowres); text(1,(face=+evfch,swait=-1),「おや、随分と妖しい感じのする姿だね？　ちょっとお子様には見せ辛い気がするよ。条件によってはもっとはっきりと見えてしまうかもね」); end; endif;
fc(*actor,pic,>=,yj-a5); and; fc(*actor,pic,<=,yj-a5-ert); if(nowres); text(1,(face=+evfch,swait=-1),「おや、随分と妖しい感じのする姿だね？　ちょっとお子様には見せ辛い気がするよ。これではっきり見えてしまったらアウトかもね」); end; endif;
fc(*actor,pic,==,metaele); or; fc(*actor,pic,==,hollele); if(nowres); text(1,(face=+evfch,swait=-1),「おや、少しばかり理系臭い姿だね？」); end; endif;
fc(*actor,pic,==,shikyuu); if(nowres); text(1,(face=+evfch,swait=-1),「ボクかい？　ただの廃墟探索が趣味な四球人さ。ナパーだらけで風情が損なわれてしまってるけどねぇ。ボクもナパーとよく見間違われるし、困ったものだよ」); end; endif;
#\r「そう言えばそこの洞窟トンネルでは、白いシャダゲーが時々出るよね。ピャリャッシュとは違うやつ」
fc(*actor,pic,==,seiyu); or; fc(*actor,pic,==,seiyu-2); if(nowres); text(1,(face=+evfch,swait=-1),「おや、それはそこの社で祀られてる人の姿だね？」); end; endif;
#　ボクと同じで白くてむっちりしてるよね
#　そう言えば前に洞窟トンネルの一角で似た感じの者を見かけたけど、人違いだったよ
#fc(*actor,pic,==,haniwa); if(nowres); text(1,(face=+evfch,swait=-1),「おや、その人形は珍しいね。洞窟トンネルの白いシャダゲーが持っていたのかい？」); end; endif;
fc(*actor,pic,>=,kokeshi); and; fc(*actor,pic,<=,buzzou); if(nowres); text(1,(face=+evfch,swait=-1),「おや、人形集めが趣味かい？」); end; endif;
fc(*actor,pic,>=,mame); if(nowres); text(1,(face=+evfch,swait=-1),「おや、変身が趣味かい？」); end; endif;
#　そう言えばある人形を持っていると、何かについての情報が得られるって聞いた事があるよ

zukan(map:廃墟地下,!=,0); if(nowres); text(1,(face=+evfch,swait=-1),四球人「お、何やら発見したようだね。おめでとう！」); end; endif;
#item(check:eq,colcell,1); if(nowres); text(1,(face=+evfch,swait=-1),四球人「お、何やら発見したようだね。おめでとう！」); end; endif;
item(check:eq,toolset,1); if(nowres); text(1,(face=+evfch,swait=-1),四球人「お、何やら発見したようだね。でも、ここには未だ何かある気がするね？」); end; endif;
#evflag(*inmap:item,!=,0);
#zukan(item:toolset,==,1);
if(evf(*inmap:itchecked) == 1); text(1,(face=+evfch,swait=-1),四球人「おや、キミは足元に気をつけなかったようだね？　次は気をつけることをオヌヌメするよ！」); end; endif;
text(1,(face=+evfch,swait=-1),四球人「荒れてるね〜。足元に気を付けないとね」);
#if(evf(*inmap:item) == 0); text(1,(face=+evfch,swait=-1),四球人「おや、キミは足元に気をつけていないようだね？」); endif;
#　ちなみに南から入るのはお勧めしないよ


<to_b1>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); fc(*actor,float,=,0); changemap(廃墟地下); fade(in,(type=fade,color=000000,wait=16));