//ホームで強姦するシーン
LoadingMSG DF37_tikan_load04.png;
INI seen;

CALL DF37_map_set.txt,DF37-ホームA3;

Music STOP;
Music LOAD,yomei18.mid;
Music PLAY,true;
SetViewLimit ALL;

Loop_4_Work ;//表示しない内部処理

IconDELL ;

//▼ｾﾚｸﾀﾌﾞﾙﾛｰﾄﾞ
CALL DF37_char_set.txt,SET_BODY-CS;//SET_CPFT-02_1-BODY3b;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01;
CALL DF37_char_set.txt,SET_MEGA-CS;//●2:メガネ
CALL DF37_char_set.txt,SET_HAIR-CS;//●5:髪の毛
//CALL DF37_char_set.txt,SET_CPFT-M3_2スーツ;
//CALL DF37_char_set.txt,SET_CPFT-M3_2スーツ露出;
CALL DF37_char_set.txt,SET_CPFT-01_1cHUKU2制服;
CALL DF37_char_set.txt,SET_SHORTS-CS;//●3:下着・水着
CALL DF37_char_set.txt,SET_CPFT-M4_1-ABザコリーマン;

XFile4_ID 0,true;
IconADD ;



//------------------------------------------------------------------------------
* QUICK_START;
SetPar_ADDcs d1_003;//シナリオのフラグを追加する
DataSave3 G_save0.txt;
Music PLAY2,yomei18.mid;


Menu_INI ;//メニューの設定をクリアする
Menu_SetType 0,110,20,12;
Menu_Sprite menu_12.png;//X110幅の短いメニュー画像
Menu_SetPos 5,15;
4HS_Menu_SetType 3,100,20,12;//クリックポイント用


CALL DF37_char_set.txt,SET_CPFT-M3_2スーツ露出;
XFile4_ID 0,true;

//ゲームの進行に関わるEOF処理・LOCAL1で初期化されない
4HS_EOF_CLS ALL;//EOF全てリセット
4HS_EOF_CLS LOCAL1;//メーター系を残し、操作関連のみリセット
4HS_EOF_CLS FLG;//ﾌﾗｸﾞ初期化・EOFを有効に
4HS_EOF_ADD Gauge_hukai,100,抵抗;
4HS_EOF_ADD Gauge_kaikan,100,成功;

DF37PAR_SET 0,0,0;//初期値設定
//DF37PAR_SET 0,0,0;//値を指定(快感,不快,警戒)
//DF37PAR_ADD 0,0,0;//加算分
//DF37PAR_PP2 0,0,0;//時間に応じて増える値
//DF37PAR_PGP 0,0,0;//動きに応じて増える


//------------------------------------------------------------------------------
//■電車を動かす場合
//XFile4_ID 7,true;
//Motion_Load map_TRAIN01_Write4_A01駅停車.txt,false,,;
//Motion_SetSpeed 0.02;
//XFile4_ID 0,true;
//------------------------------------------------------------------------------




//------------------------------------------------------------------------------
Set_View -0.399,1.215,1.923,0.4509,0.3653,-0.8143,-0.176,0.930,0.319,0.523;
Mov_View -0.597,1.054,2.281,0.4509,0.3653,-0.8143,-0.176,0.930,0.319,0.523;
Mov_View MoveTime,600;//視点移動時間指定

Motion_Load DF37_seen2_ホーム_B12Lピストン1.txt;
Motion_KeyType 2;
Motion_SetSpeed 1.0;

//------------------------------------------------------------------------------
* 脱衣女;
CALL DF37_set.txt,選択肢_シナリオ;//　●シナリオ選択肢共通処理
MSG_Print 強姦する時には・・・;
Menu_CLS Menu;
Menu_ADD ＞着衣プレイ派だ！;
Menu_ADD ＞ノーパンノーブラ派だ！;
Menu_ADD ＞下着プレイ派だ！;
Menu_ADD ＞全裸プレイ派だ！;
Loop_4_menu false;
CALL DF37_set.txt,選択肢_シナリオAF;//　●シナリオ選択肢共通処理
Goto@ @RetMenu,0,脱衣女_服下着;
Goto@ @RetMenu,1,脱衣女_服;
Goto@ @RetMenu,2,脱衣女_下着;
Goto@ @RetMenu,3,脱衣女_全裸;



* 脱衣女_服下着;
GOTO 脱衣女_後処理;


* 脱衣女_服;
CALL DF37_char_set.txt,半裸3;
CALL DF37_char_set.txt,SET_SHORTS-NULL;
GOTO 脱衣女_後処理;


* 脱衣女_下着;
CALL DF37_char_set.txt,SET_CPFT-01_1cHUKU制服無し;
GOTO 脱衣女_後処理;


* 脱衣女_全裸;
CALL DF37_char_set.txt,SET_CPFT-01_1cHUKU制服無し;
CALL DF37_char_set.txt,SET_SHORTS-NULL;
GOTO 脱衣女_後処理;


* 脱衣女_後処理;
XFile4_ID 0,true;
Menu_INI ;//メニューの設定をクリアする
Menu_SetType 0,110,20,12;
Menu_Sprite menu_12.png;//X110幅の短いメニュー画像
4HS_Menu_SetType 3,100,20,12;
GOTO 犯す;



//------------------------------------------------------------------------------
* 犯す;
* 犯す01;
GOSUB 顔変更;
Set_View -2.144,0.987,2.472,0.7405,-0.3476,-0.5750,0.274,0.937,-0.213,0.523;
Mov_View -1.715,0.785,2.139,0.7405,-0.3476,-0.5750,0.274,0.937,-0.213,0.523;

Motion_Load DF37_seen2_ホーム_B12Lピストン1.txt;
Motion_KeyType 2;
Motion_SetSpeed 1.0;

DF37PAR_PP2 0.01,0,0;//時間に応じて増える値
DF37PAR_PGP 0,0,0;//動きに応じて増える

Menu_CLS Menu;
4HS_MenuCLS ;
4HS_EOF_CLS ALL;//EOF全てリセット
GOSUB EOF体位変更;
//4HS_MenuADD2 フェラさせる,,0,b腰,犯す02;
4HS_MenuMode 0,,;
Set_SitenType true;
Loop_4_Hscene ;

GOTO 犯す01;






* 犯す02;
GOSUB 顔変更;
Set_View 0.223,1.792,0.227,-0.3527,-0.8055,0.4761,-0.479,0.592,0.647,0.523;
Mov_View 0.383,0.998,0.371,-0.5899,-0.5830,0.5585,-0.423,0.812,0.400,0.523;
Motion_Load DF37_seen2_ホーム_B12Lピストン1b.txt;
Motion_KeyType 2;
Motion_SetSpeed 0.5;
DF37PAR_PP2 0.01,0,0;//時間に応じて増える値
DF37PAR_PGP 0,0,0;//動きに応じて増える

Menu_CLS Menu;
4HS_MenuCLS ;
4HS_EOF_CLS ALL;//EOF全てリセット
GOSUB EOF体位変更;
4HS_MenuMode 0,,;
Set_SitenType true;
Loop_4_Hscene ;

GOTO 犯す02;





* 犯す03;
GOSUB 顔変更;
Set_View -1.512,0.880,-0.734,0.4240,-0.2600,0.8675,0.114,0.965,0.233,0.523;
Mov_View -1.292,0.745,-0.283,0.4240,-0.2600,0.8675,-0.199,0.907,0.369,0.523;
Motion_Load DF37_seen2_ホーム_B13Lピストン2背後.txt;
Motion_KeyType 2;
Motion_SetSpeed 1.0;
DF37PAR_PP2 0.01,0,0;//時間に応じて増える値
DF37PAR_PGP 0,0,0;//動きに応じて増える

Menu_CLS Menu;
4HS_MenuCLS ;
4HS_EOF_CLS ALL;//EOF全てリセット
GOSUB EOF体位変更;
4HS_MenuMode 0,,;
Set_SitenType true;
Loop_4_Hscene ;

GOTO 犯す03;




* 犯す04;
GOSUB 顔変更;
Set_View 0.282,0.860,-0.426,-0.3315,-0.3335,0.8825,-0.117,0.942,0.312,0.523;
Mov_View 0.674,0.805,0.113,-0.6722,-0.3667,0.6431,-0.265,0.930,0.253,0.523;
Motion_Load DF37_seen2_ホーム_B14Lピストン3背後2.txt;
Motion_KeyType 2;
Motion_SetSpeed 1.0;
DF37PAR_PP2 0.01,0,0;//時間に応じて増える値
DF37PAR_PGP 0,0,0;//動きに応じて増える

Menu_CLS Menu;
4HS_MenuCLS ;
4HS_EOF_CLS ALL;//EOF全てリセット
GOSUB EOF体位変更;
4HS_MenuMode 0,,;
Set_SitenType true;
Loop_4_Hscene ;

GOTO 犯す04;




* 戻る;
RETURN ;




//------------------------------------------------------------------------------
//Voice系コマンド仕様
//CLS:現在の予約ファイルをリセットする
//LOAD:単独再生
//LOAD_Loop:ループファイル
//PLAY:単独再生
//PLAY2:再生後に、ループファイルを再生する
//PLAY_Loop:ループファイルを再生する
//STOP:停止

//・記述例１・台詞単体
Voice CLS;
Voice LOAD,DF34_M16-190_イヤ.wav;
Voice PLAY;

//・記述例２・ループのみ
Voice CLS;
Voice LOAD_Loop,DF34_M16-060_と息1.wav;
Voice LOAD_Loop,DF34_M16-030_と息2.wav;
Voice LOAD_Loop,DF34_M16-100_と息3.wav;
Voice PLAY_Loop;

//・記述例３・台詞後にループ音声
Voice CLS;
Voice LOAD,DF34_M16-190_イヤ.wav;
Voice LOAD_Loop,DF34_M16-060_と息1.wav;
Voice LOAD_Loop,DF34_M16-030_と息2.wav;
Voice LOAD_Loop,DF34_M16-100_と息3.wav;
Voice PLAY2;

//・記述例４・前の台詞が終わってから次の台詞を再生する
Voice CLS;
Voice LOAD,DF34_M16-180_わたしもう.wav;
Voice PLAYNEXT;//PLAY_ADD;
//（処理記述）
Voice LOAD,DF34_M16-050_ゆるしてください.wav;
Voice PLAYNEXT;

//・記述例５・前の台詞が終わってからループ音声に切り替える
Voice LOAD_Loop,DF34_M16-060_と息1.wav;
Voice LOAD_Loop,DF34_M16-030_と息2.wav;
Voice LOAD_Loop,DF34_M16-100_と息3.wav;
Voice PLAYNEXT_Loop;//前の台詞が終わってから実行

//------------------------------------------------------------------------------
* 汎用ループ音声;  //喘ぎ声の汎用処理
DF37PAR_GOTO 快感,>,75,汎用ループ音声_4;
DF37PAR_GOTO 快感,>,50,汎用ループ音声_3;
DF37PAR_GOTO 快感,>,25,汎用ループ音声_2;

* 汎用ループ音声_1;
	Voice LOAD_Loop,DF37_VRef_H_v46.wav;//ＳＥＸ・強姦系（声は有るが抑え気味）
	Voice LOAD_Loop,DF37_VRef_H_v47.wav;
	Voice LOAD_Loop,DF37_VRef_H_v48.wav;
	
	Voice LOAD_Loop,DF37_VRef_H_v50.wav;//・ＳＥＸ・強姦系
Voice PLAY2;
RETURN ;


* 汎用ループ音声_2;
	Voice LOAD_Loop,DF37_VRef_H_v46.wav;//ＳＥＸ・強姦系（声は有るが抑え気味）
	Voice LOAD_Loop,DF37_VRef_H_v47.wav;
	Voice LOAD_Loop,DF37_VRef_H_v48.wav;

	Voice LOAD_Loop,DF37_VRef_H_v49.wav;//・ＳＥＸ・強姦系
	Voice LOAD_Loop,DF37_VRef_H_v51.wav;//・ＳＥＸ・強姦系
Voice PLAY2;
//Voice PLAYNEXT_Loop;//前の台詞が終わってから実行
RETURN ;

* 汎用ループ音声_3;
	Voice LOAD_Loop,DF37_VRef_H_v34.wav;//快感系（激しい運動
	Voice LOAD_Loop,DF37_VRef_H_v35.wav;
	Voice LOAD_Loop,DF37_VRef_H_v36.wav;
	Voice LOAD_Loop,DF37_VRef_H_v37.wav;

	Voice LOAD_Loop,DF37_VRef_H_v49.wav;//・ＳＥＸ・強姦系
	Voice LOAD_Loop,DF37_VRef_H_v50.wav;//・ＳＥＸ・強姦系
Voice PLAY2;
RETURN ;

* 汎用ループ音声_4;
	Voice LOAD_Loop,DF37_VRef_H_v38.wav;//快感系（激しい運動
	Voice LOAD_Loop,DF37_VRef_H_v39.wav;
	Voice LOAD_Loop,DF37_VRef_H_v40.wav;
	Voice LOAD_Loop,DF37_VRef_H_v41.wav;

	Voice LOAD_Loop,DF37_VRef_H_v49.wav;//・ＳＥＸ・強姦系
	Voice LOAD_Loop,DF37_VRef_H_v50.wav;//・ＳＥＸ・強姦系
Voice PLAY2;
RETURN ;


//------------------------------------------------------------------------------
* 顔変更;
//快感メーターに応じて顔の変更を試みる
//Menu_CLS Menu;
//4HS_MenuCLS ;
//4HS_EOF_CLS ALL;//EOF全てリセット
//4HS_EOF_ADD Gauge_kaikan,100,顔変更_快3;
//4HS_EOF_ADD Gauge_kaikan,60,顔変更_快2;
//4HS_EOF_ADD Gauge_kaikan,30,顔変更_快1;
//Loop_4_Hscene EOF_Jump;

Voice CLS;
DF37PAR_GOTO 快感,=,100,顔変更_休ませて;
DF37PAR_GOTO 快感,>,75,顔変更_快3;
DF37PAR_GOTO 快感,>,50,顔変更_快2;
DF37PAR_GOTO 快感,>,25,顔変更_快1;

* 顔変更_標準;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01;//可動
switch rand,3;//ランダムで処理分岐
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print こんな格好…;
  Voice LOAD,DF37_VRef_H_v10.wav;//こんな格好
switch case,2;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print 嫌です;
  Voice LOAD,DF37_VRef_H_v12.wav;//嫌です
switch case,3;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print もう許して…;
  Voice LOAD,DF37_VRef_H_v13.wav;//もう許して
switch end;
GOSUB 汎用ループ音声;
RETURN ;

* 顔変更_快1;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01-いやー;
switch rand,3;//ランダムで処理分岐
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print で…出来ません;
  Voice LOAD,DF37_VRef_H_v11.wav;//で、出来ません
switch case,2;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print もういや…;
  Voice LOAD,DF37_VRef_H_v16.wav;//もういや
switch case,3;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print 助けて…だれか…;
  Voice LOAD,DF37_VRef_H_v19b.wav;//助けて…だれか…
switch end;
GOSUB 汎用ループ音声;
RETURN ;

* 顔変更_快2;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01-喘ぐB0;
switch rand,3;//ランダムで処理分岐
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print そんな事出来ません;
  Voice LOAD,DF37_VRef_H_v14.wav;//そんな事出来ません
switch case,2;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print 許してぇ…;
  Voice LOAD,DF37_VRef_H_v18.wav;//許してぇ
switch case,3;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print いや…いやぁ！;
  Voice LOAD,DF37_VRef_H_v15.wav;//いや…いやぁ！
switch end;
GOSUB 汎用ループ音声;
RETURN ;

* 顔変更_快3;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01-喘ぐB1;
switch rand,3;//ランダムで処理分岐
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print お家に帰して…;
  Voice LOAD,DF37_VRef_H_v17.wav;//お家に帰して
switch case,2;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print 助けて…だれか…;
  Voice LOAD,DF37_VRef_H_v19a.wav;//助けて…だれか…
switch case,3;
  CALL DF37_set.txt,H台詞-女1;
  MSG4_Print おかぁさん…;
  Voice LOAD,DF37_VRef_H_v20.wav;//おかぁさん…
switch end;
GOSUB 汎用ループ音声;
RETURN ;



* 顔変更_休ませて;
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01-喘ぎ2;
//ここに絶頂グッタリアニメを挟む・・・
Motion_Load DF37_seen2_ホーム_B15グッタリ待機.txt;
Motion_KeyType 2;
Motion_SetSpeed 1.0;
DF37PAR_PP2 -0.1,0,0;//時間に応じて増える値
DF37PAR_PGP 0,0,0;//動きに応じて増える

Set_View 0.273,0.281,1.690,-0.4032,-0.3047,-0.8628,-0.129,0.952,-0.276,0.523;
Mov_View -0.193,0.319,1.894,-0.4032,-0.3047,-0.8628,-0.129,0.952,-0.276,0.523;
Mov_View MoveTime,120;//視点移動時間指定

Voice CLS;
//Voice LOAD,DF34_M16-180_わたしもう.wav;
Voice LOAD,DF37_VRef_H_v88.wav;
Voice PLAYNEXT;//PLAY_ADD;

//MSG3_Print も…もう駄目です;
MSG3_Print あぁ・・・;
Loop_4_ft -,120,1.0;
MSG_Cls ;

//Voice LOAD,DF34_M16-050_ゆるしてください.wav;
Voice LOAD,DF37_VRef_H_v89.wav;
Voice PLAYNEXT;

//MSG3_Print 休ませてください…;
MSG3_Print もう駄目です・・・;
Loop_4_ft -,120,1.0;
MSG_Cls ;

Voice LOAD_Loop,DF37_VRef_H_v91.wav;
Voice LOAD_Loop,DF37_VRef_H_v92.wav;
Voice PLAYNEXT_Loop;//前の台詞が終わってから実行

Menu_CLS Menu;
4HS_MenuCLS ;
4HS_EOF_CLS ALL;//EOF全てリセット
Menu_ADD 再開;
4HS_EOF_ADD MENU,0,;
4HS_MenuMode 0,,;
Set_SitenType true;
Loop_4_Hscene ;

//DF37PAR_SET 0,,;//ゼロにリセット
CALL DF37_char_set.txt,SET_CPFT-02_1-FACE01-困2;
RETURN ;


//------------------------------------------------------------------------------
* EOF体位変更;
Menu_ADD 終わる;
Menu_ADD 犯す１;
Menu_ADD 犯す２;
Menu_ADD 犯す３;
Menu_ADD 犯す４;

4HS_EOF_ADD MENU,0,終了;
4HS_EOF_ADD MENU,1,犯す01;
4HS_EOF_ADD MENU,2,犯す02;
4HS_EOF_ADD MENU,3,犯す03;
4HS_EOF_ADD MENU,4,犯す04;

RETURN ;

//------------------------------------------------------------------------------
* 成功;
//パラメーターを消して継続か、タイトルに戻るか選べる？
//絶頂モーションだけでも良いか？・・・

MSG3_Print 今日はコレ位にしてやる;
Loop_4_ft -,120,1.0;
MSG_Cls ;

MSG3_Print 明日また可愛がってやるからな;
Loop_4_ft -,120,1.0;
MSG_Cls ;

CALL DF37_set.txt,暗くなる;
RETURN ;


//------------------------------------------------------------------------------
* 終了;
GOTO 線路落下ＥＮＤ;

MSG3_Print 今日はコレ位にしてやる;
Loop_4_ft -,120,1.0;
MSG_Cls ;

MSG3_Print 明日また可愛がってやるからな;
Loop_4_ft -,120,1.0;
MSG_Cls ;

CALL DF37_set.txt,暗くなる;
CALL DF37_BADEND汎用.txt;
RETURN ;


//●線路落下ＥＮＤ
//------------------------------------------------------------------------------
* 抵抗;
GOTO 線路落下ＥＮＤ;


//------------------------------------------------------------------------------
* 線路落下ＥＮＤ;
CALL DF37_set.txt,暗くなる;
CALL DF37_BADEND5.txt;
RETURN ;
//------------------------------------------------------------------------------
