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

#item(check:eq,動物図鑑,1); if(nowres);
#mc(72,eneg,+=,(熟しな×６(20),サキＧ×６(20),熟しな＆サキＧ３(20)));
#mc(77,eneg,+=,(熟しな×４(20),サキＧ×４(20),熟しな＆サキＧ２(20)));
#item(check:eq,ストロ,1); and; item(check:eq,月影の外套,1); if(nowres);
#mc(72,eneg,+=,(いけ皆×３(60),いけ皆×６(60)));
#mc(77,eneg,+=,(いけ皆(60),いけ皆×２(60)));
#endif;
#endif;

subevent(yj5adbl,); if(nowres);
mc(72,enegr,+=,(Ａ５×４(20),熟しな＆Ａ５２(20),サキＧ＆Ａ５２(20),Ｄピュ＆Ａ５２(20)));
mc(77,enegr,+=,(Ａ５×３));
endif;


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


#外へ（落下）
<out2>
sound(drop); fade(out,(type=fade,color=00ffff,wait=16)); fc(*actor,move,23,18,center); fc(*actor,dir,=,d); fc(*actor,float,=,128); changemap(フィールド); fade(in,(type=fade,color=000000,wait=16));


#階段上昇
<up>
fc(*actor,walk,0,8,0,-2,u); return;


#階段下降
<down>
fc(*actor,walk,0,8,0,2,d); return;


#修理マニュアル入手
<box_shumanu>
#fc(c2,apr,==,0); and; fc(c3,apr,==,0); and; fc(c4,apr,==,0); and; fc(c5,apr,==,0); if(nowres);
#evflag(instant1,=,id(item:エリクサー));
#evflag(instant1,=,id(item:自転車));
#subevent(box_item,);
#endif;

fc(c2,apr,==,0); and; fc(c3,apr,==,0); if(nowres);
fc(c4,apr,==,0); and; fc(c5,apr,==,0); if(nowres);
subevent(box_item(id(item:エリクサー)),);
evflag(instant1,=,0); evflagsw(pr_towelix,=,1);
else;
subevent(box_item(id(item:修理説明)),);
endif;
else;
subevent(box_item(id(item:回復薬)),);
endif;



#塔ヒント
<brd_tower>
text(1,face=+evfch,真ん中を最後にすべし。);
zukan(item:修理説明,==,1); if(nowres); text(1,face=uam,『%it[*修理説明].nmic』を入手するためのヒントだったようだ。); endif;