
;//期間終了エンディング
@if exp="f.day>= 14 "
	@jump storage="t_end.ks"
@endif


;//ウエイト
@wait time=200


@eval exp="f.tit='日目　'"
@eval exp="f.heya='自分の部屋'"
@eval exp="f.kou='廃工場'"
@eval exp="f.ck='調教中'"

@eval exp="f.daytit_h= f.day + f.tit+ f.heya"
@eval exp="f.daytit_k= f.day + f.tit+ f.kou"


;//理性０以下ならゲームオーバー確定
@if exp="f.h_ris<= 0"
	@eval exp="f.end = 1 "
@endif

;//ラベル
*heya|&f.daytit_h
;//すべてのメッセージレイヤのリセット
@ct


;//黒背景読み込み
@image storage="bg_00" page=back layer=base
@trans method=crossfade time=500
@wt canskip=false

;//ウエイト(クリック不可)
@wait time=500 canskip=false


;//背景読み込み
@image storage="bg003" page=back layer=base
@trans method=crossfade time=500
@wt canskip=false

*liv_menu

@layopt layer=message0 left=0 top=530 page=fore visible=true
;//----------------------------------------------
;//システムボタン
@current layer=message1 page=fore
@sysbutton graphic="cmn_config_ss" top=680 left=15 exp="kag.callExtraConductor('Krclick.ks','*krclick_config')"
@sysbutton graphic="cmn_save_ss" top=640 left=1180 exp="kag.callExtraConductor('Krclick.ks','*krclick_save')" 
@sysbutton graphic="cmn_load_ss" top=680 left=1180 exp="kag.callExtraConductor('Krclick.ks','*krclick_load')"
;//----------------------------------------------

;//----------------------------------------------
;//待機部屋調教用コマンドウィンドウ指定
@layopt layer=message1 page=fore visible=true
@position layer=message1 page=fore left=1020 top=20 width=240 height=480 marginl=8 marginr=8 color=0x200000 opacity=0
;//----------------------------------------------




*liv_menu_sel
;//---------------------------------------------------------------------------------------
@current layer=message1 page=fore
@cm
@nowait
@style linespacing=32
@font size=24 color=0xffffff
[link target=*select1]●廃工場に行く[endlink]
[link target=*select2][r]●休む[endlink]
[link target=*select4][r]●調教の雰囲気[endlink]
@resetfont
@endnowait
@s
;//---------------------------------------------------------------------------------------
*select1
@cm

;//-----------------------------------------------
;//気絶中
;//回復処理していなければ
@if exp="f.yasumi== 1 "

@current layer=message0 page=fore

　消耗过多，回复需要一些时间。
@kaipage
　现在，什么也做不了。
@kaipage

@jump target="*liv_menu"

@endif
;//-----------------------------------------------




;//BGMフェードアウト
@fadeoutbgm time=2500

;//ゲームオーバー確定なら
@if exp="f.end== 1"
	@jump storage="bad_end.ks"
@endif

@move time=150 path="(0,730,255) " layer=message0
@wm
@sysbutton_erase
@backlay


@jump storage="kana_lav.ks"
;//---------------------------------------------------------------------------------------
*select2
@current layer=message0 page=fore
@cm

;//-------------------------------
@if exp="f.day>= 14 "

　今天是最后一天。
@kaipage
　去废弃工厂进行最后的调教吧。
@kaipage

@jump target=*liv_menu_sel

@endif
;//-------------------------------


　我回到了日常。
@kaipage
　睡觉，去学校……夜晚再去见[emb exp="sf.hnam1"]。
@kaipage

@move time=150 path="(0,730,255) " layer=message0
@wm
@sysbutton_erase
@backlay
;//ウエイト(クリック不可)
@wait time=500 canskip=false

;//黒背景読み込み
@image storage="bg_00" page=back layer=base
@trans method=crossfade time=500
@wt canskip=false

;//ウエイト(クリック不可)
@wait time=1500 canskip=false

;//経過日
	@eval exp="f.day = f.day + 1 "

	@eval exp="f.p_kir = 50 + f.h_pei*0.3 "			;気力
	@eval exp="f.p_ris = 650 - (1000-f.h_kir) * 0.6 + f.h_pei*0.25 "			;理性

	@eval exp="f.p_kai = f.h_ext * 0.01 - (f.h_ris * 0.005) -3 "			;快楽
	@eval exp="f.p_hig = (1000-f.h_ext) * 0.01- (f.h_ris * 0.005) - 3"		;被虐
	@eval exp="f.p_syu = (1000-f.h_ext) * 0.01- (f.h_ris * 0.01) - 6"		;羞恥

	@eval exp="f.h_ext = 500"		;体感

;	@eval exp="f.p_kei = 0"			;経験回数
;	@eval exp="f.p_ana = 0"			;アナル開発度

	@eval exp="f.h_jyu = 250"		;意気
	@eval exp="f.p_kou = 400"		;精力
;	@eval exp="f.p_tai = 0"			;技巧

;//食事
	@eval exp="f.h_pei = f.h_pei - 400"	;食事
;//便
	@eval exp="f.h_ben = 0"			;便
	@eval exp="f.h_ben2 = 1"		;便



;//増減を加える

@iscript

	f.h_ris = f.h_ris + f.p_ris;
	f.h_kir = f.h_kir + f.p_kir;

	f.h_kai = f.h_kai + f.p_kai;
	f.h_hig = f.h_hig + f.p_hig;
	f.h_syu = f.h_syu + f.p_syu;

	f.h_ext = f.h_ext + f.p_ext;

	f.h_kei = f.h_kei + f.p_kei;
	f.h_ana = f.h_ana + f.p_ana;

	f.h_jyu = f.h_jyu + f.p_jyu;
	f.h_tai = f.h_tai + f.p_tai;

	f.h_kou = f.h_kou + f.p_kou;
//	f.h_pei = f.h_pei + f.p_pei;


@endscript

;//上下限

[if exp="f.h_ris<0"][eval exp="f.h_ris = 0"][elsif exp="f.h_ris>1000"][eval exp="f.h_ris = 1000"][endif]
[if exp="f.h_kir<0"][eval exp="f.h_kir = 0"][elsif exp="f.h_kir>1000"][eval exp="f.h_kir = 1000"][endif]
[if exp="f.h_kai<0"][eval exp="f.h_kai = 0"][endif]
[if exp="f.h_hig<0"][eval exp="f.h_hig = 0"][endif]
[if exp="f.h_syu<0"][eval exp="f.h_syu = 0"][endif]
[if exp="f.h_ext<0"][eval exp="f.h_ext = 0"][elsif exp="f.h_ext>1000"][eval exp="f.h_ext = 1000"][endif]
[if exp="f.h_kei<0"][eval exp="f.h_kei = 0"][endif]
[if exp="f.h_ana<0"][eval exp="f.h_ana = 0"][endif]

[if exp="f.h_jyu<0"][eval exp="f.h_jyu = 0"][elsif exp="f.h_jyu>1000"][eval exp="f.h_jyu = 1000"][endif]
[if exp="f.h_tai<0"][eval exp="f.h_tai = 0"][elsif exp="f.h_tai>1000"][eval exp="f.h_tai = 1000"][endif]
[if exp="f.h_kou<0"][eval exp="f.h_kou = 0"][elsif exp="f.h_kou>1000"][eval exp="f.h_kou = 1000"][endif]

[if exp="f.h_pei<-500"][eval exp="f.h_pei = -500"][elsif exp="f.h_pei>1000"][eval exp="f.h_pei = 1000"][endif]




;//増減をリセット

@iscript

	f.p_kir = 0;
	f.p_ris = 0;

	f.p_kai = 0;
	f.p_hig = 0;
	f.p_syu = 0;

	f.p_ext = 0;

	f.p_kei = 0;
	f.p_ana = 0;

	f.p_jyu = 0;
	f.p_tai = 0;
	f.p_kou = 0;

;	f.p_pei = 0;

@endscript


@layopt layer=message0 left=0 top=730 page=fore visible=true
@move time=150 path="(0,530,255) " layer=message0
@wm
;//ウエイト(クリック不可)
@wait time=500 canskip=false


　一天过去了。
@kaipage

　……。
@kaipage

;//ウエイト(クリック不可)
@wait time=500 canskip=false

@eval exp="f.daytit = f.day + f.tit"
@emb exp="f.daytit"
@kaipage

@move time=150 path="(0,730,255) " layer=message0
@wm
@sysbutton_erase
@backlay
;//ウエイト(クリック不可)
@wait time=500 canskip=false

;//背景読み込み
@image storage="bg003" page=back layer=base
@trans method=crossfade time=500
@wt canskip=false

@layopt layer=message0 left=0 top=730 page=fore visible=true
@move time=150 path="(0,530,255) " layer=message0
@wm
@layopt layer=message0 left=0 top=530 page=fore visible=true
;//----------------------------------------------
;//システムボタン
@current layer=message1 page=fore
@sysbutton graphic="cmn_config_ss" top=680 left=15 exp="kag.callExtraConductor('Krclick.ks','*krclick_config')"
@sysbutton graphic="cmn_save_ss" top=640 left=1180 exp="kag.callExtraConductor('Krclick.ks','*krclick_save')" 
@sysbutton graphic="cmn_load_ss" top=680 left=1180 exp="kag.callExtraConductor('Krclick.ks','*krclick_load')"
;//----------------------------------------------

@current layer=message0 page=fore
@cm

;//ウエイト(クリック不可)
@wait time=500 canskip=false

;//-------------------------------
@if exp="f.day== 2"
	@call storage="c_tut.ks" target="*tut_taikan"
@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 3"
	@call storage="c_tut.ks" target="*tut_mokuteki"
@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 4 "

　收到了网购的震动棒。
@kaipage
　佐山通运，没有搞坏箱子吧……。
@kaipage
　嘛啊，里面没事，但是箱子只能扔了。
@kaipage

@endif
;//-------------------------------
;//-------------------------------
@if exp="f.day== 5"
	@call storage="c_tut.ks" target="*tut_kizetsu"
@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 6"

　收到了网购的假几把。
@kaipage
　佐山通运，又搞坏箱子了……。
@kaipage
　嘛啊，里面没事，但是箱子只能扔了。
@kaipage

@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 7"
	@call storage="c_tut.ks" target="*tut_gikou"
@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 8"
	@call storage="c_tut.ks" target="*tut_iki"
@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 9"

　警察增大了搜索[emb exp="sf.hnam1"]的人手。
@kaipage
　废弃工厂什么的，本来在[emb exp="sf.hnam1"]的活动范围之外所以没有立马去调查，[emb exp="sf.hnam1"]自己叛逆，离家出走也有可能，大概警察不会这么认真吧。
@kaipage
　反过来说，认真起来了，找到就是时间问题。
@kaipage
　衷心希望着能永远饲养喜欢的孩子，果然之后也想和[emb exp="sf.hnam1"]在一起。
@kaipage
　为此，[emb exp="sf.hnam1"]不完全堕落的话……。
@kaipage
　就算被救出，也绝不提我……不会说自己是被害人。
@kaipage

@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 10"
	@call storage="c_tut.ks" target="*tut_fuinki"
@endif
;//-------------------------------


;//-------------------------------
@if exp="f.day== 11"
	@call storage="c_tut.ks" target="*tut_mokuteki"
@endif
;//-------------------------------



;//-------------------------------
@if exp="f.day== 12"

　今天，警察来了我家。
@kaipage
　虽然有点太迟了，[emb exp="sf.hnam1"]的失踪最开始被认为是离家出走，警察也没有认真吧。
@kaipage
　被报道踢着屁股才挺起腰。
@kaipage
　听说了我和[emb exp="sf.hnam1"]最近很亲近来问询的，当然会注意我。
@kaipage
　警察，也只是想走个搜查的流程而已，大概没有怀疑我。
@kaipage
　但是，就像涨潮的时候一样。
@kaipage
　很快就会闻到。
@kaipage
　调教继续的话，大概就是这两天了……。
@kaipage


@endif
;//-------------------------------

;//-------------------------------
@if exp="f.day== 13 "

　今天警察也来了。
@kaipage
　……今天，比起说搜查的参考，有点怀疑的感觉了。
@kaipage
　一定，从谁那里听说了，我和[emb exp="sf.hnam1"]最近，特别亲密。
@kaipage
　我成了，积极的调查对象。
@kaipage
　当然，真的怀疑的话，警察会给我带走吧，现在，还只是保险起见作为可能性标记了我……。
@kaipage
　……明天就是最后了吧……。
@kaipage
　虽然打算直到被捕也继续，比起[emb exp="sf.hnam1"]被警察解放，我更想自己放走她。
@kaipage
　……就是责任一样的感觉……。
@kaipage
　事到如今，就会有这种心情。
@kaipage


@endif
;//-------------------------------


;//-------------------------------
@if exp="f.day== 14 "

　调教今天就结束了……。
@kaipage


@endif
;//-------------------------------



@eval exp="f.daytit_h= f.day + f.tit+ f.heya"
@eval exp="f.daytit_k= f.day + f.tit+ f.kou"

;//ラベル
*heya2|&f.daytit_h

　……。
@kaipage

　在那小小的牢狱中，[emb exp="sf.hnam1"]也有了变化。
@kaipage


@eval exp="f.yasumi = 0"		;要休息

@jump target="*liv_menu"

;//---------------------------------------------------------------------------------------




;//---------------------------------------------------------------------------------------
*select4

;//--------------------------------------------------------------
@current layer=message1 page=fore
@cm
@nowait
@style linespacing=32
@font size=24 color=0xffffff
[link target=*bgm1]●華麗な雰囲気[endlink]
[link target=*bgm2][r]●悲壮な雰囲気[endlink]
@resetfont
@endnowait
@s
;//--------------------------------------------------------------
*bgm1

@current layer=message0 page=fore

@cm

　接下来的调教，洋溢着华丽的气氛。

@kaipage

@eval exp="f.bgm = 0"

@jump target=*liv_menu_sel
;//--------------------------------------------------------------
*bgm2

@current layer=message0 page=fore

@cm

　接下来的调教，洋溢着悲壮的气氛。

@kaipage

@eval exp="f.bgm = 1"

@jump target=*liv_menu_sel
;//--------------------------------------------------------------



