;自作命令：キャラクターとかの読み込み

@sin_ld

defsub ch,"NSSN"	;立ち位置とキャラ名と表情名と表示時間
defsub chf,"SSNS?N?S"	;キャラ名と表情名と表示時間、後ろはプリント命令用#エフェクト[,時間,ルール画像]
defsub ch_k,"NSSN"	;立ち位置とキャラ名と表情名と表示時間（キャラ暗くするとき使う）
defsub ch_k_c,"NN"	;立ち絵変え、立ち絵消し、全消し
defsub ev,"SS?N?S"	;イベント名と表示時間、後ろはプリント命令用#エフェクト[,時間,ルール画像]
defsub ev_c,"S?N?S"	;イベント絵消去、後ろはプリント命令用#エフェクト[,時間,ルール画像]

return

;顔絵
@chf
;■20180422顔グラフィックを日本語で定義。テキストウィンドウの横に表示させる
;■例　chf "レイ","困り目とじ",0,#F,300
;細かい位置は、手動で変更をお願いします。
%x=-150
%y=350
param %name,%file,%time,%ef,%tm,%rule
	if %name=="レイ" then
	%r="chr/reityeru/"
	%r2=".png"
		if %file=="ふつう" then %r=%r+"01"+%r2
		if %file=="怒り" then %r=%r+"02"+%r2
		if %file=="困り目開き" then %r=%r+"03"+%r2
		if %file=="困り" then %r=%r+"04"+%r2
		if %file=="笑顔目開き" then %r=%r+"05"+%r2
		if %file=="笑顔" then %r=%r+"06"+%r2
		if %file=="驚き" then %r=%r+"07"+%r2
		if %file=="ふつうてれ" then %r=%r+"11"+%r2
		if %file=="怒りてれ" then %r=%r+"12"+%r2
		if %file=="困り目開きてれ" then %r=%r+"13"+%r2
		if %file=="困りてれ" then %r=%r+"14"+%r2
		if %file=="笑顔目開きてれ" then %r=%r+"15"+%r2
		if %file=="笑顔てれ" then %r=%r+"16"+%r2
		if %file=="驚きてれ" then %r=%r+"17"+%r2
	endif
	if %name=="アクア" then
	%r="chr/"
	%r2=".png"
		if %file=="ふつう" then %r=%r+"00_syu"+%r2
	endif
	if %time==0 then %time=300	;規定値入れる
	if %time==-1 then sp "window:chr1000",{name=%r,x=%x,y=%y,z=10}:spdelete "window:chr1000":print #c:return	;規定値入れる
;	if %time==-2 then spdelete "window:chr1000":return	;削除
;		ld %pos,%r,#F,%time
		sp "window:chr1000",{name=%r,x=%x,y=%y,z=10}:print %ef,%tm,%rule
endif
return


;立ち絵
@ch
;■20170918立ち絵を日本語で定義。
param %pos,%name,%file,%time

	if %name=="リタル" then
	%r="chr/b01/"
	%r2=".png"
		if %file=="ふつう" then %r=%r+"b01"+%r2
		if %file=="怒り" then %r=%r+"b02"+%r2
		if %file=="困り目開き" then %r=%r+"b03"+%r2
		if %file=="困り目とじ" then %r=%r+"b04"+%r2
		if %file=="笑顔目開き" then %r=%r+"b05"+%r2
		if %file=="笑顔目閉じ" then %r=%r+"b06"+%r2
		if %file=="驚き" then %r=%r+"b07"+%r2
		if %file=="ふつうてれ" then %r=%r+"b11"+%r2
		if %file=="怒りてれ" then %r=%r+"b12"+%r2
		if %file=="困り目開きてれ" then %r=%r+"b13"+%r2
		if %file=="困り目とじてれ" then %r=%r+"b14"+%r2
		if %file=="笑顔目開きてれ" then %r=%r+"b15"+%r2
		if %file=="笑顔目閉じてれ" then %r=%r+"b16"+%r2
		if %file=="驚きてれ" then %r=%r+"b17"+%r2
	endif
	if %name=="アクア" then
	%r="chr/"
	%r2=".png"
		if %file=="ふつう" then %r=%r+"00_syu"+%r2
	endif

	if %time==0 then %time=300	;規定値入れる
	if %time==-1 then ld0 %pos,%r:return	;規定値入れる
		;■20170917ここは立ち絵表示のみですが、適宜変更なり条件分岐させるといいかも
		ld %pos,%r,#F,%time
return


@ch_k
param %pos,%name,%file,%time
		;■20190728会話してないほうは暗くする
		if %pos==-1 then %spname="chr-1"
		if %pos==0 then %spname="chr0"
		if %pos==1 then %spname="chr1"
		ggetsize %w,%h ; ゲーム画面の大きさを取得
		getspinfo %spname,%info ;画像の情報を取得
		if %pos==-1 then %x=floor(%w/3-%info.w/2-150)
		if %pos==0 then %x=floor(%w/2-%info.w/2)
		if %pos==1 then %x=floor(%w*2/3-%info.w/2+150)
		%z=%info.z
		%y=%h-%info.h
		spmove %spname,%x,%y
;■キャラの体形分入れる（表情もいれて下さい）
	if %name=="アクア" then
	%r="chr/"
	%r2=".png"
		if %file=="ふつう" then %r=%r+"00_syu"+%r2
	endif
;spset "chr_k",90
		if %pos==-1 then sp "chr_k-1",{name=""+%r+"",x=%x,y=%y,z=%z+1,effect="monotone",color=#FF000000}	;モノトーン
		if %pos==0 then sp "chr_k0",{name=""+%r+"",x=%x,y=%y,z=%z+1,effect="monotone",color=#FF000000};モノトーン
		if %pos==1 then sp "chr_k1",{name=""+%r+"",x=%x,y=%y,z=%z+1,effect="monotone",color=#FF000000};モノトーン
		;■話さないキャラはz+2
		if %pos==-1 then spz "chr-1",%z+2
		if %pos==0 then spz "chr0",%z+2
		if %pos==1 then spz "chr1",%z+2
;		okbox str(%z),"kage"

	if %time==0 then %time=300	;規定値入れる
;	if %time==-1 then ld0 %pos,%r:return	;規定値入れる
	if %time==-1 then return	;規定値入れる

endif


return

@ch_k_c
;■影消す。１．会話変わる２．立ち絵消去３．立ち絵全消去
param %cla,%pos

if %cla==1 then
if %pos==-1 then spdelete "chr_k"+str(%pos)
;okbox "chr_k"+str(%pos),""
if %pos==0 then spdelete "chr_k"+str(%pos)
if %pos==1 then spdelete "chr_k"+str(%pos)


		;■20190728ｚ軸を前へ。
		%spname="chr"+str(%pos)
		getspinfo %spname,%info ;画像の情報を取得
		%z=%info.z
		spz %spname,%z-1
;		okbox str(%z),"表示"
		;■ここまで-------------------------------

endif

if %cla==2 then
spdelete "chr_k"+str(%pos)
spdelete "chr"+str(%pos)
endif

if %cla==3 then
spdelete "chr_k-1"
spdelete "chr_k0"
spdelete "chr_k1"
endif

print #C

return

@ev
param %name,%ef,%tm,%rule
;■20200126イベント名、イベント絵ファイル名、後ろはプリント命令用。
;■例　ev "","",#F,500
;イベント絵原寸の場合は0でオッケーです。
spset "ev",110
%x=0
%y=0
	if %name=="1-1" then %r="bg/ev/ev_001":%r2=".png":%r=%r+%r2
	if %name=="1-2" then %r="bg/ev/ev_002":%r2=".png":%r=%r+%r2
	if %name=="1-3" then %r="bg/ev/ev_003":%r2=".png":%r=%r+%r2
	endif
		sp "ev:ev",{name=%r,x=%x,y=%y,z=1000}:print %ef,%tm,%rule
endif
return

@ev_c
;■20200126evで表示したイベント絵削除。プリント指定のみ。
param %ef,%tm,%rule
spdelete "ev:ev":print %ef,%tm,%rule
return

