diff --git a/#Translation/Templates/M_KOJO_KX_events.ERB b/#Translation/Templates/M_KOJO_KX_events.ERB
index 70c21b3e33e9e0089ffcaf4d8746f251a9ec0aa9..0b3b7e8cf11fd19b055f0382879ddbc35faff71d 100644
--- a/#Translation/Templates/M_KOJO_KX_events.ERB
+++ b/#Translation/Templates/M_KOJO_KX_events.ERB
@@ -62,6 +62,12 @@ RETURN 1
;If 1, you can use M_KOJO_EVENT_KX_PERMISSION to make it so pushing down always succeeds or always fails
;CFLAG:X:å£ä¸Šå†…抱ã寄ã›åˆ¤å®š_通常 = 0
+;If 1, you can use M_KOJO_EVENT_KX_PERMISSION to make it so taking a character's penile virginity always succeeds or always fails
+;CFLAG:X:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š = 0
+
+;If 1, you can use M_KOJO_EVENT_KX_PERMISSION to make it so taking a character's anal virginity always succeeds or always fails
+;CFLAG:X:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š = 0
+
;押ã—倒ã—ç¦æ¢ã«1を入れるã¨ã€è‡ªåˆ†ã‹ã‚‰æŠ¼ã—倒ã—ã¦ã“ãªããªã‚Šã¾ã™
;以下ã¯æ‹æ…•ã‹ã‚»ãƒ•ãƒ¬ãŒã¤ãã¾ã§æŠ¼ã—倒ã—ã¦ã“ãªããªã‚‹ä½¿ç”¨ä¾‹
;Setting CFLAG:押ã—倒ã—ç¦æ¢ to 1 will make it so a character will not push you down
@@ -3625,7 +3631,7 @@ ENDIF
;-------------------------------------------------
;Dialogue for just before vaginally penetrating a virgin or unaware non-virgin.
;RETURN 1 to prevent insertion
-;RETURN 1 to allow it
+;RETURN 0 to allow it
;Note that this dialogue will not be displayed unless CFLAG:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 1.
;処女・無自覚éžå‡¦å¥³ã«æŒ¿å…¥ã™ã‚‹ç›´å‰ã®å£ä¸Š
;RETURN 1ã™ã‚‹ã¨ã‚³ãƒžãƒ³ãƒ‰ã‚’ã‚ャンセルã—ã¾ã™
@@ -3674,6 +3680,32 @@ RETURN 0
;RETURN -1
;-------------------------------------------------
+;-------------------------------------------------
+;This does nothing unless CFLAG:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š = 1.
+;When trying to do a command that would take a character's penile virginity, RETURN -1 will make it always fail.
+;RETURN 0 will do the normal check, and RETURN 1 will make it always succeed.
+;You can use this to ex. prevent a character from letting the player devirginize them even if they've given their consent
+;if some other condition is true.
+;-------------------------------------------------
+@M_KOJO_EVENT_KX_PERMISSION_3
+;-------------------------------------------------
+PRINTFORML
+RETURN 0
+;-------------------------------------------------
+
+;-------------------------------------------------
+;This does nothing unless CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š = 1.
+;When trying to do a command that would take a character's anal virginity, RETURN -1 will make it always fail.
+;RETURN 0 will do the normal check, and RETURN 1 will make it always succeed.
+;You can use this to ex. prevent a character from letting the player take their anal virginity even if they've given their consent
+;if some other condition is true.
+;-------------------------------------------------
+@M_KOJO_EVENT_KX_PERMISSION_4
+;-------------------------------------------------
+PRINTFORML
+RETURN 0
+;-------------------------------------------------
+
;-------------------------------------------------
;Function for describing a room
;This displays when in the character's room (OMANEKIBEYA).
diff --git a/CSV/CFLAG.csv b/CSV/CFLAG.csv
index ae253a4926d7c3cd127ef3fa96129415b2579ab9..406f25f0404906c728a0316a86d51769a8e8775c 100644
--- a/CSV/CFLAG.csv
+++ b/CSV/CFLAG.csv
@@ -306,7 +306,8 @@
9109,MORNING_TIPS,;does character have night tips, for authors
9110,MORNING_TIPS_DISABLED,;are their night tips enabled in the settings
9111,脇ã«ç²¾æ¶²,;Armpit semen
-
+9112,å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š,;enables a subsection of M_KOJO_EVENT_KX_PERMISSION that lets dialogues have custom conditions where trying to take a character's penile virginity will succeed or fail
+9113,å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š,;same as above, but for anal virginity
;custom com filters (range 9120-9129)
9120,RevServiceFilter
9121,RevSexFilter
diff --git a/ERB/TRANSLATION/Addition/Add.txt b/ERB/TRANSLATION/Addition/Add.txt
index 4d46d466871df71a34e3669a99f73a3f4981ae4d..c14245e90ae0e30189d0c0dafe90ee44e3883ff4 100644
--- a/ERB/TRANSLATION/Addition/Add.txt
+++ b/ERB/TRANSLATION/Addition/Add.txt
@@ -790,4 +790,9 @@ Add_Custom_Commands.ERB, Add_Custom_Commands_Filters.ERB, COMABLE2.ERB
- Also added a missing check for Command 381 (the command that the custom command framework uses internall) that was in @GLOBAL_COMABLE2 but not @GLOBAL_COMABLE
COMF443 固有コマンド.ERB, COMF450 酒虫ã®æ§˜åを見る.ERB, COMF446 調åˆã™ã‚‹.ERB
- Pool shower upgrade gives water for mixing and sake production
\ No newline at end of file
+ Pool shower upgrade gives water for mixing and sake production
+
+QoL_Com_Order.ERB, COMF45 アナルãƒã‚¤ãƒ–.ERB, COMF46 アナルビーズ.ERB, COMF71 二穴挿ã—.ERB, COUNTER_SELECT.ERB
+ Added new checks that allow dialogue authors to have characters never allow or always allow actions that would take their penile or anal virginities
+ Modified the LOST_VIRGIN_STOP so that a character can be set to always allow actions that would take their vaginal virginity
+ Added checks to Anal Vibrator, Anal Beads, and Double Penetration so they're included in the "never/always allow this action when the character has their anal virginity" check
\ No newline at end of file
diff --git a/ERB/TRANSLATION/QOL/QoL_Com_Order.ERB b/ERB/TRANSLATION/QOL/QoL_Com_Order.ERB
index 46ec8529c35eea3de5f10b10a686cc0b6f8ad23c..5bbe93cd56f8a4261cd5b50298f5aef2961a90ea 100644
--- a/ERB/TRANSLATION/QOL/QoL_Com_Order.ERB
+++ b/ERB/TRANSLATION/QOL/QoL_Com_Order.ERB
@@ -153,6 +153,19 @@ CALL NAS_COM_ORDER_HOLE(ARG, MASTER, "")
SIF RESULT
RETURN 0
+;custom code
+IF CFLAG:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ && SHIRAHU(ARG) && GROUPMATCH(TALENT:ARG:処女, 1, -1)
+ CALL KOJO_MESSAGE_SEND("LOST_VIRGIN_STOP", 0, ARG)
+ SELECTCASE RESULT
+ CASE 1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Denied", -9999)
+ RETURN 0
+ CASE -1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Granted", 10000)
+ RETURN 1
+ ENDSELECT
+ENDIF
+
CALL QOL_COM_ORDER_STANDARD(ARG)
SIF ABL:ARG:欲望
CALL QOL_COM_ORDER_ELEMENT_ABL(ARG, "欲望", 3)
@@ -202,6 +215,19 @@ CALL NAS_COM_ORDER_HOLE(ARG, MASTER, "A")
SIF RESULT
RETURN 0
+;custom code
+IF CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š && SHIRAHU(ARG) && !CFLAG:アナル処女喪失記念日
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 4, ARG)
+ SELECTCASE RESULT
+ CASE -1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Denied", -9999)
+ RETURN 0
+ CASE 1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Granted", 10000)
+ RETURN 1
+ ENDSELECT
+ENDIF
+
CALL QOL_COM_ORDER_STANDARD(ARG)
SIF ABL:ARG:欲望
CALL QOL_COM_ORDER_ELEMENT_ABL(ARG, "欲望", 3)
@@ -325,6 +351,19 @@ CALL NAS_COM_ORDER_HOLE(MASTER, ARG, "")
SIF RESULT
RETURN 0
+;custom code
+IF CFLAG:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š && SHIRAHU(ARG) && !TALENT:éžç«¥è²ž
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 3, ARG)
+ SELECTCASE RESULT
+ CASE -1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Denied", -9999)
+ RETURN 0
+ CASE 1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Granted", 10000)
+ RETURN 1
+ ENDSELECT
+ENDIF
+
CALL QOL_COM_ORDER_STANDARD(ARG)
SIF ABL:ARG:欲望
CALL QOL_COM_ORDER_ELEMENT_ABL(ARG, "欲望", 2)
@@ -351,6 +390,19 @@ CALL NAS_COM_ORDER_HOLE(MASTER, ARG, "A")
SIF RESULT
RETURN 0
+;custom code
+IF CFLAG:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š && SHIRAHU(ARG) && !TALENT:éžç«¥è²ž
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 3, ARG)
+ SELECTCASE RESULT
+ CASE -1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Denied", -9999)
+ RETURN 0
+ CASE 1
+ CALL QOL_COM_ORDER_ELEMENT(ARG, "Permission Granted", 10000)
+ RETURN 1
+ ENDSELECT
+ENDIF
+
CALL QOL_COM_ORDER_STANDARD(ARG)
SIF ABL:ARG:欲望
CALL QOL_COM_ORDER_ELEMENT_ABL(ARG, "欲望", 2)
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF130 \346\255\243\345\270\270\344\275\215\343\201\225\343\202\214\343\202\213.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF130 \346\255\243\345\270\270\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
index e3972a991c4dbae2492f86eade94ec00f008fc86..5cd6a5e697ec2cf242711cbe54e31f66c7528878 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF130 \346\255\243\345\270\270\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF130 \346\255\243\345\270\270\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
@@ -104,7 +104,7 @@ SIF FLAG:70 == 1 || CFLAG:イタズラ
RETURN 1
-@CAN_COMF130(ARG)
+@CAN_COM130(ARG)
;qol custom code, replaced
CALL CAN_COM130_TR(ARG)
RETURN RESULT
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF131 \345\276\214\350\203\214\344\275\215\343\201\225\343\202\214\343\202\213.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF131 \345\276\214\350\203\214\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
index 3bb5bd4ac9d718ec9b108cc497c840a121c03f38..959710933956bb119a1ecc0c067dbf161057ce82 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF131 \345\276\214\350\203\214\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF131 \345\276\214\350\203\214\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
@@ -107,7 +107,7 @@ SIF FLAG:70 == 1 || CFLAG:イタズラ
RETURN 1
-@CAN_COMF131(ARG)
+@CAN_COM131(ARG)
;qol custom code, replaced
CALL CAN_COM131_TR(ARG)
RETURN RESULT
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF132 \345\257\276\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF132 \345\257\276\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
index ef2d686188109958d86150a0a4a02d84a8899090..150f68530efb58a7c05f1b75776c3f5cb16f8cf8 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF132 \345\257\276\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF132 \345\257\276\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
@@ -101,7 +101,7 @@ SIF FLAG:70 == 1 || CFLAG:イタズラ
RETURN 1
-@CAN_COMF132(ARG)
+@CAN_COM132(ARG)
;qol custom code, replaced
CALL CAN_COM132_TR(ARG)
RETURN RESULT
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF133 \350\203\214\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF133 \350\203\214\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
index 3d101b4ca6dd56b4496a780c0432c616704ae44d..5ef1a8a5d56ed1196aabd5c4ec245a75ea73cc23 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF133 \350\203\214\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF133 \350\203\214\351\235\242\345\272\247\344\275\215\343\201\225\343\202\214\343\202\213.ERB"
@@ -102,7 +102,7 @@ SIF FLAG:70 == 1 || CFLAG:イタズラ
RETURN 1
-@CAN_COMF133(ARG)
+@CAN_COM133(ARG)
;qol custom code, replaced
CALL CAN_COM133_TR(ARG)
RETURN RESULT
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF45 \343\202\242\343\203\212\343\203\253\343\203\220\343\202\244\343\203\226.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF45 \343\202\242\343\203\212\343\203\253\343\203\220\343\202\244\343\203\226.ERB"
index 1c03243aad19bb1d32bee13b3697328c0921ec4f..1f092f536706ac4e1676e8e817cbedad835f7849 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF45 \343\202\242\343\203\212\343\203\253\343\203\220\343\202\244\343\203\226.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF45 \343\202\242\343\203\212\343\203\253\343\203\220\343\202\244\343\203\226.ERB"
@@ -197,3 +197,21 @@ SIF TEQUIP:23
RETURN 0
RETURN 1
+;custom code
+@CAN_COM45(ARG)
+SKIPDISP ARG
+IF CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š && SHIRAHU(TARGET) && !CFLAG:アナル処女喪失記念日
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 4, TARGET)
+ SELECTCASE RESULT
+ CASE -1
+ TCVAR:TARGET:Com_Order_Value = -10000
+ SKIPDISP 0
+ RETURN 0
+ CASE 1
+ TCVAR:TARGET:Com_Order_Value = 10000
+ SKIPDISP 0
+ RETURN 1
+ ENDSELECT
+ENDIF
+SKIPDISP 0
+RETURN 1
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF46 \343\202\242\343\203\212\343\203\253\343\203\223\343\203\274\343\202\272.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF46 \343\202\242\343\203\212\343\203\253\343\203\223\343\203\274\343\202\272.ERB"
index 9addbc3da2f6bb7f71309bc33f504a51c3b7a212..b2e00048994b69de8fb6dbad7d9d328b4346b0b9 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF46 \343\202\242\343\203\212\343\203\253\343\203\223\343\203\274\343\202\272.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF46 \343\202\242\343\203\212\343\203\253\343\203\223\343\203\274\343\202\272.ERB"
@@ -203,3 +203,21 @@ SIF TEQUIP:33
RETURN 0
RETURN 1
+;custom code
+@CAN_COM46(ARG)
+SKIPDISP ARG
+IF CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š && SHIRAHU(TARGET) && !CFLAG:アナル処女喪失記念日
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 4, TARGET)
+ SELECTCASE RESULT
+ CASE -1
+ TCVAR:TARGET:Com_Order_Value = -10000
+ SKIPDISP 0
+ RETURN 0
+ CASE 1
+ TCVAR:TARGET:Com_Order_Value = 10000
+ SKIPDISP 0
+ RETURN 1
+ ENDSELECT
+ENDIF
+SKIPDISP 0
+RETURN 1
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF64 \351\200\206\343\203\254\343\202\244\343\203\227.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF64 \351\200\206\343\203\254\343\202\244\343\203\227.ERB"
index 040e0c5c3b383a4cd7de379047dc02125bbe4ed7..1ecbeba4df01c7a070c97d046b8126fa1906a498 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF64 \351\200\206\343\203\254\343\202\244\343\203\227.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF64 \351\200\206\343\203\254\343\202\244\343\203\227.ERB"
@@ -107,7 +107,7 @@ SIF FLAG:70 == 1 || CFLAG:イタズラ
RETURN 1
-@CAN_COMF64(ARG)
+@CAN_COM64(ARG)
;qol custom code, replaced
CALL CAN_COM64_TR(ARG)
RETURN RESULT
diff --git "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF71 \344\272\214\347\251\264\346\214\277\343\201\227.ERB" "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF71 \344\272\214\347\251\264\346\214\277\343\201\227.ERB"
index ff1d0ff066990556a44d6440e38cd08bd09dc1ed..a66843ef8b25813ccfb1d4af1fa9bc9f3587271f 100644
--- "a/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF71 \344\272\214\347\251\264\346\214\277\343\201\227.ERB"
+++ "b/ERB/\343\202\263\343\203\236\343\203\263\343\203\211\351\226\242\351\200\243/COMF/COMF71 \344\272\214\347\251\264\346\214\277\343\201\227.ERB"
@@ -347,3 +347,21 @@ SIF TEQUIP:(LOCAL:2):0 > 1
RETURN 0
RETURN 1
+;custom code
+@CAN_COM71(ARG)
+SKIPDISP ARG
+IF CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š && SHIRAHU(TARGET) && !CFLAG:アナル処女喪失記念日
+ CALL KOJO_MESSAGE_SEND("PERMISSION", 4, TARGET)
+ SELECTCASE RESULT
+ CASE -1
+ TCVAR:TARGET:Com_Order_Value = -10000
+ SKIPDISP 0
+ RETURN 0
+ CASE 1
+ TCVAR:TARGET:Com_Order_Value = 10000
+ SKIPDISP 0
+ RETURN 1
+ ENDSELECT
+ENDIF
+SKIPDISP 0
+RETURN 1
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/027 Wriggle [\343\203\252\343\202\260\343\203\253]/Wriggle/M_KOJO_K27_\343\202\244\343\203\231\343\203\263\343\203\210.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/027 Wriggle [\343\203\252\343\202\260\343\203\253]/Wriggle/M_KOJO_K27_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
index a091b1bb63f2eca270964badaeaf4aad7aceb191..cdc5b6a285e57ae5ddd413a9824b5e06595b65c0 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/027 Wriggle [\343\203\252\343\202\260\343\203\253]/Wriggle/M_KOJO_K27_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/027 Wriggle [\343\203\252\343\202\260\343\203\253]/Wriggle/M_KOJO_K27_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
@@ -4799,7 +4799,7 @@ ENDIF
;-------------------------------------------------
;Dialogue for just before vaginally penetrating a virgin or unaware non-virgin.
;RETURN 1 to prevent insertion
-;RETURN 1 to allow it
+;RETURN 0 to allow it
;Note that this dialogue will not be displayed unless CFLAG:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 1.
;処女・無自覚éžå‡¦å¥³ã«æŒ¿å…¥ã™ã‚‹ç›´å‰ã®å£ä¸Š
;RETURN 1ã™ã‚‹ã¨ã‚³ãƒžãƒ³ãƒ‰ã‚’ã‚ャンセルã—ã¾ã™
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/K60C_PARSEEDIM.ERH" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/K60C_PARSEEDIM.ERH"
index 642bab3c08e1aa7d8e6ad6a439fcb809fe4f7307..d4b44359812f9a3fe864b572c10468ad3ddca63a 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/K60C_PARSEEDIM.ERH"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/K60C_PARSEEDIM.ERH"
@@ -39,8 +39,6 @@
#DIM CONST K60EN_PARSEE_TIMES_BROKEN_UP_WITH = 1030
#DIM CONST K60EN_PARSEE_TEMP_LOVE_HOTEL_PERMISSION = 1031
#DIM CONST K60EN_PARSEE_YANDERE_POINTS = 1032
-#DIM CONST K60EN_PARSEE_OLD_VIRGIN_CONSENT_VALUE = 1033
-#DIM CONST K60EN_PARSEE_OLD_LUST_ABL = 1034
#DIM CONST K60EN_PARSEE_KNOWS_ABOUT_YOUR_BTD_RELATIONSHIP = 1035
;settings
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_functions.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_functions.ERB"
index 07cbe910ef24d40446570858ecbe20317277760f..9e074e145b3f33665d836feefd8ab4a5b40c3f57 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_functions.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_functions.ERB"
@@ -1801,6 +1801,8 @@ IF LOCAL:1 || LOCAL:2
TCVAR:TARGET:ピル = 1
ENDIF
CFLAG:K60EN_PARSEE_TIMES_UFUFU_STARTED ++
+SIF THINKS_IS_VIRGIN([[パルスィ]])
+ TCVAR:[[パルスィ]]:次回カウンター = 85
;==================================================
;Returns 1 if the player has given Parsee an orgasm in stopped time and/or ejaculated in or on her
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\244\343\203\231\343\203\263\343\203\210.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
index 447b4bebcc3c3dd4ace7046998bbe0cc9c6bd65f..574ad46dec5753c61ca3a4daf6e4e3a471b7db1f 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\244\343\203\231\343\203\263\343\203\210.ERB"
@@ -206,7 +206,7 @@ CFLAG:TARGET:時間åœæ¢å£ä¸Šæœ‰ = 1
CFLAG:TARGET:ãªã‚Šãã‚Šå£ä¸Šæœ‰ = 1
;If 1, the character will object to you trying to take their virginity?
-CFLAG:TARGET:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 0
+CFLAG:TARGET:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 1
;If 1, you can use M_KOJO_EVENT_K60_PERMISSION to make it so pushing down for the first time always succeeds or always fails
CFLAG:TARGET:å£ä¸Šå†…抱ã寄ã›åˆ¤å®š_åˆå›ž = 1
@@ -214,6 +214,12 @@ CFLAG:TARGET:å£ä¸Šå†…抱ã寄ã›åˆ¤å®š_åˆå›ž = 1
;If 1, you can use M_KOJO_EVENT_K60_PERMISSION to make it so pushing down always succeeds or always fails
CFLAG:TARGET:å£ä¸Šå†…抱ã寄ã›åˆ¤å®š_通常 = 1
+;If 1, you can use M_KOJO_EVENT_K60_PERMISSION to make it so taking a character's penile virginity always succeeds or always fails
+; CFLAG:TARGET:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š = 0
+
+;If 1, you can use M_KOJO_EVENT_K60_PERMISSION to make it so taking a character's anal virginity always succeeds or always fails
+CFLAG:TARGET:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š = 1
+
;Setting CFLAG:押ã—倒ã—ç¦æ¢ to 1 will make it so a character will not push you down
;For instance, the below code will ensure that a character will not push you down unless they have Yearning or Sex Friend:
;IF !TALENT:TARGET:X:æ‹æ…• && !TALENT:TARGET:X:セフレ
@@ -265,7 +271,7 @@ SETCOLOR 0xCCFFCC
;UPDATE判定ã§CFLAGç‰ã®ã‚ャラ変数を使ã†å ´åˆã€ã‚ャラ番å·ã®æŒ‡å®šãŒå¿…è¦ã«ãªã‚Šã¾ã™
;Borrowed from Alice's dialogue
;only put pause if something big changed
-VERSION = 131
+VERSION = 132
IF CFLAG:[[パルスィ]]:1036 == VERSION
PRINTFORMDL %CALLNAME:[[パルスィ]]%'s dialogue is at the latest version (v{CFLAG:[[パルスィ]]:1036 / 100}.{CFLAG:[[パルスィ]]:1036 / 10}.{CFLAG:[[パルスィ]]:1036 % 10}).
ELSE
@@ -2911,15 +2917,6 @@ IF LOCAL
;-------------------------------------------------
;todo drunk variant
IF LOCAL:1 && !ARG:1
- IF THINKS_IS_VIRGIN([[パルスィ]]) && CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ != 2
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_VIRGIN_CONSENT_VALUE = CFLAG:[[パルスィ]]:生解ç¦
- CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ = 2
- IF ABL:[[パルスィ]]:欲望 < 30
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_LUST_ABL = ABL:[[パルスィ]]:欲望
- ABL:[[パルスィ]]:欲望 = 30
- ENDIF
- ENDIF
-
IF (TALENT:83:æ‹äºº || TALENT:84:æ‹äºº || TALENT:64:æ‹äºº) && !RETURN_VAR_VALUE_IF_EXISTS("MORELOVER")
PRINTFORMDW Parsee pushed you down even though you're dating one of her friends and the More Lovers DLC is not enabled! Report this!
ENDIF
@@ -3975,9 +3972,6 @@ IF LOCAL
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
DEBUGPRINTFORML Itazura is {CFLAG:MASTER:イタズラ == 2}
- CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ = CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_VIRGIN_CONSENT_VALUE
- SIF CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_LUST_ABL != 30
- ABL:[[パルスィ]]:欲望 = CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_LUST_ABL
IF FLAG:時間åœæ¢
PRINTFORML
PRINTFORMD You
@@ -8193,7 +8187,8 @@ ENDIF
;-------------------------------------------------
;Dialogue for just before vaginally penetrating a virgin or unaware non-virgin.
;RETURN 1 to prevent insertion
-;RETURN 1 to allow it
+;RETURN 0 to allow it
+;RETURN -1 to allow it and override checks for vaginal sex commands
;Note that this dialogue will not be displayed unless CFLAG:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 1.
;処女・無自覚éžå‡¦å¥³ã«æŒ¿å…¥ã™ã‚‹ç›´å‰ã®å£ä¸Š
;RETURN 1ã™ã‚‹ã¨ã‚³ãƒžãƒ³ãƒ‰ã‚’ã‚ャンセルã—ã¾ã™
@@ -8203,7 +8198,7 @@ ENDIF
@M_KOJO_EVENT_K60_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
-RETURN 1
+RETURN -1
;-------------------------------------------------
;This does nothing unless CFLAG:å£ä¸Šå†…抱ã寄ã›åˆ¤å®š_åˆå›ž = 1.
@@ -8274,6 +8269,43 @@ ENDIF
RETURN 0
;-------------------------------------------------
+;-------------------------------------------------
+;This does nothing unless CFLAG:å£ä¸Šç”¨ç«¥è²žå–ªå¤±åˆ¤å®š = 1.
+;When trying to do a command that would take a character's penile virginity, RETURN -1 will make it always fail.
+;RETURN 0 will do the normal check, and RETURN 1 will make it always succeed.
+;You can use this to ex. prevent a character from letting the player devirginize them even if they've given their consent
+;if some other condition is true.
+;-------------------------------------------------
+@M_KOJO_EVENT_K60_PERMISSION_3
+;-------------------------------------------------
+RETURN 1
+;-------------------------------------------------
+
+;-------------------------------------------------
+;This does nothing unless CFLAG:å£ä¸Šç”¨ã‚¢ãƒŠãƒ«å‡¦å¥³å–ªå¤±åˆ¤å®š = 1.
+;When trying to do a command that would take a character's anal virginity, RETURN -1 will make it always fail.
+;RETURN 0 will do the normal check, and RETURN 1 will make it always succeed.
+;You can use this to ex. prevent a character from letting the player take their anal virginity even if they've given their consent
+;if some other condition is true.
+;-------------------------------------------------
+@M_KOJO_EVENT_K60_PERMISSION_4
+;-------------------------------------------------
+IF !TALENT:[[パルスィ]]:æ‹äºº || (IS_MALE([[パルスィ]]) && IS_MALE(MASTER) && ABL:[[パルスィ]]:親密 < 20)
+ PRINTFORMW 「No!ã€
+ IF TEQUIP:[[パルスィ]]:縄
+ PRINTFORMDW %CALLNAME:[[パルスィ]]%'s eyes go wide and %HE_SHE([[パルスィ]])% starts squirming away from you.
+ ELSE
+ PRINTFORMDW %CALLNAME:[[パルスィ]]% scoots away from you and covers %HIS_HER([[パルスィ]])% bare bottom.
+ ENDIF
+ PRINTFORMW 「Not that hole! Please!ã€
+ PRINTFORMW 「It's sinful...ã€
+ SIF HAS_VAGINA([[パルスィ]])
+ PRINTFORMW 「Use my vagina instead!ã€
+ RETURN -1
+ENDIF
+RETURN 0
+;-------------------------------------------------
+
;-------------------------------------------------
;Function for describing a room
;This displays when in the character's room (OMANEKIBEYA).
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\273\343\202\257\343\203\217\343\203\251\343\202\263\343\203\236\343\203\263\343\203\211.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\273\343\202\257\343\203\217\343\203\251\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
index 38fecaddc6db177490df5e5e6343dfdcf5ca98a7..425e5a53c08b8bb42b9e9daa8f63639f4675289d 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\273\343\202\257\343\203\217\343\203\251\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\343\202\273\343\202\257\343\203\217\343\203\251\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
@@ -498,7 +498,7 @@ IF LOCAL
CALL RECOVER(MASTER, -200, "体力", " ")
PRINTFORMW 「Are you deaf?! Stupid?! Or both?!ã€
PRINTFORMW %BREAKENG(@"「I told you at least three times to stop groping me, and you just ignored me and kept pawing at my chest like there was some kind of hidden treasure buried in my cleavage!ã€")%
- CALL PRINT_STRW, @"Well, to be fair, there kind of was. You were on the verge of discovering the secrets of the universe! Or at @ITALIC@a@ secret."
+ PRINTFORMDW Well, to be fair, there kind of was. You were on the verge of discovering the secrets of the universe! Or at least a secret."
PRINTFORMDW Like what that foreign prophet was doing during his lost years, or whether or not P = NP-
PRINTFORMW 「-re lucky that it was me you chose to fondle. Any other youkai would have devoured you without thinking tw-ã€
PRINTFORMDL Oh, she's ranting again.
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\200\247\344\272\244\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\200\247\344\272\244\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
index 2c4aec59ab86cf6d5df341a6fd7549608b5a9f46..2b3f737d795a471542a30977948e7f44c220a289 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\200\247\344\272\244\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\200\247\344\272\244\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
@@ -115,7 +115,7 @@ IF LOCAL && TFLAG:193
;Continued insertion
;挿入継続
;記入ãƒã‚§ãƒƒã‚¯
- LOCAL:1 = 0
+ LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1
;基本セット
@@ -223,6 +223,8 @@ IF LOCAL && TFLAG:193
ENDSELECT
ENDSELECT
ELSEIF ABL:MASTER:è…° >= 3
+ SIF CFLAG:(TARGET):オート喘ãŽ
+ CALL AUTO_AEGI(TARGET)
SELECTCASE K60_ATTITUDE()
CASE 0
SELECTCASE RAND:3
@@ -262,6 +264,8 @@ IF LOCAL && TFLAG:193
ENDSELECT
ENDSELECT
ELSE
+ SIF CFLAG:(TARGET):オート喘ãŽ
+ CALL AUTO_AEGI(TARGET)
SELECTCASE K60_ATTITUDE()
CASE 0
SELECTCASE RAND:3
@@ -389,7 +393,7 @@ IF LOCAL
;Continued insertion
;挿入継続
;記入ãƒã‚§ãƒƒã‚¯
- LOCAL:1 = 0
+ LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1
;基本セット
@@ -434,6 +438,8 @@ IF LOCAL
RETURN 1
ENDIF
ELSE
+ SIF CFLAG:(TARGET):オート喘ãŽ
+ CALL AUTO_AEGI(TARGET)
SELECTCASE K60_ATTITUDE()
;Loving
CASE 0
@@ -752,6 +758,8 @@ IF LOCAL
ENDIF
ELSE
;基本セット
+ SIF CFLAG:(TARGET):オート喘ãŽ
+ CALL AUTO_AEGI(TARGET)
SELECTCASE K60_ATTITUDE()
;Loving
CASE 0
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\227\245\345\270\270\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\227\245\345\270\270\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
index bf1318fe6127d9cc32c07827d4df082154c4be2e..14c7c435b5189924f0100707421992c4b7845090 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\227\245\345\270\270\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/M_KOJO_K60_\346\227\245\345\270\270\347\263\273\343\202\263\343\203\236\343\203\263\343\203\211.ERB"
@@ -1346,21 +1346,26 @@ SELECTCASE LOCAL
PRINTFORMDW She sighs.
PRINTFORMW 「I could go on for days about all the things she has that I'm jealous of.ã€
PRINTFORMW 「I'm a bitter misanthrope, she's always cheerful and happy.ã€
- PRINTFORM 「I'm so insecure that I can't work up the nerve to confess to
- SELECTCASE K60_ATTITUDE()
- CASE 2
- PRINTFORMD either of the
- IF IS_MALE(MASTER) && IS_MALE(64)
- PRINTFORMD men
- ELSEIF IS_FEMALE(MASTER) && IS_FEMALE(64)
- PRINTFORMD women
- ELSE
- PRINTFORMD people
- ENDIF
- PRINTFORMDW I love...ã€
- CASE 3
- PRINTFORMDW the %PRINT_MALE("man", 64)% I love...ã€
- ENDSELECT
+ IF CFLAG:[[パルスィ]]:K60ENC_SETTING_YUUPARU_CRUSH == 1
+ PRINTFORM 「I'm so insecure that I can't work up the nerve to confess to
+ SELECTCASE K60_ATTITUDE()
+ CASE 2
+ PRINTFORM either of the
+ IF IS_MALE(MASTER) && IS_MALE(64)
+ PRINTFORM men
+ ELSEIF IS_FEMALE(MASTER) && IS_FEMALE(64)
+ PRINTFORM women
+ ELSE
+ PRINTFORM people
+ ENDIF
+ PRINTFORMW I love...ã€
+ CASE 3
+ PRINTFORMW the %PRINT_MALE("man", 64)% I love...ã€
+ ENDSELECT
+ ELSE
+ SIF K60_ATTITUDE() == 2
+ PRINTFORM 「I'm so insecure that I can't work up the nerve to confess to the %PRINT_MALE("man", MASTER)% I love...ã€
+ ENDIF
PRINTFORMW 「And she's so confident she can play the guitar and skateboard at the same time!ã€
PRINTFORMW 「But that hat of hers... that's what really pisses me off.ã€
PRINTFORMW 「Not only is it a wonderful hat, one I'd give anything to have... it always stays on, no matter what she does!ã€
@@ -5271,14 +5276,6 @@ IF LOCAL
ENDSELECT
ENDIF
ENDIF
- IF THINKS_IS_VIRGIN([[パルスィ]]) && CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ != 2
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_VIRGIN_CONSENT_VALUE = CFLAG:[[パルスィ]]:生解ç¦
- CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ = 2
- IF ABL:[[パルスィ]]:欲望 < 30
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_LUST_ABL = ABL:[[パルスィ]]:欲望
- ABL:[[パルスィ]]:欲望 = 30
- ENDIF
- ENDIF
CALL K60_TAKE_A_CONTRACEPTIVE
RETURN 1
;fail
@@ -5716,12 +5713,6 @@ IF LOCAL
PRINTFORMW 「(Doing it outside?! Is %HE_SHE(MASTER)% mad?! What if someone sees us?!)ã€
PRINTFORMW 「(...oh, what am I saying? %K60_MASTER()%'s the only person I've ever met who's willing to sleep with me.)ã€
PRINTFORMW 「(What does it matter if people see us? At least everyone will know I'm not unloveable.)ã€
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_VIRGIN_CONSENT_VALUE = CFLAG:[[パルスィ]]:生解ç¦
- CFLAG:[[パルスィ]]:ç”Ÿè§£ç¦ = 2
- IF ABL:[[パルスィ]]:欲望 < 30
- CFLAG:[[パルスィ]]:K60EN_PARSEE_OLD_LUST_ABL = ABL:[[パルスィ]]:欲望
- ABL:[[パルスィ]]:欲望 = 30
- ENDIF
TFLAG:193 = 0
ENDIF
IF TFLAG:193 != -1
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/changelog.txt" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/changelog.txt"
index 7158160d4f1055557e006dbb3e59d7ad3d86bbea..a69273be97f3bfedaf0e7136cb064b9a554d8940 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/changelog.txt"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/060 Parsee [\343\203\221\343\203\253\343\202\271\343\202\243]/Parsee/changelog.txt"
@@ -1,3 +1,10 @@
+0.1.32 - October 1, 2023
+NEW FEATURES
+- Parsee will now prioritize fucking you in the cowgirl position if she has initiative and she's a virgin
+
+BUG FIXES
+- Removed the hacky workaround for Parsee not letting you take her virginity and then getting mad at you for not doing it (it didn't actually work, so I replaced it with a new system I wrote)
+
0.1.31 - September 4, 2023
NEW FEATURES
- Added a special event if you made Parsee your lover, used Bites the Dust, get her to Yearning again, and run into her
diff --git "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/142 Momoyo [\347\231\276\343\200\205\344\270\226]/Momoyo/M_KOJO_K142_events.ERB" "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/142 Momoyo [\347\231\276\343\200\205\344\270\226]/Momoyo/M_KOJO_K142_events.ERB"
index a47b31870349eb488a4a5ef0593524ba28815157..2e1e4fca15251db68e8e12c29b4b1dafb7659d4f 100644
--- "a/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/142 Momoyo [\347\231\276\343\200\205\344\270\226]/Momoyo/M_KOJO_K142_events.ERB"
+++ "b/ERB/\345\217\243\344\270\212\343\203\273\343\203\241\343\203\203\343\202\273\343\203\274\343\202\270\351\226\242\351\200\243/\345\200\213\344\272\272\345\217\243\344\270\212/142 Momoyo [\347\231\276\343\200\205\344\270\226]/Momoyo/M_KOJO_K142_events.ERB"
@@ -4570,7 +4570,7 @@ ENDIF
;-------------------------------------------------
;Dialogue for just before vaginally penetrating a virgin or unaware non-virgin.
;RETURN 1 to prevent insertion
-;RETURN 1 to allow it
+;RETURN 0 to allow it
;Note that this dialogue will not be displayed unless CFLAG:ç ´ç“œã‚ャンセルå£ä¸Šæœ‰ = 1.
;処女・無自覚éžå‡¦å¥³ã«æŒ¿å…¥ã™ã‚‹ç›´å‰ã®å£ä¸Š
;RETURN 1ã™ã‚‹ã¨ã‚³ãƒžãƒ³ãƒ‰ã‚’ã‚ャンセルã—ã¾ã™