#洞窟→洞窟水下
<to_2>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,0,0,0); changemap(洞窟トンネル地下); mapname(0); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=mosaic,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); changemap(洞窟トンネル地下); mapname(0); fade(in,(type=mosaic,wait=16));
#fade(mosaic,1,256,def); fc(move,*actor,2,0,0,0); changemap(洞窟トンネル地下); mapname(0); fade(mosaic,2,256,def);
#text(1,face=uam,このエリアには何も無い。);
#evflagsw(cavesaitan,=,1);


#洞窟から出る（西側）
<out_w>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,23,-4,center); fc(*actor,dir,=,l); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#洞窟から出る（東側）
<out_e>
zukan(warppos:*all,|=,cv1_e);
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,26,-4,center); fc(*actor,dir,=,r); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#洞窟から出る（北側）
<out_n>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,34,-22,center); fc(*actor,dir,=,r); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#超薬草売買機
<shop_chyaku>
#member(head,name,print);

text(1,face=uam,『%it[*chyaku].nmic』が売ってある。);
label(7);
select2(reset,all); select2(+買う　200円(id=0)); select2(+売る　100円(id=1)); select2(+やめる); item(print,chyaku); select2(*所持金: %pty[e].gd\n所持数: %ev[*nowval].w(cid=));
label(4);

evflag(*selected,==,0); if(nowres);
party(,gold,>=,200); if(nowres); item(get,chyaku,1); if(nowres); party(,gold,+=,-200); text(0,%it[*chyaku]を買った);
select2(reset,all); select2(+もっと買う(id=0)); select2(+もうやめる); item(print,chyaku); select2(*所持金: %pty[e].gd\n所持数: %ev[*nowval].w(cid=)); goto(4);
else; text(0,%it[*chyaku]はこれ以上は持てない。); endif;
else; text(0,お金が足りない！); endif;
end;
endif;

evflag(*selected,==,1); if(nowres);
party(,gold,<,9999999999999999); if(nowres); item(lost,chyaku,1); if(nowres); party(,gold,+=,100); text(0,%it[*chyaku]を売った。);
select2(reset,all); select2(+もっと売る(id=1)); select2(+もうやめる); item(print,chyaku); select2(*所持金: %pty[e].gd\n所持数: %ev[*nowval].w(cid=)); goto(4);
else; text(0,私は%it[*chyaku]を持っていない。); endif;
else; text(0,財布が一杯だ！); endif;
end;
endif;

#party(,gold,>=,20000); if(nowres); text(1,,所持金２万以上); else; text(1,,所持金２万未満); endif;
#party(,gold,<=,20000); if(nowres); text(1,,所持金２万以下); else; text(1,,所持金２万超); endif;
#party(,gold,=,4075);


#自販機（洞窟）
<shop2>
#text(1,face=uam,自動販売／買取機だ。\n%ct3※→側の詳細画面はＡ・Ｓまたはテンキー１・３でページ切り替えを行います。%cd);
select2(reset,all); select2(adddtp,sysm,itbuy,); select2(adddtp,sysm,itsell,);
while;
select2(*自動売買機(cid=));
if(evf(*selected)==id(sysm:itbuy)); buy(shop2,only); next; endif;
if(evf(*selected)==id(sysm:itsell)); item(sell,); next; endif;
wend;


#自販機（洞窟水上）
<shop3>
text(1,face=uam,自動販売／買取機だ。);
select2(reset,all); select2(adddtp,sysm,itbuy,); select2(adddtp,sysm,itsell,); select2(+情報(id=0,ic=question));
while;
select2(*自動売買機(cid=));
if(evf(*selected)==id(sysm:itbuy)); buy(shop3,only); next; endif;
if(evf(*selected)==id(sysm:itsell)); item(sell,); next; endif;
if(evf(*selected)==0);
text(1,face=+evfch,一部の商品は入手困難により、お値段が非常に高騰しております。別の場所ならそうでもないかもしれません。);
zukan(warppos:*all,&,hideshop); if(nowres); text(1,face=uam,『別の場所』とは、隠し販売機の事だったようだ。); endif;
next; endif;
wend;
#ここでは一部、隠れショップの商品が相場よりも超高値で売られている。


#看板〜洞窟
<hint>
text(1,face=+evfch,「下階のエリアにはアイテムが眠っている。なあに適当に階段を昇り降りしていれば見つかるさ。だがこの階に戻ったらやり直しだから注意しなよ」\nと書かれている。);
#text(1,face=+evfch,「下階のエリアにはアイテムが眠っている。なあに適当にさ迷っていれば見つかるさ。だがこの階に戻ったらやり直しだから注意しなよ」\nと書かれている。);
zukan(item:caskey,==,1); if(nowres); text(1,face=uam,『%it[*caskey].nmic』に至るための道しるべだったようだ。); endif;
#item(check:aleq|alpt|bank,caskey,1);
#item(check:aleq|alpt|bank,caskey,1); if(nowres); text(0,『%it[*caskey].nmic』は既に入手している。); endif;
#item(check:aleq|alpt|bank,caskey,1); if(nowres); text(1,,既に入手した『%it[*caskey].nmic』についての情報のようだ。); endif;