335 lines
9.5 KiB
Text
335 lines
9.5 KiB
Text
;イベント処理
|
||
@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
|
||
|
||
;再利用パターン
|
||
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
|
||
|
||
;差分ファイルチェック
|
||
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
|
||
|
||
;イベントＳＥ処理
|
||
@eventse
|
||
selpstopall
|
||
gosub "@eventse_"+str(stage)
|
||
return
|
||
|
||
;メッセージ処理
|
||
@mes
|
||
param %color,%text
|
||
pagemax=pagemax+1
|
||
|
||
;テキスト表示
|
||
txt "event",%color,%text
|
||
|
||
;バッチ処理
|
||
if batch==1 then return
|
||
|
||
;バックログ記録
|
||
backlogpage=backlogpage+1
|
||
if backlogpage>999 then backlogpage=1
|
||
backlog_color[backlogpage]=%color
|
||
backlog_text[backlogpage]=%text
|
||
backlog_pict[backlogpage]=pict_order
|
||
|
||
;スキップ
|
||
if eventskip==1 then
|
||
spdeletes "event:text"
|
||
return
|
||
endif
|
||
|
||
;イベントボタン
|
||
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
|
||
|
||
;バックログ
|
||
if btn_event==#wu then
|
||
spdeletes "event:btn"
|
||
page=pagemax
|
||
goto @event_backlog
|
||
endif
|
||
|
||
;プレイバックメニュー開閉
|
||
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
|
||
|
||
;プレイバックスピード
|
||
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
|
||
|
||
;オートプレイバック
|
||
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
|
||
|
||
;プレイバックスキップ
|
||
if mid(btn_event,0,5)=="btn9_" then
|
||
playback_skip=num(mid(btn_event,5,1))
|
||
btn_event="btn0"
|
||
endif
|
||
|
||
;スクリーンショット
|
||
if btn_event=="btn1" then
|
||
gosub @shot
|
||
goto @event_btndef
|
||
endif
|
||
|
||
spdeletes "event:text"
|
||
|
||
;スキップ
|
||
if btn_event=="btn0" then
|
||
se1 "004"
|
||
eventskip=1
|
||
return
|
||
endif
|
||
|
||
se1 "007"
|
||
print #c
|
||
return
|
||
|
||
;イベントボタン
|
||
@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
|
||
|
||
;テキスト描画
|
||
@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="*940,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=38,h=%line+1},{font="event_"+str(%color)+"_ruby"}
|
||
return
|
||
|
||
;バックログ初期化
|
||
@backlog_format
|
||
for backlogpage=1 to 999
|
||
backlog_color[backlogpage]=0
|
||
backlog_text[backlogpage]=""
|
||
backlog_pict[backlogpage]=""
|
||
next
|
||
backlogpage=0
|
||
return
|
||
|
||
;バックログ
|
||
@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
|
||
|
||
;バックログリロード
|
||
@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="?（"+zenkaku(str(%page))+"／"+zenkaku(str(%pagemax))+"）,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
|
||
|
||
;スクリーンショット
|
||
@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="?【screenshot】フォルダに【"+%s+".jpg】を保存,caption",a=255,x=210,y=15,z=0,animtime=3000,animtype="delete"}
|
||
return
|