<init>
subevent(mapinit,);
if(evf(*sw:pr_honpen)==1); fc(c3,apr,=,1); endif;


<out>
fade(out,(type=fade,color=000000,wait=16));
fc(*actor,ride,check,ship_mv);
#fcride(check,ship);
if(nowres); fc(*actor,move,26,5,center);
else; fc(*actor,move,27,4,center);
endif;
changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));

fcscroll(*actor);
scrbend(def,def,def,def);


<prs_test>
text(1,(w=40,h=8,bxmargin=16,cwait=4),「ここは乗り物等のテスト用に設けられている場だよ。あくまでテスト用の場だから、攻略の役に立つようなものや、手掛かりになるようなものは無いよ」);
fc(*target,mvpat,0,loop3,0);
#fc(*target,moveflag,|=,ah);


<scrfchtest>
scrbend(0,0,0,0);
text(1,(swait=32,lnmargin=16),「ここの乗り物は乗り出しは出来ねえが、外の乗り物はここに乗り入れ／乗り出し自由だぜ」);
return;

select2(reset,pos);
while;
select2(reset,list);
select2(+相手が動く(id=0));
select2(+自分が動く(id=1));
select2(+入り口の人が動く(id=2));
select2(+スクロールの中心を相手に(id=3));
select2(+スクロールの中心を自分に(id=4));
select2(+スクロールの中心を入り口の人に(id=5));
select2(+スクロールを解除(id=6));
select2(+左にそむく(id=7));
select2(+右にそむく(id=8));
select2(+そっぽをむく(id=9));
select2(+点滅する(id=10));
select2(+点滅停止(id=11));
select2(+やめる);
select2(*(cid=));

if(evf(*selected)==0); fc(*target,walk,0,8,2,0,); return; fc(*target,walk,0,8,0,2,); return; fc(*target,walk,0,8,-2,0,); return; fc(*target,walk,0,8,0,-2,); return; next; endif;
if(evf(*selected)==1); fc(*actor,walk,0,8,2,0,); return; fc(*actor,walk,0,8,0,2,); return; fc(*actor,walk,0,8,-2,0,); return; fc(*actor,walk,0,8,0,-2,); return; next; endif;
if(evf(*selected)==2); fc(c2,walk,0,8,2,0,l); return; fc(c2,walk,0,8,0,2,u); return; fc(c2,walk,0,8,-2,0,r); return; fc(c2,walk,0,8,0,-2,d); return; next; endif;
if(evf(*selected)==3); fcscroll(*target); return; next; endif;
if(evf(*selected)==4); fcscroll(*actor); return; next; endif;
if(evf(*selected)==5); fcscroll(c2); return; next; endif;
if(evf(*selected)==6); fcscroll(*null); return; next; endif;
if(evf(*selected)==7); fc(*target,dir,=,~u); end; endif;
if(evf(*selected)==8); fc(*target,dir,=,~d); end; endif;
if(evf(*selected)==9); fc(*target,dir,=,~r); end; endif;
if(evf(*selected)==10); fc(*target,blink,16); end; endif;
if(evf(*selected)==11); fc(*target,blink,0); end; endif;

wend;

#fcscroll(*actor);
#scrbend(def,def,def,def);

#fc(move,,0,+0,+0,-3);
#return;

#text(1,(ym=c),「テスト用に無駄なものが多々有るけど気にしないでね」);
#fc(walk,,0,4,2,0,1); return; fc(walk,,0,4,0,2,1); return; fc(walk,,0,4,-2,0,1); return; fc(walk,,0,4,0,-2,1); return; end;
#fc(walk,,0,-4,2,0,1); return; fc(walk,,0,-4,0,2,1); return; fc(walk,,0,-4,-2,0,1); return; fc(walk,,0,-4,0,-2,1); return; end;
#fc(walk,,0,8,-2,0,1); return; fc(walk,,0,8,0,-2,1); return; fc(walk,,0,8,2,0,1); return; fc(walk,,0,8,0,2,1); return; end;
#fc(walk,,0,8,-2,2,1); return; fc(walk,,0,8,-2,-2,1); return; fc(walk,,0,8,2,-2,1); return; fc(walk,,0,8,2,2,1); return; end;
#fc(pic,,=,person2);
#fc(mvpat,,loop1,0);
#fc(authit,,0);


<monomane>
text(1,(w=40,h=8,ym=c),「モノマネします」);
select2(reset,all);
select2(+先頭\{現在\}(id=0));
select2(+選択\{現在\}(id=1));
select2(+%mem[*主人公]\{現在\}(id=2));
select2(+%mem[*Ｍ巨漢]\{現在\}(id=3));
select2(+先頭\{平常時\}(id=4));
select2(+選択\{平常時\}(id=5));
select2(+%mem[*主人公]\{平常時\}(id=6));
select2(+%mem[*Ｍ巨漢]\{平常時\}(id=7));
zukan(cond:絶,!=,0); if(nowres);
select2(+先頭\{戦闘不能時\}(id=8));
select2(+選択\{戦闘不能時\}(id=9));
select2(+%mem[*主人公]\{戦闘不能時\}(id=10));
select2(+%mem[*Ｍ巨漢]\{戦闘不能時\}(id=11));
endif;
zukan(cond:地弱,!=,0); if(nowres);
select2(+先頭\{接地\}(id=12));
select2(+選択\{接地\}(id=13));
select2(+%mem[*主人公]\{接地\}(id=14));
select2(+%mem[*Ｍ巨漢]\{接地\}(id=15));
select2(+先頭\{接地・代替\}(id=16));
select2(+選択\{接地・代替\}(id=17));
select2(+%mem[*主人公]\{接地・代替\}(id=18));
select2(+%mem[*Ｍ巨漢]\{接地・代替\}(id=19));
endif;
zukan(enemy:valanorpa,==,1);	if(nowres); select2(+%fcp[*valanorpa](id=20)); endif;
zukan(enemy:mutou,==,1);	if(nowres); select2(+%fcp[*mutou](id=21)); endif;
zukan(enemy:grpeng,==,1); 	if(nowres); select2(+%fcp[*grpeng](id=22)); endif;
zukan(enemy:senksha,==,1);	if(nowres); select2(+%fcp[*senksha](id=23)); endif;
zukan(enemy:coral,==,1); 	if(nowres); select2(+%fcp[*coral](id=24)); endif;
zukan(enemy:ikenaitsuki,==,1);	if(nowres); select2(+%fcp[*ikenaitsuki](id=25)); endif;
zukan(enemy:yj-a4,==,1); 	if(nowres); select2(+%fcp[*yj-a4](id=26)); endif;
select2(+戻す(id=30));
select2(+リセット(id=31));
select2(+やめる);
select2(*誰の%ct1マネ%cdを希望？(x=64,y=32,cid=,bxmargin=4,lnmargin=8));

#select2(*〜画像変更テスト〜);
#if(evf(*selected)==0); fc(*target,pic,=,+head); end; endif;
#if(evf(*selected)==1); memslcbox(party,,,,2); if(nowres); fc(*target,pic,=,+select); endif; end; endif;
#if(evf(*selected)==2); fc(*target,pic,=,*主人公); end; endif;
#if(evf(*selected)==3); fc(*target,pic,=,*Ｍ巨漢); end; endif;
if(evf(*selected)==0); fc(*target,picset,fch,org:nrm,=,*headmem:all:*cd); end; endif;
if(evf(*selected)==1); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:*cd); endif; end; endif;
if(evf(*selected)==2); fc(*target,picset,fch,org:nrm,=,*mem:主人公:all:*cd); end; endif;
if(evf(*selected)==3); fc(*target,picset,fch,org:nrm,=,*mem:Ｍ巨漢:all:*cd); end; endif;
if(evf(*selected)==4); fc(*target,picset,fch,org:nrm,=,*headmem:all:nrm); end; endif;
if(evf(*selected)==5); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:nrm); endif; end; endif;
if(evf(*selected)==6); fc(*target,picset,fch,org:nrm,=,*mem:主人公:all:nrm); end; endif;
if(evf(*selected)==7); fc(*target,picset,fch,org:nrm,=,*mem:Ｍ巨漢:all:nrm); end; endif;
if(evf(*selected)==8); fc(*target,picset,fch,org:nrm,=,*headmem:all:snf); end; endif;
if(evf(*selected)==9); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:snf); endif; end; endif;
if(evf(*selected)==10); fc(*target,picset,fch,org:nrm,=,*mem:主人公:all:snf); end; endif;
if(evf(*selected)==11); fc(*target,picset,fch,org:nrm,=,*mem:Ｍ巨漢:all:snf); end; endif;
if(evf(*selected)==12); fc(*target,picset,fch,org:nrm,=,*headmem:all:ert); end; endif;
if(evf(*selected)==13); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:ert); endif; end; endif;
if(evf(*selected)==14); fc(*target,picset,fch,org:nrm,=,*mem:主人公:all:ert); end; endif;
if(evf(*selected)==15); fc(*target,picset,fch,org:nrm,=,*mem:Ｍ巨漢:all:ert); end; endif;
if(evf(*selected)==16); fc(*target,picset,fch,org:nrm,=,*headmem:all:ert:alt); end; endif;
if(evf(*selected)==17); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:ert:alt); endif; end; endif;
if(evf(*selected)==18); fc(*target,picset,fch,org:nrm,=,*mem:主人公:all:ert:alt); end; endif;
if(evf(*selected)==19); fc(*target,picset,fch,org:nrm,=,*mem:Ｍ巨漢:all:ert:alt); end; endif;
if(evf(*selected)==20); fc(*target,picset,fch,org:nrm,=,valanorpa); end; endif;
if(evf(*selected)==21); fc(*target,picset,fch,org:nrm,=,mutou); end; endif;
if(evf(*selected)==22); fc(*target,picset,fch,org:nrm,=,grpeng); end; endif;
if(evf(*selected)==23); fc(*target,picset,fch,org:nrm,=,senksha); end; endif;
if(evf(*selected)==24); fc(*target,picset,fch,org:nrm,=,coral); end; endif;
if(evf(*selected)==25); fc(*target,picset,fch,org:nrm,=,ikenaitsuki); end; endif;
if(evf(*selected)==26); fc(*target,picset,fch,org:nrm,=,yj-a4); end; endif;
if(evf(*selected)==30); fc(*target,picset,fch,org:nrm,=,*reset); end; endif;
if(evf(*selected)==31); fc(*target,reset); fc(c2,reset); end; endif;


<tests1>
select2(reset,pos);
while;
select2(reset,list);
select2(+タイマーテスト(id=1));
select2(+アイテムテスト(id=2));
select2(+装備・素性テスト(id=3));
select2(+メンバー選択テスト(id=4));
#select2(+画面振動テスト(id=5));
select2(+スクロールの弛み(id=6));
select2(+マップフラグ確認(id=7));
evflag(instant1,=,evf(*inmap:dgtype)); select2(+ダンジョン用フラグ：%ev[*instant1](id=8));
select2(+砂⇔泥(id=10));
#select2(+予備バトルフィールドを見る(id=12));
select2(+撃破時イベントのテストＯＮ／ＯＦＦ(id=13));
select2(+改行テスト(id=14));
select2(+値参照テスト(id=15));
select2(+テキスト変換テスト(id=16));
select2(+投了不可戦闘(id=17));
select2(+フラグセットテスト(id=18));
select2(+カーソル・フレームテスト(id=19));
#select2(+計算式テスト(id=19));
#select2(+閉じる);
select2(*(cid=));

#if(evf(*selected)==0); subevent(@checkpcd,); next; endif;
if(evf(*selected)==1); subevent(@timertest,); next; endif;
if(evf(*selected)==2); subevent(@itemtest,); next; endif;
if(evf(*selected)==3); subevent(@soubitest,); next; endif;
if(evf(*selected)==4); subevent(@selecmemtest,); next; endif;
#if(evf(*selected)==5); subevent(@shaketest,); next; endif;
if(evf(*selected)==6); subevent(@scrbendtest,); next; endif;
if(evf(*selected)==7); text(1,,マップシステムフラグ：%evm[*system1]\nマップフリーフラグ１：%evm[*tes1]\nマップフリーフラグ２：%evm[*tes2]\nグローバルシステムフラグ：%ev[*system1]); evflag(*inmap:tes1,=,16); next; endif;
# evflagsw(mftest,^=);
if(evf(*selected)==8); evflag(*inmap:dgtype,+=,1); evflag(*inmap:dgtype,%=,4); subevent(kigae,); next; endif;
if(evf(*selected)==10); subevent(@setmdtest,); next; endif;
#if(evf(*selected)==12); subevent(@btfields,); next; endif;
if(evf(*selected)==13); evflagsw(banzai,^=); evflagsw(banzai,==,1); if(nowres); text(1,,特定の敵を倒した際に「ナパー軍団万歳」と出るようになった。); else; text(1,,「ナパー軍団万歳」が解除された。); endif; next; endif;
if(evf(*selected)==14); subevent(@kaigyou,); next; endif;
if(evf(*selected)==15); subevent(@srcvaltest,); next; endif;
if(evf(*selected)==16); subevent(@converttest,); next; endif;
if(evf(*selected)==17); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=ナプル,back=testmap1,stm=0,btm=ns)); fcwait(*actor); next; endif;
#if(evf(*selected)==18); subevent(@evcombitest,); next; endif;
#if(evf(*selected)==19); subevent(@equationtest,); next; endif;
if(evf(*selected)==19); subevent(@frametest,); next; endif;

wend;


<frametest>
text(1,(frame=hashigo,cursor=mutou,boxcol=(back1l,ff80ff,ffff00,00ff80,00ffff,ff8000,000000,128,0)),テスト);
select2(+選択肢１(id=1));
select2(+選択肢２(id=2));
select2(*テスト(cid=,frame=rainbow,cursor=arrow1,boxcol=(back2,808000,000080,008080,00ffff,ff8000,ffffff,128,0)));


<kaigyou>
text(2,,あ\rい%%);
text(2,,う%%%%\r\rえ%%%jbt[*性別]%jbt[*国籍].nmic%ene[*nabirt].ic%ene[*nabirt].nmic%ene[*nabirt].sn[*subname]%eng[*ナプル＆ナバト２]);
text(2,,\r);
text(2,,\rお%%%%);
text(2,,\r\rか);
text(2,,\r\r\rき);
text(2,,く\r);
text(2,,け\r\r);
text(2,,こ\nさ);
text(2,,し\n\nす);
text(2,,\n);
text(2,,\nせ);
text(2,,\n\nそ);
text(2,,\n\n\n\n\nた);
text(2,,\n\n\n\n\n\nち);
text(2,,\n\n\n\n\n\n\n\n\n\n\nつ);
text(2,,\n\n\n\n\n\n\n\n\n\n\n\nて);
text(2,,\n\n\n\n\n\n\n\n\n\n\n\n\nと);
text(1,,な\n);
text(1,,に\n\n);
text(1,,ぬ\n\n\n\n\n);
text(1,,ね\n\n\n\n\n\n);
text(1,,の\n\rは);
text(1,,ひ\r\nふ);
text(1,,へ\r\n);
text(1,,ほ\n\r);
text(1,,\r\nま);
text(1,,\n\rみ);
text(1,,\r\n\rむ);
text(1,,\r\n\r\n\n\rめ);
text(1,,あああああああああああああああああああああああああああ);
text(1,,ああああああああああああああああああああああああああああ);
text(1,,あああああああああああああああああああああああああああああ);
text(1,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかか\rききききききききききききききききききき);
text(1,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかかか\rききききききききききききききききききき);
text(1,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかかかき\rくくくくくくくくくくくくくくくくくく);
text(2,,あああああああああああああああああああああああああああ);
text(2,,ああああああああああああああああああああああああああああ);
text(2,,あああああああああああああああああああああああああああああ);
text(2,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかか\rききききききききききききききききききき);
text(2,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかかか\rききききききききききききききききききき);
text(2,,ああああああああああああああああああああああああああああいいいいいいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううううううううううううええええええええええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおおおおおおおおおかかかかかかかかかかかかかかかかかかかかかかかかかかかかき\rくくくくくくくくくくくくくくくくくく);


<srcvaltest>
evtext(subtx1,=,*);
evflag(*64:nowval,=,party(,gold));
evtext(subtx1,*=,*所持金：%evh[*nowval]);
evflag(*64:nowval,=,party(,ini:gold));
evtext(subtx1,*=,*初期所持金：%evh[*nowval]);
evflag(nowval,=,party(,count));
evtext(subtx1,*=,*メンバー数：%ev[*nowval]);
evflag(nowval,=,party(,ini:count));
evtext(subtx1,*=,*初期メンバー数：%ev[*nowval]);
evflag(nowval,=,party(,mxcount));
evtext(subtx1,*=,*メンバー容量：%ev[*nowval]);
evflag(nowval,=,party(,ini:mxcount));
evtext(subtx1,*=,*初期メンバー容量：%ev[*nowval]);
evflag(nowval,=,enedf(nabirt));
evtext(subtx1,*=,*ナバート撃破数：%ev[*nowval]);
evflag(*64:nowval,=,mem(head,exp));
evtext(subtx1,*=,*戦闘メンバーの経験値：%evh[*nowval]);

evflag(nowval,=,party(,count)+enedf(nabirt));
evtext(subtx1,*=,*メンバー数+ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,(party(,count)+enedf(nabirt))/5);
evtext(subtx1,*=,*（メンバー数+ナバート撃破数）/5：%ev[*nowval]);
evflag(nowval,=,party(,count)/(enedf(nabirt)+1));
evtext(subtx1,*=,*メンバー数/（ナバート撃破数+1）：%ev[*nowval]);
evflag(nowval,=,party(,count)+3+enedf(nabirt));
evtext(subtx1,*=,*メンバー数+3+ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,party(,count)-3+enedf(nabirt));
evtext(subtx1,*=,*メンバー数-3+ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,party(,count)+3-enedf(nabirt));
evtext(subtx1,*=,*メンバー数+3-ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,party(,count)-enedf(nabirt));
evtext(subtx1,*=,*メンバー数-ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt));
evtext(subtx1,*=,*メンバー数*ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,-party(,count));
evtext(subtx1,*=,*-メンバー数：%ev[*nowval]);
evflag(nowval,=,max(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*max（メンバー数，ナバート撃破数）：%ev[*nowval]);
evflag(nowval,=,min(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*min（メンバー数，ナバート撃破数）：%ev[*nowval]);
evflag(nowval,=,pow(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*pow（メンバー数，ナバート撃破数）：%ev[*nowval]);
evflag(nowval,=,rand(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*rand（メンバー数，ナバート撃破数）：%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt)+5*3);
evtext(subtx1,*=,*メンバー数*ナバート撃破数+5*3：%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt)-5*3);
evtext(subtx1,*=,*メンバー数*ナバート撃破数-5*3：%ev[*nowval]);
evflag(nowval,=,!enedf(nabirt));
evtext(subtx1,*=,*!ナバート撃破数：%ev[*nowval]);
evflag(nowval,=,!(enedf(nabirt)-1));
evtext(subtx1,*=,*!（ナバート撃破数-1）：%ev[*nowval]);
evflag(nowval,=,!enedf(nabirt)*5+5);
evtext(subtx1,*=,*!ナバート撃破数*5+5：%ev[*nowval]);
evflag(nowval,=,!(enedf(nabirt)*5)+5);
evtext(subtx1,*=,*!（ナバート撃破数*5）+5：%ev[*nowval]);
evflag(nowval,=,5+!enedf(nabirt)*5);
evtext(subtx1,*=,*5+!ナバート撃破数*5：%ev[*nowval]);
evflag(nowval,=,5--enedf(nabirt)*5);
evtext(subtx1,*=,*5--ナバート撃破数*5：%ev[*nowval]);
evflag(nowval,=,-5+-enedf(nabirt)*5);
evtext(subtx1,*=,*-5+-ナバート撃破数*5：%ev[*nowval]);
evflag(nowval,=,-5-enedf(nabirt)*5);
evtext(subtx1,*=,*-5-ナバート撃破数*5：%ev[*nowval]);
#evflag(nowval,=,rand(5,5));
#evtext(subtx1,*=,*rand（5，5）：%ev[*nowval]);
#text(2,h=-1,%str[*subtx1]);
text(2,h=12,%str[*subtx1]);


<converttest>
text(2,,所持金：%pty[e].gd\n所持金：%pty[e].gd.w\nナバート撃破数：%ene[*nabirt].df\nナバート撃破数：%ene[*nabirt].df.w\nパーティ名：%pty[e].nmri\nパーティ名orメンバー名：%pty[e].ormem.nmri\nsound:attack1:%sound[*attack1].nmic\nmusic:battle:%music[*battle].nmic);


<checkpcd>
select2(reset,all);
select2(+仲間の状態確認(id=0));
select2(+顔画像の確認(id=1));
zukan(cond:痺,==,1);   if(nowres); select2(+%cond[*痺]状態になる（全員）(id=10)); else; select2(+？？？(en=0)); endif;
zukan(cond:暴,==,1);   if(nowres); select2(+%cond[*暴]状態になる（全員）(id=11)); else; select2(+？？？(en=0)); endif;
zukan(cond:乱,==,1);   if(nowres); select2(+%cond[*乱]状態になる（全員）(id=12)); else; select2(+？？？(en=0)); endif;
zukan(cond:魅,==,1);   if(nowres); select2(+%cond[*魅]状態になる（全員）(id=13)); else; select2(+？？？(en=0)); endif;
zukan(cond:黙,==,1);   if(nowres); select2(+%cond[*黙]状態になる（全員）(id=14)); else; select2(+？？？(en=0)); endif;
zukan(cond:猛,==,1);   if(nowres); select2(+%cond[*猛]状態になる（全員）(id=15)); else; select2(+？？？(en=0)); endif;
zukan(cond:縮,==,1);   if(nowres); select2(+%cond[*縮]状態になる（全員）(id=16)); else; select2(+？？？(en=0)); endif;
zukan(cond:地弱,==,1); if(nowres); select2(+%cond[*地弱]状態になる（全員）(id=17)); else; select2(+？？？(en=0)); endif;
zukan(cond:絶,==,1);   if(nowres); select2(+%cond[*絶]状態になる（先頭）(id=18)); else; select2(+？？？(en=0)); endif;
zukan(cond:固,==,1);   if(nowres); select2(+%cond[*固]状態になる（先頭）(id=19)); else; select2(+？？？(en=0)); endif;
#else; select2(+？？？(en=0)); 
select2(+回復する(id=30));
#select2(+閉じる);
while;
select2(*(cid=));

if(evf(*selected)==0); subevent(@checkpcdmain,); next; endif;
if(evf(*selected)==1); subevent(@checkface,); next; endif;
if(evf(*selected)==10); formem(party); member(select,pcond,cond,,+=,痺); nextmem(); text(1,,%cond[*痺].nmic状態になった！); next; endif;
if(evf(*selected)==11); formem(party); member(select,pcond,cond,,+=,暴); nextmem(); text(1,,%cond[*暴].nmic状態になった！); next; endif;
if(evf(*selected)==12); formem(party); member(select,pcond,cond,,+=,乱); nextmem(); text(1,,%cond[*乱].nmic状態になった！); next; endif;
if(evf(*selected)==13); formem(party); member(select,pcond,cond,,+=,魅); nextmem(); text(1,,%cond[*魅].nmic状態になった！); next; endif;
if(evf(*selected)==14); formem(party); member(select,pcond,cond,,+=,黙); nextmem(); text(1,,%cond[*黙].nmic状態になった！); next; endif;
if(evf(*selected)==15); formem(party); member(select,pcond,cond,,+=,猛); nextmem(); text(1,,%cond[*猛].nmic状態になった！); next; endif;
if(evf(*selected)==16); formem(party); member(select,pcond,cond,,+=,縮); nextmem(); text(1,,%cond[*縮].nmic状態になった！); next; endif;
if(evf(*selected)==17); formem(party); member(select,pcond,cond,,+=,地弱); nextmem(); text(1,,%cond[*地弱].nmic状態になった！); next; endif;
if(evf(*selected)==18); member(head,pcond,cond,,+=,絶); text(1,,%cond[*絶].nmic状態になった！); next; endif;
if(evf(*selected)==19); member(head,pcond,cond,,+=,固); text(1,,%cond[*固].nmic状態になった！); next; endif;
if(evf(*selected)==30); subevent(recover,); fcwait(*actor); next; endif;

wend;


<checkpcdmain>
while;
memslcbox(party,〜仲間の状態確認〜,,,2); if(nowres);
#mem(forp);
#evtext(subtx1,=,*%mem[s].sn[*subname]『%mem[s].nmic』\n%mem[s].com\r);
evtext(subtx1,=,*%mem[s].sn[*subname]『%mem[s].nmic』);
member(select,level,>=,20); if(nowres); evtext(subtx1,*=,*レベル２０以上); else; evtext(subtx1,*=,*レベル２０未満); endif;
member(select,exp,>=,20000); if(nowres); evtext(subtx1,*=,*経験値２万以上); else; evtext(subtx1,*=,*経験値２万未満); endif;
member(select,pcond, vp,>=,500); if(nowres); evtext(subtx1,*=,*ＶＰ500%c088以上%cd); else; evtext(subtx1,*=,*ＶＰ500%c800未満%cd); endif;
member(select,pcond, ep,<,10); if(nowres); evtext(subtx1,*=,*ＥＰ10%c800未満%cd); else; evtext(subtx1,*=,*ＥＰ10%c088以上%cd); endif;
member(select,pcond, cond,猛,==,0); if(nowres); evtext(subtx1,*=,*猛毒には%c088侵されていない%cd); else; evtext(subtx1,*=,*猛毒に%c800侵されている%cd); endif;
member(select,pcond, cond,固,!=,0); if(nowres); evtext(subtx1,*=,*凝固%c800している%cd); else; evtext(subtx1,*=,*凝固%c088していない%cd); endif;
evtext(subtx1,*=,*停止系状態に); member(select,cdtp2,&,mah); if(nowres); evtext(subtx1,+=,*%c800なっている%cd); else; evtext(subtx1,+=,*%c088なっていない%cd); endif;
evtext(subtx1,*=,*操作不能状態に); member(select,rannrate,>=,0); if(nowres); evtext(subtx1,+=,*%c800なっている%cd); else; evtext(subtx1,+=,*%c088なっていない%cd); endif;
member(select,rannrate,>=,300); if(nowres); evtext(subtx1,*=,*味方攻撃率：); member(select,rannrate,>=,600); if(nowres); evtext(subtx1,+=,*100%); else; evtext(subtx1,+=,*50%以上); endif; endif;
member(select,cutcond,固,all,==,inf); if(nowres); evtext(subtx1,*=,*凝固状態に完全耐性); endif;
member(select,cutelem,火,all,==,inf); if(nowres); evtext(subtx1,*=,*火属性に完全耐性); endif;
member(select,ampelem,氷,all,>,0); if(nowres); evtext(subtx1,*=,*氷属性増幅有り); endif;
member(select,autcond,all,&,カウンター); if(nowres); evtext(subtx1,*=,*自動状態にカウンター有り); endif;
evtext(subtx1,*=,*名前：%mem[s]\nアイコン：%mem[s].ic\nアイコン＋名前：%mem[s].nmic\nコメント：%mem[s].com);
member(select,picset,fch,org:*cd,==,valanorpa); if(nowres); evtext(subtx1,*=,*バラノーパ正常時の画像になっている); endif;
member(select,picset,fch,org:*cd,==,vala-snf); if(nowres); evtext(subtx1,*=,*バラノーパ戦闘不能時の画像になっている); endif;
text(1,face=+select,%str[*subtx1]);

#member(select,level,>=,20); if(nowres); text(1,face=+select,%mem[s]「レベル２０以上」); else; text(1,face=+select,%mem[s]「レベル２０未満」); endif;
#member(select,exp,>=,20000); if(nowres); text(1,face=+select,%mem[s]「経験値２万以上」); else; text(1,face=+select,%mem[s]「経験値２万未満」); endif;
#member(exp,<=,20000); if(nowres); text(1,face=+select,%mem[s]「経験値２万以下」); else; text(1,face=+select,%mem[s]「経験値２万超」); endif;
#member(select,pcond, vp,>=,500); if(nowres); text(1,face=+select,%mem[s]「ＶＰ500%c088以上%cd」); else; text(1,face=+select,%mem[s]「ＶＰ500%c800未満%cd」); endif;
#member(select,pcond, ep,<,10); if(nowres); text(1,face=+select,%mem[s]「ＥＰ10%c800未満%cd」); else; text(1,face=+select,%mem[s]「ＥＰ10%c088以上%cd」); endif;
#member(select,pcond, cond,猛,==,0); if(nowres); text(1,face=+select,%mem[s]「猛毒には%c088侵されていない%cd」); else; text(1,face=+select,%mem[s]「猛毒に%c800侵されている%cd」); endif;
#member(select,pcond, cond,固,!=,0); if(nowres); text(1,face=+select,%mem[s]「凝固%c800している%cd」); else; text(1,face=+select,%mem[s]「凝固%c088していない%cd」); endif;
#pcond(mem, vp,=,1234);
#nextmem();
next;
endif;
wend;


<checkface>
while;
memslcbox(party,〜顔画像の確認〜,,,2); if(nowres);
text(1,face=+select,現在の状態);
text(1,face=+select:nrm,平常時);
zukan(cond:絶,!=,0); if(nowres); text(1,face=+select:snf,戦闘不能); endif;
zukan(cond:固,!=,0); if(nowres); text(1,face=+select:kch,凝固); endif;
member(select,picset,face,org:sri,!=,*none); if(nowres); text(1,face=+select:sri,真剣); endif;
member(select,picset,face,org:sml,!=,*none); if(nowres); text(1,face=+select:sml,笑顔); endif;
#zukan(face:yj-a4-crm,!=,0);
member(select,picset,face,org:crm3,inzuk); and; member(select,picset,face,org:crm3,!=,*none); if(nowres); text(1,face=+select:crm3,特殊); endif;
#zukan(face:yj-a4-dmg,!=,0);
member(select,picset,face,org:dmg,inzuk); and; member(select,picset,face,org:dmg,!=,*none); if(nowres); text(1,face=+select:dmg,敗北); endif;
next;
endif;
wend;


<itemtest>
select2(reset,pos);
while;
select2(reset,list);
select2(+%it[*使用者テスター]入手(id=0));
select2(+%it[*使用者テスター]損失(id=1));
select2(+%it[*預け不可]を%it[*使用者テスター]に変換×10(id=2,com=現在　%it[*使用者テスター]：%it[*使用者テスター].hv　%it[*預け不可]：%it[*預け不可].hv));
select2(+アイテム選択テスト(id=7));
select2(+〃：装備品含む(id=8));
select2(+〃：不在者の装備品含む(id=9));
select2(+アイテム所持確認(id=10));
select2(+デバッグ用アイテム(id=18));
#select2(+閉じる);
select2(*〜アイテムテスト〜(cid=));

if(evf(*selected)==0); item(get:bank,使用者テスター,1000); if(nowres); text(1,,『%it[*使用者テスター].nmic』を1000個入手した！\nあぶれた分は金庫に預けられた！); else; text(1,,『%it[*使用者テスター].nmic』はもう一杯だ！);endif; next; endif;
if(evf(*selected)==1); item(lost:bank,使用者テスター,1000); if(nowres); text(1,,『%it[*使用者テスター].nmic』を金庫内と併せて1000個手放した。); else; text(1,,『%it[*使用者テスター].nmic』はもう持っていない。);endif; next; endif;
if(evf(*selected)==2); item(change,預け不可,使用者テスター,10); if(nowres); text(1,,『%it[*預け不可].nmic』が『%it[*使用者テスター].nmic』になった。\n現在　%it[*使用者テスター]：%it[*使用者テスター].hv　%it[*預け不可]：%it[*預け不可].hv); else; text(1,,『%it[*預け不可].nmic』が無いか、『%it[*使用者テスター].nmic』がこれ以上持てないようだ。);endif; next; endif;
if(evf(*selected)==7); item(slc); if(nowres); if(evf(*selected)==id(item:chyaku)); text(0,%it[*chyaku]を選択した); else; text(0,%it[*chyaku]以外を選択した); endif; else; text(0,何も選択しなかった); endif; next; endif;
if(evf(*selected)==8); item(slc2); if(nowres); if(evf(*selected)==id(item:板)); text(0,%it[*板]を選択した); else; text(0,%it[*板]以外を選択した); endif; else; text(0,何も選択しなかった); endif; next; endif;
if(evf(*selected)==9); item(slc3); if(nowres); if(evf(*selected)==id(item:棍)); text(0,%it[*棍]を選択した); else; text(0,%it[*棍]以外を選択した); endif; else; text(0,何も選択しなかった); endif; next; endif;
if(evf(*selected)==10);
evtext(subtx1,=,*);
item(check,使用者テスター,1); if(nowres); evtext(subtx1,*=,*%it[*使用者テスター]が所持品（装備中除く）の中にある); else; evtext(subtx1,*=,*%it[*使用者テスター]は所持品（装備中除く）の中には無い); endif;
item(check:eq,使用者テスター,1); if(nowres); evtext(subtx1,*=,*%it[*使用者テスター]が所持品＋部隊メンバー装備品の中にある); else; evtext(subtx1,*=,*%it[*使用者テスター]は所持品＋部隊メンバー装備品の中には無い); endif;
item(check:aleq,使用者テスター,1); if(nowres); evtext(subtx1,*=,*%it[*使用者テスター]が所持品＋全メンバー装備品の中にある); else; evtext(subtx1,*=,*%it[*使用者テスター]は所持品＋全メンバー装備品の中には無い); endif;
item(check:bank,使用者テスター,1); if(nowres); evtext(subtx1,*=,*%it[*使用者テスター]が所持品＋金庫の中にある); else; evtext(subtx1,*=,*%it[*使用者テスター]は所持品＋金庫の中には無い); endif;
item(check:alpt,使用者テスター,1); if(nowres); evtext(subtx1,*=,*%it[*使用者テスター]が所持品＋他部隊所持品の中にある); else; evtext(subtx1,*=,*%it[*使用者テスター]は所持品＋他部隊所持品の中には無い); endif;
text(1,,%str[*subtx1]); next; endif;
if(evf(*selected)==18); buy(shop_db,); next; endif;
wend;


<soubitest>
select2(reset,all);
select2(+装備を外す（先頭：全て）(id=0));
select2(+装備を外す（先頭：%eqt[*eq2]）(id=1));
select2(+装備を外す（全員）(id=2));
select2(+板を確認（先頭）(id=3));
select2(+板を確認（先頭：%eqt[*eq2]）(id=4));
select2(+板を確認（誰か）(id=5));
select2(+板を確認（全員）(id=6));
select2(+%eqt[*eq1]を変更可／不可（先頭）(id=11));
select2(+%eqt[*eq1]を有効／無効（先頭）(id=12));
select2(+%eqt[*eq1]を空欄可／不可にする（先頭）(id=13));
select2(+性格を空欄可／不可にする（先頭）(id=14));
select2(+素性変更画面を開く(id=15));
select2(+装備『%eqt[*eq2]』変更画面を開く(id=16));
select2(+性転換(id=17));
select2(+技選択テスト(id=18));
select2(+何もしない);
#select2(/);
select2(*〜装備・素性テスト〜(x=32,y=64,cid=));

if(evf(*selected)==0); member(head,equip,*all,release,*some); goto(10); endif;
if(evf(*selected)==1); member(head,equip,eq2,release,*some); goto(10); endif;
if(evf(*selected)==2); formem(party); member(select,equip,*all,release,*some); nextmem(); goto(10); endif;
if(evf(*selected)==3); member(head,equip,*each,==,板); if(nowres); text(1,face=+head,%mem[h]「板を装備している」); else; text(1,face=+head,%mem[h]「板を装備していない」); endif; end; endif;
if(evf(*selected)==4); member(head,equip,eq2,==,板); if(nowres); text(1,face=+head,%mem[h]「%eqt[*eq2]に板を装備している」); else; text(1,face=+head,%mem[h]「%eqt[*eq2]に板を装備していない」); endif; end; endif;
if(evf(*selected)==5); formem(party); member(select,equip,*each,==,板); nextmem(exis); if(nowres); text(1,face=+select,%mem[s]「板を装備している」); else; text(0,誰も板を装備していない); endif; end; endif;
if(evf(*selected)==6); formem(party); member(select,equip,*each,==,板); nextmem(all); if(nowres); text(0,全員板を装備している); else; text(1,face=+select,%mem[s]「板を装備していない」); endif; end; endif;
if(evf(*selected)==11); member(head,eqbase,org,eq1,^=,eqbase(unchab)); member(head,eqbase,org,eq1,&,eqbase(unchab)); if(nowres); text(0,%eqt[*eq1]を変更不可にした); else; text(0,%eqt[*eq1]を変更可にした); endif; end; endif;
if(evf(*selected)==12); member(head,eqbase,org,eq1,^=,eqbase(unenab)); member(head,eqbase,org,eq1,&,eqbase(unenab)); if(nowres); text(0,%eqt[*eq1]を無効にした); else; text(0,%eqt[*eq1]を有効にした); endif; end; endif;
if(evf(*selected)==13); member(head,eqbase,org,eq1,^=,eqbase(noblank)); member(head,eqbase,org,eq1,&,eqbase(noblank)); if(nowres); text(0,%eqt[*eq1]を空欄不可にした); else; text(0,%eqt[*eq1]を空欄可にした); endif; end; endif;
if(evf(*selected)==14); member(head,jbbase,org,性格,^=,eqbase(noblank)); member(head,jbbase,org,性格,&,eqbase(noblank)); if(nowres); text(0,性格を空欄不可にした); else; text(0,性格を空欄可にした); endif; end; endif;
if(evf(*selected)==15); member(head,job,*all,manual); formem(party); subevent(setsubjob,); nextmem(); goto(10); endif;
if(evf(*selected)==16); member(head,equip,eq2,manual); goto(10); endif;
if(evf(*selected)==17); subevent(seitenkan,); endif;
if(evf(*selected)==18); member(head,skill,select); if(nowres); if(evf(*selected)==id(skill:十字斬)); text(0,十字斬を選択した); else; text(0,十字斬以外を選択した); endif; else; text(0,何も選択しなかった); endif; endif;
end;
label(10); text(0,完了); end;

#select2(reset,all); select2(+全部に硬指定(id=0)); select2(+全部に軟指定(id=1)); select2(+２：に硬指定(id=2)); select2(+２：に軟指定(id=3)); select2(+解除(id=4)); select2(+確認(id=5)); select2(+全員確認(id=6)); select2(*);
#label(0); member(equip,head,=,-3,棒,,板); goto(10);
#label(1); member(equip,head,change,-3,棒,,板); goto(10);
#label(2); member(equip,head,=,1,聖根の盾); goto(10);
#label(3); member(equip,head,change,1,聖根の盾); goto(10);
#label(4); member(equip,head,release); goto(10);
#label(5); member(equip,head,check,杖,7,9);
#label(6); member(equip,exis,check,杖,8,9);
#label(7); text(1,face=+head,%mem[h]「杖を装備している」); end;
#label(8); text(1,face=+select,%mem[s]「杖を装備している」); end;
#label(9); text(0,杖を装備していない); end;
#label(10); text(0,完了); end;


<selecmemtest>
#label(0);
evflag(instant1,=,-5);

select2(reset,all);
select2(+%mem[*Ｍ巨漢]（仲間その１）(id=0));
select2(+先頭（表示中）(id=1));
select2(+隊内４番目(id=2));
select2(+隊内ランダム(id=3));
select2(+隊内選択(id=4));
select2(+全選択(id=5));
select2(+変数へ代入(id=6));
select2(+変数確認(id=7));
select2(+%mem[*Ｍ巨漢]が先頭か否か(id=8));
select2(+%mem[*Ｍ文字人間]を先頭にする（居ない場合は無視）(id=9));
select2(+初期パーティに変更(id=10));
select2(+%mem[*主人公]を%mem[*Ｍ巨漢]と交代(id=11,com=%mem[*Ｍ巨漢]がパーティに加わってない場合用。));
select2(+%mem[*Ｍ巨漢]を%mem[*主人公]と交代(id=12,com=%mem[*主人公]がパーティに加わってない場合用。));
select2(+入力テキストの確認(id=13));
#select2(+保存テスト(ic=pen,id=14,com=イベント途中保存のテスト。\n%ct2※上書き保存は非推奨。%cd)); 
#select2(+閉じる);
while;
select2(*〜メンバー選択テスト〜(x=64,y=64,cid));

if(evf(*selected)==0); memslc(*Ｍ巨漢); goto(10); next; endif;
if(evf(*selected)==1); memslc(head); goto(10); next; endif;
if(evf(*selected)==2); memslc(_3); if(nowres); goto(10); else; text(0,４番目には誰も居ない); endif; next; endif;
if(evf(*selected)==3); memslc(rand); goto(10); next; endif;
if(evf(*selected)==4); memslcbox(party,,,,0); goto(10); next; endif;
if(evf(*selected)==5); memslcbox(all,,,,0); goto(10); next; endif;
if(evf(*selected)==6); memslcbox(party,[変数へ代入],,,0); evflag(instant1,=,evf(*slcmem)); next; endif;
if(evf(*selected)==7); memslc(%evf(instant1)); if(nowres); goto(10); else; text(0,有効なメンバーが選択されて居ない); endif; next; endif;
if(evf(*selected)==8); party(,headis,Ｍ巨漢); if(nowres); text(0,%mem[*Ｍ巨漢]が先頭); else; text(0,%mem[*Ｍ巨漢]以外が先頭); endif; next; endif;
if(evf(*selected)==9); party(,headset,Ｍ文字人間); next; endif;
if(evf(*selected)==10); party(,all,(主人公,Ｍ巨漢,Ｍ文字人間,Ｍ番犬,Ｍ電離雲),1); next; endif;
if(evf(*selected)==11); party(,change,1,主人公,Ｍ巨漢); next; endif;
if(evf(*selected)==12); party(,change,1,Ｍ巨漢,主人公); next; endif;
if(evf(*selected)==13); text(1,,『%str[0]』と入力されている。); next; endif;
if(evf(*selected)==14); savebox; next; endif;

end;
label(10); text(1,face=+select,%mem[s]が選択されている。);
member(select,is,*Ｍ文字人間); if(nowres); text(0,%mem[*Ｍ文字人間]が選択された); else; text(0,%mem[*Ｍ文字人間]以外が選択された);  endif;
next;

wend;


<shaketest>
text(1,,〜画面振動テスト〜);
#\n振動幅が大きいと、手抜き効果という事がバレます……

select2(reset,all);
select2(+小幅・低速(id=0));
select2(+小幅・高速(id=1));
select2(+中幅・低速(id=2));
select2(+中幅・高速(id=3));
select2(+大幅・低速(id=4));
select2(+大幅・高速(id=5));
select2(+東西(id=6));
select2(+南北(id=7));
select2(+乾巽(id=8));
select2(+艮坤(id=9));
select2(+東西＋微南北（同期）(id=10));
select2(+東西＋微南北（同幅）(id=11));
select2(+停止(id=12));
#select2(+閉じる);
select2(*〜画面振動テスト〜(x=32,y=32,cid=));

if(evf(*selected)==0); shake(2,2,2,1,1); end; endif;
if(evf(*selected)==1); shake(2,2,2,2,2); end; endif;
if(evf(*selected)==2); shake(2,4,4,1,1); end; endif;
if(evf(*selected)==3); shake(2,4,4,2,2); end; endif;
if(evf(*selected)==4); shake(2,8,8,1,1); end; endif;
if(evf(*selected)==5); shake(2,8,8,2,2); end; endif;
if(evf(*selected)==6); shake(2,8,0,1,0); end; endif;
if(evf(*selected)==7); shake(2,0,8,0,1); end; endif;
if(evf(*selected)==8); shake(2,8,8,1,1); end; endif;
if(evf(*selected)==9); shake(2,8,8,-1,1); end; endif;
if(evf(*selected)==10); shake(2,8,4,2,1); end; endif;
if(evf(*selected)==11); shake(2,8,8,2,1); end; endif;
if(evf(*selected)==12); shake(0); end; endif;

#shake(1,4,4,2,2,8);
#shake(2,4,4,2,2);
#shake(2,0,16,0,2);
#shake(2,16,0,2,0);
#shake(2,16,16,2,2);
#shake(2,16,16,-2,2);
#shake(2,16,8,4,2);
#shake(2,16,16,4,2);
#shake(2,8,8,4,2);
#shake(2,8,8,4,2);
#shake(0);


<scrbendtest>
select2(reset,all);
select2(+スクロールの弛み変更：右寄り(id=0));
select2(+スクロールの弛み変更：左寄り(id=1));
select2(+スクロールの弛み変更：下寄り(id=2));
select2(+スクロールの弛み変更：上寄り(id=3));
select2(+スクロールの弛み変更：右上(id=4));
select2(+スクロールの弛み変更：戻す(id=5));
#select2(+閉じる);
select2(*〜スクロールの弛み〜(x=32,y=32,cid=));

if(evf(*selected)==0); scrbend(160,0,,); end; endif;
if(evf(*selected)==1); scrbend(0,160,,); end; endif;
if(evf(*selected)==2); scrbend(,,128,0); end; endif;
if(evf(*selected)==3); scrbend(,,0,128); end; endif;
if(evf(*selected)==4); scrbend(160,-160,128,-128); end; endif;
if(evf(*selected)==5); scrbend(def,def,def,def); end; endif;


<imagetest>
select2(reset,all);
select2(+イメージ貼り付け(id=0));
select2(+イメージ削除(id=1));
#evflagsw(pr_dfmoon,==,1); select2(+初期バージョンの戦闘画像を貼りつける(id=2,en=nowres,com=？？？？？撃破で解禁));
#select2(+閉じる);
select2(*〜イメージ〜(x=32,y=128,cid=));

if(evf(*selected)==0); image(0,set, bchpic:napul,0,0,512,0,,,,,); member(*主人公, job,職種,==,Ｊ武人Ｈ); if(nowres); image(1,set, bchpic:bujin-h-big,0,0,16,16,,,,,); else; member(*主人公, job,職種,==,Ｊ武人Ｓ); if(nowres); image(1,set, bchpic:bujin-s-big,0,0,16,16,,,,,); else; image(1,set, bchpic:bujin-big,0,0,16,16,,,,,); endif; endif; image(0,scl, -256,0,0,0,0,); image(1,scl, 256,0,0,0,0,); wait(32); image(0,scl, 0,0,0,0,0,); image(1,scl, 0,0,0,0,0,); end; endif;
#if(evf(*selected)==1); image(0,set,); image(1,set,); end; endif;
if(evf(*selected)==1); image(reset); end; endif;
#if(evf(*selected)==2); image(0,set, ../bch/旧.bmp,,,,,00ff00,0,0,,,); end; endif;


<menuabletest>
select2(reset,all);
select2(+メニューオープン可(id=0));
select2(+メニューオープン不可(id=1));
select2(+先頭切り替え可(id=2));
select2(+先頭切り替え不可(id=3));
select2(+セーブ可(id=4));
select2(+セーブ不可(id=5));
#select2(+閉じる);
select2(*(x=128,y=32,cid=));

if(evf(*selected)==0); evflagsw(menuable1,=,1); end; endif;
if(evf(*selected)==1); evflagsw(menuable1,=,0); end; endif;
if(evf(*selected)==2); evflagsw(chghead1,=,1); end; endif;
if(evf(*selected)==3); evflagsw(chghead1,=,0); end; endif;
if(evf(*selected)==4); evflagsw(saveable1,=,1); end; endif;
if(evf(*selected)==5); evflagsw(saveable1,=,0); end; endif;


<timertest>
select2(reset,all);
select2(+タイマー１：戦闘含めて２０秒（残り非表示）(id=0));
select2(+タイマー１：戦闘除いて２０秒（〃）(id=1));
select2(+タイマー１：ウインドウ表示中除いて２０秒（〃）(id=2));
select2(+タイマー１：両方除いて２０秒（〃）(id=3));
select2(+タイマー１：戦闘含めて２０秒（残りフレーム表示）(id=4));
select2(+タイマー１：戦闘除いて２０秒（〃）(id=5));
select2(+タイマー１：ウインドウ表示中も除いて２０秒（〃）(id=6));
select2(+タイマー１：両方除いて２０秒（〃）(id=7));
select2(+タイマー１：戦闘含めて２０秒（残りミリ秒表示）(id=8));
select2(+タイマー１：戦闘除いて２０秒（〃）(id=9));
select2(+タイマー１：ウインドウ表示中も除いて２０秒（〃）(id=10));
select2(+タイマー１：両方除いて２０秒（〃）(id=11));
select2(+タイマー１：戦闘含めて２０秒（残り秒表示）(id=12));
select2(+タイマー１：戦闘除いて２０秒（〃）(id=13));
select2(+タイマー１：ウインドウ表示中も除いて２０秒（〃）(id=14));
select2(+タイマー１：両方除いて２０秒（〃）(id=15));
select2(+タイマー１：停止／再開(id=16));
select2(+タイマー１：解除(id=17));
select2(+タイマー１：残りタイム等確認(id=18));
select2(+タイマー１：フレーム単位でセット(id=22));
select2(+タイマー１：ミリ秒単位でセット(id=23));
select2(+タイマー１：秒単位でセット(id=24));
select2(+タイマー２：戦闘含めて２０秒（残り非表示）(id=40));
select2(+タイマー２：戦闘除いて２０秒（〃）(id=41));
select2(+タイマー２：ウインドウ表示中除いて２０秒（〃）(id=42));
select2(+タイマー２：両方除いて２０秒（〃）(id=43));
select2(+タイマー２：戦闘含めて２０秒（残りフレーム表示）(id=44));
select2(+タイマー２：戦闘除いて２０秒（〃）(id=45));
select2(+タイマー２：ウインドウ表示中も除いて２０秒（〃）(id=46));
select2(+タイマー２：両方除いて２０秒（〃）(id=47));
select2(+タイマー２：戦闘含めて２０秒（残りミリ秒表示）(id=48));
select2(+タイマー２：戦闘除いて２０秒（〃）(id=49));
select2(+タイマー２：ウインドウ表示中も除いて２０秒（〃）(id=50));
select2(+タイマー２：両方除いて２０秒（〃）(id=51));
select2(+タイマー２：戦闘含めて２０秒（残り秒表示）(id=52));
select2(+タイマー２：戦闘除いて２０秒（〃）(id=53));
select2(+タイマー２：ウインドウ表示中も除いて２０秒（〃）(id=54));
select2(+タイマー２：両方除いて２０秒（〃）(id=55));
select2(+タイマー２：停止／再開(id=56));
select2(+タイマー２：解除(id=57));
select2(+タイマー２：残りタイム等確認(id=58));
while;
select2(*〜タイマーテスト〜(x=16,y=48,cid=));

if(evf(*selected)==0); timer(timer1,timerres,0,20); next; endif;
if(evf(*selected)==1); timer(timer1,timerres,1,20); next; endif;
if(evf(*selected)==2); timer(timer1,timerres,2,20); next; endif;
if(evf(*selected)==3); timer(timer1,timerres,3,20); next; endif;
if(evf(*selected)==4); timer(timer1,timerres,4,20); next; endif;
if(evf(*selected)==5); timer(timer1,timerres,5,20); next; endif;
if(evf(*selected)==6); timer(timer1,timerres,6,20); next; endif;
if(evf(*selected)==7); timer(timer1,timerres,7,20); next; endif;
if(evf(*selected)==8); timer(timer1,timerres,8,20); next; endif;
if(evf(*selected)==9); timer(timer1,timerres,9,20); next; endif;
if(evf(*selected)==10); timer(timer1,timerres,10,20); next; endif;
if(evf(*selected)==11); timer(timer1,timerres,11,20); next; endif;
if(evf(*selected)==12); timer(timer1,timerres,12,20); next; endif;
if(evf(*selected)==13); timer(timer1,timerres,13,20); next; endif;
if(evf(*selected)==14); timer(timer1,timerres,14,20); next; endif;
if(evf(*selected)==15); timer(timer1,timerres,15,20); next; endif;
if(evf(*selected)==16); timer(timer1,*stop,^=,1); next; endif;
if(evf(*selected)==17); timer(timer1,*reset); next; endif;
if(evf(*selected)==18);
timer(timer1,*exis); if(nowres); evtext(subtx1,=,*作動している。); else; evtext(subtx1,=,*作動していない。); endif;
timer(timer1,*count,1,); evtext(subtx1,*=,*%ev[*nowval]フレーム);
timer(timer1,*count,2,); evtext(subtx1,*=,*%ev[*nowval]ミリ秒);
timer(timer1,*count,3,); evtext(subtx1,*=,*%ev[*nowval]秒);
timer(timer1,*count,1,>=,500); if(nowres); evtext(subtx1,*=,*500フレーム以上。); else; evtext(subtx1,*=,*500フレーム未満。); endif;
timer(timer1,*count,2,>=,500); if(nowres); evtext(subtx1,*=,*500ミリ秒以上。); else; evtext(subtx1,*=,*500ミリ秒未満。); endif;
timer(timer1,*count,3,>=,500); if(nowres); evtext(subtx1,*=,*500秒以上。); else; evtext(subtx1,*=,*500秒未満。); endif;
text(1,h=8,%str[*subtx1]); next; endif;
if(evf(*selected)==22); timer(timer1,*count,1,=,1000); next; endif;
if(evf(*selected)==23); timer(timer1,*count,2,=,1000); next; endif;
if(evf(*selected)==24); timer(timer1,*count,3,=,1000); next; endif;
if(evf(*selected)==40); timer(timer2,timerres,0,20); next; endif;
if(evf(*selected)==41); timer(timer2,timerres,1,20); next; endif;
if(evf(*selected)==42); timer(timer2,timerres,2,20); next; endif;
if(evf(*selected)==43); timer(timer2,timerres,3,20); next; endif;
if(evf(*selected)==44); timer(timer2,timerres,4,20); next; endif;
if(evf(*selected)==45); timer(timer2,timerres,5,20); next; endif;
if(evf(*selected)==46); timer(timer2,timerres,6,20); next; endif;
if(evf(*selected)==47); timer(timer2,timerres,7,20); next; endif;
if(evf(*selected)==48); timer(timer2,timerres,8,20); next; endif;
if(evf(*selected)==49); timer(timer2,timerres,9,20); next; endif;
if(evf(*selected)==50); timer(timer2,timerres,10,20); next; endif;
if(evf(*selected)==51); timer(timer2,timerres,11,20); next; endif;
if(evf(*selected)==52); timer(timer2,timerres,12,20); next; endif;
if(evf(*selected)==53); timer(timer2,timerres,13,20); next; endif;
if(evf(*selected)==54); timer(timer2,timerres,14,20); next; endif;
if(evf(*selected)==55); timer(timer2,timerres,15,20); next; endif;
if(evf(*selected)==56); timer(timer2,*stop,^=,1); next; endif;
if(evf(*selected)==57); timer(timer2,*reset); next; endif;
if(evf(*selected)==58);
timer(timer2,*exis); if(nowres); evtext(subtx1,=,*作動している。); else; evtext(subtx1,=,*作動していない。); endif;
timer(timer2,*count,1,); evtext(subtx1,*=,*%ev[*nowval]フレーム);
timer(timer2,*count,2,); evtext(subtx1,*=,*%ev[*nowval]ミリ秒);
timer(timer2,*count,3,); evtext(subtx1,*=,*%ev[*nowval]秒);
timer(timer2,*count,1,>=,500); if(nowres); evtext(subtx1,*=,*500フレーム以上。); else; evtext(subtx1,*=,*500フレーム未満。); endif;
timer(timer2,*count,2,>=,500); if(nowres); evtext(subtx1,*=,*500ミリ秒以上。); else; evtext(subtx1,*=,*500ミリ秒未満。); endif;
timer(timer2,*count,3,>=,500); if(nowres); evtext(subtx1,*=,*500秒以上。); else; evtext(subtx1,*=,*500秒未満。); endif;
text(1,h=8,%str[*subtx1]); next; endif;

wend;


<won>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,勝利した);


<lost>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,敗北した); subevent(recover,);


<escaped>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,逃げ出した);


<encount>
text(1,,エンカウントが発生した);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle();
#subevent(encount,);


<flst>
text(1,,移動中に全滅した); subevent(recover,);


<load>
fade(in,(type=fade,color=00ff80,wait=64));
text(1,,ロードした);


<frame>
fc(c4,walkto,2,1,*actor);
fc(c4:1,walkto,2,1,*actor);
fc(c4:2,walkto,2,1,*actor);
fc(c4:3,walkto,2,1,*actor);
fc(c4:4,walkto,2,1,*actor);
fc(c4:5,walkto,2,1,*actor);
#fc(c5,dir,=,~l); fc(c5:1,dir,=,~d); fc(c5:2,dir,=,~r);


<setmdtest>
#mc(0,dmg,fld, 5,5,0,0,10,10, 200,200,200,200,0,0,0,0,毒,毒,10,4,0);
#mc(1,dmg,btl, 50,50,0,0,50,50, 200,200,200,200,0,0,0,0,毒,毒,10,4,0);
#mc(5,ans,0);
mc(8,ans,!=,32); if(nowres);
mc(8,ans,=,32); mc(8,dmg,|=,自動補給); mc(8,enc,=,2); mc(8,btf,desert2); mc(8,enegr,=,(ナパラー,ガラパー)); mc(60,enegref,=,0); mc(23,pic,17);
setmapdat(all,0,1,5);
else;
#mc(8,ans,=,4); mc(8,enc,=,10); mc(8,btf,sea2); mc(8,enegr,=,(ナプル×１２,ガルプ×１２,ガテョ＆リャバ));
mc(8,reset); mc(60,enegref,=,); mc(23,reset);
setmapdat(all,0,5,1);
endif;
#mc(13,pic,(60,66)); mc(13,ani,+=,1);
#mc(13,dmg,fld, 0,0,0,0,0,0, 0,0,0,0,0,0,0,0, ,,10,0);
#mc(13,dmg,btl, 0,0,0,0,0,0, 0,0,0,0,0,0,0,0, ,,10,0);