eraVoiceroidA-1.21用パッチ詰め_20200508 のマージ

average34 · May 9, 2020 · c0de87b · c0de87b
1 parent a2fea48
commit c0de87b
Show file tree

Hide file tree

Showing 15 changed files with 64 additions and 13 deletions.
diff --git a/CSV/Str.csv b/CSV/Str.csv
@@ -108,6 +108,13 @@
 283,ミコト　　　　
 284,flower　　　　
 
+;EXキャラ
+290,ゆかり　穏　　
+291,ゆかり　凛　　
+292,葵くん　　　　
+293,あかり（淫魔）
+
+
 ;---------------------------------------------------,
 ;オープニング,
 ;---------------------------------------------------,

diff --git a/ERB/ABL/ABL.ERB b/ERB/ABL/ABL.ERB
@@ -48,7 +48,7 @@ DRAWLINE
 
 @SHOW_ABLUP_SELECT
 #DIM DYNAMIC ABLNo = 0
-FOR ABLNo, 0, 21
+FOR ABLNo, 0, 22
 
 	TRYCALLFORM ISABLUP{ABLNo}
 	;以下は昔の悪しきコード　こういうコードは書かないように！

diff --git a/ERB/ABL/ABLUP17.ERB b/ERB/ABL/ABLUP17.ERB
@@ -224,6 +224,7 @@ SIF EXP:レズ経験 < ExpRequire
 IF FirstCond == 0
 	ABLUPAble = 1
 ENDIF
+RETURN ABLUPAble
 
 ;自動でABLを上げるメソッド（J+に倣って実装）
 @AUT_ABLUP17

diff --git a/ERB/ABL/ABLUP21.ERB b/ERB/ABL/ABLUP21.ERB
@@ -225,6 +225,7 @@ SIF EXP:ゲイ経験 < ExpRequire
 IF FirstCond == 0
 	ABLUPAble = 1
 ENDIF
+RETURN ABLUPAble
 
 ;自動でABLを上げるメソッド（J+に倣って実装）
 @AUT_ABLUP21

diff --git a/ERB/COM/COMF122.ERB b/ERB/COM/COMF122.ERB
@@ -253,10 +253,11 @@ SIF TALENT:抑圧 || TALENT:抵抗
 	SOURCE:恭順追加 += 500
 
 ;助手が処女の場合、屈服逸脱が倍化し、従順が2になる。ただし一度きり
-IF TALENT:PLAYER:処女 == 1 && CFLAG:99 == 0
+IF (TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1) && CFLAG:99 == 0
 	TIMES SOURCE:逸脱 , 5.00
 	TIMES SOURCE:快Ｂ , 3.00
 	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
 	PRINTL ＜助手が処女＞
 	;異常経験追加（一回きり）
 	EXP:異常経験 += 1
@@ -266,6 +267,10 @@ IF TALENT:PLAYER:処女 == 1 && CFLAG:99 == 0
 		ABL:従順 = 2
 	ENDIF
 	CFLAG:99 = 1
+ELSEIF TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1
+	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
+	PRINTFORML ＜%CALLNAME:PLAYER%は処女を失いました＞
 ENDIF
 EXP:PLAYER:Ｖ経験 += 1
 

diff --git a/ERB/COM/COMF151.ERB b/ERB/COM/COMF151.ERB
@@ -174,7 +174,7 @@ ENDIF
 ;経験の処理
 ;-------------------------------------------------
 ;V経験
-IF F > 0
+IF F > 0 && TALENT:オトコ == 0
 	IF EXP:Ｖ経験 == 0
 		EXP:異常経験 += 2
 		PRINTL 異常経験＋２

diff --git a/ERB/COM/COMF185.ERB b/ERB/COM/COMF185.ERB
@@ -129,7 +129,7 @@ SIF TALENT:抑圧 || TALENT:抵抗
 	SOURCE:恭順追加 += 700
 
 ;助手が処女喪失をした場合、屈服と逸脱を増加
-IF TALENT:ASSI:処女 == 1
+IF TALENT:ASSI:処女 == 1 || TALENT:ASSI:再生処女 == 1
 	TIMES SOURCE:屈従 , 20.00
 	TIMES SOURCE:逸脱 , 3.00
 ENDIF
@@ -193,6 +193,17 @@ IF TALENT:ASSI:処女 == 1
 		PRINTFORML %EXPNAME:50%＋１
 	ENDIF
 	EXP:ASSI:異常経験 += 1
+	;助手が再生処女の場合、奴隷にのみ異常経験付加
+ELSEIF TALENT:ASSI:再生処女 == 1
+	TALENT:ASSI:再生処女 = 0
+	PRINTL ＜助手が処女＞
+	IF RELATION:A > 100
+		EXP:異常経験 += 2
+		PRINTFORML %EXPNAME:50%＋２
+	ELSE
+		EXP:異常経験 += 1
+		PRINTFORML %EXPNAME:50%＋１
+	ENDIF
 ENDIF
 
 ;助手のＶ経験

diff --git a/ERB/COM/COMF200.ERB b/ERB/COM/COMF200.ERB
@@ -153,11 +153,16 @@ IF (TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1) && CFLAG:8 ==
 	TIMES SOURCE:屈従 , 20.00
 	TIMES SOURCE:逸脱 , 3.00
 	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
 	PRINTFORML ＜%CALLNAME:PLAYER%は処女を失いました＞
 	;異常経験追加
 	EXP:異常経験 += 1
 	PRINTFORML %EXPNAME:50%＋１
 	CFLAG:8 = 1
+ELSEIF TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1
+	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
+	PRINTFORML ＜%CALLNAME:PLAYER%は処女を失いました＞
 ENDIF
 
 

diff --git a/ERB/COM/COMF64.ERB b/ERB/COM/COMF64.ERB
@@ -152,11 +152,16 @@ IF (TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1) && CFLAG:8 ==
 	TIMES SOURCE:屈従 , 20.00
 	TIMES SOURCE:逸脱 , 3.00
 	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
 	PRINTFORML ＜%CALLNAME:PLAYER%は処女を失いました＞
 	;異常経験追加
 	EXP:異常経験 += 1
 	PRINTFORML %EXPNAME:50%＋１
 	CFLAG:8 = 1
+ELSEIF TALENT:PLAYER:処女 == 1 || TALENT:PLAYER:再生処女 == 1
+	TALENT:PLAYER:処女 = 0
+	TALENT:PLAYER:再生処女 = 0
+	PRINTFORML ＜%CALLNAME:PLAYER%は処女を失いました＞
 ENDIF
 
 

diff --git a/ERB/PROMISCUOUS_SEX_LIVE.ERB b/ERB/PROMISCUOUS_SEX_LIVE.ERB
@@ -48,7 +48,7 @@ IF CFLAG:A:108
 ELSE
 	PRINTL 避妊の有無と方法を選択してください
 	PRINTL [0]   - 避妊しない
-	SIF MONEY > 2000
+	SIF MONEY > 2000 && TALENT:A:オトコ == 0
 		PRINTFORML [1]   - 子宮内避妊具($-6000）
 	PRINTL [100] -   戻る
 	INPUT

diff --git a/ERB/PROSTITUTION.ERB b/ERB/PROSTITUTION.ERB
@@ -500,7 +500,7 @@ ELSE
 	PRINTL [0]   - 避妊しない
 	SIF MONEY > D * 100
 		PRINTFORML [1]   - コンドーム($-{D*300}）
-	SIF MONEY > 2000
+	SIF MONEY > 2000 && TALENT:A:オトコ == 0
 		PRINTFORML [2]   - 子宮内避妊具($-6000）
 	PRINTL [100] -   戻る
 	INPUT

diff --git a/ERB/PUBLIC_TOILET.ERB b/ERB/PUBLIC_TOILET.ERB
@@ -80,7 +80,7 @@ IF CFLAG:A:108
 ELSE
 	PRINTL 避妊の有無と方法を選択してください
 	PRINTL [0]   - 避妊しない
-	SIF MONEY > 6000
+	SIF MONEY > 6000 && TALENT:A:オトコ == 0
 		PRINTFORML [1]   - 子宮内避妊具($-6000）
 	PRINTL [100] - 戻る
 	INPUT

diff --git a/ERB/RENTAL_SLAVE.ERB b/ERB/RENTAL_SLAVE.ERB
@@ -76,7 +76,7 @@ PRINTL 避妊の有無と方法を選択してください
 PRINTL [0]   - 避妊しない
 SIF MONEY > B * 5 * 100
 	PRINTFORML [1]   - コンドーム($-{B*1500}、レンタル額ペナルティ）
-SIF MONEY > B * 2000
+SIF MONEY > B * 2000 && TALENT:A:オトコ == 0
 	PRINTFORML [2]   - 子宮内避妊具($-{B*6000}）
 PRINTL [100] -   戻る
 $INPUT_LOOP_3

diff --git a/ERB/SHOP2.ERB b/ERB/SHOP2.ERB
@@ -65,13 +65,17 @@ REPEAT CHARANUM
 	ENDIF
 	CALL ARRANGE_CHARANAME
 	IF COUNT == ASSI
-		PRINT 　　　　　
+		PRINT 　　　　 
 	ELSEIF ISASSI:COUNT == 1
 		PRINT [元助手] 
 	ELSE
 		PRINT [未経験] 
 	ENDIF
-	PRINTFORM %ABLNAME:2%Lv{ABL:COUNT:技巧} %ABLNAME:11%Lv{ABL:COUNT:レズっ気} %ABLNAME:17%Lv{ABL:COUNT:レズ中毒} 
+	IF TALENT:COUNT:オトコ
+		PRINTFORM 技巧Lv{ABL:COUNT:技巧} ホモっ気Lv{ABL:COUNT:ホモっ気} ゲイ中毒Lv{ABL:COUNT:ゲイ中毒}
+	ELSE 
+		PRINTFORM 技巧Lv{ABL:COUNT:技巧} レズっ気Lv{ABL:COUNT:レズっ気} レズ中毒Lv{ABL:COUNT:レズ中毒}
+	ENDIF 
 	SIF TALENT:COUNT:両刀
 		PRINT 両刀
 	PRINTFORML 

diff --git a/ERB/口上・地の文/EVENT_M.ERB b/ERB/口上・地の文/EVENT_M.ERB
@@ -3037,11 +3037,19 @@ ELSEIF TFLAG:29 >= 3 && TEQUIP:27 && TALENT:おもらし癖
 ELSEIF TFLAG:29 >= 3 && TEQUIP:27
 	PRINTFORML 震える%CALLNAME:TARGET%の尿道口から水流が滴り、水溜りを作った……
 ELSEIF TFLAG:29 >= 3 && TALENT:おもらし癖
-	PRINTFORML 震える%CALLNAME:TARGET%の陰唇から尿がちょろちょろと漏れ出ている……
+	IF TALENT:オトコ
+		PRINTFORML 震える%CALLNAME:TARGET%のペニスの先から尿がちょろちょろと漏れ出ている……
+	ELSE
+		PRINTFORML 震える%CALLNAME:TARGET%の陰唇から尿がちょろちょろと漏れ出ている……
+	ENDIF
 ELSEIF TFLAG:29 >= 1 && TEQUIP:27 && TALENT:おもらし癖
 	PRINTFORML %CALLNAME:TARGET%の尿道口から水流が滴り、水溜りを作った……
 ELSEIF TFLAG:29 >= 1 && TEQUIP:27
-	PRINTFORML %CALLNAME:TARGET%の陰唇から尿がちょろちょろと漏れ出ている……
+	IF TALENT:オトコ
+		PRINTFORML %CALLNAME:TARGET%のペニスの先から尿がちょろちょろと漏れ出ている……
+	ELSE
+		PRINTFORML %CALLNAME:TARGET%の陰唇から尿がちょろちょろと漏れ出ている……
+	ENDIF
 ENDIF
 
 
@@ -3207,7 +3215,11 @@ PRINTFORMW 目をやると%CALLNAME:TARGET%が上に跨って喘いでいた…
 
 ;調教後レズプレイ
 @EVENT_MESSAGE_4
-PRINTFORML %CALLNAME:TARGET%と%CALLNAME:ASSI%は調教後にレズプレイをしていたようだ
+IF TALENT:TARGET:オトコ
+	PRINTFORML %CALLNAME:TARGET%と%CALLNAME:ASSI%は調教後にゲイプレイをしていたようだ
+ELSE
+	PRINTFORML %CALLNAME:TARGET%と%CALLNAME:ASSI%は調教後にレズプレイをしていたようだ
+ENDIF
 IF TALENT:ふたなり && TALENT:ASSI:ふたなり
 	PRINTFORMW %CALLNAME:ASSI%と%CALLNAME:TARGET%は延々と互いのペニスをしゃぶりあっていた……
 ELSE