Lust Mode

To Implement LustMode


CSV\FLAG.csv

Change End of the file from

----------------------------------------------------------------------
1065,子供の性別
;1100～1299,各部屋の人数

9013,PREGSPEED
9016,PREGSHOWCHANCE
9018,PREGMULT
----------------------------------------------------------------------
to
----------------------------------------------------------------------
;1100～1299,各部屋の人数

9000,LUSTMODE
9013,PREGSPEED
9016,PREGSHOWCHANCE
9018,PREGMULT
----------------------------------------------------------------------



ERB\TRANSLATION\CHEAT.ERB

Replace on line 24

----------------------------------------------------------------------
PRINTFORML [30] Toggle Incompetent Mode (Currently: \@FLAG:甲斐性無 ? ON # OFF\@)
----------------------------------------------------------------------
with
----------------------------------------------------------------------
PRINTFORML [30] Toggle Incompetent Mode (Currently: \@FLAG:甲斐性無 && !FLAG:LUSTMODE? ? ON # OFF\@)
PRINTFORML [40] Change lust mode (Currently: \@FLAG:LUSTMODE? ON # OFF\@)
----------------------------------------------------------------------

Replace

----------------------------------------------------------------------
    CASE 30
		IF FLAG:甲斐性無
			PRINTW Turned OFF
		ELSE
			PRINTL Turned ON
			PRINTFORMW %CALLNAME:MASTER% now has a feeble personality but other characters are more aggressive
		ENDIF
		FLAG:甲斐性無 = !FLAG:甲斐性無
    CASE 50
	CALL VIRGIN_SET
----------------------------------------------------------------------

----------------------------------------------------------------------
    CASE 30
		IF FLAG:甲斐性無
			PRINTW Turned OFF
		ELSE
			PRINTL Turned ON
			PRINTFORMW %CALLNAME:MASTER% now has a feeble personality but other characters are more aggressive
		ENDIF
		FLAG:甲斐性無 = !FLAG:甲斐性無
    CASE 40
        IF FLAG:LUSTMODE
		  PRINTW Turned OFF
        ELSE
            PRINTL Turned ON
            PRINTW You are just as feeble as in incompetent mode and tohos are just as lewder but now you can initiate sex
        ENDIF
        FLAG:LUSTMODE = !FLAG:LUSTMODE
        FLAG:甲斐性無 = 1
        SIF !FLAG:LUSTMODE
            FLAG:甲斐性無 = 0
    CASE 50
	CALL VIRGIN_SET
----------------------------------------------------------------------



ERB\VERSION_UP.ERB

Replace all after @KAISYONASI with
----------------------------------------------------------------------
SETBIT FLAG:1000, 1
PRINTFORML Do you have the courage to confess your love to someone?
PRINTL [0] Yes (Normal mode)
PRINTL [1] No (Incompetent mode - you can't take the initiative, but the girls are much more likely to)
SETCOLOR C_GRAY
PRINTL [2] Lust mode (Incompetent mode without action restrictions)
RESETCOLOR

INPUT
IF RESULT == 0
	PRINTFORMW Incompetent mode won't be used.
	FLAG:甲斐性無 = 0
	FLAG:LUSTMODE = 0
ELSEIF RESULT == 1
	PRINTFORMW Incompetent mode has been turned on (some commands will be unavailable)
	FLAG:甲斐性無 = 1
	FLAG:LUSTMODE = 0
ELSEIF RESULT == 2
	PRINTFORMW Lust mode - everything like incompetent mode, but you're brave enough to initiate all actions
	FLAG:甲斐性無 = 1
	FLAG:LUSTMODE = 1
ELSE
	RESTART
ENDIF
----------------------------------------------------------------------



ERB\イベント関連\妊娠関連\BIRTH.ERB

Find on line 63
Replace 'IF FLAG:甲斐性無' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE'




The following files are all found in ERB\コマンド関連\COMF\日常系


COMF310 尻を撫でる.ERB

Find on line 6
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF311 尻を撫でる.ERB

Find on line 9
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF312 尻を撫でる.ERB

Find on line 11
Replace 'IF FLAG:甲斐性無 && !GETBIT(CFLAG:既成事実 ,0)' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !GETBIT(CFLAG:既成事実 ,0)'


COMF313 尻を撫でる.ERB

Find on line 27
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF314 尻を撫でる.ERB

Find on line 39
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF315 尻を撫でる.ERB

Find on line 37
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF316 尻を撫でる.ERB

Find on line 27
Replace 'IF FLAG:甲斐性無 && !CFLAG:うふふ' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE && !CFLAG:うふふ'


COMF330 尻を撫でる.ERB

Find on line 7
Replace 'IF FLAG:甲斐性無' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE'


COMF350 尻を撫でる.ERB

Find on line 5
Replace 'IF FLAG:甲斐性無' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE'


COMF352 尻を撫でる.ERB

Find on line 4
Replace 'IF FLAG:甲斐性無' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE'


COMF353 尻を撫でる.ERB

Find on line 3
Replace 'IF FLAG:甲斐性無' with 'IF FLAG:甲斐性無 && !FLAG:LUSTMODE'