;Cxg
@event
param event_mode,event_order
if event_mode=="event" then _operation_pass[stage][depth][0]=1
if event_mode<>"orgasm" then spsetvisible "orgasm",0
spset "event",892
sp "event:mask",{name="*#000000",a=230,x=0,y=0,z=3}
pict_order=event_order

;ėpp^[
if event_mode=="operation" then
	if num(mid(operation_order[num(btn_operation)],1,2))<>depth then
		%file="operation_"+stdp+"_"+btn_operation+"_"+operation_order[num(btn_operation)]
		if filechk("img\log\"+%file+".png")==1 then pict_order=%file
	endif
endif

;t@C`FbN
if diff<>"" and filechk("img\log\"+pict_order+diff+".png")==1 then pict_order=pict_order+diff

sp "event:pict",{name="img\log\"+pict_order+".png",a=255,x=0,y=0,z=2}
if event_mode=="avan" then se2 "921",0:print #f,1000
if event_mode=="event" then print #u,1000,"img\rule_06.png"
if event_mode=="operation" then print #u,1000,"img\rule_00.png"
if event_mode=="orgasm" then print #f,500
if event_mode=="orgasm" and orgmode==1 then return
eventskip=0
pagemax=0
batch=0
gosub "@"+event_order
spdeletes "event:btn"
selpstopall
if pageid=="stage" and event_mode=="event" and depth==11 then return
if playback==0 then spsetvisible "orgasm",1
return

;Cxgrd
@eventse
selpstopall
gosub "@eventse_"+str(stage)
return

;bZ[W
@mes
param %color,%text
pagemax=pagemax+1

;eLXg\
txt "event",%color,%text

;ob`
if batch==1 then return

;obNOL^
backlogpage=backlogpage+1
if backlogpage>999 then backlogpage=1
backlog_color[backlogpage]=%color
backlog_text[backlogpage]=%text
backlog_pict[backlogpage]=pict_order

;XLbv
if eventskip==1 then
	spdeletes "event:text"
	return
endif

;Cxg{^
gosub @event_btn

print #f,300

;{^`
@event_btndef
gosub @event_btn

;{^
@event_btnexec
btnid="event"
if playback_auto==1 then
	skip 2
	%len=zlen(%text)
	btnexec btn_event,"event",{func=1,wheel=1,shift=1,ctrl=1,automode=1,time=10000-_playback_speed*1000+%len*25}
else
	btnexec btn_event,"event",{func=1,wheel=1,shift=1,ctrl=1}
endif
if mid(btn_event,0,2)=="#F" then goto "@func_"+mid(btn_event,2,2)
btnclear "event"
skip 0

;obNO
if btn_event==#wu then
	spdeletes "event:btn"
	page=pagemax
	goto @event_backlog
endif

;vCobNj[J
if btn_event=="btn9" then
	se1 "004"
	if _playback_menu==0 then
		_playback_menu=1
	else
		_playback_menu=0
	endif
	gosub @event_btn
	goto @event_btndef
endif

;vCobNXs[h
if btn_event=="btn9_7" or btn_event=="btn9_8" then
	se1 "004"
	if btn_event=="btn9_7" then
		_playback_speed=_playback_speed-1
		if _playback_speed<0 then _playback_speed=0
	endif
	if btn_event=="btn9_8" then
		_playback_speed=_playback_speed+1
		if _playback_speed>10 then _playback_speed=10
	endif
	gosub @event_btn
	goto @event_btndef
endif

;I[gvCobN
if btn_event=="btn9_9" then
	se1 "004"
	if playback_auto==0 then
		playback_auto=1
	else
		playback_auto=0
	endif
	gosub @event_btn
	goto @event_btndef
endif

;vCobNXLbv
if mid(btn_event,0,5)=="btn9_" then
	playback_skip=num(mid(btn_event,5,1))
	btn_event="btn0"
endif

;XN[Vbg
if btn_event=="btn1" then
	gosub @shot
	goto @event_btndef
endif

spdeletes "event:text"

;XLbv
if btn_event=="btn0" then
	se1 "004"
	eventskip=1
	return
endif

se1 "007"
print #c
return

;Cxg{^
@event_btn
sp "event:btn0",{name={"img\panel\event_0.png","img\panel\event_0_on.png"},a=255,x=1860,y=655,z=0}
btn "event:btn0"
if pageid=="log" then
	sp "event:btn1",{name={"img\panel\event_1.png","img\panel\event_1_on.png"},a=255,x=1860,y=767,z=0}
	btn "event:btn1"
endif
if playback>=1 then
	sp "event:btn9",{name={"img\panel\event_9_"+str(playback_auto)+".png","img\panel\event_9_"+str(playback_auto)+"_on.png"},a=255,x=1860,y=879,z=0}
	btn "event:btn9"
	if _playback_menu==0 then
		spdeletes "event:btn9_"
	else
		sp "event:btn9_table",{name="img\panel\event_9_table.png",a=255,x=981,y=879,z=1}
		sp "event:btn9_1",{name={"img\panel\event_9_btn_1.png","img\panel\event_9_btn_1_on.png"},a=255,x=1546,y=908,z=0}
		btn "event:btn9_1"
		if playback<3 and playback_end==0 then
			sp "event:btn9_2",{name={"img\panel\event_9_btn_2.png","img\panel\event_9_btn_2_on.png"},a=255,x=1635,y=908,z=0}
			btn "event:btn9_2"
		else
			sp "event:btn9_2",{name="img\panel\event_9_btn_2_lock.png",a=255,x=1635,y=908,z=0}
		endif
		%btn3=0
		if playback==1 then
			if stage==1 and event_mode<>"avan" then %btn3=1
			if stage>1 then %btn3=1
		endif
		if playback==2 and event_mode<>"avan" then %btn3=1
		if %btn3==1 then
			sp "event:btn9_3",{name={"img\panel\event_9_btn_3.png","img\panel\event_9_btn_3_on.png"},a=255,x=1482,y=908,z=0}
			btn "event:btn9_3"
		else
			sp "event:btn9_3",{name="img\panel\event_9_btn_3_lock.png",a=255,x=1482,y=908,z=0}
		endif
		%btn4=0
		%btn5=0
		if playback==1 then
			if stage<5 then
				if _operation_pass[stage+1][1][0]==1 then %btn4=1
			endif
			if stage>1 then
				if _operation_pass[stage-1][1][0]==1 then %btn5=1
			endif
		endif
		if %btn4==1 then
			sp "event:btn9_4",{name={"img\panel\event_9_btn_4.png","img\panel\event_9_btn_4_on.png"},a=255,x=1699,y=908,z=0}
			btn "event:btn9_4"
		else
			sp "event:btn9_4",{name="img\panel\event_9_btn_4_lock.png",a=255,x=1699,y=908,z=0}
		endif
		if %btn5==1 then
			sp "event:btn9_5",{name={"img\panel\event_9_btn_5.png","img\panel\event_9_btn_5_on.png"},a=255,x=1418,y=908,z=0}
			btn "event:btn9_5"
		else
			sp "event:btn9_5",{name="img\panel\event_9_btn_5_lock.png",a=255,x=1418,y=908,z=0}
		endif
		if playback>=1 and playback<=2 and depth<11 and _operation_pass[stage][11][0]==1 then
			sp "event:btn9_6",{name={"img\panel\event_9_btn_6.png","img\panel\event_9_btn_6_on.png"},a=255,x=1763,y=908,z=0}
			btn "event:btn9_6"
		else
			sp "event:btn9_6",{name="img\panel\event_9_btn_6_lock.png",a=255,x=1763,y=908,z=0}
		endif
		if _playback_speed>0 then sp "event:btn9_bar",{name=">l200,6,"+str(_playback_speed)+",11,#00ff00,#282828",a=255,x=1041,y=930,z=0}
		if _playback_speed==0 then sp "event:btn9_bar",{name="*200,6,#282828",a=255,x=1041,y=930,z=0}
		sp "event:btn9_7",{name={"img\panel\event_9_btn_7.png","img\panel\event_9_btn_7_on.png"},a=255,x=1046,y=955,z=0}
		btn "event:btn9_7"
		sp "event:btn9_8",{name={"img\panel\event_9_btn_8.png","img\panel\event_9_btn_8_on.png"},a=255,x=1151,y=955,z=0}
		btn "event:btn9_8"
		sp "event:btn9_9",{name={"img\panel\event_9_btn_9_"+str(playback_auto)+".png","img\panel\event_9_btn_9_"+str(playback_auto)+"_on.png"},a=255,x=1264,y=908,z=0}
		btn "event:btn9_9"
		if playback_auto==1 then
			for %i=0 to 9
				%f[%i]="img\panel\event_9_btn_9_1_"+str(%i)+".png"
			next
			sp "event:btn9_9_blink",{name={%f[0],%f[1],%f[2],%f[3],%f[4],%f[5],%f[6],%f[7],%f[8],%f[9],"*130,50,#00000000"},a=255,x=1264,y=908,z=1,animtime=60-_playback_speed*5,animtype="round"}
		else
			spdelete "event:btn9_9_blink"
		endif
	endif
endif
return

;eLXg`
@txt
param %set,%color,%text
%line=1
for %i=0 to 999
	if mid(%text,%i,1)=="" then exit
	if mid(%text,%i,2)=="\n" then
		%line=%line+1
	endif
next
sp %set+":text"+str(pagemax),{name="*9400,1080,#00000000",x=980,y=0,z=0}
if batch==0 then
	%y=520-%line*20
else
	%y=30+line*36
	line=line+%line+1
endif
spformat %set+":text"+str(pagemax),0,%text+"{@/@}",{font="event_"+str(%color),x=0,y=%y,w=200,h=%line+1},{font="event_"+str(%color)+"_ruby"}
return

;obNO
@backlog_format
for backlogpage=1 to 999
	backlog_color[backlogpage]=0
	backlog_text[backlogpage]=""
	backlog_pict[backlogpage]=""
next
backlogpage=0
return

;obNO
@event_backlog
se1 "007"
backlog_reload "event",page,pagemax
@event_backlog_btnexec
btnid="event_backlog"
btnexec btn_event_backlog,"event",{func=1,wheel=1}
if mid(btn_event_backlog,0,2)=="#F" then goto "@func_"+mid(btn_event_backlog,2,2)
btnclear "event"
if btn_event_backlog==#wu then btn_event_backlog="btn1"
if btn_event_backlog==#wd then btn_event_backlog="btn2"
if btn_event_backlog=="btn1" then
	page=page-1
	if page==0 then page=1
	goto @event_backlog
endif
if page<pagemax and btn_event_backlog=="btn2" then
	page=page+1
	goto @event_backlog
endif
backlog_reload "event",pagemax,pagemax
spdelete "event:table"
spdelete "event:page"
spdelete "event:btn1"
spdelete "event:btn2"
gosub @event_btn
goto @event_btndef

;obNO[h
@backlog_reload
param %set,%page,%pagemax
sp %set+":table",{name="img\panel\system_1_table.png",a=255,x=960,y=303,z=0}
%len=zlen(zenkaku(str(%page))+"^"+zenkaku(str(%pagemax)))
sp %set+":page",{name="?i"+zenkaku(str(%page))+"^"+zenkaku(str(%pagemax))+"j,manual_head",a=255,x=1299+(5-%len)*15,y=267,z=0}
if %pagemax<backlogpage then %page=%page+backlogpage-%pagemax
sp %set+":pict",{name="img\log\"+backlog_pict[%page]+".png",a=255,x=0,y=0,z=1}
txt %set,backlog_color[%page],backlog_text[%page]
sp %set+":btn1",{name={"img\panel\system_1_btn_1.png","img\panel\system_1_btn_1_on.png"},a=255,x=1190,y=259,z=0}
sp %set+":btn2",{name={"img\panel\system_1_btn_2.png","img\panel\system_1_btn_2_on.png"},a=255,x=1534,y=259,z=0}
btn %set+":btn1"
btn %set+":btn2"
return

;XN[Vbg
@shot
se1 "100"
spdelete "event:shot"
sp "effect:flash",{name="*#ffffff",a=255,x=0,y=0,z=0}
print #c
spdelete "effect:flash"
print #f,500
%s=str(_shot)
zeropad 4,%s
spdeletes "event:btn"
getscreenshot "shot"
bsave "shot","screenshot\"+%s+".jpg",100
_shot=_shot+1
if _shot>9999 then _shot=0
sp "event:shot_pic0",{name="img\panel\event_1_table.png",a=255,x=15,y=15,z=0,animtime=3000,animtype="delete"}
sp "event:shot_pic1",{name="screenshot\"+%s+".jpg",a=255,cx=112,cy=70,xs=0.1,ys=0.1,rot=0,z=1,animtime=3000,animtype="delete"}
sp "event:shot_mes",{name="?yscreenshotztH_Ɂy"+%s+".jpgzۑ,caption",a=255,x=210,y=15,z=0,animtime=3000,animtype="delete"}
return
