;얽߁FLN^[Ƃ̓ǂݍ

@sin_ld

defsub ch,"NSSN"	;ʒuƃLƕ\ƕ\
defsub chf,"SSNS?N?S"	;Lƕ\ƕ\ԁA̓vgߗp#GtFNg[,,[摜]
defsub ch_k,"NSSN"	;ʒuƃLƕ\ƕ\ԁiLÂƂgj
defsub ch_k_c,"NN"	;GςAGAS
defsub ev,"SS?N?S"	;Cxgƕ\ԁA̓vgߗp#GtFNg[,,[摜]
defsub ev_c,"S?N?S"	;CxgGA̓vgߗp#GtFNg[,,[摜]

return

;G
@chf
;20180422OtBbN{Œ`BeLXgEBhẺɕ\
;@chf "C","ڂƂ",0,#F,300
;ׂʒúA蓮ŕύX肢܂B
%x=-150
%y=350
param %name,%file,%time,%ef,%tm,%rule
	if %name=="C" then
	%r="chr/reityeru/"
	%r2=".png"
		if %file=="ӂ" then %r=%r+"01"+%r2
		if %file=="{" then %r=%r+"02"+%r2
		if %file=="ڊJ" then %r=%r+"03"+%r2
		if %file=="" then %r=%r+"04"+%r2
		if %file=="ΊڊJ" 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=="ڊJĂ" then %r=%r+"13"+%r2
		if %file=="Ă" then %r=%r+"14"+%r2
		if %file=="ΊڊJĂ" then %r=%r+"15"+%r2
		if %file=="ΊĂ" then %r=%r+"16"+%r2
		if %file=="Ă" then %r=%r+"17"+%r2
	endif
	if %name=="ANA" then
	%r="chr/"
	%r2=".png"
		if %file=="ӂ" then %r=%r+"00_syu"+%r2
	endif
	if %time==0 then %time=300	;Kl
	if %time==-1 then sp "window:chr1000",{name=%r,x=%x,y=%y,z=10}:spdelete "window:chr1000":print #c:return	;Kl
;	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


;G
@ch
;20170918G{Œ`B
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=="ڊJ" then %r=%r+"b03"+%r2
		if %file=="ڂƂ" then %r=%r+"b04"+%r2
		if %file=="ΊڊJ" 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=="ڊJĂ" then %r=%r+"b13"+%r2
		if %file=="ڂƂĂ" then %r=%r+"b14"+%r2
		if %file=="ΊڊJĂ" then %r=%r+"b15"+%r2
		if %file=="ΊڕĂ" then %r=%r+"b16"+%r2
		if %file=="Ă" then %r=%r+"b17"+%r2
	endif
	if %name=="ANA" then
	%r="chr/"
	%r2=".png"
		if %file=="ӂ" then %r=%r+"00_syu"+%r2
	endif

	if %time==0 then %time=300	;Kl
	if %time==-1 then ld0 %pos,%r:return	;Kl
		;20170917͗G\݂̂łAKXύXȂ򂳂Ƃ
		ld %pos,%r,#F,%time
return


@ch_k
param %pos,%name,%file,%time
		;20190728bĂȂق͈Â
		if %pos==-1 then %spname="chr-1"
		if %pos==0 then %spname="chr0"
		if %pos==1 then %spname="chr1"
		ggetsize %w,%h ; Q[ʂ̑傫擾
		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
;L̑̌`i\ĉj
	if %name=="ANA" 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}	;mg[
		if %pos==0 then sp "chr_k0",{name=""+%r+"",x=%x,y=%y,z=%z+1,effect="monotone",color=#FF000000};mg[
		if %pos==1 then sp "chr_k1",{name=""+%r+"",x=%x,y=%y,z=%z+1,effect="monotone",color=#FF000000};mg[
		;bȂLz+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	;Kl
;	if %time==-1 then ld0 %pos,%r:return	;Kl
	if %time==-1 then return	;Kl

endif


return

@ch_k_c
;eBPDbςQDGRDGS
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)


		;20190728OցB
		%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
;20200126CxgACxgGt@CA̓vgߗpB
;@ev "","",#F,500
;CxgG̏ꍇ0ŃIbP[łB
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ŕ\CxgG폜Bvgŵ݁B
param %ef,%tm,%rule
spdelete "ev:ev":print %ef,%tm,%rule
return

