#include"hspdx.as"
es_ini
es_screen 640,480,8
if stat!0 : end
repeat 2
es_cls
es_sync
await 0
loop
sdim cmd,12,6
cmd="アイテム","魔法","装備","ステータス","コンフィグ","セーブ"
redraw 2
es_palset 0,0,0,0
repeat 8
	i=cnt
	es_palset i+1,i*32,i*32,i*32
loop
es_palset 9,0,0,192
es_palset 10,255,255,255
es_palfade 0
y=0

*main
redraw 2
wx=0
wy=0
xs=12
ys=6
gosub*draw_window
repeat 6
	i=cnt
	pos wx+24,i*16+wy+16
	es_mes cmd.i
loop
stick s,0
a=s
s=s&10
if s=0 : goto *cdraw
y=s>>2-1+y+6\6
*cdraw
pos wx+8,y*16+wy+16
es_mes"→"
if a=128 : es_palfade -256,32:repeat 16:es_sync:await 0:loop:repeat 2:es_cls:es_sync:await 0:loop:es_bye:end
es_sync
await 0
goto *main

*draw_window
color 0,0,0
es_boxf wx,wy,xs*8+wx+16,ys*16+wy+32
repeat 9
	i=cnt
	gmode 2,xs*8+16-(i*2),ys*16+32-(i*2)
	es_fill wx+i,wy+i,i+1
loop
return