New Ingame Cheat Menu

New Ingame Cheat Menu

When Enabled, found next to other user options during main game

New File at ERB\TRANSLATION\CHEATB.ERB


---------------------------------------------------------------------------------------
@CHEAT_MENUB
#DIM CREDRAW
#DIM FIRST_LINE
FIRST_LINE = LINECOUNT
$REPRINT
CLEARLINE LINECOUNT - FIRST_LINE
CREDRAW = CURRENTREDRAW()
REDRAW 0
DRAWLINE
SETCOLOR C_RED
PRINTL Cheat menu 2
RESETCOLOR
PRINTL

PRINTL [ 0] Fill you STA + ENE
PRINTL [ 1] Fill you TSP
PRINTL [ 2] Partner Stats

PRINTL

PRINTL [100] Exit

INPUT
SELECTCASE RESULT
    case 0
        CALL FILLTARGET(0)
    case 1
        CALL FILLTSP
    case 2
        IF Target > 0
            CALL PARTNERSTATS(Target)
        ELSE
            PRINTW No Target
        ENDIF
    case 100
        RETURN
ENDSELECT
GOTO REPRINT

@FILLTARGET(ARG)

BASE:ARG:0 = MAXBASE:ARG:0
BASE:ARG:1 = MAXBASE:ARG:1
PRINTW Filled
RETURN

@FILLTSP()
BASE:MASTER:TSP = MAXBASE:MASTER:TSP
PRINTW Filled
RETURN

@PARTNERSTATS(ARG)
#DIM CREDRAW
#DIM FIRST_LINE
FIRST_LINE = LINECOUNT
$REPRINT
CLEARLINE LINECOUNT - FIRST_LINE
CREDRAW = CURRENTREDRAW()
REDRAW 0
DRAWLINE

LOCAL:1 = BASE:ARG:0
LOCAL:2 = MAXBASE:ARG:0
LOCAL:3 = BASE:ARG:1
LOCAL:4 = MAXBASE:ARG:1
LOCAL:5 = BASE:ARG:10
LOCAL:6 = MAXBASE:ARG:10
LOCAL:7 = BASE:ARG:11
LOCAL:8 = MAXBASE:ARG:11
LOCAL:9 = CFLAG:ARG:2
LOCAL:10 = CFLAG:ARG:3
LOCAL:11 = CFLAG:ARG:340
LOCAL:12 = BASE:ARG:15
LOCAL:13 = MAXBASE:ARG:15

PRINTFORML Target STA: {LOCAL:1} / {LOCAL:2}
PRINTFORML Target ENE: {LOCAL:3} / {LOCAL:4}
PRINTFORML Target Mood: {LOCAL:5} / {LOCAL:6}
PRINTFORML Target Reason: {LOCAL:7} / {LOCAL:8}
PRINTFORML Target Drunkenness: {LOCAL:12} / {LOCAL:13}
PRINTFORML Target Favourability: {LOCAL:9}
PRINTFORML Target Reliability: {LOCAL:10}
PRINTFORML Target Sexual Frustration: {LOCAL:11 / 10}

PRINTL

PRINTL [ 0] Increase STA
PRINTL [ 1] Icrease ENE
PRINTL [ 2] Icrease partners Mood
PRINTL [ 3] Reduce partners Reason
PRINTL [ 4] Change partners Favourability
PRINTL [ 5] Change partners Reliability
PRINTL [ 6] Change partners Sexual Frustration
PRINTL [ 7] Make Drunk

PRINTL

PRINTL [99] Exit

INPUT
SELECTCASE RESULT
	CASE 0
        BASE:ARG:0 = MAXBASE:ARG:0
	CASE 1
        BASE:ARG:1 = MAXBASE:ARG:1
	CASE 2
        BASE:ARG:10 = 1500
	CASE 3
        BASE:ARG:11 = 0
    CASE 4
        PRINTL Input value to apply to current Favourability
        INPUT
        CFLAG:ARG:2 += RESULT
        GOTO REPRINT
    CASE 5
        PRINTL Input value to apply to current Reliability
        INPUT
        CFLAG:ARG:3 += RESULT
        GOTO REPRINT
    CASE 6
        PRINTL Input value to apply to current Sexual Frustration
        INPUT
        CFLAG:ARG:340 += RESULT * 10
        GOTO REPRINT
    CASE 7
        BASE:ARG:15 = MAXBASE:ARG:15 - 50
    CASE 99
        RETURN
ENDSELECT
GOTO REPRINT
---------------------------------------------------------------------------------------



CSV\FLAG.csv

New Line Required at the end

---------------------------------------------------------------------------------------
9001,CHEATMENU
---------------------------------------------------------------------------------------




Edits to ERB\TRANSLATION\CHEAT.ERB
---------------------------------------------------------------------------------------
PRINTFORML [62] Set Pregnancy Speed (Currently: \@FLAG:PREGSPEED? {FLAG:PREGSPEED}x # 1x\@)
PRINTL
PRINTL [99] Exit
---------------------------------------------------------------------------------------
To
---------------------------------------------------------------------------------------
PRINTFORML [62] Set Pregnancy Speed (Currently: \@FLAG:PREGSPEED? {FLAG:PREGSPEED}x # 1x\@)
PRINTFORML [98] Enable Cheat Menu (Currently: \@FLAG:CHEATMENU ? ON # OFF\@)
PRINTL
PRINTL [99] Exit
---------------------------------------------------------------------------------------


Additional Edits to ERB\TRANSLATION\CHEAT.ERB
---------------------------------------------------------------------------------------
    CASE 60
        CALL CHEAT_PREGNANCY_CHECK
    CASE 99
        RETURN
ENDSELECT
---------------------------------------------------------------------------------------
To
---------------------------------------------------------------------------------------
    CASE 60
        CALL CHEAT_PREGNANCY_CHECK
    CASE 98
        FLAG:CHEATMENU = !FLAG:CHEATMENU
    CASE 99
        RETURN
ENDSELECT
---------------------------------------------------------------------------------------




Edits to ERB\コマンド関連\USERCOM.ERB
Found at line 383
---------------------------------------------------------------------------------------
ELSEIF RESULT == 994
	CALL SHOW_HAVE_COLLECTION()
;時間停止解除
ELSEIF RESULT == 999 && FLAG:70 == 1 && !CFLAG:うふふ
---------------------------------------------------------------------------------------
to
---------------------------------------------------------------------------------------
ELSEIF RESULT == 994
	CALL SHOW_HAVE_COLLECTION()
;時間停止解除
ELSEIF RESULT == 995 && FLAG:CHEATMENU
    CALL CHEAT_MENUB
ELSEIF RESULT == 999 && FLAG:70 == 1 && !CFLAG:うふふ
---------------------------------------------------------------------------------------




Edits to ERB\コマンド関連\USERCOM_コマンド表示処理.ERB
Found at line 252
---------------------------------------------------------------------------------------
SIF CFLAG:MASTER:現在位置 == CFLAG:MASTER:初期位置
	PRINTC Calendar[993]
SIF FLAG:パンツ輸送
	PRINTC Check Pilfered Panties[994]
PRINTL
IF FLAG:70 == 1 && CFLAG:TARGET:344 == 0
---------------------------------------------------------------------------------------
to
---------------------------------------------------------------------------------------
SIF CFLAG:MASTER:現在位置 == CFLAG:MASTER:初期位置
	PRINTC Calendar[993]
SIF FLAG:パンツ輸送
	PRINTC Check Pilfered Panties[994]
SIF FLAG:CHEATMENU
	PRINTC Cheat Menu[995]
PRINTL
IF FLAG:70 == 1 && CFLAG:TARGET:344 == 0
---------------------------------------------------------------------------------------