512 lines
14 KiB
Text
512 lines
14 KiB
Text
;回想モード
|
|
@log
|
|
pageid="log"
|
|
playback=0
|
|
playback_skip=0
|
|
playback_auto=0
|
|
stage=1
|
|
st=str(stage)
|
|
depth=1
|
|
select=0
|
|
btn_operation="1"
|
|
org=0
|
|
orgnum=0
|
|
orgmode=0
|
|
diff=""
|
|
operation_pass_format 1
|
|
backlog_format
|
|
stage_spset
|
|
system_menu
|
|
se2 "921",0
|
|
btn_log=""
|
|
bgmchange=1
|
|
bgmfix=0
|
|
gosub @log_reload
|
|
print #u,1000,"img\rule_00.png"
|
|
gosub "@bgmdef_"+stdp
|
|
|
|
;ボタン定義
|
|
@log_btndef
|
|
system_btndef
|
|
btn "command:body"
|
|
btn "command:avan"
|
|
if orgmag>-1 then btn "command:org"
|
|
btn "command:eve"
|
|
for %i=1 to 5
|
|
if operation_caption[%i]<>"" and _operation_pass[stage][depth][%i]==1 then
|
|
btn "command:opa"+str(%i)
|
|
endif
|
|
next
|
|
for %i=1 to 5
|
|
if _mode==0 and %i>1 then exit
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if _operation_pass[%i][1][0]==1 and %i<>stage then
|
|
btn "command:sta"+%s
|
|
endif
|
|
next
|
|
for %i=1 to 5
|
|
if _mode==0 and %i>1 then exit
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if _operation_pass[%i][1][0]==1 and %i<>bgmchange then
|
|
btn "command:bgm"+%s
|
|
endif
|
|
next
|
|
if _mode==1 and _operation_pass[5][10][0]==1 and bgmchange<>6 then
|
|
btn "command:bgm06"
|
|
endif
|
|
if _operation_pass[1][11][0]==1 and bgmchange<>7 then
|
|
btn "command:bgm07"
|
|
endif
|
|
btn "command:fix"
|
|
for %i=1 to 11
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if _operation_pass[stage][%i][0]==1 and %i<>depth then
|
|
btn "command:dep"+%s
|
|
endif
|
|
next
|
|
for %i=1 to 3
|
|
btn "command:play"+str(%i)
|
|
next
|
|
|
|
;ボタン入力
|
|
@log_btnexec
|
|
btnid="log"
|
|
btnexec btn_log,"command",{func=1}
|
|
if mid(btn_log,0,2)=="#F" then goto "@func_"+mid(btn_log,2,2)
|
|
if btn_log=="" then goto @log_btnexec
|
|
btnclear "command"
|
|
|
|
;システム
|
|
if btn_log==#r then btn_log="sys4"
|
|
if mid(btn_log,0,3)=="sys" then system 0,num(mid(btn_log,3,1))
|
|
|
|
;キャラ表示
|
|
if btn_log=="body" then goto @log_body
|
|
|
|
;プレイバック
|
|
if mid(btn_log,0,4)=="play" then
|
|
se1 "001"
|
|
spset "event",892
|
|
sp "event:mask",{name="*#000000",a=230,x=0,y=0,z=2}
|
|
playback=num(mid(btn_log,4,1))
|
|
backlog_format
|
|
btn_log=""
|
|
for %stage=1 to 5
|
|
%skip=0
|
|
if _operation_pass[%stage][1][0]==0 then %skip=1
|
|
if playback_skip==1 then %skip=1
|
|
%flag=0
|
|
if %skip==0 and playback==1 then
|
|
%flag=1
|
|
stage=%stage
|
|
elseif %skip==0 and playback>=2 and %stage==stage then
|
|
%flag=1
|
|
endif
|
|
if %flag==1 then
|
|
playback_end=0
|
|
diff=""
|
|
if playback<=2 then
|
|
bgmfade 1000
|
|
depth=1
|
|
event "avan","avan_"+str(stage)
|
|
spdelete "event:pict"
|
|
if playback_skip==2 then playback_skip=0
|
|
endif
|
|
for %depth=1 to 11
|
|
%skip=0
|
|
if %stage>0 then
|
|
if _operation_pass[%stage][%depth][0]==0 then %skip=1
|
|
endif
|
|
if playback_skip==3 then %stage=%stage-1:stage=stage-1:%depth=11:depth=11:playback_skip=0
|
|
if playback_skip==5 then %stage=stage-2:playback_skip=4
|
|
if playback_skip==6 then %depth=11:depth=11:playback_skip=0
|
|
if playback_skip==1 or playback_skip==4 then %skip=1
|
|
%flag=0
|
|
if %skip==0 and playback<=2 then
|
|
%flag=1
|
|
depth=%depth
|
|
elseif %skip==0 and playback==3 and %depth==depth then
|
|
%flag=1
|
|
endif
|
|
if %flag==1 then
|
|
playback_end=0
|
|
if depth==11 then
|
|
if playback==1 then
|
|
if stage==5 then
|
|
playback_end=1
|
|
else
|
|
if _operation_pass[stage+1][1][0]==0 then playback_end=1
|
|
endif
|
|
endif
|
|
if playback==2 then playback_end=1
|
|
bgmfade 1000
|
|
depth=10
|
|
gosub @log_reload
|
|
pict_order=stdp
|
|
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=0}
|
|
print #u,1000,"img\rule_06.png"
|
|
trans_stdp
|
|
gosub "@depthdef_"+str(stage)+"10"
|
|
depth=11
|
|
spsetvisible "orgasm",1
|
|
print #f,300
|
|
orgasm_update 1,100-org
|
|
wait 1000
|
|
endif
|
|
trans_stdp
|
|
gosub "@bgmdef_"+stdp
|
|
if depth<11 then
|
|
if playback==1 or playback==2 then
|
|
if _operation_pass[stage][depth+1][0]==0 then playback_end=1
|
|
endif
|
|
eventse
|
|
pict_order=stdp
|
|
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=0}
|
|
gosub @log_reload
|
|
print #u,1000,"img\rule_06.png"
|
|
wait 500
|
|
endif
|
|
select=0
|
|
gosub @log_reload
|
|
event "event","event_"+stdp
|
|
spdelete "event:pict"
|
|
%flag=1
|
|
if depth==11 and orgmag==-1 then
|
|
%flag=0
|
|
if playback==1 and playback_end==0 then print #u,1000,"img\rule_06.png"
|
|
endif
|
|
if playback_skip==3 and depth==1 then %stage=stage-1:playback_skip=4
|
|
if playback_skip==3 and depth>=2 then %depth=depth-2:playback_skip=2
|
|
if playback_skip==5 then %stage=stage-2:playback_skip=4
|
|
if playback_skip==6 then %depth=10:depth=10:playback_skip=2
|
|
if playback_skip==1 or playback_skip==2 or playback_skip==4 then %flag=0
|
|
if %flag==1 then
|
|
gosub @operationdef
|
|
for select=1 to 5
|
|
%skip=0
|
|
if %stage>0 and %depth>0 then
|
|
if _operation_pass[%stage][%depth][select]==0 then %skip=1
|
|
endif
|
|
if operation_caption[select]=="" then %skip=1
|
|
if playback_skip==3 and depth==1 then %stage=stage-1:playback_skip=4
|
|
if playback_skip==3 and depth>=2 then %depth=depth-2:playback_skip=2
|
|
if playback_skip==5 then %stage=stage-2:playback_skip=4
|
|
if playback_skip==6 then %depth=10:depth=10:playback_skip=2
|
|
if playback_skip==1 or playback_skip==2 or playback_skip==4 then %skip=1
|
|
operation_order[select]=""
|
|
if %skip==0 then
|
|
print #u,1000,"img\rule_06.png"
|
|
btn_operation=str(select)
|
|
gosub @log_reload
|
|
event "operation","operation_"+operation_order[select]
|
|
pict_diff
|
|
if playback_skip==0 and orgmag>-1 then
|
|
spsetvisible "orgasm",1
|
|
print #f,300
|
|
orgasm_update 0,orgmag+select*5
|
|
spsetvisible "orgasm",0
|
|
print #f,300
|
|
endif
|
|
spdelete "event:pict"
|
|
%flag=1
|
|
if playback_skip>=1 then %flag=0
|
|
%end=0
|
|
if playback==1 and %stage==5 and %depth==11 then %end=1
|
|
if playback==2 and %depth==11 then %end=1
|
|
if playback==3 then %end=1
|
|
if %end==1 and select<=4 then
|
|
if _operation_pass[%stage][%depth][select+1]==0 then %flag=0
|
|
if operation_caption[select+1]=="" then %flag=0
|
|
endif
|
|
if %end==1 and select==5 then %flag=0
|
|
if %flag==1 then print #u,1000,"img\rule_06.png"
|
|
endif
|
|
next
|
|
endif
|
|
if playback_skip==2 then playback_skip=0
|
|
endif
|
|
next
|
|
endif
|
|
if playback_skip==4 then playback_skip=0
|
|
next
|
|
spsetdelete "event"
|
|
playback=0
|
|
playback_skip=0
|
|
playback_auto=0
|
|
spsetvisible "orgasm",1
|
|
gosub @log_reload
|
|
if bgmnum=="" then gosub "@bgmdef_"+stdp
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;アバン
|
|
if btn_log=="avan" then
|
|
spsetvisible "orgasm",0
|
|
event "avan","avan_"+st
|
|
spsetdelete "event"
|
|
spsetvisible "orgasm",1
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;オーガズム
|
|
if btn_log=="org" then
|
|
se1 "013"
|
|
trans_stdp
|
|
orgasm_update 0,100-org
|
|
spsetdelete "event"
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;イベント
|
|
if btn_log=="eve" then
|
|
se1 "001"
|
|
spcell "command:eve",1
|
|
print #c
|
|
trans_stdp
|
|
event "event","event_"+stdp
|
|
spsetdelete "event"
|
|
spcell "command:eve",0
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;アタック
|
|
if mid(btn_log,0,3)=="opa" then
|
|
se1 "001"
|
|
btn_operation=mid(btn_log,3,1)
|
|
event "operation","operation_"+operation_order[num(btn_operation)]
|
|
pict_diff
|
|
if depth==11 then gosub "@depthdef_"+stdp
|
|
if orgmag>-1 then orgasm_update 0,orgmag+num(mid(btn_log,3,1))*5
|
|
if depth<11 then character_body
|
|
spsetdelete "event"
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;ＳＴＡＧＥ変更
|
|
if mid(btn_log,0,3)=="sta" then
|
|
se1 "013"
|
|
stage=num(mid(btn_log,3,2))
|
|
st=str(stage)
|
|
depth=1
|
|
org=0
|
|
orgnum=0
|
|
selpstopall
|
|
if bgmfix==0 then
|
|
trans_stdp
|
|
gosub "@bgmdef_"+stdp
|
|
endif
|
|
diff=""
|
|
btn_operation="1"
|
|
gosub @log_reload
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
;ＢＧＭ変更
|
|
if mid(btn_log,0,3)=="bgm" then
|
|
se1 "013"
|
|
bgmfix=1
|
|
bgmchange=num(mid(btn_log,3,2))
|
|
if bgmchange<=5 then
|
|
gosub "@bgmdef_"+str(bgmchange)+"01"
|
|
elseif bgmchange==6 then
|
|
gosub @bgmdef_510
|
|
elseif bgmchange==7 then
|
|
gosub @bgmdef_111
|
|
endif
|
|
gosub @log_reload
|
|
endif
|
|
|
|
;ＢＧＭ固定
|
|
if btn_log=="fix" then
|
|
se1 "013"
|
|
if bgmfix==0 then
|
|
bgmfix=1
|
|
elseif bgmfix==1 then
|
|
bgmfix=0
|
|
endif
|
|
gosub @log_reload
|
|
endif
|
|
|
|
;ＤＥＰＴＨ変更
|
|
if mid(btn_log,0,3)=="dep" then
|
|
se1 "013"
|
|
depth=num(mid(btn_log,3,2))
|
|
selpstopall
|
|
if bgmfix==0 then
|
|
trans_stdp
|
|
gosub "@bgmdef_"+stdp
|
|
endif
|
|
eventse
|
|
btn_operation="1"
|
|
gosub @log_reload
|
|
print #u,1000,"img\rule_06.png"
|
|
endif
|
|
|
|
goto @log_btndef
|
|
|
|
;キャラ表示
|
|
@log_body
|
|
se1 "013"
|
|
spsetvisible "caption",0
|
|
spvisible "command:org",0
|
|
spsetvisible "orgasm",0
|
|
spset "event",892
|
|
sp "event:mask",{name="*960,1080,#000000",a=230,x=960,y=0,z=2}
|
|
pagemax=0
|
|
line=0
|
|
batch=1
|
|
gosub "@event_"+stdp
|
|
print #c
|
|
@log_body_btnexec
|
|
btnid="log_body"
|
|
sp "event:btn1",{name={"img\panel\event_1.png","img\panel\event_1_on.png"},a=255,x=1860,y=946,z=0}
|
|
btn "event:btn1"
|
|
btnexec btn_log_body,"event",{func=1}
|
|
if mid(btn_log_body,0,2)=="#F" then goto "@func_"+mid(btn_log_body,2,2)
|
|
btnclear "event"
|
|
if btn_log_body=="btn1" then
|
|
gosub @shot
|
|
goto @log_body_btnexec
|
|
endif
|
|
spsetvisible "caption",1
|
|
spvisible "command:org",1
|
|
spsetvisible "orgasm",1
|
|
spsetdelete "event"
|
|
goto @log_btndef
|
|
|
|
;リロード
|
|
@log_reload
|
|
st=str(stage)
|
|
trans_stdp
|
|
gosub "@depthdef_"+stdp
|
|
caption_stage
|
|
state_depth
|
|
if bgmnum=="407" then bgmchange=1
|
|
if bgmnum=="408" then bgmchange=2
|
|
if bgmnum=="409" then bgmchange=3
|
|
if bgmnum=="410" then bgmchange=4
|
|
if bgmnum=="411" then bgmchange=5
|
|
if bgmnum=="801" then bgmchange=6
|
|
if bgmnum=="214" then bgmchange=7
|
|
sp "orgasm:table",{name="img\panel\orgasm_table.png",a=255,x=28,y=995,z=1}
|
|
orgasm org
|
|
orgasm_orgnum
|
|
if orgmag>-1 then
|
|
sp "command:body",{name={"*960,1080,#00000000","img\panel\log_btn0_00_on.png"},a=255,x=0,y=0,z=1}
|
|
else
|
|
sp "command:body",{name={"*960,1080,#00000000","img\panel\log_btn0_00e_on.png"},a=255,x=0,y=0,z=1}
|
|
endif
|
|
sp "command:avan",{name={"*940,116,#00000000","img\panel\log_btn0_01_on.png"},a=255,x=10,y=10,z=0}
|
|
sp "command:org",{name={"*940,90,#00000000","img\panel\log_btn0_02_on.png"},a=255,x=10,y=980,z=0}
|
|
sp "command:face",{name="img\log\event_"+stdp+".png",a=255,cx=1582,cy=541,xs=0.5,ys=0.5,rot=0,z=2}
|
|
sp "command:blend",{name="img\panel\log_blend.png",a=128,x=1342,y=271,z=1,blend=1}
|
|
if playback>0 and select==0 then
|
|
sp "command:eve",{name="img\panel\log_btn0_03_on.png",a=255,x=1339,y=268,z=0}
|
|
else
|
|
sp "command:eve",{name={"*486,546,#00000000","img\panel\log_btn0_03_on.png"},a=255,x=1339,y=268,z=0}
|
|
endif
|
|
spdeletes "command:label"
|
|
spdeletes "command:opa"
|
|
spdeletes "command:lock"
|
|
for %i=1 to 5
|
|
operation_caption[%i]=""
|
|
diff_order[%i]=""
|
|
operation_order[%i]=stdp+"_"+str(%i)
|
|
gosub "@operationdef_"+stdp
|
|
if operation_caption[%i]<>"" and _operation_pass[stage][depth][%i]==1 then
|
|
%x=zlen(operation_caption[%i])-1
|
|
sp "command:label"+str(%i),{name="?"+operation_caption[%i]+",operation",a=255,x=1142-11*%x,y=193+112*%i,z=0}
|
|
if playback>0 and %i==select then
|
|
sp "command:opa"+str(%i),{name="img\panel\operation_btn_"+str(%i)+"_on.png",a=255,x=1000,y=151+112*%i,z=1}
|
|
else
|
|
sp "command:opa"+str(%i),{name={"img\panel\operation_btn_"+str(%i)+".png","img\panel\operation_btn_"+str(%i)+"_on.png"},a=255,x=1000,y=151+112*%i,z=1}
|
|
endif
|
|
elseif operation_caption[%i]<>"" and _operation_pass[stage][depth][%i]==0 then
|
|
%x=zlen(operation_caption[%i])-1
|
|
sp "command:label"+str(%i),{name="?"+operation_caption[%i]+",operation",a=60,x=1142-11*%x,y=193+112*%i,z=0}
|
|
sp "command:opa"+str(%i),{name="img\panel\operation_btn_"+str(%i)+".png",a=60,x=1000,y=151+112*%i,z=1}
|
|
sp "command:lock"+str(%i),{name="img\panel\operation_lock.png",a=255,x=1248,y=187+112*%i,z=0}
|
|
endif
|
|
next
|
|
for %i=1 to 5
|
|
if _mode==1 then
|
|
%flag=1
|
|
elseif _mode==0 and %i==1 then
|
|
%flag=1
|
|
else
|
|
%flag=0
|
|
endif
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if %flag==1 and _operation_pass[%i][1][0]==1 and %i<>stage then
|
|
sp "command:sta"+%s,{name={"img\panel\log_btn1_"+%s+".png","img\panel\log_btn1_"+%s+"_on.png"},a=255,x=892+84*%i,y=887,z=0}
|
|
elseif _operation_pass[%i][1][0]==1 and %i==stage then
|
|
sp "command:sta"+%s,{name="img\panel\log_btn1_"+%s+"_on.png",a=255,x=892+84*%i,y=887,z=0}
|
|
else
|
|
sp "command:sta"+%s,{name="img\panel\log_btn1_lock.png",a=255,x=892+84*%i,y=887,z=0}
|
|
endif
|
|
next
|
|
for %i=1 to 5
|
|
if _mode==1 then
|
|
%flag=1
|
|
elseif _mode==0 and %i==1 then
|
|
%flag=1
|
|
else
|
|
%flag=0
|
|
endif
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if %flag==1 and _operation_pass[%i][1][0]==1 and %i<>bgmchange then
|
|
sp "command:bgm"+%s,{name={"img\panel\log_btn2_"+%s+".png","img\panel\log_btn2_"+%s+"_on.png"},a=255,x=1340+70*%i,y=887,z=0}
|
|
elseif _operation_pass[%i][1][0]==1 and %i==bgmchange then
|
|
sp "command:bgm"+%s,{name="img\panel\log_btn2_"+%s+"_on.png",a=255,x=1340+70*%i,y=887,z=0}
|
|
else
|
|
sp "command:bgm"+%s,{name="img\panel\log_btn2_lock.png",a=255,x=1340+70*%i,y=887,z=0}
|
|
endif
|
|
next
|
|
if _mode==1 and _operation_pass[5][10][0]==1 and bgmchange<>6 then
|
|
sp "command:bgm06",{name={"img\panel\log_btn2_06.png","img\panel\log_btn2_06_on.png"},a=255,x=1340+70*6,y=887,z=0}
|
|
elseif _operation_pass[5][10][0]==1 and bgmchange==6 then
|
|
sp "command:bgm06",{name="img\panel\log_btn2_06_on.png",a=255,x=1340+70*6,y=887,z=0}
|
|
else
|
|
sp "command:bgm06",{name="img\panel\log_btn2_lock.png",a=255,x=1340+70*6,y=887,z=0}
|
|
endif
|
|
if _operation_pass[1][11][0]==1 and bgmchange<>7 then
|
|
sp "command:bgm07",{name={"img\panel\log_btn2_07.png","img\panel\log_btn2_07_on.png"},a=255,x=1340+70*7,y=887,z=0}
|
|
elseif _operation_pass[1][11][0]==1 and bgmchange==7 then
|
|
sp "command:bgm07",{name="img\panel\log_btn2_07_on.png",a=255,x=1340+70*7,y=887,z=0}
|
|
else
|
|
sp "command:bgm07",{name="img\panel\log_btn2_lock.png",a=255,x=1340+70*7,y=887,z=0}
|
|
endif
|
|
sp "command:fix",{name={"img\panel\log_btn2_fix_"+str(bgmfix)+".png","img\panel\log_btn2_fix_"+str(bgmfix)+"_on.png"},a=255,x=1468,y=858,z=1}
|
|
for %i=1 to 11
|
|
%s=str(%i)
|
|
zeropad 2,%s
|
|
if _operation_pass[stage][%i][0]==1 and %i<>depth then
|
|
sp "command:dep"+%s,{name={"img\panel\log_btn1_"+%s+".png","img\panel\log_btn1_"+%s+"_on.png"},a=255,x=892+84*%i,y=992,z=0}
|
|
elseif _operation_pass[stage][%i][0]==1 and %i==depth then
|
|
sp "command:dep"+%s,{name="img\panel\log_btn1_"+%s+"_on.png",a=255,x=892+84*%i,y=992,z=0}
|
|
else
|
|
sp "command:dep"+%s,{name="img\panel\log_btn1_lock.png",a=255,x=892+84*%i,y=992,z=0}
|
|
endif
|
|
next
|
|
for %i=1 to 3
|
|
if playback>0 and %i==playback then
|
|
sp "command:play"+str(%i),{name="img\panel\log_btn3_"+str(%i)+"_on.png",a=255,x=1339,y=-5+55*%i,z=0}
|
|
else
|
|
sp "command:play"+str(%i),{name={"img\panel\log_btn3_"+str(%i)+".png","img\panel\log_btn3_"+str(%i)+"_on.png"},a=255,x=1339,y=-5+55*%i,z=0}
|
|
endif
|
|
next
|
|
if btn_log<>"" then print #c
|
|
if depth<11 then
|
|
character_body
|
|
else
|
|
sp "character:body",{name="img\log\event_"+str(stage)+"11.png",a=255,x=0,y=0,z=0}
|
|
endif
|
|
sp "bg:bg",{name="img\panel\log_"+st+".png",a=255,x=0,y=0,z=0}
|
|
return
|