//}bv`bvp̃vOłB
//LVdownRPG邽߂ɍAz݂ȃvOłB
*@@
	scr_x = 700
	scr_y = 650
	gsize_y = 25 : gsize_y_a = gsize_y
	gsize_x = 25 : gsize_x_a = gsize_x
	dir = dir_cur
*@
	screen 0,scr_x,scr_y
	title"Map Controller"
*menu
	color 125,200,0
	boxf 
	color 0,0,0
	font "MS ",35,1
	pos 195,180
	mes"MAP CONTROLLER"
	pos 300,300
	objsize 95,20
	button"}bv쐬",*main_WI_a
	button"I",*e
	input scr_x
	input scr_y
	stop
*main_WI_a
	screen 0,scr_x,scr_y
	cls 4
*main_WI
	screen 2,200,400,screen_tool:	title "c["
	cls 1
	objsize 95,20
	button"ǂݍ",*load
	button"ۑ",*save
	pos 0,250
	stop

*stoper
	stop
*mapchip
	buffer 3 : picload""+fname+""
	goto *kikm_set
*kikm_set
	m_c = 0
	repeat
	getkey m_c,1
	redraw 0
	if m_c = 1 :pos mousex/gsize_x*gsize_x , mousey/gsize_y*gsize_y :  gsel 0 : gcopy 3 
	redraw 1
	wait 1
	
	loop
	
*load
	dialog"bmp",16
	if stat=0:dialog "G[܂",1:goto *e
	fname=refstr
	goto *mapchip

*save
	dialog"bmp",17
	if stat=0:dialog "G[܂",1:goto *e
	fname=refstr


*save_b
	gsel 0
	chdir dir
	bmpsave fname
	dialog "Z[u܂BI܂",0



*e
	end