#author("2020-05-07T14:22:11+09:00","","")
#author("2020-05-07T14:23:43+09:00","","")
[[Ys TOOLs C]]

pic copy 0.1.0~
~
・始めに~
記述予定~
~
・作成の動機~
2DRPGとかで使うキャラチップとかマップチップとかの~
画像の編集がめんどくさいので作成しました~
~
・使い方~
記述予定~
~
作成：高畑ラボ(Y_repeat)~
~
・連絡先~
バグなどありましたらご報告ください~
また改造後再配布時配布URLを教えていただけると嬉しいです~
y.tack2010@gmail.com~
#code(C,nooutline){{
#include "hspda.as"
screen 1,150,100
cls 2
screen 2,150,100
cls 2
screen 3,150,100
cls 4
screen 0,570,380
gsel 0
gosub *def_A
gosub *def_B
gosub *def_C
gosub *def_D
goto *@f
*def_A
var4input4moto=""
var4input4saki=""
return
*@
*draw_begin
cls 1
objsize 110,20
mes "copy元file"
input var4input4moto,210,20
ID4input4moto=stat
button "copy元読み込み",*l_load_moto
button "dialog",*l_dialog_moto
mes "copy先file
input var4input4saki,210,20
ID4input4saki=stat
button "copy先読み込み",*l_load_saki
button "dialog",*l_dialog_saki
button "copy先保存",*l_save_saki
button "vsave",*l_vsave
button "vload",*l_vload
button "sample vload",*l_sample_vload

goto *@f
*def_B
var4input_copy_moto_X=0
var4input_copy_moto_Y=0
return
*@
pos 220,0
mes "copy元X座標"
input var4input_copy_moto_X,150,20
ID4input_copy_moto_X=stat
mes "copy元Y座標"
input var4input_copy_moto_Y,150,20
ID4input_copy_moto_Y=stat

goto *@f
*def_C
var4input_copy_saki_X=0
var4input_copy_saki_Y=0
var4input_copy_saki_size_X=0
var4input_copy_saki_size_Y=0
return
*@
	
pos 220,100
mes "copy先X座標"
input var4input_copy_saki_X,150,20
ID4input_copy_saki_X=stat
mes "copy先Y座標"
input var4input_copy_saki_Y,150,20
ID4input_copy_saki_Y=stat
mes "copy先 size X"
input var4input_copy_saki_size_X,150,20
ID4input_copy_saki_size_X=stat
mes "copy先 size Y"
input var4input_copy_saki_size_Y,150,20
ID4input_copy_saki_size_Y=stat
button "直接座標コピー",*l_chokusetu_copy

goto *@f
*def_D
var4input_tanni_size_x=0
var4input_tanni_size_y=0
var4input_tanni_pos_x_index=0
var4input_tanni_pos_Y_index=0
var4input_tanni_kosuu_x=1
var4input_tanni_kosuu_y=1
return
*@
	

pos 380,100
mes "単位copy 単位(size)X"
input var4input_tanni_size_x,150,20
ID4input_tanni_size_x=stat
mes "単位copy 単位(size)Y"
input var4input_tanni_size_y,150,20
ID4input_tanni_size_y=stat
mes "単位copy先 pos X(index)"
input var4input_tanni_pos_x_index,150,20
ID4input_tanni_pos_x_index=stat
mes "単位copy先 pos Y(index)"
input var4input_tanni_pos_Y_index,150,20
ID4input_tanni_pos_Y_index=stat
mes "単位copy copy個数(X)"
input var4input_tanni_kosuu_x,150,20
ID4input_tanni_kosuu_x=stat
mes "単位copy copy個数(Y)"
input var4input_tanni_kosuu_y,150,20
ID4input_tanni_kosuu_y=stat
button "単位copy",*l_tanni_copy
stop
*l_load_moto
	exist var4input4moto
	if strsize==-1:dialog "FILEが存在しません",1:stop
	gsel 1
	picload var4input4moto
	gsel 0
	stop
*l_load_saki
	exist var4input4saki
	if strsize==-1:dialog "FILEが存在しません",1:stop
	gsel 2
	picload var4input4saki
	gsel 0
	stop
*l_save_saki
	gsel 2
	bmpsave var4input4saki
	gsel 0
	stop
*l_chokusetu_copy
	gsel 2
	gmode 0,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
	pos var4input_copy_saki_X,var4input_copy_saki_Y
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
	logmes "pos"+var4input_copy_saki_X+" "+var4input_copy_saki_Y
	logmes "copy"+var4input_copy_moto_X+" "+var4input_copy_moto_Y+" "+var4input_copy_saki_size_X+" "+var4input_copy_saki_size_Y
	gsel 3
	cls 4
	pos 0,0
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
;	gsel 2
;	pos 10,10
;	gcopy 1,20,20,15,15
	stop
*l_tanni_copy
	gsel 2
	_4gmode_x=var4input_tanni_size_x*var4input_tanni_kosuu_x
	_4gmode_y=var4input_tanni_size_y*var4input_tanni_kosuu_y
	gmode 0,_4gmode_x,_4gmode_y
	_4copy_pos_x=var4input_tanni_size_x*var4input_tanni_pos_x_index
	_4copy_pos_y=var4input_tanni_size_y*var4input_tanni_pos_y_index
	pos _4copy_pos_x,_4copy_pos_y
	_4gcopy_x=var4input_tanni_size_x*var4input_tanni_kosuu_x
	_4gcopy_y=var4input_tanni_size_y*var4input_tanni_kosuu_y
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,_4gcopy_x,_4gcopy_y
	logmes "gmode size "+_4gmode_x+" "+_4gmode_y
	logmes "copy pos "+_4copy_pos_x+" "+_4copy_pos_y
	logmes "gcopy "+var4input_copy_moto_X+" "+var4input_copy_moto_Y+" "+_4gcopy_x+" "+_4gcopy_y
	gsel 3
	cls 4
	pos 0,0
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,_4gcopy_x,_4gcopy_y
	stop
*l_dialog_moto
	dialog "*",16
	if stat==1:objprm ID4input4moto,refstr
	stop
*l_dialog_saki
	dialog "*",16
	if stat==1:objprm ID4input4saki,refstr
	stop
*l_vsave
	vsave "tmp_p_c.dat"
	stop
*l_vload
	vload "tmp_p_c.dat"
	goto *draw_begin
*l_sample_vload
	vload "sample_p_c.dat"
	goto *draw_begin
}}