eraTohoTW cheat menu updated

Updated

ERB\SHOP関連\SHOP.ERB

Change from
------------------------------------------------------------------------------------------------
PRINTLC [200] - Save
PRINTLC [300] - Load
PRINTL

SIF CM_SELL_AMT
	PRINTFORML [600] - Sell Charisma (Currently: {CM_SELL_AMT} Charisma)
------------------------------------------------------------------------------------------------
to
------------------------------------------------------------------------------------------------
PRINTLC [200] - Save
PRINTLC [300] - Load
PRINTL

SETCOLOR C_GRAY
PRINTL [777] sup4 s1kr3t butn
RESETCOLOR

SIF CM_SELL_AMT
	PRINTFORML [600] - Sell Charisma (Currently: {CM_SELL_AMT} Charisma)
------------------------------------------------------------------------------------------------



And change end of the file from

------------------------------------------------------------------------------------------------
ELSEIF RESULT == 700
	CALL RESET_ALL_CLOTHES
ENDIF
------------------------------------------------------------------------------------------------
To
------------------------------------------------------------------------------------------------
ELSEIF RESULT == 700
	CALL RESET_ALL_CLOTHES
ELSEIF RESULT == 777
	CALL CHEATS
ENDIF
------------------------------------------------------------------------------------------------




New File ERB\SHOP関連\CHEATS.ERB
------------------------------------------------------------------------------------------------
@CHEATS
LOCAL:4 = LINECOUNT
DRAWLINE
SETCOLOR C_RED
PRINTL Cheatsy doodles
RESETCOLOR
PRINTL [ 0] Add money
PRINTL [ 1] Panties shot
PRINTL

PRINTL [10] Changes for your character
PRINTL [11] Changes for other characters
PRINTL

PRINTFORML [50] Reset experiences

;SIF FLAG:RESTOREHYPE
;	SETCOLOR C_RED
;PRINTL
;PRINTFORML [50] RESTORE THE HYPE (Currently: \@FLAG:RESTOREHYPE ? RESTORED!!!!!11!!1 # hype is gone\@)
;SIF FLAG:RESTOREHYPE
;	RESETCOLOR
;SIF FLAG:RESTOREHYPE
;	PRINTFORML     [51] Crank up the HYPE (now: {FLAG:HYPECOUNT})
PRINTL
PRINTFORML [62] Set Pregnancy Speed (Currently: \@FLAG:PREGSPEED? {FLAG:PREGSPEED}x # 1x\@)
PRINTL
PRINTL [99] Exit

INPUT
IF RESULT == 0
	PRINTL
	PRINTFORML How much \\ do you want to add? (You have \\{MONEY})
	INPUT
	MONEY += RESULT
	PRINTFORML Added \\{RESULT} (\\{MONEY} in total now)...
ELSEIF RESULT == 1
	LOCAL = FLAG:700
	CALL ROLL_PANTIES
	LOCAL = (LOCAL - FLAG:700) * -1
	PRINTFORMW You got covered with {LOCAL} panties
ELSEIF RESULT == 10
	;CALL CHEAT_YOU
	CALL CHEAT_OTHERS(MASTER)
ELSEIF RESULT == 11
	CALL CHEAT_SELECT
ELSEIF RESULT == 50
	CALL VIRGIN_SET
;ELSEIF RESULT == 51
;	FLAG:HYPECOUNT ++
ELSEIF RESULT == 62
	PRINTC 1x[1]
	PRINTC 2x[2]
	PRINTC 5x[5]
	PRINTC 10x[10]
	INPUT
	IF RESULT == 1
		FLAG:PREGSPEED = 0
	ELSE
		FLAG:PREGSPEED = RESULT
	ENDIF
ELSEIF RESULT == 99
	LOCAL:6 = LINECOUNT + 16		;16 is for main menu 'refresh'
	CLEARLINE LOCAL:6 - LOCAL:5
	RETURN
ENDIF
LOCAL:6 = LINECOUNT
CLEARLINE LOCAL:6 - LOCAL:5
RESTART

;========================================================
;========================================================
@ROLL_PANTIES()
#DIM TYPE
FOR LOCAL,1,CHARANUM
	FOR TYPE,0,MAXPANTS
		IF !RAND:100
			CFLAG:LOCAL:(TYPE + 100) ++
			FLAG:700 ++
		ENDIF
	NEXT
NEXT

;========================================================
;========================================================
@CHEAT_SELECT
DRAWLINE
SETCOLOR C_RED
PRINTL Who do you want use cheats on?
RESETCOLOR
PRINTL
FOR LOCAL:1, 10, CHARANUM + 9
	LOCALS =
	SIF LOCAL:1 <= 99
		LOCALS += " "
	PRINTFORM %LOCALS%[{LOCAL:1}] %CALLNAME:((LOCAL:1)-9),12,LEFT%
	SIF LOCAL:1 % 4 == 0
		PRINTL
NEXT
PRINTL
PRINTL
PRINTL [999] Back

INPUT
IF RESULT >= 10 && RESULT < CHARANUM + 9
	CALL CHEAT_OTHERS(RESULT-9)
ELSEIF RESULT == 999
	RETURN
ENDIF
RESTART

;========================================================
;========================================================
@CHEAT_OTHERS(ARG)
PRINTL
DRAWLINE
SETCOLOR C_RED
PRINTFORML Cheats for %CALLNAME:ARG%
RESETCOLOR
SIF ARG != MASTER
	PRINTL [0] Change relations with you
PRINTL [1] Character editor (keep in mind that changes are applied instantaneously)
PRINTL [2] Change sex techniques level
SIF ARG != MASTER
	PRINTL [3] Change marks
PRINTL [4] turbo editor - all traits unlocked (be careful i guess)
SIF ARG == MASTER
	PRINTL [5] Change Time Stop level
;if has the dick
SIF GETBIT(TALENT:ARG:2,1)
	PRINTL [6] Change dick type
PRINT [99] Back

INPUT
IF RESULT == 0
	CALL CHEAT_RELATIONS(ARG)
ELSEIF RESULT == 1
	PRINTFORML Change what you want in %CALLNAME:ARG%...
	CALL CHAR_EDITOR(ARG)
ELSEIF RESULT == 2
	PRINTL
	CALL CHEAT_SEXTECH(ARG)
ELSEIF RESULT == 3
	CALL CHEAT_MARK(ARG)
ELSEIF RESULT == 4
	PRINTFORML Change what you want in %CALLNAME:ARG%...
	CALL CHAR_EDITOR(ARG,2)
ELSEIF RESULT == 5
	CALL CHEAT_TIME
ELSEIF RESULT == 6
	CALL CHEAT_DICK_TYPE(ARG)
ELSEIF RESULT == 99
	RETURN
ENDIF
RESTART

;========================================================
;========================================================
@CHEAT_RELATIONS(ARG)
DRAWLINE
PRINTL What do you want changed?
PRINTFORML [0] Favorability    (current: {CFLAG:ARG:好感度})
PRINTFORML [1] Reliability     (current: {CFLAG:ARG:信頼度})
PRINT [99] Back
INPUT
IF RESULT == 0
	PRINTL Set favorability value (0 to return)...
	INPUT
	PRINTL [0] Return
	SIF RESULT > 0
		CFLAG:ARG:好感度 = RESULT
ELSEIF RESULT == 1
	PRINTL Set reliability value (0 to return)...
	INPUT
	PRINTL [0] Return
	SIF RESULT > 0
		CFLAG:ARG:信頼度 = RESULT
ELSEIF RESULT == 99
	RETURN
ENDIF
RESTART

;========================================================
;pls don't judge ;_;
;========================================================
@CHEAT_SEXTECH(ARG)
;no. of lines in output tekst, it's for nice clearing after button press
LOCAL:1 = 5
;no. of items in line, if % 3 == 0, make new line
LOCAL:2 = 0

DRAWLINE
SETCOLOR C_RED
PRINTFORML Change %CALLNAME:ARG%'s sex techniques
RESETCOLOR

FOR LOCAL, 50, 60
	SIF !STRLENS(ABLNAME:LOCAL)
		CONTINUE
	SIF !(TALENT:ARG:2 & 1) && (LOCAL == 52 || LOCAL == 54) ;Checks if it's male (no chest and vagina skills)
		CONTINUE
	PRINTFORM %ABLNAME:LOCAL,10%:
	CALL PRINT_アルファベット評価(ARG,3,LOCAL) ;Shows level's letter
	PRINTFORM  {ABL:ARG:LOCAL,5,LEFT}
	IF ABL:ARG:LOCAL > 0
		;it's -22 so index of [-] buttons will always be less thant 50
		PRINTBUTTON "[-]", LOCAL - 22
	ELSE
		SETCOLOR C_GRAY
		PRINT [-]
		RESETCOLOR
	ENDIF
	IF ABL:ARG:LOCAL < 6
		PRINTBUTTON "[+]", LOCAL
	ELSE
		SETCOLOR C_GRAY
		PRINT [+]
		RESETCOLOR
	ENDIF
	LOCAL:2 ++
	IF LOCAL:2 % 3 == 0
		PRINTL
		LOCAL:1 ++
	ENDIF
NEXT
PRINTL
PRINTL [99] Done

INPUT
IF INRANGE(RESULT,28,33)
	ABL:ARG:(RESULT + 22) --
ELSEIF INRANGE(RESULT,50,55)
	ABL:ARG:(RESULT) ++
	PRINTFORMW result was {RESULT}
ELSEIF RESULT == 99
	DRAWLINE
	RETURN
ENDIF

CLEARLINE LOCAL:1
RESTART

;========================================================
;========================================================
@CHEAT_MARK(ARG)
PRINTL
DRAWLINE

FOR LOCAL, 0, 6
	SIF !STRLENS(MARKNAME:LOCAL)
		CONTINUE
	PRINTFORM %MARKNAME:LOCAL, 12%:
	IF LOCAL == 3
		SETCOLOR C_RED
		PRINTFORM %"×" * (MARK:ARG:LOCAL), 10, LEFT%
		RESETCOLOR
	ELSE
		SETCOLOR 255, 255, 0
		PRINTFORM %"★" * (MARK:ARG:LOCAL), 10, LEFT%
		RESETCOLOR
	ENDIF

	IF MARK:ARG:LOCAL > 0
		PRINTBUTTON "[-]", LOCAL
	ELSE
		SETCOLOR C_GRAY
		PRINT [-]
		RESETCOLOR
	ENDIF
	IF MARK:ARG:LOCAL < 3 || (LOCAL == 3 && MARK:ARG:LOCAL < 5)
		PRINTBUTTON "[+]", LOCAL + 10
	ELSE
		SETCOLOR C_GRAY
		PRINT [+]
		RESETCOLOR
	ENDIF
	PRINTL

NEXT

PRINTL
PRINTFORML [99] Done
INPUT
IF RESULT < 10
	SIF MARK:ARG:RESULT > 0
		MARK:ARG:RESULT --
ELSEIF RESULT != 99
	SIF MARK:ARG:(RESULT-10) < 3
		MARK:ARG:(RESULT-10) ++
ELSEIF RESULT == 99
	RETURN
ENDIF
CLEARLINE 10
RESTART




;========================================================
;
;========================================================
@CHEAT_TIME()
LOCAL:5 = LINECOUNT
DRAWLINE
SETCOLOR C_RED
PRINTFORML Select Time Stop ability level (now: {MAXBASE:MASTER:TSP})
RESETCOLOR
PRINTBUTTON "[ 100 TSP]", 100
PRINTL
PRINTBUTTON "[ 200 TSP]", 200
PRINTL
PRINTBUTTON "[ 500 TSP]", 500
PRINTL
PRINTBUTTON "[ 800 TSP]", 800
PRINTL
PRINTBUTTON "[1500 TSP]", 1500
PRINTL
PRINTBUTTON "[2500 TSP]", 2500
PRINTL
PRINTBUTTON "[4000 TSP]", 4000
PRINTL
PRINT [99] Return

INPUT
IF GROUPMATCH(RESULT,100,200,500,800,1500,2500,4000)
	MAXBASE:MASTER:TSP = RESULT
	BASE:MASTER:TSP = RESULT
	PRINTFORMW Your max TSP is now {RESULT}
ELSEIF RESULT == 99
	CLEARLINE LINECOUNT - LOCAL:5
	RETURN
ELSE
	PRINTFORMW wrong numbah m8
ENDIF
CLEARLINE LINECOUNT - LOCAL:5
RESTART

;========================================================
;
;========================================================
@CHEAT_DICK_TYPE(ARG)
LOCAL:5 = LINECOUNT
DRAWLINE
SETCOLOR C_RED
;if doesn't have dick - return
IF !GETBIT(TALENT:ARG:2,1)
	PRINTW Cannot change dick when there's no dick!
	RESETCOLOR
	RETURN
ENDIF

PRINTFORML Changing dick type for %CALLNAME:ARG%  (Currently: %CHEAT_DICK_NAME(TALENT:ARG:形状)%)
RESETCOLOR

FOR LOCAL,1,7
	PRINTFORML [{LOCAL}] %CHEAT_DICK_NAME(LOCAL)%
NEXT
PRINTFORML [99] Return

INPUT
IF INRANGE(RESULT,1,6)
	TALENT:ARG:形状 = RESULT
	PRINTFORMW Changed the dick, it's now %CHEAT_DICK_NAME(RESULT)%
ELSEIF RESULT == 99
	CLEARLINE LINECOUNT - LOCAL:5
	RETURN
ENDIF

CLEARLINE LINECOUNT - LOCAL:5
RESTART

@CHEAT_DICK_NAME(ARG)
#FUNCTIONS
SELECTCASE ARG
	CASE 0
		LOCALS = None
	CASE 1
		LOCALS = Immature
	CASE 2
		LOCALS = Pathetic
	CASE 3
		LOCALS = Normal
	CASE 4
		LOCALS = Luminescent
	CASE 5
		LOCALS = Bumpy
	CASE 6
		LOCALS = Huge
ENDSELECT
RETURNF LOCALS
;========================================================
;========================================================
;
;it's pretty much just a modified function CUSTOM_TERMINAL, so it's all 'unlocked'
;ARG = character,
;ARG:1 = for unlocking options, it's 1 by default, even more unlocked if 2
;========================================================
;========================================================
@CHAR_EDITOR(ARG, ARG:1 = 1)
PRINTFORML hello
DRAWLINE
PRINTSL NAME:ARG
PRINT STA:
CALL PRINT_COLORBAR, BASE:ARG:0, MAXBASE:ARG:0, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("赤"), RESULT:1
PRINTFORM ({BASE:ARG:0,5}/{MAXBASE:ARG:0,5})
PRINT ENE:
CALL PRINT_COLORBAR, BASE:ARG:1, MAXBASE:ARG:1, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("緑"), RESULT:1
PRINTFORM ({BASE:ARG:1,5}/{MAXBASE:ARG:1,5})
PRINTL
;能力・性技表示
CALL PRINT_STATE_ABL(ARG)
PRINTL
;素質表示
CALL PRINT_STATE_TALENT(ARG)
PRINTL
;経験表示
CALL PRINT_STATE_EXP(ARG)
PRINTL
;------------------------------
DRAWLINE
;done - exit
IF LOCAL:100 == 1000
	DRAWLINE
	PRINTL Finished?
;name setting
ELSEIF LOCAL:100 == 1001
	CALL NAME_CUSTOM(ARG)
	LOCAL:100 = 0
	RESTART
;base settings
ELSEIF LOCAL:100 == 1002
	CALL BASE_CUSTOM(ARG,ARG:1)
;talent settings
ELSEIF LOCAL:100 == 1003
	CALL TALENT_CUSTOM(ARG,LOCAL:101, ARG:1)
;ability settings
ELSEIF LOCAL:100 == 1004
	CALL ABL_CUSTOM(ARG,ARG:1)
;exp settings
ELSEIF LOCAL:100 == 1005
	CALL EXP_CUSTOM(ARG)
ELSEIF LOCAL:100 == 1006
	CALL CLOTHES_CUSTOM
ENDIF
;------------------------------
DRAWLINE
PRINTFORML [1000] - Done　       　  [1001] - Name change       [1002] - STA and ENE settings
PRINTL [1003] - Talent settings  [1004] - Ability settings  [1005] - Experience settings
INPUT
;done - exit
IF RESULT == 1000
	RETURN 0
ELSEIF RESULT > 1000
	LOCAL:100 = RESULT
	RESTART
ENDIF

;Base settings
IF LOCAL:100 == 1002
	IF RESULT == 0 && MAXBASE:ARG:0 > 1000
		MAXBASE:ARG:0 -= 100
	ELSEIF RESULT == 1
		MAXBASE:ARG:0 += 100
	ELSEIF RESULT == 2 && MAXBASE:ARG:1 > 1000
		MAXBASE:ARG:1 -= 100
	ELSEIF RESULT == 3
		MAXBASE:ARG:1 += 100
	ENDIF
	BASE:ARG:0 = MAXBASE:ARG:0
	BASE:ARG:1 = MAXBASE:ARG:1
	RESTART

;Talent settings
ELSEIF LOCAL:100 == 1003
	;ページ送り
	SIF RESULT == 998 && LOCAL:101
		LOCAL:101 --
	SIF RESULT == 999
		LOCAL:101 ++
	SIF RESULT < 0 || RESULT > 500 || TALENTNAME:RESULT == ""
		RESTART
	;陥落素質ほか
	IF ARG:1 != 2
		IF NO:ARG == NO:MASTER
			SIF 選べない素質(RESULT)
				RESTART
		ELSE
			SIF 選べない素質2(RESULT, NO:ARG)
				RESTART
		ENDIF
	ENDIF
	;Gender
	IF RESULT == 2
		IF TALENT:ARG:RESULT == 3
			TALENT:ARG:RESULT = 1
		ELSE
			TALENT:ARG:RESULT ++
		ENDIF
	;Preferences
	ELSEIF RESULT == 81
		IF TALENT:ARG:RESULT == 3
			TALENT:ARG:RESULT = -1
		ELSE
			TALENT:ARG:RESULT ++
		ENDIF
	;オンオフ型の素質
	ELSEIF TALENTNAME:RESULT == GET_TALENTNAME(RESULT,1) || RESULT == 1 || RESULT == 6
		TALENT:ARG:RESULT = !TALENT:ARG:RESULT
		;オンオフ型で別途追加が必要な素質
		;母乳体質
		IF RESULT == 149
			IF TALENT:ARG:RESULT
				MAXBASE:ARG:母乳 = 2000
			ELSE
				MAXBASE:ARG:母乳 = 0
			ENDIF
		ENDIF
	;量的素質
	ELSE
		;Gender
		IF LOCAL == 2
			IF TALENT:ARG:RESULT == 3
				TALENT:ARG:RESULT = 1
			ELSE
				TALENT:ARG:RESULT ++
			ENDIF
		;端まで行くと-1を掛ける
		ELSEIF STRLENS(GET_TALENTNAME(RESULT,TALENT:ARG:RESULT + 1)) || TALENT:ARG:RESULT == -1
			TALENT:ARG:RESULT ++
		ELSE
			TALENT:ARG:RESULT = -1 * TALENT:ARG:RESULT
		ENDIF
	ENDIF

;Ability settings
ELSEIF LOCAL:100 == 1004
	LOCAL = RESULT / 2
	SIF !STRLENS(ABLNAME:LOCAL)
		RESTART
	;同性愛関係
	IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 || LOCAL == 32)
		RESTART
	ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 || LOCAL == 33)
		RESTART
	ENDIF
	;中毒関係
	SIF LOCAL >= 30 && ARG:1 != 2
		RESTART
	;even numbers(+)
	IF RESULT % 2
		ABL:ARG:LOCAL ++
	;odd numbers(-)
	ELSE
		IF ABL:ARG:LOCAL <= 0
			RESTART
		ELSE
			ABL:ARG:LOCAL --
		ENDIF
	ENDIF
ELSEIF LOCAL:100 == 1005
	IF RESULT == 998
		FOR LOCAL,0,82
		SIF STRLENS(EXPNAME:LOCAL)
			EXP:ARG:(LOCAL) = 0
		NEXT
		RESTART
	ELSEIF RESULT == 999
		FOR LOCAL,0,82
		SIF STRLENS(EXPNAME:LOCAL)
			EXP:ARG:(LOCAL) = RAND:299
		NEXT
		RESTART
	ELSE
		LOCAL = RESULT
		SIF !STRLENS(EXPNAME:LOCAL)
			RESTART
		;同性愛関係
		IF !(TALENT:ARG:2 & 1) && LOCAL == 41
			RESTART
		ELSEIF TALENT:ARG:2 & 1 && LOCAL == 42
			RESTART
		ENDIF
		PRINTFORM Input for %EXPNAME:LOCAL%
		PRINTBUTTON "[Cancel]",-1
		INPUT
		SIF RESULT < 0
			RESTART
		EXP:ARG:LOCAL = RESULT
	ENDIF
ELSEIF RESULT == 1006
ENDIF
RESTART

@BASE_CUSTOM_B(ARG, ARG:6)
PRINT STA:
BAR BASE:ARG:0,MAXBASE:ARG:0,16
PRINTFORM ({BASE:ARG:0,4}/{MAXBASE:ARG:0,4})
IF BASE:ARG:0 != 1000
	PRINTBUTTON "[−]", 0
ELSE
	SETCOLOR 0x969696
	PRINT [−]
	RESETCOLOR
ENDIF
IF BASE:ARG:0 != 2500 || ARG:6
	PRINTBUTTON "[＋]", 1
ELSE
	SETCOLOR 0x969696
	PRINT [＋]
	RESETCOLOR
ENDIF
PRINTL
PRINT ENE:
BAR BASE:ARG:1,MAXBASE:ARG:1,16
PRINTFORM ({BASE:ARG:1,4}/{MAXBASE:ARG:1,4})
IF BASE:ARG:1 != 1000 || ARG:6
	PRINTBUTTON "[−]", 2
ELSE
	SETCOLOR 0x969696
	PRINT [−]
	RESETCOLOR
ENDIF
IF BASE:ARG:1 != 2500
	PRINTBUTTON "[＋]", 3
ELSE
	SETCOLOR 0x969696
	PRINT [＋]
	RESETCOLOR
ENDIF
PRINTL

@TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
VARSET LOCAL
FOR LOCAL,ARG:1 * 40,40 + ARG:1 * 40
	IF LOCAL % 10 == 0
		PRINTL
		SIF LOCAL:1 % 2
			PRINTL
		LOCAL:1 = 0
	ENDIF
	;陥落素質ほか
	IF NO:ARG == NO:MASTER
		SIF 選べない素質(LOCAL)
			CONTINUE
	ELSE
		SIF 選べない素質2(LOCAL, NO:ARG)
			CONTINUE
	ENDIF

	SELECTCASE TALENTNAME:LOCAL
	;TALENT.CSVに登録されていない
	CASE ""
		CONTINUE
	;オンオフ型の素質(TALENTNAMEと素質表示が一致)
	CASE GET_TALENTNAME(LOCAL,1)
		IF !TALENT:ARG:LOCAL
			SETCOLOR 150,150,150
		ELSE
			SETCOLOR C_AQUA
		ENDIF
		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
	CASE "非童貞"
		SETCOLOR C_AQUA
		SIF GETBIT(TALENT:ARG:LOCAL, 0) || GETBIT(TALENT:ARG:LOCAL, 0) || GROUPMATCH(TALENT:ARG:2, 0, 1)
			SETCOLOR 150,150,150
		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
	CASE "キス未経験"
		IF TALENT:ARG:LOCAL
			SETCOLOR 150,150,150
		ELSE
			SETCOLOR C_AQUA
		ENDIF
		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
	;量的素質
	CASEELSE
		IF !TALENT:ARG:LOCAL
			SETCOLOR 150,150,150
		ELSE
			SETCOLOR C_AQUA
		ENDIF
		LOCALS =  [{LOCAL,3}] - %TALENTNAME:LOCAL%
		IF STRLENS(GET_TALENTNAME(LOCAL, TALENT:ARG:LOCAL))
			LOCALS:1 =  …【%GET_TALENTNAME(LOCAL,TALENT:ARG:LOCAL)%】
		ELSE
			LOCALS:1 = …
			SETCOLOR 150,150,150
		ENDIF
		LOCALS += LOCALS:1
	ENDSELECT
	PRINTFORM %LOCALS,50,LEFT%
	LOCAL:1 ++
	SIF LOCAL:1 % 2 == 0
		PRINTL
	RESETCOLOR
NEXT
PRINTL

IF ARG:1 != 0
	PRINTBUTTON "[998] - Previous Page                 ",998
ELSE
	SETCOLOR 0x969696
	PRINTFORM %"[---] - Previous Page",35,LEFT%
	RESETCOLOR
ENDIF
IF ARG:1 != 3
	PRINTBUTTON "[999] - Next Page",999
ELSE
	SETCOLOR 0x969696
	PRINTFORM %"[---] - Next Page",35,LEFT%
	RESETCOLOR
ENDIF
PRINTL


@ABL_CUSTOM_B(ARG, ARG:6)
LOCAL:1 = 0
FOR LOCAL,0,50
	SIF !STRLENS(ABLNAME:LOCAL)
		CONTINUE
	;同性愛関係
	IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 || LOCAL == 32)
		CONTINUE
	ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 || LOCAL == 33)
		CONTINUE
	ENDIF
	;中毒も無し
	SIF LOCAL >= 30
		CONTINUE
	PRINTFORM %ABLNAME:LOCAL,12%:{ABL:ARG:LOCAL,5,LEFT}
	IF ABL:ARG:LOCAL != 0
		PRINTBUTTON "[−]", LOCAL * 2
	ELSE
		SETCOLOR 0x969696
		PRINT [−]
		RESETCOLOR
	ENDIF
	IF ABL:ARG:LOCAL != 2 || ARG:6
		PRINTBUTTON "[＋]", LOCAL * 2 + 1
	ELSE
		SETCOLOR 0x969696
		PRINT [＋]
		RESETCOLOR
	ENDIF
	LOCAL:1 ++
	SIF LOCAL:1 % 2 == 0
		PRINTL
NEXT
PRINTL
------------------------------------------------------------------------------------------------

Additional Notes:

The following are copies from "\ERB\SHOP関連\キャラメイク.ERB" with some changes
@BASE_CUSTOM_B(ARG, ARG:6)
@TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
@ABL_CUSTOM_B(ARG, ARG:6)

TALENT_CUSTOM_B is an incomplete form with current code so ARG:2 does nothing yet