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

zukan(face:mame,==,1);		if(nowres); fc(mame,apr,=,1); endif;
zukan(face:shikyuu,==,1);	if(nowres); fc(shiky,apr,=,1); endif;
zukan(face:seiyu,==,1);		if(nowres); fc(seiyu,apr,=,1); endif;

zukan(enemy:valanorpa,==,1);	if(nowres); fc(vala,apr,=,1); endif;
zukan(enemy:mutou,==,1);	if(nowres); fc(mutou,apr,=,1); endif;
zukan(enemy:boruv,==,1);	if(nowres); fc(boruv,apr,=,1); endif;
zukan(enemy:demond,==,1);	if(nowres); fc(demod,apr,=,1); endif;
zukan(enemy:grpeng,==,1);	if(nowres); fc(grpen,apr,=,1); endif;
zukan(enemy:devigry,==,1);	if(nowres); fc(devig,apr,=,1); endif;
zukan(enemy:maru,==,1);		if(nowres); fc(maru,apr,=,1); endif;
zukan(enemy:rkdns,==,1);	if(nowres); fc(rkdns,apr,=,1); endif;
zukan(enemy:shina,==,1);	if(nowres); fc(shina,apr,=,1); endif;
zukan(enemy:senksha,==,1);	if(nowres); fc(senks,apr,=,1); endif;
zukan(enemy:dhmo,==,1);		if(nowres); fc(dhmo,apr,=,1); endif;
zukan(enemy:coral,==,1);	if(nowres); fc(coral,apr,=,1); endif;
zukan(enemy:ikenaitsuki,==,1);	if(nowres); fc(ikena,apr,=,1); endif;
zukan(enemy:metaele,==,1);	if(nowres); fc(mtel,apr,=,1); endif;
zukan(enemy:hollele,==,1);	if(nowres); fc(hlel,apr,=,1); endif;

zukan(item:こけし,==,1);	if(nowres); fc(kokes,apr,=,1); endif;
zukan(item:はにわ,==,1);	if(nowres); fc(haniw,apr,=,1); endif;
zukan(item:市松人形,==,1);	if(nowres); fc(ichim,apr,=,1); endif;
zukan(item:ダルマ,==,1);	if(nowres); fc(darum,apr,=,1); endif;
zukan(item:招き猫,==,1);	if(nowres); fc(manek,apr,=,1); endif;
zukan(item:仏像,==,1);		if(nowres); fc(buzzo,apr,=,1); endif;

#item(check:aleq|alpt|bank,壷,1); and; item(check:aleq|alpt|bank,魔法瓶,1); and; item(check:aleq|alpt|bank,ひょうたん,1); or; item(check:aleq|alpt|bank,謎の光,1); if(nowres); fc(yj-b,apr,=,1); endif;
zukan(item:壷,==,1); and; zukan(item:魔法瓶,==,1); and; zukan(item:ひょうたん,==,1); if(nowres); fc(yj-b,apr,=,1); endif;
#item(check:aleq|alpt|bank,サンバイザー,1); and; item(check:aleq|alpt|bank,頭巾,1); and; item(check:aleq|alpt|bank,笠,1); or; item(check:aleq|alpt|bank,謎の光,1); if(nowres); fc(yj-c,apr,=,1); endif;
zukan(item:サンバイザー,==,1); and; zukan(item:頭巾,==,1); and; zukan(item:笠,==,1); if(nowres); fc(yj-c,apr,=,1); endif;

#not; subevent(checkyj,); or;
#evflagsw(aks,==,0); if(nowres); fc(yj,apr,=,0); endif;
#zukan(enemy:yj-a4,!=,0);  if(nowres); fc(yj,pic,=,yj-a4); endif;

#evflag(enzyj,!=,0); and; item(check:aleq|alpt|bank,スケート靴,1); and; item(check:aleq|alpt|bank,ビーサン,1); and; item(check:aleq|alpt|bank,ロラスケ,1); and; 
#item(check:aleq|alpt|bank,スキー板,1); and; item(check:aleq|alpt|bank,壷,1); and; item(check:aleq|alpt|bank,魔法瓶,1); and; item(check:aleq|alpt|bank,ひょうたん,1); and; item(check:aleq|alpt|bank,サンバイザー,1); and; item(check:aleq|alpt|bank,頭巾,1); and; item(check:aleq|alpt|bank,笠,1); or; item(check:aleq|alpt|bank,謎の光,1); if(nowres); fc(yj:1,apr,=,1); fc(yj:2,apr,=,1); endif;

#全キャラ停止
#fcslc(c1); while; if(nowres); fc(*select,mvpat,0,,0); fcslc(*next); next; endif; wend;


<to_hyper>
fade(out,(type=fade,color=ffffff,wait=16)); fc(*actor,move,-14,-12,center); fc(*actor,dir,=,d); changemap(ハイパープレーン); fc(c5,apr,=,0); fade(in,(type=fade,color=ffffff,wait=16));


<to_hokora>
fade(out,(type=fade,color=ffffff,wait=16)); fc(*actor,move,-2,1,center); fc(*actor,dir,=,d); changemap(聖根の祠地下); retpos(set,フィールド,0,0);
#subevent(hkr_yj);
fade(in,(type=fade,color=ffffff,wait=16));


<to_hokora2>
fade(out,(type=fade,color=ffffff,wait=16)); fc(*actor,move,0,4,center); fc(*actor,dir,=,d); changemap(半島の祠); retpos(set,フィールド,0,0);
fade(in,(type=fade,color=ffffff,wait=16));


<to_hokora3>
fade(out,(type=fade,color=ffffff,wait=16)); fc(*actor,move,-3,1,center); fc(*actor,dir,=,d); changemap(砂漠の祠); retpos(set,フィールド,0,0);
fade(in,(type=fade,color=ffffff,wait=16));


<prs1>
text(1,(face=+evfch,swait=-1),「完全攻略おめでとう！　そしてここまで付き合ってくれてセンキュー！　ここまでの暗号は『%ct2アコニスター%cd』だよ！！」);
text(1,(face=+evfch,swait=-1,h=0),「万一『%it[*百科事典].nmic』『%it[*ストロ].nmic』『%it[*gchyakupp].nmic』『%it[*slcalerm-pl].nmic』『%it[*月影の外套].nmic』『%it[*割撃弾２].nmic』『%it[*物干し竿].nmic』『%it[*ＬＥＤ].nmic』『%it[*マン蓋].nmic』『%it[*謎の光].nmic』『%it[*人コレの証].nmic』を全て入手したら、これらを入手したりできる暗号も一応あるよ！　デバッグ用の暗号なんだけどね」);
#『%it[*Ωブースター].nmic』『%it[*ひょうたん].nmic』『%it[*スキー板].nmic』『%it[*笠].nmic』『%it[*ロケット鉛筆].nmic』『人形全種』
#『%it[*ＰＴＣ].nmic』『%it[*ＥＶＣ].nmic』『%it[*割撃弾].nmic』
item(check:aleq|alpt|bank,百科事典,1); and; item(check:aleq|alpt|bank,ストロ,1); and; item(check:aleq|alpt|bank,gchyakupp,1); and; item(check:aleq|alpt|bank,slcalerm-pl,1); and; item(check:aleq|alpt|bank,月影の外套,1); and; item(check:aleq|alpt|bank,割撃弾２,1); and; item(check:aleq|alpt|bank,物干し竿,1); and; item(check:aleq|alpt|bank,ＬＥＤ,1); and; item(check:aleq|alpt|bank,マン蓋,1); and; item(check:aleq|alpt|bank,謎の光,1); and; item(check:aleq|alpt|bank,人コレの証,1);
# and; item(check:aleq|alpt|bank,Ωブースター,1); and; item(check:aleq|alpt|bank,ひょうたん,1); and; item(check:aleq|alpt|bank,スキー板,1); and; item(check:aleq|alpt|bank,笠,1); and; item(check:aleq|alpt|bank,ロケット鉛筆,1); and; item(check:aleq|alpt|bank,こけし,1); and; item(check:aleq|alpt|bank,はにわ,1); and; item(check:aleq|alpt|bank,市松人形,1); and; item(check:aleq|alpt|bank,ダルマ,1); and; item(check:aleq|alpt|bank,招き猫,1); and; item(check:aleq|alpt|bank,仏像,1);
# and; item(check:aleq|alpt|bank,ＰＴＣ,1); and; item(check:aleq|alpt|bank,ＥＶＣ,1); and; item(check:aleq|alpt|bank,割撃弾,1);
if(nowres); text(1,(face=+evfch,swait=-1),「えええ！？　本当に全て手に入れてしまったの！？　今明かされる最終暗号は『%ct2あこにゃいず%cd』だよ！！」); endif;
#if(nowres); text(1,(face=+evfch,swait=-1),「おっと、手に入れちゃったんだね！　それなら『%c880あこにゃいず%cd』で開放すると、アイテムゲットの時にこれら＋αも手に入るよ」); endif;


<prs2>
text(1,(face=+evfch,swait=-1),「ここに辿り着けるなんて只者じゃないね！　ここはよく見るおまけ部屋を模して作られたものだよ。特に何も無いけど、ここまで来たらこのゲームは制覇したも同然だよ。入り口の所の人からも聞けるけど、ここまでの暗号は『%ct2アコニスター%cd』だよ」\r「ちなみに、この部屋は『%it[*henge].nmic』の登録状況に応じてキャラクターが増えるよ」);
#よくここまで辿り着けたね…。
#入り口の人がパスワード教えてくれるから、忘れずにね。こういうのは、ゲームのフォルダ内に新規作成で『テキストドキュメント』を作って、そこにメモしておくといいと思うよ
#text(1,(face=+evfch,swait=-1),「うーん……喋る事が無い……」);
#背景が鬱陶しいかもしれないけど、テスト用を兼ねてるんだよ…


<mame>
text(1,(face=+evfch,swait=-1),「メタ発言にならぬようヒントを出すのは難しいですな。\n……なんて、本編での小生は考えておりませぬぞ。あくまで勘ですぞ」);
#text(1,(face=+evfch,swait=-1),「小生の勘は必要でしたかな」);
#text(1,(face=+evfch,swait=-1),「小生の歩き方が謎とな？　小生も謎である」);
#text(1,(face=+evfch,swait=-1),「小生、実装されたばかりの頃は存在意義が謎でありましたが、最近はそうでもないですかな」);
#text(1,(face=+evfch,swait=-1),「小生も共に旅したかったでありますな」);
#text(1,(face=+evfch,swait=-1),「小生の存在意義が謎とな？　小生も謎である」);


<vala>
text(1,(face=+evfch,swait=-1),「なぜ我の台詞が一言だけかだと？　作者のボキャブラリーが壊滅的だからだ」);


<mutou>
text(1,(face=+evfch,swait=-1),「ケケケのケ」);
#洞窟地下での出オチっぷりはなんとかならないのかね


<boruv>
text(1,(face=+evfch,swait=-1),「なんか丸っこい人が多いね」);
#ボクの後ろの構造は作者もよくわかってないらしいよ


<demond>
text(1,(face=+evfch,swait=-1),「後ろ姿までは作者の奴もよくわかってねぇ事が多いらしい」);
#text(1,(face=+evfch,swait=-1),「後ろ姿までは作者の奴もよくわかってねぇ事が多いらしいな」);
#text(1,(face=+evfch,swait=-1),「俺の後ろ姿なんかひでえな」);


<rkdns>
text(1,(face=+evfch,swait=-1),「自分、距離感は梨じゃないっす」);
#自分、喋るキャラじゃないんす


<grpeng>
text(1,(face=+evfch,swait=-1),「なんだね俺様のちょい役っぷりは。しかもこれはペンギン虐待ではないかね？　全く、人選を間違えたぜ」);
#text(1,(face=+evfch,swait=-1),「なんだねこのゲームのリアリティーの無さと俺様のちょい役っぷりは。しかもこれはペンギン虐待ではないかね？　全く、人選を間違えたぜ」);
#　現実でマネする人が現れたらどうする気だね？　不謹慎とは思わんのかね？　心が痛まないのかね。
#text(1,(face=+evfch,swait=-1),「ぐへへ」);


<devigry>
text(1,(face=+evfch,swait=-1),「キミ達、傾いてるねぇ」);


<maru>
#text(1,(face=+evfch,swait=-1),「ボクらがラスボスより強いって違和感あるなあ。黒歴史補正なのかなあ」);
#text(1,(face=+evfch,swait=-1),「折角創ったものを処分しちゃダメだよ」);
#text(1,(face=+evfch,swait=-1),「折角創ったものを無闇に処分しちゃ絶対にダメだよ。その時は恥かしさのあまり処分したくなったとしても、後々大切な宝物になる事だってあるもんだよ。もしかしたら、既に他の誰かにとって宝物になってる事もあるかもしれないよ」\r「説教臭くて悪いけど、この事はもっといろんな人に知っておいて欲しいんだ」);
text(1,(face=+evfch,swait=-1),「小中学生時代に作ったものって、高校くらいになると処分したくなる衝動に駆られる事があるかもしれないけど、絶対に実行しちゃダメだよ。心血注いだものなら尚更ね」);
#text(1,(face=+evfch,swait=-1),「小中学生時代に作ったものって、高校くらいになると処分したくなる衝動に駆られる事があるかもしれないけど、絶対に実行したらダメだよ」);
#text(1,(face=+evfch,swait=-1),「余程の事が無い限り、折角創ったものを処分しちゃ絶対ダメだよ」);
#text(1,(face=+evfch,swait=-1),「折角創ったものを無闇に処分するもんじゃないよ」);


<shina>
text(1,(face=+evfch,swait=-1),「この世界ではナルトや煮卵は飛んでいないのでござるな」);
#text(1,(face=+evfch,swait=-1),「拙者、『ＲＡＭＥＮ２１』では十年くらいの間ＡＩにミスがあって、想像以上に運ゲー状態だったでござるよ…。ＡＩと言っても、学習しないタイプのＡＩでござるよ」);
#text(1,(face=+evfch,swait=-1),「拙者、『ＲＡＭＥＮ２１』では十年くらいの間ＡＩにミスがあって、完全に運ゲー状態だったでござるよ…」);
#text(1,(face=+evfch,swait=-1),「語る事が無いでござる…」);
#text(1,(face=+evfch,swait=-1),「『しなちくに見えない』とは言ってはならぬでござる」);
#※ハイパープレーン・山岳地帯で出現


<sks>
#item(check:eq,物干し竿,1); or; item(check:eq,Ｂ物干し竿,1);
#evflagsw(enc_senksha,==,1); if(nowres);
text(1,(face=+evfch,swait=-1),「世界征服のためならどのような所へでも出張するアルヨ」);
#text(1,(face=+evfch,swait=-1),「世界征服のためならどこへでも出張するアルヨ」);
#text(1,(face=+evfch,swait=-1),「世界征服のためならこんなヘボゲーにも出張するあるよ」);
#text(1,(face=+evfch,swait=-1),「我が国の最先端技術の力を見せつけるためなら、こんなヘボゲーにも出張するあるよ」);
#text(1,(face=+evfch,swait=-1),「ミーハオ」);
#\n※ハイパープレーンではややレアキャラだが、フィールドの山岳地帯などではよく出現。
#※ハイパープレーン・山岳地帯で出現


<dhmo>
text(1,(face=+evfch,swait=-1),「命は大切にしなよ。ＨＡＨＡＨＡ」);


<coral>
sound(sleep); fade(out,(type=fade,color=ffff00,wait=64)); fade(in,(type=fade,color=ffff00,wait=64));
text(1,(face=uam,swait=-1),本作に登場して10年目くらいにしてようやくモーション時にアニメーションするようになった事を喜んでいるようだ。);
#text(1,(face=uam,swait=-1),モーション時に色が変わるだけでアニメーションしない事を不満がってるようだ。);
#party(,check,主人公); and; member(*主人公,exilev,5); if(nowres); text(1,(face=*主人公,swait=-1),%mem[*主人公]「モーション時に色が変わるだけでアニメーションしない事を不満がってるようだ」); endif;


<ikenai>
sound(uu);
text(1,(face=+evfch,swait=-1),「俺って使い回され杉なんだぜ」);
#text(1,(face=+evfch,swait=-1),「なんで俺は何度も使い回しされるんだろうな」);
#text(1,(face=+evfch,swait=-1),「俺って使い回され杉だよな」);


<yj-a2>
evflag(enzyj,==,0); if(nowres); text(1,(face=+evfch,swait=-1),「あら、初めまして〜。イタいものが苦手だったら、ダンジョンの普通は通らないようなすぐに行き止まりになってる所とか、あんまり歩き回ってはダメよ？」); end; endif;
#zukan(enemy:*all,⊇,(yj-a1,yj-b1,yj-c1,yj-a2,yj-b2,yj-c2,yj-a3,yj-b3,yj-c3,yj-a4,senkshag,jshina));
evflagsw(pr_bnyj-a4,==,0); if(nowres); text(1,(face=+evfch,swait=-1),「あら、よくわたしたちを見つけられたわね〜！　この辺は元々作者さんの自己満足専用だったもので、わざと見つけ難くなってるみたいだから、こんぷりーととかできなくても気にしないでね」); end; endif;
#zukan(enemy:yj-a5,==,0); if(nowres); text(1,(face=+evfch,swait=-1),「最後の一種類が気になるの…？　う〜〜ん、何かを集めてそれらしい所を適当に歩いていると、出て来たりしないかしら…？？」); end; endif;
#text(1,(face=+evfch,swait=-1),「『その４』の特典まで達成しちゃうなんて、すごいわ…！　あれって、色々とセーフかしらね…？　業界の方々的には、達成できてむしろがっかりだったかもしれないわね…。作者さんの趣味に最後まで付き合ってくれて、ほんとにありがとね…！」);
text(1,(face=+evfch,swait=-1),「『その４』の特典まで達成しちゃうなんて、すごいわ…！　中には、達成できてがっかりしちゃったかたもいるかもしれないわね…？　作者さんの趣味に最後まで付き合ってくれて、ほんとにありがとね…！」);
#\r「『その４』は固有ドロップを持ってると、キラキラの所や山の所でも出て来るようになる事には気づいたかしら？　あれには攻略の上での意味は無いんだけど、演出の上では重要みたいで、あの効果が場所を問わない事をはっきりさせるって意味や、男の人だけで出歩く事を怖く感じられるようにする的な意味があるみたいよ」\r「そうそう、20ターン過ぎた時の装備外しに加えて、40ターン過ぎると他の効果も入るみたいなんだけど、これは戦いが永遠に続くのを防ぐために仮に設けられてる感じみたいよ。もしかしたらシヨーヘンコウされるかもしれないわ。あれこれ迷ってるみたい」
#トクシュシコー的な
#フケンゼンな
#fc(yj:eq,apr,==,0); if(nowres); text(1,(face=+evfch,swait=-1),「『その４』の特典まで達成しちゃうなんて、すごいわ…！」); end; endif;


<yj-b2>
text(1,(face=+evfch,swait=-1),「あたしたちのドロップ、全部集めてくれてありがとー。ちゅっ%o[*heart]」);
#あたしたちのドロップ、全部集めてくれたのねー。ありがとー%o[*heart]


<yj-c2>
text(1,(face=+evfch,swait=-1),「お疲れ様です。ここまでプレイして頂けて、とても嬉しいです…」);


<metaele>
text(1,(face=+evfch,swait=-1),「ギュウン、ギュウン」);


<hollele>
text(1,(face=+evfch,swait=-1),「グルルン、グルルン」);


<shikyuu>
text(1,(face=+evfch,swait=-1),「死球じゃないよ、四球だよ」);


<seiyu>
text(1,(face=+evfch,swait=-1),「わたしって場違いでしょうかねぇ」);
#text(1,(face=+evfch,swait=-1),「良い眺めですねぇ」);
#text(1,(face=+evfch,swait=-1),「不思議な場所ですねぇ」);
#ところで、ここだけの話、わたし元々は『せいゆ』と呼ばれてました。別の名前に変更する予定との事で、長い間封印されていたのですが、やっぱりこの名前が一番しっくり来るとの事で、この名前で決定になるかもしれません。名字については未だ特に決まってないみたいです
#ところで、ここだけの話、わたし元々は『せいゆ』って名前で呼ばれてました。長年、別の名前に変更する予定で封印されていたのですが、やっぱりこの名前が一番しっくり来るとの事で、この名前で決定になりそうです。名字については未だ特に決まってないみたいです
#text(1,(face=+evfch,swait=-1),「賑やかな所ですねぇ」);
#text(1,(face=+evfch,swait=-1),「わたしって、隠しキャラとかにしておかなくて大丈夫でしたでしょうかね……？」);
#にも戦闘イベントのイメージがないでもないみたいなのですが、


<kokeshi>
#text(1,(face=uam,swait=-1),こけしが歩いている。);
text(1,(face=+evfch,swait=-1),「寸胴はステータスなりだよ」);


<haniwa>
#text(1,(face=uam,swait=-1),はにわが踊っている。とても楽しそうだ。);
text(1,(face=+evfch,swait=-1),「〜♪〜♪」);
#text(1,(face=+evfch,swait=-1),「踊りって楽しいな〜♪」);


<ichimaz>
#text(1,(face=uam,swait=-1),市松人形が歩いている。);
text(1,(face=+evfch,swait=-1),「髪がまた伸びてもうて、参ってまうわぁ」);


<daruma>
#text(1,(face=uam,swait=-1),ダルマが歩いている。);
text(1,(face=+evfch,swait=-1),「うーむ、ここでは人形が喋るのか。変な所じゃのう」);


<maneki>
text(1,(face=+evfch,swait=-1),「にゃ〜ぉ」);


<buzzou>
text(1,(face=+evfch,swait=-1),「貴方がたも解脱を果たされたようですね。素晴らしい」);
#text(1,(face=uam,swait=-1),仏像が空中浮遊している。);


<box>
fc(*target,ans,=,16); wait(32); fc(*target,ans,=,0);

text(1,(swait=-1),「メニューの『%sysm[*config].nmic』の『%sysm[*setwalkspd].nmic』で、倍速などが指定可能になってるよ」); 
#text(1,(face=uam,swait=-1),この箱はただの飾りのようだ。ちなみに『%sk[*予備設定].nmic』の『歩行速度の変更』で、倍速などが指定可能になってます。); 
#text(1,(face=uam,swait=-1),この箱はただの飾りのようだ。ちなみに『%sk[*予備設定].nmic』で『移動速度』が変更可能になってます。); 
#item(check:aleq|alpt|bank,移動速度,1); if(nowres); 
#select2(reset,all); select2(+はい(id=0)); select2(+いいえ); select2(/); select2(*移動速度を返却しますか？(cid=));
#evflag(*selected,==,0); if(nowres); item(lost,移動速度,1); text(1,(face=uam,swait=-1),移動速度を返却した。); endif;
#else;
#item(get,移動速度,1); sound(warp); text(1,(face=uam,swait=-1),移動速度が変更できるようになった！\n※道具として選択します。);
#endif;

#fc(pic,,=,box-o);
#text(1,,「宝箱を開ける効果ってこんなんでいいんだろうか」);
#text(1,,「人の体を勝手に開けるなよ」);
fc(*target,ans,=,-16); wait(32); fc(*target,ans,=,0);
#fc(pic,,=,box);


<pc1>
text(1,(face=uam,swait=-1),『%it[*ナパーメモ].nmic』の登録状況に応じて、任意の敵と戦えるようだ。\n※一部は別の条件も必要。);
#\n※マメさんは登場しません。

select2(reset,list);
zukan(enemy:*all,⊇,(napul,garup,nabirt,napily,gapara,shadagee,alshada)); if(nowres); select2(adddtp,enegr,ナプル〜Ａシャ,); endif;
#select2(+%eng[*ナプル〜Ａシャ](id=*enegr:ナプル〜Ａシャ));
zukan(enemy:*all,⊇,(pregener,wolzo,galkan,pozgan)); if(nowres); select2(adddtp,enegr,プリゲ〜ポズガ,); endif;
zukan(enemy:*all,⊇,(regello,lybirzo,gelfez,tyupoke,twire,bongen)); if(nowres); select2(adddtp,enegr,リジロ〜ボンゲ,); endif;
zukan(enemy:*all,⊇,(boodogar,garac,wehi)); if(nowres); select2(adddtp,enegr,ブドガ〜ゑひ,); endif;
zukan(enemy:*all,⊇,(antitwire,nyamapoogi,medasorm,killson)); if(nowres); select2(adddtp,enegr,Ａツワ〜キルソ,); endif;
zukan(enemy:*all,⊇,(boodogar,garac,wehi,antitwire,nyamapoogi,medasorm,killson)); if(nowres); select2(adddtp,enegr,ブドガ〜キルソ,); endif;
#zukan(enemy:*all,⊇,(napaler,garaper,nabatos,napilite,gaprill)); if(nowres); select2(adddtp,enegr,ナパラ〜ガプリ,); endif;
zukan(enemy:*all,⊇,(napaler,garaper,nabatos,napilite,gaprill,pyalyash)); if(nowres); select2(adddtp,enegr,ナパラ〜ピャリ,); endif;
zukan(enemy:*all,⊇,(galken,gartyo,ryavan,groszkopf)); if(nowres); select2(adddtp,enegr,ガルケ〜グロス,); endif;
zukan(enemy:*all,⊇,(napaler,garaper,nabatos,napilite,gaprill,galken,gartyo,ryavan,groszkopf)); if(nowres); select2(adddtp,enegr,ナパラ〜グロス,); endif;
zukan(enemy:*all,⊇,(regellgo,lybirzel,belzan,munjege,weigy,benjairar)); if(nowres); select2(adddtp,enegr,リジル〜ベンジ,); endif;
zukan(enemy:*all,⊇,(doublame,syncerje,dezmeed,yogeere)); if(nowres); select2(adddtp,enegr,ダブレ〜ヨゲレ,); endif;
#zukan(enemy:*all,⊇,(doublame,syncerje,dezmeed,yogeere,bendogar,garasorma)); if(nowres); select2(adddtp,enegr,ダブレ〜ガラソ,); endif;
zukan(enemy:*all,⊇,(pigmarg,steagral,tedsumari)); if(nowres); select2(adddtp,enegr,ピグマ〜ガラソ,); endif;
zukan(enemy:*all,⊇,(nyamapregen,gidasorm,funqame)); if(nowres); select2(adddtp,enegr,ニャリ〜ファケ,); endif;
#zukan(enemy:*all,⊇,(pigmarg,steagral,tedsumari,nyamapregen,gidasorm,funqame)); if(nowres); select2(adddtp,enegr,ピグマ〜ファケ,); endif;
zukan(enemy:*all,⊇,(napelest,garepest,nafatlus,napilaty,gaprette,dakyarmee)); if(nowres); select2(adddtp,enegr,ナペレ〜ダキャ,); endif;
zukan(enemy:*all,⊇,(pregenia,wolzards,galkin,pozgazn)); if(nowres); select2(adddtp,enegr,プリニ〜ポズズ,); endif;
zukan(enemy:*all,⊇,(wagurtyu,ryuvzorm,yankeen)); if(nowres); select2(adddtp,enegr,ワグテ〜ヤンケ,); endif;
zukan(enemy:*all,⊇,(pregenia,wolzards,galkin,pozgazn,wagurtyu,ryuvzorm,yankeen)); if(nowres); select2(adddtp,enegr,プリニ〜ヤンケ,); endif;
zukan(enemy:*all,⊇,(regellgon,lybirzelk,rukanamu)); if(nowres); select2(adddtp,enegr,リゴン〜るかな,); endif;
zukan(enemy:*all,⊇,(umbot,gaogorg,qemizass)); if(nowres); select2(adddtp,enegr,ウンボ〜ケミザ,); endif;
zukan(enemy:*all,⊇,(regellgon,lybirzelk,rukanamu,umbot,gaogorg,qemizass)); if(nowres); select2(adddtp,enegr,リゴン〜ケミザ,); endif;
zukan(enemy:*all,⊇,(chorma,rakatsu,tsannue)); if(nowres); select2(adddtp,enegr,チョル〜ツァヌ,); endif;
#zukan(enemy:*all,⊇,(regellgon,lybirzelk,rukanamu,chorma,rakatsu,tsannue)); if(nowres); select2(adddtp,enegr,リゴン〜ツァヌ,); endif;
zukan(enemy:*all,⊇,(rashuuzan,garidrieni,idsuchi,zoclops)); if(nowres); select2(adddtp,enegr,羅修残〜ゾウク,); endif;
zukan(enemy:*all,⊇,(napoluni,garupade,golzem,shajep)); if(nowres); select2(adddtp,enegr,ナポル〜シャジ,); endif;
zukan(enemy:*all,⊇,(valanorpa,mutou,boruv,demond)); if(nowres); select2(adddtp,enegr,バラノ〜デモド,); endif;
#zukan(enemy:*all,⊇,(grpeng,maru,rkdns,shina,senksha,dhmo,coral)); if(nowres); select2(adddtp,enegr,グリペ〜サンゴ,); endif;
zukan(enemy:*all,⊇,(grpeng,devigry,maru,rkdns)); if(nowres); select2(adddtp,enegr,グリペ〜六手梨,); endif;
zukan(enemy:*all,⊇,(shina,senksha,dhmo,coral)); if(nowres); select2(adddtp,enegr,しなち〜サンゴ,); endif;
zukan(enemy:*all,⊇,(ikenaitsuki,jshina,senkshag,dhmopure)); if(nowres); select2(adddtp,enegr,いけ月〜Ｄピュ,); endif;
#zukan(enemy:*all,⊇,(ikenaitsuki,jshina,senkshag,ikenai2)); if(nowres); item(check:aleq|alpt|bank,動物図鑑,1); and; item(check:aleq|alpt|bank,ストロ,1); and; evflagsw(pr_bnmoon2,==,1); select2(adddtp,enegr,いけ月〜いけ皆,); select2(setenable,,nowres); endif;
#zukan(enemy:*all,⊇,(ikenai2)); if(nowres); item(check:aleq|alpt|bank,動物図鑑,1); and; item(check:aleq|alpt|bank,ストロ,1); and; evflagsw(pr_bnmoon2,==,1); select2(adddtp,enegr,いけ皆,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(ikenai2)); if(nowres); zukan(item:動物図鑑,==,1); and; zukan(item:ストロ,==,1); and; evflagsw(pr_bnmoon2,==,1); select2(adddtp,enegr,いけ皆,); select2(setenable,,nowres); endif;
#zukan(enemy:*all,⊇,ikenai2); if(nowres); evflagsw(pr_bnmoon2,==,1); select2(adddtp,enegr,いけ皆×２,); select2(setenable,,nowres); endif;

zukan(enemy:*all,⊇,(yj-a1,yj-b1,yj-c1)); if(nowres); zukan(item:スケート靴,==,1); and; zukan(item:壷,==,1); and; zukan(item:サンバイザー,==,1); select2(adddtp,enegr,Ａ１〜Ｃ１,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a2,yj-b2,yj-c2)); if(nowres); zukan(item:ビーサン,==,1); and; zukan(item:魔法瓶,==,1); and; zukan(item:頭巾,==,1); select2(adddtp,enegr,Ａ２〜Ｃ２,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a3,yj-b3,yj-c3)); if(nowres); zukan(item:ロラスケ,==,1); and; zukan(item:ひょうたん,==,1); and; zukan(item:笠,==,1); select2(adddtp,enegr,Ａ３〜Ｃ３,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-a2,yj-a3)); if(nowres); zukan(item:スケート靴,==,1); and; zukan(item:ビーサン,==,1); and; zukan(item:ロラスケ,==,1); select2(adddtp,enegr,Ａ１〜Ａ３,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-b1,yj-b2,yj-b3)); if(nowres); zukan(item:壷,==,1); and; zukan(item:魔法瓶,==,1); and; zukan(item:ひょうたん,==,1); select2(adddtp,enegr,Ｂ１〜Ｂ３,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-c1,yj-c2,yj-c3)); if(nowres); zukan(item:サンバイザー,==,1); and; zukan(item:頭巾,==,1); and; zukan(item:笠,==,1); select2(adddtp,enegr,Ｃ１〜Ｃ３,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-a2,yj-a3,yj-a2,yj-b2,yj-c2,yj-a3,yj-b3,yj-c3)); if(nowres); zukan(item:スケート靴,==,1); and; zukan(item:ビーサン,==,1); and; zukan(item:ロラスケ,==,1); and; zukan(item:壷,==,1); and; zukan(item:魔法瓶,==,1); and; zukan(item:ひょうたん,==,1); and; zukan(item:サンバイザー,==,1); and; zukan(item:頭巾,==,1); and; zukan(item:笠,==,1); select2(adddtp,enegr,Ａ１〜Ｃ３,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-a2,yj-a3,yj-a4)); if(nowres); zukan(item:スキー板,==,1); and; evflagsw(pr_bnyj-a4,==,1); select2(adddtp,enegr,Ａ１〜Ａ４,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-b1,yj-c1,yj-a2,yj-b2,yj-c2,yj-a3,yj-b3,yj-c3,yj-a4)); if(nowres); zukan(item:スキー板,==,1); and; zukan(item:壷,==,1); and; zukan(item:魔法瓶,==,1); and; zukan(item:ひょうたん,==,1); and; zukan(item:サンバイザー,==,1); and; zukan(item:頭巾,==,1); and; zukan(item:笠,==,1); and; evflagsw(pr_bnyj-a4,==,1); select2(adddtp,enegr,ＹＪ全,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-a2,yj-a3,yj-a4,yj-a5)); if(nowres); zukan(item:謎の光,==,1); and; evflagsw(pr_bnyj-a4,==,1); select2(adddtp,enegr,Ａ１〜Ａ５,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(yj-a1,yj-b1,yj-c1,yj-a2,yj-b2,yj-c2,yj-a3,yj-b3,yj-c3,yj-a4,yj-a5)); if(nowres); zukan(item:謎の光,==,1); and; evflagsw(pr_bnyj-a4,==,1); select2(adddtp,enegr,ＹＪ全２,); select2(setenable,,nowres); endif;

zukan(enemy:*all,⊇,(mush,metaele,hollele)); if(nowres); evflagsw(pr_elements,==,1); select2(adddtp,enegr,キノコ＆メタル＆ホロウ,); select2(setenable,,nowres); endif;
zukan(enemy:*all,⊇,(mame,mame-2)); if(nowres); select2(adddtp,enegr,マメさん＆２,); endif;

zukan(enemy:*all,⊇,(napul)); if(nowres); select2(adddtp,enegr,ナプル×６g,); endif;
zukan(enemy:*all,⊇,(valanorpa)); if(nowres); select2(adddtp,enegr,バラノ×６g,); endif;

select2(count,==,0); if(nowres); text(0,未だ戦闘できるグループが無かった。); end; endif;
#select2(+閉じる(ic=close));

while;
select2(*［戦闘相手の選択］(cid=,rows=17,cols=2,maxcolw=def));
#subevent(recover,); fcwait(*actor);
evflag(*selected,>=,0); if(nowres); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=*evf(*selected),btm=if)); fade(in2,); goto(1); endif;

end;
label(1);
evflag(*selected,==,2); if(nowres); subevent(recover,); end; endif;
next;

wend;


<pc2>
text(1,(face=uam,swait=-1),エフェクトを見られるようだ。\n※未使用のものもあります。);
evflag(*selected,=,0);
while;
#zukan(effect:*select,エフェクトを見る,(initid=*selected,rows=10,cols=1)); if(nowres);
zukan(effect,エフェクトを見る,(mode=slcable|dspall,initid=*selected,dspdetail=0,rows=8,y=288)); if(nowres);
feffect(*selected,,*target,*actor,1); waiteffect;
next;
endif;
wend;


<hd1>
text(1,(face=uam,swait=-1),いわゆる転職ができるようだ。\n%ct2※主人公のみ、ハイパー武人（色々テスト段階）への進化となります。%cd);
#\n※スーパー武人のみはハイパー武人（テスト用）への進化となります。
#\n※レベルなどは普通に継続されます。装備できない装備品はバッグに戻ります。
subevent(slcjob,);
#text(1,(face=uam,swait=-1),「情報が無い。ただの飾りのようだ」);


<hd2>
text(1,(face=uam,swait=-1),補欠的な機能を利用できるようだ。);
#text(1,(face=uam,swait=-1),各種オマケ機能を利用できるようだ。);
#formem(party); member(status,mep,org,<,10); nextmem(exis);

select2(reset,pos);
while;
select2(reset,list);
#formem(party); member(select,status,mep,org,<,10); nextmem(exis); if(nowres); select2(+最大ＥＰを通常+10まで引き上げる（隊全員）(id=0)); endif;
#formem(party); member(select,status,mep,org,<,15); nextmem(exis); if(nowres); item(check:eq,軍配,1); and; item(check:eq,冷蔵庫,1); and; item(check:eq,ホース,1); select2(+最大ＥＰを通常+15まで引き上げる（隊全員）(id=1,en=*nowres,com=条件：『%it[*軍配].nmic』『%it[*冷蔵庫].nmic』『%it[*ホース].nmic』を所持。)); endif;
#formem(party); member(select,status,mep,org,>=,10); nextmem(all); if(nowres); select2(+最大ＥＰを元に戻す（隊全員）(id=2)); endif;
#,com=注：アイテムによるドーピング効果もリセットされてしまいます。
#formem(party); member(eqflag,!&,000000001); nextmem(exis); if(nowres); select2(+聖根系武具を装備可化（隊全員）(id=6));
#else; select2(+装備可否を戻す（隊全員）,7,); endif;
party(,mxcount,<,9); if(nowres); select2(+部隊容量を９人に拡張(id=6,en=*nowres,com=パーティに９人まで加入できるようにします。)); endif;
party(,mxcount,>,5); if(nowres); select2(+部隊容量を５人に戻す(id=7,en=*nowres,com=パーティに加入できる人数を５人までに戻します。)); endif;
#evflagsw(pr_bnmoon2,==,1);
#item(check:eq,ストロ,1); and; evflagsw(pr_bnmoon2,==,1); select2(+巨大衝突習得／忘却\{主人公のみ\}(id=8,en=*nowres,com=条件：『%it[*ストロ].nmic』所持＋？？？));
item(check:eq,ストロ,1); and; item(check:eq,月影の外套,1); select2(+巨大衝突習得／忘却(id=8,en=*nowres,com=条件：『%it[*ストロ].nmic』『%it[*月影の外套].nmic』所持));
#item(check:eq,動物図鑑,1); and; 
#『%it[*動物図鑑].nmic』
#\n※あくまで「折角なので」という感じで設けてるオマケ機能です。達成しても虚しいだけかもしれません…。
#とある条件で皆既月食モードを撃破
#月影の外套非解除＆決戦モード非発動で
#皆既月食モードの特典
#item(check:eq,ストロ,1); and; item(check:eq,月影の外套,1); select2(+巨大衝突習得／忘却\{主人公のみ\}(id=8,en=*nowres,com=条件：『%it[*ストロ].nmic』と『%it[*月影の外套].nmic』を所持));
#select2(+スタッフロールを見る(id=9));
#select2(+補欠アイテムを買う(id=9,com=ゲームバランス的に危険かもしれないテスト用アイテム。));
select2(+各種リセット(id=10));
select2(+初期仕様の戦闘画像を見る(id=11));
#select2(+４種の人形の情報(id=11));

select2(+閉じる(ic=close));
# select2(/);
select2(*［オマケ機能］(cid=));

#evflag(*selected,==,0); if(nowres); formem(party); member(select,status,mep,org,<,10); if(nowres); member(select,status,mep,org,=,10); endif; nextmem(); sound(warp); text(1,(face=uam,swait=-1),全員の最大ＥＰが通常+10になった！); next; endif;
#evflag(*selected,==,1); if(nowres); formem(party); member(select,status,mep,org,<,15); if(nowres); member(select,status,mep,org,=,15); endif; nextmem(); sound(warp); text(1,(face=uam,swait=-1),全員の最大ＥＰが通常+15になった！); next; endif;
#evflag(*selected,==,2); if(nowres); formem(party); member(select,status,mep,org,=,0); nextmem(); text(1,(face=uam,swait=-1),全員の最大ＥＰが元に戻った。); next; endif;
evflag(*selected,==,6); if(nowres); subevent(expandparty,); sound(warp); text(1,(face=uam,swait=-1),部隊容量が９人に増えた！); next; endif;
evflag(*selected,==,7); if(nowres); party(,resetpos); text(1,(face=uam,swait=-1),部隊容量が５人に戻った。); next; endif;
evflag(*selected,==,8); if(nowres); subevent(@learnji,); next; endif;
evflag(*selected,==,10); if(nowres); subevent(@resets,); next; endif;
evflag(*selected,==,11); if(nowres); image(0,set, picture:old,,,,,,,,,); wait(-1); image(0,set,); next; endif;
#evflag(*selected,==,11); if(nowres); text(1,(face=kanban,swait=-1),４種の人形はそれぞれ、洞窟の影と光、そして山の後半部のいずれか２体がドロップする。); next; endif;
#evflag(*selected,==,11); if(nowres); text(1,(face=kanban,swait=-1),以下の敵がドロップする。\nシャダゲー\nアルビノシャダゲー\nワグーテュ\nリュブゾーム); next; endif;
#evflag(*selected,==,8); if(nowres); member(*主人公,skill,checkadd,巨大衝突); unif(nowres); member(*主人公,skill,get,巨大衝突); member(*主人公,skill,get,皆既月食連弾); member(*主人公,skill,get,三連皆既月食弾); sound(warp); text(1,(face=uam,swait=-1),%mem[*主人公]は巨大衝突（ついでに皆既月食連弾、三連皆既月食弾）を習得した！); else; member(*主人公,skill,lost,巨大衝突); member(*主人公,skill,lost,皆既月食連弾); member(*主人公,skill,lost,三連皆既月食弾); text(1,(face=uam,swait=-1),%mem[*主人公]は巨大衝突（ついでに皆既月食連弾、三連皆既月食弾）を忘れた。); endif; next; endif;
#evflag(*selected,==,9); if(nowres); subevent(ending,); next; endif;
#evflag(*selected,==,9); if(nowres); buy(shop_sb); next; endif;
#text(1,(face=uam,swait=-1),ここではゲームバランス的に危険かもしれないテスト用アイテムが売られている。);

wend;

#label(6); formem(party); member(eqflag,|=,000000001); nextmem(); text(1,(face=uam,swait=-1),パーティ全員が聖根武具を装備できるようになった！); end;
#label(7); formem(party); member(eqflag,&=~,000000001); nextmem(); text(1,(face=uam,swait=-1),装備可否が戻った。); end;

#mem(head); member(status,mep,add==,10);
#if(nowres); formem(party); member(status,mep,=,0); nextmem();
#text(1,(face=uam,swait=-1),パーティの最大ＥＰが元に戻った。);
#else; formem(party); member(status,mep,=,10); nextmem();
#sound(warp); text(1,(face=uam,swait=-1),パーティの最大ＥＰが通常+10になった！);
#endif; 

#mem(*主人公); member(status,mep,nkd<=,10); if(nowres); text(0,非装備ＥＰ：10以下); else; text(0,非装備ＥＰ：10超); endif;
#member(status,mep,all<=,10); if(nowres); text(0,全ＥＰ：10以下); else; text(0,全ＥＰ：10超); endif;

#member(status,flag,主人公,mep,>,200,1,-1); member(status,flag,主人公,mep,+=,50); end;
#member(status,flag,主人公,mep,=,10);
#label(1); member(status,flag,主人公,mep,=,0);

#subevent(mepup,);


<learnji>
#member(*主人公,skill,checkadd,巨大衝突); unif(nowres); member(*主人公,skill,get,巨大衝突); sound(warp); text(1,(face=uam,swait=-1),%mem[*主人公]は『%sk[*巨大衝突].nmic』を習得した！); else; member(*主人公,skill,lost,巨大衝突); text(1,(face=uam,swait=-1),%mem[*主人公]は『%sk[*巨大衝突].nmic』を忘れた。); endif; next;
while;
memslcbox(party,［技の習得］,,,2); if(nowres);
member(select,skill,checkadd,巨大衝突); if(nowres); member(select,skill,lost,巨大衝突);
text(1,(face=uam,swait=-1),%mem[s]は『%sk[*巨大衝突].nmic』を忘れた。);
else; member(select,skill,get,巨大衝突);
sound(warp); text(1,(face=uam,swait=-1),%mem[s]は『%sk[*巨大衝突].nmic』を習得した！);
endif;
next;
endif;
wend;


<resets>
select2(reset,all);
select2(+経験値をリセット(id=2));
select2(+仲間データをリセット(id=3));
select2(+プレイ時間をリセット(id=4));
select2(+持ち物をリセット(id=5));
select2(+所持金＆預け金をリセット(id=6));
select2(+閉じる(ic=close));
select2(/);
while;
select2(*［各種リセット］\n※特典無し(cid=));

evflag(*selected,==,2); if(nowres); while; memslcbox(all:exp,［経験値をリセット］\n※残りＶＰはそのまま,,,3); if(nowres); member(select,exp,=,0, 0,0); text(1,(face=uam,swait=-1),%mem[s]の経験値をリセットした。); next; endif; wend; next; endif;
#evflag(*selected,==,2); if(nowres); memslcbox(all:exp,［経験値をリセット］,,,3); if(nowres); member(select,exp,=,L1, 0,0); text(1,(face=uam,swait=-1),%mem[s]の経験値をリセットした。); else; text(1,(face=uam,swait=-1),経験値リセットを中止した。); endif; next; endif;
evflag(*selected,==,3); if(nowres); while; memslcbox(all,［仲間データをリセット］\n※装備も消えます,,,3); if(nowres); member(select,reset); subevent(kigae_sub,); text(1,(face=uam,swait=-1),%mem[s]をリセットした。); next; endif; wend; next; endif;
#evflag(*selected,==,3); if(nowres); memslcbox(all,［リセット］\n※装備も消えます,,,3); if(nowres); member(select,reset); subevent(kigae_sub,); text(1,(face=uam,swait=-1),%mem[s]をリセットした。); else; text(1,(face=uam,swait=-1),リセットを中止した。); endif; next; endif;
evflag(*selected,==,4); if(nowres); subevent(@resetplaytime,); next; endif;
evflag(*selected,==,5); if(nowres); subevent(@resetitembag,); next; endif;
evflag(*selected,==,6); if(nowres); subevent(@resetgold,); next; endif;

wend;


<resetplaytime>
select2(reset,all); select2(+実行(id=0)); select2(+中止); select2(/); select2(*プレイ時間のリセット\n現在：%tm(cid=));
evflag(*selected,==,0); if(nowres); playtime(=,0); text(1,(face=uam,swait=-1),プレイ時間をリセットした。); end; endif;
text(1,(face=uam,swait=-1),プレイ時間のリセットを中止した。); end;


<resetitembag>
select2(reset,all); select2(+実行(id=0)); select2(+中止); select2(/); select2(*持ち物の初期化(cid=));
evflag(*selected,==,0); if(nowres); item(reset); text(1,(face=uam,swait=-1),持ち物を初期化した。); end; endif;
text(1,(face=uam,swait=-1),持ち物の初期化を中止した。); end;


<resetgold>
select2(reset,all); select2(+実行(id=0)); select2(+中止); select2(/); select2(*所持金＆預け金をリセット(cid=));
evflag(*selected,==,0); if(nowres); party(,gold,reset); evflag(*64:gdbank,=,0); text(1,(face=uam,swait=-1),所持金＆預け金をリセットした。); end; endif;
text(1,(face=uam,swait=-1),所持金＆預け金の初期化を中止した。); end;