#include "hsp3utf.as"
Randomize:xsc=1080:ysc=720:screen 0,xsc,ysc,0,10,10 //画面サイズ
kb = 90,88,37,38,39,40,1,2:dim k,length(kb):dim pk,length(kb) //キー
tfs=100,40:ttn="タイトル":mns="メ","メニュー","メニュー3","メニューーー4":mbxs=400:mbys=50
	repeat
		font "メイリオ",tfs(0),1:color 0,0,0:pos xsc/2-strlen(ttn)*tfs(0)/6,ysc/4:mes ttn:tgmk=-1
		repeat length(mns)
			mbx = xsc/2-mbxs/2:mby=ysc/2+cnt*60:color 20,20,20
			if(mouseX>mbx && mouseX<mbx+mbxs && mouseY>mby && mouseY<mby+mbys){color 100,100,100:tgmk=cnt}
			boxf mbx,mby,mbx+mbxs,mby+mbys
			font "メイリオ",tfs(1),1:color 255,255,255:pos xsc/2-strlen(mns(cnt))*tfs(1)/6,ysc/2+cnt*60:mes mns(cnt)
		loop
		gosub *scenechact:gosub *stwait:if(k(6)==1 && pk(6)==0 && tgmk>=0){brtimer=1}
	loop
end
*stwait
	repeat length(kb):if(k(cnt)==0){pk(cnt)=0}else{pk(cnt) += 1}:getkey k(cnt),kb(cnt):loop //兼キー入力
	redraw 1:await 15:redraw 0:playtime++:return
*scenechact
	color 0,0,0::if(brtimer>0){brtimer++
	repeat 20:if(brtimer-cnt>0){boxf ((xsc*cnt)/20),0,((xsc*cnt)/20)+(brtimer-cnt),ysc}:loop}:return