;

@omake
kaisou=1

spset "title",100
bg "bg/black.png",#f,500

;------直接後書に飛ぶ(体験版)
;bg "bg/00_ato.png",#f,500
;gosub @sin_novel_01
;goto @atogaki
;--------ここまで

;sp "title:start",{name={"?ＣＧ閲覧,menu2","?ＣＧ閲覧,menu1"},x=360,y=100,z=0}
;sp "title:s",{name={"?シーン回想,menu2","?シーン回想,menu1"},x=360,y=100+30*1,z=0}
;sp "title:t",{name={"?後書き,menu2","?後書き,menu1"},x=360,y=100+30*2,z=0}
;sp "title:start",{name={"sin_system\006.png","sin_system\006_.png"},x=100,y=100,z=0}
sp "title:cg",{name={"sin_system/title_sel_005/Cgmode_off.png","sin_system/title_sel_005/Cgmode_on.png"},x=100,y=100+75*0,z=0}
sp "title:s",{name={"sin_system/title_sel_005/Scenemode_off.png","sin_system/title_sel_005/Scenemode_on.png"},x=100,y=100+75*1,z=0}
sp "title:t",{name={"sin_system/title_sel_005/Comment_off.png","sin_system/title_sel_005/Comment_on.png"},x=100,y=100+75*2,z=0}
sp "title:cr",{name={"sin_system/title_sel_005/Credit_off.png","sin_system/title_sel_005/Credit_on.png"},x=100,y=100+75*3,z=0}
sp "title:re",{name={"?戻る,menu2","?戻る,menu1"},x=1280-100,y=720-100,z=0}



print #c
btnclear "title"
btn "title:cg"
btn "title:s"
btn "title:t"
btn "title:cr"
btn "title:re"

@omake_lp
btnexec %ret,"title"
;CGモード
if %ret=="cg" then spsetdelete "title" : goto @cg
;シーン回想
if %ret=="s" then spsetdelete "title" : goto @log
;後書き
if %ret=="t" then spsetdelete "title" : kaisou=0 : gosub @sin_novel_00 : goto @atogaki	;adv形式
;if %ret=="t" then spsetdelete "title" : kaisou=0 : gosub @sin_novel_01 : goto @atogaki	;ノベル形式
;クレジット
if %ret=="cr" then spsetdelete "title" : goto @cr


if %ret=="#R" or %ret=="re" then goto @title	;タイトルに戻る

goto @omake_lp

@cr
;絵でもなんでも。
click
goto @omake

@atogaki
;■後書き
;■ＡＤＶモードに変更（98.txt）
gosub @sin_novel_00
bg "bg/black.png",#f,500

とりあえず、なんだかミニＲＰＧ制作ものになってきましたが、ちゃんとノベルゲームも作れます！
コンフィグ画面に文字表示とか載せれそうですが、わたしはプログラミングができない。
とりあえず、更新が９月頃にされていたので、こっちもいろいろできたのでいったん公開します。
一番作りやすいけれど、ブラウザ対応はされない悲しい現実……。
ではー。
２０２５年１１月１日　しーんーせーかー

;■ウィンドウ隠す……はずが隠せてないぃー！！
window 0
;■ので消す
spsetdelete "window"
print #c
;■ＡＤＶモードに変更（98.txt）
gosub @sin_novel_00


;直接後書にきた場合はタイトルへ戻る
;goto @title
;ここまでそれ以外は↓

goto @omake






















;		ＣＧモード

@cg
spset "title",100
;背景画像設定
;bg "bg\00_ato.png",#f,500

;■初期ページ
sin_cg_page=1
;bg "bg\00_awa.png",#f,500
sp "title:start",{name="?ＣＧ閲覧,menu2",x=600,y=100,z=0}
;■ページ移動用。必要なければ消そう。
sin_cg_page_max=2	;■最大ページ数を指定
;sp "title:dn",{name="?▼,text",x=800-40,y=500-30,z=96}
;sp "title:up",{name="?▲,text",x=800-40,y=500-60,z=96}

;ページ数
@sin_cg_page_1
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
;sp "title:page",{name="?１／２,text",x=500+50,y=600-30,z=96}
%sin_cg_page_max=str(sin_cg_page_max)
%sin_cg_page=str(sin_cg_page)
;sp "title:page",{name="?"+%sin_cg_page+"／"+%sin_cg_page_max+",text",x=500+50,y=600-30,z=96}
bg "bg/00/sin_.png",#f,500
spset "title",100
sp "title:start",{name="?ＣＧ閲覧,text",x=1280-300,y=50,z=0}
sp "title:re",{name={"?戻る,menu2","?戻る,menu1"},x=1280-100,y=720-100,z=0}

;■NS2はbg\01,bg/01両方使えますが、読み込み時はゲーム内で使用しているほうでないと記録されないので注意！
	%fileflag[1]=FCHK("bg/ev/001_a.jpg")
	%fileflag[2]=FCHK("bg/ev/004_d.jpg")
	%fileflag[3]=FCHK("bg/ev/004_f.jpg")
	%fileflag[4]=FCHK("bg/ev/007_b.jpg")
	%fileflag[5]=FCHK("bg/ev/007_e.jpg")
	%fileflag[6]=FCHK("bg/ev/008_e.jpg")
	%fileflag[7]=FCHK("bg/ev/009_c.jpg")
	%fileflag[8]=FCHK("bg/ev/009_g.jpg")
	%fileflag[9]=FCHK("bg/ev/010_a.jpg")
	%fileflag[10]=FCHK("bg/ev/013_e.jpg")
	%fileflag[11]=FCHK("bg/ev/014_a.jpg")
	%fileflag[12]=FCHK("bg/ev/014_b.jpg")
;	%fileflag[13]=FCHK("bg/ev/013_e.jpg")
;	%fileflag[14]=FCHK("bg/ev/014_b.jpg")

;■見てないけれど見たことにしたい場合は、シーン回想と同じくlinsert→lchkで実装すると楽。
;■finsert→fchkでもいい。
;■fchkでは一度でも見ていないと見たことにならないので。注意
spset "title",100
;bg "bg/00/omake.jpg",#f,500
sp "title:start",{name="?ＣＧ閲覧,text",x=1280-300,y=50,z=0}
sp "title:re",{name={"?戻る,menu2","?戻る,menu1"},x=1280-100,y=720-100,z=0}
;sp "title:start",{name="?ＣＧ閲覧,menu2",x=600,y=100,z=0}
;bg "sin_system\title_t.png",#f,500	;タイトル画面

;■条件を満たしてない場合の画像
samx=0
samy=0
for %0=1 to 12
cg_name="title:"
cg_name_2=STR(%0)
cg_name_1=cg_name+cg_name_2
	sp cg_name_1,{name="bg\00_sam.png",x=50+160*samx,y=150+123*samy,z=0}
samx=samx+1
if samx==5 then samx=0:samy=samy+1
next
;■条件を満たした場合の画像
if %fileflag[1]==1 then %name="title:1" : sp %name,{name="bg/cg/cg_on/001_a.jpg",x=50+160*0,y=150+123*0,z=0}
if %fileflag[2]==1 then %name="title:2" : sp %name,{name="bg/cg/cg_on/004_a.jpg",x=50+160*1,y=150+123*0,z=0}
if %fileflag[3]==1 then %name="title:3" : sp %name,{name="bg/cg/cg_on/004_e.jpg",x=50+160*2,y=150+123*0,z=0}
if %fileflag[4]==1 then %name="title:4" : sp %name,{name="bg/cg/cg_on/007_a.jpg",x=50+160*3,y=150+123*0,z=0}
if %fileflag[5]==1 then %name="title:5" : sp %name,{name="bg/cg/cg_on/007_c.jpg",x=50+160*4,y=150+123*0,z=0}

if %fileflag[6]==1 then %name="title:6" : sp %name,{name="bg/cg/cg_on/008_a.jpg",x=50+160*0,y=150+123*1,z=0}
if %fileflag[7]==1 then %name="title:7" : sp %name,{name="bg/cg/cg_on/009_a.jpg",x=50+160*1,y=150+123*1,z=0}
if %fileflag[8]==1 then %name="title:8" : sp %name,{name="bg/cg/cg_on/009_d.jpg",x=50+160*2,y=150+123*1,z=0}
if %fileflag[9]==1 then %name="title:9" : sp %name,{name="bg/cg/cg_on/010_a.jpg",x=50+160*3,y=150+123*1,z=0}
if %fileflag[10]==1 then %name="title:10" : sp %name,{name="bg/cg/cg_on/013_a.jpg",x=50+160*4,y=150+123*1,z=0}

if %fileflag[11]==1 then %name="title:11" : sp %name,{name="bg/cg/cg_on/014_a.jpg",x=50+160*0,y=150+123*2,z=0}
if %fileflag[12]==1 then %name="title:12" : sp %name,{name="bg/cg/cg_on/014_b.jpg",x=50+160*1,y=150+123*2,z=0}
;if %fileflag[13]==1 then %name="title:13" : sp %name,{name="bg/cg/cg_on/013_a.jpg",x=50+160*0,y=150+123*1,z=0}
;if %fileflag[14]==1 then %name="title:14" : sp %name,{name="bg/cg/cg_on/014_a.jpg",x=50+160*1,y=150+123*1,z=0}
;■ページ数入れる
sin_cg_page=1
%r=str(sin_cg_page)
;■戻り先のラベル設定
sin_cg_l="@sin_cg_page_"+%r
;■表示まで飛ぶ
goto @sin_cg_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;ページ数
@sin_cg_page_2
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
;sp "title:page",{name="?１／２,text",x=500+50,y=600-30,z=96}
%sin_cg_page_max=str(sin_cg_page_max)
%sin_cg_page=str(sin_cg_page)
sp "title:page",{name="?"+%sin_cg_page+"／"+%sin_cg_page_max+",text",x=500+50,y=600-30,z=96}

;■NS2はbg\01,bg/01両方使えますが、読み込み時はゲーム内で使用しているほうでないと記録されないので注意！
	%fileflag[1]=FCHK("bg/ev/09/01.png")
	%fileflag[2]=FCHK("bg/ev/10/01.png")
	%fileflag[3]=FCHK("bg/ev/11/01.png")
	%fileflag[4]=FCHK("bg/ev/12/01.png")
	%fileflag[5]=FCHK("bg/ev/13/01.png")
	%fileflag[6]=FCHK("bg/ev/14/01.png")
	%fileflag[7]=FCHK("bg/ev/15/01.png")
	%fileflag[8]=FCHK("bg/ev/16/01.png")

;■見てないけれど見たことにしたい場合は、シーン回想と同じくlinsert→lchkで実装すると楽。
;■finsert→fchkでもいい。
;■fchkでは一度でも見ていないと見たことにならないので。注意
spset "title",100
sp "title:start",{name="?ＣＧ閲覧,menu2",x=600,y=100,z=0}
bg "sin_system\title_t.png",#f,500	;タイトル画面

;■条件を満たしてない場合の画像
samx=0
samy=0
for %0=1 to 8
cg_name="title:"
cg_name_2=STR(%0)
cg_name_1=cg_name+cg_name_2
	sp cg_name_1,{name="bg\00_sam.png",x=50+160*samx,y=150+123*samy,z=0}
samx=samx+1
if samx==4 then samx=0:samy=samy+1
next
;■条件を満たした場合の画像
if %fileflag[1]==1 then %name="title:1" : sp %name,{name="bg/cg/cg_09.png",x=50+160*0,y=150+123*0,z=0}
if %fileflag[2]==1 then %name="title:2" : sp %name,{name="bg/cg/cg_10.png",x=50+160*1,y=150+123*0,z=0}
if %fileflag[3]==1 then %name="title:3" : sp %name,{name="bg/cg/cg_11.png",x=50+160*2,y=150+123*0,z=0}
if %fileflag[4]==1 then %name="title:4" : sp %name,{name="bg/cg/cg_12.png",x=50+160*3,y=150+123*0,z=0}
if %fileflag[5]==1 then %name="title:5" : sp %name,{name="bg/cg/cg_13.png",x=50+160*0,y=150+123*1,z=0}
if %fileflag[6]==1 then %name="title:6" : sp %name,{name="bg/cg/cg_14.png",x=50+160*1,y=150+123*1,z=0}
if %fileflag[7]==1 then %name="title:7" : sp %name,{name="bg/cg/cg_15.png",x=50+160*2,y=150+123*1,z=0}
if %fileflag[8]==1 then %name="title:8" : sp %name,{name="bg/cg/cg_16.png",x=50+160*3,y=150+123*1,z=0}
;■ページ数入れる
sin_cg_page=2
%r=str(sin_cg_page)
;■戻り先のラベル設定
sin_cg_l="@sin_cg_page_"+%r
;■表示まで飛ぶ
goto @sin_cg_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------

@sin_cg_hyouzi
print #c
btnclear "title"

;■ページ移動。必要なければ消そう
btn "title:dn"
btn "title:up"
;---------------------------------
if %fileflag[1]==1 then btn "title:1"
if %fileflag[2]==1 then btn "title:2"
if %fileflag[3]==1 then btn "title:3"
if %fileflag[4]==1 then btn "title:4"
if %fileflag[5]==1 then btn "title:5"
if %fileflag[6]==1 then btn "title:6"
if %fileflag[7]==1 then btn "title:7"
if %fileflag[8]==1 then btn "title:8"
if %fileflag[9]==1 then btn "title:9"
if %fileflag[10]==1 then btn "title:10"
if %fileflag[11]==1 then btn "title:11"
if %fileflag[12]==1 then btn "title:12"
btn "title:re"

@cg_lp
btnexec %ret,"title"
if %ret=="#R" or %ret=="re" then goto @omake	;タイトルに戻る
;■ページ移動用。必要なければ消そう。
if %ret=="dn" then
	sin_cg_page=sin_cg_page-1
	if sin_cg_page==0 then sin_cg_page=1
	%0="@sin_cg_page_"+str(sin_cg_page)
	goto %0
endif
if %ret=="up" then
	sin_cg_page=sin_cg_page+1
	if sin_cg_page>sin_cg_page_max then sin_cg_page=sin_cg_page_max
	%0="@sin_cg_page_"+str(sin_cg_page)
	goto %0
endif
;-----------------------------------------
;■sin_cg_pageはページ数。
					if %ret=="1" and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/001_a.jpg",#f,500
click
;bg "bg/ev/001b.jpg",#f,500
;click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="2"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/004_a.jpg",#f,500
click
bg "bg/ev/004_b.jpg",#f,500
click
bg "bg/ev/004_c.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="3"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/004_e.jpg",#f,500
click
bg "bg/ev/004_f.jpg",#f,500
click
;４から
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="4"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/007_a.jpg",#f,500
click
bg "bg/ev/007_b.jpg",#f,500
click
goto sin_cg_l
					endif

;------------------------------------------------------------
					if %ret=="5"  and sin_cg_page==1 then
spsetdelete "title"
;5
bg "bg/ev/007_c.jpg",#f,500
click
bg "bg/ev/007_d.jpg",#f,500
click
bg "bg/ev/007_e.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="6"  and sin_cg_page==1 then
spsetdelete "title"
;6
bg "bg/ev/008_a.jpg",#f,500
click
bg "bg/ev/008_b.jpg",#f,500
click
bg "bg/ev/008_c.jpg",#f,500
click
bg "bg/ev/008_d.jpg",#f,500
click
bg "bg/ev/008_e.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="7"  and sin_cg_page==1 then
spsetdelete "title"
;7
bg "bg/ev/009_a.jpg",#f,500
click
bg "bg/ev/009_b.jpg",#f,500
click
bg "bg/ev/009_c.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="8"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/009_d.jpg",#f,500
click
bg "bg/ev/009_e.jpg",#f,500
click
bg "bg/ev/009_f.jpg",#f,500
click
bg "bg/ev/009_g.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="9"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/010_a.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="10"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/013_a.jpg",#f,500
click
bg "bg/ev/013_b.jpg",#f,500
click
bg "bg/ev/013_c.jpg",#f,500
click
bg "bg/ev/013_d.jpg",#f,500
click
bg "bg/ev/013_e.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="11"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/014_a.jpg",#f,500
click
goto sin_cg_l
					endif
;------------------------------------------------------------
					if %ret=="12"  and sin_cg_page==1 then
spsetdelete "title"
bg "bg/ev/014_b.jpg",#f,500
click
goto sin_cg_l
					endif

;■共通処理
goto @cg_lp



























;		シーン回想モード


@log
goto @log_text_01	;■テキストログへ。
spset "title",100

;■背景画像設定
;bg "bg/00_ato.png",#f,500


;■初期ページ
sin_log_page=1

;sp "title:start",{name="?シーン回想,menu2",x=50,y=50,z=0}
;■ページ移動用。必要なければ消そう。
sin_log_page_max=3	;■最大ページ数を指定
sp "title:dn",{name="?▼,text",x=1280-40,y=640-30,z=96}
sp "title:up",{name="?▲,text",x=1280-40,y=640-60,z=96}

;ページ数
@sin_log_page_1
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
sp "title:page",{name="?１／３,text",x=1280-200,y=720-50,z=96}
%sin_log_page_max=str(sin_log_page_max)
%sin_log_page=str(sin_log_page)
sp "title:page",{name="?"+%sin_log_page+"／"+%sin_log_page_max+",text",x=1280-200,y=720-50,z=96}
sp "title:start",{name="?シーン回想,text",x=1280-300,y=50,z=0}
bg "bg/00/sin_.png",#f,500

	%fileflag[1]=lchk(@sin_story_001_end)
	%fileflag[2]=lchk(@sin_story_002_end)
	%fileflag[3]=lchk(@sin_story_003_end)
	%fileflag[4]=lchk(@sin_story_004_end)
	
	%fileflag[5]=lchk(@sin_story_005_end)
	%fileflag[6]=lchk(@sin_story_006_end)
	%fileflag[7]=lchk(@sin_story_007_end)
	%fileflag[8]=lchk(@sin_story_008_end)

	%fileflag[9]=lchk(@sin_story_009_end)
	%fileflag[10]=lchk(@sin_story_010_end)
	%fileflag[11]=lchk(@sin_story_011_end)
	%fileflag[12]=lchk(@sin_story_012_end)
;	if _floorc>=1 then %fileflag[2]=1

samx=0
samy=0
sp "title:1",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:2",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:3",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:4",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=1
sp "title:5",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:6",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:7",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:8",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=2
sp "title:9",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:10",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:11",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:12",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}


if %fileflag[1]==1 then %name="title:1" : sp %name,{name="bg/log/log_01.png",x=50+200*0,y=150+123*0,z=0}
if %fileflag[2]==1 then %name="title:2" : sp %name,{name="bg/log/log_02.png",x=100+200*1,y=150+123*0,z=0}
if %fileflag[3]==1 then %name="title:3" : sp %name,{name="bg/log/log_03.png",x=150+200*2,y=150+123*0,z=0}
if %fileflag[4]==1 then %name="title:4" : sp %name,{name="bg/log/log_04.png",x=200+200*3,y=150+123*0,z=0}
if %fileflag[5]==1 then %name="title:5" : sp %name,{name="bg/log/log_05.png",x=50+200*0,y=150+123*1,z=0}
if %fileflag[6]==1 then %name="title:6" : sp %name,{name="bg/log/log_06.png",x=100+200*1,y=150+123*1,z=0}
if %fileflag[7]==1 then %name="title:7" : sp %name,{name="bg/log/log_07.png",x=150+200*2,y=150+123*1,z=0}
if %fileflag[8]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
if %fileflag[9]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=50+200*3,y=150+123*1,z=0}
if %fileflag[10]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=100+200*3,y=150+123*1,z=0}
if %fileflag[11]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=150+200*3,y=150+123*1,z=0}
if %fileflag[12]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
;■ページ数入れる
sin_log_page=1
%r=str(sin_log_page)
;■戻り先のラベル設定
sin_log_l="@sin_log_page_"+%r
;■表示まで飛ぶ
goto @sin_log_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;ページ数
@sin_log_page_2
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
sp "title:page",{name="?２／３,text",x=1280-200,y=720-50,z=96}
%sin_log_page_max=str(sin_log_page_max)
%sin_log_page=str(sin_log_page)
sp "title:page",{name="?"+%sin_log_page+"／"+%sin_log_page_max+",text",x=1280-200,y=720-50,z=96}
sp "title:start",{name="?シーン回想,text",x=1280-300,y=50,z=0}
bg "bg/00/sin_.png",#f,500

	%fileflag[1]=lchk(@sin_story_013_end)
	%fileflag[2]=lchk(@sin_story_014_end)
	%fileflag[3]=lchk(@sin_story_015_end)
	%fileflag[4]=lchk(@sin_story_016_end)
	
	%fileflag[5]=lchk(@sin_story_027_end)
	%fileflag[6]=lchk(@sin_story_006_end)
	%fileflag[7]=lchk(@sin_story_007_end)
	%fileflag[8]=lchk(@sin_story_008_end)

	%fileflag[9]=lchk(@sin_story_009_end)
	%fileflag[10]=lchk(@sin_story_010_end)
	%fileflag[11]=lchk(@sin_story_011_end)
	%fileflag[12]=lchk(@sin_story_012_end)
;	if _floorc>=1 then %fileflag[2]=1

samx=0
samy=0
sp "title:1",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:2",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:3",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:4",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=1
sp "title:5",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:6",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:7",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:8",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=2
sp "title:9",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:10",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:11",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:12",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}


if %fileflag[1]==1 then %name="title:1" : sp %name,{name="bg/log/log_01.png",x=50+200*0,y=150+123*0,z=0}
if %fileflag[2]==1 then %name="title:2" : sp %name,{name="bg/log/log_02.png",x=100+200*1,y=150+123*0,z=0}
if %fileflag[3]==1 then %name="title:3" : sp %name,{name="bg/log/log_03.png",x=150+200*2,y=150+123*0,z=0}
if %fileflag[4]==1 then %name="title:4" : sp %name,{name="bg/log/log_04.png",x=200+200*3,y=150+123*0,z=0}
if %fileflag[5]==1 then %name="title:5" : sp %name,{name="bg/log/log_05.png",x=50+200*0,y=150+123*1,z=0}
if %fileflag[6]==1 then %name="title:6" : sp %name,{name="bg/log/log_06.png",x=100+200*1,y=150+123*1,z=0}
if %fileflag[7]==1 then %name="title:7" : sp %name,{name="bg/log/log_07.png",x=150+200*2,y=150+123*1,z=0}
if %fileflag[8]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
if %fileflag[9]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=50+200*3,y=150+123*1,z=0}
if %fileflag[10]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=100+200*3,y=150+123*1,z=0}
if %fileflag[11]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=150+200*3,y=150+123*1,z=0}
if %fileflag[12]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
;■ページ数入れる
sin_log_page=2
%r=str(sin_log_page)
;■戻り先のラベル設定
sin_log_l="@sin_log_page_"+%r
;■表示まで飛ぶ
goto @sin_log_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;ページ数
@sin_log_page_3
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
sp "title:page",{name="?３／３,text",x=1280-200,y=720-50,z=96}
%sin_log_page_max=str(sin_log_page_max)
%sin_log_page=str(sin_log_page)
sp "title:page",{name="?"+%sin_log_page+"／"+%sin_log_page_max+",text",x=1280-200,y=720-50,z=96}
sp "title:start",{name="?シーン回想,text",x=1280-300,y=50,z=0}
bg "bg/00/sin_.png",#f,500

	%fileflag[1]=lchk(@sin_story_001_end)
	%fileflag[2]=lchk(@sin_story_002_end)
	%fileflag[3]=lchk(@sin_story_003_end)
	%fileflag[4]=lchk(@sin_story_004_end)
	
	%fileflag[5]=lchk(@sin_story_005_end)
	%fileflag[6]=lchk(@sin_story_006_end)
	%fileflag[7]=lchk(@sin_story_007_end)
	%fileflag[8]=lchk(@sin_story_008_end)

	%fileflag[9]=lchk(@sin_story_009_end)
	%fileflag[10]=lchk(@sin_story_010_end)
	%fileflag[11]=lchk(@sin_story_011_end)
	%fileflag[12]=lchk(@sin_story_012_end)
;	if _floorc>=1 then %fileflag[2]=1
;余分な画像削除する
for %0=4 to 12
	%1=str(%0)
	name="title:"+%1:spdelete name:print #C
next

samx=0
samy=0
sp "title:1",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:2",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:3",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:4",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=1
sp "title:5",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:6",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:7",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:8",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}
samx=0
samy=2
sp "title:9",{name="bg/00_sam.png",x=50+200*samx,y=150+123*samy,z=0}
samx=1
sp "title:10",{name="bg/00_sam.png",x=100+200*samx,y=150+123*samy,z=0}
samx=2
sp "title:11",{name="bg/00_sam.png",x=150+200*samx,y=150+123*samy,z=0}
samx=3
sp "title:12",{name="bg/00_sam.png",x=200+200*samx,y=150+123*samy,z=0}


if %fileflag[1]==1 then %name="title:1" : sp %name,{name="bg/log/log_01.png",x=50+200*0,y=150+123*0,z=0}
if %fileflag[2]==1 then %name="title:2" : sp %name,{name="bg/log/log_02.png",x=100+200*1,y=150+123*0,z=0}
if %fileflag[3]==1 then %name="title:3" : sp %name,{name="bg/log/log_03.png",x=150+200*2,y=150+123*0,z=0}
if %fileflag[4]==1 then %name="title:4" : sp %name,{name="bg/log/log_04.png",x=200+200*3,y=150+123*0,z=0}
if %fileflag[5]==1 then %name="title:5" : sp %name,{name="bg/log/log_05.png",x=50+200*0,y=150+123*1,z=0}
if %fileflag[6]==1 then %name="title:6" : sp %name,{name="bg/log/log_06.png",x=100+200*1,y=150+123*1,z=0}
if %fileflag[7]==1 then %name="title:7" : sp %name,{name="bg/log/log_07.png",x=150+200*2,y=150+123*1,z=0}
if %fileflag[8]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
if %fileflag[9]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=50+200*3,y=150+123*1,z=0}
if %fileflag[10]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=100+200*3,y=150+123*1,z=0}
if %fileflag[11]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=150+200*3,y=150+123*1,z=0}
if %fileflag[12]==1 then %name="title:8" : sp %name,{name="bg/log/log_08.png",x=200+200*3,y=150+123*1,z=0}
;■ページ数入れる
sin_log_page=3
%r=str(sin_log_page)
;■戻り先のラベル設定
sin_log_l="@sin_log_page_"+%r
;■表示まで飛ぶ
goto @sin_log_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------

@sin_log_hyouzi


print #c
btnclear "title"
btn "title:dn"
btn "title:up"


if %fileflag[1]==1 then btn "title:1"
if %fileflag[2]==1 then btn "title:2"
if %fileflag[3]==1 then btn "title:3"
if %fileflag[4]==1 then btn "title:4"
if %fileflag[5]==1 then btn "title:5"
if %fileflag[6]==1 then btn "title:6"
if %fileflag[7]==1 then btn "title:7"
if %fileflag[8]==1 then btn "title:8"
if %fileflag[9]==1 then btn "title:9"
if %fileflag[10]==1 then btn "title:10"
if %fileflag[11]==1 then btn "title:11"
if %fileflag[12]==1 then btn "title:12"


@log_lp
btnexec %ret,"title"
if %ret=="#R" or %ret=="re" then goto @omake	;タイトルに戻る
;■ページ移動用。必要なければ消そう。
if %ret=="dn" then
	sin_log_page=sin_log_page-1
	if sin_log_page==0 then sin_log_page=1
	%0="@sin_log_page_"+str(sin_log_page)
	goto %0
endif
if %ret=="up" then
	sin_log_page=sin_log_page+1
	if sin_log_page>sin_log_page_max then sin_log_page=sin_log_page_max
	%0="@sin_log_page_"+str(sin_log_page)
	goto %0
endif
;-----------------------------------------
;■sin_log_pageはページ数。

if %ret=="1" and sin_log_page==1 then spsetvisible "title",0 : gosub @sin_story_001 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="2" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_002 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="3" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_003 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="4" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_004 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="5" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_005 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="6" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_006 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="7" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_007 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="8" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_008 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="9" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_009 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="10" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_010 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="11" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_011 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="12" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_012 : gosub @sin_window_kesu : print #c : goto sin_log_l

;--------------------------------------------------------------------■

if %ret=="1" and sin_log_page==2 then spsetvisible "title",0 : gosub @sin_story_013 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="2" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_014 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="3" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_015 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="4" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_016 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="5" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_017 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="6" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_018 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="7" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_019 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="8" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_020 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="9" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_021 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="10" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_022 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="11" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_023 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="12" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_024 : gosub @sin_window_kesu : print #c : goto sin_log_l

;---------------------------------------------------------------------■

if %ret=="1" and sin_log_page==2 then spsetvisible "title",0 : gosub @sin_story_025 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="2" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_026 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="3" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_027 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="4" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_016 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="5" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_017 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="6" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_018 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="7" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_019 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="8" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_020 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="9" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_021 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="10" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_022 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="11" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_023 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="12" and sin_log_page==2 then  spsetvisible "title",0 : gosub @sin_story_024 : gosub @sin_window_kesu : print #c : goto sin_log_l


;■共通処理
goto @log_lp







;■テキストウィンドウ消去
@sin_window_kesu
spsetdelete "window"	;■ウィンドウ消す
;■ＡＤＶモードに変更（98.txt）
gosub @sin_novel_00
return





@log_text_01

spset "title",100

;■背景画像設定
;bg "bg/00_ato.png",#f,500


;■初期ページ
sin_log_page=1
spset "title",100
sp "title:start",{name="?シーン回想,menu2",x=600,y=100,z=0}
sp "title:re",{name={"?戻る,menu2","?戻る,menu1"},x=1280-100,y=720-100,z=0}
;■ページ移動用。必要なければ消そう。
sin_log_page_max=2	;■最大ページ数を指定
;sp "title:dn",{name="?▼,text",x=800-40,y=500-30,z=96}
;sp "title:up",{name="?▲,text",x=800-40,y=500-60,z=96}

;ページ数
@sin_log_t_page_1
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
;sp "title:page",{name="?１／２,text",x=500+50,y=600-30,z=96}
;%sin_log_page_max=str(sin_log_page_max)
;%sin_log_page=str(sin_log_page)
;sp "title:page",{name="?"+%sin_log_page+"／"+%sin_log_page_max+",text",x=500+50,y=600-30,z=96}
spset "title",100
sp "title:re",{name={"?戻る,menu2","?戻る,menu1"},x=1280-100,y=720-100,z=0}
sp "title:start",{name="?シーン回想,text",x=1280-300,y=50,z=0}
bg "bg/00/sin_.png",#f,500


	%fileflag[1]=lchk(@sin_story_001_end)
	%fileflag[2]=lchk(@sin_story_002_end)
	%fileflag[3]=lchk(@sin_story_003_end)
	%fileflag[4]=lchk(@sin_story_004_end)
	%fileflag[5]=lchk(@sin_story_005_end)
	%fileflag[6]=lchk(@sin_story_006_end)
	%fileflag[7]=lchk(@sin_story_007_end)
	%fileflag[8]=lchk(@sin_story_008_end)
	%fileflag[9]=lchk(@sin_story_009_end)
	%fileflag[10]=lchk(@sin_story_010_end)
	%fileflag[11]=lchk(@sin_story_011_end)
	%fileflag[12]=lchk(@sin_story_012_end)
	%fileflag[13]=lchk(@sin_story_013_end)
	%fileflag[14]=lchk(@sin_story_014_kaisoyou)
	%fileflag[15]=lchk(@sin_story_015_end_kaihou)

;下地・画像
%x=50
%y=50
%1=1
for %0=1 to 15
;%name10="title:bg"+str(%0)
;sp %name10,{name={"bg/log/log_bg.jpg"},x=%x,y=%y+70*%1,z=0}
;まだ見てない場合
%name="title:"+str(%0):sp %name,{name={"?？？？？？,menu0"},x=%x+10,y=%y+20+70*%1,z=0}
%1=%1+1
;入り切らなかった分の切り分け
if %1==9 then %x=1280/2:%1=1
next



if %fileflag[1]==1 then %name="章タイトル" 
if %fileflag[1]==1 then sp "title:1",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*1,z=0}

if %fileflag[2]==1 then %name="章タイトル" 
if %fileflag[2]==1 then sp "title:2",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*2,z=0}

if %fileflag[3]==1 then %name="章タイトル" 
if %fileflag[3]==1 then sp "title:3",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*3,z=0}

if %fileflag[4]==1 then %name="章タイトル" 
if %fileflag[4]==1 then sp "title:4",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*4,z=0}

if %fileflag[5]==1 then %name="章タイトル" 
if %fileflag[5]==1 then sp "title:5",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*5,z=0}

if %fileflag[6]==1 then %name="章タイトル" 
if %fileflag[6]==1 then sp "title:6",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*6,z=0}

if %fileflag[7]==1 then %name="章タイトル" 
if %fileflag[7]==1 then sp "title:7",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*7,z=0}

if %fileflag[8]==1 then %name="章タイトル" 
if %fileflag[8]==1 then sp "title:8",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=55,y=50+70*8,z=0}

if %fileflag[9]==1 then %name="章タイトル" 
if %fileflag[9]==1 then sp "title:9",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*1,z=0}

if %fileflag[10]==1 then %name="章タイトル" 
if %fileflag[10]==1 then sp "title:10",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*2,z=0}

if %fileflag[11]==1 then %name="章タイトル" 
if %fileflag[11]==1 then sp "title:11",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*3,z=0}

if %fileflag[12]==1 then %name="章タイトル" 
if %fileflag[12]==1 then sp "title:12",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*4,z=0}

if %fileflag[13]==1 then %name="章タイトル" 
if %fileflag[13]==1 then sp "title:13",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*5,z=0}

if %fileflag[14]==1 then %name="章タイトル" 
if %fileflag[14]==1 then sp "title:14",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*6,z=0}

if %fileflag[15]==1 then %name="章タイトル" 
if %fileflag[15]==1 then sp "title:15",{name={"?"+%name+",menu0","?"+%name+",menu1"},x=1280/2,y=50+70*7,z=0}


;■ページ数入れる
sin_log_page=1
%r=str(sin_log_page)
;■戻り先のラベル設定
sin_log_l="@sin_log_t_page_"+%r
;■表示まで飛ぶ
goto @sin_log_text_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;ページ数
@sin_log_t_page_2
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;■ページの枚数。必要なければ消そう
;sp "title:page",{name="?２／２,text",x=500+50,y=600-30,z=96}
%sin_log_page_max=str(sin_log_page_max)
%sin_log_page=str(sin_log_page)
sp "title:page",{name="?"+%sin_log_page+"／"+%sin_log_page_max+",text",x=500+50,y=600-30,z=96}
sp "title:start",{name="?シーン回想,text",x=1280-300,y=50,z=0}

	%fileflag[1]=lchk(@sin_story_op)
	%fileflag[2]=lchk(@sisyou_story_01)
	%fileflag[3]=lchk(@otoko_story_01)
	%fileflag[4]=lchk(@tabibito_story_01)
	
	%fileflag[5]=lchk(@sisyou_end_001)
	%fileflag[6]=lchk(@sisyou_end_002)
	%fileflag[7]=lchk(@otoko_end_001)
	%fileflag[8]=lchk(@otoko_end_002)

	%fileflag[9]=lchk(@sisyou_ero_01_story)
	%fileflag[10]=lchk(@sisyou_ero_02_story)
	%fileflag[11]=lchk(@sisyou_ero_03_story)
	%fileflag[12]=lchk(@sisyou_ero_04_story)

	%fileflag[13]=lchk(@otoko_ero_01_story)
	%fileflag[14]=lchk(@otoko_ero_02_story)
	%fileflag[15]=lchk(@otoko_ero_03_story)
	%fileflag[16]=lchk(@otoko_ero_04_story)
	
	%fileflag[17]=lchk(@tabibito_ero_01_story)
	%fileflag[18]=lchk(@tabibito_ero_02_story)
	%fileflag[19]=lchk(@tabibito_ero_03_story)
	%fileflag[20]=lchk(@tabibito_ero_04_story)

if %fileflag[1]==1 then sp "title:1",{name={"?オープニング,menu0","?オープニング,menu1"},x=50,y=50,z=0}
if %fileflag[2]==1 then sp "title:2",{name={"?師匠と,menu0","?師匠と,menu1"},x=50,y=50+25*1,z=0}
if %fileflag[3]==1 then sp "title:3",{name={"?男と,menu0","?男と,menu1"},x=50,y=50+25*2,z=0}
if %fileflag[4]==1 then sp "title:4",{name={"?旅人と,menu0","?旅人と,menu1"},x=50,y=50+25*3,z=0}
if %fileflag[5]==1 then sp "title:5",{name={"?師匠と二人で,menu0","?師匠と二人で,menu1"},x=50,y=50+25*4,z=0}
if %fileflag[6]==1 then sp "title:6",{name={"?不出来な弟子,menu0","?不出来な弟子,menu1"},x=50,y=50+25*5,z=0}
if %fileflag[7]==1 then sp "title:7",{name={"?やっぱりわからない関係,menu0","?やっぱりわからない関係,menu1"},x=50,y=50+25*6,z=0}
if %fileflag[8]==1 then sp "title:8",{name={"?いつも通り,menu0","?いつも通り,menu1"},x=50,y=50+25*7,z=0}
;■ページ数入れる
sin_log_page=2
%r=str(sin_log_page)
;■戻り先のラベル設定
sin_log_l="@sin_log_t_page_"+%r
;■表示まで飛ぶ
goto @sin_log_text_hyouzi
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------

@sin_log_text_hyouzi



print #c
btnclear "title"
btn "title:up"
btn "title:dn"
btn "title:re"

for %0=1 to 15
;if %fileflag[1]==1 then btn "title:1"
;if %fileflag[2]==1 then btn "title:2"
;if %fileflag[3]==1 then btn "title:3"
;if %fileflag[4]==1 then btn "title:4"
;if %fileflag[5]==1 then btn "title:5"
;if %fileflag[6]==1 then btn "title:6"
;if %fileflag[7]==1 then btn "title:7"
	%r=STR(%0)
	%name="title:"+%r
	if %fileflag[%0]==1 then btn %name
next

@log_text_01_lp
btnexec %ret,"title"
if %ret=="#R" or %ret=="re" then goto @omake	;タイトルに戻る
;■ページ移動用。必要なければ消そう。
;if %ret=="dn" then
;	sin_log_page=sin_log_page-1
;	if sin_log_page==0 then sin_log_page=1
;	%0="@sin_log_t_page_"+str(sin_log_page)
;	goto %0
;endif
;if %ret=="up" then
;	sin_log_page=sin_log_page+1
;	if sin_log_page>sin_log_page_max then sin_log_page=sin_log_page_max
;	%0="@sin_log_t_page_"+str(sin_log_page)
;	goto %0
;endif
;-----------------------------------------
;■sin_log_pageはページ数。

if %ret=="1" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_001 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="2" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_002 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="3" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_003 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="4" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_004 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="5" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_005 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="6" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_006 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="7" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_007 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="8" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_008 : gosub @sin_window_kesu : print #c : goto sin_log_l

if %ret=="9" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_009 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="10" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_010 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="11" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_011 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="12" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_012 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="13" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_013 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="14" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_014 : gosub @sin_window_kesu : print #c : goto sin_log_l
if %ret=="15" and sin_log_page==1 then  spsetvisible "title",0 : gosub @sin_story_015 : gosub @sin_window_kesu : print #c : goto sin_log_l



;■共通処理
goto @log_text_01_lp
